Routine: PSDBALI

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC Y^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	2	PRINT^PSDBALI1 ^PSDSET

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC Y^DIQ ^DIR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Controlled Substances

PRINT^PSDBALI1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD INVEN SHEET PRT

Package

Total

Caller Graph

Controlled Substances

PSD INVEN SHEET PRT

Name	Comments	DBIA/ICR reference
SORT	;asks sort
END	;
HDR	;header
START	;entry for compile
PRINT	;prints data
DEV	;sel device
ASKD	;ask disp location
DONE
DRUG	;ask drug
CHKD
PRT	;
SAVE
LOOP1
LOOP	;sets inv type

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
^DIC	ASKD+6, DRUG+2
Y^DIQ	DEV+1
^DIR	SORT+3, DONE+1, HDR+1
PRINT^PSDBALI1	PRINT+4
^PSDSET	PSDBALI+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: ! Line Location: SORT+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: SORT+4
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?15,"** NO STOCK BALANCE DATA AVAILABLE **",!! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?10,"Inspector's Signature: ______________________________",! Line Location: PRINT+6
Function Call: WRITE	Prompt: ?5,"Stock Level: ",SLVL Condition for execution: SLVL Line Location: PRINT+8
Function Call: WRITE	Prompt: ?30,"Exp. Date: ",EXP Condition for execution: EXP]"" Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: PRT+1
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: !,?12,"Inventory Sheet for ",PSDSN,?72,"Page: ",PG,!,?20,RPDT,!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?5,"DRUG",?46,"CURRENT BALANCE",?68,"ON-HAND",!,LN,!! Line Location: HDR+3
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKD+6 DRUG+2
Routine Call	DIR Line Location: SORT+3 DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+6, PRINT+1
^DD(58.8	DEV+1
^PSD(58.8 - [#58.8]	CHKD, DEV+1, START+2, START+3, LOOP+1, LOOP+2
^PSDRUG - [#50]	START+5
^PSI(58.16 - [#58.16]	LOOP+2
^TMP("PSDBALI"	START+1!, START+8, PRINT+3, PRINT+5, PRINT+7, END+2!, LOOP1

Name	Line Occurrences
CHKD	ASKD+2
DONE	PRINT+3, PRINT+4
END	ASKD+6, CHKD, SORT+3, DRUG+4, DEV+2, DEV+3
HDR	PRINT+2, PRINT+6
LOOP	START+7
LOOP1	LOOP+1, LOOP+2
SAVE	DEV+3

Name	Field # of Occurrence
^(0	START+3, START+5, LOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1, END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ALL	DRUG+5*, START+2, END+1!, SAVE+1
ASKN	SORT+3*, START+7, PRINT+4, END+1!
BAL	START+5, START+8, PRINT+7, PRINT+8, END+1!, LOOP1
C	DEV+1*, END+1!
DA	ASKD+3!, SORT+1!, DRUG+1!, END+1!, HDR+1!
DA(1	DRUG+2*
DIC	ASKD+3!, ASKD+6!, DRUG+1!, DRUG+2!, END+1!
DIC("A"	ASKD+4*
DIC("B"	ASKD+5*
DIC("S"	ASKD+3*
DIC("W"	DRUG+2*
DIC(0	ASKD+3, DRUG+2
DIR	SORT+1!, SORT+3!, DONE+1!, HDR+1!
DIR("?"	SORT+2*
DIR("A"	SORT+1, DONE+1
DIR("B"	SORT+1*
DIR(0	SORT+1, DONE+1, HDR+1*
DIRUT	SORT+1!, SORT+3, DONE+1!
DRUGN	START+5*, START+8, END+1!, LOOP1
DT	START+4
DTOUT	END+1!
DUOUT	END+1!
EXP	START+5, START+6, START+8, PRINT+7*, PRINT+8, END+1!, LOOP1
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HDR+2
IOP	DEV+2!
IOSL	PRINT+6, PRT+1
IOST	DONE, DONE+1, HDR+1
JJ	PRT+1*, END+1!
LN	PRINT+2!*, END+1!, HDR+3
LNUM	PRINT+8*, PRT+1, END+1!
NODE	START+3, START+4, START+5, PRINT+7, END+1!
PG	PRINT+1, END+1!, HDR+1, HDR+2
POP	DEV+2!, END+1!
PSD	START+2, START+3, START+5, START+8, PRINT+5*, PRINT+7, END+1!, LOOP+1, LOOP+2, LOOP1
PSDEV	DEV+1*, DEV+2, END+1!
PSDOK	START+4, START+8, PRINT+7, PRINT+8, END+1!, LOOP1
PSDOUT	PRINT+1, PRINT+5, PRINT+6, PRT+2, DONE+1, END+1!, HDR+1
PSDR	DRUG+4, PRINT+5*, PRINT+7, PRINT+8, END+1!, SAVE+1
PSDR(	DRUG+3, START+2, START+3
PSDRN	END+1!
PSDS	ASKD+1, ASKD+7, CHKD, DRUG+2, DEV+1, START+2, START+3, END+1!, LOOP+1, LOOP+2
>> PSDSITE	PSDBALI+2, ASKD+1, ASKD+2, ASKD+7*
PSDSN	ASKD+1, ASKD+5, ASKD+7, END+1!, HDR+2
RPDT	PRINT+1*, END+1!, HDR+2
SLVL	START+5, START+8, PRINT+7, PRINT+8, END+1!, LOOP1
TYP	END+1!, LOOP+2*
TYPN	END+1!, LOOP+1, LOOP+2, LOOP1
U	ASKD+1, ASKD+2, ASKD+7
X	DRUG+4, DRUG+5, END+1!
Y	ASKD+6, ASKD+7, SORT+3, DRUG+2, DRUG+3, DEV+1, START+6, PRINT+1*, END+1!, HDR+1
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+1*
ZTSAVE("ASKN"	SAVE*
ZTSAVE("PSDR("	SAVE+1*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSITE"	SAVE*
ZTSAVE("PSDSN"	SAVE*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDBALI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: