20 lines
532 B
Mathematica
20 lines
532 B
Mathematica
SDV53PR ;alb/mjk - SD Application Specific Init Driver for v5.3 ; 3/26/93
|
|
;;5.3;Scheduling;;Aug 13, 1993
|
|
;
|
|
EN ; -- main entry point
|
|
D OPT ; change option name
|
|
D PROT ; clean up old protocol for valm conversion
|
|
ENQ Q
|
|
;
|
|
PROT ; -- delete protocols
|
|
N DIK,DA
|
|
F SDX="SDAM MENU","SD PARM PARAMETERS MENU" D
|
|
.S DA=$O(^ORD(101,"B",SDX,0)),DIK="^ORD(101," D ^DIK:DA
|
|
Q
|
|
;
|
|
OPT ; -- change option name
|
|
N DR,DA,DIE,DE,DQ
|
|
S DA=+$O(^DIC(19,"B","SDAM APPT CHECK IN",0))
|
|
I DA S DR=".01///SDAM APPT CHECK IN/OUT",DIE="^DIC(19," D ^DIE
|
|
Q
|