; THIS ENTRY POINT WILL CLEAR DPSC FLAG IN ALL RECORDS
; Entry point not called from within dental package. For programmer
; diagnostic and troubleshooting use only.
ASK
;
RESET2
;EP
; THIS ENTRY EXPECTS ADERDV AND REMOVES THE CORRESPONDING
; EXTRACT FLAGS - Called by "Re-extraction" process of ADEXSU
RESET1
; THIS ENTRY POINT WILL ASK FOR A DATE FOR WHICH THE
; DPSC FLAG IS TO BE RESET
; Entry point not called from within dental package. For programmer
; diagnostic and troubleshooting use only.
Prompt: !!,"This routine (ADERFLG) should not be entered at the top.",!!
Line Location: ADERFLG+3
Function Call: WRITE
Prompt: !!,"This will clear date stamps for ALL records from which data has been extracted.",!
Line Location: RESETA+4
Function Call: READ
Prompt: "Ok to continue? N// "
Timeout: DTIME
Variable: X
Line Location: ASK+1
Function Call: WRITE
Prompt: !,"Records from which data has been extracted are marked with the date the",!,"extraction was performed so that they will not be processed again for",!,"transmission to Area/DPSB. You will lose that indicator if you proceed.",!