Routine: SDRRCLR2

Information

SDRRCLR2 ;10N20/MAH- Recall Reminder ENTER EDIT 9/28/04

Name	Comments	DBIA/ICR reference
STR	;Start checking entries in 403.5 if there is a "b" goes to update - if not goes to NEW
EN1
NEW	;Adds new entry
DELETE	;SD*566 user timed out, delete new incomplete record and display message
UPDATE	;Asks for new data
QUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Clinic Recall on file",! Line Location: STR+7
Function Call: WRITE	Prompt: !,?5,$G(COMM) Line Location: EN1+11
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN1+12
Function Call: READ	Variable: X Timeout: 3 Line Location: EN1+22
Function Call: WRITE	Prompt: !,?25,"YOU DO NOT HAVE ACCESS TO THIS ENTRY",!,?12,"PLEASE CHECK WITH YOUR ADPAC OR IRM TO GET THE PROPER SECURITY KEY" Line Location: EN1+22
Function Call: WRITE	Prompt: !!,"*Must have Recall Date,approved Recall Clinic,Recall Provider and Type of Recall" Line Location: NEW+1
Function Call: WRITE	Prompt: !!,7," ALL REQUIRED DATA WAS NOT ENTERED. ",!," RECALL REMINDER NOT CREATED FOR PATIENT: ",$P(^DPT(DFN,0),U,1),". *" Line Location: DELETE+3