SRODEV ;B'HAM ISC/MAM - UPDATE O.R. SCHEDULE DEVICE ; 9 APR 1992 5:20 pm
;;3.0; Surgery ;;24 Jun 93
W @IOF,!,"Update O.R. Schedule Devices",!,"----------------------------",!!
K DR,DIE,DA S DA=SRSITE,DIE=133,DR=12 D ^DIE K DR,DA,DIE
D ^SRSKILL W @IOF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRODEV 264 printed Dec 13, 2024@02:43:06 Page 2
SRODEV ;B'HAM ISC/MAM - UPDATE O.R. SCHEDULE DEVICE ; 9 APR 1992 5:20 pm
+1 ;;3.0; Surgery ;;24 Jun 93
+2 WRITE @IOF,!,"Update O.R. Schedule Devices",!,"----------------------------",!!
+3 KILL DR,DIE,DA
SET DA=SRSITE
SET DIE=133
SET DR=12
DO ^DIE
KILL DR,DA,DIE
+4 DO ^SRSKILL
WRITE @IOF
+5 QUIT
