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  | All
Print Page as PDF
Routine: RGEX01

Package: Clinical Information Resource Network

Routine: RGEX01


Information

RGEX01 ;BAY/ALS-LIST MANAGER FOR MPI/PD EXCEPTIONS ;10/07/99

Source Information

Source file <RGEX01.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  DISP^XQORM1  
VA FileMan 4 NOW^%DTC  MIX^DIC1  WAIT^DICD  ^DIE  
Clinical Information Resource Network 1 (DTLIST,EXCLST,PATLST,SELTYP)^RGEXHND1  
List Manager 1 EN^VALM  
Registration 1 MAIN^VAFCPDAT  

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

Package Total Caller Graph
Clinical Information Resource Network 7 RG EXCEPTION TF INQUIRY  RG EXCPT DATE SORT  RG EXCPT PATIENT SORT  RG EXCPT SELECT TYPE  RG EXCPT SUMMARY  RG EXCPT TYPE SORT  RGEXHND1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for RG EXCPT SUMMARY
HDR ; -- header code
INIT ; -- init variables and list array
SORT ;
HELP ; -- help code
HLPPRG ;
EXIT ; -- exit code
QUEPRG
EXPND ; -- expand code
CUREX() ;**57 MPIC_1893 The CUREX module is obsolete and is no longer being called.
PROC ; For a given patient, set exceptions STATUS to PROCESSED.
PDAT ;
ASK ;Ask for PATIENT
QUIT ;

External References

Name Field # of Occurrence
NOW^%DTC EN+2, QUEPRG+1
HOME^%ZIS QUEPRG+5
^%ZTLOAD QUEPRG+4
MIX^DIC1 ASK+5
WAIT^DICD EN+43
^DIE EN+11
DTLIST^RGEXHND1 INIT+3
EXCLST^RGEXHND1 INIT+4
PATLST^RGEXHND1 INIT+5
SELTYP^RGEXHND1 INIT+6
MAIN^VAFCPDAT ASK+8
EN^VALM EN+44
$$FMTE^XLFDT EN+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,"The MPI/PD Exception Purge process has not been run."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"The MPI/PD Exception Purge process will now run."
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"Please come back to this option in five minutes."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,"Please contact IRM to schedule the MPI/PD EXCEPTION PURGE"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"[RG EXCEPTION PURGE] option via TaskMan with a frequency of once an hour."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: $C(7),!!,"The MPI/PD Exception Purge process is currently running.",!,"Please try this option again in five minutes."
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!,"The MPI/PD Exception Purge process last ran "_STDT_"."
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !!,"The MPI/PD Exception Purge process will now run."
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,"Please come back to this option in five minutes."
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !!,"Please contact IRM to verify that the MPI/PD EXCEPTION PURGE "
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !,"[RG EXCEPTION PURGE] option is scheduled to run via TaskMan"
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,"with a frequency of once an hour."
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter Y(YES) to run the MPI/PD Exception Purge process now."
  • Line Location: HLPPRG+1
Function Call: WRITE
  • Prompt: !!,"Enter N(NO) to go directly into the MPI/PD Exception Handling option."
  • Line Location: HLPPRG+2
Function Call: WRITE
  • Prompt: !,"This report prints MPI/PD Data for a selected patient. The"
  • Line Location: PDAT+2
Function Call: WRITE
  • Prompt: !,"information displayed includes the Integration Control Number"
  • Line Location: PDAT+3
Function Call: WRITE
  • Prompt: !,"(ICN), patient identity information, and Treating Facility list."
  • Line Location: PDAT+4
Function Call: WRITE
  • Prompt: !!,"The information is pulled from the Patient (#2) file and the"
  • Line Location: PDAT+5
Function Call: WRITE
  • Prompt: !,"Treating Facility List (#391.91) file."
  • Line Location: PDAT+6
Function Call: WRITE
  • Prompt: !!,"Patient lookup can be done by Patient Name/SSN or by ICN.",!
  • Line Location: ASK+2
Routine Call
  • DIE
  • Line Location:
    • EN+11
Routine Call
  • %ZIS
  • Line Location:
    • QUEPRG+5
Routine Call
  • VALM
  • Line Location:
    • EN+44

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RGHL7(991.1 - [#991.1] EN+8, EN+14, EN+24, EN+25
^RGSITE(991.8 - [#991.8] EN+3, EN+5, EN+9, EN+12
^TMP("RGEX01" EXIT+1!
^TMP("RGEXC" EXIT+1!

Label References

Name Line Occurrences
ASK ASK+9
EXIT EN+24, EN+41
INIT SORT+1
QUEPRG EN+23, EN+40
QUIT ASK+1, ASK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, EN+2, QUEPRG+2, QUEPRG+6!
%H EN+1~
%I EN+1~
CNT EXIT+1!
D ASK+4*, QUIT+1!
DA EN+10*, EN+11!
DATA EXIT+1!
DFN ASK+3~, ASK+7*, QUIT+1!
DIC ASK+4*, ASK+5!
DIC("A" ASK+4*
DIC(0 ASK+4*
DIE EN+10*, EN+11!
DIRUT PDAT+1!, ASK+1
DR EN+10*, EN+11!
DUZ QUEPRG+3
ENDDT EN+1~
ETYPE EXIT+1!
EXCTYPE EXIT+1!
HOME QUIT+1!
ICN ASK+3~, QUIT+1!
IEN EXIT+1!
IEN2 EXIT+1!
INDT EN+1~, EN+3*, EN+28, EN+29, EN+30
INDTT EN+1~, EN+30*, EN+31
IO("Q" QUEPRG+5!
NDX EXIT+1!
NM EXIT+1!
NOW EN+1~, EN+2*, EN+28, EN+29, EN+31
PRGSTAT EN+1~, EN+5*, EN+7, EN+13*, EN+15, EN+27
RGANS EN+42!
RGDFN EXIT+1!
>> RGEX CUREX+17*
RGNM EXIT+1!
RGSORT INIT+1*, INIT+3, INIT+4, INIT+5, INIT+6, EXIT+1!
RGSSN EXIT+1!
RUN EN+1~, EN+26*, EN+28*, EN+31*, EN+32
STAT EXIT+1!
STDT EN+1~, EN+3*, EN+4*, EN+34
STRING EXIT+1!
VADM EXIT+1!
>> VALMAR INIT+2
>> VALMBCK SORT+2*
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
X EN+1~, HELP+1*, EXIT+1!
XFLAG EN+1~, EN+2*, EN+23*, EN+24*, EN+40*, EN+41
Y ASK+6, ASK+7, QUIT+1!
ZTDESC QUEPRG*, QUEPRG+6!
ZTDTH QUEPRG+2*, QUEPRG+6!
ZTIO QUEPRG+2*, QUEPRG+6!
ZTQUEUED QUEPRG+6!
ZTREQ QUEPRG+6!
ZTRTN QUEPRG*, QUEPRG+6!
ZTSAVE QUEPRG+6!
ZTSAVE("DUZ" QUEPRG+3*
ZTSK QUEPRG+6!
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  | All