©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
LA7VHLU2 ;VA/DALOI/JMC - HL7 Segment Utility ; 13-Aug-2013 09:09 ; MKK
Source file <LA7VHLU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 2 | CREATE^LA7LOG $$CHKDATA^LA7VHLU3 |
| Kernel | 2 | $$UP^XLFSTR ($$ID,$$IDX,$$WHAT)^XUAF4 |
| VA Fileman | 2 | $$FIND1^DIC ($$GET1,GETS)^DIQ |
| Uncategorized | 1 | ($$GETDFN,$$GETICN)^MPIF001 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FINDSITE(LA7Z,LA7TYPE,LA7SEM) | ; Look up an institution in file #4
|
|
| CHKICN(LA7X) | ; Lookup patient using ICN
; Call with LA7X = patient's ICN ; Returns LA7Y = patient's DFN^full ICN ; -1^error message |
|
| 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. |
|
| RETFACID(LA7Z,LA7TYPE,LA7SEM) | ; (RET)urn (FAC)ility (ID)entifier
|
|
| FACDNS(LA74,LA7FS,LA7ECH,LA7LV) | ; Build facility DNS identifer
; 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 |
|
| 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) ; 2 (Indian Health Service) ; 3 (Other - non US Government) |
|
| FNDOLOC(LRUID) | ; Find ordering location
; Call with LRUID = Accession's UID ; Returns LA7Y = ordering location^ordering institution |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | FINDSITE+27 |
| $$GET1^DIQ | RETFACID+37, NVAF+10 |
| GETS^DIQ | FNDOLOC+11 |
| CREATE^LA7LOG | FINDSITE+47, RETFACID+39 |
| $$CHKDATA^LA7VHLU3 | FACDNS+23 |
| $$GETDFN^MPIF001 | CHKICN+13, CHKICN+15 |
| $$GETICN^MPIF001 | CHKICN+16 |
| $$UP^XLFSTR | RETFACID+32 |
| $$ID^XUAF4 | RETFACID+19, RETFACID+20, FACDNS+20 |
| $$IDX^XUAF4 | FINDSITE+23, FINDSITE+25 |
| $$WHAT^XUAF4 | FACDNS+22 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ |
| ^SC - [#44] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAHM(62.49 - [#62.49] | GETSEG+15, GETSEG+18, GETSEG+19, GETSEG+20, GETSEG+21 |
| ^LAHM(62.9 - [#62.9] | FINDSITE+35, FINDSITE+36, RETFACID+27, RETFACID+28 |
| ^LRO(68 - [#68] | FNDOLOC+7, FNDOLOC+9 |
| ^TMP($J | FACDNS+12, FACDNS+24* |
| Name | Line Occurrences |
|---|---|
| $$NVAF | FINDSITE+40, RETFACID+18, FACDNS+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | RETFACID+13~ |
| LA74 | FACDNS~, FACDNS+12, FACDNS+19, FACDNS+20, FACDNS+22, FACDNS+24 |
| LA76249 | GETSEG~, GETSEG+13*, GETSEG+15, GETSEG+18, GETSEG+19, GETSEG+20, GETSEG+21 |
| LA7ARR | GETSEG~, GETSEG+12! |
| LA7ARR( | GETSEG+21* |
| LA7ARR(0 | GETSEG+18* |
| LA7DN | FACDNS+8~, FACDNS+22*, FACDNS+23* |
| LA7ECH | FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24 |
| LA7END | GETSEG+11~, GETSEG+13*, GETSEG+16*, GETSEG+23 |
| LA7FAC | FACDNS+8~, FACDNS+19*, FACDNS+20*, FACDNS+21, FACDNS+23 |
| LA7FS | FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24 |
| LA7I | GETSEG+11~, GETSEG+18*, GETSEG+21* |
| LA7J | FINDSITE+33~, FINDSITE+34*, FINDSITE+35*, FINDSITE+36, RETFACID+25~, RETFACID+26*, RETFACID+27*, RETFACID+28 |
| LA7J(0 | FINDSITE+36*, FINDSITE+37, FINDSITE+38, FINDSITE+39, RETFACID+28*, RETFACID+29, RETFACID+30, RETFACID+31 |
| LA7K | FINDSITE+33~, FINDSITE+39*, FINDSITE+40 |
| LA7LV | FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24 |
| LA7NODE | GETSEG~, GETSEG+13*, GETSEG+15*, GETSEG+16, GETSEG+18, GETSEG+19*, GETSEG+20, GETSEG+21 |
| LA7NVAF | RETFACID+13~, RETFACID+18*, RETFACID+19, RETFACID+20, FACDNS+8~, FACDNS+19*, FACDNS+20 |
| LA7QUIT | GETSEG+11~, GETSEG+13*, GETSEG+19, GETSEG+20* |
| LA7SEM | FINDSITE~, FINDSITE+15*, FINDSITE+43, RETFACID~, RETFACID+14*, RETFACID+35 |
| LA7SITE | FINDSITE+44~, FINDSITE+45*, RETFACID+36~, RETFACID+37* |
| LA7TYPE | FINDSITE~, FINDSITE+15*, FINDSITE+39, FINDSITE+45, RETFACID~, RETFACID+30, RETFACID+31, RETFACID+37 |
| LA7X | FINDSITE+13~, FINDSITE+18*, FINDSITE+19*, FINDSITE+27, FINDSITE+32, FINDSITE+38, FINDSITE+46~, RETFACID+13~, RETFACID+38~, FNDOLOC+4~ , FNDOLOC+9*, FNDOLOC+10, FNDOLOC+11, FNDOLOC+12, CHKICN~, CHKICN+11, CHKICN+12, CHKICN+17, NVAF~, NVAF+10 |
| LA7X(1 | CHKICN+11*, CHKICN+13, CHKICN+15 |
| LA7X(2 | CHKICN+12*, CHKICN+13 |
| LA7Y | FINDSITE+13~, FINDSITE+15*, FINDSITE+23*, FINDSITE+25*, FINDSITE+27*, FINDSITE+32, FINDSITE+35, FINDSITE+40*, FINDSITE+43, FINDSITE+46~ , FINDSITE+49, RETFACID+13~, RETFACID+14*, RETFACID+19*, RETFACID+20*, RETFACID+24, RETFACID+30*, RETFACID+31*, RETFACID+32*, RETFACID+35 , RETFACID+38~, RETFACID+41, FNDOLOC+4~, FNDOLOC+6*, FNDOLOC+8, FNDOLOC+10, FNDOLOC+12*, FNDOLOC+13, CHKICN+8~, CHKICN+10* , CHKICN+13*, CHKICN+15*, CHKICN+16, CHKICN+17*, CHKICN+19, NVAF+8~, NVAF+9*, NVAF+10*, NVAF+11*, NVAF+12 , FACDNS+8~, FACDNS+9*, FACDNS+12*, FACDNS+18, FACDNS+21*, FACDNS+23*, FACDNS+24, FACDNS+26 |
| LA7Y(44 | FNDOLOC+12 |
| LA7Z | FINDSITE~, FINDSITE+15*, FINDSITE+18, FINDSITE+19, FINDSITE+23, FINDSITE+25, FINDSITE+45, FINDSITE+46~, RETFACID~, RETFACID+18 , RETFACID+19, RETFACID+20, RETFACID+30, RETFACID+31, RETFACID+37, CHKICN+8~, CHKICN+10*, CHKICN+16*, CHKICN+17, CHKICN+19 |
| LRAA | FNDOLOC+4~ |
| LRAD | FNDOLOC+4~ |
| LRAN | FNDOLOC+4~ |
| LRUID | FNDOLOC~, FNDOLOC+7, FNDOLOC+8 |
| X | FNDOLOC+4~, FNDOLOC+7*, FNDOLOC+8, FNDOLOC+9 |
| Y | FNDOLOC+4~ |