Routine: PSDRDR2

Information

PSDRDR2 ;BIR/BJW-Narc Disp/Rec (reprint VA FORM 10-2321) (cont'd) ; 4 Aug 94

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIR ^DIWP ^DIWW

Package	Total	Caller Graph
Controlled Substances	1	PSDRDR1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: !,"* VERIFIED ORDER WAS EDITED." Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: !,?55,"* REPRINT *",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,?50,"* PHARMACY VAULT COPY *",!,?42,"Technician Delivering Orders: ____________________",! Line Location: HDR+3
Function Call: WRITE	Prompt: " for ",NAOU Line Location: HDR+4
Function Call: WRITE	Prompt: ?120,"Page: ",PG,!,?52,RPDT,! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?14,"DATE",?78,"DATE" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY" Line Location: HDR+7
Function Call: WRITE	Prompt: !,LN,!! Line Location: HDR+8
Function Call: WRITE	Prompt: !!,?45,"** NO PENDING NARCOTIC ORDERS TO BE DELIVERED **" Line Location: COPY+2
Function Call: WRITE	Prompt: !,?33,"BALANCE: "_$S(+$P(NODE,"^",13):+$P(NODE,"^",13),1:"UNKNOWN")_" "_$P(NODE,"^",14) Line Location: COPY+9
Function Call: WRITE	Prompt: !,?33,"Mfg/Lot #/Exp Date: ",$P(NODE,"^",6)_" "_$P(NODE,"^",7)_" "_$P(NODE,"^",8) Line Location: COPY+10
Function Call: WRITE	Prompt: ! Line Location: COPY+15
Function Call: WRITE	Prompt: !,"* VERIFIED ORDER WAS EDITED." Line Location: COPY+16
Routine Call	DIR Line Location: DONE+1 HDR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	COPY+1
^PSD(58.81 - [#58.81]	COPY+14
^TMP("PSDRDR"	COPY+2, COPY+3, COPY+4
^UTILITY($J	COPY+14!

Name	Field # of Occurrence
>> %	COPY+1
>> COMM	COPY+1, COPY+14, COPY+15*
>> COPY	PRINT+1, PRINT+2, HDR+1, HDR+3, COPY+6, COPY+9, COPY+16
DA	HDR+2!
DIR	DONE+1!, HDR+2!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+2
DIRUT	DONE+1!
>> DIWF	COPY+14*
>> DIWL	COPY+14*
>> DIWR	COPY+14*
>> FLAG	PRINT+1, COPY+2*
IOF	DONE, HDR+3
IOSL	COPY+4, COPY+5, COPY+14
IOST	DONE, DONE+1, HDR+2
LN	HDR+8, COPY+2!*
>> NAOU	HDR+4, COPY+1, COPY+3, COPY+4
>> NODE	COPY+4*, COPY+5, COPY+6, COPY+7, COPY+9, COPY+10, COPY+11, COPY+12, COPY+14
>> NUM	COPY+4*, COPY+7
>> PG	HDR+1, HDR+2, HDR+3, HDR+5, COPY+1, COPY+16
>> PSDA	COPY+14*
>> PSDCPY	PRINT+2, HDR+1, HDR+3, COPY+6, COPY+9, COPY+16
>> PSDOUT	PRINT+1, DONE+1, HDR+2, COPY+1, COPY+3, COPY+4, COPY+5, COPY+14
>> RPDT	HDR+5, COPY+1*
>> TEXT	COPY+14*
X	COPY+6~, COPY+7, COPY+14
>> Y	HDR+2, COPY+1*