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

DGYKPP.m

Go to the documentation of this file.
  1. DGYKPP ;ALB/REW - Environment Check for ADT/R 10/1 Maintenance Patch ; 6/14/94
  1. ;;5.3;Registration;**31**;Aug 13, 1993
  1. ;
  1. ; NOTE: DGBDT = begin time (don't use in post-init modules)
  1. ;
  1. % D NOW^%DTC S DGBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!
  1. USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ G NO
  1. ;
  1. MAS53 I $D(DIFQ),+$G(^DG(43,1,"VERSION"))'=5.3 K DIFQ W !!,?3,"MAS Version 5.3 must be installed first!" G NO
  1. ;
  1. NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED"
  1. Q