Routine: DGRPEIS3

Package	Total	Call Graph
Registration	6	$$FORIEN^DGADDUTL $$LYR^DGMTSCU1 ($$SPSCHK,PATASET,SPSASET)^DGRPEIS SETUP^DGRPEIS1 ($$RELTYPE,READ)^DGRPEIS2 CLEAR^VALM1
VA Fileman	3	EN^DDIOL (,FILE)^DIE ^DIR

Package	Total	Caller Graph
Registration	2	DGRPEIS DGRPEIS2

Entry Points

Name	Comments	DBIA/ICR reference
HELPMN	; * Displays help for Spouse Maiden Name
HELP	; Display information when veteran's DOB is past the income year
HELPSA2	; * Displays help for Street Address 2
HELPSA3	; * Displays help for Street Address 3
EDIT	;CALLED FROM ROUTINE DGRPEIS
EDACTDT
HELPDOB	; * Displays help for Date of Birth
HELPPHON	; * Displays help for the Phone number
FOREIGN	;tag added for rejoining if country not USA
EDITQ
HELPZIP	; * Displays help for the Zip code
WRT	; Write age statement
HELPSA1	; * Displays help for Street Address 1
SSNREA(DGEXIT)	;if SSN is pseudo Pseudo SSN Reason is required - DG5.3653
HELPSTAT	; * Displays help for the state
HELPCITY	; * Displays help for City
HELP1(DGISDT)	; Displays the help for the active/inactive prompt

External References

Name	Field # of Occurrence
EN^DDIOL	HELPSTAT+11, HELPSTAT+14
$$FORIEN^DGADDUTL	EDIT+38
$$LYR^DGMTSCU1	EDIT+4
$$SPSCHK^DGRPEIS	FOREIGN+1
PATASET^DGRPEIS	FOREIGN+14
SPSASET^DGRPEIS	FOREIGN+15
SETUP^DGRPEIS1	EDACTDT+8
$$RELTYPE^DGRPEIS2	HELPSA1+2, HELPSA2+2, HELPSA3+2, HELPCITY+2, HELPSTAT+2, HELPZIP+2, HELPPHON+2
READ^DGRPEIS2	EDACTDT+3
^DIE	EDIT+19, EDIT+26, FOREIGN+23, FOREIGN+26, EDACTDT+7, SSNREA+5
FILE^DIE	FOREIGN+18
^DIR	HELP+5, EDIT+45, FOREIGN+8, HELPDOB+13
CLEAR^VALM1	HELP1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please return to screen 8 and check the veteran's effective date." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"The effective date was created based on the veteran's date of birth." Line Location: HELP+3
Function Call: WRITE	Prompt: !,"You might also want to check the date of birth for this veteran." Line Location: HELP+4
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"This dependent is 18 years or older. To list this person as a dependent" Line Location: WRT+2
Function Call: WRITE	Prompt: !,"they have to be:" Line Location: WRT+3
Function Call: WRITE	Prompt: !," 1. An UNMARRIED child who is under the age of 18." Line Location: WRT+4
Function Call: WRITE	Prompt: !," 2. Between the ages of 18 and 23 and attending school." Line Location: WRT+5
Function Call: WRITE	Prompt: !," 3. An unmarried child over the age of 17 who became permanently" Line Location: WRT+6
Function Call: WRITE	Prompt: !," incapable of self support before the age of 18." Line Location: WRT+7
Function Call: WRITE	Prompt: !,"SOCIAL SECURITY NUMBER "_SSNUM_" has been verified by SSA -- NO EDITING" Line Location: EDIT+20
Function Call: WRITE	Prompt: !,"Use 'Expand Dependent' option to change effective date." Line Location: EDACTDT+4
Function Call: WRITE	Prompt: !,"Enter the date this person first became a dependent of the veteran." Line Location: HELP1+3
Function Call: WRITE	Prompt: !,"In the case of a spouse, this would be the date of marriage. For" Line Location: HELP1+4
Function Call: WRITE	Prompt: !,"a child, this would be the date of birth or date of adoption. For a" Line Location: HELP1+5
Function Call: WRITE	Prompt: !,"stepchild, this would be the date of marriage to the child's parent." Line Location: HELP1+6
Function Call: WRITE	Prompt: !!,"Date must be before DEC 31, "_DGISDT_" as dependents are collected for the" Line Location: HELP1+7
Function Call: WRITE	Prompt: !,"prior calendar year only." Line Location: HELP1+8
Function Call: WRITE	Prompt: !?5,"Enter the date this dependent was born. The date must not be during the" Line Location: HELPDOB+3
Function Call: WRITE	Prompt: !?5,"current calendar year. Only persons that were dependents before the" Line Location: HELPDOB+4
Function Call: WRITE	Prompt: !?5,"current year may be entered.",! Line Location: HELPDOB+5
Function Call: READ	Timeout: DTIME Variable: DGRDVAR Line Location: HELPDOB+6
Function Call: WRITE	Prompt: !,"Enter RETURN to continue:" Line Location: HELPDOB+6
Function Call: WRITE	Prompt: ! Line Location: HELPDOB+6
Function Call: WRITE	Prompt: !?8,"Enter the date on which this relative was born. This information is" Line Location: HELPDOB+8
Function Call: WRITE	Prompt: !?8,"necessary for use in the income screening and means test portions of" Line Location: HELPDOB+9
Function Call: WRITE	Prompt: !?8,"MAS." Line Location: HELPDOB+10
Function Call: WRITE	Prompt: !!?8,"The date entered must not be during the current calendar year. That" Line Location: HELPDOB+11
Function Call: WRITE	Prompt: !?8,"is, it must be on or before December 31 or the prior calendar year." Line Location: HELPDOB+12
Function Call: WRITE	Prompt: ! Line Location: HELPDOB+13
Function Call: WRITE	Prompt: !!?8,"The reason for this is that this data is used for collecting income" Line Location: HELPDOB+14
Function Call: WRITE	Prompt: !?8,"information for the purposes of comparing this data with the Internal" Line Location: HELPDOB+15
Function Call: WRITE	Prompt: !?8,"Revenue Service (IRS). Children born during the calendar year cannot" Line Location: HELPDOB+16
Function Call: WRITE	Prompt: !?8,"be entered until next year." Line Location: HELPDOB+17
Function Call: READ	Timeout: DTIME Variable: DGRDVAR Line Location: HELPDOB+18
Function Call: WRITE	Prompt: !!,"Enter RETURN to continue:" Line Location: HELPDOB+18
Function Call: WRITE	Prompt: ! Line Location: HELPDOB+18
Function Call: WRITE	Prompt: !?8,"Enter the spouse's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format." Line Location: HELPMN+1
Function Call: WRITE	Prompt: !?8,"Entry of the LAST name only is permitted and the comma may be omitted." Line Location: HELPMN+2
Function Call: WRITE	Prompt: !?8,"If the response contains no comma, one will be appended to the value." Line Location: HELPMN+3
Function Call: WRITE	Prompt: !?8,"Including the comma, the value must be at least 3 characters in length.",! Line Location: HELPMN+4
Function Call: WRITE	Prompt: !,"If a "_DGRELTP_"'s name has been specified, enter the first line of" Line Location: HELPSA1+3
Function Call: WRITE	Prompt: !,"that person's street address [3-30 characters]; otherwise this field" Line Location: HELPSA1+4
Function Call: WRITE	Prompt: !,"may be left blank. This field cannot be deleted as long as a "_DGRELTP_"'s" Line Location: HELPSA1+5
Function Call: WRITE	Prompt: !,"name is on file." Line Location: HELPSA1+6
Function Call: WRITE	Prompt: ! Line Location: HELPSA1+7
Function Call: WRITE	Prompt: !,"If a "_DGRELTP_"'s name has been specified, enter the second line of" Line Location: HELPSA2+3
Function Call: WRITE	Prompt: !,"that person's street address [3-30 characters]; otherwise this field" Line Location: HELPSA2+4
Function Call: WRITE	Prompt: !,"may be left blank. This field cannot be deleted as long as a "_DGRELTP_"'s" Line Location: HELPSA2+5
Function Call: WRITE	Prompt: !,"name is on file." Line Location: HELPSA2+6
Function Call: WRITE	Prompt: ! Line Location: HELPSA2+7
Function Call: WRITE	Prompt: !,"If a "_DGRELTP_"'s name has been specified, enter the third line of" Line Location: HELPSA3+3
Function Call: WRITE	Prompt: !,"that person's street address [3-30 characters]; otherwise this field" Line Location: HELPSA3+4
Function Call: WRITE	Prompt: !,"may be left blank. This field cannot be deleted as long as a "_DGRELTP_"'s" Line Location: HELPSA3+5
Function Call: WRITE	Prompt: !,"name is on file." Line Location: HELPSA3+6
Function Call: WRITE	Prompt: ! Line Location: HELPSA3+7
Function Call: WRITE	Prompt: !,"If a "_DGRELTP_"'s name has been specified, enter the city in which" Line Location: HELPCITY+3
Function Call: WRITE	Prompt: !,"that person resides [3-30 characters]; otherwise this field may be" Line Location: HELPCITY+4
Function Call: WRITE	Prompt: !,"left blank. This field cannot be deleted as long as a "_DGRELTP_"'s" Line Location: HELPCITY+5
Function Call: WRITE	Prompt: !,"name is on file." Line Location: HELPCITY+6
Function Call: WRITE	Prompt: ! Line Location: HELPCITY+7
Function Call: WRITE	Prompt: !,"Answer with the 5 digit format (e.g. 12345) or the nine digit" Line Location: HELPZIP+3
Function Call: WRITE	Prompt: !,"format (e.g. 12345-6789 or 123456789). This is related to the" Line Location: HELPZIP+4
Function Call: WRITE	Prompt: !,DGRELTP_"'s address." Line Location: HELPZIP+5
Function Call: WRITE	Prompt: ! Line Location: HELPZIP+6
Function Call: WRITE	Prompt: !,"If a "_DGRELTP_"'s name has been specified, enter the "_DGRELTP_"'s" Line Location: HELPPHON+3
Function Call: WRITE	Prompt: !,"phone number [4-20 characters], otherwise this field may be left" Line Location: HELPPHON+4
Function Call: WRITE	Prompt: !,"blank. This field cannot be deleted as long as a "_DGRELTP_"'s" Line Location: HELPPHON+5
Function Call: WRITE	Prompt: !,"name is on file." Line Location: HELPPHON+6
Function Call: WRITE	Prompt: ! Line Location: HELPPHON+7
Routine Call	DIE Line Location: EDIT+19 EDIT+26 FOREIGN+23 FOREIGN+26 EDACTDT+7 SSNREA+5
Routine Call	DIE Line Location: FOREIGN+18
Routine Call	DIR Line Location: HELP+5 EDIT+45 FOREIGN+8 HELPDOB+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EDACTDT+1
^DGPR(408.12 - [#408.12]	FOREIGN+27, FOREIGN+28, EDACTDT
^DPT - [#2]	EDIT+38

Label References

Name	Line Occurrences
EDITQ	EDIT+19, FOREIGN+24, EDACTDT
FOREIGN	EDIT+38
SSNREA	EDIT+23

Naked Globals

Name	Field # of Occurrence
^(	FOREIGN+28
^(0	EDACTDT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANS(	FOREIGN+16, FOREIGN+17!
DA	EDIT+7, EDIT+13, EDIT+23, EDIT+31, FOREIGN+17, FOREIGN+26, EDACTDT+6*, EDACTDT+9!, EDITQ!, SSNREA+6 , HELPDOB+6, HELPDOB+13, HELPDOB+18, HELPSA1+2, HELPSA1+7, HELPSA2+2, HELPSA2+7, HELPSA3+2, HELPSA3+7, HELPCITY+2 , HELPCITY+7, HELPSTAT+2, HELPZIP+2, HELPZIP+6, HELPPHON+2, HELPPHON+7
DA(1	EDACTDT+6*
>> DATE	EDIT+4*
DDIOLARY	HELPSTAT+1~, HELPSTAT+11
DDIOLARY(1	HELPSTAT+3, HELPSTAT+4
DDIOLARY(2	HELPSTAT+5, HELPSTAT+6
DDIOLARY(3	HELPSTAT+7, HELPSTAT+8
DDIOLARY(4	HELPSTAT+9, HELPSTAT+10
>> DFN	EDIT+38, FOREIGN+1, FOREIGN+14
DG	EDIT+19!, EDIT+26!, FOREIGN+23!, FOREIGN+26!, SSNREA+5!
DGACT	EDACTDT+1*, EDACTDT+4, EDACTDT+6, EDACTDT+9!
>> DGEDDEP	EDIT+2*
DGEXIT	EDIT+1~, EDIT+18, EDIT+19, EDIT+23, EDIT+26, EDIT+27, SSNREA~, SSNREA+5*
DGFL	EDIT+3, EDIT+19, EDIT+26, EDIT+33~, EDIT+35, FOREIGN+24, FOREIGN+26, EDACTDT, EDACTDT+4, EDACTDT+5 , SSNREA+5
DGIPIEN	EDIT+33~, EDIT+34, FOREIGN+1, FOREIGN+2, FOREIGN+15
DGISDT	HELP1~, HELP1+7
DGMIEN	FOREIGN+28*, EDACTDT, EDACTDT+6, EDACTDT+9!
>> DGMTI	WRT+1
>> DGPREF	EDIT+5, FOREIGN+26, FOREIGN+27, FOREIGN+28, EDACTDT, EDACTDT+6, EDACTDT+8
DGRDVAR	HELPDOB+1~, HELPDOB+6, HELPDOB+18, HELPSTAT+1~, HELPSTAT+15*
DGRELTP	HELPSA1+1~, HELPSA1+2, HELPSA1+3, HELPSA1+5, HELPSA2+1~, HELPSA2+2, HELPSA2+3, HELPSA2+5, HELPSA3+1~, HELPSA3+2* , HELPSA3+3, HELPSA3+5, HELPCITY+1~, HELPCITY+2, HELPCITY+3, HELPCITY+5, HELPSTAT+1~, HELPSTAT+2, HELPSTAT+3, HELPSTAT+7 , HELPZIP+1~, HELPZIP+2, HELPZIP+5, HELPPHON+1~, HELPPHON+2, HELPPHON+3, HELPPHON+5
DGRPI	EDIT+33~
DGSADD	EDIT+33~, EDIT+34, FOREIGN+9, FOREIGN+13, FOREIGN+15, FOREIGN+21
>> DGTYPE	EDIT+6*, EDIT+24, EDIT+35, FOREIGN+2, FOREIGN+26, EDACTDT+8
DGUQTLP	EDIT+33~, EDIT+34*
DGVADD	EDIT+33~, EDIT+34, EDIT+46, FOREIGN+2, FOREIGN+13, FOREIGN+14, FOREIGN+21
>> DGX	FOREIGN+28*, EDACTDT+4
DIE	EDIT+7, EDIT+13, EDIT+23, EDIT+31, FOREIGN+26, EDACTDT+6*, EDACTDT+9!, EDITQ!, SSNREA+4, SSNREA+6
DIR	HELP+5!, EDIT+40!, EDIT+47!, FOREIGN+3!, FOREIGN+10!
DIR("?"	EDIT+44, FOREIGN+7
DIR("A"	EDIT+42, FOREIGN+5
DIR("B"	EDIT+43, FOREIGN+6, EDACTDT+2*
DIR(0	HELP+5, EDIT+41, FOREIGN+4, HELPDOB+13
DIRA	HELPSTAT+1~
DIRUT	EDACTDT+9!, EDITQ!
>> DOB	EDIT+31*
DQ	EDIT+19!, EDIT+26!, FOREIGN+23!, FOREIGN+26!, SSNREA+5!
DR	EDIT+17, EDIT+25, FOREIGN+22, FOREIGN+26, EDACTDT+6, EDACTDT+9!, EDITQ!, SSNREA+4
DT	EDIT+4
DTIME	HELPDOB+6, HELPDOB+18, HELPSTAT+15
DTOUT	EDIT+19, EDIT+26, FOREIGN+24, FOREIGN+26, EDACTDT+9!, EDITQ!, SSNREA+5
DUOUT	EDIT+19, EDIT+26, FOREIGN+24, FOREIGN+26, EDACTDT+9!, EDITQ!, SSNREA+5
EXIT	SSNREA+1~, SSNREA+2, SSNREA+3, SSNREA+5, SSNREA+6, SSNREA+7
FDA	FOREIGN+16~
FDA(	FOREIGN+17*
FLD	FOREIGN+16~*, FOREIGN+17
I	SSNREA+1~
RELATION	FOREIGN+27*, EDACTDT+9!
SPOUSE	EDIT+33~, EDIT+35*, EDIT+44
SSNUM	EDIT+1~, EDIT+14*, EDIT+20
SSNV	EDIT+1~, EDIT+14*, EDIT+17, EDIT+20
SSNVL	EDIT+1~, EDIT+13*, EDIT+14
U	EDIT+23, EDIT+31, EDIT+38, SSNREA+6
UPARROW	EDIT+19, EDIT+26, FOREIGN+24, FOREIGN+26!, EDACTDT+9!, SSNREA+5
>> VALMBCK	HELP1+9*
>> X	EDIT+5, EDIT+7, EDACTDT+8, HELPDOB+2, HELPSA1+7, HELPSA2+7, HELPSA3+7, HELPCITY+7, HELPSTAT+13, HELPZIP+6 , HELPPHON+7
Y	EDIT+46, EDIT+47!, FOREIGN+3!, FOREIGN+9, FOREIGN+10!, EDACTDT+1*, EDACTDT+2, HELPDOB+13

Customize PDF page

Package: Registration

Routine: DGRPEIS3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: