Routine: PSDRPT

Package	Total	Call Graph
Controlled Substances	2	^PSDGSRV2 ^PSDSET
VA Fileman	2	(,IX)^DIC ^DIR
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Controlled Substances

^PSDGSRV2 ^PSDSET

VA Fileman

(,IX)^DIC ^DIR

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	2	PSD NURSE REPRINT 2321 PSDRDR

Package

Total

Caller Graph

Controlled Substances

PSD NURSE REPRINT 2321 PSDRDR

Entry Points

Name	Comments	DBIA/ICR reference
GS	;select green sheet #
LOOK	;lookup destructions #
CHK	;check for type of destructions
MSG1
MSG	;check and write msg if not ok
PRINT	;print 2321
END
ASKN	;ask transfer from naou
TYPE	;select type return to stock or turn in for destruction

Name	Field # of Occurrence
^DIC	ASKN+3, LOOK+3
IX^DIC	GS+5
^DIR	TYPE+5, CHK+3
^PSDGSRV2	PRINT+10
^PSDSET	PSDRPT+3
$$FMTE^XLFDT	PRINT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to reprint",!,?12,"this transfer copy of VA FORM 10-2321.",!!,"PSJ RNURSE, PSD NURSE, or PSJ RPHARM security key required.",! Line Location: PSDRPT+5
Function Call: WRITE	Prompt: !!,"Reprint Transfer Between NAOUs VA FORM 10-2321",! Line Location: PSDRPT+6
Function Call: WRITE	Prompt: $C(7),!,"Please note that you may reprint only the copy of the VA FORM 10-2321 for",!,"Green Sheets transferred from your NAOU that have NOT BEEN RECEIVED on",!,"the transfer to NAOU.",! Line Location: PSDRPT+7
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: CHK+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and 9",! Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"Green Sheet #",PSDPN," has not been ",$S(TYPE=1:"returned to stock",TYPE=2:"turned in for destruction",1:"transferred between NAOUs"),".",! Line Location: MSG+1
Function Call: WRITE	Prompt: !,"No Reprint of VA FORM 10-2321",!! Line Location: MSG1+0
Function Call: WRITE	Prompt: ! Line Location: LOOK+2
Routine Call	DIC Line Location: ASKN+3 LOOK+3
Routine Call	DIR Line Location: TYPE+5 CHK+3
Routine Call	DIC Line Location: GS+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+7
^PSD(58.8 - [#58.8]	GS+11
^PSD(58.81 - [#58.81]	GS+8, GS+9, GS+10, GS+11
^PSD(58.86 - [#58.86]	PRINT+3, LOOK+4
^PSDRUG - [#50]	GS+6, LOOK+4
^XUSEC("PSD NURSE"	PSDRPT+4
^XUSEC("PSJ RNURSE"	PSDRPT+4
^XUSEC("PSJ RPHARM"	PSDRPT+4

Name	Line Occurrences
END	ASKN+3, TYPE+5, CHK+3, CHK+4, GS+5, GS+8, GS+9
GS	ASKN+4, TYPE+6
LOOK	CHK+4
MSG	GS+8, GS+9
MSG1	CHK+3, LOOK+3
PRINT	CHK+4, PRINT+6

Name	Field # of Occurrence
^(2	PRINT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	END!
%H	END!
%I	END!
AOU	ASKN+3*, END!
AOUN	ASKN+3*, END!
COMP	PRINT+5*, END!
D	GS+1*, END!
DA	ASKN+1!, TYPE+1!, CHK+1!, GS+1!, END!, LOOK+2!
DIC	ASKN+1!, ASKN+3!, GS+1!, GS+5!, END!, LOOK+2!*, LOOK+3!
DIC("A"	ASKN+1, GS+1, LOOK+2*
DIC("S"	ASKN+2, GS+2, GS+3, GS+4, LOOK+3*
DIC(0	ASKN+1, GS+1, LOOK+2*
DIE	END!
DIR	TYPE+1!, TYPE+5!, CHK+1!, CHK+3!, END!
DIR("?"	TYPE+3, TYPE+4, CHK+2*
DIR("A"	TYPE+2, CHK+1
DIR("B"	CHK+1*
DIR(0	TYPE+1, CHK+1
DIROUT	END!
DIRUT	TYPE+1!, TYPE+5, CHK+1!, CHK+3, END!
DR	END!
DTIME	PRINT+4
DTOUT	END!
DUOUT	END!
DUZ	PSDRPT+4
EXP	GS+7, PRINT+9, END!, LOOK+5*
EXP1	PRINT+9*, END!
EXPD	PRINT+9*, END!
LOT	GS+7, END!, LOOK+5
MFG	GS+7, END!, LOOK+5
NAOUT	GS+11*, END+1!
NAOUTN	GS+11*, END+1!
NODE	GS+10, GS+11, END+1!
NUM	PRINT+4*, PRINT+6, END+1!
OK	PSDRPT+4*, PSDRPT+5!, END+1!
ORD	END+1!
PG	PRINT+8*, END+1!
PSDA	GS+5*, GS+8, GS+9, GS+10, GS+11, END+1!
PSDCOMS	PRINT+3*, END+1!
PSDHLD	GS+10, PRINT+3, END+1!, LOOK+4
PSDOK	END+1!, LOOK+4*
PSDOUT	CHK+4, GS+8, GS+9, PRINT+8, END+1!, MSG1+1, LOOK+1*
PSDPN	GS+6*, END+1!, MSG+1
PSDR	GS+6, END+1!, LOOK+4
PSDRN	GS+6, END+1!, LOOK+4, LOOK+5*
PSDS	GS+7*, END+1!
>> PSDSITE	PSDRPT+3
PSDSN	END+1!
PSDTYP	END+1!
PSDUZ	END+1!
PSDYR	PRINT+7*, PRINT+8, END+1!
REAS	GS+10, PRINT+2, END+1!
RECD	GS+10, GS+11, PRINT+7, PRINT+8, END+1!, LOOK+4*
RECDT	PRINT+8*, END+1!
REPRINT	PRINT+2*, END+1!
RQTY	GS+10, GS+11, END+1!, LOOK+4*
STAT	END+1!
STATN	END+1!
SUM	END+1!
TYPE	ASKN+4, TYPE+5, TYPE+6, GS+2, GS+3, GS+4, GS+8, GS+9, GS+10, GS+11 , PRINT+5, END+1!, MSG+1
X	END+1!
Y	ASKN+3, TYPE+5, CHK+4, GS+5, PRINT+7*, END+1!, LOOK+3, LOOK+4
Y(0	GS+6, GS+7, LOOK+4

Customize PDF page

Package: Controlled Substances

Routine: PSDRPT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: