Routine: PSDLBL1

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

Package

Total

Call Graph

Kernel

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

VA Fileman

^DIC Y^DIQ ^DIR

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD LABEL VAULT

Package

Total

Caller Graph

Controlled Substances

PSD LABEL VAULT

Name	Comments	DBIA/ICR reference
PRINT1	;prints labels
END	;kill variables and exit
START	;entry for compile and print labels
PRINT	;print labels
DEV	;ask device and queue info
ASKD	;ask disp location
DONE
DRUG	;ask drug
CHKD
SAVE	;save queued variables

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	END+3
^%ZTLOAD	DEV+6
^DIC	ASKD+5, DRUG+3
Y^DIQ	DEV+4
^DIR	DONE+1
^PSDSET	PSDLBL1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS dispensing labels.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDLBL1+4
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
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: $C(7),!!,?3,"WARNING: The printing of these labels requires the use of a sheet fed",!,?12,"laser printer setup to create Controlled Substances",!,?12,"barcodes.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,?12,"* Check printer for LABEL paper before printing! *",! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"This report is designed for a 3 column label format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: ! Line Location: PRINT1+1
Function Call: WRITE	Prompt: ?PSDX1*33+1,$E(TEMP(PSDX1+1),1,30) Line Location: PRINT1+1
Function Call: WRITE	Prompt: !! Line Location: PRINT1+2
Function Call: WRITE	Prompt: @PSDBAR1,TEST(PSDX1),@PSDBAR0 Line Location: PRINT1+2
Function Call: WRITE	Prompt: ! Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?PSDX1*32+3,TEST(PSDX1+1) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !! Line Location: PRINT1+4
Routine Call	%ZIS Line Location: DEV+6
Routine Call	DIC Line Location: ASKD+5 DRUG+3
Routine Call	DIR Line Location: DONE+1
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	START+2
^%ZIS(2 - [#3.2]	START+2
^DD(58.8	DEV+4
^PSD(58.8 - [#58.8]	CHKD, DEV+4, START+4, START+5
^PSDRUG - [#50]	START+6
^TMP("PSDLBL1"	START+1!, START+7*, PRINT+2, END+2!
^XUSEC("PSJ PHARM TECH"	PSDLBL1+3
^XUSEC("PSJ RPHARM"	PSDLBL1+3

Name	Line Occurrences
CHKD	ASKD+2
END	ASKD+5, CHKD, DRUG+5, DEV+5, DEV+6
PRINT1	PRINT+2, PRINT+3
SAVE	DEV+6

Name	Field # of Occurrence
^("BAR"	START+2
^(0	START+4, START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+5!*, END+1!
%ZIS("B"	DEV+5*
ALL	DRUG+6*, START+4, END+1!, SAVE+1
C	DEV+4*, END+1!
DA	ASKD+3!, DRUG+2!, END+1!
DA(1	DRUG+3*
DIC	ASKD+3!, ASKD+5!, DRUG+2!, DRUG+3!, END+1!
DIC("A"	ASKD+4*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3*
DIC("W"	DRUG+3*
DIC(0	ASKD+3, DRUG+3
DIR	DONE+1!, END+1!
DIR("A"	DONE+1*
DIR(0	DONE+1*
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DRUG	END+1!
DT	START+4
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDLBL1+3
IO	DEV+7
IO("Q"	DEV+5!, DEV+6!
IOF	DONE
IOP	DEV+5!
>> IOS	START+2
IOST	DONE, DONE+1
JJ	START+2*, END+1!
JLP1	END+1!
OK	PSDLBL1+3*, PSDLBL1+4!, END+1!
POP	DEV+5!, END+1!
PSD	START+4, START+5, START+6, START+7, PRINT+2*, END+1!
PSDBAR0	START+3, END+1!, PRINT1+2
PSDBAR1	START+3, END+1!, PRINT1+2
PSDCNT	PRINT+1, PRINT+2, PRINT+3, END+1!, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+5*
PSDEV	DEV+4*, DEV+5, END+1!
PSDOUT	PRINT+1*, PRINT+2, DONE+1, END+1!
PSDPRT	START+1!, START+3*, END+1!, PRINT1+2
PSDRG	DRUG+5, END+1!, SAVE+2
PSDRG(	DRUG+4, START+4, START+5
PSDRN	START+6*, START+7, END+1!
PSDS	ASKD+1, ASKD+6, CHKD, DRUG+3, DEV+4, START+4, START+5, END+1!
>> PSDSITE	PSDLBL1+2, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, END+1!
PSDX1	END+1!, PRINT1+1, PRINT1+2, PRINT1+3*
PSDX2	PRINT+1, END+1!, PRINT1+5
TEMP	END+1!
TEMP(	PRINT+2*, PRINT1+1
TEST	END+1!
TEST(	PRINT+2*, PRINT1+2, PRINT1+3
U	ASKD+1, ASKD+2, ASKD+6, START+4
X	DRUG+5, DRUG+6, END+1!
Y	ASKD+5, ASKD+6, DRUG+3, DRUG+4, DEV+4*, END+1!
ZTDESC	DEV+6*, END+1!
ZTDTH	DEV+6!
ZTIO	END+1!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+6*, END+1!
ZTSAVE	DEV+6!, END+1!
ZTSAVE("ALL"	SAVE+1*
ZTSAVE("PSDRG("	SAVE+2*
ZTSAVE("PSDS"	SAVE+3*
ZTSAVE("PSDSN"	SAVE+3*
ZTSK	DEV+6!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDLBL1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: