DGMTSCU2 ;ALB/RMO,CAW,LBD,CKN - Means Test Screen Variable Utilities ;6 FEB 1992 7:45 am
Source file <DGMTSCU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | $$ACT^DGMTDD INC^DGMTSCU3 ALL^DGMTU21 |
| Enrollment Application System | 1 | $$THRES^EASECMT |
| Integrated Billing | 1 | $$INCDT^IBARXEU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| CHK | ;Check if child has income which is available to the veteran
|
|
| SET | ;Set required means test variables
; Input -- DFN Patient file IEN ; DGMTDT Date of Test ; DGMTYPT Type of Test 1=MT 2=COPAY ; DGMTI Annual Means Test IEN ; DGMTPAR Annual Means Test Parameters ; DGVIRI Veteran Income Relation IEN ; DGVINI Veteran Individual Annual Income IEN ; Output -- All output variables in tags DEP, INC^DGMTSCU3, CAT and STA |
|
| STA | ;Determine means test status and type of care
; Input -- DGCAT Means test category code ; DGMTYPT Type of Test 1=MT 2=COPAY ; Output -- DGMTS Means test status IEN ; DGTYC Type of care |
|
| CAT | ;Determine means test thresholds and category
; Input -- DGMTDT Date of Test ; DGND Total number of dependents ; DGINT Total income ; DGDET Total deductible expenses ; DGMTPAR Annual Means Test Parameters ; DGMTGMT GMT Thresholds ; Output -- DGTHA MT threshold ; DGTHB Category B threshold (NO LONGER USED) ; DGTHG GMT threshold ; DGCAT Means/Copay test category code |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(408.32 - [#408.32] | STA+5, STA+6 |
| ^DGMT(408.22 - [#408.22] | DEP+10, CHK+2 |
| ^DGMT(408.31 - [#408.31] | CAT+30 |
| Name | Line Occurrences |
|---|---|
| CAT | SET+9 |
| CHK | DEP+12 |
| DEP | SET+9 |
| STA | SET+9 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | DEP+10, CAT+16, CAT+39 |
| >> DGCAT | CAT+11*, CAT+15*, CAT+17*, CAT+18*, CAT+19*, CAT+35*, CAT+36*, CAT+37*, CAT+41*, STA+5 |
| DGCNT | DEP+9~, DEP+12*, CHK+2 |
| DGCOPS | CAT+11~, CAT+40*, CAT+41 |
| DGCOST | CAT+11~, CAT+39*, CAT+40 |
| >> DGDC | DEP+12* |
| DGDEP | DEP+9~ |
| >> DGDET | CAT+18, CAT+19, CAT+35, CAT+39 |
| DGINR | DEP+9~ |
| DGINR("C" | DEP+12, CHK+2 |
| >> DGINT | CAT+18, CAT+19, CAT+35, CAT+39 |
| >> DGMTDT | DEP+10, CAT+16, CAT+18, CAT+19, CAT+27, CAT+36, CAT+39 |
| >> DGMTGMT | CAT+28, CAT+32, CAT+33 |
| >> DGMTI | DEP+10, CAT+30 |
| >> DGMTPAR | CAT+18, CAT+19 |
| >> DGMTS | STA+5*, STA+6 |
| >> DGMTYPT | CAT+13, CAT+37, CAT+38, STA+5 |
| >> DGNC | DEP+13*, DEP+14 |
| >> DGND | DEP+14*, CAT+18, CAT+19, CAT+32, CAT+33, CAT+39 |
| >> DGNWT | CAT+39 |
| >> DGREF | CAT+15, CAT+37, CAT+39 |
| >> DGREF1 | CAT+15, CAT+37 |
| DGREL | DEP+9~ |
| DGREL("S" | DEP+11 |
| >> DGSP | DEP+11*, DEP+14 |
| >> DGTHA | CAT+14*, CAT+18*, CAT+34, CAT+42* |
| >> DGTHB | CAT+19*, CAT+42* |
| >> DGTHG | CAT+26*, CAT+28*, CAT+30*, CAT+31, CAT+32*, CAT+33*, CAT+34, CAT+35 |
| >> DGTYC | STA+6* |
| >> DGVIR0 | DEP+10*, DEP+11, DEP+12, DEP+13 |
| >> DGVIRI | DEP+10 |
| PCT | CAT+11~, CAT+33* |
| U | CAT+39 |
| Y | DEP+9~, DEP+12, CHK+1*, CHK+2*, CAT+14~, CAT+16*, CAT+17 |