XU8P260.m

XU8P260 ;OAK-BP/BDT ;STATE FILE CORRECTION; [11/13/02 7:35am]

 ;;8.0;KERNEL;**260**;Jul 10, 1995

 ;Correct misspelling for Chittenden county of Vermont

CRTP ;

 N X

 ;loop through sub-file county of Vermont

 S X=0 F  S X=$O(^DIC(5,50,1,X)) Q:X'>0  D

 .;correct VA CODE for LAMOILLE

 .I $P($G(^DIC(5,50,1,X,0)),"^")="LAMOILLE" D

 ..S $P(^DIC(5,50,1,X,0),"^",3)="015"

 .;check misspelling

 .I $P($G(^DIC(5,50,1,X,0)),"^")="CHITTENDON" D

 ..;correct misspelling

 ..S $P(^DIC(5,50,1,X,0),"^")="CHITTENDEN"

 ..;reindex to correct misspelling for B x-ref

 N DA,DIK S DIK="^DIC(5," D IXALL2^DIK

 N DA,DIK S DIK="^DIC(5," D IXALL^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P260   646     printed  Apr 09, 2024@21:18                                                                                                                                                                                                         Page 2

XU8P260   ;OAK-BP/BDT ;STATE FILE CORRECTION; [11/13/02 7:35am]

 +1       ;;8.0;KERNEL;**260**;Jul 10, 1995

 +2       ;Correct misspelling for Chittenden county of Vermont

CRTP      ;

 +1        NEW X

 +2       ;loop through sub-file county of Vermont

 +3        SET X=0

           FOR 

               SET X=$ORDER(^DIC(5,50,1,X))

               if X'>0

                   QUIT 

               Begin DoDot:1

 +4       ;correct VA CODE for LAMOILLE

 +5                IF $PIECE($GET(^DIC(5,50,1,X,0)),"^")="LAMOILLE"

                       Begin DoDot:2

 +6                        SET $PIECE(^DIC(5,50,1,X,0),"^",3)="015"

                       End DoDot:2

 +7       ;check misspelling

 +8                IF $PIECE($GET(^DIC(5,50,1,X,0)),"^")="CHITTENDON"

                       Begin DoDot:2

 +9       ;correct misspelling

 +10                       SET $PIECE(^DIC(5,50,1,X,0),"^")="CHITTENDEN"

 +11      ;reindex to correct misspelling for B x-ref

                       End DoDot:2

               End DoDot:1

 +12       NEW DA,DIK

           SET DIK="^DIC(5,"

           DO IXALL2^DIK

 +13       NEW DA,DIK

           SET DIK="^DIC(5,"

           DO IXALL^DIK

 +14       QUIT