Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SRODEV

SRODEV.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRODEV   264     printed  Apr 09, 2024@21:44:05                                                                                                                                                                                                       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