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

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,ELIG)^DGRPCE1  KVAR^VADPT  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Integrated Billing 1 (PREG,REG)^IBCNBME  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DGRPC  DGRPCF  DGRPCS  DGRPCU  

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 ;;.36205;S:X'="Y" Y="@29";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim A&A" S Y=.36205;.36295;@29;
30 ;;.36215;S:X'="Y" Y="@30";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim HOUSEBOUND" S Y=.36215;.36295;@30;
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;
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

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+9, NKEY+26
$$NAME^DGMTU1 ASKSSN+4, DEPEDT+6
$$SSN^DGMTU1 NKEY+10, NKEY+11
GETREL^DGMTU11 NKEY+9, NKEY+26
EN^DGRP61 NKEY+18
EN2^DGRP6CL NKEY+14
^DGRPCE1 DGRPCE+8, NKEY
$$MSERR^DGRPCE1 NKEY+18
ELIG^DGRPCE1 ELDR+5
^DIE NKEY+8, 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 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
Routine Call
  • DIE
  • Line Location:
    • NKEY+8
    • 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+8

Label References

Name Line Occurrences
$$ASKDEL CATDIB+17
34 ELDR+4
ASKSSN NKEY+10, NKEY+11
CATDIB NKEY+13
DEPEDT NKEY+27, NKEY+28
ELDR DGRPCE+10
MON DGRPCE+11
NKEY DGRPCE+12
PS PS+4
Q NKEY+5
SASK DGRPCE+10, DGRPCE+11, DGRPCE+12, DGRPCE+13, DGRPCE+14, DGRPCE+15, DGRPCE+16
SAVE SASKELDR+1, ELDR+2, ELDR+4, MONMON+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+8*, 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+21~, NKEY+22*, NKEY+23*, NKEY+24*, NKEY+25*, NKEY+27, NKEY+28
>> DFN DGRPCE+8, NKEY+2, NKEY+3, NKEY+8, NKEY+9, NKEY+18, NKEY+26, CATDIB+6, CATDIB+7, CATDIB+10
CATDIB+18
DGASK DGRPCE+8*, DGRPCE+13, DGRPCE+14, DGRPCE+15, DGRPCE+16, Q!, SASK*, ELDR*, MON+1, MON+2
DGCCF DGRPCE+8*, DGRPCE+11*, 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+8*, Q!, SASK*, SAVE*, SAVE+1*, ELDR+1*, ELDR+2*, ELDR+4*
DGD1 Q!
DGD2 Q!
DGDEP NKEY+11*, NKEY+28*, NKEY+30!
DGDR DGRPCE+8*, Q!, SAVESAVE+1*
DGDRC DGRPCE+8*, Q!, SAVE+1*
DGECODE Q!
DGEDCN KVAR!
DGEDIT Q!
DGEK DGRPCE+9*, DGRPCE+10, Q!
DGER DGRPCE+8*, DGRPCE+9, NKEY+1, NKEY+9, NKEY+13, NKEY+14, NKEY+20, NKEY+23, NKEY+24, NKEY+25
, KVAR!, SASK
DGFRDT Q+1!
DGINC55 KVAR!
DGKEY Q!
DGKEY(1 DGRPCE+10, ELDR+1, ELDR+5
DGKEY(2 ELDR+2
DGKEY(3 DGRPCE+12, ELDR+4
DGP Q!
>> DGPRFLG NKEY+2
DGREL NKEY+30!
DGREL("D" NKEY+11, NKEY+28
DGREL("S" NKEY+10, NKEY+27
DGRPADI KVAR!, Q!
DGRPE Q!
DGRPOUT KVAR!
DGVTYN DGRPCE+8*, NKEY+18, KVAR!
DIC Q!
DIE NKEY+8*, 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+8*, NKEY+7*, NKEY+8, KVAR!, ASKSSN+5*, PS+1*, PS+3*, PS+5!, DEPEDT+7*, DEPEDT+8!
DT NKEY+9, NKEY+26
FLD DEPEDT~, DEPEDT+5, DEPEDT+7
FRDT Q+1!
I DGRPCE+9*, DGRPCE+10*, DGRPCE+11*, DGRPCE+12*, DGRPCE+13*, DGRPCE+14*, DGRPCE+15*, DGRPCE+16*, Q!, SASK
ELDR+2*, MONMON+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+8*, ASKDEL+9

Marked Items

Name Field # of Occurrence
$T(34 ELDR+4
$T(@I SASKELDR+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