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~ |