Routine: LRLABXT

Name	Comments	DBIA/ICR reference
LOAD	; Tasked entry point and from above.
EN	; Reprint labels
SETTMP	; Setup TMP global with accession to reprint.
IOCHK	; Select and check label printer. ; Called from above, LRLABXOL
K	; Cleanup
PRINT	; ; Called by above, LRLABXOL
ASK	;

External References

Name	Field # of Occurrence
PKILL^%ZISP	K+2
CLOSE^%ZISUTL	K+2
OPEN^%ZISUTL	EN+3, IOCHK+10
USE^%ZISUTL	EN+4, ASK+1, ASK+35
^%ZTLOAD	ASK+31
^DIR	EN+7, ASK+10, ASK+25
GO^LRLABLD	PRINT+8
LBLTYP^LRLABLD	LOAD+4
LRBAR^LRLABLD	PRINT+7
PSET^LRLABLD	LOAD+1
^LRLABLIO	IOCHK+3
^LRWU4	ASK+5, ASK+18
KVAR^LRX	K+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+8
Function Call: WRITE	Prompt: ! Line Location: ASK+12
Function Call: WRITE	Prompt: !,"Labels ",$S($G(ZTSK):"queued to "_$P(LRLABLIO,";")_" Task #"_ZTSK,1:"NOT queued"),! Line Location: ASK+32
Function Call: WRITE	Prompt: !!,"Printing labels on ",$P(LRLABLIO,";"),! Line Location: ASK+34
Function Call: WRITE	Prompt: !,$C(7),"Unable to open device" Line Location: IOCHK+12
Routine Call	DIR Line Location: EN+7 ASK+10 ASK+25

Name	Line Occurrences (* Changed, ! Killed)
^LRO(68 - [#68]	ASK+7, ASK+14, PRINT+2, PRINT+3, PRINT+4, PRINT+5
^TMP("LRLABXT"	ASK+3!, ASK+20, LOAD+2, SETTMP+1*, K+8!

Name	Line Occurrences
ASK	ASK+28, LOAD+8
IOCHK	EN+1
K	EN+2, EN+8, ASK+27, LOAD+7
PRINT	LOAD+5
SETTMP	ASK+16, ASK+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	K+4!
%ZIS	IOCHK+8~, IOCHK+9*, IOCHK+10
A	K+4!
B	K+4!
DIC	K+4!
DIR	EN+5!, ASK+10!, ASK+23~
DIR("A"	EN+6, ASK+9, ASK+24*
DIR("B"	EN+6, ASK+9, ASK+24*
DIR(0	EN+6, ASK+9, ASK+24*
DIRUT	EN+5!, EN+8, ASK+11, ASK+23~, ASK+26
DTOUT	EN+5!, ASK+19, ASK+23~
DUOUT	EN+5!, ASK+19, ASK+23~
>> FIRST	ASK+7*, ASK+13
I	K+4!
I1	K+4!
IO("Q"	IOCHK+5, K+4!
IOM	ASK+15
IOP	IOCHK+8~, IOCHK+9*, IOCHK+10, K+4!
J	K+4!
K	K+4!
L	K+4!
LAST	ASK+13*, ASK+14, K+4!
LRAA	ASK+7, ASK+14, LOAD+3*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, SETTMP+1, K+5!
LRACC	ASK+2, PRINT+5, K+5!
LRAD	ASK+7, ASK+14, LOAD+3*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, SETTMP+1, K+5!, K+6!
LRAN	ASK+6, ASK+7, ASK+9, ASK+13, ASK+14, ASK+17, ASK+20, LOAD+3*, PRINT+2, PRINT+3 , PRINT+4, PRINT+5, SETTMP+1, K+5!
LRBAR	K+7!
LRBAR0	K+7!
LRBAR1	K+7!
LRBARID	K+7!
LRCE	PRINT+4*, K+5!
LRCNT	ASK+2, ASK+22, ASK+24, SETTMP+1, K+5!
LRDAT	K+5!
LRDFN	K+5!
LRDPF	K+5!
LREXMPT	ASK+2*, K+5!
LRFN	K+6!
LRINFW	K+5!
LRLABEL	K+5!
LRLABLIO	EN+2, ASK+29, ASK+32, ASK+34, IOCHK+2, IOCHK+5, IOCHK+6, IOCHK+9, IOCHK+13!, K+6!
LRLABLIO("Q"	ASK+28, IOCHK+7
LRLABX	LOAD+2*, LOAD+3, LOAD+6, K+6!
LRLF	K+5!
LRLLOC	PRINT+3*, K+6!
LRNN	K+6!
LRNOLABL	K+6!
LRODT	PRINT+3*, K+5!
LRPRAC	K+6!
LRPREF	K+5!
LRQUIT	ASK+2, ASK+6, ASK+11, ASK+17, ASK+19, ASK+20, ASK+22, ASK+26, ASK+27, K+6!
LRRB	PRINT+6*, K+6!
LRSN	PRINT+3*, K+6!
LRSSP	K+5!
LRTJ	K+6!
LRTJDATA	K+6!
LRTOP	K+6!
LRTS	K+6!
LRTV	K+6!
LRTVOL	K+6!
LRTXT	K+6!
LRTYPE	EN+9*, ASK+4, ASK+17, K+6!
LRUID	K+7!
LRURG	K+7!
LRURG0	K+7!
LRURGA	K+7!
LRVOL	K+6!
LRX	K+7!
LRXL	K+7!
N	K+4!
POP	IOCHK+11, K+4!
R	K+4!
S1	K+4!
S2	K+4!
T	K+4!
U	PRINT+3
X	EN+5!, ASK+7, ASK+9, ASK+23~, PRINT+3, K+4!
Y	EN+5!, EN+9, ASK+13, ASK+23~, ASK+26, K+4!
Z	K+4!
ZTDESC	ASK+29*, ASK+33!
ZTIO	ASK+29*, ASK+33!
>> ZTQUEUED	LOAD+7, K+1
>> ZTREQ	K+1*
ZTRTN	ASK+29*, ASK+33!
ZTSAVE	ASK+33!
ZTSAVE("^TMP(""LRLABXT"",$J,"	ASK+30*
ZTSK	ASK+32, ASK+33!

Customize PDF page

Package: Lab Service

Routine: LRLABXT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: