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

Package: Registration

Routine: DGRPCE


Information

DGRPCE ;ALB/MRL,KV,PJR,BRM,ERC,TDM,LBD,ARF - CONSISTENCY CHECKER, EDIT INCONSISTENCIES ;10/20/10 3:52pm

Source Information

Source file <DGRPCE.m>

Entry Points

Name Comments DBIA/ICR reference
NKEY
KVAR
Q
SASK
SAVE
ELDR
MON
15 ;;.152;S:X']"" Y="@15";S DIE("NO^")="";.307;I X']"" W !!,*7,"But I need a reason why this applicant is ineligible!" S Y=.152;@15;K DIE("NO^");
23 ;;.3611;S:X'="V" Y="@23";.3612;S DIE("NO^")="";I X']"" W !!,*7,"But I need to know the date eligibility was verified!";@23;K DIE("NO^");
25 ;;.323;.32102;S:X'="Y" Y="@25";.32107;.3211;.32109;.3213;@25;
26 ;;
27 ;;
28 ;;
29 ;;I DGVTYN'="Y" S Y="@291";.36205;S Y="@292";@291;.36205//NO;@292;S:X'="Y" Y="@29";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim A&A" S Y=.36205;.36295;@29;
30 ;;I DGVTYN'="Y" S Y="@301";.36215;S Y="@302";@301;.36215//NO;@302;S:X'="Y" Y="@30";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim HOUSEBOUND" S Y=.36215;.36295;@30;
31 ;;I DGVTYN'="Y" S Y="@311";.36235;S Y="@312";@311;.36235//NO;@312;S:X'="Y" Y="@31";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim VA PENSION" S Y=.36235;.36295;@31;
32 ;;.36255;S:X'="Y" Y="@32";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim MIL. RET." S Y=.36255;.3625;@32;
33 ;;
34 ;;.525;S:X'="Y" Y="@34";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim POW STATUS" S Y=.525;.526:.528;@34;
35 ;;
37 ;;.525;S:X'="Y" Y="@37";.526:.528;@37;
38 ;;.525;S:X'="Y" Y="@38";.526:.528;@38;
39 ;;.5291;S:X'="Y" Y="@39";.5292:.5294;@39;
40 ;;.5291;S:X'="Y" Y="@40";.5292:.5294;@40;
41 ;;.32101;S:X'="Y" Y="@41";.32104;.32105;@41;
42 ;;.32101;S:X'="Y" Y="@42";.32104;.32105;@42;
43 ;;
44 ;;
45 ;;
46 ;;
47 ;;
48 ;;.36265;S:X'="Y" Y="@48";.3626;@48;
51 ;;S Y="@51";I DGVTYN'="Y" S Y="@51";.324:.328;@51;
56 ;;.3025;S:X'="Y" Y="@56";.36295;@56;
60 ;;.32102;S:X'="Y" Y="@60";.32107;.3211;.32109;.3213;@60;
ASKSSN(DEP) ;edit ssns if missing
PS ;
CATDIB ;
ASKDEL() ;
DEPEDT(DEP,FLD) ;edit dependent fields if missing or invalid

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"But I need a reason why this applicant is ineligible!"
  • Line Location: 15+0
Function Call: WRITE
  • Prompt: !!,*7,"But I need to know the date eligibility was verified!";@23;K
  • Line Location: 23+0
Function Call: WRITE
  • Prompt: !,"Patient not a veteran-can't claim A&A"
  • Line Location: 29+0
Function Call: WRITE
  • Prompt: !,"Patient not a veteran-can't claim HOUSEBOUND"
  • Line Location: 30+0
Function Call: WRITE
  • Prompt: !,"Patient not a veteran-can't claim VA PENSION"
  • Line Location: 31+0
Function Call: WRITE
  • Prompt: !,"Patient not a veteran-can't claim MIL. RET."
  • Line Location: 32+0
Function Call: WRITE
  • Prompt: !,"Patient not a veteran-can't claim POW STATUS"
  • Line Location: 34+0
Function Call: WRITE
  • Prompt: !,$$NAME^DGMTU1(+DEP)
  • Line Location: ASKSSN+4
Function Call: WRITE
  • Prompt: !,"If SSN is a Pseudo SSN, the Pseudo SSN Reason field is required."
  • Line Location: PS+4
Function Call: WRITE
  • Prompt: !!,"The patient record indicates that a determination was made "
  • Line Location: CATDIB+13
Function Call: WRITE
  • Prompt: "that the patient",!,"is catastrophically disabled."
  • Line Location: CATDIB+14
Function Call: WRITE
  • Prompt: !!,"To add Catastrophic Disability Eligibility Code(s), please use "
  • Line Location: CATDIB+15
Function Call: WRITE
  • Prompt: "the menu option",!,"DGEN PATIENT ENROLLMENT.",!!
  • Line Location: CATDIB+16
Function Call: WRITE
  • Prompt: !,"Catastrophic disability determination can not be deleted at this time.",!,"Please try again later."
  • Line Location: CATDIB+22
Function Call: WRITE
  • Prompt: !!,$$NAME^DGMTU1(+DEP)
  • Line Location: DEPEDT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGPR(408.13 - [#408.13] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call