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

Package: Radiology Nuclear Medicine

Routine: RAPURGE


Information

RAPURGE ;HISC/CAH - AISC/MJK - Schedule Data Purge ;4/17/03 08:45

Source Information

Source file <RAPURGE.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Radiology Nuclear Medicine 2 START^RAPURGE1  ZIS^RAUTL  

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
Radiology Nuclear Medicine 1 RA PURGE  

Entry Points

Name Comments DBIA/ICR reference
SCH ;Edit purge parameters and schedule Rad/Nuc Med data purge
EDIT
PURGE
QB
Q
RECORD ; select which records to purge
ASKF ;ask final question
REMIND ;

External References

Name Field # of Occurrence
^DIC EDIT
^DIE EDIT, PURGE+15
^DIR SCH+4, PURGE+1, PURGE+8, PURGE+12, RECORD+5, ASKF+8
START^RAPURGE1 PURGE+18
ZIS^RAUTL PURGE+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"No 'DUZ' code. Purging not allowed.",!
  • Line Location: SCH+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Not a valid 'DUZ' code. Purging not allowed.",!
  • Line Location: SCH+2
Function Call: WRITE
  • Prompt: !?9,$P($T(REMIND+I),";;",2)
  • Line Location: SCH+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PURGE+0
Function Call: WRITE
  • Prompt: !!?12,"IMAGING TYPES",!?12,"-------------",!
  • Line Location: PURGE+5
Function Call: WRITE
  • Prompt: !?3,CNT,") ",I
  • Line Location: PURGE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PURGE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PURGE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PURGE+17
Function Call: WRITE
  • Prompt: !,"--Nothing Done--"
  • Line Location: QB+0
Function Call: WRITE
  • Prompt: !!,"You have chosen to purge ",$S(RAPURTYP="E":"Exam",RAPURTYP="R":"Report",RAPURTYP="B":"Exam & Report",1:"?")," records from "
  • Line Location: ASKF+2
Function Call: WRITE
  • Prompt: " ",$P(^RA(79.2,I,0),U)
  • Line Location: ASKF+4
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $O(RAPUR(I))
  • Line Location: ASKF+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKF+5
Routine Call
  • DIC
  • Line Location:
    • EDIT
Routine Call
  • DIE
  • Line Location:
    • EDIT
    • PURGE+15
Routine Call
  • DIR
  • Line Location:
    • SCH+4
    • PURGE+1
    • PURGE+8
    • PURGE+12
    • RECORD+5
    • ASKF+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.2 - [#79.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] PURGE+7, ASKF+4
^VA(200 - [#200] SCH+2

Label References

Name Line Occurrences
ASKF PURGE+13
EDIT EDIT
PURGE SCH+4
Q PURGE+17
QB SCH+4, PURGE+1, PURGE+8, PURGE+12, PURGE+14
RECORD PURGE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PURGE+4~*, PURGE+7*, PURGE+8
D0 Q!
D1 Q!
DA EDIT*, PURGE+15*, PURGE+16!, Q!
DE EDIT!, PURGE+16!
DIC EDIT*!
DIC("A" EDIT*
DIC(0 EDIT*
DIE EDIT*!, PURGE+15*, PURGE+16!
DIE("NO^" EDIT*
DIR SCH+4!, PURGE+1!, PURGE+8!, PURGE+12!, RECORD+5!, ASKF+8!
DIR("?" SCH+4*, PURGE*, PURGE+8*, PURGE+11*, RECORD+2*, ASKF+7*
DIR("A" SCH+4*, PURGE*, PURGE+8*, PURGE+11*, RECORD+3*, ASKF+6*
DIR("B" SCH+4*, PURGE*, PURGE+11*, RECORD+4*, ASKF+6*
DIR(0 SCH+4*, PURGE*, PURGE+8*, PURGE+11*, RECORD+1*, ASKF+6*
>> DIRUT SCH+4, PURGE+1, PURGE+8, PURGE+12
DLAYGO Q!
DQ EDIT!, PURGE+16!
DR EDIT*!, PURGE+15*, PURGE+16!
DR(2 PURGE+15*
DUZ SCH+1, SCH+2, PURGE+15
I SCH+3*, PURGE+4~*, PURGE+7*, PURGE+10*, ASKF+3*, ASKF+4*
J PURGE+4~*, PURGE+7*, PURGE+10*
POP Q!
RAGO PURGE+14, Q!, ASKF+1*, ASKF+9*
RAMES Q!
RAPOP PURGE+17, Q!
RAPR Q!
RAPUR PURGE+4!, Q!
RAPUR( PURGE+10*, PURGE+15, ASKF+4
RAPURTYP Q!, RECORD+6*, ASKF+2
RAREPURG PURGE+12*, Q!
RAX PURGE+4~, PURGE+15!*
RAX( PURGE+7*, PURGE+10
U ASKF+4
X Q!
Y SCH+4, EDIT, PURGE+1, PURGE+10, PURGE+12, Q!, RECORD+6, ASKF+9
ZTDESC PURGE+17*, Q!
ZTRTN PURGE+17*, Q!
ZTSAVE Q!
ZTSAVE("RAPUR*" PURGE+17*
ZTSAVE("RAREPURG" PURGE+17*

Marked Items

Name Field # of Occurrence
$T(REMIND+I SCH+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