Routine: LA7VHLU

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Health Level Seven	3	$$M11^HLFNC INIT^HLFNC2 GENERATE^HLMA
Automated Lab Instruments	2	CREATE^LA7LOG ($$INIT6249,FILE6249)^LA7VHLU
IHS Changes To Lab	1	ENTRYAUD^BLRUTIL
Kernel	1	$$NOW^XLFDT
VA Fileman	1	(FILE,WP)^DIE

Package

Total

Call Graph

Health Level Seven

$$M11^HLFNC INIT^HLFNC2 GENERATE^HLMA

Automated Lab Instruments

CREATE^LA7LOG ($$INIT6249,FILE6249)^LA7VHLU

IHS Changes To Lab

ENTRYAUD^BLRUTIL

Kernel

$$NOW^XLFDT

VA Fileman

(FILE,WP)^DIE

Package	Total	Caller Graph
Automated Lab Instruments	58	LA7CHDR LA7CHLU LA7CHLU3 LA7COBX1 LA7COBX2 LA7COBX3 LA7CORU LA7CORU1 LA7CORUB LA7CQRY1 LA7HDR LA7HDR1 LA7POC LA7QRY1 LA7VCIN2 LA7VCIN3 LA7VCIN4 LA7VCIN5 LA7VCIN9 LA7VCMI LA7VCN5A LA7VHL LA7VHLU LA7VHLU3 LA7VIN2 LA7VIN3 LA7VIN4 LA7VIN5 LA7VIN5A LA7VLIN2 LA7VLIN3 LA7VLIN4 LA7VLIN5 LA7VLN5A LA7VMSG LA7VMSG1 LA7VOBX1 LA7VOBX2 LA7VOBX3 LA7VORM LA7VORM1 LA7VORM2 LA7VORM3 LA7VORU LA7VORU1 LA7VORUB LA7VPID LA7VQIN2 LA7VQIN3 LA7VQIN4 LA7VQIN5 LA7VQINS LA7VQN5A LA7VRIN2 LA7VRIN3 LA7VRIN4 LA7VRIN5 LA7VRN5A
IHS Changes To Lab	1	BLRVHL

Package

Total

Caller Graph

Automated Lab Instruments

LA7CHDR  LA7CHLU  LA7CHLU3  LA7COBX1  LA7COBX2  LA7COBX3  LA7CORU  LA7CORU1
LA7CORUB  LA7CQRY1  LA7HDR  LA7HDR1  LA7POC  LA7QRY1  LA7VCIN2  LA7VCIN3
LA7VCIN4  LA7VCIN5  LA7VCIN9  LA7VCMI  LA7VCN5A  LA7VHL  LA7VHLU  LA7VHLU3
LA7VIN2  LA7VIN3  LA7VIN4  LA7VIN5  LA7VIN5A  LA7VLIN2  LA7VLIN3  LA7VLIN4
LA7VLIN5  LA7VLN5A  LA7VMSG  LA7VMSG1  LA7VOBX1  LA7VOBX2  LA7VOBX3  LA7VORM
LA7VORM1  LA7VORM2  LA7VORM3  LA7VORU  LA7VORU1  LA7VORUB  LA7VPID  LA7VQIN2
LA7VQIN3  LA7VQIN4  LA7VQIN5  LA7VQINS  LA7VQN5A  LA7VRIN2  LA7VRIN3  LA7VRIN4
LA7VRIN5  LA7VRN5A

IHS Changes To Lab

BLRVHL

Entry Points

