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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RARESTOR

Package: Radiology Nuclear Medicine

Routine: RARESTOR


Information

RARESTOR ;HISC/SWM-Recover Purged Rad/NM Report/Exam only

Source Information

Source file <RARESTOR.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SET ;Set nodes by using recovered data from ^XTMP("RARECOV"
70
701
702
703
74
741
TW
DONE
Q ;K RA1,RADFN,RADTI,RACNI,RARPT

External References

Name Field # of Occurrence
DD^%DT RARESTOR+11, RARESTOR+26
NOW^%DTC SET+1
^DIR RARESTOR+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"^XTMP(""RARECOV"") doesn't exist -- there's no data to recover!"
  • Line Location: RARESTOR+4
Function Call: WRITE
  • Prompt: !,?7,"Radiology "
  • Line Location: RARESTOR+8
Function Call: WRITE
  • Prompt: $S(RA3:"reports and exams",RA2:"exams",1:"reports")," were purged."
  • Line Location: RARESTOR+8
Function Call: WRITE
  • Prompt: !!,?7,"The purged data were recovered"
  • Line Location: RARESTOR+25
Function Call: WRITE
  • Prompt: !,?7,"on ",Y," to ^XTMP(""RARECOV"")"
  • Line Location: RARESTOR+27
Function Call: WRITE
  • Prompt: !!,"This routine will restore the recovered data into the appropriate records."
  • Line Location: RARESTOR+28
Function Call: WRITE
  • Prompt: !!,"-- Nothing Done --"
  • Line Location: RARESTOR+32
Function Call: WRITE
  • Prompt: !!,"Restoring data to exams/reports",!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: 703+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: 741+1
Function Call: WRITE
  • Prompt: X
  • Line Location: TW+0
Function Call: WRITE
  • Prompt: !!,"Data have been restored."
  • Line Location: DONE+0
Routine Call
  • DIR
  • Line Location:
    • RARESTOR+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] RARESTOR+12
^RADPT - [#70] 703+2*, 703+3*, 703+4*, 703+5*
^RARPT - [#74] 741+2*, 741+3*, 741+4*, 741+5*
^XTMP("RARECOV" RARESTOR+4, RARESTOR+6, RARESTOR+9, RARESTOR+11, RARESTOR+17, RARESTOR+21, RARESTOR+22, RARESTOR+26, 70701
702703703+2, 703+3, 703+4, 703+5, 74741741+2, 741+3
741+4, 741+5

Label References

Name Line Occurrences
701 702
702 703
703 703+6
74 70701
741 741+6
DONE 74741
Q RARESTOR+4, RARESTOR+32
TW RARESTOR+17, RARESTOR+18, RARESTOR+19, RARESTOR+20

Naked Globals

Name Field # of Occurrence
^( RARESTOR+11, RARESTOR+18, RARESTOR+19, RARESTOR+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET+1
>> DIR("A" RARESTOR+30*
>> DIR("B" RARESTOR+31*
>> DIR(0 RARESTOR+30*
DTIME RARESTOR+3*
>> RA1 RARESTOR+5*, RARESTOR+6*, RARESTOR+7
>> RA2 RARESTOR+5*, RARESTOR+6*, RARESTOR+7, RARESTOR+8
>> RA3 RARESTOR+5*, RARESTOR+7*, RARESTOR+8
>> RACNI 702*, 703*, 703+2, 703+3, 703+4, 703+5
>> RADFN 70+1*, 701*, 702703703+2, 703+3, 703+4, 703+5
>> RADTDONE RARESTOR+11*, RARESTOR+13
>> RADTI 701*, 702*, 703703+2, 703+3, 703+4, 703+5
>> RAEX 703+2*, 703+3*, 703+4*
>> RAIEN RARESTOR+9*, RARESTOR+10, RARESTOR+11, RARESTOR+12, RARESTOR+17, RARESTOR+18, RARESTOR+19, RARESTOR+20, RARESTOR+21, RARESTOR+22
>> RANOW SET+1*
>> RANUM RARESTOR+11*, RARESTOR+13
>> RAPUR( RARESTOR+10*
>> RARPT 74+1*, 741*, 741+2, 741+3, 741+4, 741+5
>> X RARESTOR+17*, RARESTOR+18*, RARESTOR+19*, RARESTOR+20*, TW*
>> Y RARESTOR+11*, RARESTOR+26*, RARESTOR+27, RARESTOR+32
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All