Last change
on this file since 1641 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
643 bytes
|
Line | |
---|
1 | SRSCHC2 ;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
|
---|
12 | RT ; 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.