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 ---[H[J[2J[HSRCUSS5 393 printed Dec 13, 2024@02:39:11 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
