Routine: RARESTOR

Information

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

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

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