LA7VHLU1 ;DALOI/JMC - HL7 segment builder utility ;04/30/10 19:10
Source file <LA7VHLU1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETID(LA76249,LA7ID,LA7X,LA7TYP) | ; Setup identifier's in TMP global for later storing.
; Call with LA76249 = ien of message in #62.49 ; LA7ID = root of identifier ; LA7X = value to add to identifier ; LA7TYP = type - primary(1) or additional(0) |
|
| UTS(LA7628,LA7UID,LA760) | ; Update test status on manifest
; Call with LA7628 = ien of shipping manifest in #62.8 ; LA7UID = accession's UID ; LA760 = file # 60 ien of ordered test |
|
| UPID(LA76249) | ; Update identifier's associated with the message in #62.49
; Call with LA76249 = ien of message in #62.49 |
|
| CHKDT(LA7X) | ; Check validity of date/time
; Adjust invalid times to closest valid time - correct for lab problem ; that generated invalid FileMan date/times. ; If hours>24 then set to 24 with no minutes/seconds ; If minutes greater than 59 then set to 59 ; If seconds greater than 59 then set to 59 |
|
| REFUNIT(LA7SB,LA761) | ; Find reference ranges/units from file #60
; Call with LA7SB = dataname from "CH" subscript ; LA761 = pointer to topography file #61 |
|
| OKTOSND(LRSS,LRSB,LA760) | ; Check if test ok to send - is (O)utput or (B)oth
; Call with LRSS = file #63 subscript ; LRSB = file #63 data name or field reference ; LA760 = file #60 ien |
|
| FAMG(LA76248,LA7TYP) | ; Find alert mail group for this alert type
; Call with LA76248 = ien of entry in file #62.48 ; LA7TYP = type of alert ; (1-new results) ; (2-error on message) ; (3-orders received) |
|
| GETISO(SUBFL,IENS) | ; Retrieve isolate id for micro specimens from file #63
; Call with SUBFL = FileMan subfile # ; IENS = FileMan iens of record |
|
| LAHSTAT(LRLL,ISQN,ERR,ERRMSG) | ;
; Determine related file #62.49 message(s) status for results in LAH global. ; Call with LRLL = ien of loadlist in LAH global ; ISQN = ien of entry in LAH(LRLL) global ; ERR = 0 (do not return error messages) ; = .5 (return status of last message processed) ; = 1 (return error messages in array ERRMSG) |
|
| LAHSTATP(ERRMSG) | ; Print/display error array from LAHSTAT function call.
; Call with ERRMSG = array of error messages (pass by reference) |
|
| ABFLAGS | ;; HL7 Table 0078 Abnormal flags
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | REFUNIT+10, REFUNIT+11, OKTOSND+14, OKTOSND+16, OKTOSND+17 |
| ^LAH( | LAHSTAT+19, LAHSTAT+20 |
| ^LAHM(62.48 - [#62.48] | FAMG+11, FAMG+12 |
| ^LAHM(62.49 - [#62.49] | UPID+11, LAHSTAT+21 |
| ^LAHM(62.8 - [#62.8] | UTS+11, UTS+12 |
| ^TMP("LA7-ID" | SETID+7, SETID+8*, UPID+6, UPID+7, UPID+17! |
| ^XTMP( | LAHSTAT+27, LAHSTAT+30, LAHSTAT+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | LAHSTATP+3~, LAHSTATP+8 |
| A( | LAHSTATP+6*, LAHSTATP+7* |
| ERR | LAHSTAT~, LAHSTAT+20, LAHSTAT+24 |
| ERRMSG | LAHSTAT~, LAHSTATP~ |
| ERRMSG( | LAHSTAT+32*, LAHSTATP+7 |
| FDA | UPID+3~, GETISO+10~ |
| FDA(1 | UPID+9* |
| FDA(2 | UPID+12* |
| FDA(63 | GETISO+15* |
| I | CHKDT+7~, CHKDT+13*, CHKDT+14, CHKDT+15, CHKDT+16, CHKDT+17, LAHSTAT+17~, LAHSTAT+28*, LAHSTAT+29*, LAHSTAT+30* , LAHSTAT+31, LAHSTAT+32 |
| ID | GETISO+10~, GETISO+11*, GETISO+12*, GETISO+14 |
| IENS | GETISO~, GETISO+8, GETISO+12, GETISO+15 |
| ISQN | LAHSTAT~, LAHSTAT+19, LAHSTAT+20 |
| K | LAHSTAT+17~, LAHSTAT+26*, LAHSTAT+27*, LAHSTAT+28, LAHSTAT+30, LAHSTAT+31, LAHSTAT+32 |
| LA74 | GETISO+10~, GETISO+13*, GETISO+14 |
| LA760 | UTS~, UTS+13, REFUNIT+7~, REFUNIT+10*, REFUNIT+11, OKTOSND~, OKTOSND+7~, OKTOSND+13, OKTOSND+14, OKTOSND+15* , OKTOSND+16*, OKTOSND+17 |
| LA761 | REFUNIT~, REFUNIT+11 |
| LA76248 | FAMG~, FAMG+11, FAMG+12 |
| LA76249 | SETID~, SETID+7, SETID+8, UPID~, UPID+6, UPID+7, UPID+9, UPID+11, UPID+12, UPID+17 |
| LA7628 | UTS~, UTS+11, UTS+12, UTS+14 |
| LA762801 | UTS+8~, UTS+10*, UTS+11*, UTS+12, UTS+14 |
| LA7DIE | GETISO+10~ |
| LA7DT | LAHSTAT+17~, LAHSTAT+25* |
| LA7DT(0 | LAHSTAT+25*, LAHSTAT+26, LAHSTAT+28 |
| LA7DT(1 | LAHSTAT+25*, LAHSTAT+28 |
| LA7ERR | UPID+3~ |
| LA7I | UPID+3~, UPID+5*, UPID+6*, UPID+7 |
| LA7ID | SETID~, SETID+8 |
| LA7IEN | LAHSTAT+17~, LAHSTAT+18*, LAHSTAT+19*, LAHSTAT+20, LAHSTAT+21, LAHSTAT+32, LAHSTATP+3~, LAHSTATP+5*, LAHSTATP+7* |
| LA7MG | FAMG+9~, FAMG+10*, FAMG+13*, FAMG+16*, FAMG+18 |
| LA7SB | REFUNIT~, REFUNIT+10 |
| LA7TYP | SETID~, SETID+8, UPID+3~, UPID+7*, UPID+8, FAMG~, FAMG+11 |
| LA7UID | UTS~, UTS+11 |
| LA7X | SETID~, SETID+6, SETID+8, UTS+8~, UTS+12*, UTS+13, UTS+14, UPID+3~, UPID+7*, UPID+8 , UPID+9, UPID+11, UPID+12, CHKDT~, CHKDT+9, CHKDT+19*, CHKDT+21, REFUNIT+7~, REFUNIT+11*, REFUNIT+12 , REFUNIT+13, REFUNIT+14, REFUNIT+15, REFUNIT+16, REFUNIT+17, REFUNIT+18, OKTOSND+7~, OKTOSND+15*, OKTOSND+17*, OKTOSND+18 , LAHSTAT+17~, LAHSTAT+21*, LAHSTAT+22, LAHSTAT+23, LAHSTAT+25 |
| LA7Y | CHKDT+7~, CHKDT+9*, CHKDT+12, CHKDT+14, CHKDT+17*, REFUNIT+7~, REFUNIT+9*, REFUNIT+12*, REFUNIT+13*, REFUNIT+14* , REFUNIT+15*, REFUNIT+16*, REFUNIT+17*, REFUNIT+18*, REFUNIT+20, OKTOSND+7~, OKTOSND+8*, OKTOSND+14*, OKTOSND+18*, OKTOSND+20 , GETISO+6~, GETISO+8*, GETISO+9, GETISO+14*, GETISO+15, GETISO+18 |
| LA7Y( | CHKDT+14*, CHKDT+15*, CHKDT+16* |
| LA7Y(1 | CHKDT+17, CHKDT+18 |
| LA7Y(3 | CHKDT+18 |
| LA7Y(5 | CHKDT+18 |
| LAJ | LAHSTATP+3~, LAHSTATP+5*, LAHSTATP+6, LAHSTATP+7* |
| LRLL | LAHSTAT~, LAHSTAT+19, LAHSTAT+20 |
| LRSB | OKTOSND~, OKTOSND+16 |
| LRSS | OKTOSND~, OKTOSND+12 |
| STATUS | LAHSTAT+17~, LAHSTAT+18*, LAHSTAT+22*, LAHSTAT+24*, LAHSTAT+34 |
| SUBFL | GETISO~, GETISO+8, GETISO+11, GETISO+15 |
| X | CHKDT+7~, CHKDT+18*, CHKDT+19, FAMG+9~, FAMG+10*, FAMG+11*, FAMG+12, LAHSTAT+17~, LAHSTAT+31*, LAHSTAT+32 |
| Y | SETID+5~, SETID+7*, SETID+8, FAMG+9~, FAMG+12*, FAMG+13 |
