; THIS ENTRY POINT WILL CLEAR XTRACT FLAG IN ALL FLUORIDE SURVEILLANCE
; RECORDS
ASK
;
RESET2
;EP
; THIS ENTRY EXPECTS ADEFDV AND RESETS THE CORRESPONDING
; FLAGS
RESET1
; THIS ENTRY POINT WILL ASK FOR A DATE FOR WHICH THE
; XTRACT FLAG IS TO BE RESET
; Entry point not called from within dental package. For programmer
; diagnostic and troubleshooting use only.
Prompt: !!,"This routine (ADEFFLG) should not be entered at the top.",!!
Line Location: ADEFFLG+2
Function Call: WRITE
Prompt: !!,"This will clear ALL date stamps from ALL records in the FLUORIDE",!,"SURVEILLANCE file from which data has been extracted.",!,"Stop now if you're not sure what you're doing.",!
Line Location: RESETA+3
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.",!