Routine: SRSCHD

Information

SRSCHD ;B'HAM ISC/MAM - SCHEDULING UNREQUESTED CASES ; Feb 25, 2002@07:27

Source file <SRSCHD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: BEG+1
Function Call: WRITE	Prompt: !!,"The schedule cannot be updated without a date.",!! Line Location: BEG+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: BEG+3
Function Call: WRITE	Prompt: !!,"Reservations cannot be made for dates in the past. Please select another date.",!!,"Press RETURN to continue " Line Location: BEG+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: BEG+5
Function Call: WRITE	Prompt: !!,"Scheduling not allowed for "_$S(SRDAY=1:"SUNDAY",SRDAY=2:"MONDAY",SRDAY=3:"TUESDAY",SRDAY=4:"WEDNESDAY",SRDAY=5:"THURSDAY",SRDAY=6:"FRIDAY",1:"SATURDAY")_" !!",!!!,"Press RETURN to continue " Line Location: BEG+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: BEG+7
Function Call: WRITE	Prompt: !!,"Scheduling not allowed for "_$G(SRY(40.5,SRSDATE,2,"E"))_" !!",!!!,"Press RETURN to continue " Line Location: BEG+7
Function Call: WRITE	Prompt: ! Line Location: BEG+9
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",! Line Location: BEG+10
Function Call: WRITE	Prompt: !!,"No surgical case has been scheduled.",! Line Location: OR+2
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !!,"To create a surgical case, a surgeon MUST be selected. Enter '^' to exit.",! Line Location: SURG+2