Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRPEIS3

Package: Registration

Routine: DGRPEIS3


Information

DGRPEIS3 ;ALB/CAW,EG,ERC,BAJ,TDM - INCOME SCREENING DATA (CON'T) ; 5/26/10 2:03pm

Source Information

Source file <DGRPEIS3.m>

Call Graph

Call Graph

Call Graph Total: 9

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 ^DGPR(408.13  DGRPEIS  DGRPEIS2  

Entry Points

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

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
  • Variable: DGRDVAR
  • Timeout: DTIME
  • 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
  • Variable: DGRDVAR
  • Timeout: DTIME
  • 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*, EDACTDTEDACTDT+4*, EDACTDT+5
, SSNREA+5*
DGIPIEN EDIT+33~, EDIT+34*, FOREIGN+1*, FOREIGN+2, FOREIGN+15
DGISDT HELP1~, HELP1+7
DGMIEN FOREIGN+28*, EDACTDTEDACTDT+6, EDACTDT+9!
>> DGMTI WRT+1
>> DGPREF EDIT+5, FOREIGN+26, FOREIGN+27, FOREIGN+28, EDACTDTEDACTDT+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All