Routine: PSDLBLR2

Information

PSDLBLR2 ;BIR/JPW-CS PF Label Reprt for CS Disp Drug (cont'd) ; 17 May 94

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIE ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Controlled Substances	1	PSDLBLR1

Name	Comments	DBIA/ICR reference
PRINT1	;prints labels
SET	;sets ^tmp
END	;kill variables and exit
DIE	;update label printed
START	;entry for compile and print labels
DONE
SET1	;sets disp info
PRINT	;print labels
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@PSDBAR1,$P(PSD(1),U),@PSDBAR0 Line Location: PRINT+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,$P(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	DIE Line Location: DIE+1
Routine Call	DIR Line Location: DONE+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	START+2
^%ZIS(2 - [#3.2]	START+2
^PSD(58.8 - [#58.8]	SET1+4, SET1+7
^PSD(58.81 - [#58.81]	LOOP+1, SET1+1
^PSDRUG - [#50]	SET1+7
^TMP("PSDLBLR"	START+1!, PRINT+2, PRINT+3, END+4!, SET+2*

Name	Line Occurrences
LOOP	START+4, LOOP+2
SET1	LOOP+1

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

Name	Field # of Occurrence
%	START+1, END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	END+1!
DA	END+1!, DIE+1!*
DIC	END+1!
DIE	END+1!, DIE+1!*
DIR	DONE+1!, END+1!
DIR("A"	DONE+1*
DIR(0	DONE+1*
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DR	END+1!, DIE+1!*
DRUG	END+1!
DTOUT	END+1!
DUOUT	END+1!
IOF	DONE
>> IOS	START+2
IOST	DONE, DONE+1
JJ	START+2*, END+1!
JLP1	END+1!
LIQ	END+1!
NAOU	END+1!, SET1+4*, SET1+7
NAOUN	END+1!, SET1+4*, SET1+8
NODE	END+1!, SET1+1*, SET1+2, SET1+3, SET1+4, SET1+5, SET1+6
OK	END+1!, SET1+2*
POP	END+2!
PSD	PRINT+1, PRINT+2, PRINT+3, END+2!, LOOP*, LOOP+1
PSD(1	PRINT+3*, PRINT+4, PRINT+5, PRINT+6
PSD1	START+4*, END+2!, LOOP
PSD1(	START+4, LOOP
PSDA	END+2!, SET1+6*
PSDBAR0	START+3, PRINT+5, END+2!, PRINT1+2
PSDBAR1	START+3, PRINT+5, END+2!, PRINT1+2
PSDCNT	START+4, END+2!, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+5, LOOP*
PSDEV	END+2!
PSDJ	END+2!, LOOP+1*, SET1+1, DIE+1
PSDN	END+2!, SET1+7*, SET1+8
PSDOUT	PRINT+1*, PRINT+2, DONE+1, END+2!
PSDPN	END+2!, SET1+3*, SET+2
PSDPRT	START+1!, START+3*, PRINT+5, END+2!, PRINT1+2
PSDR	END+2!, SET1+5*, SET1+7, SET1+8, SET+2
PSDRG	END+2!
PSDRN	END+2!
PSDS	END+2!, SET1+1
PSDSN	END+2!
PSDT	START+1*, END+2!, DIE+1
PSDX1	END+2!, PRINT1+1, PRINT1+2, PRINT1+3*
PSDX2	END+2!, PRINT1+5*
QTY	END+3!, SET1+7*
STAT	END+3!, SET1+2*
TEMP	END+3!
TEMP(	PRINT1+1
TEST	END+3!
TEST(	PRINT1+2, PRINT1+3
TEXT	END+3!
TEXT(	SET1+8*, SET+2
U	PRINT+4, PRINT+5, PRINT+6
X	END+3!
Y	END+3!
ZTDESC	END+3!
ZTIO	END+3!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	END+3!
ZTSAVE	END+3!
ZTSK	END+3!