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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGRPCE

Package: Registration

Routine: DGRPCE


Information

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

Source Information

Source file <DGRPCE.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 10 EDITCD^DGENCD  ($$GET,$$HASCAT)^DGENCDA  $$DELETE^DGENCDA1  $$LYR^DGMTSCU1  ($$NAME,$$SSN)^DGMTU1  GETREL^DGMTU11  EN^DGRP61  EN2^DGRP6CL  
(,$$MSERR,$$NEWMSE,ELIG)^DGRPCE1  KVAR^VADPT  
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  
Integrated Billing 1 (PREG,REG)^IBCNBME  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DGRPC  DGRPCF  DGRPCS  DGRPCU  

Entry Points

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

External References

Name Field # of Occurrence
EDITCD^DGENCD CATDIB+10
$$GET^DGENCDA CATDIB+6
$$HASCAT^DGENCDA CATDIB+7
$$DELETE^DGENCDA1 CATDIB+18
$$LYR^DGMTSCU1 NKEY+6, NKEY+22
$$NAME^DGMTU1 ASKSSN+4, DEPEDT+6
$$SSN^DGMTU1 NKEY+7, NKEY+8
GETREL^DGMTU11 NKEY+6, NKEY+22
EN^DGRP61 NKEY+14
EN2^DGRP6CL NKEY+11
^DGRPCE1 DGRPCE+7, NKEY
$$MSERR^DGRPCE1 NKEY+14
$$NEWMSE^DGRPCE1 NKEY+14
ELIG^DGRPCE1 ELDR+4
^DIE NKEY+5, ASKSSN+5, PS+1, PS+3, DEPEDT+7
$$GET1^DIQ PS+2
^DIR ASKDEL+7
PREG^IBCNBME NKEY+2
REG^IBCNBME NKEY+3
KVAR^VADPT Q+2

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 verifed!";@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
Routine Call
  • DIE
  • Line Location:
    • NKEY+5
    • ASKSSN+5
    • PS+1
    • PS+3
    • DEPEDT+7
Routine Call
  • DIR
  • Line Location:
    • ASKDEL+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DGRPCE+7

Label References

Name Line Occurrences
$$ASKDEL CATDIB+17
34 ELDR+3
51 ELDR+3
ASKSSN NKEY+7, NKEY+8
CATDIB NKEY+10
DEPEDT NKEY+23, NKEY+24
ELDR DGRPCE+9
MON DGRPCE+10
NKEY DGRPCE+11
PS PS+4
Q NKEY+5
SASK DGRPCE+9, DGRPCE+10, DGRPCE+11, DGRPCE+12, DGRPCE+13, DGRPCE+14, DGRPCE+15
SAVE SASK, ELDR+1, ELDR+2, ELDR+3, MON, MON+1, MON+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
C Q!
CODE CATDIB+4~, CATDIB+5*, CATDIB+7*, CATDIB+8
DA NKEY+5*, Q!, ASKSSN+5*, PS+1*, PS+2, PS+3*, PS+5!, DEPEDT+7*, DEPEDT+8!
DEP ASKSSN~, ASKSSN+4, ASKSSN+5, PS+1, DEPEDT~, DEPEDT+6, DEPEDT+7
DEPFLD NKEY+17~, NKEY+18*, NKEY+19*, NKEY+20*, NKEY+21*, NKEY+23, NKEY+24
>> DFN DGRPCE+7, NKEY+2, NKEY+3, NKEY+5, NKEY+6, NKEY+14, NKEY+22, CATDIB+6, CATDIB+7, CATDIB+10
, CATDIB+18
DGASK DGRPCE+7*, DGRPCE+12, DGRPCE+13, DGRPCE+14, DGRPCE+15, Q!, SASK*, ELDR*, MON+1, MON+2
DGCCF DGRPCE+7*, DGRPCE+10*, Q!, SASK*
DGCDIS CATDIB+4~, CATDIB+6
DGCDIS("DATE" CATDIB+6
DGCOMBR Q+1!
DGCOMLOC Q+1!
DGCT KVAR!
DGCT1 Q!
DGCT2 Q!
DGCT3 Q!
DGCTZ7 Q+1!
DGD DGRPCE+7*, Q!, SASK*, SAVE*, SAVE+1*, ELDR+1*, ELDR+2*, ELDR+3*
DGD1 Q!
DGD2 Q!
DGDEP NKEY+8*, NKEY+24*, NKEY+26!
DGDR DGRPCE+7*, Q!, SAVE, SAVE+1*
DGDRC DGRPCE+7*, Q!, SAVE+1*
DGECODE Q!
DGEDCN KVAR!
DGEDIT Q!
DGEK DGRPCE+8*, DGRPCE+9, Q!
DGER DGRPCE+7*, DGRPCE+8, NKEY+1, NKEY+6, NKEY+10, NKEY+11, NKEY+16, NKEY+19, NKEY+20, NKEY+21
, KVAR!, SASK
DGFRDT Q+1!
DGINC55 KVAR!
DGKEY Q!
DGKEY(1 DGRPCE+9, ELDR+1, ELDR+4
DGKEY(2 ELDR+2
DGKEY(3 DGRPCE+11, ELDR+3
DGP Q!
>> DGPRFLG NKEY+2
DGREL NKEY+26!
DGREL("D" NKEY+8, NKEY+24
DGREL("S" NKEY+7, NKEY+23
DGRPADI KVAR!, Q!
DGRPE Q!
DGRPOUT KVAR!
DGVTYN DGRPCE+7*, KVAR!
DIC Q!
DIE NKEY+5*, Q!, ASKSSN+5*, PS+1*, PS+5!, DEPEDT+7*, DEPEDT+8!
DIK Q!
DIR ASKDEL+2~
DIR("A" ASKDEL+5*
DIR("B" ASKDEL+6*
DIR(0 ASKDEL+3*
>> DIRUT ASKDEL+8
DR DGRPCE+7*, NKEY+5, KVAR!, ASKSSN+5*, PS+1*, PS+3*, PS+5!, DEPEDT+7*, DEPEDT+8!
DT NKEY+6, NKEY+22
FLD DEPEDT~, DEPEDT+5, DEPEDT+7
FRDT Q+1!
I DGRPCE+8*, DGRPCE+9*, DGRPCE+10*, DGRPCE+11*, DGRPCE+12*, DGRPCE+13*, DGRPCE+14*, DGRPCE+15*, Q!, SASK
, ELDR+2*, MON, MON+1, MON+2
I1 Q!
INFO CATDIB+4~, CATDIB+5*, CATDIB+6*, CATDIB+11
J Q!
X Q!, PS+4
X1 Q!
X2 Q!
>> Y NKEY+5*, ASKDEL+9

Marked Items

Name Field # of Occurrence
$T(34 ELDR+3
$T(51 ELDR+3
$T(@I SASK, ELDR+2
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 |  Local Variables |  Marked Items |  All