source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P328A.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1XU8P328A ;SFISC/SO- SYNC COUNTY SPELLING WITH NPCD ;10:22 AM 12 Jan 2004
2 ;;8.0;KERNEL;**328**;Jul 10, 1995
3BEG ;
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 ;
161 ;;01049,DEKALB,
172 ;;01115,ST. CLAIR,
183 ;;02016,ALEUTIANS WEST (CA),
194 ;;02050,BETHEL (CA),
205 ;;02070,DILLINGHAM (CA),
216 ;;02170,MATANUSKA-SUSITNA,
227 ;;02180,NOME (CA),
2310 ;;02240,SOUTHEAST FAIRBANKS (CA),
2411 ;;02261,VALDEZ-CORDOVA (CA),
2512 ;;02270,WADE HAMPTON (CA),
2613 ;;02280,WRANGELL-PETERSBURG (CA),
2714 ;;02290,YUKON-KOYUKUK (CA),
2815 ;;05123,ST. FRANCIS,
2916 ;;12027,DESOTO,
3017 ;;12109,ST. JOHNS,
3118 ;;12111,ST. LUCIE,
3219 ;;17037,DEKALB,
3320 ;;17039,DE WITT,
3421 ;;17043,DUPAGE,
3522 ;;17163,ST. CLAIR,
3623 ;;17183,VERMILLION,
3724 ;;18141,ST. JOSEPH,
3825 ;;19141,O'BRIEN,
3926 ;;22087,ST. BERNARD,
4027 ;;22089,ST. CHARLES,
4128 ;;22091,ST. HELENA,
4229 ;;22093,ST. JAMES,
4330 ;;22095,ST. JOHN THE BAPTIST,
4431 ;;22097,ST. LANDRY,
4532 ;;22099,ST. MARTIN,
4633 ;;22101,ST. MARY,
4734 ;;22103,ST. TAMMANY,
4835 ;;24033,PRINCE GEORGE'S,
4936 ;;24035,QUEEN ANNE'S,
5037 ;;24037,ST. MARY'S,
5138 ;;24510,BALTIMORE (CITY),
5239 ;;26147,ST. CLAIR,
5340 ;;26149,ST. JOSEPH,
5441 ;;27137,ST. LOUIS,
5542 ;;28033,DESOTO,
5643 ;;29183,ST. CHARLES,
5744 ;;29185,ST. CLAIR,
5845 ;;29186,STE. GENEVIEVE,
5946 ;;29187,ST. FRANCOIS,
6047 ;;29189,ST. LOUIS,
6148 ;;29510,ST. LOUIS (CITY),
6249 ;;35011,DEBACA,
6350 ;;36089,ST. LAWRENCE,
6451 ;;48123,DEWITT,
6552 ;;51510,ALEXANDRIA (CITY),
6653 ;;51520,BRISTOL (CITY),
6754 ;;51530,BUENA VISTA (CITY),
6855 ;;51540,CHARLOTTESVILLE (CITY),
6956 ;;51550,CHESAPEAKE (CITY),
7057 ;;51560,CLIFTON FORGE (CITY),
7158 ;;51570,COLONIAL HEIGHTS (CITY),
7259 ;;51580,COVINGTON (CITY),
7360 ;;51590,DANVILLE (CITY),
7461 ;;51600,FAIRFAX (CITY),
7562 ;;51610,FALLS CHURCH (CITY),
7663 ;;51620,FRANKLIN (CITY),
7764 ;;51630,FREDERICKSBURG (CITY),
7865 ;;51640,GALAX (CITY),
7966 ;;51650,HAMPTON (CITY),
8067 ;;51660,HARRISONBURG (CITY),
8168 ;;51670,HOPEWELL (CITY),
8269 ;;51678,LEXINGTON (CITY),
8370 ;;51680,LYNCHBURG (CITY),
8471 ;;51683,MANASSAS (CITY),
8572 ;;51685,MANASSAS PARK (CITY),
8673 ;;51690,MARTINSVILLE (CITY),
8774 ;;51700,NEWPORT NEWS (CITY),
8875 ;;51710,NORFOLK (CITY),
8976 ;;51720,NORTON (CITY),
9077 ;;51730,PETERSBURG (CITY),
9178 ;;51735,POQUOSON (CITY),
9279 ;;51740,PORTSMOUTH (CITY),
9380 ;;51750,RADFORD (CITY),
9481 ;;51760,RICHMOND (CITY),
9582 ;;51770,ROANOKE (CITY),
9683 ;;51775,SALEM (CITY),
9784 ;;51790,STAUNTON (CITY),
9885 ;;51800,SUFFOLK (CITY),
9986 ;;51810,VIRGINIA BEACH (CITY),
10087 ;;51820,WAYNESBORO (CITY),
10188 ;;51830,WILLIAMSBURG (CITY),
10289 ;;51840,WINCHESTER (CITY),
10390 ;;55109,ST. CROIX,
10491 ;;60050,WESTERN (DISTRICT),
10592 ;;78010,ST. CROIX,
10693 ;;78020,ST. JOHN,
10794 ;;78030,ST. THOMAS,
10899 ;;END
Note: See TracBrowser for help on using the repository browser.