XU8P328A.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P328A   3090     printed  Apr 09, 2024@21:12:33                                                                                                                                                                                                    Page 2

XU8P328A  ;SFISC/SO- SYNC COUNTY SPELLING WITH NPCD ;10:22 AM  12 Jan 2004

 +1       ;;8.0;KERNEL;**328**;Jul 10, 1995

BEG       ;

 +1        NEW TAG,DATA

 +2        DO MES^XPDUTL("Begin County Name Corrections in COUNTY CODE(#5.13) file...")

 +3        FOR TAG=1:1:99

               if TAG=99

                   QUIT 

               IF $TEXT(@TAG)]""

                   Begin DoDot:1

 +4                    SET DATA=$PIECE($TEXT(@TAG),";;",2)

 +5                    NEW FDA,DIERR,ZERR,FIPS,IEN

 +6                    SET FIPS=$PIECE(DATA,",")

                       SET IEN=$ORDER(^XIP(5.13,"B",FIPS,0))

                       if 'IEN

                           QUIT 

 +7                    SET FDA(5.13,IEN_",",1)=$PIECE(DATA,",",2)

 +8                    DO FILE^DIE("","FDA","ZERR")

                   End DoDot:1

 +9       ;CLEAN TRANSMISSION FLAG

           KILL ^XIP(5.13,"AC")

 +10       DO MES^XPDUTL("Finished with County Name corrections.")

 +11       QUIT 

 +12      ;

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