Routine: RARESTOR

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

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

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, 70, 701 , 702, 703, 703+2, 703+3, 703+4, 703+5, 74, 741, 741+2, 741+3 , 741+4, 741+5

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

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

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, 702, 703, 703+2, 703+3, 703+4, 703+5
>> RADTDONE	RARESTOR+11*, RARESTOR+13
>> RADTI	701, 702, 703, 703+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