|
Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
643 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
