XU8P378A ;OOIFO/SO- XU378 POST-INSTALL ;6:00 AM 7 Mar 2006
;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
E5 ; Edit State file first
D MES^XPDUTL("Begin STATE(#5) file update...")
I '$$FIND1^DIC(.11,"","X","ADUALC","IX") D
. N DIK
. K ^DIC(5,"C")
. S DIK="^DIC(5,"
. S DIK(1)="1^C"
. D ENALL^DIK
. S DIK(1)="2^C"
. D ENALL^DIK
;
N I,DATA,TBL
F I=1:1 S DATA=$T(D5+I) Q:$P(DATA,";;",2)["EOD" D
. S DATA=$P(DATA,";;",2)
. N DIC,Y,VAC,STATE,ABB,DLAYGO,AAC,USP
. S VAC=$P(DATA,U,1)
. S STATE=$P(DATA,U,2)
. S ABB=$P(DATA,U,3)
. S AAC=$P(DATA,U,4)
. S USP=$P(DATA,U,5)
. S DIC="^DIC(5,",DIC(0)="FZX",D="C",X=VAC D IX^DIC
. I Y<0 Q
. N X,X1
. S X=Y(0)
. S X1=$P(X,U,3)_U_$P(X,U,1)_U_$P(X,U,2)
T1 . I $P(DATA,U,1,3)'=X1 Q
. N DIE,DA,DR
. S DIE="^DIC(5,"
. S DA=+Y
. S DR="2.1///^S X=AAC;2.2///^S X=USP"
. F L +^DIC(5,DA,0):1 Q:$T H 5
. D ^DIE
. L -^DIC(5,DA,0)
. S TBL(VAC)=""
. Q
;
; Flag all entries not previously found as non-AAC
N IEN S IEN=0
F S IEN=$O(^DIC(5,IEN)) Q:'IEN D
. N X
. S X=$P(^DIC(5,IEN,0),U,3)
. I X'="",$D(TBL(X)) Q
. N DIE,DA,DR
. S DIE="^DIC(5,"
. S DA=IEN
. S DR="2.1///0;2.2///0"
. F L +^DIC(5,DA,0):1 Q:$T H 5
. D ^DIE
. L -^DIC(5,DA,0)
. Q
D MES^XPDUTL("Finished STATE(#5) file update.")
;
E513 ; Edit 5.13
D MES^XPDUTL("Begin COUNTY CODE(#5.13) file corrections...")
N I,DATA
F I=1:1 S DATA=$T(D513+I) Q:$P(DATA,";;",2)["EOD" D
. S DATA=$P(DATA,";;",2)
. N CODE,COUNTY,STATE,DIC,D
. S CODE=$P(DATA,U,1)
. S COUNTY=$E($P(DATA,U,2),1,25)
. S STATE=$P(DATA,U,3)
. S DIC="^XIP(5.13,",DIC(0)="FZX",D="B",X=CODE D IX^DIC
. I Y<1 D
.. N DLAYGO,DIC
.. S DLAYGO=5.13,DIC="^XIP(5.13,",DIC(0)="L"
.. S X=CODE
.. D FILE^DICN
.. Q
. N DIE,DA,DR
. S DIE="^XIP(5.13,",DA=+Y
. S DR="1///^S X=COUNTY;2///^S X=STATE"
. F L +^XIP(5.13,DA,0):1 Q:$T H 5
. D ^DIE
. L -^XIP(5.13,DA,0)
. Q
D MES^XPDUTL("Finished COUNTY CODE(#5.13) file corrections.")
;
P513 ; Fix any broken State pointers in 5.13
D MES^XPDUTL("Begin COUNTY CODE(#5.13) file pointer corrections...")
N IEN S IEN=0
F S IEN=$O(^XIP(5.13,IEN)) Q:'IEN D
. N FIPS S FIPS=$E($P(^XIP(5.13,IEN,0),U),1,2)
. N DIC
. S DIC="^DIC(5,",DIC(0)="FZX",D="C",X=FIPS D IX^DIC
. I Y<1 Q
. N STATE S STATE=$P(Y,U,2)
. N DIE,DA,DR
. S DIE="^XIP(5.13,"
. S DA=IEN
. F L +^XIP(5.13,DA,0):1 Q:$T H 5
. S DR="2///^S X=STATE"
. L -^XIP(5.13,DA,0)
. D ^DIE
. Q
D MES^XPDUTL("Finished COUNTY CODE(#5.13) file pointer corrections...")
;
Q
;
D5 ;VA STATE CODE^NAME^ABBREVIATION^AAC RECOGNIZED^US STATE OR POSSESSION
;;01^ALABAMA^AL^1^1
;;02^ALASKA^AK^1^1
;;58^ALBERTA^AB^1^0
;;60^AMERICAN SAMOA^AS^1^1
;;04^ARIZONA^AZ^1^1
;;05^ARKANSAS^AR^1^1
;;87^ARMED FORCES AF,EU,ME,CA^AE^1^1
;;85^ARMED FORCES AMER (EXC CANADA)^AA^1^1
;;88^ARMED FORCES PACIFIC^AP^1^1
;;59^BRITISH COLUMBIA^BC^1^0
;;06^CALIFORNIA^CA^1^1
;;91^CANADA^CANAD^0^0
;;08^COLORADO^CO^1^1
;;09^CONNECTICUT^CT^1^1
;;10^DELAWARE^DE^1^1
;;11^DISTRICT OF COLUMBIA^DC^1^1
;;93^EUROPE^EU^1^0
;;64^FEDERATED STATES OF MICRONESIA^FM^1^1
;;12^FLORIDA^FL^1^1
;;90^FOREIGN COUNTRY^FG^1^0
;;13^GEORGIA^GA^1^1
;;66^GUAM^GU^1^1
;;15^HAWAII^HI^1^1
;;16^IDAHO^ID^1^1
;;17^ILLINOIS^IL^1^1
;;18^INDIANA^IN^1^1
;;19^IOWA^IA^1^1
;;20^KANSAS^KS^1^1
;;21^KENTUCKY^KY^1^1
;;22^LOUISIANA^LA^1^1
;;23^MAINE^ME^1^1
;;61^MANITOBA^MB^1^0
;;68^MARSHALL ISLANDS^MH^1^1
;;24^MARYLAND^MD^1^1
;;25^MASSACHUSETTS^MA^1^1
;;92^MEXICO^MX^1^0
;;26^MICHIGAN^MI^1^1
;;27^MINNESOTA^MN^1^1
;;28^MISSISSIPPI^MS^1^1
;;29^MISSOURI^MO^1^1
;;30^MONTANA^MT^1^1
;;31^NEBRASKA^NE^1^1
;;32^NEVADA^NV^1^1
;;62^NEW BRUNSWICK^NB^1^0
;;33^NEW HAMPSHIRE^NH^1^1
;;34^NEW JERSEY^NJ^1^1
;;35^NEW MEXICO^NM^1^1
;;36^NEW YORK^NY^1^1
;;63^NEWFOUNDLAND^NF^1^0
;;37^NORTH CAROLINA^NC^1^1
;;38^NORTH DAKOTA^ND^1^1
;;69^NORTHERN MARIANA ISLANDS^MP^1^1
;;73^NORTHWEST TERRITORIES^NT^1^0
;;65^NOVA SCOTIA^NS^1^0
;;94^NUNAVUT PROVINCE^NU^1^0
;;39^OHIO^OH^1^1
;;40^OKLAHOMA^OK^1^1
;;75^ONTARIO^ON^1^0
;;41^OREGON^OR^1^1
;;70^PALAU^PW^1^0
;;42^PENNSYLVANIA^PA^1^1
;;96^PHILIPPINES^PH^1^0
;;77^PRINCE EDWARD ISLAND^PE^1^0
;;72^PUERTO RICO^PR^1^1
;;80^QUEBEC^QC^1^0
;;44^RHODE ISLAND^RI^1^1
;;82^SASKATCHEWAN^SK^1^0
;;45^SOUTH CAROLINA^SC^1^1
;;46^SOUTH DAKOTA^SD^1^1
;;47^TENNESSEE^TN^1^1
;;48^TEXAS^TX^1^1
;;74^U.S. MINOR OUTLYING ISLANDS^UM^1^1
;;49^UTAH^UT^1^1
;;50^VERMONT^VT^1^1
;;78^VIRGIN ISLANDS^VI^1^1
;;51^VIRGINIA^VA^1^1
;;53^WASHINGTON^WA^1^1
;;54^WEST VIRGINIA^WV^1^1
;;55^WISCONSIN^WI^1^1
;;56^WYOMING^WY^1^1
;;83^YUKON TERRITORY^YT^1^0
;;99999^EOD^EOD^EOD^EOD
;
D513 ;FIPS CODE^COUNTY NAME^STATE
;;17183^VERMILION^ILLINOIS
;;29186^ST. GENEVIEVE^MISSOURI
;;58260^ALBERTA^ALBERTA
;;87260^ARMED FORCES AF,EU,ME,CA^ARMED FORCES AF,EU,ME,CA
;;87000^ARMED FORCES^ARMED FORCES AF,EU,ME,CA
;;85260^ARMED FORCES AMER (EXC CANADA)^ARMED FORCES AMER (EXC CANADA)
;;85000^ARMED FORCES^ARMED FORCES AMER (EXC CANADA)
;;88260^ARMED FORCES PACIFIC^ARMED FORCES PACIFIC
;;88000^ARMED FORCES^ARMED FORCES PACIFIC
;;59260^BRITISH COLUMBIA^BRITISH COLUMBIA
;;91260^CANADA^CANADA
;;93999^EUROPE^EUROPE
;;90999^ALL OTHER FOREIGN^FOREIGN COUNTRY
;;61260^MANITOBA^MANITOBA
;;92595^MEXICO^MEXICO
;;62260^NEW BRUNSWICK^NEW BRUNSWICK
;;63260^NEWFOUNDLAND^NEWFOUNDLAND
;;73260^NORTHWEST TERRITORIES^NORTHWEST TERRITORIES
;;65260^NOVA SCOTIA^NOVA SCOTIA
;;94260^NUNAVUT PROVINCE^NUNAVUT PROVINCE
;;75260^ONTARIO^ONTARIO
;;96725^PHILIPINES^PHILIPPINES
;;77260^PRINCE EDWARD ISLAND^PRINCE EDWARD ISLAND
;;80260^QUEBEC^QUEBEC
;;82260^SASKATCHEWAN^SASKATCHEWAN
;;74200^JOHNSTON ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74300^MIDWAY ISLANDS^U.S. MINOR OUTLYING ISLANDS
;;74450^WAKE ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74350^NAVASSA ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74050^BAKER ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74100^HOWLAND ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74150^JARVIS ISLAND^U.S. MINOR OUTLYING ISLANDS
;;74250^KINGMAN REEF^U.S. MINOR OUTLYING ISLANDS
;;74400^PALMYRA ATOLL^U.S. MINOR OUTLYING ISLANDS
;;74999^ALL OTHER^U.S. MINOR OUTLYING ISLANDS
;;83260^YUKON TERRITORY^YUKON TERRITORY
;;99999^EOD^EOD
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P378A 6371 printed Sep 02, 2024@18:52:48 Page 2
XU8P378A ;OOIFO/SO- XU378 POST-INSTALL ;6:00 AM 7 Mar 2006
+1 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
E5 ; Edit State file first
+1 DO MES^XPDUTL("Begin STATE(#5) file update...")
+2 IF '$$FIND1^DIC(.11,"","X","ADUALC","IX")
Begin DoDot:1
+3 NEW DIK
+4 KILL ^DIC(5,"C")
+5 SET DIK="^DIC(5,"
+6 SET DIK(1)="1^C"
+7 DO ENALL^DIK
+8 SET DIK(1)="2^C"
+9 DO ENALL^DIK
End DoDot:1
+10 ;
+11 NEW I,DATA,TBL
+12 FOR I=1:1
SET DATA=$TEXT(D5+I)
if $PIECE(DATA,";;",2)["EOD"
QUIT
Begin DoDot:1
+13 SET DATA=$PIECE(DATA,";;",2)
+14 NEW DIC,Y,VAC,STATE,ABB,DLAYGO,AAC,USP
+15 SET VAC=$PIECE(DATA,U,1)
+16 SET STATE=$PIECE(DATA,U,2)
+17 SET ABB=$PIECE(DATA,U,3)
+18 SET AAC=$PIECE(DATA,U,4)
+19 SET USP=$PIECE(DATA,U,5)
+20 SET DIC="^DIC(5,"
SET DIC(0)="FZX"
SET D="C"
SET X=VAC
DO IX^DIC
+21 IF Y<0
QUIT
+22 NEW X,X1
+23 SET X=Y(0)
+24 SET X1=$PIECE(X,U,3)_U_$PIECE(X,U,1)_U_$PIECE(X,U,2)
T1 IF $PIECE(DATA,U,1,3)'=X1
QUIT
+1 NEW DIE,DA,DR
+2 SET DIE="^DIC(5,"
+3 SET DA=+Y
+4 SET DR="2.1///^S X=AAC;2.2///^S X=USP"
+5 FOR
LOCK +^DIC(5,DA,0):1
if $TEST
QUIT
HANG 5
+6 DO ^DIE
+7 LOCK -^DIC(5,DA,0)
+8 SET TBL(VAC)=""
+9 QUIT
End DoDot:1
+10 ;
+11 ; Flag all entries not previously found as non-AAC
+12 NEW IEN
SET IEN=0
+13 FOR
SET IEN=$ORDER(^DIC(5,IEN))
if 'IEN
QUIT
Begin DoDot:1
+14 NEW X
+15 SET X=$PIECE(^DIC(5,IEN,0),U,3)
+16 IF X'=""
IF $DATA(TBL(X))
QUIT
+17 NEW DIE,DA,DR
+18 SET DIE="^DIC(5,"
+19 SET DA=IEN
+20 SET DR="2.1///0;2.2///0"
+21 FOR
LOCK +^DIC(5,DA,0):1
if $TEST
QUIT
HANG 5
+22 DO ^DIE
+23 LOCK -^DIC(5,DA,0)
+24 QUIT
End DoDot:1
+25 DO MES^XPDUTL("Finished STATE(#5) file update.")
+26 ;
E513 ; Edit 5.13
+1 DO MES^XPDUTL("Begin COUNTY CODE(#5.13) file corrections...")
+2 NEW I,DATA
+3 FOR I=1:1
SET DATA=$TEXT(D513+I)
if $PIECE(DATA,";;",2)["EOD"
QUIT
Begin DoDot:1
+4 SET DATA=$PIECE(DATA,";;",2)
+5 NEW CODE,COUNTY,STATE,DIC,D
+6 SET CODE=$PIECE(DATA,U,1)
+7 SET COUNTY=$EXTRACT($PIECE(DATA,U,2),1,25)
+8 SET STATE=$PIECE(DATA,U,3)
+9 SET DIC="^XIP(5.13,"
SET DIC(0)="FZX"
SET D="B"
SET X=CODE
DO IX^DIC
+10 IF Y<1
Begin DoDot:2
+11 NEW DLAYGO,DIC
+12 SET DLAYGO=5.13
SET DIC="^XIP(5.13,"
SET DIC(0)="L"
+13 SET X=CODE
+14 DO FILE^DICN
+15 QUIT
End DoDot:2
+16 NEW DIE,DA,DR
+17 SET DIE="^XIP(5.13,"
SET DA=+Y
+18 SET DR="1///^S X=COUNTY;2///^S X=STATE"
+19 FOR
LOCK +^XIP(5.13,DA,0):1
if $TEST
QUIT
HANG 5
+20 DO ^DIE
+21 LOCK -^XIP(5.13,DA,0)
+22 QUIT
End DoDot:1
+23 DO MES^XPDUTL("Finished COUNTY CODE(#5.13) file corrections.")
+24 ;
P513 ; Fix any broken State pointers in 5.13
+1 DO MES^XPDUTL("Begin COUNTY CODE(#5.13) file pointer corrections...")
+2 NEW IEN
SET IEN=0
+3 FOR
SET IEN=$ORDER(^XIP(5.13,IEN))
if 'IEN
QUIT
Begin DoDot:1
+4 NEW FIPS
SET FIPS=$EXTRACT($PIECE(^XIP(5.13,IEN,0),U),1,2)
+5 NEW DIC
+6 SET DIC="^DIC(5,"
SET DIC(0)="FZX"
SET D="C"
SET X=FIPS
DO IX^DIC
+7 IF Y<1
QUIT
+8 NEW STATE
SET STATE=$PIECE(Y,U,2)
+9 NEW DIE,DA,DR
+10 SET DIE="^XIP(5.13,"
+11 SET DA=IEN
+12 FOR
LOCK +^XIP(5.13,DA,0):1
if $TEST
QUIT
HANG 5
+13 SET DR="2///^S X=STATE"
+14 LOCK -^XIP(5.13,DA,0)
+15 DO ^DIE
+16 QUIT
End DoDot:1
+17 DO MES^XPDUTL("Finished COUNTY CODE(#5.13) file pointer corrections...")
+18 ;
+19 QUIT
+20 ;
D5 ;VA STATE CODE^NAME^ABBREVIATION^AAC RECOGNIZED^US STATE OR POSSESSION
+1 ;;01^ALABAMA^AL^1^1
+2 ;;02^ALASKA^AK^1^1
+3 ;;58^ALBERTA^AB^1^0
+4 ;;60^AMERICAN SAMOA^AS^1^1
+5 ;;04^ARIZONA^AZ^1^1
+6 ;;05^ARKANSAS^AR^1^1
+7 ;;87^ARMED FORCES AF,EU,ME,CA^AE^1^1
+8 ;;85^ARMED FORCES AMER (EXC CANADA)^AA^1^1
+9 ;;88^ARMED FORCES PACIFIC^AP^1^1
+10 ;;59^BRITISH COLUMBIA^BC^1^0
+11 ;;06^CALIFORNIA^CA^1^1
+12 ;;91^CANADA^CANAD^0^0
+13 ;;08^COLORADO^CO^1^1
+14 ;;09^CONNECTICUT^CT^1^1
+15 ;;10^DELAWARE^DE^1^1
+16 ;;11^DISTRICT OF COLUMBIA^DC^1^1
+17 ;;93^EUROPE^EU^1^0
+18 ;;64^FEDERATED STATES OF MICRONESIA^FM^1^1
+19 ;;12^FLORIDA^FL^1^1
+20 ;;90^FOREIGN COUNTRY^FG^1^0
+21 ;;13^GEORGIA^GA^1^1
+22 ;;66^GUAM^GU^1^1
+23 ;;15^HAWAII^HI^1^1
+24 ;;16^IDAHO^ID^1^1
+25 ;;17^ILLINOIS^IL^1^1
+26 ;;18^INDIANA^IN^1^1
+27 ;;19^IOWA^IA^1^1
+28 ;;20^KANSAS^KS^1^1
+29 ;;21^KENTUCKY^KY^1^1
+30 ;;22^LOUISIANA^LA^1^1
+31 ;;23^MAINE^ME^1^1
+32 ;;61^MANITOBA^MB^1^0
+33 ;;68^MARSHALL ISLANDS^MH^1^1
+34 ;;24^MARYLAND^MD^1^1
+35 ;;25^MASSACHUSETTS^MA^1^1
+36 ;;92^MEXICO^MX^1^0
+37 ;;26^MICHIGAN^MI^1^1
+38 ;;27^MINNESOTA^MN^1^1
+39 ;;28^MISSISSIPPI^MS^1^1
+40 ;;29^MISSOURI^MO^1^1
+41 ;;30^MONTANA^MT^1^1
+42 ;;31^NEBRASKA^NE^1^1
+43 ;;32^NEVADA^NV^1^1
+44 ;;62^NEW BRUNSWICK^NB^1^0
+45 ;;33^NEW HAMPSHIRE^NH^1^1
+46 ;;34^NEW JERSEY^NJ^1^1
+47 ;;35^NEW MEXICO^NM^1^1
+48 ;;36^NEW YORK^NY^1^1
+49 ;;63^NEWFOUNDLAND^NF^1^0
+50 ;;37^NORTH CAROLINA^NC^1^1
+51 ;;38^NORTH DAKOTA^ND^1^1
+52 ;;69^NORTHERN MARIANA ISLANDS^MP^1^1
+53 ;;73^NORTHWEST TERRITORIES^NT^1^0
+54 ;;65^NOVA SCOTIA^NS^1^0
+55 ;;94^NUNAVUT PROVINCE^NU^1^0
+56 ;;39^OHIO^OH^1^1
+57 ;;40^OKLAHOMA^OK^1^1
+58 ;;75^ONTARIO^ON^1^0
+59 ;;41^OREGON^OR^1^1
+60 ;;70^PALAU^PW^1^0
+61 ;;42^PENNSYLVANIA^PA^1^1
+62 ;;96^PHILIPPINES^PH^1^0
+63 ;;77^PRINCE EDWARD ISLAND^PE^1^0
+64 ;;72^PUERTO RICO^PR^1^1
+65 ;;80^QUEBEC^QC^1^0
+66 ;;44^RHODE ISLAND^RI^1^1
+67 ;;82^SASKATCHEWAN^SK^1^0
+68 ;;45^SOUTH CAROLINA^SC^1^1
+69 ;;46^SOUTH DAKOTA^SD^1^1
+70 ;;47^TENNESSEE^TN^1^1
+71 ;;48^TEXAS^TX^1^1
+72 ;;74^U.S. MINOR OUTLYING ISLANDS^UM^1^1
+73 ;;49^UTAH^UT^1^1
+74 ;;50^VERMONT^VT^1^1
+75 ;;78^VIRGIN ISLANDS^VI^1^1
+76 ;;51^VIRGINIA^VA^1^1
+77 ;;53^WASHINGTON^WA^1^1
+78 ;;54^WEST VIRGINIA^WV^1^1
+79 ;;55^WISCONSIN^WI^1^1
+80 ;;56^WYOMING^WY^1^1
+81 ;;83^YUKON TERRITORY^YT^1^0
+82 ;;99999^EOD^EOD^EOD^EOD
+83 ;
D513 ;FIPS CODE^COUNTY NAME^STATE
+1 ;;17183^VERMILION^ILLINOIS
+2 ;;29186^ST. GENEVIEVE^MISSOURI
+3 ;;58260^ALBERTA^ALBERTA
+4 ;;87260^ARMED FORCES AF,EU,ME,CA^ARMED FORCES AF,EU,ME,CA
+5 ;;87000^ARMED FORCES^ARMED FORCES AF,EU,ME,CA
+6 ;;85260^ARMED FORCES AMER (EXC CANADA)^ARMED FORCES AMER (EXC CANADA)
+7 ;;85000^ARMED FORCES^ARMED FORCES AMER (EXC CANADA)
+8 ;;88260^ARMED FORCES PACIFIC^ARMED FORCES PACIFIC
+9 ;;88000^ARMED FORCES^ARMED FORCES PACIFIC
+10 ;;59260^BRITISH COLUMBIA^BRITISH COLUMBIA
+11 ;;91260^CANADA^CANADA
+12 ;;93999^EUROPE^EUROPE
+13 ;;90999^ALL OTHER FOREIGN^FOREIGN COUNTRY
+14 ;;61260^MANITOBA^MANITOBA
+15 ;;92595^MEXICO^MEXICO
+16 ;;62260^NEW BRUNSWICK^NEW BRUNSWICK
+17 ;;63260^NEWFOUNDLAND^NEWFOUNDLAND
+18 ;;73260^NORTHWEST TERRITORIES^NORTHWEST TERRITORIES
+19 ;;65260^NOVA SCOTIA^NOVA SCOTIA
+20 ;;94260^NUNAVUT PROVINCE^NUNAVUT PROVINCE
+21 ;;75260^ONTARIO^ONTARIO
+22 ;;96725^PHILIPINES^PHILIPPINES
+23 ;;77260^PRINCE EDWARD ISLAND^PRINCE EDWARD ISLAND
+24 ;;80260^QUEBEC^QUEBEC
+25 ;;82260^SASKATCHEWAN^SASKATCHEWAN
+26 ;;74200^JOHNSTON ISLAND^U.S. MINOR OUTLYING ISLANDS
+27 ;;74300^MIDWAY ISLANDS^U.S. MINOR OUTLYING ISLANDS
+28 ;;74450^WAKE ISLAND^U.S. MINOR OUTLYING ISLANDS
+29 ;;74350^NAVASSA ISLAND^U.S. MINOR OUTLYING ISLANDS
+30 ;;74050^BAKER ISLAND^U.S. MINOR OUTLYING ISLANDS
+31 ;;74100^HOWLAND ISLAND^U.S. MINOR OUTLYING ISLANDS
+32 ;;74150^JARVIS ISLAND^U.S. MINOR OUTLYING ISLANDS
+33 ;;74250^KINGMAN REEF^U.S. MINOR OUTLYING ISLANDS
+34 ;;74400^PALMYRA ATOLL^U.S. MINOR OUTLYING ISLANDS
+35 ;;74999^ALL OTHER^U.S. MINOR OUTLYING ISLANDS
+36 ;;83260^YUKON TERRITORY^YUKON TERRITORY
+37 ;;99999^EOD^EOD
