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

Package: Clinical Information Resource Network

Routine: RGEVPRG


Information

RGEVPRG ;BAY/ALS-OPTIONS TO PURGE MPI/PD EXCEPTIONS ;08/23/99

Source Information

Source file <RGEVPRG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIK  ^DIR  
Kernel 1 ($$FMDIFF,$$FMTE,$$NOW)^XLFDT  
Master Patient Index VistA 1 $$IFLOCAL^MPIF001  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Clinical Information Resource Network 1 RG EXCEPTION PURGE  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
PRGPAT ;Purge by Patient
QUIT
PRGDT ; Purge by Date
PRG30
PRGEXC ; Purge by Exception Type
PRGDUP ;Purge Duplicate Entries; retain most recent for all except types.
PRGZZ ;Purge if name field is null (incomplete record)
DEL ;
PROC ;Set these exception types to PROCESSED if they have a national ICN

External References

Name Field # of Occurrence
^DIC PRGPAT+3
^DIK PRGPAT+20, PRGDT+18, PRG30+20, PRGDUP+20, PRGDUP+23, PRGDUP+28, PRGZZ+13, DEL+4
^DIR PRGPAT+12, PRGDT+4, PRGDT+9
$$IFLOCAL^MPIF001 PRGPAT+8
DEM^VADPT PRGPAT+9, PRGZZ+10
$$FMDIFF^XLFDT PRG30+5
$$FMTE^XLFDT PRGDT+6
$$NOW^XLFDT MAIN+6, MAIN+12, PRG30+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGPAT+1
Function Call: WRITE
  • Prompt: !,"There are no exceptions on file for this patient."
  • Line Location: PRGPAT+7
Function Call: WRITE
  • Prompt: !,"This patient does not have a national ICN assigned, do not purge."
  • Line Location: PRGPAT+8
Function Call: WRITE
  • Prompt: !,"All exceptions purged for "_VADM(1)_" DFN: "_RGDFN
  • Line Location: PRGPAT+22
Function Call: WRITE
  • Prompt: !!,"Enter a date for the purge. All exceptions on file, on or before that date, will be deleted."
  • Line Location: PRGDT+1
Function Call: WRITE
  • Prompt: !,"There are no exceptions dated on or before "_PDATE_", no data to purge."
  • Line Location: PRGDT+19
Function Call: WRITE
  • Prompt: !,CNT_" exceptions, dated on or before "_PDATE_" have been purged!"
  • Line Location: PRGDT+20
Function Call: WRITE
  • Prompt: !,"There are no "_ETYPE_" exceptions on file."
  • Line Location: PRGEXC+15
Function Call: WRITE
  • Prompt: !,CNT_" "_ETYPE_" Exceptions purged!"
  • Line Location: PRGEXC+16
Routine Call
  • DIC
  • Line Location:
    • PRGPAT+3
Routine Call
  • DIR
  • Line Location:
    • PRGPAT+12
    • PRGDT+4
    • PRGDT+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRGZZ+11
