IVMUM2 ;ALB/SEK - ADD NEW DEPENDENT TO INCOME PERSON FILE ; 12 MAY 94
Source file <IVMUM2.m>
| 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 |
|---|---|---|
| Enrollment Application System | 2 | EASUM1 EASUM6 |
| Income Verification Match | 1 | IVMUM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; this routine will add entries to INCOME PERSON file (408.13) for
; new dependents (spouse/children). if IVM demo data (name, dob, ; ssn, sex) is different than VAMC data, 408.13 will be changed to ; contain the IVM data. the MEANS TEST CHANGES file (408.41) will ; contain both values. |
|
| INPIEN | ; get INCOME PERSON IEN
; if PATIENT RELATION IEN not in ZDP ; add dependent to INCOME PERSON file if dependent not found ; dependent found if dob, sex, & relationship (408.12) match |
|
| NOIEN | ; ien of patient relation file is not transmitted or transmitted and
; not found ; check if dependent in income person file ; if dependent not found in 408.13, setup ivmstr = 0 node of 408.13 ; subscript of array IVMAR is ien of 408.12 transmitted by IVM Center or ; created or found by upload. |
|
| ADDDEP | ; add dependent to 408.13 file
; In - DFN=IEN of File #2 ; DGRP0ND=0 node of 408.13 |
|
| GETIP | ; if can't find 408.12 record notify site & IVM Center
|
|
| GETIPI | ; ivmseg13 is 0 node of income person file
; get demo data in 408.13 & 408.12 |
| Name | Field # of Occurrence |
|---|---|
| $$DEM^DGMTU1 | GETIPI+2 |
| FILE^DICN | ADDDEP+7 |
| IX1^DIK | ADDDEP+14 |
| $$FMDATE^HLFNC | INPIEN+14, INPIEN+15 |
| $$FMNAME^HLFNC | INPIEN+14 |
| ERRBULL^IVMPREC7 | ADDDEP+12, GETIP+5, GETIPI+5 |
| MAIL^IVMUFNC | ADDDEP+12, GETIP+5, GETIPI+5 |
| AUDIT^IVMUM9 | INPIEN+26 |
| AUDIT1^IVMUM9 | NOIEN+16 |
| AUDITP^IVMUM9 | INPIEN+26, NOIEN+16 |
| FileNo | Call Tags |
|---|---|
| ^DGPR(408.13 - [#408.13] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPR(408.12 - [#408.12] | INPIEN+25, NOIEN+7, GETIP+1 |
| ^DGPR(408.13 - [#408.13] | ADDDEP+14* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | ADDDEP+7* |
| DD | ADDDEP+7! |
| >> DFN | NOIEN+7 |
| >> DGIPI | INPIEN+26*, NOIEN+16*, ADDDEP+7*, ADDDEP+10, ADDDEP+14 |
| >> DGPRI | INPIEN+12*, INPIEN+18, INPIEN+25, NOIEN+7*, NOIEN+9, NOIEN+10, GETIP+1, GETIP+4, GETIPI+2 |
| >> DGRP0ND | ADDDEP+5*, ADDDEP+7, ADDDEP+14 |
| DIC | ADDDEP+7*, ADDDEP+16! |
| DIC(0 | ADDDEP+7* |
| DIK | ADDDEP+7*, ADDDEP+16! |
| DINUM | ADDDEP+6! |
| DLAYGO | ADDDEP+7*! |
| DO | ADDDEP+7! |
| >> HLERR | ADDDEP+11*, GETIP+4*, GETIPI+4* |
| >> IVMAR( | NOIEN+9, NOIEN+10* |
| >> IVMDOB | INPIEN+14*, INPIEN+17, NOIEN+10, NOIEN+20 |
| >> IVMDOB13 | NOIEN+10, GETIPI+7* |
| >> IVMEFFDT | INPIEN+15* |
| >> IVMFERR | INPIEN+26, NOIEN+7, NOIEN+9, NOIEN+15, ADDDEP+13*, GETIP+6*, GETIPI+6* |
| >> IVMFLG1 | INPIEN+11*, INPIEN+26*, NOIEN+7, NOIEN+10*, NOIEN+16, NOIEN+19 |
| >> IVMFLG2 | INPIEN+11*, ADDDEP+15* |
| >> IVMFLG5 | INPIEN+11*, INPIEN+17* |
| >> IVMNM | INPIEN+14*, INPIEN+17, NOIEN+20 |
| >> IVMNM13 | GETIPI+8* |
| >> IVMPRN | INPIEN+25*, INPIEN+26, NOIEN+16, GETIP+1*, GETIP+2, GETIP+3 |
| >> IVMRELN | INPIEN+15*, NOIEN+10 |
| >> IVMRELO | INPIEN+26*, NOIEN+9, NOIEN+10, GETIP+2*, GETIP+7 |
| >> IVMSEG | INPIEN+12, INPIEN+14, INPIEN+15 |
| >> IVMSEG13 | GETIPI+2*, GETIPI+3, GETIPI+7, GETIPI+8 |
| >> IVMSEX | INPIEN+14*, INPIEN+17, NOIEN+10, NOIEN+20 |
| >> IVMSEX13 | NOIEN+10, GETIPI+7* |
| >> IVMSPCHV | INPIEN+17 |
| >> IVMSSN | INPIEN+14*, NOIEN+20 |
| >> IVMSSN13 | GETIPI+7* |
| >> IVMSTR | NOIEN+20*, ADDDEP+5 |
| >> IVMTEXT(6 | ADDDEP+11*, GETIP+4*, GETIPI+4* |
| >> X | ADDDEP+7* |
| >> Y | ADDDEP+7 |
