XBKSET.m

XBKSET ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 ;

 ; This routine is for programmers in direct mode only.  It

 ; should not be called within a routine.

 ;

START ;

 D ^XBKVAR

KERNEL ;

 KILL ^XUTL("XQ",$J),^UTILITY($J)

 S %ZIS="L",IOP="HOME"

 D ^%ZIS

 Q:POP

 D SAVE^XUS1 ; IHS/SET/GTH XB*3*9 10/29/2002

 ; 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

 Q

 ;

XBKSET    ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 +2       ;

 +3       ; This routine is for programmers in direct mode only.  It

 +4       ; should not be called within a routine.

 +5       ;

START     ;

 +1        DO ^XBKVAR

KERNEL    ;

 +1        KILL ^XUTL("XQ",$JOB),^UTILITY($JOB)

 +2        SET %ZIS="L"

           SET IOP="HOME"

 +3        DO ^%ZIS

 +4        IF POP

               QUIT 

 +5       ; IHS/SET/GTH XB*3*9 10/29/2002

           DO SAVE^XUS1

 +6       ; 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

 +7        QUIT 

 +8       ;