Prompt: !?5,"Answer YES to cause a lookup into this file to verify the",!?5,"selection by prompting with '...OK? YES//'."
Line Location: OK+4
Function Call: WRITE
Prompt: $C(7)," CANNOT DELETE A RESTRICTED"_$S($P($G(^("DI")),U)["Y":" (ARCHIVE)",1:"")_" FILE!"
Line Location: K+3
Function Call: WRITE
Prompt: $C(7),!,"DO YOU WANT JUST TO DELETE THE "
Line Location: H+0
Function Call: WRITE
Prompt: $P(DG,U,4)," FILE ENTRIES,"
Line Location: H+1
Function Call: WRITE
Prompt: "FILE CONTENTS,"
Line Location: H+2
Function Call: WRITE
Prompt: !?9,"& KEEP THE FILE DEFINITION"
Line Location: H+3
Function Call: WRITE
Prompt: !,"Answer YES if you are just looking for a fast way to get rid of Entries",!!
Line Location: H+4
Function Call: WRITE
Prompt: !?3,"IS IT OK TO DELETE THE '"_DIKREF_"' GLOBAL"
Line Location: G+1
Function Call: WRITE
Prompt: !,"You can abort the deletion process at this point by typing '^'",!,"Answer NO if you want to save ",DIKREF," for redefinition at a later time.",!!
Line Location: G+2
Function Call: WRITE
Prompt: !,"SURE YOU WANT TO DELETE THE ENTIRE FILE"
Line Location: SURE+2
Function Call: WRITE
Prompt: !,"We are going to ",$S($D(DIKLGLBL):"Delete data associated with File #"_DA,1:"Leave the data associated with File #"_DA)
Line Location: SURE+4
Function Call: WRITE
Prompt: !,"Answer YES if want to continue with the DELETION of the DD, Templates, Forms,"
Line Location: SURE+5
Function Call: WRITE
Prompt: !,"etc. for File #"_DA
Line Location: SURE+6
Function Call: WRITE
Prompt: "// "
Line Location: RW+1
Function Call: READ
Timeout: DTIME
Variable: X
Line Location: R+0
Function Call: WRITE
Prompt: $C(7)," PROTECTION ERASED!"
Line Location: R+1
Function Call: WRITE
Prompt: !,"ENTER CODE(S) TO RESTRICT USER'S ACCESS TO THIS FILE"