Routine: PSDESTO

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

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC ^DIE ^DIR

Controlled Substances

^PSDGSRV2 ^PSDSET

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	1	PSD DEST NON-CS DRUG

Package

Total

Caller Graph

Controlled Substances

PSD DEST NON-CS DRUG

Entry Points

Name	Comments	DBIA/ICR reference
DIR2
END	;kill variables
DEST	;set up file 58.86
ASKY	;ask ok to continue
DRUG	;ask non-inv CS drug
ASKD	;ask disp location
RPTCPY	;ask # of report copies
MSG
TEMPX	;build temp file added june 96
COM
FIND
DIR	;enter free-text information

Name	Field # of Occurrence
NOW^%DTC	PSDESTO+6
^DIC	ASKD+4, DRUG+2, FIND+1
^DIE	FIND+5
^DIR	DIR2, COM, ASKY+4
^PSDGSRV2	RPTCPY+5
^PSDSET	PSDESTO+4
$$FMTE^XLFDT	TEMPX+2

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: PSDESTO+5
Function Call: WRITE	Prompt: !!,?5,"NOTE: This Holding for Destruction transaction WILL NOT update your",!,?5,"Controlled Substances inventory balance.",!! Line Location: PSDESTO+7
Function Call: WRITE	Prompt: !!,"You may select a Controlled Substances drug to place on hold for destruction.",!,"Your Dispensing Site inventory balance WILL NOT be updated.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,"You may enter free-text info regarding drug placed on hold for destruction." Line Location: DIR+1
Function Call: WRITE	Prompt: !,"A semicolon is not allowed in the COMMENTS field. Please edit your entry.",! Line Location: COM+3
Function Call: WRITE	Prompt: !!,PSDRN," has been selected.",! Line Location: ASKY+1
Function Call: WRITE	Prompt: !!,"Select a new CS drug to place on hold for destruction",!! Line Location: ASKY+5
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: RPTCPY+3
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: RPTCPY+3
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: RPTCPY+4
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: RPTCPY+4
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and 9",! Line Location: RPTCPY+6
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 DRUG+2 FIND+1
Routine Call	DIR Line Location: DIR2 COM ASKY+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TEMPX+1
^PSD(58.86 - [#58.86]	ASKY+7, FIND*, FIND+2, FIND+6
^TMP("PSDESTO"	TEMPX+3*, END+3!
^XUSEC("PSJ RPHARM"	PSDESTO+5

Name	Line Occurrences
COM	COM+3
DRUG	ASKD+1, ASKY+5, TEMPX+3
END	PSDESTO+5, ASKD+4, DRUG+2, DIR2, COM+1, ASKY+4, RPTCPY+1, RPTCPY+4, RPTCPY+5
FIND	FIND
MSG	DIR2, COM+1, ASKY+4
RPTCPY	DRUG+2, RPTCPY+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSDESTO+6, END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
ALL	END+1!
CNT	END+1!
DA	ASKD+2!, DRUG+2!, DIR2!, COM!, ASKY+2!, FIND+1!, FIND+4!*, FIND+5!, END+1!
DIC	ASKD+2!, ASKD+4!, DRUG+2!, FIND+1!*, END+1!
DIC("A"	ASKD+3, DRUG+2
DIC("B"	ASKD+3*
DIC("S"	ASKD+2, DRUG+2
DIC(0	ASKD+2, DRUG+2, FIND+1*
DIE	FIND+4!*, FIND+5!, END+1!
>> DILOCKTM	ASKY+7
DINUM	FIND+1*, END+1!
DIR	DIR2!, COM!, ASKY+2!, ASKY+4!, END+1!
DIR("?"	ASKY+3*
DIR("A"	ASKY+2*
DIR("B"	ASKY+2*
DIR(0	DIR2, COM, ASKY+2*
DIROUT	END+1!
DIRUT	DIR2!, DIR2+4!, COM!, ASKY+2!, ASKY+4, END+1!
DLAYGO	FIND+1!*, END+1!
DR	FIND+4!*, FIND+5!, END+1!
DTIME	RPTCPY+4
DTOUT	DRUG+2, DIR2!, DIR2+1, DIR2+4!, COM+1, END+1!
DUOUT	DRUG+2, DIR2!, DIR2+1, DIR2+4!, COM+1, END+1!
DUZ	PSDESTO+5, PSDESTO+6
EXP	DEST+2*, TEMPX+2, END+1!
EXP1	TEMPX+2*, END+1!
EXPD	TEMPX+2*, END+1!
LN	END+1!
LOT	DEST+2*, END+1!
MFG	DEST+2*, END+1!
NUM	RPTCPY+4*, RPTCPY+5, RPTCPY+6, END+1!
PG	TEMPX+2*, END+2!
PSD	DIR2!, 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	COM+2*, COM+3, FIND+4, TEMPX+3, END+2!
PSDCT	DEST+1*, END+2!
PSDHLD	FIND*, FIND+1, FIND+3, FIND+4, FIND+6, TEMPX+3, RPTCPY+1, END+2!
PSDOK	FIND+7*, END+2!
PSDOUT	DEST+1, DIR2, DIR2+1, DIR2+2*, END+2!
PSDR	DRUG+3*, FIND+4, END+2!
PSDRN	DRUG+3*, ASKY+1, TEMPX+3, END+2!
PSDS	ASKD+1, ASKD+5, FIND+4, END+2!
>> PSDSITE	PSDESTO+4, ASKD+1, ASKD+5*
PSDSN	ASKD+1, ASKD+3, ASKD+5, END+2!
PSDT	PSDESTO+6*, FIND+4, TEMPX+1, TEMPX+2, END+2!
PSDUZ	PSDESTO+6*, FIND+4, END+2!
PSDYR	TEMPX+1*, TEMPX+2, END+2!
RECDT	TEMPX+2*, TEMPX+3, END+2!
RPDT	END+2!
RQTY	FIND+6*, TEMPX+3, END+2!
U	ASKD+1, ASKD+5
X	FIND+1*, END+2!
Y	ASKD+4, ASKD+5, DRUG+2, DRUG+3, DIR2+2, DIR2+3, COM+2, ASKY+5, TEMPX+1*, 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: PSDESTO

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

Local Variables

Legend: