Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SRCUSS5

SRCUSS5.m

Go to the documentation of this file.

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. "

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