Routine: LA7CHLU

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

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7CHDR

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
FILE^DIE	INIT6249+24
WP^DIE	FILE6249+17
$$M11^HLFNC	BLG+9
INIT^HLFNC2	INITHL+12
GENERATE^HLMA	GEN+13
$$MSH^LA7CHDR	STARTMSG+10
CREATE^LA7LOG	STARTMSG+15, GEN+15, GEN+18
$$INIT6249^LA7VHLU	STARTMSG+11
FILE6249^LA7VHLU	STARTMSG+23
$$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+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+12, STARTMSG+14, INITHL+9!, INITHL+12
HL("ECH"	INITHL+14, INITHL+15, INITHL+16
HL("FS"	INITHL+13
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+11, STARTMSG+14, STARTMSG+23, 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+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+9, FILE6249+11
LA7DATA(0	FILESEG+11
LA7EC	P~, P+11, P+13, PA~, PA+11, PA+13
LA7ECH	STARTMSG+10, 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+10, 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+4~, FILE6249+8, FILE6249+9*, FILE6249+11
LA7J	BUILDSEG+11~, BUILDSEG+26, BUILDSEG+27, BUILDSEG+28, BUILDSEG+29, 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+23
LA7MSH(0	STARTMSG+10*
LA7NLT	RETOBR~, RETOBR+21, RETOBR+30
LA7NOMSG	STARTMSG~, STARTMSG+23
LA7P	P~, P+11, P+13, PA~, PA+11, PA+13
LA7ROOT	FILESEG~, FILESEG+5, FILESEG+8, FILESEG+11, FILESEG+15
>> LA7SITE	STARTMSG+10
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+4~
LA7WP(	FILE6249+11, FILE6249+14
LA7X	STARTMSG+13~, 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+14*
LA7X(2	STARTMSG+14*
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~, 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: LA7CHLU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: