Routine: PSDLBLR2

Information

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

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

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