LA7VHLU ;DALOI/JMC - HL7 segment builder utility ;12/07/11 16:18
Source file <LA7VHLU.m>
| 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. |
| FileNo | Call Tags |
|---|---|
| ^LAHM(62.49 - [#62.49] | WP^DIE |
