Routine: PSDLBLP

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
VA Fileman	4	NOW^%DTC ^DIC GETS^DIQ ^DIR
Controlled Substances	2	^PSDLBLB ^PSDSET
Registration	1	(DEM,INP,KVAR)^VADPT

Package

Total

Call Graph

Kernel

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

VA Fileman

NOW^%DTC ^DIC GETS^DIQ ^DIR

Controlled Substances

^PSDLBLB ^PSDSET

Registration

(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
Controlled Substances	1	PSD PAT ID LIST

Package

Total

Caller Graph

Controlled Substances

PSD PAT ID LIST

Entry Points

Name	Comments	DBIA/ICR reference
ASKN	;ask nursing location
END	;kill variables and exit
HDR	;prints header information
PRINT	;print labels
WARD2
DEV
START	;entry for compile and print labels
DONE
ASK	;ask naou or ward
WARD	;ask ward name
SAVE	;save queued variables

External References

Name	Field # of Occurrence
NOW^%DTC	START+1
^%ZIS	DEV+4
HOME^%ZIS	DEV+5
^%ZISC	END+5
^%ZTLOAD	DEV+5
^DIC	WARD+2, ASKN+2
GETS^DIQ	ASKN+4
^DIR	ASK+4, DEV+1, DONE+1, HDR+1
^PSDLBLB	START+4
^PSDSET	PSDLBLP+2
DEM^VADPT	START+6
INP^VADPT	START+7
KVAR^VADPT	END+1
$$HTE^XLFDT	HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator. You do not have the Supervisor",!,"access required to print labels.",!! Line Location: PSDLBLP+3
Function Call: WRITE	Prompt: ! Line Location: WARD+1
Function Call: WRITE	Prompt: !!,"This report is designed to print bar codes on a printer.",!,"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+4
Function Call: WRITE	Prompt: !!,?15,"** NO PATIENT WARD INFO **",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: @PSDBAR1,$P(NODE,"^"),@PSDBAR0,!! Line Location: PRINT+7
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: !,"Patient ID List for " Line Location: HDR+2
Function Call: WRITE	Prompt: PSD(1) Line Location: HDR+3
Function Call: WRITE	Prompt: $S($G(PSD2)]"":PSD2,$G(PSDN)]"":PSDN,$G(NAOUN)]"":NAOUN,$O(PSDW(""))]"":$O(PSDW("")),1:"") Line Location: HDR+4
Function Call: WRITE	Prompt: " Printed: ",$$HTE^XLFDT($H,"P"),?70,"Page: ",PG,! Line Location: HDR+5
Function Call: WRITE	Prompt: "PATIENT",?45,"ROOM-BED",!,LN,!! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: ASKN+2
Function Call: WRITE	Prompt: !!,"Compiling Ward data for ",NAOUN,"..." Line Location: WARD2+0
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIC Line Location: WARD+2 ASKN+2
Routine Call	DIR Line Location: ASK+4 DEV+1 DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+4

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	START+2
^%ZIS(2 - [#3.2]	START+2
^DIC(42 - [#42]	WARD2+2, WARD2+3
^DPT - [#2]	START+5
^DPT("ACN"	START+5
^PSD(58.8 - [#58.8]	WARD2+1
^SC - [#44]	ASKN+3
^TMP("PSDLBLP"	START+1!, START+9*, PRINT+2, PRINT+3, PRINT+4, END+4!

Name	Line Occurrences
ASKN	ASK+5
DEV	ASK+5
DONE	PRINT+2
END	ASK+4, ASK+5, WARD+2, DEV+1, DEV+4, DEV+5
HDR	PRINT+2, PRINT+3, PRINT+4, PRINT+5
SAVE	DEV+5

Name	Field # of Occurrence
^(	PRINT+4
^("BAR"	START+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1, END+2!
%H	END+2!
%ZIS	DEV+4!*, END+2!
%ZIS("B"	DEV+4*
ANS	ASK+4*, END+2!
ANS(1	DEV+1*, START+4
DA	ASK+2!, WARD+1!, END+2!, HDR+1!, ASKN+1!
DFN	START+6*, START+8!, END+2!
DIC	WARD+1!, WARD+2, WARD+4!, END+2!, ASKN+1!, ASKN+2!
DIC("A"	WARD+2, ASKN+1
DIC(0	WARD+2, ASKN+1
DIR	ASK+2!, ASK+4!, DEV+1!, DONE+1!, END+2!, HDR+1!
DIR("?"	ASK+3*
DIR("A"	ASK+2, ASK+4, DEV, DONE+1
DIR(0	ASK+2, DEV, DONE+1, HDR+1
DIROUT	END+2!
DIRUT	ASK+2!, ASK+4, DEV+1, DONE+1!, END+2!
DTOUT	WARD+2, END+2!
DUOUT	WARD+2, END+2!
IO	DEV+6
IO("Q"	DEV+4!, DEV+5!
IOF	DONE, HDR+2
IOP	DEV+4!
>> IOS	START+2
IOSL	PRINT+4, PRINT+5
IOST	DONE, DONE+1, HDR+1
JJ	START+2, END+2!, WARD2+1
JJ1	END+2!, WARD2+1*, WARD2+2, WARD2+3
JJ2	END+2!, WARD2+1*
LN	PRINT+1*, END+2!, HDR+6
>> NAOU	WARD2+1
>> NAOUN	HDR+4, SAVE+2, WARD2
NODE	PRINT+4*, PRINT+6, PRINT+7, END+2!
PATN	START+6*, START+9, END+2!
PG	PRINT+1, END+2!, HDR+1, HDR+2, HDR+5
POP	DEV+4!, END+2!
PSD	PRINT+4*, PRINT+6, END+2!, ASKN+3~
PSD(	ASKN+5, ASKN+6
PSD(1	HDR+2, ASKN+4, ASKN+5*, ASKN+6
PSD1	START+5, START+6, PRINT+4, END+2!
PSD2	ASK+1~, HDR+4, ASKN+3*
PSDBAR0	START+3, PRINT+7, END+2!
PSDBAR1	START+3, PRINT+7, END+2!
PSDCNT	START+1, START+9, PRINT+1*, END+2!
PSDN	PRINT+3*, PRINT+4, PRINT+6, END+2!, HDR+4
PSDOUT	ASK+1, ASK+5, PRINT+1, PRINT+3, PRINT+4, PRINT+5, DONE+1, END+2!, HDR+1, ASKN+2
PSDPRT	START+1!, START+3*, PRINT+7, END+3!
PSDR	END+3!
PSDRM	START+7*, START+9, END+3!
>> PSDSITE	PSDLBLP+2
PSDT	START+1*, START+7, END+3!
PSDW	WARD+2, END+3!
PSDW(	WARD+3, START+5, ASKN+6, WARD2+3*
PSDW(""	HDR+4
PSDWN	WARD+3, START+5, START+9, END+3!
PSDX1	PRINT+1*, END+3!
PSDX2	END+3!
SSN	START+6*, START+9, END+3!
U	ASKN+3
VA	END+1!
VA("BID"	START+6
VADM	START+8!, END+3!
VADM(1	START+6
VADM(2	START+6
VAERR	START+6, END+3!
VAIN	START+8!, END+3!
VAIN(5	START+7
VAINDT	START+7*, START+8!, END+3!
X	WARD+2, END+3!
Y	ASK+4, ASK+5, WARD+3, DEV+1, END+3!, HDR+1, ASKN+2, ASKN+3, ASKN+4
ZTDESC	DEV+5*, END+3!
ZTDTH	DEV+5!
ZTIO	END+3!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	DEV+5*, END+3!
ZTSAVE	DEV+5!, END+3!
ZTSAVE("ANS(1)"	SAVE+1*
ZTSAVE("NAOUN"	SAVE+2*
ZTSAVE("PSD2"	SAVE+1*
ZTSAVE("PSDW("	SAVE+1*
ZTSK	DEV+5!, END+3!

Customize PDF page

Package: Controlled Substances

Routine: PSDLBLP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: