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

Package: Radiology Nuclear Medicine

Routine: RARECOV


Information

RARECOV ;HISC/SWM-Recover Purged Rad/NM Report/Exam only ;4/17/03 09:39

Source Information

Source file <RARECOV.m>

Entry Points

Name Comments DBIA/ICR reference
EXAM ;Copy backup exam/report data
INSTRC ;
NOTDONE
Q ;K CNT,I,J,RADD,RADT,RAGET70,RAGET74,RAI,RAIEN,RAPRMPT,RAPUR,RAX
TOTALS ;
ASKDT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"^XTMP(""RARECOV"") exists, you must delete this before",!,"you can run another recovery.",!!
  • Line Location: RARECOV+4
Function Call: WRITE
  • Prompt: !,$P($T(INSTRC+I),";;",2)
  • Line Location: RARECOV+6
Function Call: WRITE
  • Prompt: !!?12,"IMAGING TYPES",!?12,"-------------",!
  • Line Location: RARECOV+12
Function Call: WRITE
  • Prompt: !?3,CNT,") ",I
  • Line Location: RARECOV+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RARECOV+14
Function Call: WRITE
  • Prompt: !
  • Line Location: RARECOV+29
Function Call: WRITE
  • Prompt: !!,"Recovering ",$S(RAGET70&RAGET74:"Exam and Report",RAGET70:"Exam",RAGET74:"Report",1:"?")," data from backup to ^XTMP(""RARECOV"".",!
  • Line Location: EXAM+3
Function Call: WRITE
  • Prompt: !!,"-- Nothing Done --"
  • Line Location: NOTDONE+0
Function Call: WRITE
  • Prompt: !!,"Imaging Type: ",$P($G(^RA(79.2,RAIEN,0)),"^"),!
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !?5,"No. of exam records recovered : ",$P(RAPUR(RAIEN),"^",6)
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !?5,"No. of reports recovered : ",$P(RAPUR(RAIEN),"^",7)
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !!?7,"Cut-off Date Selection **** ",$P(^RA(79.2,RAIEN,0),"^")," ****"
  • Line Location: ASKDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDT+2
Function Call: WRITE
  • Prompt: !?7,"The default value can be changed as needed."
  • Line Location: ASKDT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDT+18
Info |  Source |  Entry Points |  Interaction Calls