Routine: PSDGSRV2

Name	Comments	DBIA/ICR reference
DEV	;asks device and queueing information
START
DONE
END	;
PRINT	;print 2321 for ret/stk and destroys(psdcoms added for e3r# 3771)
HDR	;5/16/96 added Hdr,Prtmp for ret/stk or destroys
PRTMP	; print 2321 fr temp file
SAVE	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?55,"* REPRINT *" Condition for execution: $D(REPRINT) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?5,"VA FORM 10-2321",?42,"Narcotic Dispensing/Receiving Report for ",$P($G(^PSD(58.8,+PSDS,0)),"^") Line Location: PRINT+1
Function Call: WRITE	Prompt: ?120,"Page: ",PG,!,?52,RECDT,! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?14,"DATE",?78,"DATE" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,LN,!! Line Location: PRINT+5
Function Call: WRITE	Prompt: PSDPN Condition for execution: $D(PSDPN) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?12,RECDT,?24,RQTY,?33,PSDRN Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?33,"Mfg/Lot #/Exp Date: ",MFG_" "_LOT_" "_EXP,! Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,?7,$S($D(PSDOK):"Witnessed",1:"Disp")," by:___________________________________",?61,$S($D(PSDOK):"Witnessed",1:"Rec'd")," by:___________________________________" Line Location: PRINT+9
Function Call: WRITE	Prompt: !,?15,"(Full Name)",?69,"(Full Name)",! Line Location: PRINT+10
Function Call: WRITE	Prompt: !!!,?15,"* ",$S(COMP=999:"TRANSFERRED BETWEEN NAOUs",COMP=3:"RETURNED TO STOCK",1:"TURNED IN FOR DESTRUCTION")," * ",REAS Line Location: PRINT+12
Function Call: WRITE	Prompt: " from "_AOUN_" to "_NAOUTN Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: PRINT+13
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,?55,"* REPRINT *" Condition for execution: $D(REPRINT) Line Location: HDR+1
Function Call: WRITE	Prompt: !,?5,"VA FORM 10-2321",?42,"Narcotic Dispensing/Receiving Report for ",$P($G(^PSD(58.8,+PSDS,0)),"^") Line Location: HDR+1
Function Call: WRITE	Prompt: ?120,"Page: ",PG,!,?52,RECDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?14,"DATE",?78,"DATE" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY" Line Location: HDR+4
Function Call: WRITE	Prompt: !,LN,!! Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?12,$P(NODE,"^",2),?24,$P(NODE,"^",4),?33,$P(NODE,"^",3) Line Location: PRTMP+4
Function Call: WRITE	Prompt: !,?33,"Mfg/Lot #/Exp Date: ",MFG_" "_LOT Line Location: PRTMP+5
Function Call: WRITE	Prompt: !!!,?15,"* ",$S(COMP=999:"TRANSFERRED BETWEEN NAOUs",COMP=3:"RETURNED TO STOCK",1:"TURNED IN FOR DESTRUCTION")," * ",REAS Line Location: PRTMP+9
Function Call: WRITE	Prompt: " from "_AOUN_" to "_NAOUTN Line Location: PRTMP+9

Customize PDF page

Package: Controlled Substances

Routine: PSDGSRV2

Information

Source Information

Entry Points

Interaction Calls