VALMPP ; alb/mjk - Pre-Init for List Manager ;08:08 PM 30 Mar 1993
;;1;List Manager;;Aug 13, 1993
;
EN ; -- main entry point
D USER G ENQ:'$D(DIFQ)
D OERR G ENQ:'$D(DIFQ)
D XQOR
ENQ Q
;
USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ
Q
;
OERR ; -- is protocol file present
I '$D(^ORD(101)) D
.W !,">>> Protocol file not present in this account."
.D STOP
Q
;
XQOR ; -- Conditionally installs XQOR*
N DIF,X,XCNP,DIR,Y,X,VALMXQ
K ^UTILITY("VALMLOAD",$J) S VALMXQ=6.7
W !!,">>> Checking the version of XQOR*..."
S X="XQOR" X ^%ZOSF("TEST")
I $T S XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
S X=$G(^UTILITY("VALMLOAD",$J,2,0))
I $P(X,";",3)'<VALMXQ W "ok." G XQORQ
W !!?5,*7,"The current version of XQOR* is ",$P(X,";",3),"."
W !?5,"List Manager requires version ",VALMXQ," or greater.",!
W !?5,"As part of the post-init, version ",VALMXQ," will be installed."
S DIR(0)="Y",DIR("A")=" Continue with the installation",DIR("B")="No" D ^DIR K DIR
D:'Y STOP
K ^UTILITY("VALMLOAD",$J)
XQORQ Q
;
STOP ; -- set flag and write message
K DIFQ
W !!,*7,">>> List Manager installation will not occur."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMPP 1336 printed Oct 16, 2024@18:10:54 Page 2
VALMPP ; alb/mjk - Pre-Init for List Manager ;08:08 PM 30 Mar 1993
+1 ;;1;List Manager;;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 DO USER
if '$DATA(DIFQ)
GOTO ENQ
+2 DO OERR
if '$DATA(DIFQ)
GOTO ENQ
+3 DO XQOR
ENQ QUIT
+1 ;
USER IF $SELECT('($DATA(DUZ)#2):1,'$DATA(^VA(200,+DUZ,0)):1,'$DATA(DUZ(0)):1,DUZ(0)'="@":1,1:0)
WRITE !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",!
KILL DIFQ
+1 QUIT
+2 ;
OERR ; -- is protocol file present
+1 IF '$DATA(^ORD(101))
Begin DoDot:1
+2 WRITE !,">>> Protocol file not present in this account."
+3 DO STOP
End DoDot:1
+4 QUIT
+5 ;
XQOR ; -- Conditionally installs XQOR*
+1 NEW DIF,X,XCNP,DIR,Y,X,VALMXQ
+2 KILL ^UTILITY("VALMLOAD",$JOB)
SET VALMXQ=6.7
+3 WRITE !!,">>> Checking the version of XQOR*..."
+4 SET X="XQOR"
XECUTE ^%ZOSF("TEST")
+5 IF $TEST
SET XCNP=0
SET DIF="^UTILITY(""VALMLOAD"",$J,"
XECUTE ^%ZOSF("LOAD")
+6 SET X=$GET(^UTILITY("VALMLOAD",$JOB,2,0))
+7 IF $PIECE(X,";",3)'<VALMXQ
WRITE "ok."
GOTO XQORQ
+8 WRITE !!?5,*7,"The current version of XQOR* is ",$PIECE(X,";",3),"."
+9 WRITE !?5,"List Manager requires version ",VALMXQ," or greater.",!
+10 WRITE !?5,"As part of the post-init, version ",VALMXQ," will be installed."
+11 SET DIR(0)="Y"
SET DIR("A")=" Continue with the installation"
SET DIR("B")="No"
DO ^DIR
KILL DIR
+12 if 'Y
DO STOP
+13 KILL ^UTILITY("VALMLOAD",$JOB)
XQORQ QUIT
+1 ;
STOP ; -- set flag and write message
+1 KILL DIFQ
+2 WRITE !!,*7,">>> List Manager installation will not occur."
+3 QUIT
