Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRP7

Package: Registration

Routine: DGRP7


Information

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

Source Information

Source file <DGRP7.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call