Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
931 bytes
|
Line | |
---|
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
|
---|
Note:
See
TracBrowser
for help on using the repository browser.