DG53358D ;ALB/AEG,GN DG*5.3*358 DELETE INCOME TESTS ; 12/17/03 3:06pm
Source file <DG53358D.m>
| 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 | ||
| 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 |
