Routine: LA7VHLU

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	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

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

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

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: