| 1 | DGYMBT ;ALB/REW - DGBT(392,B) X-REF CLEANUP - 12/9/94
|
|---|
| 2 | ;;5.3;Registration;**35**;Aug 13, 1993
|
|---|
| 3 | EN ; remove corrupt pointers from B x-REF OF DGBT(392,
|
|---|
| 4 | ;
|
|---|
| 5 | ; Optional input:
|
|---|
| 6 | ; DGNOKILL - If set to 1 will show corrupt nodes w/o deleting
|
|---|
| 7 | ; this is killed at end of routine
|
|---|
| 8 | ;
|
|---|
| 9 | N DGBTFL,DGBTIEN,DGBT
|
|---|
| 10 | W !,"Searching for corrupt 'B' cross-reference entries ...",!
|
|---|
| 11 | S DGBTFL=0
|
|---|
| 12 | S DGBT="" F S DGBT=$O(^DGBT(392,"B",DGBT)) Q:DGBT=+DGBT D CLEAN
|
|---|
| 13 | S DGBT=9999999.9999 F S DGBT=$O(^DGBT(392,"B",DGBT)) Q:DGBT="" D CLEAN
|
|---|
| 14 | W:'DGBTFL !!?5,"...None found."
|
|---|
| 15 | W !!,"Done."
|
|---|
| 16 | K DGNOKILL
|
|---|
| 17 | Q
|
|---|
| 18 | CLEAN ;
|
|---|
| 19 | S DGBTFL=1
|
|---|
| 20 | S DGBTIEN=$O(^DGBT(392,"B",DGBT,""))
|
|---|
| 21 | W !,?5,"Bad cross-reference: ^DGBT(392,""B"",",DGBT,",",DGBTIEN,")"
|
|---|
| 22 | I DGBTIEN'=DGBT!(DGBT=+DGBT)!(DGBT'>0) D
|
|---|
| 23 | .W !?5,"Non-standard corruption. Please review above record and remove manually."
|
|---|
| 24 | E D
|
|---|
| 25 | .Q:$G(DGNOKILL)
|
|---|
| 26 | .K ^DGBT(392,DGBT)
|
|---|
| 27 | .K ^DGBT(392,"B",DGBT)
|
|---|
| 28 | .W ?50,"...deleted."
|
|---|
| 29 | Q
|
|---|
