Routine: DGRPU

Package	Total	Call Graph
Registration	3	$$LST^DGMTCOU1 $$LYR^DGMTSCU1 ALL^DGMTU21
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	23	DGRP1 DGRP10 DGRP11 DGRP12 DGRP13 DGRP14 DGRP15 DGRP2 DGRP4 DGRP6 DGRP6CL ^DPT DGRP3 DGRP5 DGRP6EF DGRP7 DGRP9 DGRPCADD DGRPD DGRPH DGRPP1 DGRPTL1 DGRPTP1
IHS Changes To ADT	1	ADGRPD
IHS Electronic Health Record	1	BEHOPTC1

Entry Points

Name	Comments	DBIA/ICR reference
A	;Format address(es)
HLP1823	;*This is called by the Executable Help for Patient Relation field #.18
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)
H	;Screen Header
SSNNM(DFN)	; SSN and name on first line of screen
H1	;
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
INCOME(DFN,DGDT)	; compute income for veteran...if not in 408.21, pass back file 2 data ; (called by PTF)
HLPCS	; * This is called by the Executable Help for Income Relation field #.1
W
HLPMLDS	;* This is called by the Executable Help for Patient field #.362 ; (DISABILITY RET. FROM MILITARY?)
AL(DGLEN)	;DGLEN= Available length of line	ICR #5310 Status: Withdrawn Usage: Controlled Subscription ICR #5310 Status: Withdrawn Usage: Controlled Subscription

External References

Name	Field # of Occurrence
$$LST^DGMTCOU1	MTCOMP+10
$$LYR^DGMTSCU1	MTCOMP+10
ALL^DGMTU21	INCOME+12
^DIR	HLPMLDS+16

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	Timeout: DTIME Variable: DGRDVAR 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	Timeout: DTIME Variable: DGRDVAR 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

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

Name	Line Occurrences
$$SSNNM	H+3
W	H+1, H+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COMP	MTCOMP+9~, MTCOMP+12, MTCOMP+14, MTCOMP+16, MTCOMP+17, MTCOMP+18
>> DA	HLP1823+6
DFN	H+3, A+7, INCOME~, INCOME+12, INCOME+14, MTCOMP~, MTCOMP+10, SSNNM~, SSNNM+2
>> DGA(	A+3, A+5, A+12, A+13
>> DGA(1	A+4*
DGA1	A+3, A+5, A+10, A+14!
>> DGA2	A+3, A+4, A+5, A+12
>> DGAD	A+3, A+5, A+6, A+7, A+9, A+10
DGDEP	INCOME+11~
DGDT	INCOME~, INCOME+12, MTCOMP~, MTCOMP+10
DGINC	INCOME+11~
DGINC("V"	INCOME+13
DGLEN	AL~, A+1~*, A+12, A+13
>> DGMTYPT	MTCOMP+11*, MTCOMP+13, MTCOMP+15
DGRDVAR	HLPCS+2~, HLPCS+8, HLP1823+1~, HLP1823+6
DGREL	INCOME+11~
>> DGRP(	A+3, A+5, A+9, A+10
>> 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+2~, A+7, A+9, A+10, A+11, A+12, INCOME+11~, INCOME+13*, INCOME+14
DIR	HLPCS+2~, HLP1823+1~, HLPMLDS+2~
DIR(0	HLPMLDS+16*
DTIME	HLPCS+8, HLP1823+6
I	A+3, A+7, A+13, A+14!, INCOME+11~, INCOME+13
IOF	H+1, H+2
IOST	W
J	A+5*, A+14!
J(1	A+5*
J(2	A+5*
MT	MTCOMP+9~, MTCOMP+10*, MTCOMP+11, MTCOMP+14, MTCOMP+16, MTCOMP+17
SSN	SSNNM+1~, SSNNM+2*, SSNNM+3
U	A+3, A+5, A+7, A+9, A+10, INCOME+14, MTCOMP+11, SSNNM+3
X	H+1, H+2, H+3, H+4, H+5, W, W+1, MTCOMP+9~, MTCOMP+17, HLPCS+1 , HLPMLDS+2~, SSNNM+1~, SSNNM+2, SSNNM+3, SSNNM+4
>> X1	H+4*
Y	HLPMLDS+2~, HLPMLDS+16
YR	MTCOMP+9~, MTCOMP+10*, MTCOMP+17
>> Z	H+1, H+2, W, W+1

Customize PDF page

Package: Registration

Routine: DGRPU

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items