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

Package: Clinical Information Resource Network

Routine: RGEX03


Information

RGEX03 ;BAY/ALS-LIST MANAGER FOR MPI/PD EXCEPTIONS ;10/13/99

Source Information

Source file <RGEX03.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
VA FileMan 6 NOW^%DTC  ^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  ^DIWP  
Registration 5 HINQ^DG10  EN^DGRPD  (NOTICE,PTSEC)^DGSEC4  (DEM,ELIG)^VADPT  START^VAFCPDAT  
Clinical Information Resource Network 4 EN^RGEX04  ASK2^RGMTAUD  SEND^RGPVMPI  REJ^RGPVREJ  
List Manager 3 EN^VALM  ($$SETSTR,FULL,PAUSE)^VALM1  CLEAN^VALM10  
Kernel 2 ($$DEL,$$FTG,CLOSE,OPEN)^%ZISH  DISP^XQORM1  
Master Patient Index VistA 1 VTQ^MPIFSAQ  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Clinical Information Resource Network 13 RG EXCPT ACTION  RG EXCPT DISPLAY ONLY QUERY  RG EXCPT EDIT NOTE  RG EXCPT EDIT PATIENT DATA  RG EXCPT HINQ INQUIRY  RG EXCPT MPI/PD DATA  RG EXCPT PATIENT AUDIT  RG EXCPT PATIENT INQUIRY  
RG EXCPT PV MPI PDAT  RG EXCPT PV REJECT  RG EXCPT UPDATE STATUS  RGACTIV  RGEXHND1  
Kernel 1 ^ORD(101  
Master Patient Index VistA 1 MPIFRPC  

Entry Points

Name Comments DBIA/ICR reference
EN(DATA) ; -- main entry point for RG EXCPT ACTION
HDR ; -- header code
INIT ; -- init variables and list array
ADDNOTE ;Display Exception Notes, Word Processing field
ADDTMP ;
UPD ;
PA ;Patient Audit
PAQ
HI ;Hinq Inquiry
DISP ; Display Only Query
POT ;Potential Match on MPI, Query MPI, resolve duplicate if needed. **43;**57 MPIC_1893 OBSOLETE; remove PMR
REJ ;Primary View Reject. **44 Added entry point
MPIPV ;MPI Primary View PDAT. **48 Added entry point
LOAD ; Edit Patient Data, if patient's eligibility is verified - check for DG ELIGIBILITY key for user
SENS ; check for patient sensitivity and user security
EDIT ; edit patient data
QUIT
REC ; Check if user is attempting to access own record
; check for security key
DEATH ; Check for access to edit date of death
DIEC ;Do the ^DIE call from the DEATH module
INQ ; Patient Inquiry
EDTNOT ; Edit Exception Notes
PDAT
GETEX(RETURN,DFN) ; Get array of pending exceptions for a patient
QGET ;
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code

External References

Name Field # of Occurrence
NOW^%DTC UPD+6
$$DEL^%ZISH PDAT+10
$$FTG^%ZISH PDAT+10
CLOSE^%ZISH PDAT+8
OPEN^%ZISH PDAT+4
HINQ^DG10 HI+1
EN^DGRPD INQ+2
NOTICE^DGSEC4 SENS+8, SENS+9
PTSEC^DGSEC4 SENS+2
^DIE UPD+8, EDIT+5, DIEC+2, EDTNOT+2
$$GET1^DIQ ADDNOTE+3, REC+3
EN^DIQ1 DEATH+6
^DIR UPD+4
^DIWP INIT+25
VTQ^MPIFSAQ DISP+3
EN^RGEX04 PDAT+11
ASK2^RGMTAUD PA+3
SEND^RGPVMPI MPIPV+2
REJ^RGPVREJ REJ+1
DEM^VADPT EDIT+8, DEATH+4, DEATH+10
ELIG^VADPT LOAD+2
START^VAFCPDAT PDAT+6
EN^VALM EN+1
$$SETSTR^VALM1 INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+19
, INIT+24, INIT+27, ADDNOTE+1, ADDNOTE+4
FULL^VALM1 PA+3, DISP+1, LOAD+2, INQ+2
PAUSE^VALM1 HI+1, DISP+3, LOAD+6, SENS+3, SENS+5, SENS+6, REC+6, REC+9, DEATH+17, INQ+2
CLEAN^VALM10 INQ+2
$$GET^XPAR PDAT+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option updates the exception status to PROCESSED.",!,"After it is processed it will not be listed in the summary."
  • Line Location: UPD+2
Function Call: WRITE
  • Prompt: !!,"Access denied: Required parameters not defined"
  • Line Location: SENS+3
Function Call: WRITE
  • Prompt: !!?15,"***PATIENT MARKED SENSITIVE***"
  • Line Location: SENS+4
Function Call: WRITE
  • Prompt: !!?15,"Access not allowed on your own PATIENT (#2) file entry"
  • Line Location: SENS+5
Function Call: WRITE
  • Prompt: !!?15,"Access denied: Your SSN is not defined"
  • Line Location: SENS+6
Function Call: WRITE
  • Prompt: !!,"You do not have the proper security to edit date of death."
  • Line Location: DEATH+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • DIE
  • Line Location:
    • UPD+8
    • EDIT+5
    • DIEC+2
    • EDTNOT+2
Routine Call
  • DIR
  • Line Location:
    • UPD+4
Routine Call
  • VALM
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] GET1^DIQ
991.12 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIA(2 PA+2
^DPT - [#2] INIT+6, EDIT+5, DIEC+1, DIEC+3
^RGHL7(991.1 - [#991.1] INIT+23, UPD+7, UPD+9, EDTNOT+2, GETEX+4, GETEX+5, GETEX+6, GETEX+7, GETEX+8
^RGHL7(991.11 - [#991.11] GETEX+9
^TMP("RGEXC2" INIT+1!, ADDTMP+1*, EXIT+1!
^TMP("RGPDAT" PDAT+9!, PDAT+10, PDAT+11
^UTILITY("DIQ1" DEATH+7
^UTILITY($J INIT+21!, INIT+26, INIT+27
^XUSEC("DG DETAIL" DEATH+1
^XUSEC("DG ELIGIBILITY" LOAD+4
^XUSEC("DG RECORD ACCESS" REC+2

Label References

Name Line Occurrences
ADDTMP INIT+7, INIT+8, INIT+9, INIT+10, INIT+12, INIT+13, INIT+14, INIT+15, INIT+19, INIT+28
, ADDNOTE+1, ADDNOTE+4
DEATH EDIT+7
DIEC DEATH+8, DEATH+13, DEATH+16
EDIT SENS+10
INIT UPD+10, REJ+2, MPIPV+3, EDIT+11, DEATH+17, INQ+2, EDTNOT+4, PDAT+13
PAQ PA+2
QGET GETEX+3
REC EDIT+2
SENS LOAD+7, LOAD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPD+1~, UPD+6
%H UPD+1~
%I UPD+1~
ACCESS EDIT+1*, EDIT+3, EDIT+13!, REC+2*, REC+10*
ARRAY PDAT+2*, PDAT+14!
CHKSM INIT+4*, INIT+6*, INIT+12, EXIT+1!
CNT GETEX+2*, GETEX+9*, GETEX+10, GETEX+11, QGET+1!
DA UPD+8*!, EDIT+4*, EDIT+5!, DEATH+2!, DEATH+6*, DEATH+7, DEATH+8*, DEATH+13*, DEATH+16*, DEATH+18!
, EDTNOT+2*, EDTNOT+3!
DA(1 UPD+8*, EDTNOT+2*
DATA EN~, INIT+3, INIT+5, INIT+6, INIT+11, INIT+13, INIT+14, INIT+15, INIT+16, INIT+21
, ADDNOTE+3, ADDNOTE+5, UPD+7, UPD+9*, DISP+2, EDIT+6, EDIT+9*, EDIT+10*, EDTNOT+1
DATAOLD LOAD+1*, EDIT+6*, EDIT+9, EDIT+10, EDIT+13!
DFN INIT+4*, INIT+6*, INIT+10, ADDNOTE+5*, PA+1, PA+3*, PA+4*, DISP+2, SENS+2, SENS+8
, SENS+9, EDIT+4, EDIT+5, EDIT+9, DEATH+6, DEATH+8, DEATH+13, DEATH+16, DIEC+1, DIEC+3
, GETEX~, GETEX+3, GETEX+5, GETEX+6, GETEX+7, EXIT+1!
DGNEW EDIT+13!
DGNPSSN EDIT+13!, REC+3*, REC+4, REC+7
>> DIC DEATH+6*
DIE UPD+8*!, EDIT+4*, EDIT+5!, DEATH+2!, DEATH+8*, DEATH+13*, DEATH+16*, DEATH+18!, EDTNOT+2*, EDTNOT+3!
>> DIQ(0 DEATH+6*
DIR UPD+11!, EXIT+1!
DIR("A" UPD+3*
DIR("B" UPD+3*
DIR(0 UPD+3*
DIRUT UPD+4, UPD+11!
>> DIWF INIT+25*
>> DIWL INIT+25*
>> DIWR INIT+25*
DOB INIT+4*, INIT+5*, INIT+9, EXIT+1!
DOD1 DEATH+3*, DEATH+5*, DEATH+12, DEATH+13, DEATH+15, DEATH+18!
DOD2 DEATH+3*, DEATH+11*, DEATH+12, DEATH+13, DEATH+15, DEATH+18!
DR UPD+8*!, EDIT+4*, EDIT+5!, DEATH+2!, DEATH+6*, DEATH+8*, DEATH+13*, DEATH+16*, DEATH+18!, EDTNOT+2*
, EDTNOT+3!
DUZ UPD+8, LOAD+4, REC+2, REC+3, DEATH+1, PDAT+2
ETYP GETEX+7*, GETEX+9*, GETEX+10, QGET+1!
EXCTEXT INIT+23*, INIT+25, EXIT+1!
>> ICN INIT+11*, INIT+12, PDAT+6, PDAT+12*
IEN INIT+21~*, INIT+22, INIT+23, ADDNOTE+2~, ADDNOTE+3*, UPD+7*, UPD+8, UPD+9, PA+3~, EDTNOT+1*
, EDTNOT+2, EDTNOT+3!, GETEX+6*, GETEX+7, GETEX+8, GETEX+10, QGET+1!, EXIT+1!
IEN2 INIT+21~*, INIT+22, INIT+23, ADDNOTE+2~, ADDNOTE+3*, UPD+7*, UPD+8, EDTNOT+1*, EDTNOT+2, EDTNOT+3!
, GETEX+7*, GETEX+8, GETEX+10, QGET+1!, EXIT+1!
IENS ADDNOTE+2~, ADDNOTE+3*
IO PDAT+5
IOF PDAT+3*
IOM PDAT+3*
IOSL PDAT+3*
IOST PDAT+3*
L ADDNOTE+4*, ADDNOTE+6!
LIN INIT+4*, ADDNOTE+5, ADDTMP+1*, EXIT+1!
MPIVAR DISP+3, DISP+4!
MPIVAR("DFN" DISP+2*
MPIVAR("DOB" DISP+2*
MPIVAR("NM" DISP+2*
MPIVAR("SSN" DISP+2*
N INIT+26*, INIT+27, ADDNOTE+2~, ADDNOTE+3*
NAME INIT+4*, INIT+5*, INIT+7, DISP+2, EXIT+1!
NOTE ADDNOTE+2~, ADDNOTE+4*
NT ADDNOTE+6!
NT( ADDNOTE+4
PDFN PA+1*, PA+4!
PICN PDAT*, PDAT+6*, PDAT+12, PDAT+14!
>> POP PDAT+4
PROCDT UPD+1~, UPD+6*, UPD+8
PSSN PDAT*, PDAT+1*, PDAT+12, PDAT+14!
QFLG PA+3*, PA+4!
REP PDAT+2*, PDAT+14!
RESULT SENS+1~, SENS+2
RESULT(1 SENS+3, SENS+4, SENS+5, SENS+6, SENS+7, SENS+8, SENS+9
RETURN GETEX~, GETEX+1!
RETURN( GETEX+10*
RETURN(0 GETEX+2*, GETEX+3*, GETEX+11*
>> RGBG EXIT+2*
RGSEN SENS+1~, SENS+8, SENS+9
RGXDEL PDAT+7~, PDAT+10
RGXDEL( PDAT+10*
RGXDIR PDAT+2*, PDAT+4, PDAT+10, PDAT+14!
RGXFILE PDAT+2*, PDAT+4, PDAT+10, PDAT+14!
>> SAPV MPIPV+1*
SRS DEATH+3*, DEATH+7*, DEATH+18!
SSN INIT+4*, INIT+5*, INIT+8, DISP+2, REC+7, PDAT+1, PDAT+12*, EXIT+1!
STATUS INIT+4*, INIT+16*, INIT+17*, INIT+18*, INIT+19, EXIT+1!
STR INIT+4*, INIT+7*, INIT+8*, INIT+9*, INIT+10*, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15*
, INIT+19*, INIT+24*, INIT+27*, ADDNOTE+1*, ADDNOTE+4*, ADDTMP+1*, EXIT+1!
TYP GETEX+2*, GETEX+4*, GETEX+5, GETEX+6, GETEX+7, GETEX+9, QGET+1!
TYPE PDAT+2*, PDAT+14!
VADM DEATH+2!, DEATH+18!
VADM(1 EDIT+9
VADM(2 EDIT+9
VADM(3 EDIT+10
VADM(6 EDIT+10, DEATH+5, DEATH+11
VAEL EDIT+13!
VAEL(8 LOAD+3
VAFCDFN ADDNOTE+5*, PA+2, PA+3, EXIT+1!
>> VALMAR INIT+2
>> VALMBCK UPD+11*, PA+2*, PA+3*, HI+1*, DISP+1*, DISP+4*, REJ+2*, MPIPV+3*, LOAD+1*, LOAD+6*
, SENS+3*, SENS+5*, SENS+6*, EDIT+12*, REC+6*, REC+9*, DEATH+17*, INQ+1*, INQ+3*, EDTNOT+5*
, PDAT*, PDAT+14*, EXIT+1*, EXIT+2*
>> VALMCNT ADDNOTE+5*
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+1*
>> VALMSG PA+2*
X INIT+21~, INIT+25*, UPD+1~, DEATH+18!, PDAT+10*, HELP+1*, EXIT+1!
Y UPD+4, DEATH+18!, EXIT+1!

Marked Items

Name Field # of Occurrence
$T(ASK2^RGMTAUD PA+3
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