Routine: PSDHRPT

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC Y^DIQ EN^DIQ1 ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	1	^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD DESTRUCTION HOLDING

Entry Points

Name	Comments	DBIA/ICR reference
ASKV	;ask vault(s)
END	;
HDR	;prints header information
START	;start looping
DEV	;select device
ASKD	;ask disp location
DONE
PRINT	;print data
SAVE	;4/5/95 added by bjw

External References

Name	Field # of Occurrence
NOW^%DTC	ASKV+2, START+2
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
^DIC	ASKV+3
Y^DIQ	DEV+1
EN^DIQ1	ASKV+8
^DIR	DONE+1, HDR+2
^PSDSET	PSDHRPT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please contact your Pharmacy Coordinator for access to",!,"the pending Controlled Substances destruction data.",!!,"PSJ RPHARM security key required.",! Line Location: PSDHRPT+4
Function Call: WRITE	Prompt: !!,?5,"You may select a single VAULT, several VAULT(s),",!,?5,"or enter ^ALL to select all VAULT(s).",! Line Location: ASKV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?10,"* NO HOLDING FOR DESTRUCTIONS *",!! Line Location: START+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: !,"=> ",$P($G(^PSD(58.8,+PVAULT,0)),U) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?24,PSDCOMS Line Location: PRINT+23
Function Call: WRITE	Prompt: ?24,REAS Line Location: PRINT+24
Function Call: WRITE	Prompt: ?24,BAREAS Line Location: PRINT+25
Function Call: WRITE	Prompt: ?24,PSDCNL Line Location: PRINT+26
Function Call: WRITE	Prompt: ?85,PSDGS,! Line Location: PRINT+27
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: !,?125,"PAGE: ",PG,!,?42,"DESTRUCTION HOLDING FILE REPORT for ",PSDSN,!,?42,"Run Date: ",RPDT,!,"=> VAULT",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"HOLD #",?13,"DRUG",?80,"# OF CONT",?92,"QTY",?102,"TURN IN",?115,"DATE HLD#",?127,"PHARM",!,?15,"COMMENTS",?85,"GS#",?104,"DATE",?115,"CANCELLED",!,LN,! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKV+3
Routine Call	DIR Line Location: DONE+1 HDR+2
Routine Call	%ZIS Line Location: DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASKV+2, START+2, PRINT+11, PRINT+12
^DD(58.8	DEV+1
^PSD(58.8 - [#58.8]	ASKV+5, ASKV+9, DEV+1, PRINT+8
^PSD(58.81 - [#58.81]	PRINT+20
^PSD(58.86 - [#58.86]	START+4, PRINT+7, PRINT+9, PRINT+12, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+21, PRINT+22
^PSDRUG - [#50]	PRINT+9
^VA(200 - [#200]	PRINT+10
^XMB(1 - [#4.3]	ASKV+7
^XUSEC("PSJ RPHARM"	PSDHRPT+4

Label References

Name	Line Occurrences
END	PSDHRPT+4, ASKV+4, DEV+2, DEV+3
HDR	START+3, PRINT+5
PRINT	START+4
SAVE	DEV+3

Naked Globals

Name	Field # of Occurrence
^("I"	ASKV+5
^(0	ASKV+5, START+4, PRINT+20
^(2	PRINT+15
^(3	PRINT+17, PRINT+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ALL	END+1!, SAVE+2
BAREAS	END+2!, PRINT+19, PRINT+20, PRINT+25
C	DEV+1*, END+1!
CNT	START+3, START+4, START+5, END+1!
DA	ASKV+2!, ASKV+7*, ASKV+9, ASKV+10!, END+1!, HDR+2!
DIC	ASKV+2!, ASKV+3!, ASKV+7, ASKV+8!, END+1!
DIC("A"	ASKV+3*
DIC("S"	ASKV+3*
DIC(0	ASKV+3*
DIQ	ASKV+7*, ASKV+8!
DIR	DONE+1!, END+1!, HDR+2!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+2
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DR	ASKV+7*, ASKV+8!
DRUG	END+1!, PRINT+7*, PRINT+9
DRUGN	END+1!, PRINT+9*, PRINT+21, PRINT+22
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDHRPT+4
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HDR+3
IOP	DEV+2!
IOSL	PRINT+5
IOST	DONE, DONE+1, HDR+2
JJ	ASKV+6*, ASKV+9, END+1!, PRINT+8
LN	START+3!*, END+1!, HDR+4
NODE	END+1!, PRINT+7*, PRINT+8, PRINT+10, PRINT+11, PRINT+13
PG	START+3, END+2!, HDR+2, HDR+3
PHARM	END+2!, PRINT+10*
PHARMN	END+2!, PRINT+10*, PRINT+21, PRINT+22
POP	DEV+2!, END+2!
PSD	ASKV+5, ASKV+10!, START+4, END+2!, PRINT+7, PRINT+9, PRINT+12, PRINT+15, PRINT+16, PRINT+17 , PRINT+18, PRINT+21, PRINT+22
PSD(4	ASKV+9
PSDCD	END+2!, PRINT+12*, PRINT+21, PRINT+22
PSDCNL	END+2!, PRINT+6, PRINT+17, PRINT+18*, PRINT+26
PSDCOMS	END+2!, PRINT+6, PRINT+15, PRINT+16*, PRINT+23
PSDCONT	END+2!, PRINT+13*, PRINT+21, PRINT+22
PSDCYR	END+2!, PRINT+12*
PSDEV	DEV+1*, DEV+2, END+2!
PSDGS	END+2!, PRINT+19, PRINT+20, PRINT+27
PSDOUT	START+3, START+4, DONE+1, END+2!, PRINT+5, HDR+2
PSDS	ASKD+1*, DEV+1, END+2!
>> PSDSITE	PSDHRPT+3, ASKD+1, ASKV+5
PSDSN	ASKD+1, ASKV+9, END+2!, HDR+3
PSDT	ASKV+2, ASKV+5, END+2!, PRINT+11, PRINT+21, PRINT+22
PSDTR	END+2!, PRINT+7*, PRINT+20
PSDVAU	ASKV+4, END+2!, SAVE+2
PSDVAU(	ASKV+3, ASKV+5, ASKV+6, START+4
PSDVAU(0	ASKV+6, ASKV+9
PSDYR	END+2!, PRINT+11*
PVAULT	END+2!, PRINT+8*
QTY	END+2!, PRINT+10*, PRINT+21, PRINT+22
REAS	END+2!, PRINT+19, PRINT+20, PRINT+24
RPDT	ASKV+2, START+2, END+2!, HDR+3
U	ASKD+1, ASKV+7, ASKV+9, PRINT+8, PRINT+20
X	ASKV+2, ASKV+4, ASKV+5, START+2, END+2!
Y	ASKV+2, ASKV+3, DEV+1, START+2, END+2!, PRINT+11, PRINT+12*, HDR+2
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!, END+2!
ZTIO	DEV+3!, END+2!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+3*, END+2!
ZTSAVE	DEV+3!, END+2!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("BAREAS"	SAVE+1*
ZTSAVE("JJ"	SAVE+1*
ZTSAVE("PSDCNL"	SAVE+1*
ZTSAVE("PSDCOMS"	SAVE+1*
ZTSAVE("PSDGS"	SAVE+1*
ZTSAVE("PSDS"	SAVE+1*
ZTSAVE("PSDSN"	SAVE+1*
ZTSAVE("PSDTR"	SAVE+1*
ZTSAVE("PSDVAU("	SAVE+2*
ZTSAVE("REAS"	SAVE+1*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDHRPT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: