Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
644 bytes
|
Line | |
---|
1 | DGYKPP ;ALB/REW - Environment Check for ADT/R 10/1 Maintenance Patch ; 6/14/94
|
---|
2 | ;;5.3;Registration;**31**;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 !!
|
---|
7 | 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
|
---|
8 | ;
|
---|
9 | 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
|
---|
10 | ;
|
---|
11 | NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED"
|
---|
12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.