source: WorldVistAEHR/trunk/r/SURGERY-SR/SROANIN.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SROANIN ;B'HAM ISC/MAM - ENTER ANESTHESIA AMIS INFO; [ 01/29/01 9:15 PM ]
2 ;;3.0; Surgery ;**38,52,67,100**;24 Jun 93
3BEG W:'$D(SRTN) !!,"An operation must be selected !",! G:'$D(SRTN) END D ^SROLOCK G:SROLOCK END
4 W @IOF,!!,"The following information is required for the Anesthesia AMIS and for Risk",!,"Assessment.",!
5 I '$$LOCK^SROUTL(SRTN) G END
6 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
7 I $D(SRODR) D ^SROCON1
8MORE W !!,"Would you like to enter additional anesthesia related information ? NO// " R X:DTIME S:'$T X="^"
9 S:X="" X="N" S X=$E(X) I X="^" G END
10 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
11 S:X="" X="N" S X=$E(X) I "Nn"[X W @IOF G END
12 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
13 D UNLOCK^SROUTL(SRTN)
14 S SROERR=SRTN D ^SROERR0
15END D ^SRSKILL
16 Q
17RT ; start RT logging
18 I $D(XRTL) S XRTN="SROANIN" D T0^%ZOSV
19 Q
Note: See TracBrowser for help on using the repository browser.