Routine: LREPI1A

Package	Total	Call Graph
DRG Grouper	1	$$ICDDX^ICDCODE
Health Level Seven	1	$$HLDATE^HLFNC
Kernel	1	$$UP^XLFSTR
Lab Service	1	SITECD^LREPI1

Package	Total	Caller Graph
Lab Service	1	LREPI1

Entry Points

Name	Comments	DBIA/ICR reference
EN(LRDFN,SS,IVDT,SEQ)	;Entry to build the HL7 Segment
EXIT	;KILL THEN EXIT
CY	;BUILD HL7 MSG FOR CY SUBSCRIPT

External References

Name	Field # of Occurrence
$$HLDATE^HLFNC	CY+9, CY+41, CY+43, CY+54, CY+56
$$ICDDX^ICDCODE	CY+19
SITECD^LREPI1	CY+58
$$UP^XLFSTR	CY+13, CY+23, CY+46, CY+60, CY+79

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(	CY+70, CY+71
^LAB(60 - [#60]	CY+29, CY+32, CY+39
^LAB(61 - [#61]	CY+59
^LAM - [#64]	CY+33, CY+34, CY+35
^LR - [#63]	CY+2, CY+4, CY+8, CY+10, CY+11, CY+14, CY+15, CY+17, CY+26, CY+27 , CY+40, CY+42, CY+49, CY+53, CY+55, CY+57, CY+65, CY+67, CY+69, CY+77
^TMP("HL7"	EN+6!, CY+13, CY+23, CY+46, CY+60, CY+79*

Label References

Name	Line Occurrences
@(	EN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EN+8, EXIT+1!, CY+13, CY+23, CY+46, CY+60, CY+79
DGCNT	CY+16, CY+21, CY+23, CY+24!, CY+47!
>> HLFS	CY+6, CY+7, CY+8, CY+9, CY+12, CY+13, CY+21, CY+38, CY+39, CY+40 , CY+41, CY+45, CY+46, CY+51, CY+52, CY+53, CY+54, CY+59, CY+60, CY+72 , CY+73, CY+74, CY+75, CY+78, CY+79
>> ICD9	CY+17*, CY+19
IND	EXIT+1!
IVDT	EN~, EN+9, CY+2, CY+4, CY+8, CY+9, CY+10, CY+11, CY+14, CY+15 , CY+17, CY+26, CY+27, CY+40, CY+41, CY+42, CY+49, CY+53, CY+54, CY+55 , CY+57, CY+65, CY+67, CY+69, CY+77
LRAND	EXIT+1!
LRANT	EXIT+1!
>> LRCODE	CY+59
>> LRCS	CY+7, CY+12, CY+22, CY+31, CY+34, CY+35, CY+36, CY+39, CY+45, CY+52 , CY+59, CY+74
LRDATA	EXIT+1!, CY+5!, CY+6, CY+7, CY+8, CY+9, CY+12, CY+13, CY+20!, CY+21 , CY+22, CY+23, CY+24!, CY+37!, CY+38, CY+39, CY+40, CY+41, CY+45, CY+46 , CY+47!, CY+50!, CY+51, CY+52, CY+53, CY+54, CY+59, CY+60, CY+68!, CY+72 , CY+73, CY+74, CY+75, CY+78, CY+79
LRDFN	EN~, EN+9, CY+2, CY+4, CY+8, CY+10, CY+11, CY+14, CY+15, CY+17 , CY+26, CY+27, CY+40, CY+42, CY+49, CY+53, CY+55, CY+57, CY+65, CY+67 , CY+69, CY+77
LRES	EXIT+1!
>> LRI	CY+69*, CY+70, CY+71
>> LRIC	CY+14*, CY+15, CY+17
LRINLT	EXIT+1!, CY+32*, CY+33, CY+34, CY+35, CY+47!
LRNLT	CY+31, CY+34, CY+35, CY+36, CY+39, CY+47!
LRNT	EXIT+1!
>> LRNX	CY+66, CY+67, CY+69, CY+77
>> LRO	CY+71*, CY+74
LRRDTE	EXIT+1!, CY+42, CY+43, CY+55, CY+56, CY+75
LRREF	EXIT+1!
>> LRRES	CY+76, CY+77, CY+78
>> LRSI	CY+10*, CY+11
>> LRSUB	CY+64*, CY+65, CY+67, CY+69, CY+70, CY+71, CY+77
LRTMP	CY+18~, CY+19*, CY+21, CY+22
>> LRTOP	CY+49*, CY+57, CY+65, CY+67, CY+69, CY+77
LRTST	EXIT+1!, CY+30*, CY+39, CY+47!
LRUNIT	EXIT+1!
LRWKDT	CY+27*, CY+28, CY+29, CY+30, CY+32, CY+44, CY+47!
>> LRWKI	CY+26*, CY+27
ND	EXIT+2!, CY+62*, CY+70, CY+71
NLT	EXIT+2!
NLTP	EXIT+2!
ORGNB	EXIT+2!
ORGPT	EXIT+2!
SEQ	EN~, EN+7, EXIT+3, CY+6, CY+13, CY+38, CY+46, CY+51, CY+60
SEQX	EXIT+2!, CY+63, CY+72, CY+79
SITE	EXIT+2!, CY+10, CY+11, CY+12, CY+44, CY+45, CY+57, CY+59
SS	EN~, EN+9, EN+10, CY+2, CY+4, CY+8, CY+10, CY+11, CY+14, CY+15 , CY+17, CY+26, CY+27, CY+40, CY+42, CY+49, CY+53, CY+55, CY+57, CY+65 , CY+67, CY+69, CY+77
TYPE	EXIT+2!
U	CY+8, CY+11, CY+17, CY+21, CY+22, CY+28, CY+29, CY+30, CY+32, CY+34 , CY+35, CY+39, CY+40, CY+42, CY+44, CY+53, CY+55, CY+57, CY+59, CY+69 , CY+74, CY+77

Marked Items

Name	Field # of Occurrence
$T(@SS	EN+10

Customize PDF page

Package: Lab Service

Routine: LREPI1A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items