Routine: LRLABLD

Package	Total	Call Graph
Kernel	3	(PKILL,PSET)^%ZISP $$FMTE^XLFDT $$RJ^XLFSTR
Lab Service	1	PT^LRX
Registration	1	KVA^VADPT

Package

Total

Call Graph

Kernel

(PKILL,PSET)^%ZISP $$FMTE^XLFDT $$RJ^XLFSTR

Lab Service

PT^LRX

Registration

KVA^VADPT

Package	Total	Caller Graph
Lab Service	18	LRLABEL LRLABEL1 LRLABEL2 LRLABEL3 LRLABEL5 LRLABEL6 LRLABELA LRLABELB LRLABELC LRLABELD LRLABELE LRLABELF LRLABELG LRLABLD0 LRLABLIO LRLABXOL LRLABXT LRPHLIS1
IHS Changes To Lab	1	BLRAG05A

Package

Total

Caller Graph

Lab Service

LRLABEL  LRLABEL1  LRLABEL2  LRLABEL3  LRLABEL5  LRLABEL6  LRLABELA  LRLABELB
LRLABELC  LRLABELD  LRLABELE  LRLABELF  LRLABELG  LRLABLD0  LRLABLIO  LRLABXOL
LRLABXT  LRPHLIS1

IHS Changes To Lab

BLRAG05A

Entry Points

Name	Comments	DBIA/ICR reference
LRBAR	; Setup LRBAR array if barcodes for this accession area ; Called by above, LRLABLD0, LRLABLIO, LRLABXT, LRPHIS1
UID	; Set up variables for unique id. ; Called by above, LRLABLD0, LRPHLIS1 ; LRUID = unique id number of accession
LBLTYP	; Determine label routine to use. ; Sets LRLABEL to label print routine (label^routine). ; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1
EN2	;
ENT	; ; Called by LROE
BARID	; Set up variables for barcoding ; LRBARID = number to be barcoded on label, based on accession area setup in file #68. ; If no accession # or UID - sets LRBARID="" ; Called by LRLABLD0, LRPHLIS1
GO	; From above, LRLABXT, LRPHLIS1
PSET	; Setup special printer variables - barcode on/barcode off ; Called by above, LRLABXOL, LRLABXT, LRPHLIS1
LRTXT(LRTLST,LRLEN)	; Parse test list to print on label. ; Builds a string of test names concatentated using ";" to the maximum ; length (LRLEN) specified. Terminates list with "..." if exceeds length ; specified. ; Call with ; LRTLST = array containing name of test to parse ; LRLEN = length of test string to return (default=35)
URGA(X)	; Determine urgency abbreviation to print on label ; Input X = pointer to Urgency #62.05 file ; Returns Y = urgency abbreviation^display type if turned on ; Called by above, LRLABELF, LRLABLD0, LRLABLIO, LRPHLIS1

