source: IHS-VA_UTILITIES-XB/trunk/XBKVAR.m@ 1489

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

Modified directory structure; moved routines.

File size: 767 bytes
Line 
1XBKVAR ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 11/04/97 10:26 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; XB*3*5 IHS/ADC/GTH 10-31-97 Correct the setting of DUZ("AG").
4 ;
5START ;
6 S U="^"
7 I '$D(DUZ(2)),$D(^AUTTSITE(1,0)) S DUZ(2)=+^(0)
8 I '$D(DUZ(2)),$D(^AUTTLOC("SITE")) S DUZ(2)=+^("SITE")
9 ; 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").
10 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").
11 S:'($D(DUZ)#2) DUZ=0
12 S:'($D(DUZ(0))#2) DUZ(0)=""
13 S:'($D(DUZ(2))#2) DUZ(2)=0
14 I '$D(DT) S DT=($$HTFM^XLFDT($H)\1)
15 S:'$D(DTIME) DTIME=999
16 KILL %,%H,%I
17 Q
18 ;
Note: See TracBrowser for help on using the repository browser.