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

SDV53PR.m

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