Name	Field # of Occurrence
PKILL^%ZISP	ENT+9, PSET+4
PSET^%ZISP	PSET+7
PT^LRX	GO+17
KVA^VADPT	GO+39
$$FMTE^XLFDT	GO+5
$$RJ^XLFSTR	BARID+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	GO+28, GO+29, GO+30
^LAB(61 - [#61]	GO+13
^LAB(62 - [#62]	GO+7, GO+12, GO+14
^LAB(62.05 - [#62.05]	URGA+7
^LAB(69.9 - [#69.9]	LBLTYP+7, LBLTYP+8, LBLTYP+10
^LR - [#63]	GO+16
^LRO(68 - [#68]	GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23, UID+3, BARID+5, LBLTYP+15 , LBLTYP+16, LRBAR+3
^LRO(69 - [#69]	GO+6

Name	Line Occurrences
$$URGA	GO+33
@(	GO+38
BARID	GO+18
EN2	ENT+6
GO	EN2+7
LBLTYP	EN2+1
LRBAR	EN2+2
PSET	ENT+3
UID	GO+18

Name	Field # of Occurrence
^(	GO+28
^(0	GO+16, GO+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	GO+16*
I	GO+35, LRTXT+13~, LRTXT+21
IO	ENT+4
>> IOBAROFF	PSET+9
>> IOBARON	PSET+10
>> IOS	LBLTYP+8
IOST(0	PSET+7
J	LRTXT+13~, LRTXT+15, LRTXT+16, LRTXT+17
>> LRAA	ENT+5, ENT+6, EN2+4, EN2+6, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22 , GO+23, UID+3, BARID+5, LBLTYP+12*, LBLTYP+15, LBLTYP+16, LRBAR+2, LRBAR+3
>> LRACC	EN2+6*
>> LRAD	EN2+6*, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23, UID+3
>> LRAN	EN2+3, EN2+4, EN2+6, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23 , UID+3, BARID+8, BARID+9
LRBAR	ENT+7!
LRBAR(	LRBAR+3*
LRBAR0	ENT+7!, PSET+9*
LRBAR1	ENT+7!, PSET+10*
LRBARID	ENT+7!, BARID+6, BARID+7, BARID+8, BARID+9, BARID+10
>> LRCE	EN2+6*
>> LRDAT	GO+5*
>> LRDFN	GO+15*, GO+16
>> LRDPF	GO+16*
LREND	ENT+7!, GO+17
LRI	ENT+7!, GO+34*, GO+35, GO+36~
>> LRINFW	GO+16*
>> LRLABEL	GO+38, LBLTYP+7, LBLTYP+16, LBLTYP+23, LBLTYP+27, LBLTYP+28, LBLTYP+29, LBLTYP+33, LBLTYP+34, LBLTYP+35*
>> LRLABLIO	ENT+4*
>> LRLBL(	ENT+6, EN2+4, EN2+6
LRLBLDEV	LBLTYP+4~, LBLTYP+8*, LBLTYP+9, LBLTYP+10, LBLTYP+19
LRLBLDEV(0	LBLTYP+10*, LBLTYP+12, LBLTYP+22, LBLTYP+23, LBLTYP+26, LBLTYP+27, LBLTYP+28, LBLTYP+29, LBLTYP+32, LBLTYP+33 , LBLTYP+34, LBLTYP+35
LRLEN	LRTXT~, LRTXT+14*, LRTXT+16, LRTXT+19, LRTXT+21, LRTXT+22
LRLLOC	EN2+5~, EN2+6*
LRN	ENT+7!, GO+31*, GO+32, GO+34, GO+35, GO+36~
>> LRODT	EN2+6*, GO+6
LROK	ENT+7!
>> LRPREF	GO+37*
LRRB	EN2+5~, EN2+6*
>> LRSN	EN2+6*, GO+6
>> LRSSP	GO+28*
>> LRTJ	GO+6*, GO+7, GO+14, GO+28
>> LRTJDATA	GO+7, GO+8, GO+14
LRTLST	LRTXT~
LRTLST(	LRTXT+16, LRTXT+17
>> LRTOP	GO+8, GO+9, GO+10, GO+11, GO+12, GO+13*
LRTS	GO+19!
LRTS(	GO+29*
>> LRTV	GO+23*, GO+24, GO+26, GO+27, GO+28, GO+29, GO+30
>> LRTVOL	GO+20, GO+28, GO+31, GO+37*
LRTXT	LRTXT+13~, LRTXT+15, LRTXT+16, LRTXT+18, LRTXT+19, LRTXT+20, LRTXT+21, LRTXT+22*, LRTXT+23
>> LRUID	UID+3, UID+4, BARID+7
LRURG	ENT+7!, GO+19!, GO+26*
LRURG0	ENT+7!, GO+20, GO+27, GO+33
LRURGA	ENT+7!, GO+33*
>> LRVOL	GO+25, GO+28
LRX	BARID+4~, BARID+5*, BARID+7, BARID+10
>> LRXL	GO+20, GO+30, GO+31
>> N	GO+35*
>> S1	GO+8, GO+14, GO+31, GO+37
>> S2	GO+8, GO+14, GO+37
>> T	GO+12, GO+13, GO+21, GO+22*, GO+23, GO+29
U	ENT+2*, EN2+6, GO+5, GO+6, GO+8, GO+12, GO+13, GO+14, GO+16, GO+24 , GO+26, GO+27, GO+28, GO+29, GO+30, LBLTYP+7, LRBAR+3
X	EN2+6, URGA~, URGA+6, URGA+7, LRTXT+13~, LRTXT+17, LRTXT+18, LRTXT+21*, LRTXT+22
X(0	URGA+7*, URGA+8
Y	URGA+4~, URGA+5, URGA+6, URGA+8, URGA+9, LRTXT+13~, LRTXT+20*, LRTXT+21
>> ZTQUEUED	ENT+8
>> ZTREQ	ENT+8*

Customize PDF page

Package: Lab Service

Routine: LRLABLD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: