SRCUSS5.m

SRCUSS5 ;B'HAM ISC/MAM - SCREEN SERVER HELP ; [ 03/11/02  13:45 PM ]

 ;;3.0; Surgery ;**66,108**;24 Jun 93

QUES Q:$D(Q3("VIEW"))  W !!,"Enter "_Q(1,Q)_"N to enter only the top level of this multiple, or the number",!,"of your choice followed by an 'R' to make a duplicate entry.",!

 W !,"Press <RET> to continue  " R SRQUIT:DTIME I SRQUIT["?" W !!,"No need to ask, we will continue. "

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SRCUSS5   393     printed  Oct 16, 2024@18:39:51                                                                                                                                                                                                      Page 2

SRCUSS5   ;B'HAM ISC/MAM - SCREEN SERVER HELP ; [ 03/11/02  13:45 PM ]

 +1       ;;3.0; Surgery ;**66,108**;24 Jun 93

QUES       if $DATA(Q3("VIEW"))

               QUIT 

           WRITE !!,"Enter "_Q(1,Q)_"N to enter only the top level of this multiple, or the number",!,"of your choice followed by an 'R' to make a duplicate entry.",!

 +1        WRITE !,"Press <RET> to continue  "

           READ SRQUIT:DTIME

           IF SRQUIT["?"

               WRITE !!,"No need to ask, we will continue. "

 +2        QUIT