SDV53PR.m

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 ---SDV53PR   551     printed  Apr 09, 2024@21:51:33                                                                                                                                                                                                      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