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
Kernel	1	$$NOW^XLFDT
VA FileMan	1	(FILE,WP)^DIE

Package	Total	Caller Graph
Automated Lab Instruments	33	LA7HDR LA7HDR1 LA7POC LA7QRY1 LA7UIO1 LA7VHL LA7VHLU LA7VHLU3 LA7VHLU7 LA7VHLU8 LA7VIN2 LA7VIN2A LA7VIN3 LA7VIN4 LA7VIN4A LA7VIN5 LA7VIN5A LA7VIN5B LA7VIN7 LA7VMSG LA7VMSG1 LA7VOBX1 LA7VOBX2 LA7VOBX4 LA7VORM LA7VORM1 LA7VORM2 LA7VORM3 LA7VORU LA7VORU1 LA7VORUA LA7VORUB LA7VPID

Entry Points

Name	Comments	DBIA/ICR reference
STARTMSG(LA7EVNT,LA76249,LA7NOMSG)	; Create/initialize HL message
INITHL(LA7EVNT)	; Initialize HL environment
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
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
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)
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
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)
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
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
BLG(LA7ACTN,LA7CHGTY,LA7FS,LA7ECH)	; Build BLG segment - billing information ; Call with LA7ACTN = billing account Number ; LA7CHGTY = charge type ; LA7ECH = HL encoding characters
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.)
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.

Name	Field # of Occurrence
FILE^DIE	INIT6249+24
WP^DIE	FILE6249+17
$$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+23

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

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.49 - [#62.49]	INIT6249+7, INIT6249+10, INIT6249+11, INIT6249+12, INIT6249+13, INIT6249+16, INIT6249+19, INIT6249+20
^LRO(69.6 - [#69.6]	PTEXTID+19, PTEXTID+21, PTEXTID+24, PTEXTID+25, RETOBR+26, RETOBR+29, RETOBR+33, RETOBR+36, RETOBR+37, RETOBR+38 , RETOBR+39
^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, RETOBR+16~ , RETOBR+20*
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+19, RETOBR+23, RETOBR+26
LA76249	STARTMSG~, STARTMSG+8, STARTMSG+10, STARTMSG+13, STARTMSG+22, INIT6249+11, INIT6249+12, INIT6249+13, INIT6249+19, INIT6249+22 , INIT6249+23, INIT6249+25, INIT6249+27, FILE6249~, FILE6249+5, FILE6249+17
LA7696	PTEXTID+12~, PTEXTID+19, PTEXTID+20, PTEXTID+21, PTEXTID+24, PTEXTID+25, RETOBR+16~, RETOBR+25, RETOBR+26*, RETOBR+27 , RETOBR+29, RETOBR+33, RETOBR+36, RETOBR+37, RETOBR+38, RETOBR+39
LA76964	RETOBR+16~, RETOBR+33*, RETOBR+34, RETOBR+36, RETOBR+37, RETOBR+38, RETOBR+39
LA7ACTN	BLG~, BLG+9
LA7ARRAY	BUILDSEG~
LA7ARRAY(	BUILDSEG+24, BUILDSEG+26, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30, BUILDSEG+31
LA7ARRAY(""	BUILDSEG+21
LA7CHGTY	BLG~, BLG+8*, BLG+9
LA7DATA	BUILDSEG~, BUILDSEG+13!, FILESEG~, FILE6249~
LA7DATA(	BUILDSEG+24, BUILDSEG+25, BUILDSEG+29, BUILDSEG+30, BUILDSEG+31*, FILESEG+15, FILE6249+9, FILE6249+11
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+4~, INIT6249+25
LA7EVNT	STARTMSG~, STARTMSG+9, INITHL~, INITHL+11
LA7FDA	INIT6249+4~
LA7FDA(1	INIT6249+22, INIT6249+23
LA7FS	STARTMSG+15, STARTMSG+16, STARTMSG+17, STARTMSG+18, STARTMSG+19, STARTMSG+20, INITHL+13, BUILDSEG~, BUILDSEG+15, BUILDSEG+25 , BLG~, BLG+9
LA7HLSN	FILESEG+4~, FILESEG+8*, FILESEG+11, FILESEG+15
LA7I	BUILDSEG+11~, BUILDSEG+23, BUILDSEG+24, BUILDSEG+25, BUILDSEG+26, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30, BUILDSEG+31, FILESEG+4~ , FILESEG+14, FILESEG+15, FILE6249+4~, FILE6249+8, FILE6249+9*, FILE6249+11
LA7J	BUILDSEG+11~, BUILDSEG+27, BUILDSEG+28, BUILDSEG+29, BUILDSEG+30, FILE6249+4~, FILE6249+8, FILE6249+10, FILE6249+11, FILE6249+14
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+23, RETOBR+26, RETOBR+33
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+25, BUILDSEG+29*, BUILDSEG+30, BUILDSEG+31
LA7UID	PTEXTID~, PTEXTID+14, PTEXTID+17, PTEXTID+19, RETOBR~, RETOBR+19, RETOBR+23, RETOBR+26
LA7WP	FILE6249+4~
LA7WP(	FILE6249+11, FILE6249+14
LA7X	STARTMSG+12~, P~, PA~, PTEXTID+12~, PTEXTID+21, PTEXTID+22, PTEXTID+23, RETOBR+16~, RETOBR+29, RETOBR+30 , RETOBR+31
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+19*
LA7Y(	PA+13, RETOBR+20
LA7Y("ECH"	PTEXTID+23, RETOBR+31
LA7Y("FS"	PTEXTID+22, RETOBR+30
LA7Y("OBR-17"	RETOBR+37*
LA7Y("OBR-18"	RETOBR+38*
LA7Y("OBR-19"	RETOBR+39*
LA7Y("OBR-4"	RETOBR+36*
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+4~, INIT6249+10, INIT6249+11, INIT6249+13

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VHLU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 33

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: