VistA-IHS-VA_UTILITIES-XB/XBKVAR.m

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
;