IVMCMD ;ALB/SEK,KCL,BRM - DELETE DCD INCOME TESTS ; 12/18/01 1:18pm
Source file <IVMCMD.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 |
---|---|---|
Income Verification Match | 2 | IVMCM IVMCM1 |
Registration | 2 | DG53285 DG53467P |
Enrollment Application System | 1 | EASCM |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(IVMMTIEN) | ; --
; This routine will process income test deletion requests received ; from the IVM Center. |
|
EN1 | ; Get zero node of (#408.31)
|
|
DELETE(IVMMTIEN,DFN,IVMDOT) | ; delete copay or MT
|
|
DEL22 | ; Delete veteran, spouse, and dependent entries from the
; Income Relation (#408.22) file: ; - Veteran (#408.22) record |
|
DEL21 | ; Delete veteran, spouse, and dependent entries from
; Individual Annual Income (#408.21) file: ; - Veteran (#408.21) record |
|
ENQ | ||
DEMO | ; Change demographic data in (#408.12) & (#408.13) files
; back to original VAMC values. |
|
SETUPAR | ; Create array IVMAR1() where
; 1) Subscript is MT Changes Type (#408.42) file node where type of ; change = Name, DOB, SSN, Sex, Relationship. ; 2) 1st piece is (#408.12) or (#408.13) file. ; 3) 2nd piece is (#408.12) or (#408.13) file field number. |
|
DELTYPE(DFN,MTDATE,TYPE) | ;
|
|
TYPECH | ; Type of dependent changes (#408.41/#408.42) file
; 1st piece - 408.42 table file node ; 2nd piece - file (408.12/408.13) ; 3rd piece - 408.12/408.13 field |
FileNo | Call Tags |
---|---|
^DGPR(408.12 - [#408.12] | Classic Fileman Calls |
^DGPR(408.13 - [#408.13] | Classic Fileman Calls |
^DGMT(408.21 - [#408.21] | Classic Fileman Calls |
^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGMT(408.31 - [#408.31] | EN1+1, EN1+6, EN1+7, DELETE+3, DELTYPE+15 |
^DGMT(408.41 - [#408.41] | DEMO+14, DEMO+15 |
^DGPR(408.12 - [#408.12] | DEL21+27, DEL21+29, DEL21+33, DEL21+36, DEL21+48, DEL21+50, DEL21+53, DEL21+61 |
^DGPR(408.13 - [#408.13] | DEL21+36 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | DEL22+3*, DEL22+4, DEL22+9*, DEL22+10, DEL22+17*, DEL21+3*, DEL21+4, DEL21+9*, DEL21+10, DEL21+17* , DEL21+40*!, DEL21+41*!, DEL21+54*, DEL21+55!, DEMO+21*, DEMO+22*, DEMO+24! |
DA(1 | DEL21+54*, DEL21+55! |
DFN | EN+13~, EN1+4*, EN1+10, EN1+11, EN1+13, DELETE~, DELETE+11, DELTYPE~, DELTYPE+4, DELTYPE+10 , DELTYPE+18, DELTYPE+20 |
>> DGINC("C" | DEL21+16, DEL21+17 |
>> DGINC("S" | DEL21+9 |
>> DGINC("V" | DEL21+3 |
>> DGINR("C" | DEL22+16, DEL22+17 |
>> DGINR("S" | DEL22+9 |
>> DGINR("V" | DEL22+3 |
>> DGMTACT | DELETE+7* |
>> DGMTI | DELETE+7* |
DGMTP | DELETE+6~ |
DIE | DEMO+21*, DEMO+22*, DEMO+24! |
DIK | DEL22+5*, DEL22+11*, DEL22+18*, DEL21+5*, DEL21+11*, DEL21+18*, DEL21+40*!, DEL21+41*!, DEL21+54*, DEL21+55! |
DR | DEMO+13!, DEMO+23*, DEMO+24! |
DT | DELTYPE+18 |
>> IVM12 | DEL21+27*, DEL21+29, DEL21+33, DEL21+36, DEL21+40, DEL21+48, DEL21+50, DEL21+53, DEL21+54, DEL21+61 , DEMO+22 |
>> IVM121 | DEL21+48*, DEL21+50, DEL21+53, DEL21+54 |
>> IVM13 | DEL21+36*, DEL21+41, DEL21+61*, DEMO+16, DEMO+21 |
IVM41 | DEMO+13*, DEMO+14*, DEMO+15, SETUPAR+6*, SETUPAR+8! |
IVM411 | DEMO+15*, DEMO+16, DEMO+17, DEMO+19, DEMO+20, SETUPAR+6*, SETUPAR+7, SETUPAR+8! |
>> IVMAR1( | DEMO+19, DEMO+20, SETUPAR+7* |
>> IVMDEP | DEL22+15*, DEL22+16*, DEL22+17, DEL21+15*, DEL21+16*, DEL21+17 |
IVMDONE | EN+13~, EN+14*, EN1+14 |
IVMDOT | EN+13~, EN1+3*, EN1+10, EN1+11, EN1+13, DELETE~, DELETE+11 |
IVMERR | EN+13~, EN1+9, DEL21+27, DEL21+30*, DEL21+37*, DEL21+51* |
>> IVMFILE | DEMO+19*, DEMO+21, DEMO+22 |
IVMLINK | EN+13~, EN1+6*, EN1+8, EN1+10 |
IVMLTC | EN+13~, EN1+7*, EN1+11 |
IVMMTIEN | EN~, EN1+1, EN1+6, EN1+7, EN1+13, DELETE~, DELETE+3, DELETE+7, DELETE+11, DEL21+27 , DEL21+48, DEMO+14 |
>> IVMNOD | DEMO+20*, DEMO+23 |
IVMNODE0 | EN+13~, EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5 |
>> IVMOLD | DEMO+17*, DEMO+18* |
IVMTOT | EN+13~, EN1+5*, EN1+7, EN1+8, EN1+9 |
>> IVMTYPE | DELTYPE+18, DELTYPE+20 |
>> IVMVAMCA | DEL21+53*, DEL21+58 |
MTDATE | DELTYPE~, DELTYPE+5, DELTYPE+8 |
MTNODE | DELTYPE+7~, DELTYPE+10*, DELTYPE+11, DELTYPE+12, DELTYPE+15, DELTYPE+16, DELTYPE+20 |
RET | DELTYPE+7~, DELTYPE+18*, DELTYPE+19*, DELTYPE+20 |
TYPE | DELTYPE~, DELTYPE+6, DELTYPE+10, DELTYPE+15 |
YEAR | DELTYPE+7~, DELTYPE+8*, DELTYPE+10, DELTYPE+12, DELTYPE+19 |
Name | Field # of Occurrence |
---|---|
$T(TYPECH+IVM41 | SETUPAR+6 |