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 ---[H[J[2J[HENNEWPKG 1020 printed Sep 15, 2024@21:18:41 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