SRODATE ;B'HAM ISC/MAM - CLEAN UP X-REFS, DATE CHANGE ; 30 SEPT 1991 8:23 AM
;;3.0; Surgery ;;24 Jun 93
SCH ; update schedule
I $D(SRNOREQ) Q
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
I $D(X) Q
S ROOM=$P(^SRF(DA,0),"^",2) I ROOM S ROOM=$P(^SRS(ROOM,0),"^"),ROOM=$P(^SC(ROOM,0),"^")
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"
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."
S X=$P(^SRF(DA,0),"^",9) W !!,"Press RETURN to continue " R CURLEY:DTIME
K CURLEY,MOE,SHEMP,ROOM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRODATE 854 printed Sep 23, 2025@20:19:29 Page 2
SRODATE ;B'HAM ISC/MAM - CLEAN UP X-REFS, DATE CHANGE ; 30 SEPT 1991 8:23 AM
+1 ;;3.0; Surgery ;;24 Jun 93
SCH ; update schedule
+1 IF $DATA(SRNOREQ)
QUIT
+2 IF $DATA(^SRF(DA,31))
IF $PIECE(^(31),"^",4)
SET MOE=$PIECE(^(31),"^",4)
SET SHEMP=$EXTRACT(MOE,1,7)
IF SHEMP'=$EXTRACT(X,1,7)
KILL X
+3 IF $DATA(X)
QUIT
+4 SET ROOM=$PIECE(^SRF(DA,0),"^",2)
IF ROOM
SET ROOM=$PIECE(^SRS(ROOM,0),"^")
SET ROOM=$PIECE(^SC(ROOM,0),"^")
+5 WRITE !!,"This case has already been scheduled on "_$EXTRACT(SHEMP,4,5)_"/"_$EXTRACT(SHEMP,6,7)_"/"_$EXTRACT(SHEMP,2,3)_" in "_ROOM_".",!,"To update the date of operation, you must cancel the case"
+6 WRITE !,"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."
+7 SET X=$PIECE(^SRF(DA,0),"^",9)
WRITE !!,"Press RETURN to continue "
READ CURLEY:DTIME
+8 KILL CURLEY,MOE,SHEMP,ROOM
+9 QUIT
