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 information 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+107 |
| $$GET1^DIQ | RF1PROC+26, RF1PROC+27 |
| GETS^DIQ | DODCK+19 |
| $$FMDATE^HLFNC | PID+33, PID+60, PID+97, ZPD+15, ZTA+31, ZGD+16, ZCT+30, ZEM+18, RF1PROC+18 |
| $$FMNAME^HLFNC | ZCT+16 |
| $$AUTOADDR^IVMLDEM6 | RF1+31 |
| $$AUTODOD^IVMLDEMD | ZPD+27 |
| $$RF1CHK^IVMPREC6 | RF1+19 |
| $$AUTOEPC^IVMPREC9 | RF1+20 |
| $$AUTOLANG^IVMPREC9 | ZPD+29 |
| $$AUTORINC^IVMPREC9 | ZPD+26 |
| $$LANGCK^IVMPREC9 | ZPD+6 |
| PID12^IVMPREC9 | PID+68 |
| STORE^IVMPREC9 | PID+91, PID+116, PID+131, PID+134, ZPD+23, ZPD+25, ZTA+40, ZTA+42, ZAV+10, ZGD+22 , ZCT+28, ZCT+39, ZEM+24, ZEM+25, RF1PROC+15, RF1PROC+28 |
| $$CLEARF^IVMPRECA | ZEM+3 |
| ADD^VADPT | PID+119 |
| DEM^VADPT | PID+119, ZPD+18 |
| OPD^VADPT | PID+119 |
| ZIPIN^VAFADDR | PID+45, 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+102 |
| ^DIC(13 - [#13] | PID+104 |
| ^DIC(5 - [#5] | PID+39, PID+54, PID+58, PID+71, ZTA+19, ZTA+24, ZGD+12, ZCT+25, ZEM+14 |
| ^DPT - [#2] | PID+112, RF1PROC+41, RF1PROC+42 |
| ^HL(779.004 - [#779.004] | CNTRCONV+2 |
| ^IVM(301.92 - [#301.92] | PID+122, ZPD+20, ZTA+34, ZAV+8, ZGD+19, ZCT+33, ZEM+21, RF1PROC+33, RF1PROC+37 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ADDRESS("CA" | PID+20, RF1PROC+31 |
| >> ADDRESS("P" | PID+22 |
| >> ADDRESS("R" | PID+23, RF1PROC+36 |
| >> ADDRESS("VAB1" | PID+22 |
| >> ADDRESS("VAB2" | PID+22 |
| >> ADDRESS("VAB3" | PID+22 |
| >> ADDRESS("VAB4" | PID+22 |
| 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+20, PID+21, PID+23 |
| BAISRC | BAICONV~, BAICONV+1, BAICONV+2, BAICONV+3, BAICONV+4, BAICONV+5 |
| >> CKDEL | DODCK+16* |
| COMPPH1 | PID+1~, PID+130*, PID+131, ZTA+1~, ZTA+39*, ZTA+40 |
| COMPPH2 | PID+1~, PID+130*, PID+131, ZTA+1~, ZTA+39*, ZTA+40 |
| >> CONFADCT | PID+50 |
| COUNTRY | PID+1~, PID+25*, PID+26, PID+48, ZTA+1~, ZTA+11*, ZTA+12, ZTA+23, CNTRCONV~, CNTRCONV+1 , CNTRCONV+2 |
| DFN | PID+112, ZPD+4, ZPD+6, ZPD+26, ZPD+27, ZPD+29, DODCK~, DODCK+19, DODCK+20, RF1+20 , RF1+31, RF1PROC+26, RF1PROC+27, RF1PROC+41, RF1PROC+42 |
| DHCPLST | PID+110~, PID+111*, PID+113*, PID+114, PID+115 |
| >> DOD | DODCK+20*, DODCK+21, DODCK+22, DODCK+23 |
| DODARRAY | DODCK+14~ |
| DODARRAY(2 | DODCK+20 |
| >> DODSEG | PID+11, PID+65, PID+73, PID+109, PID+126 |
| CHKEMAIL~, CHKEMAIL+1, CHKEMAIL+2 | |
| >> EPCDEL( | RF1+5! |
| >> EPCDEL("PHH" | RF1PROC+27* |
| >> EPCFARY( | RF1PROC+44 |
| EPCSRC | EPCSRCC~, EPCSRCC+2, EPCSRCC+3, EPCSRCC+4, EPCSRCC+5, EPCSRCC+6, EPCSRCC+7 |
| >> FORADDR | PID+26*, PID+38, PID+44, PID+46, PID+47, PID+53, PID+57, PID+69, ZTA+12*, ZTA+18 , ZTA+21, ZTA+22 |
| >> HLECH | PID+25, PID+28, PID+32, PID+33, PID+60, PID+76, PID+79, PID+82, PID+85, PID+88 , PID+107, PID+127, ZTA+11, ZTA+15, ZGD+11, ZCT+22, ZEM+13 |
| >> HLFS | ZPD+8, ZPD+11, 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+42 |
| >> IVMADDR | PID+20*, PID+22*, PID+23*, PID+24, PID+25, PID+28, PID+32, ZTA+10*, ZTA+11, ZTA+15 , ZGD+10*, ZGD+11, ZCT+21*, ZCT+22, ZEM+12*, ZEM+13 |
| >> IVMADFLG | PID+10*, PID+63*, PID+70*, PID+76*, PID+79*, PID+82*, PID+85*, PID+89*, PID+91, 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+42*, PID+54 |
| >> IVMDA | RF1+19 |
| >> IVMDEMDA | PID+20, PID+21, PID+23, PID+122, ZPD+20, ZTA+34, ZAV+8, ZGD+19, ZCT+33, ZEM+21 , RF1PROC+33, RF1PROC+37 |
| >> IVMDHCP | PID+122*, PID+130, PID+134, ZPD+20*, ZPD+23, ZTA+34*, ZTA+39, ZTA+42, ZTA+45, ZAV+8* , ZAV+10, 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+42*, RF1PROC+43 |
| IVMEPC | RF1PROC+1~, RF1PROC+10*, RF1PROC+11*, RF1PROC+13 |
| >> IVMFLD | PID+3*, PID+11, PID+28*, PID+30*, PID+32*, PID+33*, PID+34*, PID+35, PID+38*, PID+39* , PID+44*, PID+45*, PID+46*, PID+47*, PID+48*, PID+49*, PID+50*, PID+53*, PID+54*, PID+57* , PID+58*, PID+60*, PID+62*, PID+71*, PID+76*, PID+79*, PID+82*, PID+85*, PID+88*, PID+89* , PID+94*, PID+97*, PID+101*, PID+102*, PID+104*, PID+107*, PID+115*, PID+127*, PID+128, PID+130 , PID+134, ZPD+11*, ZPD+15*, ZPD+23, 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+39, ZTA+42 , ZTA+45, ZAV+2*, ZAV+5*, ZAV+10, 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+43 |
| IVMLST | PID+110~, PID+111*, PID+112*, PID+114 |
| >> IVMPHDFG | RF1PROC+25*, RF1PROC+26 |
| >> IVMPID( | PID+7, PID+94 |
| >> IVMPID(12 | PID+71 |
| >> IVMPID(22 | PID+107 |
| >> IVMPIECE | PID+5*, PID+7, PID+28*, PID+30, PID+31, PID+37, PID+41, PID+42, PID+43, PID+46 , PID+47, PID+48, PID+49, PID+50, PID+52, PID+56, PID+59, PID+94, ZPD+3*, ZPD+8 , ZPD+11, ZPD+24, 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+41*, PID+71 |
| >> IVMRACE | PID+109 |
| >> IVMRACE(2 | PID+113 |
| >> IVMRFDAT | RF1PROC+6*, RF1PROC+7 |
| >> IVMRTN | RF1+19 |
| >> IVMSEG | ZPD+8, ZPD+11, ZPD+24, 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+39*, PID+41, PID+42, PID+58 |
| >> IVMTSTPT | ZTA+19*, ZTA+24 |
| >> IVMXREF | PID+5, PID+11, PID+65, PID+73, PID+75, PID+78, PID+81, PID+84, PID+87, PID+94 , PID+97, PID+100, PID+104, PID+106, PID+109, PID+126, ZPD+3, ZPD+4, ZPD+6, ZPD+15 , ZPD+25, ZPD+26, ZPD+27, ZPD+29, ZTA+2, ZTA+9, ZTA+28, ZTA+31, ZTA+38, ZTA+44 , 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+19, RF1PROC+4, RF1PROC+7, RF1PROC+11, RF1PROC+16 |
| NOPHUP | RF1+21~*, RF1+31 |
| NOUPDT | RF1+21~*, RF1+22*, RF1+31 |
| 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, RF1PROC+26 , RF1PROC+31, RF1PROC+36, RF1PROC+41, RF1PROC+42, RF1PROC+44, RF1PROC+45 |
| STFLG | ZPD+1~, ZPD+2*, ZPD+23*, ZPD+26 |
| >> TELECOM | PID+73 |
| >> TELECOM("BPN" | PID+81, PID+82 |
| >> TELECOM("NET" | PID+87, PID+88 |
| >> TELECOM("ORN" | PID+84, PID+85 |
| >> TELECOM("PRN" | PID+126, PID+127, RF1PROC+25 |
| >> TELECOM("VACPN" | PID+75, PID+76 |
| >> TELECOM("WPN" | PID+78, PID+79 |
| U | PID+112, PID+113, PID+115 |
| >> UPDAUPG( | ZCT+42* |
| >> UPDAUPG("CA" | RF1PROC+34* |
| >> UPDAUPG("RA" | RF1PROC+38* |
| >> UPDAUPG("TA" | ZTA+45* |
| >> UPDEPC | RF1+20 |
| >> UPDEPC( | RF1PROC+44* |
| >> UPDEPC("SAD" | RF1+22, RF1PROC+45* |
| UPPHN | PID+129!, PID+131*, RF1+30! |
| >> X | PID+45*, ZTA+20*, ZGD+13*, ZCT+26*, ZEM+15* |
| XVAL | PID+110~, PID+111*, PID+112*, PID+113*, PID+115* |
| >> Y | PID+122, ZPD+20, ZTA+34, ZAV+8, ZGD+19, ZCT+33, ZEM+21, RF1PROC+33, RF1PROC+37 |
| ZCTTYP | ZCT+1~, ZCT+6*, ZCT+7, ZCT+42 |
| >> ZEMADRUP( | ZEM+24* |
