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
Print Page as PDF
Routine: DGRP11

Package: Registration

Routine: DGRP11


Information

DGRP11 ;ALB/MRL,RTK,PHH,PWC,HM,BDB - REGISTRATION SCREEN 11/VERIFICATION INFORMATION ;3/23/06 8:10am

Source Information

Source file <DGRP11.m>

Entry Points

Name Comments DBIA/ICR reference
HBP ; LINE FOR HEALTH BENEFIT PLAN (DG*53*871)
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Status Date: "
  • Line Location: DGRP11+5
Function Call: WRITE
  • Prompt: $S(Y]"":Y,DGRPVR:DGRPU,1:DGRPNA),!?5,"Status Entered By: ",$S($D(^VA(200,+$P(DGRPX,"^",6),0)):$P(^(0),"^",1)_" (#"_+$P(DGRPX,"^",6)_")",DGRPVR:DGRPU,1:DGRPNA)
  • Line Location: DGRP11+5
Function Call: WRITE
  • Prompt: !?6,"Interim Response: "
  • Line Location: DGRP11+6
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:DGRPU_" (NOT REQUIRED)"),!?9,"Verif. Method: ",$S($P(DGRPX,"^",5)]"":$P(DGRPX,"^",5),DGRPVR:DGRPU,1:DGRPNA)
  • Line Location: DGRP11+6
Function Call: WRITE
  • Prompt: !?9,"Verif. Source: ",$S($P(DGRPX,"^",3)="H":"HEC",$P(DGRPX,"^",3)="V":"VISTA",1:"NOT AVAILABLE")
  • Line Location: DGRP11+8
Function Call: WRITE
  • Prompt: " Money Verified: "
  • Line Location: DGRP11+9
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT VERIFIED")
  • Line Location: DGRP11+9
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT VERIFIED")
  • Line Location: DGRP11+9
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT VERIFIED")
  • Line Location: DGRP11+9
Function Call: WRITE
  • Prompt: " Rated Disabilities: "
  • Line Location: DGRP11+10
Function Call: WRITE
  • Prompt: DGRPNA," - NOT A VETERAN"
  • Line Location: DGRP11+10
Function Call: WRITE
  • Prompt: " SC%: ",$S($G(DGEC)="NSC":"",$P($G(DGRP(.3)),U,2)="":"",1:$P($G(DGRP(.3)),U,2))
  • Line Location: DGRP11+14
Function Call: WRITE
  • Prompt: " EFF. DATE OF COMBINED SC%: "_$G(DGEFF),!
  • Line Location: DGRP11+17
Function Call: WRITE
  • Prompt: ?55,"Orig",?70,"Curr"
  • Line Location: DGRP11+19
Function Call: WRITE
  • Prompt: !?3,"Rated Disability",?46,"Extr",?55,"Eff Dt",?70,"Eff Dt"
  • Line Location: DGRP11+20
Function Call: WRITE
  • Prompt: !,"NONE STATED"
  • Line Location: DGRP11+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DGRP11+35
Function Call: WRITE
  • Prompt: !,$G(DG0)_"-",DG1,DG2,?47,$G(DG4),?50," - ",?53,$G(DGORIG),?64," - ",?68,$G(DGCURR)
  • Line Location: DGRP11+37
Function Call: WRITE
  • Prompt: !
  • Line Location: HBP+1
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: HBP+3
Function Call: WRITE
  • Prompt: Z
  • Line Location: HBP+4
Function Call: WRITE
  • Prompt: " VHA Profiles (VHAP): "
  • Line Location: HBP+7
Function Call: WRITE
  • Prompt: $S(CNT>0:" ("_CNT_" Profile"_$S(CNT=1:"",1:"s")_" on file)",1:" (None Specified)")
  • Line Location: HBP+9
Info |  Source |  Entry Points |  Interaction Calls