Routine: DGRP7

Package	Total	Call Graph
Registration	7	($$DATENP,$$DISP,$$POINT,$$YN2)^DG1010P0 $$CVEDT^DGCV AAC1^DGLOCK2 ^DGRPP H^DGRPU (WW,WW1)^DGRPV ^DGYZODS
VA Fileman	1	DD^%DT

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	DGRP7+9, CONT+8
$$DATENP^DG1010P0	DGRP7+8, DGRP7+11, DGRP7+12
$$DISP^DG1010P0	DGRP7+19, DGRP7+21
$$POINT^DG1010P0	DGRP7+13
$$YN2^DG1010P0	DGRP7+10, DGRP7+15, DGRP7+16, DGRP7+17, DGRP7+18, DGRP7+20
$$CVEDT^DGCV	CONT+4
AAC1^DGLOCK2	DGRP7+23
^DGRPP	Q+1
H^DGRPU	DGRP7+3
WW^DGRPV	DGRP7+4, DGRP7+14, DGRP7+22, CONT+15
WW1^DGRPV	DGRP7+4, DGRP7+15, DGRP7+17, DGRP7+20, YN, YN2
^DGYZODS	DGRP7+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Patient Type: " Line Location: DGRP7+4
Function Call: WRITE	Prompt: "Veteran: " Line Location: DGRP7+4
Function Call: WRITE	Prompt: $S(X="":"UNANSWERED",1:+X_"%") Line Location: DGRP7+6
Function Call: WRITE	Prompt: ?53,"Unemployable: " Line Location: DGRP7+8
Function Call: WRITE	Prompt: $G(Y) Line Location: DGRP7+9
Function Call: WRITE	Prompt: !?9,"Rated Incomp.: " Line Location: DGRP7+10
Function Call: WRITE	Prompt: X Line Location: DGRP7+10
Function Call: WRITE	Prompt: !?10,"Claim Number: ",$S($P(DGRPX,"^",3)]"":$P(DGRPX,"^",3),1:DGRPU),!?11,"Folder Loc.: ",$$POINT^DG1010P0(DGRP(.31),4,4) Line Location: DGRP7+13
Function Call: WRITE	Prompt: " Aid & Attendance: " Line Location: DGRP7+15
Function Call: WRITE	Prompt: "Housebound: ",$$YN2^DG1010P0(DGRP(.362),13) Line Location: DGRP7+16
Function Call: WRITE	Prompt: !?12,"VA Pension: " Line Location: DGRP7+17
Function Call: WRITE	Prompt: "VA Disability: ",$$YN2^DG1010P0(DGRP(.3),11) Line Location: DGRP7+18
Function Call: WRITE	Prompt: $S(X:"$"_X,1:X) Line Location: DGRP7+19
Function Call: WRITE	Prompt: !?10,"GI Insurance: " Line Location: DGRP7+20
Function Call: WRITE	Prompt: "Amount: " Line Location: DGRP7+21
Function Call: WRITE	Prompt: $S(X:"$"_X,1:X) Line Location: DGRP7+21
Function Call: WRITE	Prompt: " Primary Elig Code: ",Z Line Location: DGRP7+23
Function Call: WRITE	Prompt: !?8,"Agency/Country: ",$S($D(^DIC(35,+$P(DGRP(.3),"^",9),0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+23
Function Call: WRITE	Prompt: !?4,"Other Elig Code(s): " Line Location: DGRP7+24
Function Call: WRITE	Prompt: !?24 Condition for execution: I1>1 Line Location: DGRP7+24
Function Call: WRITE	Prompt: $P(^(0),"^",1) Line Location: DGRP7+24
Function Call: WRITE	Prompt: !?5,"Period of Service: ",$S($D(^DIC(21,+DGRPX,0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+26
Function Call: WRITE	Prompt: !?6,"Recalled to Duty: ",$S($P(DGRPX,"^",2)=1:"FROM NATIONAL GUARDS",$P(DGRPX,"^",2)=2:"FROM RESERVES",$P(DGRPX,"^",2)=0:"NO",1:DGRPU) Line Location: DGRP7+27
Function Call: WRITE	Prompt: !?18,"Rank: ",$S($D(^DIC(25002.1,+$P(DGRPX,"^",3),0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+28
Function Call: WRITE	Prompt: !,"<3.1> Combat Vet Elig.: " Line Location: CONT+5
Function Call: WRITE	Prompt: $S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)=0:"EXPIRED",1:"") Line Location: CONT+6
Function Call: WRITE	Prompt: " End Date: "_Y Line Location: CONT+9
Function Call: WRITE	Prompt: ?56,"<3.2>Proj 112/SHAD: YES" Line Location: CONT+10
Function Call: WRITE	Prompt: !,?56,"<3.2>Proj 112/SHAD: YES" Line Location: CONT+12
Function Call: WRITE	Prompt: ! Line Location: CONT+15
Function Call: WRITE	Prompt: " Service Connected Conditions as stated by applicant" Line Location: CONT+15
Function Call: WRITE	Prompt: " Service Connected Conditions as stated by applicant" Line Location: CONT+15
Function Call: WRITE	Prompt: !?4 Condition for execution: (79-$X)<$L(I1) Line Location: CONT+16
Function Call: WRITE	Prompt: I1 Line Location: CONT+16

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	DGRP7+4
^DIC(21 - [#21]	DGRP7+26
^DIC(25002.1	DGRP7+28
^DIC(35 - [#35]	DGRP7+23
^DIC(8 - [#8]	DGRP7+22, DGRP7+24
^DPT - [#2]	DGRP7+3, DGRP7+27, CONT+16
^DPT("AEL"	DGRP7+24

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DGRP7+3, DGRP7+24, DGRP7+27, CONT+4, CONT+16
DGAAC	Q!
DGAAC(1	DGRP7+23
DGCASH	DGRP7+2~
DGCV	CONT+2~, CONT+4*, CONT+6, CONT+7, CONT+8, CONT+12
DGMBCK	DGRP7+2~, DGRP7+19, MBCK+1*
DGNA	DGRP7+5, DGRP7+7, Q!, YN2
DGODS	DGRP7+27, Q!
DGRP	Q!
DGRP(	DGRP7+3*, DGRP7+5, DGRP7+7, DGRP7+9, DGRP7+10, DGRP7+11, DGRP7+12, DGRP7+13, DGRP7+15, DGRP7+16 , DGRP7+17, DGRP7+18, DGRP7+19, DGRP7+20, DGRP7+21, DGRP7+22, DGRP7+23, DGRP7+26, CONT+3
DGRP("TYPE"	DGRP7+4
DGRP("VET"	DGRP7+4, DGRP7+5
DGRPE	DGRP7+22*, DGRP7+24, Q!
>> DGRPS	DGRP7+3*
>> DGRPU	DGRP7+4, DGRP7+13, DGRP7+22, DGRP7+23, DGRP7+26, DGRP7+27, DGRP7+28
>> DGRPW	DGRP7+4*
DGRPX	DGRP7+4, DGRP7+5, DGRP7+6, DGRP7+8, DGRP7+13, DGRP7+26, DGRP7+27*, DGRP7+28, Q!, YN , YN2
I	DGRP7+3, DGRP7+24, CONT+16*, Q!
I1	DGRP7+24, DGRP7+25, CONT+16, Q!
I2	Q!
I3	CONT+16*, CONT+17, Q!
SHAD	CONT+2~, CONT+3*, CONT+10, CONT+12
U	DGRP7+9, CONT+6, CONT+7, CONT+8
X	DGRP7+4, DGRP7+5, DGRP7+6, DGRP7+7, DGRP7+8, DGRP7+9, DGRP7+10, DGRP7+19, DGRP7+21, CONT+15 , Q!, YN, YN2, MBCK+1
X1	Q!
>> Y	DGRP7+9, CONT+8, CONT+9
Z	DGRP7+4, DGRP7+5, DGRP7+14, DGRP7+15, DGRP7+17, DGRP7+20, DGRP7+22, DGRP7+23, CONT+15, Q! , YN, YN2*
Z1	DGRP7+4, DGRP7+5, DGRP7+8, DGRP7+9, DGRP7+15, DGRP7+17, DGRP7+20*, Q!

Customize PDF page

Package: Registration

Routine: DGRP7

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
CONT	DGRP7+27
MBCK	DGRP7+15, DGRP7+16, DGRP7+17, DGRP7+18
YN	DGRP7+4
YN2	DGRP7+5, DGRP7+8, DGRP7+9

Name	Field # of Occurrence
^(	DGRP7+3, CONT+16
^("ODS"	DGRP7+27
^(0	DGRP7+4, DGRP7+22, DGRP7+23, DGRP7+24, DGRP7+26, DGRP7+28, CONT+16

Name	Comments	DBIA/ICR reference
Q
MBCK	;flag for any MB Y/N fields = yes
CONT	;
YN2
YN