Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1002 bytes
|
Line | |
---|
1 | ENNEWPKG ;(WASH ISC)/DH-PreInitialization Routine ;8-20-93
|
---|
2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
---|
3 | EN ;Entry point
|
---|
4 | I $D(^ENG) L +^ENG:1 I '$T W !!,"Engineering users are active. Cannot proceed.",*7 G ABORT
|
---|
5 | S U="^",ENSTA=$S($D(^DIC(6910,1,0)):$P(^(0),U,2),1:"")
|
---|
6 | S:'$D(DTIME) DTIME=600
|
---|
7 | I $D(^ENG("VERSION"))#10,ENSTA="" W *7,!!,"DON'T SEE YOUR STATION NUMBER. Please check Eng Init Parameters File." G ABORT
|
---|
8 | I $D(^ENG("VERSION")),^ENG("VERSION")<6.5 W !,"Must upgrade to Version 6.5 before proceeding.",*7 G ABORT
|
---|
9 | S ENABORT=0
|
---|
10 | I $D(^ENG("VERSION"))#10,$E(^ENG("VERSION"))'=7 F DA=0:0 S DA=$O(^ENG("ACT",DA)) Q:ENABORT!(DA'>0) I $P(^ENG("ACT",DA,0),U,2)'>0 S ENABORT=1 W !!,*7,"One or more WORK ACTIONS don't have pointers to NEW WORK ACTIONS."
|
---|
11 | W:ENABORT !!,"Patch EN*6.5*5 must be fully installed prior to installation",!,"of Engineering 7.0.",*7
|
---|
12 | G:'ENABORT EXIT
|
---|
13 | ABORT ;Abort install (no op)
|
---|
14 | K DIFQ
|
---|
15 | W !!,*7,"Installation aborted. Database unchanged." R X:DTIME
|
---|
16 | EXIT K DA,ENSTA,ENABORT
|
---|
17 | Q
|
---|
18 | ;ENNEWPKG
|
---|
Note:
See
TracBrowser
for help on using the repository browser.