VALMPT1 ; alb/jer(slc),mjk - Post-Init for XQOR Routines ; 3/30/93
;;1;List Manager;;Aug 13, 1993
XQOR ; Conditionally installs XQOR*
N DIE,DIF,X,XCN,XCNP,VALMI,VALMX,VALMTO,VALMFR
K ^UTILITY("VALMLOAD",$J)
S X="XQOR" X ^%ZOSF("TEST")
I $T S XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
I $D(^UTILITY("VALMLOAD",$J,2,0)),($P(^(0),";",3)'<6.7) K ^UTILITY("VALMLOAD",$J) G XQORQ
K ^UTILITY("VALMLOAD",$J)
W !!,">>> Installing XQOR* routines from VALMXQ* routines..."
S VALMI=0 F VALMI=1:1 S VALMX=$T(ROU+VALMI) Q:VALMX["$END" D
.S VALMTO=$P(VALMX,";",3),VALMFR=$P(VALMX,";",4)
.S X=VALMFR,XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
.S X=VALMTO,XCN=4,DIE="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("SAVE") K ^UTILITY("VALMLOAD",$J) W !?5,VALMTO,"...filed"
XQORQ Q
;
ROU ;
;;XQOR;VALMXQ01
;;XQOR1;VALMXQ02
;;XQOR2;VALMXQ03
;;XQOR3;VALMXQ04
;;XQOR4;VALMXQ05
;;XQORD;VALMXQ06
;;XQORD1;VALMXQ07
;;XQORM;VALMXQ08
;;XQORM1;VALMXQ09
;;XQORM2;VALMXQ10
;;XQORM3;VALMXQ11
;;XQORM4;VALMXQ12
;;XQORM5;VALMXQ13
;;XQORMX;VALMXQ14
;;XQORO;VALMXQ15
;;$END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMPT1 1118 printed Dec 13, 2024@02:10:11 Page 2
VALMPT1 ; alb/jer(slc),mjk - Post-Init for XQOR Routines ; 3/30/93
+1 ;;1;List Manager;;Aug 13, 1993
XQOR ; Conditionally installs XQOR*
+1 NEW DIE,DIF,X,XCN,XCNP,VALMI,VALMX,VALMTO,VALMFR
+2 KILL ^UTILITY("VALMLOAD",$JOB)
+3 SET X="XQOR"
XECUTE ^%ZOSF("TEST")
+4 IF $TEST
SET XCNP=0
SET DIF="^UTILITY(""VALMLOAD"",$J,"
XECUTE ^%ZOSF("LOAD")
+5 IF $DATA(^UTILITY("VALMLOAD",$JOB,2,0))
IF ($PIECE(^(0),";",3)'<6.7)
KILL ^UTILITY("VALMLOAD",$JOB)
GOTO XQORQ
+6 KILL ^UTILITY("VALMLOAD",$JOB)
+7 WRITE !!,">>> Installing XQOR* routines from VALMXQ* routines..."
+8 SET VALMI=0
FOR VALMI=1:1
SET VALMX=$TEXT(ROU+VALMI)
if VALMX["$END"
QUIT
Begin DoDot:1
+9 SET VALMTO=$PIECE(VALMX,";",3)
SET VALMFR=$PIECE(VALMX,";",4)
+10 SET X=VALMFR
SET XCNP=0
SET DIF="^UTILITY(""VALMLOAD"",$J,"
XECUTE ^%ZOSF("LOAD")
+11 SET X=VALMTO
SET XCN=4
SET DIE="^UTILITY(""VALMLOAD"",$J,"
XECUTE ^%ZOSF("SAVE")
KILL ^UTILITY("VALMLOAD",$JOB)
WRITE !?5,VALMTO,"...filed"
End DoDot:1
XQORQ QUIT
+1 ;
ROU ;
+1 ;;XQOR;VALMXQ01
+2 ;;XQOR1;VALMXQ02
+3 ;;XQOR2;VALMXQ03
+4 ;;XQOR3;VALMXQ04
+5 ;;XQOR4;VALMXQ05
+6 ;;XQORD;VALMXQ06
+7 ;;XQORD1;VALMXQ07
+8 ;;XQORM;VALMXQ08
+9 ;;XQORM1;VALMXQ09
+10 ;;XQORM2;VALMXQ10
+11 ;;XQORM3;VALMXQ11
+12 ;;XQORM4;VALMXQ12
+13 ;;XQORM5;VALMXQ13
+14 ;;XQORMX;VALMXQ14
+15 ;;XQORO;VALMXQ15
+16 ;;$END
