Routine: PSDLBL

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

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC Y^DIQ ^DIR

Controlled Substances

^PSDLBL0 ^PSDLBL4 ^PSDSET

Kernel

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

Package	Total	Caller Graph
Controlled Substances	1	PSD LABEL DRUG/NUMBER

Package

Total

Caller Graph

Controlled Substances

PSD LABEL DRUG/NUMBER

Name	Comments	DBIA/ICR reference
GS1	;ask gs # range
SAVE	;save queued variables
END	;kill variables and exit
DEV	;ask device and queue info
ONE	;asks print type
ASKD	;ask disp number range
CHKD
GROUP	;select group of naous
SEL	;sel naou or group

Name	Field # of Occurrence
NOW^%DTC	SEL+4
^%ZIS	DEV+6
HOME^%ZIS	DEV+7
^%ZISC	END+5
^%ZTLOAD	DEV+7
^DIC	ASKD+5, SEL+6, GROUP+1
Y^DIQ	DEV+5
^DIR	ONE+3, GS1+4, SEL+4, DEV+1
^PSDLBL0	DEV+8
^PSDLBL4	DEV+1
^PSDSET	PSDLBL+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: PSDLBL+4
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"You may enter a Green Sheet # list and/or a Green Sheet # range.",! Line Location: GS1+1
Function Call: WRITE	Prompt: "NOTE: This response must be a list or range, e.g. 1,3,5 or 2-4,8.",! Line Location: GS1+2
Function Call: WRITE	Prompt: !!,?5,"Select one of the following:",!!,?10,"N",?20,"NAOU (One, Some, or ^ALL)",!,?10,"G",?20,"Group of NAOUs",! Line Location: SEL+1
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+2
Function Call: WRITE	Prompt: !,?12,"* Check printer for LABEL paper before printing! *",! Line Location: DEV+3
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+4
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+7
Routine Call	DIC Line Location: ASKD+5 SEL+6 GROUP+1
Routine Call	DIR Line Location: ONE+3 GS1+4 SEL+4 DEV+1
Routine Call	%ZIS Line Location: DEV+6

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+5
^PSD(58.8 - [#58.8]	CHKD, DEV+5
^TMP("PSDLBL"	END+4!
^XUSEC("PSJ PHARM TECH"	PSDLBL+3
^XUSEC("PSJ RPHARM"	PSDLBL+3

Name	Line Occurrences
CHKD	ASKD+2
DEV	GS1+6, SEL+5
END	ASKD+5, CHKD, ONE+3, GS1+4, SEL+4, SEL+5, SEL+8, DEV+6, DEV+7
GROUP	SEL+5
SAVE	DEV+7
SEL	ONE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+6!*, END+1!
%ZIS("B"	DEV+6*
ALL	SEL+9*, END+1!, SAVE+1
ANS	ONE+3*, ONE+4, END+1!
C	DEV+5*, END+1!
CNT	SEL+4, SEL+7, END+1!, SAVE+3
DA	ASKD+3!, ONE+1!, GS1+3!, SEL+2!, SEL+4!, END+1!, GROUP+1!
DIC	ASKD+3!, ASKD+5!, SEL+4!, SEL+6!, END+1!, GROUP+1!*
DIC("A"	ASKD+4, SEL+6, GROUP+1*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, SEL+6, GROUP+1*
DIC(0	ASKD+3, SEL+6, GROUP+1*
DIE	END+1!
DIR	ONE+1!, ONE+3!, GS1+3!, GS1+4!, SEL+2!, SEL+4!, DEV+1!, END+1!
DIR("?"	ONE+2, SEL+3
DIR("A"	ONE+1, GS1+3, SEL+2, DEV+1
DIR("B"	DEV+1*
DIR(0	ONE+1, GS1+3, SEL+2, DEV+1
DIROUT	END+1!
DIRUT	ONE+1!, ONE+3, GS1+3!, GS1+4, SEL+2!, SEL+4, DEV+1, END+1!
DR	END+1!
DRUG	END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDLBL+3
IO	DEV+8
IO("Q"	DEV+6!, DEV+7!
IOP	DEV+6!
JJ	END+1!
JLP1	END+1!
LIQ	END+1!
NAOU	SEL+8, END+1!, SAVE+3
NAOU(	SEL+7*
NAOUN	END+1!
NODE	END+1!
OK	PSDLBL+3*, PSDLBL+4!, END+1!
POP	DEV+6!, END+2!
PSD	END+2!
PSD1	GS1+5*, END+2!, SAVE+3
PSD1(	GS1+5*
PSD2	END+2!
PSDA	END+2!
PSDBAR0	END+2!
PSDBAR1	END+2!
PSDCNT	END+2!
PSDEV	DEV+5*, DEV+6, END+2!
PSDG	SEL+5, END+2!, SAVE+3
PSDG(	GROUP+1*
PSDJ	END+2!
PSDN	END+2!
PSDOUT	END+2!
PSDPN	END+2!
PSDPRT	END+2!
PSDR	END+2!
PSDRG	END+2!
PSDRN	END+2!
PSDS	ASKD+1, ASKD+6, CHKD, DEV+5, END+2!, SAVE+2
>> PSDSITE	PSDLBL+2, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, END+2!
PSDT	SEL+4*, END+2!
PSDX1	END+2!
PSDX2	END+2!
SEL	SEL+4*, SEL+5, END+3!
STAT	END+3!
TEMP	END+3!
TEST	END+3!
TEXT	END+3!
U	ASKD+1, ASKD+2, ASKD+6
X	SEL+4, SEL+8, SEL+9, END+3!
Y	ASKD+5, ASKD+6, ONE+3, SEL+4, SEL+6, SEL+7, DEV+1, DEV+5*, END+3!, GROUP+1
Y(	GS1+5!
ZTDESC	DEV+7*, END+3!
ZTDTH	DEV+7!
ZTIO	END+3!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	DEV+7*, END+3!
ZTSAVE	DEV+7!, END+3!
ZTSAVE("ALL"	SAVE+1*
ZTSAVE("ANS"	SAVE+4*
ZTSAVE("CNT"	SAVE+3*
ZTSAVE("NAOU("	SAVE+3*
ZTSAVE("PSD1("	SAVE+3*
ZTSAVE("PSDG("	SAVE+3*
ZTSAVE("PSDS"	SAVE+2*
ZTSAVE("PSDSITE"	SAVE+4*
ZTSAVE("PSDSN"	SAVE+2*
ZTSK	DEV+7!, END+3!

Customize PDF page

Package: Controlled Substances

Routine: PSDLBL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: