Routine: PSDEXP

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC D^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	2	PRINT^PSDEXP1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD EXP REPORT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;asks sort
TMP	;set ^TMP
PRTQUE	;que print after compile
END	;
DEV	;dev & queue info
START	;compile data
SET	;set data for printing
DATE	;ask date range
ASKN	;ask NAOU(s)
SAVE

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
NOW^%DTC	ASKN+2
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3, PRTQUE+3
^DIC	ASKN+3
D^DIQ	DATE+2, DATE+4
^DIR	SORT+4
PRINT^PSDEXP1	START+5
^PSDSET	PSDEXP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"CS reports. PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDEXP+5
Function Call: WRITE	Prompt: !!,"Controlled Substances Expiration Date Report",!! Line Location: PSDEXP+6
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",! Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,"This report is designed for a 80 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+2
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+3
Routine Call	DIR Line Location: SORT+4
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	ASKN+5, START+2, START+3, START+4, SET+3, SET+4, SET+5
^PSDRUG - [#50]	SET+2
^TMP("PSDEXP"	START+1!, PRTQUE+3!, END+3!, TMP+1, TMP+2
^XUSEC("PSJ PHARM TECH"	PSDEXP+4
^XUSEC("PSJ RPHARM"	PSDEXP+4

Label References

Name	Line Occurrences
DATE	DATE+3
DEV	ASKN+7
END	DATE+1, DATE+2, ASKN+4, SORT+4, DEV+2, DEV+3
SAVE	DEV+3
SET	START+2, START+4
TMP	SET+4, SET+6

Naked Globals

Name	Field # of Occurrence
^("I"	ASKN+5
^(0	ASKN+5, SET+2, SET+3, SET+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	DATE+1!*, END+1!
%DT("A"	DATE+1, DATE+2
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ANS	ASKN+7, SORT+4, END+1!, TMP+1, TMP+2
CNT	ASKN+6*, ASKN+7, END+1!, TMP+1
DA	ASKN+2!, SORT+1!, END+1!
DIC	ASKN+2!, ASKN+3*!, END+1!
DIC("A"	ASKN+3*
DIC("S"	ASKN+3*
DIC(0	ASKN+3*
DIR	SORT+1!, SORT+4!, END+1!
DIR("?"	SORT+2, SORT+3
DIR("A"	SORT+1, SORT+4
DIR(0	SORT+1*
DIROUT	END+1!
DIRUT	SORT+1!, SORT+4, END+1!
DRUG	START+2, START+3, START+4, END+1!, SET+2, SET+5
DRUGN	END+1!, SET+2*, TMP+1, TMP+2
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDEXP+4
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
ION	DEV+3
IOP	DEV+2!
JJ	ASKN+6*, END+1!
LN	END+1!
NAOU	ASKN+4, START+2, START+3, START+4, END+1!, SAVE+1, SET+3, SET+4, SET+5
NAOU(	ASKN+3, ASKN+5, ASKN+6, START+2, START+3
NAOUN	END+1!, SET+3*, TMP+1, TMP+2
NODE	END+1!, SET+5*, SET+6
OK	PSDEXP+4*, PSDEXP+5!, END+1!
ORD	START+4*, END+1!, SET+4, SET+5
PG	END+2!
POP	DEV+2!, END+2!
PSD	ASKN+5, START+2, START+3*, START+4, END+2!, TMP+1, TMP+2
PSDATE	DATE+2, DATE+4, END+2!
PSDED	DATE+4*, START+2, START+3, END+2!
PSDIO	DEV+3*, PRTQUE+1, END+2!
PSDOUT	DATE+1, DATE+2, START+1*, END+2!
PSDPN	END+2!, SET+1, SET+6, TMP+1, TMP+2
PSDSD	DATE+2, DATE+3, DATE+4, START+2, START+3, END+2!
>> PSDSITE	PSDEXP+3, ASKN+5
PSDT	ASKN+2*, ASKN+5, END+2!
RPDT	END+2!
TYPE	END+2!, SET+4*
U	SET+6
X	ASKN+2, ASKN+4, ASKN+5, END+2!
Y	DATE+1, DATE+2, DATE+3, DATE+4, ASKN+3, SORT+4, END+2!
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!, PRTQUE+1*, END+2!
ZTIO	DEV+3, PRTQUE+1!, END+2!
>> ZTQUEUED	START+5, END+3
>> ZTREQ	END+3*
ZTRTN	DEV+3, PRTQUE+1, END+2!
ZTSAVE	DEV+3!, PRTQUE+1!, END+2!
ZTSAVE("ANS"	PRTQUE+2, SAVE
ZTSAVE("CNT"	PRTQUE+2, SAVE
ZTSAVE("NAOU("	SAVE+1*
ZTSAVE("PSDATE"	PRTQUE+2, SAVE
ZTSAVE("PSDED"	SAVE*
ZTSAVE("PSDIO"	SAVE*
ZTSAVE("PSDSD"	SAVE*
ZTSAVE("PSDSITE"	SAVE*
ZTSAVE("^TMP(""PSDEXP"",$J,"	PRTQUE+2*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDEXP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: