Routine: PSDDWK3

Information

PSDDWK3 ;BIR/JPW-Pharm Dispensing Worksheet (cont'd) ; 24 Aug 93

Source file <PSDDWK3.m>

Name	Comments	DBIA/ICR reference
UPDATE	;set zero node in 58.81 - ien^type^disp^disp date^drug^qty^^^^bal.fwd^stat^^mfg^lot#^exp.date^^disp#^naou^^req#
MON	;monthly summary data

Name	Line Occurrences
Function Call: WRITE	Prompt: "vault activity..." Line Location: UPDATE+19
Function Call: WRITE	Prompt: "worksheet..." Line Location: MON+5
Function Call: WRITE	Prompt: "order..." Line Location: MON+8
Function Call: WRITE	Prompt: "done.",!!,"This order is now "_$P($G(^PSD(58.82,+STAT,0)),"^")_".",! Line Location: MON+11

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls