source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZTMCHK.m@ 1764

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1ZTMCHK ;SEA/RDS-Taskman: Option, ZTMCHECK, Part 1 ;01/12/95 08:12
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
5CHECK ;Main Entry Point For Environment Check
6 S U="^",%ZIS="",IOP="HOME" D ^%ZIS
7 W @IOF,!!,"Checking Task Manager's Environment."
8 ;
9GLOB ;Checking Task Manager's Globals
10 W !!,"Checking Taskman's globals..."
11 F ZT="^%ZTSCH","^%ZTSK","^%ZTSK(-1)","^%ZIS(14.5,0)","^%ZIS(14.6,0)","^%ZIS(14.7,0)" D
12 . W !?5,ZT," is ",$S($D(@ZT):"",1:"not "),"defined!" W:'$D(@ZT) $C(7)
13 . Q
14 ;
15NODES ;Check Required %ZOSF Nodes
16 W !!,"Checking the ^%ZOSF nodes required by Taskman..."
17 S ZTF=1 F ZTN="ACTJ","AVJ","MAXSIZ","MGR","OS","PROD","TRAP","UCI","UCICHECK","VOL" D
18 . I $D(^%ZOSF(ZTN))[0 W !?5,"^%ZOSF('",ZTN,"') is missing!",$C(7) S ZTF=0
19 . Q
20 I 'ZTF K ZTF,ZTN Q
21 W !?5,"All ^%ZOSF nodes required by Taskman are defined!"
22 ;
23 D LOOKUP
24CONT ;program is continued in ZTMCHK1
25 G ^ZTMCHK1
26 ;
27LOOKUP ;lookup TaskMan site parameters
28 N Y D GETENV^%ZOSV S ZTVOL=$P(Y,U,2),ZTPAIR=$P(Y,U,4)
29 S ZTOS=^%ZOSF("OS")
30 S ZTVSN=$O(^%ZIS(14.5,"B",ZTVOL,""))
31 S ZTVSS=$G(^%ZIS(14.5,+ZTVSN,0))
32 S ZTVLI=$P(ZTVSS,U,2)
33 ;
34 S ZTPN=$O(^%ZIS(14.7,"B",ZTPAIR,"")),ZTPS=$G(^%ZIS(14.7,+ZTPN,0))
35 S ZTPT=$P(ZTPS,U,4),ZTSIZ=+$P(ZTPS,U,5)
36 I 'ZTSIZ,ZTOS'["VAX DSM",ZTOS["DSM" S ZTSIZ=32
37 S ZTRET=+$P(ZTPS,U,6),ZTVMJ=+$P(ZTPS,U,7),ZTSLO=+$P(ZTPS,U,8)
38 Q
39 ;
40PARAMS ;
41 N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
42 D LOOKUP,INFO^ZTMCHK1
43 Q
Note: See TracBrowser for help on using the repository browser.