| 1 | XU8P328B ;SFISC/SO- ADD NPCD FIPS CODES;7:17 AM 12 Feb 2004
|
|---|
| 2 | ;;8.0;KERNEL;**328**;Jul 10, 1995
|
|---|
| 3 | BEG ;
|
|---|
| 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 | ;
|
|---|
| 27 | 1 ;;12025,025,DADE,12,FL,FLORIDA,ACTIVE,
|
|---|
| 28 | 2 ;;15005,005,KALAWAO,15,HI,HAWAII,ACTIVE,
|
|---|
| 29 | 3 ;;30113,113,YELLOWSTONE NATIONAL PARK,30,MT,MONTANA,ACTIVE,
|
|---|
| 30 | 4 ;;51515,515,BEDFORD (CITY),51,VA,VIRGINIA,ACTIVE,
|
|---|
| 31 | 5 ;;51595,595,EMPORIA (CITY),51,VA,VIRGINIA,ACTIVE,
|
|---|
| 32 | 6 ;;60010,010,EASTERN (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
|
|---|
| 33 | 7 ;;60020,020,MANU'A (DISTRICT),60,AS,AMERICA SAMOA,ACTIVE,
|
|---|
| 34 | 8 ;;60030,030,ROSE ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
|
|---|
| 35 | 9 ;;60040,040,SWAINS ISLAND,60,AS,AMERICA SAMOA,ACTIVE,
|
|---|
| 36 | 10 ;;64002,002,CHUUK,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
|
|---|
| 37 | 11 ;;64005,005,KOSRAE,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
|
|---|
| 38 | 12 ;;64040,040,POHNPEI,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
|
|---|
| 39 | 13 ;;64060,060,YAP,64,FM,FEDERATED STATES OF MICRONESIA (FM),ACTIVE,
|
|---|
| 40 | 14 ;;68007,007,AILINGINAE,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 41 | 15 ;;68010,010,AILINGLAPLAP,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 42 | 16 ;;68030,030,AILUK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 43 | 17 ;;68040,040,ARNO,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 44 | 18 ;;68050,050,AUR,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 45 | 19 ;;68060,060,BIKAR,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 46 | 20 ;;68070,070,BIKINI,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 47 | 21 ;;68073,073,BOKAK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 48 | 22 ;;68080,080,EBON,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 49 | 23 ;;68090,090,ENEWETAK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 50 | 24 ;;68100,100,ERIKUB,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 51 | 25 ;;68110,110,JABAT,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 52 | 26 ;;68120,120,JALUIT,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 53 | 27 ;;68130,130,JEMO,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 54 | 28 ;;68140,140,KILI,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 55 | 29 ;;68150,150,KWAJALEIN,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 56 | 30 ;;68160,160,LAE,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 57 | 31 ;;68170,170,LIB,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 58 | 32 ;;68180,180,LIKIEP,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 59 | 33 ;;68190,190,MAJURO,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 60 | 34 ;;68300,300,MALOELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 61 | 35 ;;68310,310,MEJIT,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 62 | 36 ;;68320,320,MILI,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 63 | 37 ;;68330,330,NAMORIK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 64 | 38 ;;68340,340,NAMU,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 65 | 39 ;;68350,350,RONGELAP,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 66 | 40 ;;68360,360,RONGRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 67 | 41 ;;68385,385,TOKE,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 68 | 42 ;;68390,390,UJAE,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 69 | 43 ;;68400,400,UJELANG,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 70 | 44 ;;68410,410,UTRIK,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 71 | 45 ;;68420,420,WOTHO,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 72 | 46 ;;68430,430,WOTJE,68,MH,MARSHALL ISLANDS,ACTIVE,
|
|---|
| 73 | 47 ;;69085,085,NORTHERN ISLANDS,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
|
|---|
| 74 | 48 ;;69100,100,ROTA,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
|
|---|
| 75 | 49 ;;69110,110,SAIPAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
|
|---|
| 76 | 50 ;;69120,120,TINIAN,69,MP,NORTHERN MARIANA ISLANDS,ACTIVE,
|
|---|
| 77 | 51 ;;70002,002,AIMELIIK,70,PW,PALAU,ACTIVE,
|
|---|
| 78 | 52 ;;70004,004,AIRAI,70,PW,PALAU,ACTIVE,
|
|---|
| 79 | 53 ;;70010,010,ANGAUR,70,PW,PALAU,ACTIVE,
|
|---|
| 80 | 54 ;;70050,050,HATOBOHEI,70,PW,PALAU,ACTIVE,
|
|---|
| 81 | 55 ;;70100,100,KAYANGEL,70,PW,PALAU,ACTIVE,
|
|---|
| 82 | 56 ;;70150,150,KOROR,70,PW,PALAU,ACTIVE,
|
|---|
| 83 | 57 ;;70212,212,MELEKEOK,70,PW,PALAU,ACTIVE,
|
|---|
| 84 | 58 ;;70214,214,NGARAARD,70,PW,PALAU,ACTIVE,
|
|---|
| 85 | 59 ;;70218,218,NGARCHELONG,70,PW,PALAU,ACTIVE,
|
|---|
| 86 | 60 ;;70222,222,NGARDMAU,70,PW,PALAU,ACTIVE,
|
|---|
| 87 | 61 ;;70224,224,NGATPANG,70,PW,PALAU,ACTIVE,
|
|---|
| 88 | 62 ;;70226,226,NGCHESAR,70,PW,PALAU,ACTIVE,
|
|---|
| 89 | 63 ;;70227,227,NGEREMLENGUI,70,PW,PALAU,ACTIVE,
|
|---|
| 90 | 64 ;;70228,228,NGIWAL,70,PW,PALAU,ACTIVE,
|
|---|
| 91 | 65 ;;70350,350,PELELIU,70,PW,PALAU,ACTIVE,
|
|---|
| 92 | 66 ;;70370,370,SONSOROL,70,PW,PALAU,ACTIVE,
|
|---|
| 93 | 67 ;;74050,050,BAKER ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 94 | 68 ;;74100,100,HOWLAND ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 95 | 69 ;;74150,150,JARVIS ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 96 | 70 ;;74200,200,JOHNSTON ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 97 | 71 ;;74250,250,KINGMAN REEF,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 98 | 72 ;;74300,300,MIDWAY ISLANDS,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 99 | 73 ;;74350,350,NAVASSA ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 100 | 74 ;;74400,400,PALMYRA ATOLL,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 101 | 75 ;;74450,450,WAKE ISLAND,74,UM,U.S. MINOR OUTLYING ISLANDS,ACTIVE,
|
|---|
| 102 | 99 ;;END
|
|---|
