SROOPRM1.m

SROOPRM1 ;B'HAM ISC/KKA ; UPDATE NORMAL O.R. HOURS ; 28 SEPT 1992 11:48 am

 ;;3.0; Surgery ;;24 Jun 93

HELP ; help message for incorrect responses

 W @IOF,!,?8,"Enter the number or range of numbers you want to edit.",!,?8,"Examples of proper responses are listed below:",!!,?12,"1. Enter ""A"" to update all information.",!!,?12,"2. Enter a number (1-3) to update information"

 W !,?12,"   in that field.  (For example, enter ""2"" to",!,?12,"   update the Normal End Time.)",!!,?12,"3. Enter a range of numbers (1-3) separated",!,?12,"   by a "":"" to enter a range of information."

 W !,?12,"   (For example, enter ""1:2"" to update Normal",!,?12,"   Start Time and Normal End Time.)"

 W !!,?12,"4. Press RETURN to edit the next consecutive",!,?12,"   day of the week."

 W !!,?12,"5. Enter an ""^"" followed by a day of the week",!,?12,"   to edit that particular day.  (For example,",!,?12,"   enter ""^Friday"" to edit Friday's schedule)"

 W !!,?8,"Press RETURN to continue or ""^"" to quit: " R SRCON:DTIME I '$T!(SRCON["^") S SRSOUT=1

 Q

T ; select TUESDAY or THURSDAY

 W !!,"Update information for Tuesday or Thursday ?  TUESDAY//   " R X:DTIME Q:'$T!("^")

 S:X="" X="TU" S X=$E(X,1,2) I X'="TU",X'="TH" W !!,"Enter 'TU' to update information for Tuesday, or 'TH' to update information",!,"for Thursday." G T

 Q

S ; select SATURDAY or SUNDAY

 W !!,"Update information for Saturday or Sunday ?  SATURDAY//   " R X:DTIME Q:'$T!("^")

 S:X="" X="SA" S X=$E(X,1,2) I X'="SA",X'="SU" W !!,"Enter 'SA' to update information for Saturday, or 'SU' to update information",!,"for Sunday." G S

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROOPRM1   1610     printed  Apr 09, 2024@21:49:43                                                                                                                                                                                                    Page 2

SROOPRM1  ;B'HAM ISC/KKA ; UPDATE NORMAL O.R. HOURS ; 28 SEPT 1992 11:48 am

 +1       ;;3.0; Surgery ;;24 Jun 93

HELP      ; help message for incorrect responses

 +1        WRITE @IOF,!,?8,"Enter the number or range of numbers you want to edit.",!,?8,"Examples of proper responses are listed below:",!!,?12,"1. Enter ""A"" to update all information.",!!,?12,"2. Enter a number (1-3) to update information"

 +2        WRITE !,?12,"   in that field.  (For example, enter ""2"" to",!,?12,"   update the Normal End Time.)",!!,?12,"3. Enter a range of numbers (1-3) separated",!,?12,"   by a "":"" to enter a range of information."

 +3        WRITE !,?12,"   (For example, enter ""1:2"" to update Normal",!,?12,"   Start Time and Normal End Time.)"

 +4        WRITE !!,?12,"4. Press RETURN to edit the next consecutive",!,?12,"   day of the week."

 +5        WRITE !!,?12,"5. Enter an ""^"" followed by a day of the week",!,?12,"   to edit that particular day.  (For example,",!,?12,"   enter ""^Friday"" to edit Friday's schedule)"

 +6        WRITE !!,?8,"Press RETURN to continue or ""^"" to quit: "

           READ SRCON:DTIME

           IF '$TEST!(SRCON["^")

               SET SRSOUT=1

 +7        QUIT 

T         ; select TUESDAY or THURSDAY

 +1        WRITE !!,"Update information for Tuesday or Thursday ?  TUESDAY//   "

           READ X:DTIME

           if '$TEST!("^")

               QUIT 

 +2        if X=""

               SET X="TU"

           SET X=$EXTRACT(X,1,2)

           IF X'="TU"

               IF X'="TH"

                   WRITE !!,"Enter 'TU' to update information for Tuesday, or 'TH' to update information",!,"for Thursday."

                   GOTO T

 +3        QUIT 

S         ; select SATURDAY or SUNDAY

 +1        WRITE !!,"Update information for Saturday or Sunday ?  SATURDAY//   "

           READ X:DTIME

           if '$TEST!("^")

               QUIT 

 +2        if X=""

               SET X="SA"

           SET X=$EXTRACT(X,1,2)

           IF X'="SA"

               IF X'="SU"

                   WRITE !!,"Enter 'SA' to update information for Saturday, or 'SU' to update information",!,"for Sunday."

                   GOTO S

 +3        QUIT