Routine: PSDLBL2

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

Package

Total

Call Graph

Kernel

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

VA Fileman

^DIC ^DIR

Controlled Substances

^PSDSET

Name	Comments	DBIA/ICR reference
PRINT1	;prints labels
END	;kill variables and exit
NUR	;ask nurse name
DEV	;ask device and queue info
START	;entry for compile and print labels
DONE
PRINT	;print labels
SAVE	;save queued variables

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	END+4
^%ZTLOAD	DEV+6
^DIC	NUR+3
^DIR	DONE+1
^PSDSET	PSDLBL2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"the pending Controlled Substances error log.",! Line Location: PSDLBL2+4
Function Call: WRITE	Prompt: !!,?5,"You may select a single name, several names",!,?5,"or enter ""^ALL"" to select all names to be printed.",!! Line Location: NUR+1
Function Call: WRITE	Prompt: ! Line Location: NUR+2
Function Call: WRITE	Prompt: $C(7),!!,?3,"WARNING: The printing of these labels require 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,TEMP(PSDX1+1) 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: NUR+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(2 - [#3.2]	START+2
^TMP("PSDLBL2"	START+1!, START+9*, PRINT+2, END+3!
^VA(200 - [#200]	START+4, START+5, START+6, START+7, START+8
^XUSEC("PSD ERROR"	PSDLBL2+3
^XUSEC("PSD NURSE"	START+5
^XUSEC("PSDMGR"	PSDLBL2+3
^XUSEC("PSJ RNURSE"	START+4

Name	Line Occurrences
END	NUR+5, DEV+5, DEV+6
PRINT1	PRINT+2, PRINT+3
SAVE	DEV+6

Name	Field # of Occurrence
^("BAR"	START+2
^(0	START+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+5!*, END+1!
%ZIS("B"	DEV+5*
ALL	NUR+6*, START+4, START+5, END+1!, SAVE+1
DA	NUR+2!, END+1!
DIC	NUR+2!, NUR+3*!, END+1!
DIC("A"	NUR+3*
DIC("S"	NUR+3*
DIC(0	NUR+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!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDLBL2+3
IO	DEV+7
IO("Q"	DEV+5!, DEV+6!
IOF	DONE
IOP	DEV+5!
IOST	DONE, DONE+1
IOST(0	START+2
JJ	START+2*, END+1!
JLP1	END+1!
OK	PSDLBL2+3*, PSDLBL2+4!, END+1!
POP	DEV+5!, END+1!
PSD	START+6, START+7, START+8, PRINT+2, END+1!
PSDBAR0	START+3, END+1!, PRINT1+2
PSDBAR1	START+3, END+1!, PRINT1+2
PSDCNT	NUR+2, NUR+4, START+4, START+5, PRINT+1, PRINT+2, PRINT+3, END+1!, PRINT1+1, PRINT1+2 , PRINT1+3, PRINT1+5*
PSDCPI	DEV+4*, END+1!
PSDEV	END+1!
PSDN	START+7*, START+9, END+1!
PSDOUT	PRINT+1*, PRINT+2, DONE+1, END+1!
PSDPRT	START+1!, START+3*, END+1!, PRINT1+2
PSDR	START+4, START+5, END+2!
>> PSDSITE	PSDLBL2+2
PSDTMP	NUR+5, END+2!, SAVE+2
PSDTMP(	NUR+4, START+4, START+5*, START+6
PSDX1	END+2!, PRINT1+1, PRINT1+2, PRINT1+3*
PSDX2	PRINT+1, END+2!, PRINT1+5
SSN	START+8*, START+9, END+2!
TEMP	END+2!
TEMP(	PRINT+2*, PRINT1+1
TEST	END+2!
TEST(	PRINT+2*, PRINT1+2, PRINT1+3
X	NUR+5, NUR+6, END+2!
Y	NUR+3, NUR+4, END+2!
ZTDESC	DEV+6*, END+2!
ZTDTH	DEV+6!
ZTIO	END+2!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	DEV+6*, END+2!
ZTSAVE	DEV+6!, END+2!
ZTSAVE("ALL"	SAVE+1*
ZTSAVE("PSDCNT"	SAVE+1*
ZTSAVE("PSDCPI"	SAVE+1*
ZTSAVE("PSDTMP("	SAVE+2*
ZTSK	DEV+6!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDLBL2

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: