19 lines
767 B
Mathematica
19 lines
767 B
Mathematica
XBKVAR ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 11/04/97 10:26 AM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
; 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
|
|
;
|