^RGHL7(991.1 - [#991.1] MAIN+2, MAIN+3, MAIN+4, MAIN+14, PRGPAT+5, PRGPAT+6, PRGPAT+14, PRGPAT+16, PRGPAT+18, PRGPAT+19
, PRGDT+11, PRGDT+14, PRGDT+15, PRG30+4, PRG30+8, PRG30+9, PRG30+11, PRG30+13, PRGDUP+4, PRGDUP+6
, PRGDUP+8, PRGDUP+10, PRGDUP+11!, PRGDUP+12, PRGDUP+19, PRGDUP+27, PRGZZ+3, PRGZZ+5, PRGZZ+7, PRGZZ+9
, PRGZZ+12
^RGSITE(991.8 - [#991.8] MAIN+6*, MAIN+7*, MAIN+12*, MAIN+13*
^TMP("RGEVDUP" PRGDUP+3!, PRGDUP+13, PRGDUP+14*, PRGDUP+15, PRGDUP+16, PRGDUP+24*, PRGDUP+31!

Label References

Name Line Occurrences
DEL PRGPAT+21, PRG30+16, PRGDUP+29, PRGZZ+14
PRG30 MAIN+10
PRGDUP MAIN+9
PRGPAT PRGPAT+7
PRGZZ MAIN+11
QUIT PRGPAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PRGPAT+13*, PRGPAT+20*, PRGPAT+23!, PRGDT+10*, PRGDT+16*, PRGDT+19, PRGDT+20, PRGDT+21!, PRG30+3*, PRG30+18*
, PRG30+21!, PRGDUP+2*, PRGDUP+31!, PRGZZ+2*, DEL+1*
DA PRGPAT+20*!, PRGDT+17*, PRGDT+18!, PRG30+19*, PRG30+20!, PRGDUP+20*!, PRGDUP+22*, PRGDUP+23!, PRGDUP+28*!, PRGZZ+13*!
, DEL+2*, DEL+4!
DA(1 PRGDUP+22*, PRGDUP+23, DEL+2*, DEL+3
DFN PRGPAT+9*, PRGPAT+23!, PRGZZ+10*, PRGZZ+15!
DIC PRGPAT+2*, PRGPAT+3!
DIC("A" PRGPAT+2*
DIC(0 PRGPAT+2*
DIFF PRG30+3*, PRG30+5*, PRG30+6, PRG30+21!
DIK PRGPAT+20*!, PRGDT+17*, PRGDT+18!, PRG30+19*, PRG30+20!, PRGDUP+20*!, PRGDUP+23*!, PRGDUP+28*!, PRGZZ+13*!, DEL+3*
, DEL+4!
DIR PRGDT+2!, PRGDT+4!
DIR("A" PRGPAT+11*, PRGDT+3*, PRGDT+8*
DIR("B" PRGPAT+10*, PRGDT+7*
DIR(0 PRGPAT+10*, PRGDT+3*, PRGDT+7*
DIRUT PRGPAT+12, PRGDT+2!, PRGDT+4, PRGDT+9
DTOUT PRGDT+2!
DUOUT PRGDT+2!
EXCDT PRGDT+10*, PRGDT+11*, PRGDT+12, PRGDT+14, PRGDT+21!, PRG30+3*, PRG30+4*, PRG30+5, PRG30+8, PRG30+21!
, PRGDUP+12*, PRGDUP+14, PRGDUP+18, PRGDUP+24, PRGDUP+26, PRGDUP+31!
EXCT PRGPAT+4*, PRGPAT+5*, PRGPAT+6, PRGPAT+13*, PRGPAT+14*, PRGPAT+16, PRGPAT+18, PRGPAT+23!
EXCTYP PRGDUP+2*, PRGDUP+4*, PRGDUP+6, PRGDUP+8, PRGDUP+10, PRGDUP+11, PRGDUP+13, PRGDUP+14, PRGDUP+15, PRGDUP+16
, PRGDUP+24, PRGDUP+31!, PRGZZ+2*, PRGZZ+3*, PRGZZ+5, PRGZZ+7, PRGZZ+9, PRGZZ+15!
FLAG PRGPAT+4*, PRGPAT+6*, PRGPAT+7, PRGPAT+23!
IEN PRGPAT+15*, PRGPAT+16*, PRGPAT+18, PRGPAT+19, PRGPAT+20, PRGPAT+23!, PRGDT+13*, PRGDT+14*, PRGDT+15, PRGDT+17
, PRGDT+21!, PRG30+7*, PRG30+8*, PRG30+9, PRG30+11, PRG30+13, PRG30+19, PRG30+21!, PRGDUP+7*, PRGDUP+8*
, PRGDUP+10, PRGDUP+11, PRGDUP+12, PRGDUP+14, PRGDUP+19, PRGDUP+24, PRGDUP+27, PRGDUP+28, PRGDUP+31!, PRGZZ+6*
, PRGZZ+7*, PRGZZ+9, PRGZZ+12, PRGZZ+13, PRGZZ+15!, DEL+2
IEN2 PRGPAT+17*, PRGPAT+18*, PRGPAT+23!, PRG30+10*, PRG30+11*, PRG30+13, PRG30+21!, PRGDUP+9*, PRGDUP+10*, PRGDUP+11
, PRGDUP+14, PRGDUP+24, PRGDUP+31!, PRGZZ+8*, PRGZZ+9*, PRGZZ+15!, DEL+2
NUM PRGPAT+19*, PRGPAT+20, PRGPAT+21, PRGPAT+23!, PRGDT+15*, PRGDT+16, PRGDT+21!, PRG30+9*, PRG30+16, PRG30+17
, PRG30+18, PRG30+21!, PRGDUP+19*, PRGDUP+20, PRGDUP+21, PRGDUP+27*, PRGDUP+28, PRGDUP+29, PRGDUP+31!, PRGZZ+12*
, PRGZZ+13, PRGZZ+14, PRGZZ+15!
OLDDT PRGDUP+17*, PRGDUP+18, PRGDUP+26, PRGDUP+31!
OLDIEN PRGDUP+17*, PRGDUP+20, PRGDUP+22, PRGDUP+31!
OLDIEN2 PRGDUP+17*, PRGDUP+22, PRGDUP+31!
OLDNODE PRGDUP+16*, PRGDUP+17, PRGDUP+31!
PDATE PRGDT+6*, PRGDT+8, PRGDT+19, PRGDT+20, PRGDT+21!
PURDT PRGDT+5*, PRGDT+6, PRGDT+12, PRGDT+21!
RGDFN PRGPAT+3*, PRGPAT+6, PRGPAT+8, PRGPAT+9, PRGPAT+16, PRGPAT+18, PRGPAT+22, PRGPAT+23!, PRGDUP+5*, PRGDUP+6*
, PRGDUP+8, PRGDUP+10, PRGDUP+11, PRGDUP+13, PRGDUP+14, PRGDUP+15, PRGDUP+16, PRGDUP+24, PRGDUP+31!, PRGZZ+4*
, PRGZZ+5*, PRGZZ+7, PRGZZ+9, PRGZZ+10, PRGZZ+11, PRGZZ+15!
RGDT PRGDUP+31!
STAT PRG30+12*, PRG30+13*, PRG30+15, PRG30+21!
TODAY PRG30+1*, PRG30+2*, PRG30+5, PRG30+21!
VADM PRGPAT+23!, PRGZZ+15!
VADM(1 PRGPAT+11, PRGPAT+22, PRGZZ+11
Y PRGPAT+3, PRGPAT+12, PRGPAT+23!, PRGDT+5, PRGDT+9, PRGDT+21!
>> ZTQUEUED MAIN+5
>> ZTREQ MAIN+5*
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