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

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

initial load of FOIAVistA 6/30/08 version

File size: 879 bytes
Line 
1XTINOK ;SFISC/RWF - CHECK TO SEE IF OK TO LOAD ;02/13/95 16:16
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3A I $S($D(DUZ)[0:1,$D(DUZ(0))[0:1,'DUZ:1,1:0) W !!,*7,">> DUZ and DUZ(0) must be defined as an active user to initialize." G BAD
4 I DUZ(0)'="@" W *7,!!,">> You must have programmer access (DUZ(0)=@) to run this init." G BAD
5 W !,"I'm checking to see if it is OK to install Toolkit v",$P($T(+2),";",3),!," in this account.",!
6 S %=$$VERSION^XPDUTL("XU") G:%&(%<7.1) OLD
7OK ;
8 W !!,"Everything looks OK, Lets continue.",!
9 X "S DTIME=84000" K XUINTIME S XUINTIME(1)=$H
10 N DA,DIC,DIE,DR
11 S DIC="^DIC(9.4,",DIC(0)="X",X="DHCP Software Tools" D ^DIC
12 I Y>0 S DA=+Y,DIE=DIC,DR=".01///^S X=""TOOLKIT""" D ^DIE
13 Q
14OLD W !!,*7,"It looks like you currently have version ",%," of KERNEL installed."
15 W !,*7,"You must first install KERNEL V7.1 before this version can be installed.",!
16BAD K DIFQ Q
Note: See TracBrowser for help on using the repository browser.