- XTINOK ;SFISC/RWF - CHECK TO SEE IF OK TO LOAD ;02/13/95 16:16
- ;;7.3;TOOLKIT;;Apr 25, 1995
- A 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
- I DUZ(0)'="@" W *7,!!,">> You must have programmer access (DUZ(0)=@) to run this init." G BAD
- W !,"I'm checking to see if it is OK to install Toolkit v",$P($T(+2),";",3),!," in this account.",!
- S %=$$VERSION^XPDUTL("XU") G:%<7.1 OLD
- OK ;
- W !!,"Everything looks OK, Lets continue.",!
- X "S DTIME=84000" K XUINTIME S XUINTIME(1)=$H
- N DA,DIC,DIE,DR
- S DIC="^DIC(9.4,",DIC(0)="X",X="DHCP Software Tools" D ^DIC
- I Y>0 S DA=+Y,DIE=DIC,DR=".01///^S X=""TOOLKIT""" D ^DIE
- Q
- OLD W !!,*7,"It looks like you currently have version ",%," of KERNEL installed."
- W !,*7,"You must first install KERNEL V7.1 before this version can be installed.",!
- BAD K DIFQ Q
- XTINOK ;SFISC/RWF - CHECK TO SEE IF OK TO LOAD ;02/13/95 16:16
- +1 ;;7.3;TOOLKIT;;Apr 25, 1995
- A IF $SELECT($DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,'DUZ:1,1:0)
- WRITE !!,*7,">> DUZ and DUZ(0) must be defined as an active user to initialize."
- GOTO BAD
- +1 IF DUZ(0)'="@"
- WRITE *7,!!,">> You must have programmer access (DUZ(0)=@) to run this init."
- GOTO BAD
- +2 WRITE !,"I'm checking to see if it is OK to install Toolkit v",$PIECE($TEXT(+2),";",3),!," in this account.",!
- +3 SET %=$$VERSION^XPDUTL("XU")
- IF %<7.1
- GOTO OLD
- OK ;
- +1 WRITE !!,"Everything looks OK, Lets continue.",!
- +2 XECUTE "S DTIME=84000"
- KILL XUINTIME
- SET XUINTIME(1)=$HOROLOG
- +3 NEW DA,DIC,DIE,DR
- +4 SET DIC="^DIC(9.4,"
- SET DIC(0)="X"
- SET X="DHCP Software Tools"
- DO ^DIC
- +5 IF Y>0
- SET DA=+Y
- SET DIE=DIC
- SET DR=".01///^S X=""TOOLKIT"""
- DO ^DIE
- +6 QUIT
- OLD WRITE !!,*7,"It looks like you currently have version ",%," of KERNEL installed."
- +1 WRITE !,*7,"You must first install KERNEL V7.1 before this version can be installed.",!
- BAD KILL DIFQ
- QUIT