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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRP7

Package: Registration

Routine: DGRP7


Information

DGRP7 ;ALB/MRL,CKN,ERC,RN,JAM - REGISTRATION SCREEN 7/ELIGIBILITY INFORMATION ; 7/25/06 12:06pm

Source Information

Source file <DGRP7.m>

Call Graph

Call Graph

Call Graph Total: 12

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  

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

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+32, DGRP7+33
$$DISP^DG1010P0 DGRP7+35, DGRP7+37
$$POINT^DG1010P0 DGRP7+15
$$YN2^DG1010P0 DGRP7+12, DGRP7+19, DGRP7+23, DGRP7+27, DGRP7+34, DGRP7+36
$$CVEDT^DGCV CONT+4
$$CAI^DGENELA CONT+7
AAC1^DGLOCK2 DGRP7+45
$$OTHSOC^DGOTHD1 DGRP7+44
DISPPEN^DGRP7CP DGRP7+31
^DGRPP Q+1
H^DGRPU DGRP7+5
WW^DGRPV DGRP7+6, DGRP7+16, DGRP7+38, CONT+34
WW1^DGRPV DGRP7+6, DGRP7+21, DGRP7+25, DGRP7+29, DGRP7+36, YN, YN2
^DGYZODS DGRP7+52
$$GET1^DIQ DGRP7+43, DGRP7+44, DGRP7+51

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+15
Function Call: WRITE
  • Prompt: " Aid & Attendance: "
  • Line Location: DGRP7+19
Function Call: WRITE
  • Prompt: "Housebound: "
  • Line Location: DGRP7+23
Function Call: WRITE
  • Prompt: !?12,"VA Pension: "
  • Line Location: DGRP7+27
Function Call: WRITE
  • Prompt: "Pension A/T Date: "_$$DATENP^DG1010P0(DGRP(.385),3)
  • Line Location: DGRP7+32
Function Call: WRITE
  • Prompt: "Pension A/T Date: "_$$DATENP^DG1010P0(DGRP(.385),1)
  • Line Location: DGRP7+33
Function Call: WRITE
  • Prompt: !?9,"VA Disability: ",$$YN2^DG1010P0(DGRP(.3),11)
  • Line Location: DGRP7+34
Function Call: WRITE
  • Prompt: $S(X:"$"_X,1:X)
  • Line Location: DGRP7+35
Function Call: WRITE
  • Prompt: !?10,"GI Insurance: "
  • Line Location: DGRP7+36
Function Call: WRITE
  • Prompt: "Amount: "
  • Line Location: DGRP7+37
Function Call: WRITE
  • Prompt: $S(X:"$"_X,1:X)
  • Line Location: DGRP7+37
Function Call: WRITE
  • Prompt: " Primary Elig Code: ",Z
  • Line Location: DGRP7+45
Function Call: WRITE
  • Prompt: !?8,"Agency/Country: ",$S($D(^DIC(35,+$P(DGRP(.3),"^",9),0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP7+45
Function Call: WRITE
  • Prompt: !?4,"Other Elig Code(s): "
  • Line Location: DGRP7+46
Function Call: WRITE
  • Prompt: !?24
  • Condition for execution: I1>1
  • Line Location: DGRP7+46
Function Call: WRITE
  • Prompt: $P(^(0),"^",1)
  • Line Location: DGRP7+46
Function Call: WRITE
  • Prompt: !?5,"Period of Service: ",$S($D(^DIC(21,+DGRPX,0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP7+48
Function Call: WRITE
  • Prompt: !," Presumptive Psychosis: ",DGPP
  • Line Location: DGRP7+50
Function Call: WRITE
  • Prompt: !," Presumptive Psychosis: ",DGPP
  • Line Location: DGRP7+51
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+52
Function Call: WRITE
  • Prompt: !?18,"Rank: ",$S($D(^DIC(25002.1,+$P(DGRPX,"^",3),0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP7+53
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+48
^DIC(25002.1 DGRP7+53
^DIC(35 - [#35] DGRP7+45
^DIC(8 - [#8] DGRP7+38, DGRP7+44, DGRP7+46
^DPT - [#2] DGRP7+5, DGRP7+52, CONT+35
^DPT("AEL" DGRP7+46

Label References

Name Line Occurrences
CONT DGRP7+52
MBCK DGRP7+21, DGRP7+25, DGRP7+29, DGRP7+34
YN DGRP7+6
YN2 DGRP7+7, DGRP7+10, DGRP7+11

Naked Globals

Name Field # of Occurrence
^( DGRP7+5, CONT+35
^("ODS" DGRP7+52
^(0 DGRP7+6, DGRP7+38, DGRP7+45, DGRP7+46, DGRP7+48, DGRP7+53, CONT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP7+5, DGRP7+43, DGRP7+46, DGRP7+51, DGRP7+52, CONT+4, CONT+7, CONT+35
DGAAC Q!
DGAAC(1 DGRP7+45
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+35, MBCK+1*
DGNA DGRP7+7*, DGRP7+9*, Q!, YN2
DGODS DGRP7+52, Q!
DGPP DGRP7+51~*
DGPRVSPE DGRP7+3~, DGRP7+43*
DGRP Q!
DGRP( DGRP7+5*, DGRP7+7, DGRP7+9, DGRP7+11, DGRP7+12, DGRP7+13, DGRP7+14, DGRP7+15, DGRP7+19, DGRP7+23
, DGRP7+27, DGRP7+30, DGRP7+32, DGRP7+33, DGRP7+34, DGRP7+35, DGRP7+36, DGRP7+37, DGRP7+38, DGRP7+44
, DGRP7+45, DGRP7+48, CONT+3
DGRP("TYPE" DGRP7+6
DGRP("VET" DGRP7+6, DGRP7+7, DGRP7+20, DGRP7+24, DGRP7+28
DGRPE DGRP7+38*, DGRP7+44, DGRP7+46, Q!
>> DGRPS DGRP7+5*
>> DGRPU DGRP7+6, DGRP7+15, DGRP7+38, DGRP7+45, DGRP7+48, DGRP7+52, DGRP7+53
>> DGRPV DGRP7+31
>> DGRPW DGRP7+6*
DGRPX DGRP7+6*, DGRP7+7*, DGRP7+8, DGRP7+10, DGRP7+15*, DGRP7+48*, DGRP7+52*, DGRP7+53, Q!, YN
, YN2
I DGRP7+5*, DGRP7+46*, CONT+35*, Q!
I1 DGRP7+46*, DGRP7+47, 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+20, DGRP7+24, DGRP7+28, DGRP7+44, CONT+13, CONT+14, CONT+15
X DGRP7+6*, DGRP7+7*, DGRP7+8*, DGRP7+9*, DGRP7+10*, DGRP7+11*, DGRP7+12*, DGRP7+35*, DGRP7+37*, CONT+34*
, Q!, YN, YN2, MBCK+1
X1 Q!
>> XQY0 DGRP7+44
>> Y DGRP7+11*, CONT+15*, CONT+16
Z DGRP7+6*, DGRP7+7, DGRP7+16*, DGRP7+19*, DGRP7+20*, DGRP7+23*, DGRP7+24*, DGRP7+27*, DGRP7+28*, DGRP7+36*
, DGRP7+38*, DGRP7+44*, DGRP7+45, CONT+34*, Q!, YN*, YN2*
Z1 DGRP7+6*, DGRP7+7*, DGRP7+10*, DGRP7+11*, DGRP7+21*, DGRP7+25*, DGRP7+29*, DGRP7+36*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All