Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XU8P328A

XU8P328A.m

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