- SDV53PR ;alb/mjk - SD Application Specific Init Driver for v5.3 ; 3/26/93
- ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- ;
- 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
- SDV53PR ;alb/mjk - SD Application Specific Init Driver for v5.3 ; 3/26/93
- +1 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- +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