©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LA7VHLU1 ;VA/DALOI/JMC - HL7 segment builder utility ;JUL 06, 2010 3:14 PM
Source file <LA7VHLU1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 1 | STSUP^LA7SMU |
| VA Fileman | 1 | FILE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPID(LA76249) | ; Update identifier's associated with the message in #62.49
; Call with LA76249 = ien of message in #62.49 |
|
| ABFLAGS | ;; HL7 Table 0078 Abnormal flags
|
|
| 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 |
|
| 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) |
|
| REFUNIT(LA7SB,LA761) | ; Find reference ranges/units from file #60
; Call with LA7SB = dataname from "CH" subscript ; LA761 = pointer to topography file #61 |
|
| 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 |
|
| SETID(LA76249,LA7ID,LA7X) | ; 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 |
|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | REFUNIT+10, REFUNIT+11, OKTOSND+14, OKTOSND+16, OKTOSND+17 |
| ^LAHM(62.48 - [#62.48] | FAMG+11, FAMG+12 |
| ^LAHM(62.8 - [#62.8] | UTS+11, UTS+12 |
| ^TMP("LA7-ID" | SETID+5, SETID+7*, UPID+6, UPID+8, UPID+14! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FDA | UPID+3~ |
| FDA(1 | UPID+9*, UPID+11 |
| I | CHKDT+7~, CHKDT+13*, CHKDT+14, CHKDT+15, CHKDT+16, CHKDT+17 |
| 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+5, SETID+7, UPID~, UPID+6, UPID+8, UPID+9, UPID+14 |
| LA7628 | UTS~, UTS+11, UTS+12, UTS+14 |
| LA762801 | UTS+8~, UTS+10*, UTS+11*, UTS+12, UTS+14 |
| LA7CNT | UPID+3~, UPID+5*, UPID+7*, UPID+9 |
| LA7ERR | UPID+3~ |
| LA7I | UPID+3~, UPID+5*, UPID+6*, UPID+8 |
| LA7ID | SETID~, SETID+7 |
| LA7MG | FAMG+9~, FAMG+10*, FAMG+13*, FAMG+16*, FAMG+18 |
| LA7SB | REFUNIT~, REFUNIT+10 |
| LA7TYP | FAMG~, FAMG+11 |
| LA7UID | UTS~, UTS+11 |
| LA7X | SETID~, SETID+7, UTS+8~, UTS+12*, UTS+13, UTS+14, UPID+3~, UPID+8*, UPID+9, 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 |
| 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 |
| LA7Y( | CHKDT+14*, CHKDT+15*, CHKDT+16* |
| LA7Y(1 | CHKDT+17, CHKDT+18 |
| LA7Y(3 | CHKDT+18 |
| LA7Y(5 | CHKDT+18 |
| LRSB | OKTOSND~, OKTOSND+16 |
| LRSS | OKTOSND~, OKTOSND+12 |
| X | CHKDT+7~, CHKDT+18*, CHKDT+19, FAMG+9~, FAMG+10*, FAMG+11*, FAMG+12 |
| Y | SETID+4~, SETID+5*, SETID+6*, SETID+7, FAMG+9~, FAMG+12*, FAMG+13 |