- 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 ---[H[J[2J[HXU8P260 646 printed Feb 18, 2025@23:33:30 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
