source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENNEWPKG.m@ 1736

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

initial load of WorldVistAEHR

File size: 1002 bytes
RevLine 
[613]1ENNEWPKG ;(WASH ISC)/DH-PreInitialization Routine ;8-20-93
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3EN ;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
13ABORT ;Abort install (no op)
14 K DIFQ
15 W !!,*7,"Installation aborted. Database unchanged." R X:DTIME
16EXIT K DA,ENSTA,ENABORT
17 Q
18 ;ENNEWPKG
Note: See TracBrowser for help on using the repository browser.