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 |  Entry Points |  External References |  Interaction Calls |  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 - REGISTRATION SCREEN 7/ELIGIBILITY INFORMATION ; 7/25/06 12:06pm

Source Information

Source file <DGRP7.m>

Call Graph

Call Graph Total: 8

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

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All