LA7VPID ;DALOI/JMC - HL7 PID/PV1 segment builder utility ;08/03/09 15:59
Source file <LA7VPID.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 4 | BUILDSEG^LA7VHLU $$CHKDT^LA7VHLU1 $$RETFACID^LA7VHLU2 $$CHKDATA^LA7VHLU3 |
| Kernel | 3 | $$FMTHL7^XLFDT $$HLNAME^XLFNAME $$KSP^XUPARAM |
| Registration | 3 | ($$PTR2CODE,$$PTR2TEXT)^DGUTL4 $$EN^VAFHLPID $$SITE^VASITE |
| Health Level Seven | 1 | $$M11^HLFNC |
| Lab Service | 1 | PT^LRX |
| Master Patient Index VistA | 1 | ($$GETICN,$$IFLOCAL)^MPIF001 |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 3 | LA7UIO1 LA7VMSG1 LA7VORM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PID(LRDFN,LA7EXTID,LA7ARRAY,LA7PIDSN,HL,LA7ALTID) | ; Build PID segment
; Call with LRDFN = Lab DFN, passed by value ; LA7EXTID = to return as external patient id, id used by non-VA systems (optional) ; LA7ARRAY = array to return PID array, pass by reference ; LA7PIDSN = PID id counter, passed by value ; HL = HL7 variable array, pass by reference ; LA7ALTID = return alternate patient id, id used by non-va systems (optional) |
|
| PV1(LRDFN,LA7ARRAY,LA7FS,LA7ECH) | ; Build PV1 segment
; Call with LRDFN = ien of entry in File #63 ; LA7ARRAY = array to return PV1 array, pass by reference ; LA7FS = HL field separator ; LA7ECH = HL encoding characters |
|
| F2PID | ; Build patient identifier field on file #2 patient
|
|
| NF2PID | ; Build patient identifier field on non-file #2 patient
|
|
| ICN(DFN,LA7ECH) | ; Send ICN from MPI
; Call with DFN = internal entry number of patient in PATIENT #2 file. ; LA7ECH = HL7 encoding characters. |
| Name | Field # of Occurrence |
|---|---|
| $$PTR2CODE^DGUTL4 | NF2PID+39 |
| $$PTR2TEXT^DGUTL4 | NF2PID+40 |
| $$GET1^DIQ | NF2PID+37, NF2PID+46 |
| $$M11^HLFNC | F2PID+15, F2PID+22, F2PID+33, NF2PID+12, NF2PID+15, NF2PID+23 |
| BUILDSEG^LA7VHLU | PV1+33, NF2PID+49 |
| $$CHKDT^LA7VHLU1 | NF2PID+29 |
| $$RETFACID^LA7VHLU2 | F2PID+24 |
| $$CHKDATA^LA7VHLU3 | PV1+30 |
| PT^LRX | NF2PID+3 |
| $$GETICN^MPIF001 | ICN+11 |
| $$IFLOCAL^MPIF001 | ICN+14 |
| $$EN^VAFHLPID | F2PID+5 |
| $$SITE^VASITE | ICN+16 |
| $$FMTHL7^XLFDT | NF2PID+30 |
| $$HLNAME^XLFNAME | NF2PID+26 |
| $$KSP^XUPARAM | F2PID+24 |
| FileNo | Call Tags |
|---|---|
| ^LRT(67 - [#67] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PV1+21 |
| ^LR - [#63] | PID+16, PID+19, PV1+8, PV1+26 |
| ^LRT(67 - [#67] | PV1+15, PV1+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | PID+27! |
| DFN | PID+10~, PID+20*, PV1+7~, PV1+9*, PV1+15, PV1+17*, PV1+21, F2PID+5, F2PID+22, F2PID+28 , NF2PID+37, NF2PID+46, ICN~, ICN+11, ICN+14 |
| DOB | PID+27!, NF2PID+28, NF2PID+29*, NF2PID+30 |
| DUZ("AG" | F2PID+4 |
| HL | PID~ |
| HL("ECH" | F2PID+15, F2PID+19, F2PID+22, F2PID+23, F2PID+24, F2PID+25, F2PID+28, F2PID+29, F2PID+33, NF2PID+12 , NF2PID+15, NF2PID+16, NF2PID+17, NF2PID+23, NF2PID+24, NF2PID+26, NF2PID+40, NF2PID+41 |
| HL("FS" | PID+15, F2PID+14, F2PID+25, F2PID+29, F2PID+32, F2PID+33, NF2PID+49 |
| >> HLFS | F2PID+15, F2PID+18, F2PID+19, F2PID+25, F2PID+29, F2PID+33 |
| HLQ | PID+10~, PID+13* |
| I | F2PID+3~, F2PID+9*, F2PID+10* |
| ICN | F2PID+3~, F2PID+28*, F2PID+29, ICN+7~, ICN+9*, ICN+13*, ICN+17*, ICN+18*, ICN+19*, ICN+21 |
| LA763 | PID+10~, PV1+7~ |
| LA763(0 | PID+19*, PID+20, PV1+8*, PV1+9 |
| LA7ALTID | PID~, PID+18*, F2PID+32, NF2PID+21 |
| LA7ARRAY | PID~, PV1~, PV1+33, NF2PID+49 |
| LA7ARRAY( | F2PID+10* |
| LA7ARRAY(0 | F2PID+5*, F2PID+14*, F2PID+15*, F2PID+18, F2PID+19*, F2PID+25*, F2PID+29*, F2PID+32*, F2PID+33* |
| LA7ECH | PV1~, PV1+30, ICN~, ICN+17, ICN+18, ICN+19 |
| LA7EXTID | PID~, PID+18*, F2PID+13, F2PID+14, F2PID+15, NF2PID+10, NF2PID+11, NF2PID+12, NF2PID+13 |
| LA7FS | PV1~, PV1+30, PV1+33 |
| LA7ICN | ICN+7~, ICN+11*, ICN+12, ICN+13 |
| LA7LOC | PV1+7~, PV1+9*, PV1+21*, PV1+22, PV1+25, PV1+26*, PV1+30*, PV1+31 |
| LA7PIDSN | PID~, PID+18*, F2PID+5, NF2PID+5 |
| >> LA7STR | F2PID+4*, F2PID+5 |
| LA7X | F2PID+3~, NF2PID+37*, NF2PID+38, NF2PID+39, NF2PID+40, NF2PID+46*, NF2PID+47 |
| LA7Y | PID+10~, PV1+7~, PV1+33, NF2PID+49 |
| LA7Y(0 | PV1+11*, NF2PID+4* |
| LA7Y(1 | PV1+12*, NF2PID+5* |
| LA7Y(10 | NF2PID+35*, NF2PID+39*, NF2PID+40*, NF2PID+41* |
| LA7Y(19 | NF2PID+44*, NF2PID+47* |
| LA7Y(2 | PV1+22*, PV1+27*, NF2PID+11*, NF2PID+12* |
| LA7Y(3 | PV1+31*, NF2PID+9*, NF2PID+13*, NF2PID+17*, NF2PID+18* |
| LA7Y(4 | NF2PID+21*, NF2PID+22*, NF2PID+23*, NF2PID+24* |
| LA7Y(5 | NF2PID+26* |
| LA7Y(7 | NF2PID+30* |
| LA7Y(8 | NF2PID+32* |
| LOCAL | ICN+7~, ICN+14*, ICN+15 |
| LRDFN | PID~, PID+15, PID+16, PID+19, PV1~, PV1+8, PV1+26, NF2PID+22 |
| LRDPF | PID+10~, PID+20*, PID+23, PID+26, PV1+7~, PV1+9*, PV1+15, PV1+16*, PV1+21, NF2PID+16 , NF2PID+36, NF2PID+45 |
| LRRB | PID+27! |
| LRSTR | F2PID+3~ |
| LRTREA | PID+27! |
| LRWRD | PID+27! |
| PNM | PID+27!, NF2PID+26 |
| SEX | PID+27!, NF2PID+32 |
| SITE | ICN+7~, ICN+15*, ICN+16*, ICN+19 |
| SSN | PID+27! |
| SSN(2 | NF2PID+15, NF2PID+17 |
| VA | PID+27! |
| VA200 | PID+27! |
| VAFPID | PID+10~ |
| VAFPID( | F2PID+10 |
| VAFPID(0 | F2PID+8 |
| X | F2PID+3~, F2PID+18*, F2PID+19*, F2PID+22*, F2PID+23*, F2PID+24*, F2PID+25, NF2PID+2~, NF2PID+15*, NF2PID+16* , NF2PID+17, NF2PID+18 |
