SRSIND ;B'HAM ISC/MAM - INDICATIONS FOR OPERATION ; 14 NOV 1989 12:35
;;3.0; Surgery ;;24 Jun 93
W !!,"Please enter a brief statement of the indications for this operative",!,"procedure. It is mandatory that you provide this information before",!,"proceeding with this request."
ASK W !!,"Do you want to continue with this request ? YES// " R SRYN:DTIME I '$T!(SRYN="^") K SRTN Q
S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
I "YyNn"'[SRYN W !!,"Enter RETURN to re-enter the indications for operation and continue with this",!,"request, or 'NO' if you do not want to continue with the request." G ASK
I "Yy"[SRYN Q
S DA=SRTN,DIK="^SRF(" D ^DIK K SRTN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRSIND 663 printed Oct 16, 2024@18:48:09 Page 2
SRSIND ;B'HAM ISC/MAM - INDICATIONS FOR OPERATION ; 14 NOV 1989 12:35
+1 ;;3.0; Surgery ;;24 Jun 93
+2 WRITE !!,"Please enter a brief statement of the indications for this operative",!,"procedure. It is mandatory that you provide this information before",!,"proceeding with this request."
ASK WRITE !!,"Do you want to continue with this request ? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN="^")
KILL SRTN
QUIT
+1 SET SRYN=$EXTRACT(SRYN)
if SRYN=""
SET SRYN="Y"
+2 IF "YyNn"'[SRYN
WRITE !!,"Enter RETURN to re-enter the indications for operation and continue with this",!,"request, or 'NO' if you do not want to continue with the request."
GOTO ASK
+3 IF "Yy"[SRYN
QUIT
+4 SET DA=SRTN
SET DIK="^SRF("
DO ^DIK
KILL SRTN
+5 QUIT
