source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTINEND.m@ 719

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1XTINEND ;SF-ISC/STAFF - POSTINIT FOR TOOLKIT ;02/10/95 12:04
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3A I ^%ZOSF("OS")["DSM" D
4 .W !!,"Will now install the VAX/Alpha Performance Monitor (VPM)",!!
5 .N DIFROM,DIFQN,%X,%Y S %X="^UTILITY(""DIF"",$J,",%Y="^UTILITY(""TMP"",$J," D %XY^%RCR
6 .S X="XUCINIT" X ^%ZOSF("TEST") I D ^XUCINIT
7 .I $$LKOPT^XPDMENU("XUCM MAIN") S %=$$ADD^XPDMENU("XTCM MAIN","XUCM MAIN")
8 .S %X="^UTILITY(""TMP"",$J,",%Y="^UTILITY(""DIF"",$J," D %XY^%RCR
9B I ^%ZOSF("OS")["MSM" D
10 .W !!,"Will now install the MSM 486 Performance Monitor (MPM)",!!
11 .N DIFROM,DIFQN,%X,%Y S %X="^UTILITY(""DIF"",$J,",%Y="^UTILITY(""TMP"",$J," D %XY^%RCR
12 .S X="XUCSINIT" X ^%ZOSF("TEST") I D ^XUCSINIT
13 .I $$LKOPT^XPDMENU("XUCS MANAGER MENU") S %=$$ADD^XPDMENU("XTCM MAIN","XUCS MANAGER MENU")
14 .S %X="^UTILITY(""TMP"",$J,",%Y="^UTILITY(""DIF"",$J," D %XY^%RCR
15A1 S U="^",%=$$ADD^XPDMENU("EVE","XUPROG"),%=$$ADD^XPDMENU("EVE","XTMENU"),%=$$ADD^XPDMENU("EVE","XTCM MAIN")
16 I % S %=$$DELETE^XPDMENU("XUSITEMGR","XURTLM"),%=$$DELETE^XPDMENU("XUSITEMGR","XUCPMENU"),%=$$DELETE^XPDMENU("EVE","XUCM MAIN")
17 ;
18A2 ;Cleanup unnecessary "IX" nodes for X-refs which don't exist. This
19 ;part of the code can be removed after Toolkit 7.3 has been released
20 K ^DD(15,0,"IX","AMFI",15,999999901),^DD(15,0,"IX","APOT",15,.04)
21 K ^DD(15,0,"IX","AZ1",15,.05),^DD(15.01101,0,"IX","ARDY",15.01101,.02)
22 ;
23A3 ;MTLU POST INIT
24 D ^XTLKPST
25A99 S X="XTINITY" X ^%ZOSF("TEST") I $T D @("^"_X)
26EXIT K %
27 S XMB="XU-INSTALL-DONE",XMB(1)="TOOLKIT",XMB(2)=$P($T(+2),";",3),XMB(3)=$$HTE^XLFDT($H,"1P"),XMB(4)=$G(^DD("SITE")),XMB(5)=$S($D(^VA(200,DUZ,0))#2:$P(^(0),"^"),1:"Unk"),XMY("G.KERNEL_INSTALL@ISC-SF.VA.GOV")=""
28 F I=1:1:4 I $D(XUINTIME(I)) S XMB(I+5)=$$HTE^XLFDT(XUINTIME(I),"1P")
29 S:$D(XUINTIME(1)) XMB(10)=$$HDIFF^XLFDT($H,XUINTIME(1),3) D ^XMB
30MES W !!,$C(7),"TO PROTECT THE SECURITY OF DHCP SYSTEMS, DISTRIBUTION OF THIS"
31 W !,"SOFTWARE FOR USE ON ANY OTHER COMPUTER SYSTEM IS PROHIBITED."
32 W !,"ALL REQUESTS FOR COPIES OF THE KERNEL FOR NON-DHCP USE SHOULD"
33 W !,"BE REFERRED TO YOUR LOCAL ISC."
34 K XMB,XMY,XUINTIME
35 Q
36TIME() Q $$HTE^XLFDT($H,1)
37 ;
Note: See TracBrowser for help on using the repository browser.