| [613] | 1 | XU8P260 ;OAK-BP/BDT ;STATE FILE CORRECTION; [11/13/02 7:35am]
|
|---|
| 2 | ;;8.0;KERNEL;**260**;Jul 10, 1995
|
|---|
| 3 | ;Correct misspelling for Chittenden county of Vermont
|
|---|
| 4 | CRTP ;
|
|---|
| 5 | N X
|
|---|
| 6 | ;loop through sub-file county of Vermont
|
|---|
| 7 | S X=0 F S X=$O(^DIC(5,50,1,X)) Q:X'>0 D
|
|---|
| 8 | .;correct VA CODE for LAMOILLE
|
|---|
| 9 | .I $P($G(^DIC(5,50,1,X,0)),"^")="LAMOILLE" D
|
|---|
| 10 | ..S $P(^DIC(5,50,1,X,0),"^",3)="015"
|
|---|
| 11 | .;check misspelling
|
|---|
| 12 | .I $P($G(^DIC(5,50,1,X,0)),"^")="CHITTENDON" D
|
|---|
| 13 | ..;correct misspelling
|
|---|
| 14 | ..S $P(^DIC(5,50,1,X,0),"^")="CHITTENDEN"
|
|---|
| 15 | ..;reindex to correct misspelling for B x-ref
|
|---|
| 16 | N DA,DIK S DIK="^DIC(5," D IXALL2^DIK
|
|---|
| 17 | N DA,DIK S DIK="^DIC(5," D IXALL^DIK
|
|---|
| 18 | Q
|
|---|
