SRSCHC2.m

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

SRSCHC2   ;B'HAM ISC/MAM - SCHEDULING INFO FOR CONCURRENT CASES ; [ 04/26/97  3:07 PM ]

 +1       ;;3.0; Surgery ;**67,107**;24 Jun 93

 +2       ;

 +3       ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498

 +4       ;

 +5        DO ^SROBLOD

           KILL DR,DIE,DA

           SET DR="38////"_BLOOD_";40////"_CROSSM

           SET DA=SRTN

           SET DIE=130

           DO ^DIE

           KILL DR,DA,DIE

 +6        DO RT

           KILL DR,SRODR,SRNOCON

           SET DA=SRTN

           SET DIE=130

           SET DR="[SRSRES2]"

           SET DA=SRTN

           DO ^DIE

           SET DIE=130

           SET DR="[SRSRES-SCHED]"

           SET DA=SRTN

           SET SPD=$$CHKS^SRSCOR(SRTN)

           DO EN2^SROVAR

           KILL Q3("VIEW")

           DO ^SRCUSS

           KILL DR

 +7        IF SPD'=$$CHKS^SRSCOR(SRTN)

               SET ^TMP("CSLSUR1",$JOB)=""

 +8        SET SROERR=SRTN

           DO ^SROERR0

 +9        IF $DATA(SRODR)

               SET SRNOCON=1

               DO ^SROCON1

 +10       QUIT 

RT        ; start RT logging

 +1        IF $DATA(XRTL)

               SET XRTN="SRSCHC2"

               DO T0^%ZOSV

 +2        QUIT