Routine: PSDESTP

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

Package	Total	Caller Graph
Controlled Substances	1	PSD DEST DRUGS REPORT

Entry Points

Name	Comments	DBIA/ICR reference
ASKD	;ask disp location
ASKV	;ask vault(s)
ASKV2	;
DRUG	;ask drug
SKIP
DATE	;ask date range
DEV	;select device
START	;start looping
PRINT	;prints data,L-6 added 8/24/95 accum summ.total,10/20/95 chgs made
DONE	;
END	;
HDR	;prints header information
GTOT	;10/20/95 msg added,grand total,inserted 8/24/95
SAVE	;saves variables for queueing
SET	;sets data;10/20/95 added bal.adj comms. PBACOM

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
NOW^%DTC	ASKV+2, START+2
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+5
^%ZTLOAD	DEV+4
^DIC	ASKV+3, DRUG+5, DRUG+6
D^DIQ	DATE+2, DATE+4
Y^DIQ	DEV+2
EN^DIQ1	ASKV2+5
^DIR	DONE+2, HDR+1
^PSDSET	PSDESTP+4

Interaction Calls

Name	Line Occurrences
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: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+2
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: !!,"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+3
Function Call: WRITE	Prompt: !!,?10,"* NO CONTROLLED SUBSTANCE DESTRUCTIONS *",!! Line Location: START+9
Function Call: WRITE	Prompt: "=> ",$P($G(^PSD(58.8,+PVAULT,0)),U),! Condition for execution: JJ=1 Line Location: PRINT+5
Function Call: WRITE	Prompt: "Drug: ",PSDRN Line Location: PRINT+5
Function Call: WRITE	Prompt: ?60 Line Location: PRINT+5
Function Call: WRITE	Prompt: "GS #: ",$P(NODE,U,8) Condition for execution: $P(NODE,"^",8) Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Quantity: ",$P(NODE,"^"),!,"Cost of above Qty: ",$P(NODE,U,11) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+1
Function Call: WRITE	Prompt: !! Line Location: DONE+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?70,"PAGE: ",PG,!,?15,"DESTROYED CS DRUGS REPORT for ",PSDSN Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,"Period From: ",$P(PSDATE,"^")," to: ",$P(PSDATE,"^",2),!,?15,"Run Date: ",RPDT,!!,"=> VAULT",!,LN,! Line Location: HDR+3
Function Call: WRITE	Prompt: !!!!?50,"Summary Total: ",PSDTOT Line Location: GTOT+2
Function Call: WRITE	Prompt: !!!?15,"* Drugs returned by a patient ARE NOT ADDED to Summary Total*" Line Location: GTOT+3
Routine Call	DIC Line Location: ASKV+3 DRUG+5 DRUG+6
Routine Call	DIR Line Location: DONE+2 HDR+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+4

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, SET+8, SET+12
^DD(58.8	DEV+2
^DPT - [#2]	SET+15
^PSD(58.8 - [#58.8]	ASKV2+2, ASKV2+6, DEV+2, PRINT+5
^PSD(58.81 - [#58.81]	SET+5
^PSD(58.86 - [#58.86]	START+4, START+5, START+6, START+7, START+8, SET+4, SET+10, SET+11, SET+12, SET+13 , SET+14
^PSDRUG - [#50]	SET+4, SET+7
^TMP("PSDESTP"	START+1!, PRINT+2, PRINT+4, END+4!, SET+16*
^VA(200 - [#200]	SET+6, SET+13
^XMB(1 - [#4.3]	ASKV2+4
^XUSEC("PSD TECH ADV"	PSDESTP+5
^XUSEC("PSJ RPHARM"	PSDESTP+5

Label References

Name	Line Occurrences
DATE	DATE+3
DONE	START+9
END	PSDESTP+5, ASKV2+1, SKIP, DATE+1, DATE+2, DEV+3, DEV+4
GTOT	PRINT+2
HDR	START+9, PRINT+1, PRINT+2, PRINT+3
SAVE	DEV+4
SET	START+6, START+8
SKIP	DRUG+4

Naked Globals

Name	Field # of Occurrence
^("I"	ASKV2+2
^(0	ASKV2+2, SET+6, SET+13, SET+15

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+3!*, END+1!
%ZIS("B"	DEV+3*
ALL	SKIP+1*, START+6, START+7, END+1!, SAVE+2
C	DEV+2*, END+1!
CNT	START+3, START+9, END+1!, SET+1
DA	ASKV+2!, ASKV2+4*, ASKV2+5!, DRUG+2!, END+1!, HDR+1!
DA(1	DRUG+6*
DIC	ASKV+2!, ASKV+3!, ASKV2+4, ASKV2+5!, DRUG+2!, DRUG+5!, DRUG+6!, END+1!
DIC("A"	ASKV+3, DRUG+5
DIC("S"	ASKV+3*
DIC("W"	DRUG+6*
DIC(0	ASKV+3, DRUG+5, DRUG+6*
DIQ	ASKV2+4*, ASKV2+5!
DIR	DONE+2!, END+1!, HDR+1!
DIR("A"	DONE+2*
DIR(0	DONE+2, HDR+1
DIROUT	END+1!
DIRUT	DONE+2!, END+1!
DR	ASKV2+4*, ASKV2+5!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDESTP+5
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOF	DONE+1, HDR+2
IOP	DEV+3!
IOSL	PRINT+2, PRINT+3
IOST	DONE+1, DONE+2, HDR+1
JJ	ASKV2+3*, ASKV2+6, PRINT+5, END+2!
LN	START+3!*, END+1!, HDR+3
NODE	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, END+1! , SET+4, SET+5, SET+6, SET+15
PBACOM	END+2!, SET+3, SET+5, SET+16
PG	START+3, END+2!, HDR+1, HDR+2
PHARM	END+2!, SET+6*
PHARMC	END+2!, SET+13*
PHARMN	END+2!, SET+6*, SET+16
PHARMNC	END+2!, SET+13*, SET+16
POP	DEV+3!, END+2!
PPDU	END+2!, SET+7*
PSD	ASKV2+2, ASKV2+5, ASKV2+6!, START+4, START+5, START+6, START+7, START+8, END+2!, SET+8 , SET+9
PSD(4	ASKV2+5
PSDA	START+6, START+8, PRINT+2*, PRINT+4, PRINT+5, END+2!, SET+4, SET+10, SET+11, SET+12 , SET+13, SET+14, SET+16
PSDATE	DATE+2, DATE+4, END+2!, HDR+3
PSDCD	END+2!, SET+12*, SET+16
PSDCOM3	END+2!, SET+14*, SET+16
PSDCOMS	END+2!, SET+11*, SET+16
PSDCYR	END+2!, SET+12*
PSDED	DATE+4*, START+4, START+7, END+2!
PSDEV	DEV+2*, DEV+3, END+2!
PSDGS	END+2!, SET+3, SET+5, SET+16
PSDN	START+8*, END+2!
PSDOUT	DATE+1, DATE+2, START+3, PRINT+2, PRINT+3, DONE+2, END+2!, HDR+1, GTOT+1
PSDPAT	END+2!, SET+15*
PSDPATR	END+2!, SET+15*, SET+16
PSDPDU	END+2!, SET+7*, SET+16
PSDR	START+5, START+6, END+2!, SET+2, SET+4, SET+7
PSDRG	SKIP, END+2!, SAVE+2
PSDRG(	DRUG+5, DRUG+7, START+6
PSDRN	PRINT+2, PRINT+4, PRINT+5, END+2!, SET+4, SET+16
PSDS	ASKD+1, DRUG+3, DRUG+4, DRUG+6, DEV+2, START+4, START+5, START+6, START+7, START+8 , END+2!
PSDSD	DATE+2, DATE+3, DATE+4, START+4, START+7, END+2!
>> PSDSITE	PSDESTP+4, ASKD+1, ASKV2+2
PSDSN	ASKD+1, ASKV2+6, END+2!, HDR+2
PSDT	ASKV+2, ASKV2+2, END+2!, SET+9, SET+16
PSDTOT	START+3, PRINT+6, END+2!, GTOT+2
PSDTR	END+2!, SET+5*
PSDVAU	END+2!, SAVE+3
PSDVAU(	ASKV+3, ASKV2+2, ASKV2+3, DRUG+4, START+4, START+7
PSDVAU(0	ASKV2+1, ASKV2+3, ASKV2+6, DRUG+3
PSDYR	END+2!, SET+8*, SET+9
PVAULT	PRINT+5, END+2!, SET+10, SET+16
QTY	END+3!, SET+6*, SET+7, SET+16
RPDT	ASKV+2, START+2, END+3!, HDR+3
U	ASKD+1, ASKV2+4, ASKV2+6, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11 , PRINT+12, SET+5, SET+7
X	ASKV+2, ASKV2+1, ASKV2+2, SKIP, SKIP+1, START+2, END+3!
Y	ASKV+2, ASKV+3, DRUG+5, DRUG+6, DRUG+7, DATE+1, DATE+2, DATE+3, DATE+4, DEV+2 , START+2, END+3!, HDR+1, SET+8, SET+12*
ZTDESC	DEV+4*, END+3!
ZTDTH	DEV+4!, END+3!
ZTIO	DEV+4!, END+3!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	DEV+4*, END+3!
ZTSAVE	DEV+4!, END+3!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("JJ"	SAVE+1*
ZTSAVE("PSDATE"	SAVE+1*
ZTSAVE("PSDED"	SAVE+1*
ZTSAVE("PSDRG("	SAVE+2*
ZTSAVE("PSDS"	SAVE+1*
ZTSAVE("PSDSD"	SAVE+1*
ZTSAVE("PSDSN"	SAVE+1*
ZTSAVE("PSDTOT"	SAVE+1*
ZTSAVE("PSDVAU("	SAVE+3*
ZTSK	DEV+4!, END+3!

Customize PDF page

Package: Controlled Substances

Routine: PSDESTP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

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: