source: WorldVistAEHR/trunk/r/LIST_MANAGER-VALM/VALMPP.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1VALMPP ; alb/mjk - Pre-Init for List Manager ;08:08 PM 30 Mar 1993
2 ;;1;List Manager;;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 D USER G ENQ:'$D(DIFQ)
6 D OERR G ENQ:'$D(DIFQ)
7 D XQOR
8ENQ Q
9 ;
10USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ
11 Q
12 ;
13OERR ; -- is protocol file present
14 I '$D(^ORD(101)) D
15 .W !,">>> Protocol file not present in this account."
16 .D STOP
17 Q
18 ;
19XQOR ; -- Conditionally installs XQOR*
20 N DIF,X,XCNP,DIR,Y,X,VALMXQ
21 K ^UTILITY("VALMLOAD",$J) S VALMXQ=6.7
22 W !!,">>> Checking the version of XQOR*..."
23 S X="XQOR" X ^%ZOSF("TEST")
24 I $T S XCNP=0,DIF="^UTILITY(""VALMLOAD"",$J," X ^%ZOSF("LOAD")
25 S X=$G(^UTILITY("VALMLOAD",$J,2,0))
26 I $P(X,";",3)'<VALMXQ W "ok." G XQORQ
27 W !!?5,*7,"The current version of XQOR* is ",$P(X,";",3),"."
28 W !?5,"List Manager requires version ",VALMXQ," or greater.",!
29 W !?5,"As part of the post-init, version ",VALMXQ," will be installed."
30 S DIR(0)="Y",DIR("A")=" Continue with the installation",DIR("B")="No" D ^DIR K DIR
31 D:'Y STOP
32 K ^UTILITY("VALMLOAD",$J)
33XQORQ Q
34 ;
35STOP ; -- set flag and write message
36 K DIFQ
37 W !!,*7,">>> List Manager installation will not occur."
38 Q
Note: See TracBrowser for help on using the repository browser.