15 lines
643 B
Mathematica
15 lines
643 B
Mathematica
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
|