XBKVAR.m

XBKVAR ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 11/04/97  10:26 AM ]

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

 ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

 ;

START ;

 S U="^"

 I '$D(DUZ(2)),$D(^AUTTSITE(1,0)) S DUZ(2)=+^(0)

 I '$D(DUZ(2)),$D(^AUTTLOC("SITE")) S DUZ(2)=+^("SITE")

 ; I '$D(DUZ("AG")) S DUZ("AG")=$S($P($G(^XMB(1,0)),"^",8)]"":$P(^XMB(1,0),"^",8),1:"I") ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

 I '$D(DUZ("AG")) S DUZ("AG")=$S($P($G(^XMB(1,1,0)),"^",8)]"":$P(^XMB(1,1,0),"^",8),1:"I") ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

 S:'($D(DUZ)#2) DUZ=0

 S:'($D(DUZ(0))#2) DUZ(0)=""

 S:'($D(DUZ(2))#2) DUZ(2)=0

 I '$D(DT) S DT=($$HTFM^XLFDT($H)\1)

 S:'$D(DTIME) DTIME=999

 KILL %,%H,%I

 Q

 ;

XBKVAR    ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 11/04/97  10:26 AM ]

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

 +2       ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

 +3       ;

START     ;

 +1        SET U="^"

 +2        IF '$DATA(DUZ(2))

               IF $DATA(^AUTTSITE(1,0))

                   SET DUZ(2)=+^(0)

 +3        IF '$DATA(DUZ(2))

               IF $DATA(^AUTTLOC("SITE"))

                   SET DUZ(2)=+^("SITE")

 +4       ; I '$D(DUZ("AG")) S DUZ("AG")=$S($P($G(^XMB(1,0)),"^",8)]"":$P(^XMB(1,0),"^",8),1:"I") ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

 +5       ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").

           IF '$DATA(DUZ("AG"))

               SET DUZ("AG")=$SELECT($PIECE($GET(^XMB(1,1,0)),"^",8)]"":$PIECE(^XMB(1,1,0),"^",8),1:"I")

 +6        IF '($DATA(DUZ)#2)

               SET DUZ=0

 +7        IF '($DATA(DUZ(0))#2)

               SET DUZ(0)=""

 +8        IF '($DATA(DUZ(2))#2)

               SET DUZ(2)=0

 +9        IF '$DATA(DT)

               SET DT=($$HTFM^XLFDT($HOROLOG)\1)

 +10       IF '$DATA(DTIME)

               SET DTIME=999

 +11       KILL %,%H,%I

 +12       QUIT 

 +13      ;