DGMTSCU2 ;ALB/RMO,CAW,LBD,CKN,LMD - 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 |
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 |
---|---|---|
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 |
|
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
|
|
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 |
|
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 |
|
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 | 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 |