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 ---[H[J[2J[HXU8P328A 3090 printed Nov 22, 2024@17:17:22 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
