source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYXPP.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 644 bytes
RevLine 
[613]1DGYXPP ;ALB/REW - Environment Check for ADT/R 10/1 Maintenance Patch ; 6/14/94
2 ;;5.3;Registration;**66**;Aug 13, 1993
3 ;
4 ; NOTE: DGBDT = begin time (don't use in post-init modules)
5 ;
6% D NOW^%DTC S DGBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!
7USER 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
8 ;
9MAS53 I $D(DIFQ),+$G(^DG(43,1,"VERSION"))'=5.3 K DIFQ W !!,?3,"MAS Version 5.3 must be installed first!" G NO
10 ;
11NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED"
12 Q
Note: See TracBrowser for help on using the repository browser.