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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRPC

Package: Registration

Routine: DGRPC


Information

DGRPC ;ALB/MRL,PJR,PHH,EG,BAJ,TDM,LBD,RN,ARF,JDB,JDB - CHECK CONSISTENCY OF PATIENT DATA ;6/29/11 3:50pm

Source Information

Source file <DGRPC.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 10 $$FORIEN^DGADDUTL  REGONLY^DGEN  $$FINDCUR^DGENA  ($$GET,$$VET)^DGENPTA  (GETMSE,MOVMSE)^DGMSEUTL  $$EN^DGREGEEWS  FIND^DGRPC2  KVAR^DGRPCE  
H^DGUTL  PRI^VADPT60  
VA FileMan 3 ^DIC  FILE^DIE  ^DIR  
Kernel 1 $$NOW^XLFDT  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Scheduling 1 $$SDAPI^SDAMA301  

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

Package Total Caller Graph
Registration 15 DG CONSISTENCY PATIENT  DG10  DG53205P  DG53218P  DGENUPL2  DGPZ07C  DGREG  DGRPC3  
DGRPCF  DGRPCF1  DGRPCP  DGRPCR  DGRPCS  DGRPCU  DGRPP  
HINQ 1 DVBHQUP  

Entry Points

Name Comments DBIA/ICR reference
EN ; DG*5.3*1027 Screen 7 changes - call new consistency check
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
END
COMB
NEXT
PAT
START
TIME
TIMEQ
ON
VETINDCHG ; DG*5.3*1027 Vet indicator change
; If DO YOU WISH TO ENROLL field in PATIENT (#2) file is YES AND
; A record for the patient does not exist in the Patient Enrollment file AND
; The patient is unknown to ES Then Incomplete Enrollment.
; Supported DBIA #2701: The supported DBIA is used to access MPI
; APIs to retrieve ICN, determine if ICN
; is local and if site is LST.
; Supported ICRs
; #3356 - XQY0 ; Kernel Variable
APPTCHG
REGORSN ; DG*5.3*1027 Display prompt for REGISTRATION ONLY REASON

External References

Name Field # of Occurrence
$$FORIEN^DGADDUTL 8+2
REGONLY^DGEN REGORSN+9
$$FINDCUR^DGENA VETINDCHG+12
$$GET^DGENPTA VETINDCHG+33
$$VET^DGENPTA VETINDCHG+16
GETMSE^DGMSEUTL EN+7
MOVMSE^DGMSEUTL EN+6
$$EN^DGREGEEWS VETINDCHG+17
FIND^DGRPC2 7+1, 14+5, 15+1, 16+1, END+1
KVAR^DGRPCE DGRPC+20, PAT+1
H^DGUTL 16
^DIC PAT+1
FILE^DIE APPTCHG+17
^DIR VETINDCHG+23, VETINDCHG+30, REGORSN+6
$$GETICN^MPIF001 VETINDCHG+16
$$SDAPI^SDAMA301 17+5
PRI^VADPT60 14+3
$$NOW^XLFDT REGORSN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking data for consistency..."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"This patient has not had the Enrollment Request Process completed and this must be done through Register A Patient."
  • Line Location: VETINDCHG+19
Function Call: WRITE
  • Prompt: !,"Veteran indicator has been changed. ""Do You Wish To Enroll"" is currently set to NO."
  • Line Location: VETINDCHG+26
Function Call: WRITE
  • Prompt: !!,"Use the Enrollment System if the Veteran wishes to enroll."
  • Line Location: VETINDCHG+27
Function Call: WRITE
  • Prompt: !,"This is a required field.",!
  • Line Location: REGORSN+8
Routine Call
  • DIC
  • Line Location:
    • PAT+1
Routine Call
  • DIE
  • Line Location:
    • APPTCHG+17
Routine Call
  • DIR
  • Line Location:
    • VETINDCHG+23
    • VETINDCHG+30
    • REGORSN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] EN+19
