ENNEWPKG.m

ENNEWPKG ;(WASH ISC)/DH-PreInitialization Routine ;8-20-93

 ;;7.0;ENGINEERING;;Aug 17, 1993

EN ;Entry point

 I $D(^ENG) L +^ENG:1 I '$T W !!,"Engineering users are active.  Cannot proceed.",*7 G ABORT

 S U="^",ENSTA=$S($D(^DIC(6910,1,0)):$P(^(0),U,2),1:"")

 S:'$D(DTIME) DTIME=600

 I $D(^ENG("VERSION"))#10,ENSTA="" W *7,!!,"DON'T SEE YOUR STATION NUMBER. Please check Eng Init Parameters File." G ABORT

 I $D(^ENG("VERSION")),^ENG("VERSION")<6.5 W !,"Must upgrade to Version 6.5 before proceeding.",*7 G ABORT

 S ENABORT=0

 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."

 W:ENABORT !!,"Patch EN*6.5*5 must be fully installed prior to installation",!,"of Engineering 7.0.",*7

 G:'ENABORT EXIT

ABORT ;Abort install (no op)

 K DIFQ

 W !!,*7,"Installation aborted. Database unchanged." R X:DTIME

EXIT K DA,ENSTA,ENABORT

 Q

 ;ENNEWPKG

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENNEWPKG   1020     printed  Apr 09, 2024@20:59:25                                                                                                                                                                                                    Page 2

ENNEWPKG  ;(WASH ISC)/DH-PreInitialization Routine ;8-20-93

 +1       ;;7.0;ENGINEERING;;Aug 17, 1993

EN        ;Entry point

 +1        IF $DATA(^ENG)

               LOCK +^ENG:1

               IF '$TEST

                   WRITE !!,"Engineering users are active.  Cannot proceed.",*7

                   GOTO ABORT

 +2        SET U="^"

           SET ENSTA=$SELECT($DATA(^DIC(6910,1,0)):$PIECE(^(0),U,2),1:"")

 +3        if '$DATA(DTIME)

               SET DTIME=600

 +4        IF $DATA(^ENG("VERSION"))#10

               IF ENSTA=""

                   WRITE *7,!!,"DON'T SEE YOUR STATION NUMBER. Please check Eng Init Parameters File."

                   GOTO ABORT

 +5        IF $DATA(^ENG("VERSION"))

               IF ^ENG("VERSION")<6.5

                   WRITE !,"Must upgrade to Version 6.5 before proceeding.",*7

                   GOTO ABORT

 +6        SET ENABORT=0

 +7        IF $DATA(^ENG("VERSION"))#10

               IF $EXTRACT(^ENG("VERSION"))'=7

                   FOR DA=0:0

                       SET DA=$ORDER(^ENG("ACT",DA))

                       if ENABORT!(DA'>0)

                           QUIT 

                       IF $PIECE(^ENG("ACT",DA,0),U,2)'>0

                           SET ENABORT=1

                           WRITE !!,*7,"One or more WORK ACTIONS don't have pointers to NEW WORK ACTIONS."

 +8        if ENABORT

               WRITE !!,"Patch EN*6.5*5 must be fully installed prior to installation",!,"of Engineering 7.0.",*7

 +9        if 'ENABORT

               GOTO EXIT

ABORT     ;Abort install (no op)

 +1        KILL DIFQ

 +2        WRITE !!,*7,"Installation aborted. Database unchanged."

           READ X:DTIME

EXIT       KILL DA,ENSTA,ENABORT

 +1        QUIT 

 +2       ;ENNEWPKG