| 1 | SRODATE ;B'HAM ISC/MAM - CLEAN UP X-REFS, DATE CHANGE ; 30 SEPT 1991 8:23 AM
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | SCH ; update schedule
|
|---|
| 4 | I $D(SRNOREQ) Q
|
|---|
| 5 | I $D(^SRF(DA,31)),$P(^(31),"^",4) S MOE=$P(^(31),"^",4),SHEMP=$E(MOE,1,7) I SHEMP'=$E(X,1,7) K X
|
|---|
| 6 | I $D(X) Q
|
|---|
| 7 | S ROOM=$P(^SRF(DA,0),"^",2) I ROOM S ROOM=$P(^SRS(ROOM,0),"^"),ROOM=$P(^SC(ROOM,0),"^")
|
|---|
| 8 | W !!,"This case has already been scheduled on "_$E(SHEMP,4,5)_"/"_$E(SHEMP,6,7)_"/"_$E(SHEMP,2,3)_" in "_ROOM_".",!,"To update the date of operation, you must cancel the case"
|
|---|
| 9 | W !,"using the option 'Cancel Scheduled Operation', or reschedule",!,"the case using the option 'Reschedule or Update a Scheduled",!,"Operation'. Both options are contained within the 'Schedule",!,"Operations' menu."
|
|---|
| 10 | S X=$P(^SRF(DA,0),"^",9) W !!,"Press RETURN to continue " R CURLEY:DTIME
|
|---|
| 11 | K CURLEY,MOE,SHEMP,ROOM
|
|---|
| 12 | Q
|
|---|
