| [613] | 1 | SROUTED ;B'HAM ISC/MAM - EDIT UTILIZATION TIMES ; [ 09/22/98 11:36 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**77,50**;24 Jun 93
|
|---|
| 3 | START W @IOF,!,"Update Start and End Times for Operating Rooms",! K %DT S %DT="AEPX",%DT("A")="Update Times for which Date ? " D ^%DT I Y<0 G END
|
|---|
| 4 | S SRUL="" F I=1:1:80 S SRUL=SRUL_"-"
|
|---|
| 5 | S SRSDATE=+Y D D^DIQ S SRSDT=Y I '$D(^SRU(SRSDATE)) D STUFF
|
|---|
| 6 | OR W @IOF,!,"Operating Room Utilization on "_SRSDT,!,SRUL,! K DIC,DA
|
|---|
| 7 | S DIC("S")="I $$ORDIV^SROUTL0(+Y,$G(SRSITE(""DIV""))),('$P(^SRS(+Y,0),U,6))",DIC="^SRS(",DIC(0)="QEAMZ",DIC("A")="Update Start and End Times for which Operating Room ? " D ^DIC K DIC I Y<0 G:$D(DTOUT)!$D(DUOUT) END G START
|
|---|
| 8 | S SROR=+Y
|
|---|
| 9 | W ! K DIE,DA,DR S DA(1)=SRSDATE,DA=SROR,DIE="^SRU(SRSDATE,1,",DR="1T;2T;3T" D ^DIE K DR G:$D(DTOUT)!$D(DUOUT) END
|
|---|
| 10 | G OR
|
|---|
| 11 | END D ^SRSKILL W @IOF
|
|---|
| 12 | Q
|
|---|
| 13 | STUFF ; stuff operating rooms and specialties
|
|---|
| 14 | S Y=SRSDATE D D^DIQ S SRDT=Y
|
|---|
| 15 | K DA,DIC,DD,DO,DINUM,SRTN S (X,DINUM)=SRSDATE,DIC="^SRU(",DIC(0)="L",DLAYGO=131.8 D FILE^DICN K DIC,DLAYGO
|
|---|
| 16 | S ^SRU(SRSDATE,1,0)="^131.81PA^0^0"
|
|---|
| 17 | S SROR=0 F S SROR=$O(^SRS(SROR)) Q:'SROR I '$P(^(SROR,0),"^",6) S X1=SRSDATE,X2=-7 D C^%DTC S SRDTOLD=X,SRDTNEW=SRSDATE D OR^SROUTUP
|
|---|
| 18 | Q
|
|---|
