Routine: PSDRDR2

Information

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

Source file <PSDRDR2.m>

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