Routine: SDB0

Information

SDB0 ;FLA/RF,BSN/GRR,ALB/LDB - PATTERN VALIDATION FOR CLINIC; 11 FEB 88@1200

Source file <SDB0.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?37,$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,DOW+1),"DAY",! Line Location: EN1+2
Function Call: READ	Formatting: !!?2 Prompt: "TIME: " Variable: X Timeout: DTIME Line Location: G2+0
Function Call: WRITE	Prompt: " [ LIKE 0800-1200 ]" Line Location: G2+0
Function Call: WRITE	Prompt: " [ CANNOT BE EARLIER THAN CLINIC START TIME ]" Line Location: G2+6
Function Call: WRITE	Prompt: " [ MUST BEGIN AFTER LAST ENDING TIME ]" Line Location: G2+7
Function Call: WRITE	Prompt: " [ MUST END AFTER BEGIN TIME ]" Line Location: G2+8
Function Call: WRITE	Prompt: " [ TIME SPAN ENTERED NOT CONSISTENT WITH ",SLT," MIN APPT LENGTH ]" Line Location: G2+10
Function Call: READ	Prompt: " NO. SLOTS: 1// " Variable: NSL Timeout: DTIME Line Location: G3+0
Function Call: WRITE	Prompt: *7," ??" Line Location: G3+0
Function Call: WRITE	Prompt: *7,!,"DELETE " Line Location: G5+5
Function Call: WRITE	Prompt: !,X,!,"...PATTERN " Line Location: G5+8
Function Call: WRITE	Prompt: *7,"TOO WIDE TO FIT ON 80-CHAR SCREEN!" Line Location: G5+8
Function Call: WRITE	Prompt: "OK FOR " Line Location: G5+9
Function Call: WRITE	Prompt: " [ MUST SCHEDULE APPTS ON 5 MIN BOUNDARIES ]" Line Location: W5+0
Function Call: WRITE	Prompt: " [ MUST ENTER VALID MILITARY TIME FORMATS ]" Line Location: WMIL+0