source: IHS-VA_UTILITIES-XB/trunk/XBKSET.m@ 1460

Last change on this file since 1460 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 532 bytes
Line 
1XBKSET ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; This routine is for programmers in direct mode only. It
5 ; should not be called within a routine.
6 ;
7START ;
8 D ^XBKVAR
9KERNEL ;
10 KILL ^XUTL("XQ",$J),^UTILITY($J)
11 S %ZIS="L",IOP="HOME"
12 D ^%ZIS
13 Q:POP
14 D SAVE^XUS1 ; IHS/SET/GTH XB*3*9 10/29/2002
15 ; F X="DUZ","DUZ(0)","DUZ(2)","IO","IOBS","IOF","ION","IOM","IOS","IOSL","IOST","IOST(0)","IOXY" I $D(@X) S ^XUTL("XQ",$J,X)=@X ; IHS/SET/GTH XB*3*9 10/29/2002
16 Q
17 ;
Note: See TracBrowser for help on using the repository browser.