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/XU8P328B.m@ 701

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

initial load of WorldVistAEHR

File size: 4.8 KB
Line 
1XU8P328B ;SFISC/SO- ADD NPCD FIPS CODES;7:17 AM 12 Feb 2004
2 ;;8.0;KERNEL;**328**;Jul 10, 1995
3BEG ;
4 N TAG,DATA
5 D MES^XPDUTL("Begin Additions to 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 . D
9 .. N FDA,DIERR,Z,ZERR
10 .. D FIND^DIC(5.13,"","","P",$P(DATA,","),"","","","","Z","ZERR")
11 .. I +$G(Z("DILIST",0))<2 Q
12 .. F I=1:1:+Z("DILIST",0) D
13 ... I I=1 Q
14 ... S FDA(5.13,+Z("DILIST",I,0)_",",.01)="@"
15 ... D FILE^DIE("","FDA","ZERR")
16 . D
17 .. N FDA,DIERR,ZERR
18 .. S FDA(5.13,"?+1,",.01)=$P(DATA,",")
19 .. S FDA(5.13,"?+1,",1)=$P(DATA,",",3)
20 .. S FDA(5.13,"?+1,",2)=$$FIND1^DIC(5,"","X",$P(DATA,",",5),"C","","ZERR")
21 .. D UPDATE^DIE("","FDA","","ZERR")
22 .. Q
23 K ^XIP(5.13,"AC") ;CLEAN TRANSMISSION FLAG
24 D MES^XPDUTL("Finished Additions to COUNTY CODE(#5.13) file.")
25 Q
26 ;
271 ;;12025,025,DADE,12,FL,FLORIDA,ACTIVE,
282 ;;15005,005,KALAWAO,15,HI,HAWAII,ACTIVE,
293 ;;30113,113,YELLOWSTONE NATIONAL PARK,30,MT,MONTANA,ACTIVE,
304 ;;51515,515,BEDFORD (CITY),51,VA,VIRGINIA,ACTIVE,
315 ;;51595,595,EMPORIA (CITY),51,VA,VIRGINIA,ACTIVE,
326 ;;60010,010,EASTERN (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
337 ;;60020,020,MANU'A (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
348 ;;60030,030,ROSE ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
359 ;;60040,040,SWAINS ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
3610 ;;64002,002,CHUUK,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
3711 ;;64005,005,KOSRAE,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
3812 ;;64040,040,POHNPEI,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
3913 ;;64060,060,YAP,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
4014 ;;68007,007,AILINGINAE,68,MH,MARSHALL ISLANDS,ACTIVE,
4115 ;;68010,010,AILINGLAPLAP,68,MH,MARSHALL ISLANDS,ACTIVE,
4216 ;;68030,030,AILUK,68,MH,MARSHALL ISLANDS,ACTIVE,
4317 ;;68040,040,ARNO,68,MH,MARSHALL ISLANDS,ACTIVE,
4418 ;;68050,050,AUR,68,MH,MARSHALL ISLANDS,ACTIVE,
4519 ;;68060,060,BIKAR,68,MH,MARSHALL ISLANDS,ACTIVE,
4620 ;;68070,070,BIKINI,68,MH,MARSHALL ISLANDS,ACTIVE,
4721 ;;68073,073,BOKAK,68,MH,MARSHALL ISLANDS,ACTIVE,
4822 ;;68080,080,EBON,68,MH,MARSHALL ISLANDS,ACTIVE,
4923 ;;68090,090,ENEWETAK,68,MH,MARSHALL ISLANDS,ACTIVE,
5024 ;;68100,100,ERIKUB,68,MH,MARSHALL ISLANDS,ACTIVE,
5125 ;;68110,110,JABAT,68,MH,MARSHALL ISLANDS,ACTIVE,
5226 ;;68120,120,JALUIT,68,MH,MARSHALL ISLANDS,ACTIVE,
5327 ;;68130,130,JEMO,68,MH,MARSHALL ISLANDS,ACTIVE,
5428 ;;68140,140,KILI,68,MH,MARSHALL ISLANDS,ACTIVE,
5529 ;;68150,150,KWAJALEIN,68,MH,MARSHALL ISLANDS,ACTIVE,
5630 ;;68160,160,LAE,68,MH,MARSHALL ISLANDS,ACTIVE,
5731 ;;68170,170,LIB,68,MH,MARSHALL ISLANDS,ACTIVE,
5832 ;;68180,180,LIKIEP,68,MH,MARSHALL ISLANDS,ACTIVE,
5933 ;;68190,190,MAJURO,68,MH,MARSHALL ISLANDS,ACTIVE,
6034 ;;68300,300,MALOELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
6135 ;;68310,310,MEJIT,68,MH,MARSHALL ISLANDS,ACTIVE,
6236 ;;68320,320,MILI,68,MH,MARSHALL ISLANDS,ACTIVE,
6337 ;;68330,330,NAMORIK,68,MH,MARSHALL ISLANDS,ACTIVE,
6438 ;;68340,340,NAMU,68,MH,MARSHALL ISLANDS,ACTIVE,
6539 ;;68350,350,RONGELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
6640 ;;68360,360,RONGRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
6741 ;;68385,385,TOKE,68,MH,MARSHALL ISLANDS,ACTIVE,
6842 ;;68390,390,UJAE,68,MH,MARSHALL ISLANDS,ACTIVE,
6943 ;;68400,400,UJELANG,68,MH,MARSHALL ISLANDS,ACTIVE,
7044 ;;68410,410,UTRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
7145 ;;68420,420,WOTHO,68,MH,MARSHALL ISLANDS,ACTIVE,
7246 ;;68430,430,WOTJE,68,MH,MARSHALL ISLANDS,ACTIVE,
7347 ;;69085,085,NORTHERN ISLANDS,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
7448 ;;69100,100,ROTA,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
7549 ;;69110,110,SAIPAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
7650 ;;69120,120,TINIAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
7751 ;;70002,002,AIMELIIK,70,PW,PALAU,ACTIVE,
7852 ;;70004,004,AIRAI,70,PW,PALAU,ACTIVE,
7953 ;;70010,010,ANGAUR,70,PW,PALAU,ACTIVE,
8054 ;;70050,050,HATOBOHEI,70,PW,PALAU,ACTIVE,
8155 ;;70100,100,KAYANGEL,70,PW,PALAU,ACTIVE,
8256 ;;70150,150,KOROR,70,PW,PALAU,ACTIVE,
8357 ;;70212,212,MELEKEOK,70,PW,PALAU,ACTIVE,
8458 ;;70214,214,NGARAARD,70,PW,PALAU,ACTIVE,
8559 ;;70218,218,NGARCHELONG,70,PW,PALAU,ACTIVE,
8660 ;;70222,222,NGARDMAU,70,PW,PALAU,ACTIVE,
8761 ;;70224,224,NGATPANG,70,PW,PALAU,ACTIVE,
8862 ;;70226,226,NGCHESAR,70,PW,PALAU,ACTIVE,
8963 ;;70227,227,NGEREMLENGUI,70,PW,PALAU,ACTIVE,
9064 ;;70228,228,NGIWAL,70,PW,PALAU,ACTIVE,
9165 ;;70350,350,PELELIU,70,PW,PALAU,ACTIVE,
9266 ;;70370,370,SONSOROL,70,PW,PALAU,ACTIVE,
9367 ;;74050,050,BAKER ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9468 ;;74100,100,HOWLAND ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9569 ;;74150,150,JARVIS ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9670 ;;74200,200,JOHNSTON ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9771 ;;74250,250,KINGMAN REEF,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9872 ;;74300,300,MIDWAY ISLANDS,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
9973 ;;74350,350,NAVASSA ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
10074 ;;74400,400,PALMYRA ATOLL,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
10175 ;;74450,450,WAKE ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
10299 ;;END
Note: See TracBrowser for help on using the repository browser.