^DG(43 - [#43] ON+1
^DGIN(38.5 - [#38.5] EN+9
^DGIN(38.6 - [#38.6] EN+16
^DIC(21 - [#21] 13
^DIC(8 - [#8] EN+19
^DPT - [#2] DGRPC+20, EN+4, EN+6, 2, 8, 14+3, 15
^HL(779.004 - [#779.004] 8+1
^TMP($J 17+9, 17+11, 17+13, 17+14, 17+16!, VETINDCHG+16

Label References

Name Line Occurrences
@( EN+20, 1, 1+3, 2+2, 7+1, 8, 8+1, 8+5, 9+1, 10+1
, 11+1, 12+1, 13+1, 14+5, 15+1, 16+1, END+1
APPTCHG VETINDCHG+35
COMB 1, 1+2, 2+1, 7, 8, 8+1, 8+4, 9, 10, 11
, 12, 13, 14, 15, 16, 17+17
DGRPC PAT+1
NEXT 1, 1+3, 2+2, 7+1, 8, 8+1, 8+5, 9+1, 10+1, 11+1
, 12+1, 13+1, 14+5, 15+1, 16+1, END+1, NEXT+2
ON DGRPC+20, PAT+1
PAT PAT+1
REGORSN VETINDCHG+34
START EN+3
TIMEQ TIME+4
VETINDCHG EN+1

Naked Globals

Name Field # of Occurrence
^( EN+16, 2
^(0 EN+16, EN+19, ON+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANYMSE DGRPC+18~
CONARR DGRPC+18~
CONCHK DGRPC+18~
CONERR DGRPC+18~
CONSPEC DGRPC+18~
>> DFN DGRPC+20, EN+4, EN+6, EN+7, EN+9, 2, 8, 14+3, 15, 17+4
, 17+11, 17+13, 17+14, PAT+1*, VETINDCHG+12, VETINDCHG+16, VETINDCHG+33, APPTCHG+4, REGORSN+9
>> DGCD EN+19*, 14
>> DGCHK EN+16*, EN+20, 7, 7+1, END+1, NEXT+1, NEXT+2
DGCON TIME+4, TIME+5, TIMEQ!
>> DGCT EN+19*, COMB+1*, TIME+4, TIME+5
>> DGD 1*, 1+1, 8*, 8+1, 8+2, 8+3, 17+2*
DGDATE 17!
>> DGDONE VETINDCHG+18, VETINDCHG+20*
>> DGDONE2 VETINDCHG+24, VETINDCHG+36*
>> DGEDCN EN+2*, EN+3, PAT+1*, ON+2*
DGEND TIME+1*, TIME+2, TIMEQ!
DGENPTA VETINDCHG+32~, VETINDCHG+33
DGENPTA("INELDATE" VETINDCHG+33
DGENRODT REGORSN+1~, REGORSN+9*
DGENRRSN REGORSN+1~, REGORSN+2, REGORSN+7*, REGORSN+8, REGORSN+9
>> DGENRYN VETINDCHG+34, REGORSN+10*
DGENSRCE REGORSN+1~, REGORSN+9*
DGENSTAT VETINDCHG+13~, VETINDCHG+17
>> DGER DGRPC+20, EN+19*, COMB+1*, PAT+1, ON+1*, ON+2
DGFDA APPTCHG+2~
DGFDA(2 APPTCHG+6*, APPTCHG+8*, APPTCHG+10*, APPTCHG+12*, APPTCHG+14*, APPTCHG+16*
DGIENS APPTCHG+2~, APPTCHG+4*, APPTCHG+6, APPTCHG+8, APPTCHG+10, APPTCHG+12, APPTCHG+14, APPTCHG+16
DGINELIG VETINDCHG+32~, VETINDCHG+33*, VETINDCHG+34, VETINDCHG+35
DGKEY VETINDCHG+13~, VETINDCHG+16*, VETINDCHG+17
>> DGLST EN+20*, 1, 1+3, 2+2, 7+1*, 8, 8+1, 8+5, 9+1, 10+1
, 11+1, 12+1, 13+1, 14+5, 15+1, 16+1, END+1*, COMB+1*, NEXT+1*, NEXT+2*
, NEXT+3*
>> DGNCK EN+19*, 9*, 10*, 13*, 14*, END+1, NEXT+2
DGNOW REGORSN+1~, REGORSN+9*
DGOVET VETINDCHG+13~, VETINDCHG+16*, VETINDCHG+24
>> DGP( EN+4*, EN+19, 10, 12, 13, 14+3, 15, 16, 17+5
>> DGP("TYPE" EN+19
>> DGP("VET" EN+19, 9
>> DGP(0 1, 7
DGPMSE DGRPC+18~, EN+7
DGREQNAME VETINDCHG+13~, VETINDCHG+14*, VETINDCHG+17
DGRESP VETINDCHG+13~, VETINDCHG+15*, VETINDCHG+17*, VETINDCHG+18, VETINDCHG+24
>> DGRPCOLD EN+9*
DGRSLT APPTCHG+2~, APPTCHG+3*, APPTCHG+6, APPTCHG+8, APPTCHG+10, APPTCHG+12, APPTCHG+14, APPTCHG+16
>> DGSC EN+19*, 11, 12
DGSTART START+1*, TIME+1, TIME+2, TIMEQ!
DGTIME 16, 17!, TIME+2*, TIME+3*, TIME+5, TIMEQ!
DGVET VETINDCHG+13~, VETINDCHG+16*, VETINDCHG+24, VETINDCHG+25, VETINDCHG+31
>> DGVT EN+19*, 11, 12
DGWSHTOEN VETINDCHG+13~, VETINDCHG+17
DIC PAT+1*!
DIC("A" PAT+1*
DIC(0 PAT+1*
DIR VETINDCHG+21~, VETINDCHG+23!, VETINDCHG+28~, REGORSN+1~, REGORSN+3!
DIR("A" REGORSN+4*
DIR(0 VETINDCHG+22*, VETINDCHG+29*, REGORSN+5*
DT 17+2
DTOUT VETINDCHG+13~, REGORSN+1~, REGORSN+6
DUOUT VETINDCHG+13~, REGORSN+1~, REGORSN+6
>> I EN+4*, EN+9*, EN+16*, 1+1*, 2*, 7*, 8+3*, NEXT+1*
>> I1 1+1*, 1+2, 2*, 2+1, 8*, 8+1*, 8+3*, 8+4, 17+2*, 17+11
, 17+13, 17+15*, 17+17
I5 DGRPC+18~
I6 DGRPC+18~
>> J 1+1*
LOC DGRPC+18~
MSDATERR DGRPC+19~
MSECHK DGRPC+19~
MSERR DGRPC+19~
MSESET DGRPC+19~
OVER99 DGRPC+19~, EN+18*
RANGE DGRPC+19~
RANSET DGRPC+19~
SDARRAY 17+1~, 17+5
SDARRAY("FLDS" 17+3*
SDARRAY(4 17+4*
SDCLIEN 17+1~, 17+10*, 17+11*, 17+13, 17+14
SDDATE 17+1~, 17+12*, 17+13*, 17+14
STR8 8+2~*, 8+3
>> T 8+3*
X 1*, 1+2*, 2+1*, 7*, 8*, 8+1*, 8+4*, 9*, 10*, 11*
, 12*, 13*, 14*, 15*, 16*, 17+14*, 17+15, 17+17*, COMB+1, TIME+1*
, TIME+2, TIME+3, TIMEQ!, VETINDCHG+21~, VETINDCHG+28~, REGORSN+1~
X1 TIME+1*, TIME+2, TIME+3, TIMEQ!
>> XQY0 VETINDCHG+11, VETINDCHG+18, VETINDCHG+24
Y PAT+1, VETINDCHG+21~, VETINDCHG+28~, REGORSN+1~, REGORSN+7
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 |  Naked Globals |  Local Variables  | All