|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 14 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
767 bytes
|
| Line | |
|---|
| 1 | XBKVAR ; 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 | ;
|
|---|
| 5 | START ;
|
|---|
| 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.
