| [613] | 1 | VALMPT1 ; alb/jer(slc),mjk - Post-Init for XQOR Routines ; 3/30/93
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | XQOR ; Conditionally installs XQOR*
|
|---|
| 4 | N DIE,DIF,X,XCN,XCNP,VALMI,VALMX,VALMTO,VALMFR
|
|---|
| 5 | K ^UTILITY("VALMLOAD",$J)
|
|---|
| 6 | S X="XQOR" X ^%ZOSF("TEST")
|
|---|
| 7 | I $T S XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
|
|---|
| 8 | I $D(^UTILITY("VALMLOAD",$J,2,0)),($P(^(0),";",3)'<6.7) K ^UTILITY("VALMLOAD",$J) G XQORQ
|
|---|
| 9 | K ^UTILITY("VALMLOAD",$J)
|
|---|
| 10 | W !!,">>> Installing XQOR* routines from VALMXQ* routines..."
|
|---|
| 11 | S VALMI=0 F VALMI=1:1 S VALMX=$T(ROU+VALMI) Q:VALMX["$END" D
|
|---|
| 12 | .S VALMTO=$P(VALMX,";",3),VALMFR=$P(VALMX,";",4)
|
|---|
| 13 | .S X=VALMFR,XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
|
|---|
| 14 | .S X=VALMTO,XCN=4,DIE="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("SAVE") K ^UTILITY("VALMLOAD",$J) W !?5,VALMTO,"...filed"
|
|---|
| 15 | XQORQ Q
|
|---|
| 16 | ;
|
|---|
| 17 | ROU ;
|
|---|
| 18 | ;;XQOR;VALMXQ01
|
|---|
| 19 | ;;XQOR1;VALMXQ02
|
|---|
| 20 | ;;XQOR2;VALMXQ03
|
|---|
| 21 | ;;XQOR3;VALMXQ04
|
|---|
| 22 | ;;XQOR4;VALMXQ05
|
|---|
| 23 | ;;XQORD;VALMXQ06
|
|---|
| 24 | ;;XQORD1;VALMXQ07
|
|---|
| 25 | ;;XQORM;VALMXQ08
|
|---|
| 26 | ;;XQORM1;VALMXQ09
|
|---|
| 27 | ;;XQORM2;VALMXQ10
|
|---|
| 28 | ;;XQORM3;VALMXQ11
|
|---|
| 29 | ;;XQORM4;VALMXQ12
|
|---|
| 30 | ;;XQORM5;VALMXQ13
|
|---|
| 31 | ;;XQORMX;VALMXQ14
|
|---|
| 32 | ;;XQORO;VALMXQ15
|
|---|
| 33 | ;;$END
|
|---|
