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

Package: Radiology Nuclear Medicine

Routine: RAPURGE1


Information

RAPURGE1 ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Purge Rad/NM Data ;9/3/97 12:22

Source Information

Source file <RAPURGE1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 3 EN1^RAO7PURG  $$ORVR^RAORDU  (CLOSE,D)^RAUTL  
VA FileMan 3 (C,NOW)^%DTC  ^DIE  ^DIK  
Kernel 1 $$FMADD^XLFDT  
Order Entry Results Reporting 1 ST^ORX  

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

Package Total Caller Graph
Radiology Nuclear Medicine 3 RAO7PURG  RAORR  RAPURGE  

Entry Points

Name Comments DBIA/ICR reference
START
EXAM ;Purge exam/report data
ORDER ;Purge order/request data
STAT
EXIT
ENPUR ;OE/RR Entry Point for the PURGE ACTION Option
DELORD(RAOIFN,RADFN) ; Delete all of the imaging order pointers that refer
; to a specific order.
; input: raoifn-ien of our order in file 75.1
; radfn-ien of the patient associated with the order
PUROK(RAORD0,RATDAY) ; Determine if an order meets the criteria
; to be purged from the Rad/Nuc Med Orders file.
; Input: RAORD0-0 node of the order record from file 75.1
; : RATDAY-the current date w/o time
; Output: 1 if the order meets the purge criteria, else 0

External References

Name Field # of Occurrence
C^%DTC START+5, START+6
NOW^%DTC START+1, STAT
^DIE STAT+1, DELORD+11
^DIK ENPUR+19
ST^ORX ENPUR+12, ENPUR+13
EN1^RAO7PURG ENPUR+16
$$ORVR^RAORDU ENPUR+1, ENPUR+11, ENPUR+16
CLOSE^RAUTL EXIT+6
D^RAUTL START+1, STAT
$$FMADD^XLFDT PUROK+15, PUROK+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"RAPURTYP undefined or null, Purge Not Done."
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"Purge data routine started at "
  • Line Location: START+1
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Purging exams/reports.",!
  • Line Location: EXAM+2
Function Call: WRITE
  • Prompt: !,"Purging orders/requests.",!
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: !,"Data purge completed at "
  • Line Location: STAT+0
Function Call: WRITE
  • Prompt: Y,".",!!,"The following purge statistics were compiled:"
  • Line Location: STAT+0
Routine Call
  • DIE
  • Line Location:
    • STAT+1
    • DELORD+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] START+4, STAT+2
