SROANIN.m

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

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