Routine: PSDPDR2

Information

PSDPDR2 ;BIR/BJW-Narc Disp/Rec Report (VA FORM 10-2321) (cont'd) ; 09 FEB 95

Source file <PSDPDR2.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+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+4
Function Call: WRITE	Prompt: !,?45,"* RECEIPT VERIFICATION COPY *",!,?42,"Technician Delivering Orders: ________________________",! Line Location: HDR+4
Function Call: WRITE	Prompt: " for ",NAOU Line Location: HDR+5
Function Call: WRITE	Prompt: " (Perpetual Inventory)" Condition for execution: $P($G(^PSD(58.8,+$O(^PSD(58.8,"B",NAOU,0)),2)),U,5) Line Location: HDR+5
Function Call: WRITE	Prompt: ?125,"Page: ",PG,!,?52,RPDT,! Line Location: HDR+6
Function Call: WRITE	Prompt: !,?14,"DATE",?78,"DATE" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY" Line Location: HDR+8
Function Call: WRITE	Prompt: !,LN,!! Line Location: HDR+9
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,"^",11)]"":+$P(NODE,"^",11),1:"UNKNOWN")_" "_$P(NODE,"^",12) Line Location: COP+5
Function Call: WRITE	Prompt: !,?33,"Mfg/Lot #/Exp Date: ",$P(NODE,"^",6)_" "_$P(NODE,"^",7)_" "_$P(NODE,"^",8) Line Location: COP+6
Function Call: WRITE	Prompt: ! Line Location: COP+9
Function Call: WRITE	Prompt: !,"* VERIFIED ORDER WAS EDITED." Line Location: COP+12