Routine: DGMTDD2

Information

DGMTDD2 ;ALB/RMO,LBD - Income Relation file (#408.22) Data Dictionary Calls ;13 MAR 1992 3:00 pm

Source file <DGMTDD2.m>

Package	Total	Call Graph
Registration	3	($$NAME,$$REL)^DGMTU1 GETREL^DGMTU11 $$IAI^DGMTU3

Package	Total	Caller Graph
Registration	5	DGMTXD DGMTXD1 DGMTXM DGMTXX21 DGMTXX22

Name	Comments	DBIA/ICR reference
LIVHLP	;Help for Lived With Patient field (#.06)
MAR	;Input Transform check for the Married field (#.05)
DEP	;Input Transform check for the Dependent Children field (#.08)
SP	;"Trigger" Cross-reference on the Amount Contributed to Spouse field
AMT	;Input Transform check for Amount Contributed To Spouse field (#.07)
AVL	;Input Transform check for Income Available To You field (#.12)
LIV	;Input Transform check for Lived With Patient field (#.06)
KILL	;Kill Cross-Reference
FUN	;"Trigger" Cross-reference on the Married field (#.05) and
CON	;Input Transform check for Contributed To Support field (#.1)
NAM	;Output Transform for Individual Annual Income field (#.02)
ID	;Identifier for Income Relation file
INC	;"Trigger" Cross-reference on the Child Had Income field (#.11) and

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ID+4
Function Call: WRITE	Prompt: !?5,"An active spouse exists. Married cannot be 'NO'.",!?5,"You have to use the 'Expand Dependent' action and inactive first." Line Location: MAR+7
Function Call: WRITE	Prompt: !?5,"Active children exist. Dependent Children cannot be 'NO'." Line Location: DEP+7
Function Call: WRITE	Prompt: !?5,"This field does not need to be filled in unless the patient is married." Line Location: LIV+3
Function Call: WRITE	Prompt: !?5,"This field does not need to be filled in unless the patient was married",!?5,"and did not live with his or her spouse." Line Location: AMT+3
Function Call: WRITE	Prompt: !?5,"This field does not need to be filled in unless the child did not",!?5,"live with the patient." Line Location: CON+3
Function Call: WRITE	Prompt: !?5,"This field does not need to be filled in unless the child has income." Line Location: AVL+1
Function Call: WRITE	Prompt: !?5,"Enter in this field whether the veteran resided with his or her spouse",!?5,"last calendar year. If they were living apart because one was",!?5,"hospitalized or in a nursing home, enter 'YES'." Line Location: LIVHLP+3
Function Call: WRITE	Prompt: !?5,"Enter in this field whether the child resided with the veteran last",!?5,"calendar year." Line Location: LIVHLP+4
Function Call: WRITE	Prompt: ! Line Location: LIVHLP+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ID+3, NAM+2
^DD(408.21	KILL+3
^DGMT(408.21 - [#408.21]	ID+2, FUN+6, FUN+8, FUN+13, SP+4, SP+8, SP+11, INC+5, INC+7*, MAR+4 , DEP+4, LIV+2, AMT+2, CON+2, NAM+2, LIVHLP+2
^DGMT(408.22 - [#408.22]	FUN+6, FUN+7, SP+3, INC+4, MAR+3, DEP+3, LIV+2, AMT+2, CON+2, AVL+1 , LIVHLP+2
^DGMT(408.31 - [#408.31]	FUN+9, FUN+10, FUN+11
^DGPR(408.12 - [#408.12]	ID+4, LIV+3, AMT+3, CON+3, LIVHLP+3, LIVHLP+4

Name	Line Occurrences
KILL	FUN+13, SP+10, INC+7

Name	Field # of Occurrence
DA	FUN+6, FUN+7, SP+3, SP+5~, INC+4, KILL+1~, KILL+2*, MAR+3, MAR+5~, DEP+3 , DEP+5~, LIV+2, AMT+2, CON+2, AVL+1, LIVHLP+2
DFN	SP+2~, SP+4, SP+6, MAR+2~, MAR+4, MAR+6, DEP+2~, DEP+4*, DEP+6
DGDEP	DEP+2~
DGFLD	FUN+5~, FUN+12, SP+9, SP+11, INC+6~, INC+7*, KILL+3
DGIN0	ID+1~, ID+2, ID+3, FUN+5~, NAM+1~, NAM+2
>> DGIN1	FUN+6*, FUN+12
DGIN2	SP+2~, SP+8*, SP+9
DGINI	FUN+5~, FUN+6, FUN+8, FUN+13, SP+2~, SP+7, SP+8, SP+11, INC+3~, INC+4* , INC+5, INC+7, KILL+2
DGIR0	SP+3, SP+4, MAR+2~, MAR+3, MAR+4, DEP+2~, DEP+3, DEP+4, LIV+1~, LIV+2 , LIV+3, AMT+1~, AMT+2, AMT+3, CON+1~, CON+2, CON+3, LIVHLP+1~, LIVHLP+2*
DGIX	KILL+1~, KILL+2, KILL+3
DGLY	SP+2~, SP+4, SP+6, SP+7, MAR+2~, MAR+4, MAR+6, DEP+2~, DEP+4*, DEP+6
DGMT	FUN+5~, FUN+8*, FUN+9, FUN+10
>> DGMTI	SP+6, MAR+6, DEP+6
DGMTIR	FUN+5~, FUN+7*, FUN+11
DGPRI	ID+1~, ID+3, ID+4, LIV+1~, LIV+2, LIV+3, AMT+1~, AMT+2, AMT+3, CON+1~ , CON+2, CON+3, NAM+1~, NAM+2, NAM+3, LIVHLP+1~, LIVHLP+2, LIVHLP+3, LIVHLP+4
DGREL	SP+2~, MAR+2~, DEP+2~
DGREL("C"	DEP+7
DGREL("S"	SP+7, MAR+7
DGVAL	FUN+5~, FUN+12, FUN+13, SP+2~, SP+9, INC+6~, INC+7*, KILL+2, KILL+3
U	ID+2, ID+3, ID+4, FUN+6, FUN+7, FUN+9, FUN+10, FUN+11, FUN+12, FUN+13 , SP+4, SP+9, SP+11, INC+4, INC+5, INC+7, MAR+4, DEP+4, LIV+2, LIV+3 , AMT+2, AMT+3, CON+2, CON+3, AVL+1, NAM+2, LIVHLP+2, LIVHLP+3, LIVHLP+4
X	SP+5~, KILL+1~, KILL+2, KILL+3, MAR+5~, MAR+7!, DEP+5~, DEP+7!, LIV+3!, AMT+3! , CON+3!, AVL+1!
Y	ID+1~, ID+3, ID+4, NAM+2, NAM+3*