Routine: DGMTSCU2

Information

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

Package	Total	Caller Graph
Registration	11	DG311PIR DGMTP DGMTSC DGMTSC2 DGMTSC2V DGMTSC4 DGMTSC4V DGMTSCC DGMTSCR DGMTSCU3 DGMTSCU4

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	ICR #960 Status: Active Usage: Private
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	ICR #1255 Status: Active Usage: Private
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	Field # of Occurrence
^(0	CHK+2

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