XU8P328B ;SFISC/SO- ADD NPCD FIPS CODES;7:17 AM 12 Feb 2004
;;8.0;KERNEL;**328**;Jul 10, 1995
BEG ;
N TAG,DATA
D MES^XPDUTL("Begin Additions to COUNTY CODE(#5.13) file...")
F TAG=1:1:99 Q:TAG=99 I $T(@TAG)]"" D
. S DATA=$P($T(@TAG),";;",2)
. D
.. N FDA,DIERR,Z,ZERR
.. D FIND^DIC(5.13,"","","P",$P(DATA,","),"","","","","Z","ZERR")
.. I +$G(Z("DILIST",0))<2 Q
.. F I=1:1:+Z("DILIST",0) D
... I I=1 Q
... S FDA(5.13,+Z("DILIST",I,0)_",",.01)="@"
... D FILE^DIE("","FDA","ZERR")
. D
.. N FDA,DIERR,ZERR
.. S FDA(5.13,"?+1,",.01)=$P(DATA,",")
.. S FDA(5.13,"?+1,",1)=$P(DATA,",",3)
.. S FDA(5.13,"?+1,",2)=$$FIND1^DIC(5,"","X",$P(DATA,",",5),"C","","ZERR")
.. D UPDATE^DIE("","FDA","","ZERR")
.. Q
K ^XIP(5.13,"AC") ;CLEAN TRANSMISSION FLAG
D MES^XPDUTL("Finished Additions to COUNTY CODE(#5.13) file.")
Q
;
1 ;;12025,025,DADE,12,FL,FLORIDA,ACTIVE,
2 ;;15005,005,KALAWAO,15,HI,HAWAII,ACTIVE,
3 ;;30113,113,YELLOWSTONE NATIONAL PARK,30,MT,MONTANA,ACTIVE,
4 ;;51515,515,BEDFORD (CITY),51,VA,VIRGINIA,ACTIVE,
5 ;;51595,595,EMPORIA (CITY),51,VA,VIRGINIA,ACTIVE,
6 ;;60010,010,EASTERN (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
7 ;;60020,020,MANU'A (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
8 ;;60030,030,ROSE ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
9 ;;60040,040,SWAINS ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
10 ;;64002,002,CHUUK,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
11 ;;64005,005,KOSRAE,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
12 ;;64040,040,POHNPEI,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
13 ;;64060,060,YAP,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
14 ;;68007,007,AILINGINAE,68,MH,MARSHALL ISLANDS,ACTIVE,
15 ;;68010,010,AILINGLAPLAP,68,MH,MARSHALL ISLANDS,ACTIVE,
16 ;;68030,030,AILUK,68,MH,MARSHALL ISLANDS,ACTIVE,
17 ;;68040,040,ARNO,68,MH,MARSHALL ISLANDS,ACTIVE,
18 ;;68050,050,AUR,68,MH,MARSHALL ISLANDS,ACTIVE,
19 ;;68060,060,BIKAR,68,MH,MARSHALL ISLANDS,ACTIVE,
20 ;;68070,070,BIKINI,68,MH,MARSHALL ISLANDS,ACTIVE,
21 ;;68073,073,BOKAK,68,MH,MARSHALL ISLANDS,ACTIVE,
22 ;;68080,080,EBON,68,MH,MARSHALL ISLANDS,ACTIVE,
23 ;;68090,090,ENEWETAK,68,MH,MARSHALL ISLANDS,ACTIVE,
24 ;;68100,100,ERIKUB,68,MH,MARSHALL ISLANDS,ACTIVE,
25 ;;68110,110,JABAT,68,MH,MARSHALL ISLANDS,ACTIVE,
26 ;;68120,120,JALUIT,68,MH,MARSHALL ISLANDS,ACTIVE,
27 ;;68130,130,JEMO,68,MH,MARSHALL ISLANDS,ACTIVE,
28 ;;68140,140,KILI,68,MH,MARSHALL ISLANDS,ACTIVE,
29 ;;68150,150,KWAJALEIN,68,MH,MARSHALL ISLANDS,ACTIVE,
30 ;;68160,160,LAE,68,MH,MARSHALL ISLANDS,ACTIVE,
31 ;;68170,170,LIB,68,MH,MARSHALL ISLANDS,ACTIVE,
32 ;;68180,180,LIKIEP,68,MH,MARSHALL ISLANDS,ACTIVE,
33 ;;68190,190,MAJURO,68,MH,MARSHALL ISLANDS,ACTIVE,
34 ;;68300,300,MALOELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
35 ;;68310,310,MEJIT,68,MH,MARSHALL ISLANDS,ACTIVE,
36 ;;68320,320,MILI,68,MH,MARSHALL ISLANDS,ACTIVE,
37 ;;68330,330,NAMORIK,68,MH,MARSHALL ISLANDS,ACTIVE,
38 ;;68340,340,NAMU,68,MH,MARSHALL ISLANDS,ACTIVE,
39 ;;68350,350,RONGELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
40 ;;68360,360,RONGRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
41 ;;68385,385,TOKE,68,MH,MARSHALL ISLANDS,ACTIVE,
42 ;;68390,390,UJAE,68,MH,MARSHALL ISLANDS,ACTIVE,
43 ;;68400,400,UJELANG,68,MH,MARSHALL ISLANDS,ACTIVE,
44 ;;68410,410,UTRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
45 ;;68420,420,WOTHO,68,MH,MARSHALL ISLANDS,ACTIVE,
46 ;;68430,430,WOTJE,68,MH,MARSHALL ISLANDS,ACTIVE,
47 ;;69085,085,NORTHERN ISLANDS,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
48 ;;69100,100,ROTA,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
49 ;;69110,110,SAIPAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
50 ;;69120,120,TINIAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
51 ;;70002,002,AIMELIIK,70,PW,PALAU,ACTIVE,
52 ;;70004,004,AIRAI,70,PW,PALAU,ACTIVE,
53 ;;70010,010,ANGAUR,70,PW,PALAU,ACTIVE,
54 ;;70050,050,HATOBOHEI,70,PW,PALAU,ACTIVE,
55 ;;70100,100,KAYANGEL,70,PW,PALAU,ACTIVE,
56 ;;70150,150,KOROR,70,PW,PALAU,ACTIVE,
57 ;;70212,212,MELEKEOK,70,PW,PALAU,ACTIVE,
58 ;;70214,214,NGARAARD,70,PW,PALAU,ACTIVE,
59 ;;70218,218,NGARCHELONG,70,PW,PALAU,ACTIVE,
60 ;;70222,222,NGARDMAU,70,PW,PALAU,ACTIVE,
61 ;;70224,224,NGATPANG,70,PW,PALAU,ACTIVE,
62 ;;70226,226,NGCHESAR,70,PW,PALAU,ACTIVE,
63 ;;70227,227,NGEREMLENGUI,70,PW,PALAU,ACTIVE,
64 ;;70228,228,NGIWAL,70,PW,PALAU,ACTIVE,
65 ;;70350,350,PELELIU,70,PW,PALAU,ACTIVE,
66 ;;70370,370,SONSOROL,70,PW,PALAU,ACTIVE,
67 ;;74050,050,BAKER ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
68 ;;74100,100,HOWLAND ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
69 ;;74150,150,JARVIS ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
70 ;;74200,200,JOHNSTON ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
71 ;;74250,250,KINGMAN REEF,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
72 ;;74300,300,MIDWAY ISLANDS,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
73 ;;74350,350,NAVASSA ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
74 ;;74400,400,PALMYRA ATOLL,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
75 ;;74450,450,WAKE ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
99 ;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P328B 5039 printed Nov 22, 2024@17:17:23 Page 2
XU8P328B ;SFISC/SO- ADD NPCD FIPS CODES;7:17 AM 12 Feb 2004
+1 ;;8.0;KERNEL;**328**;Jul 10, 1995
BEG ;
+1 NEW TAG,DATA
+2 DO MES^XPDUTL("Begin Additions to 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 Begin DoDot:2
+6 NEW FDA,DIERR,Z,ZERR
+7 DO FIND^DIC(5.13,"","","P",$PIECE(DATA,","),"","","","","Z","ZERR")
+8 IF +$GET(Z("DILIST",0))<2
QUIT
+9 FOR I=1:1:+Z("DILIST",0)
Begin DoDot:3
+10 IF I=1
QUIT
+11 SET FDA(5.13,+Z("DILIST",I,0)_",",.01)="@"
+12 DO FILE^DIE("","FDA","ZERR")
End DoDot:3
End DoDot:2
+13 Begin DoDot:2
+14 NEW FDA,DIERR,ZERR
+15 SET FDA(5.13,"?+1,",.01)=$PIECE(DATA,",")
+16 SET FDA(5.13,"?+1,",1)=$PIECE(DATA,",",3)
+17 SET FDA(5.13,"?+1,",2)=$$FIND1^DIC(5,"","X",$PIECE(DATA,",",5),"C","","ZERR")
+18 DO UPDATE^DIE("","FDA","","ZERR")
+19 QUIT
End DoDot:2
End DoDot:1
+20 ;CLEAN TRANSMISSION FLAG
KILL ^XIP(5.13,"AC")
+21 DO MES^XPDUTL("Finished Additions to COUNTY CODE(#5.13) file.")
+22 QUIT
+23 ;
1 ;;12025,025,DADE,12,FL,FLORIDA,ACTIVE,
2 ;;15005,005,KALAWAO,15,HI,HAWAII,ACTIVE,
3 ;;30113,113,YELLOWSTONE NATIONAL PARK,30,MT,MONTANA,ACTIVE,
4 ;;51515,515,BEDFORD (CITY),51,VA,VIRGINIA,ACTIVE,
5 ;;51595,595,EMPORIA (CITY),51,VA,VIRGINIA,ACTIVE,
6 ;;60010,010,EASTERN (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
7 ;;60020,020,MANU'A (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
8 ;;60030,030,ROSE ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
9 ;;60040,040,SWAINS ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
10 ;;64002,002,CHUUK,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
11 ;;64005,005,KOSRAE,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
12 ;;64040,040,POHNPEI,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
13 ;;64060,060,YAP,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
14 ;;68007,007,AILINGINAE,68,MH,MARSHALL ISLANDS,ACTIVE,
15 ;;68010,010,AILINGLAPLAP,68,MH,MARSHALL ISLANDS,ACTIVE,
16 ;;68030,030,AILUK,68,MH,MARSHALL ISLANDS,ACTIVE,
17 ;;68040,040,ARNO,68,MH,MARSHALL ISLANDS,ACTIVE,
18 ;;68050,050,AUR,68,MH,MARSHALL ISLANDS,ACTIVE,
19 ;;68060,060,BIKAR,68,MH,MARSHALL ISLANDS,ACTIVE,
20 ;;68070,070,BIKINI,68,MH,MARSHALL ISLANDS,ACTIVE,
21 ;;68073,073,BOKAK,68,MH,MARSHALL ISLANDS,ACTIVE,
22 ;;68080,080,EBON,68,MH,MARSHALL ISLANDS,ACTIVE,
23 ;;68090,090,ENEWETAK,68,MH,MARSHALL ISLANDS,ACTIVE,
24 ;;68100,100,ERIKUB,68,MH,MARSHALL ISLANDS,ACTIVE,
25 ;;68110,110,JABAT,68,MH,MARSHALL ISLANDS,ACTIVE,
26 ;;68120,120,JALUIT,68,MH,MARSHALL ISLANDS,ACTIVE,
27 ;;68130,130,JEMO,68,MH,MARSHALL ISLANDS,ACTIVE,
28 ;;68140,140,KILI,68,MH,MARSHALL ISLANDS,ACTIVE,
29 ;;68150,150,KWAJALEIN,68,MH,MARSHALL ISLANDS,ACTIVE,
30 ;;68160,160,LAE,68,MH,MARSHALL ISLANDS,ACTIVE,
31 ;;68170,170,LIB,68,MH,MARSHALL ISLANDS,ACTIVE,
32 ;;68180,180,LIKIEP,68,MH,MARSHALL ISLANDS,ACTIVE,
33 ;;68190,190,MAJURO,68,MH,MARSHALL ISLANDS,ACTIVE,
34 ;;68300,300,MALOELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
35 ;;68310,310,MEJIT,68,MH,MARSHALL ISLANDS,ACTIVE,
36 ;;68320,320,MILI,68,MH,MARSHALL ISLANDS,ACTIVE,
37 ;;68330,330,NAMORIK,68,MH,MARSHALL ISLANDS,ACTIVE,
38 ;;68340,340,NAMU,68,MH,MARSHALL ISLANDS,ACTIVE,
39 ;;68350,350,RONGELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
40 ;;68360,360,RONGRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
41 ;;68385,385,TOKE,68,MH,MARSHALL ISLANDS,ACTIVE,
42 ;;68390,390,UJAE,68,MH,MARSHALL ISLANDS,ACTIVE,
43 ;;68400,400,UJELANG,68,MH,MARSHALL ISLANDS,ACTIVE,
44 ;;68410,410,UTRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
45 ;;68420,420,WOTHO,68,MH,MARSHALL ISLANDS,ACTIVE,
46 ;;68430,430,WOTJE,68,MH,MARSHALL ISLANDS,ACTIVE,
47 ;;69085,085,NORTHERN ISLANDS,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
48 ;;69100,100,ROTA,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
49 ;;69110,110,SAIPAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
50 ;;69120,120,TINIAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
51 ;;70002,002,AIMELIIK,70,PW,PALAU,ACTIVE,
52 ;;70004,004,AIRAI,70,PW,PALAU,ACTIVE,
53 ;;70010,010,ANGAUR,70,PW,PALAU,ACTIVE,
54 ;;70050,050,HATOBOHEI,70,PW,PALAU,ACTIVE,
55 ;;70100,100,KAYANGEL,70,PW,PALAU,ACTIVE,
56 ;;70150,150,KOROR,70,PW,PALAU,ACTIVE,
57 ;;70212,212,MELEKEOK,70,PW,PALAU,ACTIVE,
58 ;;70214,214,NGARAARD,70,PW,PALAU,ACTIVE,
59 ;;70218,218,NGARCHELONG,70,PW,PALAU,ACTIVE,
60 ;;70222,222,NGARDMAU,70,PW,PALAU,ACTIVE,
61 ;;70224,224,NGATPANG,70,PW,PALAU,ACTIVE,
62 ;;70226,226,NGCHESAR,70,PW,PALAU,ACTIVE,
63 ;;70227,227,NGEREMLENGUI,70,PW,PALAU,ACTIVE,
64 ;;70228,228,NGIWAL,70,PW,PALAU,ACTIVE,
65 ;;70350,350,PELELIU,70,PW,PALAU,ACTIVE,
66 ;;70370,370,SONSOROL,70,PW,PALAU,ACTIVE,
67 ;;74050,050,BAKER ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
68 ;;74100,100,HOWLAND ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
69 ;;74150,150,JARVIS ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
70 ;;74200,200,JOHNSTON ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
71 ;;74250,250,KINGMAN REEF,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
72 ;;74300,300,MIDWAY ISLANDS,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
73 ;;74350,350,NAVASSA ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
74 ;;74400,400,PALMYRA ATOLL,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
75 ;;74450,450,WAKE ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
99 ;;END
