Routine: PSDGSRV2

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	Y^DIQ ^DIR

Package	Total	Caller Graph
Controlled Substances	6	PSDESTF PSDESTO PSDGSRV1 PSDNTF PSDNTFPC PSDRPT

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+2
^%ZTLOAD	DEV+4
Y^DIQ	DEV+2
^DIR	DONE+1

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
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIR Line Location: DONE+1
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	DEV+2, PRINT+1, HDR+1
^TMP("PSDESTO"	START, START+1, PRTMP+2

Label References

Name	Line Occurrences
END	DEV+4
HDR	PRTMP+2
PRINT	START
PRTMP	START+1
SAVE	DEV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+3!*, END+1!
%ZIS("B"	DEV+3*
>> AOUN	PRINT+12, PRTMP+9, SAVE+4
C	DEV+2*, END+1!
COMP	END+1!, PRINT+12, PRTMP+9, SAVE+3
CPBY	END+1!
DIR	DONE+1!
DIR("A"	DONE+1*
DIR(0	DONE+1*
DIRUT	DONE+1!
EXP	END+1!, PRINT+8, PRTMP+5
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOF	DONE, PRINT+1, HDR+1
IOP	DEV+3!
IOST	DONE, DONE+1
JJ	START, END+1!, PRTMP+2
LN	START!*, END+1!, PRINT+5, HDR+5
LOT	END+1!, PRINT+8, PRTMP+5
MFG	END+1!, PRINT+8, PRTMP+5
>> NAOUTN	PRINT+12, PRTMP+9, SAVE+4
NBKU	END+1!
NODE	END+1!, PRTMP+2*, PRTMP+4, PRTMP+8
NUM	START, END+1!, PRTMP+2
OCOMP	END+1!
>> OK	DEV+2
PG	END+1!, PRINT+1, PRINT+2, HDR+1, HDR+2
POP	DEV+3!, END+1!
PSDA	END+1!
PSDCOMS	END+1!, PRINT+11, SAVE+7
PSDCT	END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDHLD	END+1!, PRINT+6, PRTMP+1, PRTMP+2, PRTMP+3, PRTMP+4, SAVE+2
PSDOK	END+1!, PRINT+9, PRTMP+6, SAVE+6
PSDOUT	DONE+1, END+1!
PSDPN	END+1!, PRINT+7, SAVE+2
PSDR	END+1!
PSDRN	END+1!, PRINT+7
PSDS	DEV+2, END+1!, PRINT+1, HDR+1, SAVE+3
PSDTYP	END+1!
PSDUZ	END+1!
REAS	END+1!, PRINT+12, PRTMP+9
RECDT	END+1!, PRINT+2, PRINT+7, HDR+2
>> REPRINT	PRINT+1, HDR+1, SAVE+5
RQTY	END+1!, PRINT+7
X	END+1!
Y	DEV+2*, END+1!
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!, END+1!
ZTIO	DEV+4!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("AOUN"	SAVE+4*
ZTSAVE("COMP"	SAVE+3*
ZTSAVE("EXP"	SAVE+1*
ZTSAVE("LOT"	SAVE+1*
ZTSAVE("MFG"	SAVE+1*
ZTSAVE("NAOUTN"	SAVE+4*
ZTSAVE("NUM"	SAVE+1*
ZTSAVE("PG"	SAVE+1*
ZTSAVE("PSDCOMS"	SAVE+1, SAVE+7
ZTSAVE("PSDHLD"	SAVE+2*
ZTSAVE("PSDOK"	SAVE+6*
ZTSAVE("PSDPN"	SAVE+2*
ZTSAVE("PSDRN"	SAVE+1*
ZTSAVE("PSDS"	SAVE+3*
ZTSAVE("REAS"	SAVE+1*
ZTSAVE("RECDT"	SAVE+1*
ZTSAVE("REPRINT"	SAVE+5*
ZTSAVE("RQTY"	SAVE+1*
ZTSAVE("^TMP(""PSDESTO"",$J,"	SAVE+8*
ZTSK	DEV+4!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDGSRV2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: