LA7VHLU2 ;DALOI/JMC - HL7 Segment Utility ;July 16, 2008
Source file <LA7VHLU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETSEG(LA76249,LA7NODE,LA7ARR) | ; Returns the next segment from file 62.49
; during processing of an inbound message. The following variables ; are used for the processing. |
|
| FINDSITE(LA7Z,LA7TYPE,LA7SEM) | ; Look up an institution in file #4
|
|
| RETFACID(LA7Z,LA7TYPE,LA7SEM) | ; (RET)urn (FAC)ility (ID)entifier
|
|
| FNDOLOC(LRUID) | ; Find ordering location
; Call with LRUID = Accession's UID ; Returns LA7Y = ordering location^ordering institution |
|
| CHKICN(LA7X) | ; Lookup patient using ICN
; Call with LA7X = patient's ICN ; Returns LA7Y = patient's DFN^full ICN ; -1^error message |
|
| NVAF(LA7X) | ; Set flag sending to non-VA facility.
; Used to code certain segments for other systems, i.e. CHCS-DOD. ; Call with LA7X = ien of institution in file #4 ; Returns LA7Y = 0 (VA facility) ; 1 (DoD facility - Army, Navy, Air Force, Coast Guard) ; 2 (Indian Health Service) ; 3 (Other - non US Government) |
|
| FACDNS(LA74,LA7FS,LA7ECH,LA7LV) | ; Build facility DNS identifier
; Call with LA74 = pointer to entry in INSITUTION file (#4) ; LA7FS = HL field separator ; LA7ECH = HL encoding characters ; LA7LV = field (1)/ component (2) level in message |
|
| RESFID(LA7PRDID,LA7SFAC,LA7CS) | ; Resolve facility id to file #4 INSTIUTION file entry.
; Call with LA7PRDID = Producer's ID field ; LA7SFAC = sending facility ; LA7CS = component encoding character |
|
| RESPL(LA7X) | ; Resolve performing lab from file #63 designation
|
|
| CHCHK | ; Find performing lab for a CH subscript reference
|
|
| MIAPCHK | ; Find performing lab for a MI and AP subscript reference
|
|
| CHKNODE | ; Check if node exists and return file #4 ien
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ |
| ^SC - [#44] | GETS^DIQ |
