Routine: DGRP7

Package	Total	Call Graph
Registration	10	($$DATENP,$$DISP,$$POINT,$$YN2)^DG1010P0 $$CVEDT^DGCV $$CAI^DGENELA AAC1^DGLOCK2 $$OTHSOC^DGOTHD1 DISPPEN^DGRP7CP ^DGRPP H^DGRPU (WW,WW1)^DGRPV ^DGYZODS
VA FileMan	2	DD^%DT $$GET1^DIQ

Package	Total	Caller Graph
Registration	1	DGRP7CP

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	DGRP7+11, CONT+15
$$DATENP^DG1010P0	DGRP7+10, DGRP7+13, DGRP7+14, DGRP7+34, DGRP7+35
$$DISP^DG1010P0	DGRP7+37, DGRP7+39
$$POINT^DG1010P0	DGRP7+17
$$YN2^DG1010P0	DGRP7+12, DGRP7+21, DGRP7+25, DGRP7+29, DGRP7+36, DGRP7+38
$$CVEDT^DGCV	CONT+4
$$CAI^DGENELA	CONT+7
AAC1^DGLOCK2	DGRP7+47
$$OTHSOC^DGOTHD1	DGRP7+46
DISPPEN^DGRP7CP	DGRP7+33
^DGRPP	Q+1
H^DGRPU	DGRP7+5
WW^DGRPV	DGRP7+6, DGRP7+18, DGRP7+40, CONT+34
WW1^DGRPV	DGRP7+6, DGRP7+23, DGRP7+27, DGRP7+31, DGRP7+38, YN, YN2
^DGYZODS	DGRP7+54
$$GET1^DIQ	DGRP7+45, DGRP7+46, DGRP7+53

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Patient Type: " Line Location: DGRP7+6
Function Call: WRITE	Prompt: "Veteran: " Line Location: DGRP7+6
Function Call: WRITE	Prompt: $S(X="":"UNANSWERED",1:+X_"%") Line Location: DGRP7+8
Function Call: WRITE	Prompt: ?53,"Unemployable: " Line Location: DGRP7+10
Function Call: WRITE	Prompt: $G(Y) Line Location: DGRP7+11
Function Call: WRITE	Prompt: !?9,"Rated Incomp.: " Line Location: DGRP7+12
Function Call: WRITE	Prompt: X Line Location: DGRP7+12
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+16
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+17
Function Call: WRITE	Prompt: " Aid & Attendance: " Line Location: DGRP7+21
Function Call: WRITE	Prompt: "Housebound: " Line Location: DGRP7+25
Function Call: WRITE	Prompt: !?12,"VA Pension: " Line Location: DGRP7+29
Function Call: WRITE	Prompt: "Pension A/T Date: "_$$DATENP^DG1010P0(DGRP(.385),3) Line Location: DGRP7+34
Function Call: WRITE	Prompt: "Pension A/T Date: "_$$DATENP^DG1010P0(DGRP(.385),1) Line Location: DGRP7+35
Function Call: WRITE	Prompt: !?9,"VA Disability: ",$$YN2^DG1010P0(DGRP(.3),11) Line Location: DGRP7+36
Function Call: WRITE	Prompt: $S(X:"$"_X,1:X) Line Location: DGRP7+37
Function Call: WRITE	Prompt: !?10,"GI Insurance: " Line Location: DGRP7+38
Function Call: WRITE	Prompt: "Amount: " Line Location: DGRP7+39
Function Call: WRITE	Prompt: $S(X:"$"_X,1:X) Line Location: DGRP7+39
Function Call: WRITE	Prompt: " Primary Elig Code: ",Z Line Location: DGRP7+47
Function Call: WRITE	Prompt: !?8,"Agency/Country: ",$S($D(^DIC(35,+$P(DGRP(.3),"^",9),0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+47
Function Call: WRITE	Prompt: !?4,"Other Elig Code(s): " Line Location: DGRP7+48
Function Call: WRITE	Prompt: !?24 Condition for execution: I1>1 Line Location: DGRP7+48
Function Call: WRITE	Prompt: $P(^(0),"^",1) Line Location: DGRP7+48
Function Call: WRITE	Prompt: !?5,"Period of Service: ",$S($D(^DIC(21,+DGRPX,0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+50
Function Call: WRITE	Prompt: !," Presumptive Psychosis: ",DGPP Line Location: DGRP7+52
Function Call: WRITE	Prompt: !," Presumptive Psychosis: ",DGPP Line Location: DGRP7+53
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+54
Function Call: WRITE	Prompt: !?18,"Rank: ",$S($D(^DIC(25002.1,+$P(DGRPX,"^",3),0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP7+55
Function Call: WRITE	Prompt: !,"<3.1> Combat Vet Elig.: " Line Location: CONT+12
Function Call: WRITE	Prompt: $S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)=0:"EXPIRED",1:"") Line Location: CONT+13
Function Call: WRITE	Prompt: " End Date: "_Y Line Location: CONT+16
Function Call: WRITE	Prompt: ?56,"<3.2>Proj 112/SHAD: YES" Line Location: CONT+17
Function Call: WRITE	Prompt: !,"<3.3> COMPACT Act Elig: " Line Location: CONT+20
Function Call: WRITE	Prompt: $S(DGCOMP=1:"ELIGIBLE",1:"") Line Location: CONT+21
Function Call: WRITE	Prompt: ! Line Location: CONT+25
Function Call: WRITE	Prompt: "<3.3> COMPACT Act Elig: " Line Location: CONT+28
Function Call: WRITE	Prompt: $S(DGCOMP=1:"ELIGIBLE",1:"") Line Location: CONT+29
Function Call: WRITE	Prompt: ?56,"<3.2>Proj 112/SHAD: YES" Line Location: CONT+30
Function Call: WRITE	Prompt: ! Line Location: CONT+34
Function Call: WRITE	Prompt: " Service Connected Conditions as stated by applicant" Line Location: CONT+34
Function Call: WRITE	Prompt: " Service Connected Conditions as stated by applicant" Line Location: CONT+34
Function Call: WRITE	Prompt: !?4 Condition for execution: (79-$X)<$L(I1) Line Location: CONT+35
Function Call: WRITE	Prompt: I1 Line Location: CONT+35

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(8 - [#8]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	DGRP7+6
^DIC(21 - [#21]	DGRP7+50
^DIC(25002.1	DGRP7+55
^DIC(35 - [#35]	DGRP7+47
^DIC(8 - [#8]	DGRP7+40, DGRP7+46, DGRP7+48
^DPT - [#2]	DGRP7+5, DGRP7+54, CONT+35
^DPT("AEL"	DGRP7+48

Label References

Name	Line Occurrences
CONT	DGRP7+54
MBCK	DGRP7+23, DGRP7+27, DGRP7+31, DGRP7+36
YN	DGRP7+6
YN2	DGRP7+7, DGRP7+10, DGRP7+11

Naked Globals

Name	Field # of Occurrence
^(	DGRP7+5, CONT+35
^("ODS"	DGRP7+54
^(0	DGRP7+6, DGRP7+40, DGRP7+47, DGRP7+48, DGRP7+50, DGRP7+55, CONT+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DGRP7+5, DGRP7+45, DGRP7+48, DGRP7+53, DGRP7+54, CONT+4, CONT+7, CONT+35
DGAAC	Q!
DGAAC(1	DGRP7+47
DGCASH	DGRP7+3~
DGCOMP	CONT+6~, CONT+7*, CONT+19, CONT+21, CONT+25, CONT+27, CONT+29
DGCV	CONT+2~, CONT+4*, CONT+11, CONT+13, CONT+14, CONT+15, CONT+23
DGEMHCNVT	DGRP7+3~
DGMBCK	DGRP7+3~, DGRP7+37, MBCK+1*
DGNA	DGRP7+7, DGRP7+9, Q!, YN2
DGODS	DGRP7+54, Q!
DGPP	DGRP7+53~*
DGPRVSPE	DGRP7+3~, DGRP7+45*
DGRP	Q!
DGRP(	DGRP7+5*, DGRP7+7, DGRP7+9, DGRP7+11, DGRP7+12, DGRP7+13, DGRP7+14, DGRP7+17, DGRP7+21, DGRP7+25 , DGRP7+29, DGRP7+32, DGRP7+34, DGRP7+35, DGRP7+36, DGRP7+37, DGRP7+38, DGRP7+39, DGRP7+40, DGRP7+46 , DGRP7+47, DGRP7+50, CONT+3
DGRP("TYPE"	DGRP7+6
DGRP("VET"	DGRP7+6, DGRP7+7, DGRP7+22, DGRP7+26, DGRP7+30
DGRPE	DGRP7+40*, DGRP7+46, DGRP7+48, Q!
>> DGRPS	DGRP7+5*
>> DGRPU	DGRP7+6, DGRP7+17, DGRP7+40, DGRP7+47, DGRP7+50, DGRP7+54, DGRP7+55
>> DGRPV	DGRP7+33
>> DGRPW	DGRP7+6*
DGRPX	DGRP7+6, DGRP7+7, DGRP7+8, DGRP7+10, DGRP7+17, DGRP7+50, DGRP7+54*, DGRP7+55, Q!, YN , YN2
I	DGRP7+5, DGRP7+48, CONT+35*, Q!
I1	DGRP7+48, DGRP7+49, CONT+35, Q!
I2	Q!
I3	CONT+35*, CONT+36, Q!
SHAD	CONT+2~, CONT+3*, CONT+17, CONT+25, CONT+30
U	DGRP7+11, DGRP7+22, DGRP7+26, DGRP7+30, DGRP7+46, CONT+13, CONT+14, CONT+15
X	DGRP7+6, DGRP7+7, DGRP7+8, DGRP7+9, DGRP7+10, DGRP7+11, DGRP7+12, DGRP7+37, DGRP7+39, CONT+34 , Q!, YN, YN2, MBCK+1
X1	Q!
>> XQY0	DGRP7+46
>> Y	DGRP7+11, CONT+15, CONT+16
Z	DGRP7+6, DGRP7+7, DGRP7+18, DGRP7+21, DGRP7+22, DGRP7+25, DGRP7+26, DGRP7+29, DGRP7+30, DGRP7+38* , DGRP7+40, DGRP7+46, DGRP7+47, CONT+34, Q!, YN, YN2*
Z1	DGRP7+6, DGRP7+7, DGRP7+10, DGRP7+11, DGRP7+23, DGRP7+27, DGRP7+31, DGRP7+38, Q!

Customize PDF page

Package: Registration

Routine: DGRP7

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: