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