EASECSU3 ;ALB/LBD - LTC Co-Pay Test Screen Variable Utilities Cont. ;14 AUG 2001
Source file <EASECSU3.m>
Package | Total | Call Graph |
---|---|---|
Enrollment Application System | 1 | ALL^EASECU21 |
Registration | 1 | $$TOT^DGMTSCU1 |
VA FileMan | 1 | ^DIE |
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 |
---|---|---|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGMT(408.21 - [#408.21] | INC+20, SPOUSE+1, CHILD+2, CHILD+4 |
^DGMT(408.22 - [#408.22] | DEP+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | MT+4~, MT+5* |
>> DFN | INC+19, DEP+10 |
DGCE | CHILD+1~, CHILD+5*, CHILD+6 |
DGCNT | INC+18~, CHILD+2, CHILD+4, CHILD+7, DEP+9~ |
>> DGCOMF | INC+24, SPOUSE+5, CHILD+7 |
>> DGDC | DEP+16* |
DGDEP | DEP+9~ |
>> DGDET | INC+22*, CHILD+6* |
DGEMP | CHILD+1~, CHILD+3*, CHILD+5, CHILD+6 |
>> DGIN0("C" | CHILD+2* |
>> DGIN0("S" | INC+25*, SPOUSE+1*, SPOUSE+2 |
>> DGIN0("V" | INC+20*, INC+21 |
>> DGIN1("C" | CHILD+4* |
>> DGIN1("S" | INC+25*, SPOUSE+1* |
>> DGIN1("V" | INC+20*, INC+22 |
>> DGIN2("S" | INC+25*, SPOUSE+1*, SPOUSE+4 |
>> DGIN2("V" | INC+20*, INC+23 |
DGINC | INC+18~ |
DGINC("C" | CHILD+2, CHILD+4 |
DGINC("S" | INC+25, SPOUSE+1 |
DGINR | INC+18~, MT~, MT+5, DEP+9~ |
DGINR("C" | CHILD+7 |
DGINR("S" | SPOUSE+5 |
DGINR("V" | INC+24 |
>> DGINT | INC+21*, INC+28, SPOUSE+2*, CHILD+3* |
>> DGINTF | INC+28* |
>> DGMTDT | INC+19, DEP+10 |
DGMTI | INC+19, INC+24, SPOUSE+5, CHILD+7, MT~, MT+5, DEP+10 |
>> DGMTPAR | CHILD+5 |
>> DGNC | DEP+17*, DEP+18 |
>> DGND | DEP+18* |
>> DGNWT | INC+23*, INC+29, SPOUSE+4* |
>> DGNWTF | INC+29* |
DGREL | DEP+9~ |
DGREL("S" | DEP+14 |
>> DGSP | INC+25, DEP+14*, DEP+18 |
>> DGVINI | INC+20 |
>> DGVIR0 | DEP+10*, DEP+14, DEP+17 |
>> DGVIRI | DEP+10 |
DIE | MT+4~, MT+5* |
DR | MT+4~, MT+5* |
I | INC+18~, CHILD+1~, CHILD+2* |
J | INC+18~ |
U | DEP+14 |
X | CHILD+1~, CHILD+2*, CHILD+3, CHILD+4*, CHILD+5 |
Y | INC+18~, DEP+9~ |