| 1 | LRXREF1 ;SLC/RWA - CONTINUE BUILD X-REF FOR RE-INDEX ;5/15/90 12:41
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | AT ;^LRO(69,"AT" CROSS REFERENCE
|
|---|
| 4 | I DA,DA(1),DA(2),$D(^LRO(69,DA(2),1,DA(1),2,DA,0)) D AT1
|
|---|
| 5 | Q
|
|---|
| 6 | AT1 S ATX=+^LRO(69,DA(2),1,DA(1),0),ATX(1)=DA(2),ATX(2)=+^(2,DA,0)
|
|---|
| 7 | I $D(^LRO(69,DA(2),1,DA(1),4,1,0)) S ATX(3)=+^LRO(69,DA(2),1,DA(1),4,1,0) I ATX,ATX(1),ATX(2),ATX(3) S ^LRO(69,"AT",ATX,ATX(2),ATX(3),ATX(1))="",^(-ATX(1))=""
|
|---|
| 8 | K ATX
|
|---|
| 9 | Q
|
|---|
| 10 | ATD ;KILL FOR ^LRO(69,"AT" CROSS REFERENCE
|
|---|
| 11 | I DA,DA(1),DA(2),$D(^LRO(69,DA(2),1,DA(1),2,DA,0)) S ATX=+^LRO(69,DA(2),1,DA(1),0),ATX(1)=DA(2),ATX(2)=+^(2,DA,0)
|
|---|
| 12 | I $D(^LRO(69,DA(2),1,DA(1),4,1,0)) S ATX(3)=+^LRO(69,DA(2),1,DA(1),4,1,0) I ATX,ATX(1),ATX(2),ATX(3) K ^LRO(69,"AT",ATX,ATX(2),ATX(3),ATX(1)),^(-ATX(1))
|
|---|
| 13 | K ATX
|
|---|
| 14 | Q
|
|---|
| 15 | AC ;BUILD "AC" CROSS-REFERENCE IN FILE 68
|
|---|
| 16 | S LRTN=0,LRTEST=""
|
|---|
| 17 | F I=0:0 S LRTN=$O(^LRO(68,DA(2),1,DA(1),1,DA,4,LRTN)) Q:LRTN<1 S LRGTN=LRTN S:LRTEST'="" LRTEST=LRTEST_"^"_LRTN S:LRTEST="" LRTEST=LRTN
|
|---|
| 18 | D ^LREXPD G:'$D(LRORD) SET F I=1:1:LRTSTS S LRGTN=LRORD(I) D SET
|
|---|
| 19 | END K LRTEST,LRTSTS,^TMP("LR",$J),LRTN,LRGTN Q
|
|---|
| 20 | SET I $D(LRGTN) I $D(^LAB(60,LRGTN,.2)) I $P(^LAB(60,LRGTN,0),U,3)'["N" I $P(^(0),U,3)'["I" S ^LRO(68,"AC",+^LRO(68,DA(2),1,DA(1),1,DA,0),$P(^LRO(68,DA(2),1,DA(1),1,DA,3),U,5),+^LAB(60,LRGTN,.2))="" Q
|
|---|
| 21 | G:'$D(LRORD) END Q
|
|---|
| 22 | AC1 ;KILL "AC" CROSS-REFERENCE IN FILE 68
|
|---|
| 23 | S LRTN=0,LRTEST=""
|
|---|
| 24 | F I=0:0 S LRTN=$O(^LRO(68,DA(2),1,DA(1),1,DA,4,LRTN)) Q:LRTN<1 S LRGTN=LRTN S:LRTEST'="" LRTEST=LRTEST_"^"_LRTN S:LRTEST="" LRTEST=LRTN
|
|---|
| 25 | D ^LREXPD G:'$D(LRORD) KILL F I=1:1:LRTSTS S LRGTN=LRORD(I) D KILL
|
|---|
| 26 | K LRTEST,LRTSTS,^TMP("LR",$J),LRTN,LRGTN Q
|
|---|
| 27 | KILL I $D(^LAB(60,LRGTN,.2)) I $D(^LRO(68,"AC",+^LRO(68,DA(2),1,DA(1),1,DA,0),$P(^LRO(68,DA(2),1,DA(1),1,DA,3),U,5),+^LAB(60,LRGTN,.2))) K ^LRO(68,"AC",+^LRO(68,DA(2),1,DA(1),1,DA,0),$P(^LRO(68,DA(2),1,DA(1),1,DA,3),U,5),+^LAB(60,LRGTN,.2))
|
|---|
| 28 | Q
|
|---|
| 29 | A65 ;Rebuild "A" x-ref in file 65 for 65.15,.08 for Re-index utility
|
|---|
| 30 | F LR=0:0 S LR=$O(^LRD(65,DA,15,LR)) Q:'LR S LR(1)=$P(^(LR,0),"^",8) S:LR(1) ^LRD(65,"A",LR(1),DA)=""
|
|---|
| 31 | Q
|
|---|
| 32 | A658 ;build "A" x-ref in file 65 for 65,.05 for Re-index utility
|
|---|
| 33 | S LR=$P(^LRD(65,DA(1),0),"^",5) S:LR ^LRD(65,"A",LR,DA(1))="" Q
|
|---|
| 34 | C ;build "C" x-ref in file 69
|
|---|
| 35 | I '$D(DIU(0)) S ^LRO(69,"C",+X,DA(1),DA)="" Q
|
|---|
| 36 | I $D(DIU(0)),$D(^LRO(69,DA(1),1,DA,2)) S ^LRO(69,"C",+X,DA(1),DA)=""
|
|---|
| 37 | Q
|
|---|
| 38 | A6599 ;Rebuild Archive "A" x-ref in file 65.9999 for 65.999915,.08 for Re-index utility
|
|---|
| 39 | F LR=0:0 S LR=$O(^LRD(65.9999,DA,15,LR)) Q:'LR S LR(1)=$P(^(LR,0),"^",8) S:LR(1) ^LRD(65.9999,"A",LR(1),DA)=""
|
|---|
| 40 | Q
|
|---|
| 41 | A65899 ;build Archive "A" x-ref in file 65.9999 for 65.9999,.05 for Re-index utility
|
|---|
| 42 | S LR=$P(^LRD(65.9999,DA(1),0),"^",5) S:LR ^LRD(65.9999,"A",LR,DA(1))="" Q
|
|---|
