IVMPREC8 ;ALB/KCL,BRM,PJR,CKN,TDM,PWC,LBD,DPR,KUM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES (CON'T) ;02 SEPT 2019 8:56 AM
Source file <IVMPREC8.m>
| Package | Total | Call Graph |
|---|---|---|
| Income Verification Match | 5 | $$AUTOADDR^IVMLDEM6 $$AUTODOD^IVMLDEMD $$RF1CHK^IVMPREC6 ($$AUTOEPC,$$AUTOLANG,$$AUTORINC,$$LANGCK,PID12,STORE)^IVMPREC9 $$CLEARF^IVMPRECA |
| Registration | 3 | $$CODE2PTR^DGUTL4 (ADD,DEM,OPD)^VADPT ZIPIN^VAFADDR |
| Health Level Seven | 1 | ($$FMDATE,$$FMNAME)^HLFNC |
| VA FileMan | 1 | ($$GET1,GETS)^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 |
|---|---|---|
| Income Verification Match | 4 | IVM273A IVMPREC6 IVMPREC9 IVMPRECA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PID | ;-compare PID fields with DHCP fields
|
|
| ZPD | ; -compare ZPD with DHCP
|
|
| DODCK(DFN) | ;this will check if Date of Death needs to be uploaded or not.
|
|
| ZTA | ; -compare ZTA with DHCP
|
|
| ZAV | ; compare ZAV with DHCP
|
|
| ZGD | ; - compare ZGD with DHCP
|
|
| ZCT | ; - compare ZCT with DHCP
|
|
| ZEM | ; - compare ZEM with DHCP
|
|
| RF1 | ; -compare RF1 with DHCP
|
|
| RF1PROC | ;
|
|
| ADDRCNV(ADDRSRC) | ;convert Addr Source from HL7 to DHCP
|
|
| EPCSRCC(EPCSRC) | ;Convert Email, Cell, Pager Change Source from HL7 to DHCP
|
|
| BAICONV(BAISRC) | ;Convert Bad addr source from HL7 to DHCP format
|
|
| CONVPH(PH) | ;remove special chars/spaces from Ph
|
|
| CNTRCONV(COUNTRY) | ;Check if valid country
|
|
| CHKEMAIL(EMAIL) | ;Check for Valid Email
|
| Name | Field # of Occurrence |
|---|---|
| $$CODE2PTR^DGUTL4 | PID+96 |
| $$GET1^DIQ | RF1PROC+26, RF1PROC+27 |
| GETS^DIQ | DODCK+19 |
| $$FMDATE^HLFNC | PID+26, PID+53, PID+87, ZPD+13, ZTA+31, ZGD+16, ZCT+30, ZEM+18, RF1PROC+18 |
| $$FMNAME^HLFNC | ZPD+16, ZCT+16 |
| $$AUTOADDR^IVMLDEM6 | RF1+33 |
| $$AUTODOD^IVMLDEMD | ZPD+26 |
| $$RF1CHK^IVMPREC6 | RF1+21 |
| $$AUTOEPC^IVMPREC9 | RF1+22 |
| $$AUTOLANG^IVMPREC9 | ZPD+28 |
| $$AUTORINC^IVMPREC9 | ZPD+25 |
| $$LANGCK^IVMPREC9 | ZPD+6 |
| PID12^IVMPREC9 | PID+60 |
| STORE^IVMPREC9 | PID+83, PID+105, PID+117, PID+119, ZPD+22, ZPD+24, ZTA+39, ZTA+41, ZAV+8, ZGD+22 , ZCT+28, ZCT+39, ZEM+24, ZEM+25, RF1PROC+15, RF1PROC+28 |
| $$CLEARF^IVMPRECA | ZEM+3 |
| ADD^VADPT | PID+107 |
| DEM^VADPT | PID+107, ZPD+19 |
| OPD^VADPT | PID+107 |
| ZIPIN^VAFADDR | PID+38, ZTA+20, ZGD+13, ZCT+26, ZEM+15 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(11 - [#11] | PID+91 |
| ^DIC(13 - [#13] | PID+93 |
| ^DIC(5 - [#5] | PID+32, PID+47, PID+51, PID+63, ZTA+19, ZTA+24, ZGD+12, ZCT+25, ZEM+14 |
| ^DPT - [#2] | PID+101, RF1PROC+41, RF1PROC+44 |
| ^HL(779.004 - [#779.004] | CNTRCONV+2 |
| ^IVM(301.92 - [#301.92] | PID+109, ZPD+21, ZTA+34, ZAV+7, ZGD+19, ZCT+33, ZEM+21, RF1PROC+33, RF1PROC+37 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ADDRESS("CA" | PID+13, RF1PROC+31 |
| >> ADDRESS("P" | PID+15 |
| >> ADDRESS("R" | PID+16, RF1PROC+36 |
| >> ADDRESS("VAB1" | PID+15 |
| >> ADDRESS("VAB2" | PID+15 |
| >> ADDRESS("VAB3" | PID+15 |
| >> ADDRESS("VAB4" | PID+15 |
| ADDRSRC | ADDRCNV~, ADDRCNV+2, ADDRCNV+3, ADDRCNV+4, ADDRCNV+5, ADDRCNV+6, ADDRCNV+7, ADDRCNV+8, ADDRCNV+9, ADDRCNV+10 , ADDRCNV+11, ADDRCNV+12 |
| >> AUPFARY( | PID+13, PID+14, PID+16 |
| BAISRC | BAICONV~, BAICONV+1, BAICONV+2, BAICONV+3, BAICONV+4, BAICONV+5 |
| >> CKDEL | DODCK+16* |
| COMPPH1 | PID+1~, PID+116*, PID+117, ZTA+1~, ZTA+38*, ZTA+39 |
| COMPPH2 | PID+1~, PID+116*, PID+117, ZTA+1~, ZTA+38*, ZTA+39 |
| >> CONFADCT | PID+43 |
| COUNTRY | PID+1~, PID+18*, PID+19, PID+41, ZTA+1~, ZTA+11*, ZTA+12, ZTA+23, CNTRCONV~, CNTRCONV+1 , CNTRCONV+2 |
| DFN | PID+101, ZPD+4, ZPD+6, ZPD+25, ZPD+26, ZPD+28, DODCK~, DODCK+19, DODCK+20, RF1+22 , RF1+33, RF1PROC+26, RF1PROC+27, RF1PROC+41, RF1PROC+44 |
| DHCPLST | PID+99~, PID+100*, PID+102*, PID+103, PID+104 |
| >> DOD | DODCK+20*, DODCK+21, DODCK+22, DODCK+23 |
| DODARRAY | DODCK+14~ |
| DODARRAY(2 | DODCK+20 |
| >> DODSEG | PID+10, PID+57, PID+65, PID+98, PID+112 |
| CHKEMAIL~, CHKEMAIL+1, CHKEMAIL+2 | |
| >> EPCDEL( | RF1+5! |
| >> EPCDEL("PHH" | RF1PROC+27* |
| >> EPCFARY( | RF1PROC+46 |
| EPCSRC | EPCSRCC~, EPCSRCC+2, EPCSRCC+3, EPCSRCC+4, EPCSRCC+5, EPCSRCC+6, EPCSRCC+7 |
| >> FORADDR | PID+19*, PID+31, PID+37, PID+39, PID+40, PID+46, PID+50, PID+61, ZTA+12*, ZTA+18 , ZTA+21, ZTA+22 |
| >> HLECH | PID+18, PID+21, PID+25, PID+26, PID+53, PID+68, PID+71, PID+74, PID+77, PID+80 , PID+96, PID+113, ZPD+16, ZTA+11, ZTA+15, ZGD+11, ZCT+22, ZEM+13 |
| >> HLFS | ZPD+8, ZPD+10, ZTA+3, ZTA+6, ZTA+10, ZAV+4, ZAV+5, ZGD+3, ZGD+6, ZGD+10 , ZCT+7, ZCT+8, ZCT+11, ZCT+21, ZEM+3, ZEM+4, ZEM+5, ZEM+8, ZEM+12, RF1+1 , RF1PROC+2, RF1PROC+6, RF1PROC+18, RF1PROC+31, RF1PROC+36, RF1PROC+41, RF1PROC+44 |
| >> IVMADDR | PID+13*, PID+15*, PID+16*, PID+17, PID+18, PID+21, PID+25, ZTA+10*, ZTA+11, ZTA+15 , ZGD+10*, ZGD+11, ZCT+21*, ZCT+22, ZEM+12*, ZEM+13 |
| >> IVMADFLG | PID+9*, PID+56*, PID+62*, PID+68*, PID+71*, PID+74*, PID+77*, PID+81*, PID+83, ZGD+1* , ZGD+6, ZGD+11*, ZCT+2*, ZCT+11, ZCT+22*, ZCT+28, ZEM+1*, ZEM+8, RF1+1* |
| IVMATYP | ZAV+1~, ZAV+3*, ZAV+4*, ZAV+6 |
| >> IVMCMAST | PID+35*, PID+47 |
| >> IVMDA | RF1+21 |
| >> IVMDEMDA | PID+13, PID+14, PID+16, PID+109, ZPD+21, ZTA+34, ZAV+7, ZGD+19, ZCT+33, ZEM+21 , RF1PROC+33, RF1PROC+37 |
| >> IVMDHCP | PID+109*, PID+116, PID+119, ZPD+21*, ZPD+22, ZTA+34*, ZTA+38, ZTA+41, ZTA+44, ZAV+7* , ZAV+8, ZGD+19*, ZGD+22, ZCT+33*, ZCT+39, ZCT+42, ZEM+21*, ZEM+24, ZEM+25, RF1PROC+33* , RF1PROC+34, RF1PROC+37*, RF1PROC+38, RF1PROC+41*, RF1PROC+44*, RF1PROC+45 |
| IVMEPC | RF1PROC+1~, RF1PROC+10*, RF1PROC+11*, RF1PROC+13 |
| >> IVMFLD | PID+3*, PID+10, PID+21*, PID+23*, PID+25*, PID+26*, PID+27*, PID+28, PID+31*, PID+32* , PID+37*, PID+38*, PID+39*, PID+40*, PID+41*, PID+42*, PID+43*, PID+46*, PID+47*, PID+50* , PID+51*, PID+53*, PID+55*, PID+63*, PID+68*, PID+71*, PID+74*, PID+77*, PID+80*, PID+81* , PID+85*, PID+87*, PID+90*, PID+91*, PID+93*, PID+96*, PID+104*, PID+113*, PID+114, PID+116 , PID+119, ZPD+10*, ZPD+13*, ZPD+16*, ZPD+22, ZTA+6*, ZTA+15*, ZTA+16*, ZTA+17, ZTA+18* , ZTA+19*, ZTA+20*, ZTA+21*, ZTA+22*, ZTA+23*, ZTA+24*, ZTA+25, ZTA+28*, ZTA+31*, ZTA+38 , ZTA+41, ZTA+44, ZAV+2*, ZAV+5*, ZAV+8, ZGD+6*, ZGD+11*, ZGD+12*, ZGD+13*, ZGD+16* , ZGD+22, ZCT+11*, ZCT+13*, ZCT+16*, ZCT+18*, ZCT+22*, ZCT+24*, ZCT+25*, ZCT+26*, ZCT+30* , ZCT+36*, ZCT+39, ZCT+42, ZEM+8*, ZEM+13*, ZEM+14*, ZEM+15*, ZEM+18*, ZEM+24, ZEM+25 , RF1PROC+7*, RF1PROC+13*, RF1PROC+14, RF1PROC+18*, RF1PROC+19, RF1PROC+27, RF1PROC+34, RF1PROC+38, RF1PROC+45 |
| IVMLST | PID+99~, PID+100*, PID+101*, PID+103 |
| >> IVMPHDFG | RF1PROC+25*, RF1PROC+26 |
| >> IVMPID( | PID+7, PID+85 |
| >> IVMPID(12 | PID+63 |
| >> IVMPID(22 | PID+96 |
| >> IVMPIECE | PID+5*, PID+7, PID+21*, PID+23, PID+24, PID+30, PID+34, PID+35, PID+36, PID+39 , PID+40, PID+41, PID+42, PID+43, PID+45, PID+49, PID+52, PID+85, ZPD+3*, ZPD+8 , ZPD+10, ZPD+23, ZTA+2*, ZTA+3, ZTA+6, ZTA+10, ZTA+14*, ZTA+15, ZTA+16, ZTA+18 , ZTA+19, ZTA+20, ZTA+21, ZTA+22, ZTA+23, ZTA+24, ZGD+2*, ZGD+3, ZGD+6, ZGD+10* , ZGD+11, ZGD+12, ZGD+13, ZCT+3*, ZCT+6, ZCT+8, ZCT+11, ZCT+21*, ZCT+22, ZCT+25 , ZCT+26, ZEM+2*, ZEM+5, ZEM+8, ZEM+12*, ZEM+13, ZEM+14, ZEM+15, RF1+1*, RF1PROC+2 , RF1PROC+7*, RF1PROC+13 |
| >> IVMPMAST | PID+34*, PID+63 |
| >> IVMRACE | PID+98 |
| >> IVMRACE(2 | PID+102 |
| >> IVMRFDAT | RF1PROC+6*, RF1PROC+7 |
| >> IVMRTN | RF1+21 |
| >> IVMSEG | ZPD+8, ZPD+10, ZPD+23, DODCK+18, DODCK+22, DODCK+23, ZTA+3, ZTA+6, ZTA+10, ZAV+4 , ZAV+5, ZGD+3, ZGD+6, ZGD+10, ZCT+7, ZCT+8, ZCT+11, ZCT+21, ZEM+3*, ZEM+4 , ZEM+5, ZEM+8, ZEM+12, RF1+1, RF1PROC+2, RF1PROC+6, RF1PROC+18 |
| >> IVMSTPTR | PID+32*, PID+34, PID+35, PID+51 |
| >> IVMTSTPT | ZTA+19*, ZTA+24 |
| >> IVMXREF | PID+5, PID+10, PID+57, PID+65, PID+67, PID+70, PID+73, PID+76, PID+79, PID+85 , PID+87, PID+89, PID+93, PID+95, PID+98, PID+112, ZPD+3, ZPD+4, ZPD+6, ZPD+13 , ZPD+16, ZPD+24, ZPD+25, ZPD+26, ZPD+28, ZTA+2, ZTA+9, ZTA+28, ZTA+31, ZTA+37 , ZTA+43, ZAV+6, ZGD+2, ZGD+9, ZGD+16, ZCT+3, ZCT+16, ZCT+20, ZCT+30, ZCT+41 , ZEM+2, ZEM+4, ZEM+11, ZEM+18, ZEM+24, RF1+1, RF1+8, RF1+10, RF1+11, RF1+13 , RF1+14, RF1+15, RF1+16, RF1+18, RF1+21, RF1PROC+4, RF1PROC+7, RF1PROC+11, RF1PROC+16 |
| NOPHUP | RF1+23~*, RF1+33 |
| NOUPDT | RF1+23~*, RF1+24*, RF1+33 |
| PH | CONVPH~, CONVPH+3, CONVPH+4*, CONVPH+5, CONVPH+6 |
| QUIT | DODCK+14~, DODCK+16*, DODCK+22*, DODCK+23*, DODCK+25 |
| >> RF1TYPE | RF1+1*, RF1+5, RF1+8, RF1+10, RF1+11, RF1+13, RF1+14, RF1+15, RF1+16, RF1+18 , RF1PROC+26, RF1PROC+31, RF1PROC+36, RF1PROC+41, RF1PROC+44, RF1PROC+46, RF1PROC+47 |
| STFLG | ZPD+1~, ZPD+2*, ZPD+22*, ZPD+25 |
| >> TELECOM | PID+65 |
| >> TELECOM("BPN" | PID+73, PID+74 |
| >> TELECOM("NET" | PID+79, PID+80 |
| >> TELECOM("ORN" | PID+76, PID+77 |
| >> TELECOM("PRN" | PID+112, PID+113, RF1PROC+25 |
| >> TELECOM("VACPN" | PID+67, PID+68 |
| >> TELECOM("WPN" | PID+70, PID+71 |
| U | PID+101, PID+102, PID+104 |
| >> UPDAUPG( | ZCT+42* |
| >> UPDAUPG("CA" | RF1PROC+34* |
| >> UPDAUPG("RA" | RF1PROC+38* |
| >> UPDAUPG("TA" | ZTA+44* |
| >> UPDEPC | RF1+22 |
| >> UPDEPC( | RF1PROC+46* |
| >> UPDEPC("SAD" | RF1+24, RF1PROC+47* |
| UPPHN | PID+115!, PID+117*, RF1+32! |
| >> X | PID+38*, ZTA+20*, ZGD+13*, ZCT+26*, ZEM+15* |
| XVAL | PID+99~, PID+100*, PID+101*, PID+102*, PID+104* |
| >> Y | PID+109, ZPD+21, ZTA+34, ZAV+7, ZGD+19, ZCT+33, ZEM+21, RF1PROC+33, RF1PROC+37 |
| ZCTTYP | ZCT+1~, ZCT+6*, ZCT+7, ZCT+42 |
| >> ZEMADRUP( | ZEM+24* |
