source: FOIAVistA/tag/r/SURGERY-SR/SRSCHC2.m@ 1746

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

initial load of FOIAVistA 6/30/08 version

File size: 643 bytes
Line 
1SRSCHC2 ;B'HAM ISC/MAM - SCHEDULING INFO FOR CONCURRENT CASES ; [ 04/26/97 3:07 PM ]
2 ;;3.0; Surgery ;**67,107**;24 Jun 93
3 ;
4 ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498
5 ;
6 D ^SROBLOD K DR,DIE,DA S DR="38////"_BLOOD_";40////"_CROSSM,DA=SRTN,DIE=130 D ^DIE K DR,DA,DIE
7 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
8 I SPD'=$$CHKS^SRSCOR(SRTN) S ^TMP("CSLSUR1",$J)=""
9 S SROERR=SRTN D ^SROERR0
10 I $D(SRODR) S SRNOCON=1 D ^SROCON1
11 Q
12RT ; start RT logging
13 I $D(XRTL) S XRTN="SRSCHC2" D T0^%ZOSV
14 Q
Note: See TracBrowser for help on using the repository browser.