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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGRPU

Package: Registration

Routine: DGRPU


Information

DGRPU ;ALB/MRL,TMK,BAJ,DJE,JAM - REGISTRATION UTILITY ROUTINE ;12/20/2005 5:37PM

Source Information

Source file <DGRPU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 6 ($$CNTRYI,$$FORIEN)^DGADDUTL  $$LST^DGMTCOU1  $$LYR^DGMTSCU1  ALL^DGMTU21  TFL^VAFCTFU2  $$SITE^VASITE  
VA FileMan 1 ^DIR  

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: 26

Package Total Caller Graph
Registration 25 DGADDUT2  DGMHVUTL  DGRP1  DGRP10  DGRP11  DGRP12  DGRP13  DGRP14  
DGRP15  DGRP2  DGRP3  DGRP4  DGRP5  DGRP6  DGRP6CL  DGRP6EF  
DGRP7  DGRP7CP  DGRP9  DGRPCADD  DGRPCF  DGRPD  DGRPD1  DGRPH  
DGRPP1  
Enrollment Application System 1 ^DGMT(408.22  

Entry Points

Name Comments DBIA/ICR reference
H ;Screen Header
AL(DGLEN) ;DGLEN= Available length of line
  • ICR #5310
    • Status: Withdrawn
    • Usage: Controlled Subscription
  • ICR #5310
    • Status: Withdrawn
    • Usage: Controlled Subscription
    A ;Format address(es)
    ; DG*5.3*688 BAJ 12/20/2005 modified for foreign address
    US(DGAD,TMP,DGA1,DGA2) ;process US addresses and format in DGA array
    ; DG*5.3*688 BAJ this is the code for all addresses prior to the addition of Foreign address logic.
    ; Modifications for Foreign address are in Tag FOREIGN
    FOREIGN(DGAD,TMP,DGA1,DGA2) ;process FOREIGN addresses and format in DGA array
    W
    FNPCS ; Foreign data pieces. Structure-->Description;;Main Node;Data Node;City;Province;Postal code.
    H1 ;
    INCOME(DFN,DGDT) ; compute income for veteran...if not in 408.21, pass back file 2 data
    ; (called by PTF)
    MTCOMP(DFN,DGDT) ; is current means test OR COPAY complete?
    HLP1010 ;* This is called by the Executable Help for Patient field #1010.159
    ; (APPOINTMENT REQUEST ON 1010EZ)
    HLPCS ; * This is called by the Executable Help for Income Relation field #.1
    HLP1823 ;*This is called by the Executable Help for Patient Relation field #.18
    HLPMLDS ;* This is called by the Executable Help for Patient field #.362
    ; (DISABILITY RET. FROM MILITARY?)
    HLP3602 ;help text for field .3602, Rec'ing Disability in Lieu of VA Comp
    HLP3603 ;help text for field .3603, Discharge Due to LOD Disability
    SSNNM(DFN) ; SSN, EDIPI and name on first line of screen

    External References

    Name Field # of Occurrence
    $$CNTRYI^DGADDUTL A+12
    $$FORIEN^DGADDUTL A+14
    $$LST^DGMTCOU1 MTCOMP+10
    $$LYR^DGMTSCU1 MTCOMP+10
    ALL^DGMTU21 INCOME+12
    ^DIR HLPMLDS+16
    TFL^VAFCTFU2 SSNNM+6
    $$SITE^VASITE SSNNM+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: H+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: H+4
    Function Call: WRITE
    • Prompt: ?X1,X
    • Line Location: H+4
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: H+5
    Function Call: WRITE
    • Prompt: W
    • Line Location: W+0
    Function Call: WRITE
    • Prompt: ?X,Z
    • Line Location: W+0
    Function Call: WRITE
    • Prompt: ?X,@DGVI,Z,@DGVO
    • Line Location: W+1
    Function Call: WRITE
    • Prompt: !!," Enter a 'Y' if the veteran applicant has requested an"
    • Line Location: HLP1010+2
    Function Call: WRITE
    • Prompt: !," appointment with a VA doctor or provider and wants to be"
    • Line Location: HLP1010+3
    Function Call: WRITE
    • Prompt: !," seen as soon as one becomes available Enter a 'N'"
    • Line Location: HLP1010+4
    Function Call: WRITE
    • Prompt: !," if the veteran applicant has not requested an appointment."
    • Line Location: HLP1010+5
    Function Call: WRITE
    • Prompt: !!," This question may ONLY be entered ONCE for the veteran."
    • Line Location: HLP1010+6
    Function Call: WRITE
    • Prompt: !," The answer to this question CANNOT be changed after the"
    • Line Location: HLP1010+7
    Function Call: WRITE
    • Prompt: !," initial entry.",!
    • Line Location: HLP1010+8
    Function Call: WRITE
    • Prompt: !?8,"Enter in this field a Yes or No to indicate whether the veteran"
    • Line Location: HLPCS+3
    Function Call: WRITE
    • Prompt: !?8,"contributed any dollar amount to the child's support last calendar"
    • Line Location: HLPCS+4
    Function Call: WRITE
    • Prompt: !?8,"year. The contributions do not have to be in regular set amounts."
    • Line Location: HLPCS+5
    Function Call: WRITE
    • Prompt: !?8,"For example, a veteran who paid a child's school tuition or"
    • Line Location: HLPCS+6
    Function Call: WRITE
    • Prompt: !?8,"medical bills would be contributing to the child's support.",!
    • Line Location: HLPCS+7
    Function Call: READ
    • Variable: DGRDVAR
    • Timeout: DTIME
    • Line Location: HLPCS+8
    Function Call: WRITE
    • Prompt: !,"Enter RETURN to continue:"
    • Line Location: HLPCS+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: HLPCS+8
    Function Call: WRITE
    • Prompt: !?7,"Enter 'Y' if the child is currently 18 to 23 years old and the child"
    • Line Location: HLP1823+2
    Function Call: WRITE
    • Prompt: !?7,"attended school last calendar year. Enter 'N' if the child is currently"
    • Line Location: HLP1823+3
    Function Call: WRITE
    • Prompt: !?7,"18 to 23 years old but the child did not attend school last calendar"
    • Line Location: HLP1823+4
    Function Call: WRITE
    • Prompt: !?7,"year. Enter 'N' if the child is not currently 18 to 23 years old.",!
    • Line Location: HLP1823+5
    Function Call: READ
    • Variable: DGRDVAR
    • Timeout: DTIME
    • Line Location: HLP1823+6
    Function Call: WRITE
    • Prompt: !,"Enter RETURN to continue:"
    • Line Location: HLP1823+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: HLP1823+6
    Function Call: WRITE
    • Prompt: !!," Enter '0' or 'NO' if the veteran:"
    • Line Location: HLPMLDS+3
    Function Call: WRITE
    • Prompt: !," -- Is NOT retired from the military OR"
    • Line Location: HLPMLDS+4
    Function Call: WRITE
    • Prompt: !," -- Is retired from the military due to length of service AND"
    • Line Location: HLPMLDS+5
    Function Call: WRITE
    • Prompt: !," does NOT have a disability confirmed by the Military Branch"
    • Line Location: HLPMLDS+6
    Function Call: WRITE
    • Prompt: !," to have been incurred in or aggravated while on active duty."
    • Line Location: HLPMLDS+7
    Function Call: WRITE
    • Prompt: !!," Enter '1' or 'YES, RECEIVING MILITARY RETIREMENT' if the veteran:"
    • Line Location: HLPMLDS+8
    Function Call: WRITE
    • Prompt: !," -- Is confirmed by the Military Branch to have been discharged"
    • Line Location: HLPMLDS+9
    Function Call: WRITE
    • Prompt: !," or released due to a disability incurred in or aggravated"
    • Line Location: HLPMLDS+10
    Function Call: WRITE
    • Prompt: !," while on active duty AND"
    • Line Location: HLPMLDS+11
    Function Call: WRITE
    • Prompt: !," -- Has NOT filed a claim for VA compensation benefits OR"
    • Line Location: HLPMLDS+12
    Function Call: WRITE
    • Prompt: !," -- Has been rated by the VA to be NSC OR"
    • Line Location: HLPMLDS+13
    Function Call: WRITE
    • Prompt: !," -- Has been rated by the VA to have noncompensable 0%"
    • Line Location: HLPMLDS+14
    Function Call: WRITE
    • Prompt: !," SC conditions."
    • Line Location: HLPMLDS+15
    Function Call: WRITE
    • Prompt: !!," Enter '2' or 'YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA"
    • Line Location: HLPMLDS+17
    Function Call: WRITE
    • Prompt: !," COMPENSATION' if the veteran:"
    • Line Location: HLPMLDS+18
    Function Call: WRITE
    • Prompt: !," -- Is confirmed by the Military Branch to have been discharged"
    • Line Location: HLPMLDS+19
    Function Call: WRITE
    • Prompt: !," or released due to a disability incurred in or aggravated"
    • Line Location: HLPMLDS+20
    Function Call: WRITE
    • Prompt: !," while on active duty AND"
    • Line Location: HLPMLDS+21
    Function Call: WRITE
    • Prompt: !," -- Is receiving military disability retirement pay AND"
    • Line Location: HLPMLDS+22
    Function Call: WRITE
    • Prompt: !," -- Has been rated by VA to have compensable SC conditions"
    • Line Location: HLPMLDS+23
    Function Call: WRITE
    • Prompt: !," but is NOT receiving compensation from the VA"
    • Line Location: HLPMLDS+24
    Function Call: WRITE
    • Prompt: !!," Once eligibility has been verified, this field will no longer"
    • Line Location: HLPMLDS+25
    Function Call: WRITE
    • Prompt: !," be editable to any user who does not hold the designated security"
    • Line Location: HLPMLDS+26
    Function Call: WRITE
    • Prompt: !," key."
    • Line Location: HLPMLDS+27
    Function Call: WRITE
    • Prompt: !," Enter 'Y' if this veteran applicant is receiving disability"
    • Line Location: HLP3602+1
    Function Call: WRITE
    • Prompt: !," retirement pay from the Military instead of VA compensation."
    • Line Location: HLP3602+2
    Function Call: WRITE
    • Prompt: !," Enter 'N' if this veteran applicant is not receiving disability"
    • Line Location: HLP3602+3
    Function Call: WRITE
    • Prompt: !," retirement pay from the Military instead of VA compensation."
    • Line Location: HLP3602+4
    Function Call: WRITE
    • Prompt: !," Once eligibility has been verified by HEC this field will no longer "
    • Line Location: HLP3602+5
    Function Call: WRITE
    • Prompt: !," be editable by VistA users. Send updates and/or requests to HEC."
    • Line Location: HLP3602+6
    Function Call: WRITE
    • Prompt: !," Enter 'Y' if this veteran applicant was discharged from the"
    • Line Location: HLP3603+1
    Function Call: WRITE
    • Prompt: !," military for a disability incurred or aggravated in the line "
    • Line Location: HLP3603+2
    Function Call: WRITE
    • Prompt: !," of duty. Enter 'N' if this veteran applicant was not discharged"
    • Line Location: HLP3603+3
    Function Call: WRITE
    • Prompt: !," from the military for a disability incurred or aggravated in the"
    • Line Location: HLP3603+4
    Function Call: WRITE
    • Prompt: !," line of duty. Once eligibility has been verified by HEC this field"
    • Line Location: HLP3603+5
    Function Call: WRITE
    • Prompt: !," will no longer be editable by VistA users. Send updates and/or requests"
    • Line Location: HLP3603+6
    Function Call: WRITE
    • Prompt: !," to HEC."
    • Line Location: HLP3603+7
    Routine Call
    • DIR
    • Line Location:
      • HLPMLDS+16

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGMT(408.21 - [#408.21] INCOME+13
    ^DIC(5 - [#5] US+5
    ^DPT - [#2] US+8, INCOME+14, SSNNM+3

    Label References

    Name Line Occurrences
    $$SSNNM H+3
    @( A+15
    W H+1, H+2

    Naked Globals

    Name Field # of Occurrence
    ^(0 US+5, SSNNM+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ASFC SSNNM+2~, SSNNM+10*, SSNNM+11
    CITY FOREIGN+1~, FOREIGN+3*, FOREIGN+6
    CNTRY A+3~, A+12*, A+17
    COMP MTCOMP+9~, MTCOMP+12*, MTCOMP+14*, MTCOMP+16*, MTCOMP+17*, MTCOMP+18
    >> DA HLP1823+6
    DFN H+3, US+8, INCOME~, INCOME+12, INCOME+14, MTCOMP~, MTCOMP+10, SSNNM~, SSNNM+3, SSNNM+5
    >> DGA A+18*
    DGA1 A+7, A+11, A+19!, US~, US+5, US+13, FOREIGN~
    DGA2 A+7*, A+8*, A+17*, US~, US+5, US+17, FOREIGN~, FOREIGN+6
    DGAD A+5, A+7, US~, US+5, US+7, US+8, US+10, US+12, US+13, FOREIGN~
    , FOREIGN+3, FOREIGN+6
    DGDEP INCOME+11~
    DGDT INCOME~, INCOME+12, MTCOMP~, MTCOMP+10
    DGINC INCOME+11~
    DGINC("V" INCOME+13
    DGLEN AL~, A+2~*, US+17, US+18, FOREIGN+7
    >> DGMTYPT MTCOMP+11*, MTCOMP+13, MTCOMP+15
    DGRDVAR HLPCS+2~, HLPCS+8*, HLP1823+1~, HLP1823+6*
    DGREL INCOME+11~
    >> DGRP( A+7, A+12, US+5, US+10, US+12, US+13, FOREIGN+6
    >> DGRPH H+1, H+2, H+4
    >> DGRPS H+1, H+2
    >> DGRPTYPE H+4
    DGTOT INCOME+11~*, INCOME+13*, INCOME+14*, INCOME+15
    >> DGVI W, W+1
    >> DGVO W+1
    DGX A+3~, US+3~, US+8*, US+10*, US+12*, US+13*, US+15*, US+17, INCOME+11~, INCOME+13*
    , INCOME+14
    DIR HLPCS+2~, HLP1823+1~, HLPMLDS+2~
    DIR(0 HLPMLDS+16*
    DTIME HLPCS+8, HLP1823+6
    EDIPI SSNNM+2~, SSNNM+7*, SSNNM+13*, SSNNM+14, SSNNM+15, SSNNM+16*, SSNNM+17*, SSNNM+18
    EDIPI( SSNNM+15*
    EDIPI(1 SSNNM+17
    FILE A+3~, A+12*
    FNODE A+3~, A+5*, A+12, FOREIGN+1~, FOREIGN+3*, FOREIGN+6
    >> FOR A+10*, A+14*, A+15
    FPCE A+3~, A+5*, A+12
    I A+3~, A+7*, US+3~, US+8*, US+18*, FOREIGN+1~, FOREIGN+2*, FOREIGN+7*, INCOME+11~, INCOME+13*
    IDSTAT SSNNM+2~, SSNNM+7*, SSNNM+12*, SSNNM+14, SSNNM+15, SSNNM+17
    IEN A+3~, A+12*, A+14
    IOF H+1, H+2
    IOST W
    J US+3~, US+5*, FOREIGN+1~, FOREIGN+2*, FOREIGN+3, SSNNM+2~, SSNNM+7*, SSNNM+15*
    J(1 US+5*
    J(2 US+5*
    LIST SSNNM+2~, SSNNM+6
    LIST( SSNNM+8, SSNNM+10, SSNNM+12, SSNNM+13
    MT MTCOMP+9~, MTCOMP+10*, MTCOMP+11, MTCOMP+14, MTCOMP+16, MTCOMP+17
    PRVNCE FOREIGN+1~, FOREIGN+3*, FOREIGN+6
    PSTCD FOREIGN+1~, FOREIGN+3*, FOREIGN+6
    PT SSNNM+2~, SSNNM+5*, SSNNM+6
    ROU A+3~, A+15*
    SSN SSNNM+2~, SSNNM+3*, SSNNM+18
    STK SSNNM+2~, SSNNM+8*, SSNNM+9, SSNNM+10, SSNNM+12, SSNNM+13, SSNNM+14*
    TMP A+3~, A+18, US~, FOREIGN~
    TMP( A+7*, A+17*, US+5*, US+17*, US+18*, FOREIGN+6*, FOREIGN+7*
    TMP(1 A+8*
    U A+7, A+12, US+5, US+8, US+10, US+12, US+13, FOREIGN+6, INCOME+14, MTCOMP+11
    , SSNNM+5, SSNNM+10, SSNNM+12, SSNNM+13, SSNNM+18
    X H+1*, H+2*, H+3*, H+4*, H+5*, W, W+1, MTCOMP+9~, MTCOMP+17*, HLPCS+1
    , HLPMLDS+2~, SSNNM+2~, SSNNM+3*, SSNNM+18*, SSNNM+19
    >> X1 H+4*
    Y HLPMLDS+2~, HLPMLDS+16
    YR MTCOMP+9~, MTCOMP+10*, MTCOMP+17
    >> Z H+1*, H+2*, W, W+1

    Marked Items

    Name Field # of Occurrence
    $T(FNPCS+I FOREIGN+2
    $T(H1+DGRPS H+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All