|
Last change
on this file since 1251 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
644 bytes
|
| Line | |
|---|
| 1 | DGYXPP ;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 !!
|
|---|
| 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.
