SRSCHC2 ;B'HAM ISC/MAM - SCHEDULING INFO FOR CONCURRENT CASES ; [ 04/26/97  3:07 PM ]
 ;;3.0; Surgery ;**67,107**;24 Jun 93
 ;
 ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498
 ;
 D ^SROBLOD K DR,DIE,DA S DR="38////"_BLOOD_";40////"_CROSSM,DA=SRTN,DIE=130 D ^DIE K DR,DA,DIE
 D RT K DR,SRODR,SRNOCON S DA=SRTN S DIE=130,DR="[SRSRES2]",DA=SRTN D ^DIE S DIE=130,DR="[SRSRES-SCHED]",DA=SRTN S SPD=$$CHKS^SRSCOR(SRTN) D EN2^SROVAR K Q3("VIEW") D ^SRCUSS K DR
 I SPD'=$$CHKS^SRSCOR(SRTN) S ^TMP("CSLSUR1",$J)=""
 S SROERR=SRTN D ^SROERR0
 I $D(SRODR) S SRNOCON=1 D ^SROCON1
 Q
RT ; start RT logging
 I $D(XRTL) S XRTN="SRSCHC2" D T0^%ZOSV
 Q