Routine: PSDBAN

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
Controlled Substances	3	DEV^PSDBAN1 START^PSDNSCG ^PSDSET
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT

Controlled Substances

DEV^PSDBAN1 START^PSDNSCG ^PSDSET

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Controlled Substances	3	PSD NAOU BALANCE REPORT PSDADJC PSDADJIN

Package

Total

Caller Graph

Controlled Substances

PSD NAOU BALANCE REPORT PSDADJC PSDADJIN

Name	Comments	DBIA/ICR reference
ALL	;asks for all orders
SAVE
END
HDR	;header for log
DEV	;ask device and queue info
START	;loops thru DRUGS
DONE
DRUG	;select drugs
PRINT	;prints the report
ASKN	;ask naou

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+2
^%ZTLOAD	DEV+3
^DIC	ASKN+3, DRUG+2
^DIR	ALL+6, DONE+1, HDR+1
DEV^PSDBAN1	ALL+7
START^PSDNSCG	END
^PSDSET	PSDBAN+2
$$HTE^XLFDT	PRINT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this report.",! Line Location: PSDBAN+4
Function Call: WRITE	Prompt: ! Line Location: ALL+2
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,"Balance: ",$P($G(^PSD(58.8,NAOU,1,+Y,0)),U,4)," ",$S($P($G(^PSD(58.8,NAOU,1,+Y,0)),U,8)]"":$P($G(^(0)),U,8),1:$P($G(^PSDRUG(+Y,660)),U,8)),!! Line Location: DRUG+2
Function Call: WRITE	Prompt: !!,"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
Function Call: WRITE	Prompt: !!,"Give me a second or two to alphabetize.",! Line Location: START+2
Function Call: WRITE	Prompt: !!,?10,"** NO BALANCES TO REPORT **" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,?62,$G(^TMP("PSDNST",$J,PSDR)),! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?2,"=> ",PSDR,?62,$G(^TMP("PSDNSU",$J,PSDR)),! Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?25,"Controlled Substance Balances",?70,"Page: ",PG,!,?35,NAOUN,!,?25,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> DRUG",?62,"QUANTITY",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+3 DRUG+2
Routine Call	DIR Line Location: ALL+6 DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	DRUG+2, START+5, START+6
^PSDRUG - [#50]	DRUG+2, START+6
^TMP("PSDNST"	START+4!, START+6*, PRINT+2, PRINT+3, END+1!
^TMP("PSDNSU"	END+1!
^XUSEC("PSD NURSE"	PSDBAN+3
^XUSEC("PSJ PHARM TECH"	PSDBAN+3
^XUSEC("PSJ RNURSE"	PSDBAN+3
^XUSEC("PSJ RPHARM"	PSDBAN+3

Name	Line Occurrences
DEV	ALL+7
END	ASKN+3, ALL+6, DRUG+2, DEV+2, DEV+3, PRINT+2, PRINT+4
HDR	PRINT+2
SAVE	DEV+3

Name	Field # of Occurrence
^(0	DRUG+2, START+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
%ZIS	DEV+2!*, END!
%ZIS("B"	DEV+2*
ALL	ALL+6*, ALL+7, END!
DA	ASKN+1!, ALL+2!, DRUG+1!, END!, HDR+1!
DA(1	DRUG+2*
DIC	ASKN+1!, ASKN+2, ASKN+3!, DRUG+1!, DRUG+2!, END!
DIC("A"	ASKN+2*
DIC("B"	ASKN+2*
DIC("S"	ASKN+3*
DIC("W"	DRUG+1*
DIC(0	ASKN+2, DRUG+2
DIR	ALL+2!, ALL+6!, DONE+1!, END!, HDR+1!
DIR("?"	ALL+5*
DIR("A"	ALL+4, DONE+1
DIR("B"	ALL+4*
DIR(0	ALL+3, DONE+1, HDR+1*
DIROUT	END!
DIRUT	ALL+2!, ALL+6, DONE+1!, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDBAN+3
IO	START+3
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HDR+2
IOP	DEV+2!
IOST	DONE, DONE+1, HDR+1
LN	PRINT+2!*, END!, HDR+4
>> NAOU	ASKN+4*, DRUG+2, START+5, START+6
>> NAOUN	ASKN+2, ASKN+4*, HDR+2
NODE	END!
OK	PSDBAN+3*, END!
ORD	END!
PG	PRINT+1, END+1!, HDR+1, HDR+2
POP	DEV+2!, END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, DONE+1, END+1!, HDR+1
PSDPN	END+1!
PSDR	PRINT+3*, END+1!, SAVE
PSDRN	END+1!
PSDRUG	START+4~, START+5, START+6
PSDRUGN	START+4~*
>> PSDSITE	PSDBAN+2
PSDST	END+1!
PSDT	END+1!
QTY	END+1!
REQ	END+1!
RPDT	PRINT+1*, END+1!, HDR+2
STAT	END+1!
STATN	END+1!
U	DRUG+2, START+5, START+6
X	END+1!
X1	END+1!
X2	END+1!
Y	ASKN+3, ASKN+4, ALL+6, DRUG+2, END+1!, HDR+1
ZTDESC	DEV+3*, END+1!
ZTDTH	DEV+3!, END+1!
ZTIO	DEV+3!
>> ZTQUEUED	END, END+2
>> ZTREQ	END+2*
ZTRTN	DEV+3*, END+1!
ZTSAVE	DEV+3!, END+1!
ZTSAVE("ALL"	SAVE*
ZTSAVE("NAOU"	SAVE*
ZTSAVE("NAOUN"	SAVE*
ZTSAVE("PSDR"	SAVE*
ZTSK	DEV+3!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDBAN

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: