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 Dec 13, 2024@02:07:04 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