- 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
