Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRPU

Package: Registration

Routine: DGRPU


Information

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

Source Information

Source file <DGRPU.m>

Entry Points

Name Comments DBIA/ICR reference
H ;Screen Header
LISTHDR(DGFIRST) ;sets patient data for banners of list manager screens - DG*5.3*1014
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

    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: ;
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: H+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: H+5
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: H+8
    Function Call: WRITE
    • Prompt: ?X1,X
    • Line Location: H+8
    Function Call: WRITE
    • Prompt: " "_DGDOB
    • Line Location: H+20
    Function Call: WRITE
    • Prompt: DGSSN_" "_DGPTYPE
    • Line Location: H+21
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: H+22
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^DG(391 - [#391] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call