Name	Comments	DBIA/ICR reference
INIT6249()	; Create stub entry in file #62.49 ; Returns ien of entry in #62.49 that was created ; NOTE: set lock on entry in #62.49, does not release it - calling process should release lock
RETOBR(LA74,LA7UID,LA7NLT,LA7Y)	; Retrieve placer's various OBR's that were transmitted by other system. ; Used to build OBR-4/17/18 when returning results to placer. ; Looks in file LAB PENDING ORDERS (#69.6) for info pertaining to placer's order.
FILE6249(LA76249,LA7DATA)	; File HL segment in LAHM(62.49) global ; Call with LA76249 = ien of entry in file # 62.49 ; LA7DATA = array with data to file (pass by reference)
BUILDSEG(LA7ARRAY,LA7DATA,LA7FS)	; Build HL segment ; Call with LA7ARRAY = array containing fields to build into a segment, ; passed by reference. ; LA7DATA = array used to build segment, pass by reference ; used to return built segment. ; LA7FS = HL field separator
PTEXTID(LA74,LA7UID,LA7Y)	; Retrieve patient's id that was transmitted by other system. ; Used to build PID-2 when returning results to placer. ; Looks in file LAB PENDING ORDERS (#69.6) for info pertaining to placer's order. ; Call with LA74 = ien of placer in INSTITUTION file (#4) ; LA7UID = placer's specimen identifier (UID, etc.)
STARTMSG(LA7EVNT,LA76249,LA7NOMSG)	; Create/initialize HL message
INITHL(LA7EVNT)	; Initialize HL environment
FILESEG(LA7ROOT,LA7DATA)	; File HL segment in global ; Call with LA7ROOT = global root used to store HL segment ; LA7DATA = array with data to file (pass by reference)
BLG(LA7ACTN,LA7CHGTY,LA7FS,LA7ECH)	; Build BLG segment - billing information ; Call with LA7ACTN = billing account Number ; LA7CHGTY = charge type ; LA7ECH = HL encoding characters
P(LA7X,LA7P,LA7EC)	; get field LA7P from array (passed by ref.) ; Call with LA7X = array to extract data from, pass by reference. ; LA7P = field to extract ; LA7EC = encoding character separator
GEN	; Generate HL7 v1.6 message ; LA7101 - IEN of event protocol ; HLARYTYP - array type ; HLFORMAT - HLMA formatted/not formatted ; HLMTIEN - IEN in 772 (batch messages) ; HLRESLT = message ID^error code^error description ; HLP("CONTPTR") - continuation pointer field value ; HLP("PRIORITY") - priority field value ; HLP("NAMESPACE") - package namespace ;
PA(LA7X,LA7P,LA7EC,LA7Y)	; get field LA7P from array (passed by ref.) ; Call with LA7X = array to extract data from, pass by reference. ; LA7P = field to extract ; LA7EC = encoding character separator

External References

Name	Field # of Occurrence
ENTRYAUD^BLRUTIL	INIT6249+4, INIT6249+29, FILE6249+4
FILE^DIE	INIT6249+26
WP^DIE	FILE6249+19
$$M11^HLFNC	BLG+9
INIT^HLFNC2	INITHL+12
GENERATE^HLMA	GEN+13
CREATE^LA7LOG	STARTMSG+14, GEN+15, GEN+18
$$INIT6249^LA7VHLU	STARTMSG+10
FILE6249^LA7VHLU	STARTMSG+22
$$NOW^XLFDT	INIT6249+25

FileNo	Call Tags
^LAHM(62.49 - [#62.49]	WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.49 - [#62.49]	INIT6249+9, INIT6249+12, INIT6249+13, INIT6249+14, INIT6249+15, INIT6249+18, INIT6249+21, INIT6249+22
^LRO(69.6 - [#69.6]	PTEXTID+19, PTEXTID+21, PTEXTID+24, PTEXTID+25, RETOBR+23, RETOBR+26, RETOBR+30, RETOBR+33, RETOBR+34, RETOBR+35 , RETOBR+36
^ORD(101 - [#101]	INITHL+11
^TMP("HLS"	INITHL+8!

Name	Line Occurrences
INITHL	STARTMSG+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
HL	STARTMSG+11, STARTMSG+13, INITHL+9!, INITHL+12
HL("ACAT"	STARTMSG+19
HL("APAT"	STARTMSG+20
HL("ECH"	INITHL+14, INITHL+15, INITHL+16
HL("ETN"	STARTMSG+16
HL("FS"	INITHL+13
HL("MTN"	STARTMSG+16
HL("PID"	STARTMSG+17
HL("SAF"	STARTMSG+15
HL("SAN"	STARTMSG+15
HL("VER"	STARTMSG+18
HLARYTYP	GEN+10~, GEN+11*, GEN+13
HLCOMP	INITHL+9!, INITHL+15*
>> HLECH	INITHL+14*
HLEID	GEN+10~, GEN+11*, GEN+13
HLERR	INITHL+9!
HLFORMAT	GEN+10~, GEN+11*, GEN+13
HLFS	INITHL+9!, INITHL+13*
HLMID	INITHL+9!
HLMTIEN	GEN+10~, GEN+11*, GEN+13
HLP	GEN+13, GEN+19!
HLP("NAMESPACE"	GEN+12*
HLRESLT	GEN+10~, GEN+11, GEN+13, GEN+14, GEN+15, GEN+18
HLSUB	INITHL+9!, INITHL+16*
I	GEN+10~, GEN+17, GEN+18, P+7~, P+11, P+13, PA+7~, PA+11, PA+13
L	P+7~, P+8, P+11, P+13, P+14, PA+7~, PA+8, PA+11, PA+13, PA+14
L1	P+7~, P+11, PA+7~, PA+11
>> LA7101	INITHL+11*, INITHL+12, GEN+11
LA74	PTEXTID~, PTEXTID+14, PTEXTID+17, PTEXTID+19, RETOBR~, RETOBR+18, RETOBR+21, RETOBR+23
LA76249	STARTMSG~, STARTMSG+8, STARTMSG+10, STARTMSG+13, STARTMSG+22, INIT6249+13, INIT6249+14, INIT6249+15, INIT6249+21, INIT6249+24 , INIT6249+25, INIT6249+27, INIT6249+31, FILE6249~, FILE6249+7, FILE6249+19
LA7696	PTEXTID+12~, PTEXTID+19, PTEXTID+20, PTEXTID+21, PTEXTID+24, PTEXTID+25, RETOBR+16~, RETOBR+23, RETOBR+24, RETOBR+26 , RETOBR+30, RETOBR+33, RETOBR+34, RETOBR+35, RETOBR+36
LA76964	RETOBR+16~, RETOBR+30*, RETOBR+31, RETOBR+33, RETOBR+34, RETOBR+35, RETOBR+36
LA7ACTN	BLG~, BLG+9
LA7ARRAY	BUILDSEG~
LA7ARRAY(	BUILDSEG+24, BUILDSEG+25, BUILDSEG+27, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30
LA7ARRAY(""	BUILDSEG+21
LA7CHGTY	BLG~, BLG+8*, BLG+9
LA7DATA	BUILDSEG~, BUILDSEG+13!, FILESEG~, FILE6249~
LA7DATA(	BUILDSEG+24, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30, FILESEG+15, FILE6249+11, FILE6249+13
LA7DATA(0	FILESEG+11
LA7EC	P~, P+11, P+13, PA~, PA+11, PA+13
LA7ECH	STARTMSG+15, STARTMSG+16, INITHL+14*, BLG~, BLG+9
LA7ERR	INIT6249+6~, INIT6249+27, INIT6249+29
LA7EVNT	STARTMSG~, STARTMSG+9, INITHL~, INITHL+11
LA7FDA	INIT6249+6~
LA7FDA(1	INIT6249+24, INIT6249+25
LA7FS	STARTMSG+15, STARTMSG+16, STARTMSG+17, STARTMSG+18, STARTMSG+19, STARTMSG+20, INITHL+13, BUILDSEG~, BUILDSEG+15, BUILDSEG+30 , BLG~, BLG+9
LA7HLSN	FILESEG+4~, FILESEG+8*, FILESEG+11, FILESEG+15
LA7I	BUILDSEG+11~, BUILDSEG+23, BUILDSEG+24, BUILDSEG+25, BUILDSEG+27, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30, FILESEG+4~, FILESEG+14 , FILESEG+15, FILE6249+6~, FILE6249+10, FILE6249+11*, FILE6249+13
LA7J	BUILDSEG+11~, BUILDSEG+26, BUILDSEG+27, BUILDSEG+28, BUILDSEG+29, FILE6249+6~, FILE6249+10, FILE6249+12, FILE6249+13, FILE6249+16
LA7LAST	BUILDSEG+11~, BUILDSEG+21*, BUILDSEG+23
LA7MID	GEN+14!*, GEN+18
LA7MID(	GEN+18
LA7MID(0	GEN+16
LA7MSH	STARTMSG+6~, STARTMSG+22
LA7MSH(0	STARTMSG+21*
LA7NLT	RETOBR~, RETOBR+21, RETOBR+30
LA7NOMSG	STARTMSG~, STARTMSG+22
LA7P	P~, P+11, P+13, PA~, PA+11, PA+13
LA7ROOT	FILESEG~, FILESEG+5, FILESEG+8, FILESEG+11, FILESEG+15
LA7SUB	BUILDSEG+11~, BUILDSEG+18, BUILDSEG+24, BUILDSEG+28*, BUILDSEG+29, BUILDSEG+30
LA7UID	PTEXTID~, PTEXTID+14, PTEXTID+17, PTEXTID+19, RETOBR~, RETOBR+18, RETOBR+21, RETOBR+23
LA7WP	FILE6249+6~
LA7WP(	FILE6249+13, FILE6249+16
LA7X	STARTMSG+12~, P~, PA~, PTEXTID+12~, PTEXTID+21, PTEXTID+22, PTEXTID+23, RETOBR+16~, RETOBR+26, RETOBR+27 , RETOBR+28
LA7X(	P+11, P+13, PA+11, PA+13
LA7X(1	STARTMSG+13*
LA7X(2	STARTMSG+13*
LA7Y	P+7~, P+8, P+13, P+15, PA~, PA+8, PA+13, BLG+9, BLG+10, PTEXTID~ , PTEXTID+14, RETOBR~, RETOBR+18*
LA7Y(	PA+13*
LA7Y("ECH"	PTEXTID+23, RETOBR+28
LA7Y("FS"	PTEXTID+22, RETOBR+27
LA7Y("OBR-17"	RETOBR+34*
LA7Y("OBR-18"	RETOBR+35*
LA7Y("OBR-19"	RETOBR+36*
LA7Y("OBR-4"	RETOBR+33*
LA7Y("PID-2"	PTEXTID+24*
LA7Y("PID-4"	PTEXTID+25*
X	STARTMSG+6~, STARTMSG+15, STARTMSG+16, STARTMSG+17, STARTMSG+18, STARTMSG+19, STARTMSG+20, STARTMSG+21, PA+7~, PA+13*
Y	P+7~, P+8, P+11, P+13, P+14, PA+7~, PA+8, PA+11, PA+13, PA+14
ZERO	INIT6249+6~, INIT6249+12, INIT6249+13, INIT6249+15

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VHLU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 59

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: