XU8P328A ;SFISC/SO- SYNC COUNTY SPELLING WITH NPCD ;10:22 AM  12 Jan 2004
 ;;8.0;KERNEL;**328**;Jul 10, 1995
BEG ;
 N TAG,DATA
 D MES^XPDUTL("Begin County Name Corrections in COUNTY CODE(#5.13) file...")
 F TAG=1:1:99 Q:TAG=99  I $T(@TAG)]"" D
 . S DATA=$P($T(@TAG),";;",2)
 . N FDA,DIERR,ZERR,FIPS,IEN
 . S FIPS=$P(DATA,","),IEN=$O(^XIP(5.13,"B",FIPS,0)) Q:'IEN
 . S FDA(5.13,IEN_",",1)=$P(DATA,",",2)
 . D FILE^DIE("","FDA","ZERR")
 K ^XIP(5.13,"AC") ;CLEAN TRANSMISSION FLAG
 D MES^XPDUTL("Finished with County Name corrections.")
 Q
 ;
1 ;;01049,DEKALB,
2 ;;01115,ST. CLAIR,
3 ;;02016,ALEUTIANS WEST (CA),
4 ;;02050,BETHEL (CA),
5 ;;02070,DILLINGHAM (CA),
6 ;;02170,MATANUSKA-SUSITNA,
7 ;;02180,NOME (CA),
10 ;;02240,SOUTHEAST FAIRBANKS (CA),
11 ;;02261,VALDEZ-CORDOVA (CA),
12 ;;02270,WADE HAMPTON (CA),
13 ;;02280,WRANGELL-PETERSBURG (CA),
14 ;;02290,YUKON-KOYUKUK (CA),
15 ;;05123,ST. FRANCIS,
16 ;;12027,DESOTO,
17 ;;12109,ST. JOHNS,
18 ;;12111,ST. LUCIE,
19 ;;17037,DEKALB,
20 ;;17039,DE WITT,
21 ;;17043,DUPAGE,
22 ;;17163,ST. CLAIR,
23 ;;17183,VERMILLION,
24 ;;18141,ST. JOSEPH,
25 ;;19141,O'BRIEN,
26 ;;22087,ST. BERNARD,
27 ;;22089,ST. CHARLES,
28 ;;22091,ST. HELENA,
29 ;;22093,ST. JAMES,
30 ;;22095,ST. JOHN THE BAPTIST,
31 ;;22097,ST. LANDRY,
32 ;;22099,ST. MARTIN,
33 ;;22101,ST. MARY,
34 ;;22103,ST. TAMMANY,
35 ;;24033,PRINCE GEORGE'S,
36 ;;24035,QUEEN ANNE'S,
37 ;;24037,ST. MARY'S,
38 ;;24510,BALTIMORE (CITY),
39 ;;26147,ST. CLAIR,
40 ;;26149,ST. JOSEPH,
41 ;;27137,ST. LOUIS,
42 ;;28033,DESOTO,
43 ;;29183,ST. CHARLES,
44 ;;29185,ST. CLAIR,
45 ;;29186,STE. GENEVIEVE,
46 ;;29187,ST. FRANCOIS,
47 ;;29189,ST. LOUIS,
48 ;;29510,ST. LOUIS (CITY),
49 ;;35011,DEBACA,
50 ;;36089,ST. LAWRENCE,
51 ;;48123,DEWITT,
52 ;;51510,ALEXANDRIA (CITY),
53 ;;51520,BRISTOL (CITY),
54 ;;51530,BUENA VISTA (CITY),
55 ;;51540,CHARLOTTESVILLE (CITY),
56 ;;51550,CHESAPEAKE (CITY),
57 ;;51560,CLIFTON FORGE (CITY),
58 ;;51570,COLONIAL HEIGHTS (CITY),
59 ;;51580,COVINGTON (CITY),
60 ;;51590,DANVILLE (CITY),
61 ;;51600,FAIRFAX (CITY),
62 ;;51610,FALLS CHURCH (CITY),
63 ;;51620,FRANKLIN (CITY),
64 ;;51630,FREDERICKSBURG (CITY),
65 ;;51640,GALAX (CITY),
66 ;;51650,HAMPTON (CITY),
67 ;;51660,HARRISONBURG (CITY),
68 ;;51670,HOPEWELL (CITY),
69 ;;51678,LEXINGTON (CITY),
70 ;;51680,LYNCHBURG (CITY),
71 ;;51683,MANASSAS (CITY),
72 ;;51685,MANASSAS PARK (CITY),
73 ;;51690,MARTINSVILLE (CITY),
74 ;;51700,NEWPORT NEWS (CITY),
75 ;;51710,NORFOLK (CITY),
76 ;;51720,NORTON (CITY),
77 ;;51730,PETERSBURG (CITY),
78 ;;51735,POQUOSON (CITY),
79 ;;51740,PORTSMOUTH (CITY),
80 ;;51750,RADFORD (CITY),
81 ;;51760,RICHMOND (CITY),
82 ;;51770,ROANOKE (CITY),
83 ;;51775,SALEM (CITY),
84 ;;51790,STAUNTON (CITY),
85 ;;51800,SUFFOLK (CITY),
86 ;;51810,VIRGINIA BEACH (CITY),
87 ;;51820,WAYNESBORO (CITY),
88 ;;51830,WILLIAMSBURG (CITY),
89 ;;51840,WINCHESTER (CITY),
90 ;;55109,ST. CROIX,
91 ;;60050,WESTERN (DISTRICT),
92 ;;78010,ST. CROIX,
93 ;;78020,ST. JOHN,
94 ;;78030,ST. THOMAS,
99 ;;END
