; RA1= : for-loop var which happens to be the CASE NUMBER (70.03; .01)
; RA2= : (1) ien for 70.03 (2) also, pointer value to file #74
; RA3= : holds earliest case with pointer value to file #74
; RA4= : (ienof #70.03)=case number^procedure pointers^ptr #74
; RA5=0 : all cases in set point to same non-null rarpt() or all null
; regardless of cancelled status
; RA5<>0: one or more cases in set point to different rarpt()
; RA6= : pointer to file #72 examination status
; RA7=1 : denote call of LOOP1 came from EN2 and not from EN1
; When an exam is cancelled & it is associated
; with data in the Nuc Med Exam Data file (70.2) ask the user if this
; pointer to 70.2 is to be deleted. Also delete the flag which
; indicates that the dosage ticket had printed for this exam.
; Called from CANCEL^RAEDCN
; Input: RADFN - Internal Entry Number (IEN) of the Patient.
; RADTI - Date/Time of the examination (inverse format)
; RACNI - IEN of the exam for this date/time
Prompt: !!?3,"Enter 'Yes' to delete the radiopharmaceutical data associated with this exam.",!?3,"Enter 'No' to preserve the radiopharmaceutical data associated with this",!?3,"exam. "
Line Location: DELPNT+30
Function Call: WRITE
Prompt: "Enter '^' to exit without deleting the radiopharmaceutical data",!?3,"associated with this exam.",$C(7)