VALMPT1.m

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

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