Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call