Routine: PSDESTF

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
Controlled Substances	2	^PSDGSRV2 ^PSDSET
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	1	PSD DEST TEXT DRUG

Entry Points

Name	Comments	DBIA/ICR reference
DIR3	;enter free-text information(comments)
DIR2
END	;kill variables
DEST	;set up file 58.86
ASKY	;ask ok to continue
ASKD	;ask disp location
MSG
PRINT	;print 2321 ; IHS/CIA/PLS - 01/28/04 - Remove reference to VA FORM #
FIND
DIR	;ask free-text drug name

External References

Name	Field # of Occurrence
NOW^%DTC	PSDESTF+6
^DIC	ASKD+4, FIND+1
^DIE	FIND+5
^DIR	DIR+2, DIR2, DIR3+2, ASKY+4
^PSDGSRV2	PRINT+7
^PSDSET	PSDESTF+4
$$FMTE^XLFDT	PRINT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please contact your Pharmacy Coordinator for access to",!,"destroy Controlled Substances.",!!,"PSJ RPHARM security key required.",! Line Location: PSDESTF+5
Function Call: WRITE	Prompt: !!,?5,"NOTE: This Holding for Destruction transaction WILL NOT update your",!,?5,"Controlled Substances inventory balance.",!! Line Location: PSDESTF+7
Function Call: WRITE	Prompt: !!,"You may create a free-text CS drug to place on hold for destruction.",!,"Your Dispensing Site inventory balance WILL NOT be updated.",!! Line Location: DIR+1
Function Call: WRITE	Prompt: !!,"You may enter free-text info regarding drug placed on hold for destruction." Line Location: DIR3+1
Function Call: WRITE	Prompt: !!,PSDRN," has been selected.",! Line Location: ASKY+1
Function Call: WRITE	Prompt: !!,"Creating an entry in the Destructions file..." Line Location: ASKY+6
Function Call: WRITE	Prompt: !!,"Your Destructions Holding number is ",PSDHLD Line Location: FIND+3
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: PRINT+2
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and 9",! Line Location: PRINT+4
Function Call: WRITE	Prompt: $C(7),!!,"WARNING: Holding for Destructions entry HAS NOT been created.",!! Line Location: MSG+0
Routine Call	DIE Line Location: FIND+5
Routine Call	DIC Line Location: ASKD+4 FIND+1
Routine Call	DIR Line Location: DIR+2 DIR2 DIR3+2 ASKY+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+5
^PSD(58.86 - [#58.86]	ASKY+7, FIND*, FIND+2, FIND+6
^XUSEC("PSJ RPHARM"	PSDESTF+5

Label References

Name	Line Occurrences
DEST	ASKD+1
DIR	ASKY+5
END	PSDESTF+5, ASKD+4, DIR+3, DIR+4, DIR2, DIR3+3, ASKY+4
FIND	FIND
MSG	DIR+3, DIR+4, DIR2, DIR3+3, ASKY+4
PRINT	PRINT+4

Naked Globals

Name	Field # of Occurrence
^(1	FIND+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSDESTF+6, END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
ALL	END+1!
CNT	END+1!
DA	ASKD+2!, DIR+2!, DIR2!, DIR3+2!, ASKY+2!, FIND+1!, FIND+4!*, FIND+5!, END+1!
DIC	ASKD+2!, ASKD+4!, FIND+1!, END+1!
DIC("A"	ASKD+3*
DIC("B"	ASKD+3*
DIC("S"	ASKD+2*
DIC(0	ASKD+2, FIND+1
DIE	FIND+4!*, FIND+5!, END+1!
>> DILOCKTM	ASKY+7
DINUM	FIND+1*!, END+1!
DIR	DIR+2!, DIR2!, DIR3+2!, ASKY+2!, ASKY+4!, END+1!
DIR("?"	ASKY+3*
DIR("A"	ASKY+2*
DIR("B"	ASKY+2*
DIR(0	DIR+2, DIR2, DIR3+2, ASKY+2
DIROUT	END+1!
DIRUT	DIR+2!, DIR+3, DIR2!, DIR2+4!, DIR3+2!, ASKY+2!, ASKY+4, END+1!
DLAYGO	FIND+1!*, END+1!
DR	FIND+4!*, FIND+5!, END+1!
DTIME	PRINT+3
DTOUT	DIR2!, DIR2+1, DIR2+4!, DIR3+3, END+1!
DUOUT	DIR2!, DIR2+1, DIR2+4!, DIR3+3, END+1!
DUZ	PSDESTF+5, PSDESTF+6
EXP	DEST+2*, PRINT+6, END+1!
EXP1	PRINT+6*, END+1!
EXPD	PRINT+6*, END+1!
LN	END+1!
LOT	DEST+2*, END+1!
MFG	DEST+2*, END+1!
NUM	PRINT+3*, PRINT+4, END+1!
PG	PRINT+6*, END+2!
PSD	END+2!
PSD(	DIR2+3*
PSD(11	FIND+4
PSD(12	FIND+4
PSD(18	FIND+4
PSD(2	FIND+4
PSD(4	FIND+4
PSDANS	DIR2*, DIR2+2, DIR2+3, END+2!
PSDCOMS	DIR3+4*, FIND+4, END+2!
PSDCT	DEST+1*, END+2!
PSDHLD	FIND*, FIND+1, FIND+3, FIND+4, FIND+6, END+2!
PSDOK	FIND+7*, END+2!
PSDOUT	PSDESTF+6, DEST+1, DIR2, DIR2+1, DIR2+2, END+2!
PSDRN	DIR+5, ASKY+1, FIND+4, FIND+6, END+2!
PSDS	ASKD+1, ASKD+5, FIND+4, END+2!
>> PSDSITE	PSDESTF+4, ASKD+1, ASKD+5*
PSDSN	ASKD+1, ASKD+3, ASKD+5, END+2!
PSDT	PSDESTF+6*, FIND+4, PRINT+5, PRINT+6, END+2!
PSDUZ	PSDESTF+6*, FIND+4, END+2!
PSDYR	PRINT+5*, PRINT+6, END+2!
RECDT	PRINT+6*, END+2!
RPDT	END+2!
RQTY	FIND+6*, END+2!
U	ASKD+1, ASKD+5
X	FIND+1*, END+2!
Y	ASKD+4, ASKD+5, DIR+4, DIR+5, DIR2+2, DIR2+3, DIR3+4, ASKY+5, PRINT+5*, END+2!
ZTDESC	END+2!
ZTDTH	END+2!
ZTIO	END+2!
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDESTF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: