IVMCM2 ;ALB/SEK,CKN,TDM,JAM - ADD NEW DCD DEPENDENT TO INCOME PERSON FILE ;3/18/10 2:07pm
Source file <IVMCM2.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; this routine will add entries to INCOME PERSON file (408.13) for
; new dependents (spouse/children). if DCD demo data (name, dob, ; ssn, sex) is different than VAMC data, 408.13 will be changed to ; contain the DCD 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 ; DGRP1ND=1 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 |
| $$DEM1^DGMTU1 | GETIPI+3 |
| FILE^DICN | ADDDEP+16 |
| $$FMDATE^HLFNC | INPIEN+18, INPIEN+24, INPIEN+44 |
| $$FMNAME^HLFNC | INPIEN+18 |
| AUDIT^IVMCM9 | INPIEN+56 |
| AUDIT1^IVMCM9 | NOIEN+16 |
| AUDITP^IVMCM9 | INPIEN+56, NOIEN+16 |
| PROB^IVMCMC | ADDDEP+21, GETIP+5, GETIPI+6 |
| ERRBULL^IVMPREC7 | ADDDEP+22, GETIP+6, GETIPI+7 |
| MAIL^IVMUFNC | ADDDEP+22, GETIP+6, GETIPI+7 |
| FileNo | Call Tags |
|---|---|
| ^DGPR(408.13 - [#408.13] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPR(408.12 - [#408.12] | INPIEN+55, NOIEN+7, GETIP+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | ADDDEP+10~*, ADDDEP+12*, ADDDEP+14* |
| >> DA | ADDDEP+16* |
| DD | ADDDEP+16! |
| >> DFN | NOIEN+7 |
| >> DGIPI | INPIEN+56*, NOIEN+16*, ADDDEP+16*, ADDDEP+19 |
| >> DGPRI | INPIEN+16*, INPIEN+48, INPIEN+55, NOIEN+7*, NOIEN+9, NOIEN+10, GETIP+1, GETIP+4, GETIPI+2, GETIPI+3 |
| >> DGRP0ND | ADDDEP+7*, ADDDEP+12, ADDDEP+14, ADDDEP+16 |
| >> DGRP1ND | ADDDEP+8*, ADDDEP+15 |
| DIC | ADDDEP+16*, ADDDEP+25! |
| DIC("DR" | ADDDEP+12*, ADDDEP+14*, ADDDEP+15* |
| DIC(0 | ADDDEP+16* |
| DIK | ADDDEP+16*, ADDDEP+25! |
| DINUM | ADDDEP+9! |
| DLAYGO | ADDDEP+16*! |
| DO | ADDDEP+16! |
| >> HLECH | INPIEN+36, INPIEN+37, INPIEN+38, INPIEN+39, INPIEN+40, INPIEN+41, INPIEN+42, INPIEN+43, INPIEN+46 |
| I | ADDDEP+10~, ADDDEP+11*, ADDDEP+12, ADDDEP+13*, ADDDEP+14, ADDDEP+15* |
| IVMAL113 | INPIEN+13~, GETIPI+12* |
| IVMAL213 | INPIEN+13~, GETIPI+12* |
| IVMAL313 | INPIEN+13~, GETIPI+12* |
| IVMALU13 | INPIEN+13~, GETIPI+14* |
| >> IVMAR( | NOIEN+9, NOIEN+10* |
| IVMCTY13 | INPIEN+13~, GETIPI+13* |
| >> IVMDOB | INPIEN+18*, INPIEN+32, NOIEN+10, NOIEN+20 |
| >> IVMDOB13 | NOIEN+10, GETIPI+9* |
| >> IVMEFFDT | INPIEN+24* |
| >> IVMFERR | INPIEN+19*, INPIEN+56, NOIEN+7, NOIEN+9, NOIEN+15, ADDDEP+23*, GETIP+7*, GETIPI+8* |
| >> IVMFLG1 | INPIEN+14*, INPIEN+56*, NOIEN+7, NOIEN+10*, NOIEN+16, NOIEN+19 |
| >> IVMFLG2 | INPIEN+14*, ADDDEP+24* |
| >> IVMFLG5 | INPIEN+14*, INPIEN+32* |
| >> IVMNM | INPIEN+18*, INPIEN+32, NOIEN+20 |
| >> IVMNM13 | GETIPI+11* |
| >> IVMPRN | INPIEN+55*, INPIEN+56, NOIEN+16, GETIP+1*, GETIP+2, GETIP+3 |
| >> IVMPSR13 | GETIPI+9* |
| >> IVMPSSNR | INPIEN+20*, INPIEN+23, INPIEN+27*, NOIEN+20 |
| >> IVMRELN | INPIEN+24*, NOIEN+10 |
| >> IVMRELO | INPIEN+56*, NOIEN+9, NOIEN+10, GETIP+2*, GETIP+8 |
| IVMSADL1 | INPIEN+12~, INPIEN+36*, NOIEN+22 |
| IVMSADL2 | INPIEN+12~, INPIEN+37*, NOIEN+22 |
| IVMSADL3 | INPIEN+12~, INPIEN+38*, NOIEN+22 |
| IVMSALU | INPIEN+12~, INPIEN+42*, INPIEN+43*, INPIEN+44*, NOIEN+24 |
| IVMSCITY | INPIEN+12~, INPIEN+39*, NOIEN+23 |
| >> IVMSEG | INPIEN+16, INPIEN+18, INPIEN+20, INPIEN+24, INPIEN+25, INPIEN+28, INPIEN+35, INPIEN+45 |
| >> IVMSEG13 | GETIPI+2*, GETIPI+4, GETIPI+9, GETIPI+11 |
| >> IVMSEX | INPIEN+18*, INPIEN+32, NOIEN+10, NOIEN+20 |
| >> IVMSEX13 | NOIEN+10, GETIPI+9* |
| >> IVMSG131 | GETIPI+3*, GETIPI+10, GETIPI+12, GETIPI+13, GETIPI+14 |
| >> IVMSMN13 | GETIPI+10* |
| >> IVMSPCHV | INPIEN+32 |
| IVMSPFLG | INPIEN+11~, INPIEN+15* |
| IVMSPMNM | INPIEN+11~, INPIEN+25*, NOIEN+21 |
| >> IVMSSN | INPIEN+18*, INPIEN+19, INPIEN+23*, NOIEN+20 |
| >> IVMSSN13 | GETIPI+9* |
| >> IVMSSNVS | INPIEN+28*, INPIEN+30*, NOIEN+20 |
| IVMSST | INPIEN+12~, INPIEN+40*, NOIEN+23 |
| IVMST13 | INPIEN+13~, GETIPI+13* |
| IVMSTELE | INPIEN+12~, INPIEN+45*, INPIEN+46*, NOIEN+23 |
| >> IVMSTR | NOIEN+20*, ADDDEP+7 |
| >> IVMSTR1 | NOIEN+21*, NOIEN+22*, NOIEN+23*, NOIEN+24*, ADDDEP+8 |
| >> IVMSVS13 | GETIPI+9* |
| IVMSZIP | INPIEN+12~, INPIEN+41*, NOIEN+23 |
| IVMTEL13 | INPIEN+13~, GETIPI+14* |
| >> IVMTEXT(6 | ADDDEP+20*, ADDDEP+21, GETIP+4*, GETIP+5, GETIPI+5*, GETIPI+6 |
| IVMZDP13 | INPIEN+12~, INPIEN+35*, INPIEN+36, INPIEN+37, INPIEN+38, INPIEN+39, INPIEN+40, INPIEN+41, INPIEN+42 |
| IVMZIP13 | INPIEN+13~, GETIPI+13* |
| U | ADDDEP+12, ADDDEP+14, ADDDEP+15 |
| X | ADDDEP+6~, ADDDEP+16* |
| Y | ADDDEP+6~, ADDDEP+16 |
