Routine: DGMTSCU3

Information

DGMTSCU3 ;ALB/RMO - Means Test Screen Variable Utilities Cont. ;4 MAY 1992 7:45 am

Source file <DGMTSCU3.m>

Package	Total	Call Graph
Registration	3	$$TOT^DGMTSCU1 CHK^DGMTSCU2 ALL^DGMTU21
VA Fileman	1	^DIE

Package	Total	Caller Graph
Registration	4	DGMTSC2 DGMTSC2V DGMTSCC DGMTSCU2

Name	Comments	DBIA/ICR reference
SPOUSEQ
CHILDQ
MT(DGINR,DGMTI)	;Update Means Test IEN in Individual Annual Income file ; Input -- DGINR Income Relation IEN ; DGMTI Annual Means Test IEN ; Output -- Update Means Test IEN	ICR #1070 Status: Active Usage: Private
CHILD	;Determine total dependent children(s) income and expense
SPOUSE	;Determine spouse income and net worth
INC	;Determine income, expense and net worth ; Input -- DFN Patient file IEN ; DGCOMF Means Test Completion Flag (Optional) ; (1 if completing means 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

Name	Field # of Occurrence
$$TOT^DGMTSCU1	INC+21, INC+22, INC+23, SPOUSE+2, SPOUSE+3, CHILD+3, CHILD+10
CHK^DGMTSCU2	INC+26
ALL^DGMTU21	INC+19
^DIE	MT+5

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, CHILD+8

Name	Field # of Occurrence
^(1	INC+20, SPOUSE+1
^(2	INC+20, SPOUSE+1

Name	Field # of Occurrence
DA	MT+4~, MT+5*
>> DFN	INC+19
DGCE	CHILD+1~, CHILD+5*, CHILD+6
DGCNT	INC+18~, INC+26*, CHILD+2, CHILD+4, CHILD+7, CHILD+8
>> DGCOMF	INC+24, SPOUSE+4, CHILD+7
>> DGDC	INC+26
>> DGDET	INC+22, CHILD+6
DGEMP	CHILD+1~, CHILD+3*, CHILD+5, CHILD+6
>> DGIN0(	INC+27
>> DGIN0("C"	INC+26, CHILD+2
>> DGIN0("S"	INC+25, SPOUSE+1, SPOUSE+2
>> DGIN0("V"	INC+20*, INC+21
>> DGIN1("C"	INC+26, CHILD+4
>> DGIN1("S"	INC+25, SPOUSE+1
>> DGIN1("V"	INC+20*, INC+22
>> DGIN2(	INC+28
>> DGIN2("C"	INC+26, CHILD+9
>> DGIN2("S"	INC+25, SPOUSE+1, SPOUSE+3
>> DGIN2("V"	INC+20*, INC+23
DGINC	INC+18~
DGINC("C"	INC+26, CHILD+2, CHILD+4, CHILD+8
DGINC("S"	INC+25, SPOUSE+1
DGINR	INC+18~, MT~, MT+5
DGINR("C"	CHILD+7
DGINR("S"	SPOUSE+4
DGINR("V"	INC+24
>> DGINT	INC+21, INC+27, SPOUSE+2, CHILD+3*
>> DGINTF	INC+27*
>> DGMTDT	INC+19
DGMTI	INC+19, INC+24, SPOUSE+4, CHILD+7, MT~, MT+5
>> DGMTPAR	CHILD+5
>> DGNWT	INC+23, INC+28, SPOUSE+3, CHILD+10*
>> DGNWTF	INC+28*
>> DGSP	INC+25
>> DGVINI	INC+20
DIE	MT+4~, MT+5*
DR	MT+4~, MT+5*
I	INC+18~, INC+27, INC+28, CHILD+1~, CHILD+2, CHILD+9
J	INC+18~, INC+27, INC+28
X	CHILD+1~, CHILD+2, CHILD+3, CHILD+4, CHILD+5, CHILD+8*, CHILD+9, CHILD+10
Y	INC+18~, INC+26