Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VALMPT1

VALMPT1.m

Go to the documentation of this file.
  1. VALMPT1 ; alb/jer(slc),mjk - Post-Init for XQOR Routines ; 3/30/93
  1. ;;1;List Manager;;Aug 13, 1993
  1. XQOR ; Conditionally installs XQOR*
  1. N DIE,DIF,X,XCN,XCNP,VALMI,VALMX,VALMTO,VALMFR
  1. K ^UTILITY("VALMLOAD",$J)
  1. S X="XQOR" X ^%ZOSF("TEST")
  1. I $T S XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
  1. I $D(^UTILITY("VALMLOAD",$J,2,0)),($P(^(0),";",3)'<6.7) K ^UTILITY("VALMLOAD",$J) G XQORQ
  1. K ^UTILITY("VALMLOAD",$J)
  1. W !!,">>> Installing XQOR* routines from VALMXQ* routines..."
  1. S VALMI=0 F VALMI=1:1 S VALMX=$T(ROU+VALMI) Q:VALMX["$END" D
  1. .S VALMTO=$P(VALMX,";",3),VALMFR=$P(VALMX,";",4)
  1. .S X=VALMFR,XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
  1. .S X=VALMTO,XCN=4,DIE="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("SAVE") K ^UTILITY("VALMLOAD",$J) W !?5,VALMTO,"...filed"
  1. XQORQ Q
  1. ;
  1. ROU ;
  1. ;;XQOR;VALMXQ01
  1. ;;XQOR1;VALMXQ02
  1. ;;XQOR2;VALMXQ03
  1. ;;XQOR3;VALMXQ04
  1. ;;XQOR4;VALMXQ05
  1. ;;XQORD;VALMXQ06
  1. ;;XQORD1;VALMXQ07
  1. ;;XQORM;VALMXQ08
  1. ;;XQORM1;VALMXQ09
  1. ;;XQORM2;VALMXQ10
  1. ;;XQORM3;VALMXQ11
  1. ;;XQORM4;VALMXQ12
  1. ;;XQORM5;VALMXQ13
  1. ;;XQORMX;VALMXQ14
  1. ;;XQORO;VALMXQ15
  1. ;;$END