^RADPT - [#70] EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16*
^RADPT("AO" DELORD+5, DELORD+7
^RADPT("AR" EXAM+3
^RAMIS(71 - [#71] EXAM+5
^RAO(75.1 - [#75.1] ORDER+3
^RARPT - [#74] EXAM+6, EXAM+7, EXAM+8, EXAM+9, EXAM+10, EXAM+11*

Label References

Name Line Occurrences
$$PUROK ORDER+4
DELORD ENPUR+7
ENPUR ORDER+4
EXIT START, START+3
ORDER EXAM+1
STAT ORDER+1

Naked Globals

Name Field # of Occurrence
^( EXAM+4
^("H" EXAM+10!, EXAM+14!
^("L" EXAM+9!, EXAM+13!
^("NOPURGE" EXAM+4
^("PURGE" EXAM+6
^("R" EXAM+8!
^("T" EXAM+15!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1!, STAT!, ENPUR+15!, ENPUR+20!, DELORD+8!, DELORD+11!
%DT EXIT!
%H START+1!, STAT!
%I START+1!, STAT!
%T EXIT!
D EXIT!, DELORD+8!, DELORD+11!
D0 EXIT!, DELORD+8!, DELORD+11!
D1 EXIT!
DA STAT+1*, EXIT!, ENPUR+15!, ENPUR+19*, ENPUR+20!, DELORD+8!, DELORD+9*, DELORD+11!
DA(1 DELORD+9*, DELORD+10
DA(2 DELORD+9*, DELORD+10
DDER EXIT!
DE EXIT!
DI EXIT!
DIC EXIT!, ENPUR+15!, ENPUR+20!, DELORD+8!, DELORD+11!
DIE STAT+1*, EXIT!, DELORD+8!, DELORD+10*, DELORD+11!
DIK ENPUR+15!, ENPUR+19*, ENPUR+20!
DLAYGO EXIT!
DQ EXIT!, DELORD+8!, DELORD+11!
DR STAT+1*, EXIT!, DELORD+8!, DELORD+9*, DELORD+11!
DR(2 STAT+1*
DT START+5, START+6, EXAM+11, EXAM+16, ORDER+4
DUZ STAT+1
IO START, START+1
IOST START+1
>> OREND ENPUR+1*
ORIFN ENPUR+12*!, ENPUR+13!
>> ORPK ENPUR+1
ORSTS ENPUR+1, ENPUR+12*!, ENPUR+13*!
POP EXIT!
RA0 EXAM+4*, EXAM+5, EXIT!
RACN EXAM+4*, EXIT!
RACNI EXAM+4*, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT!, DELORD+4~, DELORD+6*, DELORD+7*
, DELORD+9
RACRT START+1*, EXAM+5, EXIT+1!, ENPUR+9
RADFN EXAM+3*, EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT+1!, DELORD~, DELORD+5
, DELORD+7, DELORD+9
RADT START+4*, START+5*, EXAM+3, EXIT+1!
RADTE EXAM+3*, EXAM+8, EXAM+9, EXAM+10, EXAM+13, EXAM+14, EXAM+15, EXIT+1!
RADTI EXAM+3*, EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT+1!, DELORD+4~*, DELORD+5*
, DELORD+7, DELORD+9
RAEX EXAM+12!, EXAM+13*, EXAM+14*, EXAM+15*, EXAM+16, EXIT+1!
RAGO EXIT+3!
RAI START+5*, START+7*, EXIT+1!
RAIEN START+4*, START+5, START+6, START+7, EXIT+1!
RAIMAG EXAM+5*, EXAM+8, EXAM+9, EXAM+10, EXAM+11, EXAM+13, EXAM+14, EXAM+15, EXAM+16, ORDER+3*
, ORDER+4, EXIT+1!, ENPUR+9
RAODT START+4*, START+6*, ORDER+3, EXIT+1!
RAODTE ORDER+3*, EXIT+1!
RAOIFN ORDER+3*, EXIT+2!, ENPUR+1*, ENPUR+7, ENPUR+16, ENPUR+19, DELORD~, DELORD+5, DELORD+7
>> RAORD EXIT+4, ENPUR+16
RAORD0 ORDER+3*, ORDER+4, EXIT+2!, ENPUR+7, ENPUR+12, PUROK~, PUROK+5, PUROK+8, PUROK+9, PUROK+11
, PUROK+12, PUROK+15, PUROK+17
RAOSTAT PUROK+5~*, PUROK+8, PUROK+9, PUROK+11, PUROK+12, PUROK+15, PUROK+17
RAPKG ORDER+3*, EXIT+2!, ENPUR+1, ENPUR+8, ENPUR+12, ENPUR+13
RAPOP EXIT+2!
RAPUR EXIT+2!
RAPUR( START+4, START+5*, START+6*, START+7*, EXAM+5, EXAM+8, EXAM+9, EXAM+10, EXAM+11*, EXAM+13
, EXAM+14, EXAM+15, EXAM+16*, ORDER+4, STAT+1, STAT+3, STAT+4, STAT+5, ENPUR+9*
RAPUR(0 START+3
RAPUROK ORDER+4*, EXIT+4!
RAPURTYP START, EXAM+1, EXAM+6, EXAM+12, ORDER+1, EXIT+3!
RAREPURG EXAM+6, EXAM+12, EXIT+2!
RARP EXAM+6!, EXAM+8*, EXAM+9*, EXAM+10*, EXAM+11, EXIT+2!
RARPT EXAM+4*, EXAM+6, EXAM+7, EXAM+8, EXAM+9, EXAM+10, EXAM+11, EXIT+2!
RARPTNP EXAM+6*, EXIT+2!
RATDAY PUROK~, PUROK+8, PUROK+9, PUROK+11, PUROK+12, PUROK+15, PUROK+17
RAX START+4*, START+5, START+6, STAT+1!*, STAT+2, STAT+3, STAT+4, STAT+5, EXIT+2!
U START+5, START+6, STAT+1
X START+5, START+6, EXIT+2!, DELORD+4~
X1 START+5*, START+6*, EXIT+4!
X2 START+5*, START+6*, EXIT+4!
Y START+1*, STAT*, EXIT+4!, DELORD+4~
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