- 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 Feb 18, 2025@23:36:34 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