SROANIN ;B'HAM ISC/MAM - ENTER ANESTHESIA AMIS INFO; [ 01/29/01 9:15 PM ]
;;3.0; Surgery ;**38,52,67,100**;24 Jun 93
BEG W:'$D(SRTN) !!,"An operation must be selected !",! G:'$D(SRTN) END D ^SROLOCK G:SROLOCK END
W @IOF,!!,"The following information is required for the Anesthesia AMIS and for Risk",!,"Assessment.",!
I '$$LOCK^SROUTL(SRTN) G END
K DR,SRODR S DR="[SROANES-AMIS]",DIE=130,DA=SRTN D ^DIE K DR S Y=$P($G(^SRF(SRTN,.3)),"^",9) I Y S C=$P(^DD(130,901,0),"^",2) D Y^DIQ W !,"Airway Index: "_Y
I $D(SRODR) D ^SROCON1
MORE W !!,"Would you like to enter additional anesthesia related information ? NO// " R X:DTIME S:'$T X="^"
S:X="" X="N" S X=$E(X) I X="^" G END
I X["?"!("NnYy"'[X) W !!,"If you would like to enter anesthesia information in addition to what is",!,"required for the Anesthesia AMIS, enter 'YES'. Enter RETURN to leave this",!,"option.",!! G MORE
S:X="" X="N" S X=$E(X) I "Nn"[X W @IOF G END
D RT K DR,DIC S DIE=130,DA=SRTN,DR="[SROMEN-ANES]",ST="ANESTHESIA INFO" D EN2^SROVAR,^SRCUSS I $D(SRODR) D ^SROCON1
D UNLOCK^SROUTL(SRTN)
S SROERR=SRTN D ^SROERR0
END D ^SRSKILL
Q
RT ; start RT logging
I $D(XRTL) S XRTN="SROANIN" D T0^%ZOSV
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROANIN 1195 printed Nov 22, 2024@17:51:08 Page 2
SROANIN ;B'HAM ISC/MAM - ENTER ANESTHESIA AMIS INFO; [ 01/29/01 9:15 PM ]
+1 ;;3.0; Surgery ;**38,52,67,100**;24 Jun 93
BEG if '$DATA(SRTN)
WRITE !!,"An operation must be selected !",!
if '$DATA(SRTN)
GOTO END
DO ^SROLOCK
if SROLOCK
GOTO END
+1 WRITE @IOF,!!,"The following information is required for the Anesthesia AMIS and for Risk",!,"Assessment.",!
+2 IF '$$LOCK^SROUTL(SRTN)
GOTO END
+3 KILL DR,SRODR
SET DR="[SROANES-AMIS]"
SET DIE=130
SET DA=SRTN
DO ^DIE
KILL DR
SET Y=$PIECE($GET(^SRF(SRTN,.3)),"^",9)
IF Y
SET C=$PIECE(^DD(130,901,0),"^",2)
DO Y^DIQ
WRITE !,"Airway Index: "_Y
+4 IF $DATA(SRODR)
DO ^SROCON1
MORE WRITE !!,"Would you like to enter additional anesthesia related information ? NO// "
READ X:DTIME
if '$TEST
SET X="^"
+1 if X=""
SET X="N"
SET X=$EXTRACT(X)
IF X="^"
GOTO END
+2 IF X["?"!("NnYy"'[X)
WRITE !!,"If you would like to enter anesthesia information in addition to what is",!,"required for the Anesthesia AMIS, enter 'YES'. Enter RETURN to leave this",!,"option.",!!
GOTO MORE
+3 if X=""
SET X="N"
SET X=$EXTRACT(X)
IF "Nn"[X
WRITE @IOF
GOTO END
+4 DO RT
KILL DR,DIC
SET DIE=130
SET DA=SRTN
SET DR="[SROMEN-ANES]"
SET ST="ANESTHESIA INFO"
DO EN2^SROVAR
DO ^SRCUSS
IF $DATA(SRODR)
DO ^SROCON1
+5 DO UNLOCK^SROUTL(SRTN)
+6 SET SROERR=SRTN
DO ^SROERR0
END DO ^SRSKILL
+1 QUIT
RT ; start RT logging
+1 IF $DATA(XRTL)
SET XRTN="SROANIN"
DO T0^%ZOSV
+2 QUIT
