Prompt: !!,"This routine will DELETE both the data and data dictionary",!,"of the ICD Diagnosis (file 80) and ICD Operation/",!,"Procedure (file 80.1) files!!"
Line Location: ICDPREV+8
Function Call: READ
Prompt: "Are you sure you want to do this? NO//"
Formatting: !!
Timeout: DTIME
Variable: X
Line Location: RD+0
Function Call: WRITE
Prompt: !,"Routine completed, data and dictionaries deleted!"
Line Location: RD+4
Function Call: WRITE
Prompt: !!,*7,"Nothing Deleted!"
Line Location: DONT+0
Function Call: WRITE
Prompt: !!,"Answer 'Yes' if you want to delete the data and dictionaries, otherwise",!,"answer 'No'"