Routine: ADEPLBL

Information

ADEPLBL ; IHS/HQT/MJL - PRINT MAILING LABELS FROM SORT TEMPLATE ;07:21 PM [ 03/24/1999 9:04 AM ]

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Ready to print mailing labels for patient names stored in the " Line Location: DEV+1
Function Call: WRITE	Prompt: !,$P(^DIBT(ADETEM,0),U)," Search Template" Line Location: DEV+2
Function Call: WRITE	Prompt: " of the ",$O(^DD(ADEFN,0,"NM",0))," File.",! Line Location: DEV+3
Function Call: WRITE	Prompt: ".",! Line Location: DEV+4
Function Call: WRITE	Prompt: "Make sure labels are lined up on printer.",! Line Location: DEV+5
Function Call: WRITE	Prompt: !,?5,"--Try Later" Line Location: DEV+7
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+8
Function Call: WRITE	Prompt: ADENAM,!,ADEAD1,!,ADEAD2,! Line Location: P2+12
Function Call: WRITE	Prompt: ! Line Location: P2+13
Function Call: WRITE	Prompt: !!,"Do you want to print a test label" Line Location: TLAB+1
Function Call: WRITE	Prompt: !?5,"Answer Yes or No" Line Location: TL1+2
Function Call: WRITE	Prompt: !,"Line up labels on printer and select Device",! Line Location: TL2+0
Function Call: WRITE	Prompt: "LINE 1: NAME",!,"LINE 2: STREET ADDRESS",!,"LINE 3: CITY, STATE ZIP",! Line Location: TL2+3
Function Call: WRITE	Prompt: "LINE ",ADEJ,":",! Line Location: TL2+4
Function Call: WRITE	Prompt: !!,"Print another test label" Line Location: TL3+0
Function Call: WRITE	Prompt: !?5,"Answer Yes or NO" Line Location: TL3+3
Routine Call	DIC Line Location: TEMPL+2
Routine Call	DIR Line Location: SIZE+6
Routine Call	%ZIS Line Location: DEV+6 TL2+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	QUE
^ADEUTL("ADEPLBL"	END!, SIZE, SIZE+9, PRINT+1!, P2+3, P2+4
^DD(	POINT+2, DEV+3
^DD(9000001	POINT+1, SCRN+8
^DIBT(	DEV+2, PRINT+3, SCRN+2, SCRN+4, SCRN+6
^DIC - [#1]	POINT+3
^DIC(5 - [#5]	P2+10
^DPT - [#2]	P2+2

Name	Line Occurrences
DEV	START+10, DEV+8
END	TEMP+2, FILE+2, START+4, START+7, START+8, START+11, START+12, START+13
P2	PRINT+3
POINT	START+1
PRINT	ZTM+2
QUE	DEV+9
SIZE	START+3, TL3+2
START	TEMP+2
TEMPL	TEMP+2
TL2	TL1+1, TL3+2
TL3	TL3+3
TLAB	START+6, TL1+2

Name	Field # of Occurrence
>> %	TL1, TL1+1, TL3+1, TL3+2
>> %Y	TL1+2, TL1+3, TL3+3, TL3+4
>> %ZIS	DEV+6, TL2+1
ADEAD1	END!, P2+5, P2+8, P2+12
ADEAD2	END!, P2+5, P2+9, P2+10, P2+11, P2+12
ADECNT	END!
ADEDFN	END!, P2, P2+1, P2+2, P2+3, P2+4, P2+6
ADEDIC	END!
ADEFLD	END!, POINT, POINT+1, POINT+2
ADEFN	END!, TEMPL+4, POINT, POINT+1, POINT+2, POINT+3, DEV+3, SCRN+2, SCRN+8
ADEGL	END!, POINT, POINT+3, P2
ADEIOP	END!
ADEJ	END!, P2+13, TL2+4
ADELKDAT	END+2!, P2+10!
ADELKERR	END+2!
ADELKPRN	END+2!, P2+7!, P2+8!, P2+9!, P2+11!
ADENAM	END!, P2+5, P2+7, P2+12
ADEPN	END!, POINT, POINT+2, P2, P2+1
ADESIZ	END!, SIZE, SIZE+1, SIZE+4, SIZE+8*, SIZE+9, P2+13, TL2+4
ADETEM	END!, TEMPL+4*, DEV+2, PRINT+3
ADEX	END!, QUE+1, PRINT+2, PRINT+3*, P2
ADEY	END!, PRINT+3*
>> DA	P2+6*
DIC	END+2!, TEMPL!, P2+6
DIC("S"	TEMPL+1*
DIC(0	TEMPL*
DIR	END+2!
DIR("?"	SIZE+5*
DIR("A"	SIZE+3*
DIR("B"	SIZE+4*
DIR(0	SIZE+2*
DR	END+2!, P2+7, P2+8, P2+9, P2+10, P2+11*
DTOUT	TEMP+2!, FILE+2, START+4, START+8, START+13, END+2!, SIZE+7, DEV+7, TLAB!, TL2+1 , TL3+2
DUOUT	TEMP+2!, FILE+2, START+4, START+8, START+13, END+2!, SIZE+7, DEV+7, TLAB!, TL1+3* , TL2+1, TL3+2, TL3+4*
DUZ	SCRN+4
IO	PRINT, TL2+2
IO("Q"	START+12!, DEV+8!, DEV+9
IO("S"	DEV+8
IOST	DEV+8
POP	TEMP+2!, START+7, START+11, DEV!, TL2+1!
U	TEMPL+4, POINT+2, DEV+2, P2+1, P2+10, SCRN+2, SCRN+4, TL1+3, TL3+4
>> X	SIZE+8
Y	TEMP+2, END+2!, TEMPL!, TEMPL+3, TEMPL+4, QUE, SCRN+2, SCRN+4, SCRN+6
Y(0	TEMPL+4
ZTDESC	QUE*, QUE+3!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	QUE*, QUE+3!
ZTSAVE	QUE+3!
ZTSAVE(	QUE+1*
ZTSK	QUE+3!
ZTUCI	QUE*, QUE+3!