EASECSU3 ;ALB/LBD - LTC Co-Pay Test Screen Variable Utilities Cont. ;14 AUG 2001
Source file <EASECSU3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INC | ;Determine income, expense and net worth
; Input -- DFN Patient file IEN ; DGCOMF LTC Co-Pay Test Completion Flag (Optional) ; (1 if completing LTC co-pay test) ; DGMTDT Date of Test ; DGMTI Annual Means Test IEN ; DGVINI Veteran Individual Annual Income IEN ; DGSP Spouse 1=YES and 0=NO (mt income) ; DGDC Dependent children 1=YES and 0=NO (mt income) ; DGMTPAR Annual Means Test Parameters ; Output -- DGIN0 Annual Income 0th node array (income) ; DGIN1 Annual Income 1 node array (expense) ; DGIN2 Annual Income 2 node array (net worth) ; DGINT Total income ; DGDET Total deductible expenses ; DGNWT Total net worth ; DGINTF Income flag ; DGNWTF Net worth flag |
|
| SPOUSE | ;Determine spouse income and net worth
|
|
| SPOUSEQ | ||
| CHILD | ;Determine total dependent children(s) income and expense
|
|
| CHILDQ | ||
| MT(DGINR,DGMTI) | ;Update Income Relation file with Means Test IEN
; Input -- DGINR Income Relation IEN ; DGMTI Annual Means Test IEN ; Output -- Update Means Test IEN |
|
| DEP | ;Determine dependent data
; Input -- DFN Patient file IEN ; DGMTDT Date of Test ; DGVIRI Veteran Income Relation IEN ; Output -- DGVIR0 Veteran Income Relation 0th node ; DGSP Spouse 1=YES and 0=NO (mt income) ; DGDC Dependent children 1=YES and 0=NO (mt income) ; DGNC Number of dependent children ; DGND Total number of dependents |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
