|
Last change
on this file since 1801 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.
