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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDV53PR 551 printed Nov 22, 2024@18:11:48 Page 2
SDV53PR ;alb/mjk - SD Application Specific Init Driver for v5.3 ; 3/26/93
+1 ;;5.3;Scheduling;;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 ; change option name
DO OPT
+2 ; clean up old protocol for valm conversion
DO PROT
ENQ QUIT
+1 ;
PROT ; -- delete protocols
+1 NEW DIK,DA
+2 FOR SDX="SDAM MENU","SD PARM PARAMETERS MENU"
Begin DoDot:1
+3 SET DA=$ORDER(^ORD(101,"B",SDX,0))
SET DIK="^ORD(101,"
if DA
DO ^DIK
End DoDot:1
+4 QUIT
+5 ;
OPT ; -- change option name
+1 NEW DR,DA,DIE,DE,DQ
+2 SET DA=+$ORDER(^DIC(19,"B","SDAM APPT CHECK IN",0))
+3 IF DA
SET DR=".01///SDAM APPT CHECK IN/OUT"
SET DIE="^DIC(19,"
DO ^DIE
+4 QUIT
