#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"PLOT"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

, ('*COUNTYCD', 'integer')

, ('locationName', 'integer')

, ('*INVYR', 'integer')

]::col_cast[]);

SELECT create_if_not_exists($$ALTER TABLE "PLOT" ADD CONSTRAINT "PLOT.ID"     UNIQUE ("locationID")$$);

SELECT create_if_not_exists($$ALTER TABLE "PLOT" ADD CONSTRAINT "PLOT.unique" UNIQUE ("*STATECD", "*UNITCD", "*COUNTYCD", "locationName", "*INVYR")$$);

SELECT cluster_once('"PLOT"', '"PLOT.unique"');

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"COUNTY"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

, ('*COUNTYCD', 'integer')

]::col_cast[]);

SELECT create_if_not_exists($$ALTER TABLE "COUNTY" ADD CONSTRAINT "COUNTY.ID"     UNIQUE ("*COUNTY-CN")$$);

SELECT create_if_not_exists($$ALTER TABLE "COUNTY" ADD CONSTRAINT "COUNTY.unique" UNIQUE ("*STATECD", "*UNITCD", "*COUNTYCD")$$);

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

-- Remove 56 duplicate symbols of type 'Old' (these are ambiguous)

DELETE FROM "REF_PLANT_DICTIONARY"

WHERE "*PLANT_SYMBOL" IN (

    SELECT "*PLANT_SYMBOL"

    FROM "REF_PLANT_DICTIONARY"

    WHERE "*PLANT_SYMBOL_TYPE" = 'Old'

    GROUP BY "*PLANT_SYMBOL"

    HAVING count(*) > 1

);

SELECT create_if_not_exists($$ALTER TABLE "REF_PLANT_DICTIONARY" ADD CONSTRAINT "REF_PLANT_DICTIONARY.unique" UNIQUE ("*PLANT_SYMBOL_TYPE", "*PLANT_SYMBOL")$$);

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"REF_UNIT"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

]::col_cast[]);

SELECT create_if_not_exists($$ALTER TABLE "REF_UNIT" ADD CONSTRAINT "REF_UNIT.unique" UNIQUE ("*STATECD", "*UNITCD")$$);

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"COND"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

, ('*COUNTYCD', 'integer')

, ('locationName', 'integer')

, ('*INVYR', 'integer')

, ('authorEventCode', 'integer')

]::col_cast[]);

SELECT mk_derived_col(('"COND"', 'oldGrowth'), $$

(

    "*COND-STDAGE"::integer>80

    AND ("*COND-TRTCD1"='0' OR "*COND-TRTCD1" IS NULL)

    AND (("*COND-DSTRBCD1"<>'30' AND "*COND-DSTRBCD1"<>'31' AND "*COND-DSTRBCD1"<>'32' AND "*COND-DSTRBCD1"<>'80') OR "*COND-DSTRBCD1" IS NULL)

    AND ("*COND-STUMP_CD_PNWRS"='N' OR "*COND-STUMP_CD_PNWRS" IS NULL)

    AND "*COND-HARVEST_TYPE1_SRS" IS NULL

    AND "*COND-PRESNFCD" IS NULL

    AND ("*COND-STDORGCD"='0' OR "*COND-STDORGCD" IS NULL)

)

OR "*COND-STND_COND_CD_PNWRS"='7'

$$);

SELECT create_if_not_exists($$ALTER TABLE "COND" ADD CONSTRAINT "COND.ID"     UNIQUE ("*COND-CN")$$);

SELECT create_if_not_exists($$ALTER TABLE "COND" ADD CONSTRAINT "COND.unique" UNIQUE ("*STATECD", "*UNITCD", "*COUNTYCD", "locationName", "*INVYR", "authorEventCode")$$);

SELECT cluster_once('"COND"', '"COND.unique"');

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"REF_SPECIES"', ARRAY[

  ('*SPCD', 'integer')

]::col_cast[]);

SELECT mk_const_col(('"REF_SPECIES"', '*PLANT_SYMBOL_TYPE'), 'Species'::text);

SELECT create_if_not_exists($$ALTER TABLE "REF_SPECIES" ADD CONSTRAINT "REF_SPECIES.unique" UNIQUE ("*SPCD")$$);

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"TREE"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

, ('*COUNTYCD', 'integer')

, ('locationName', 'integer')

, ('*INVYR', 'integer')

, ('subplot', 'integer')

, ('authorEventCode', 'integer')

, ('*SPCD', 'integer')

]::col_cast[]);

-- ("*STATECD", "*UNITCD", "*COUNTYCD", "locationName", "*INVYR", "authorEventCode", "subplot", "*TREE", "*STATUSCD") is not ID

SELECT create_if_not_exists($$ALTER TABLE "TREE" ADD CONSTRAINT "TREE.ID" UNIQUE ("individualObservationID")$$);

SELECT create_if_not_exists($$CREATE INDEX "TREE.parent" ON "TREE" ("*STATECD", "*UNITCD", "*COUNTYCD", "locationName", "*INVYR", "authorEventCode", "subplot")$$);

SELECT cluster_once('"TREE"', '"TREE.parent"');

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

export new_term_prefix= # don't re-prepend *

psql <<'EOF'

SELECT force_update_view('"occurrence_all"', $$

SELECT "*TREE-row_num" AS "occurrence_all-row_num", *

/* directional joins ensure that the PostgreSQL query planner always joins

starting with the TREE table */

FROM               ("REF_RESEARCH_STATION"

NATURAL RIGHT JOIN ("REF_UNIT"

NATURAL RIGHT JOIN ("COUNTY"

NATURAL RIGHT JOIN ("PLOT"

NATURAL RIGHT JOIN ("COND"

	NATURAL LEFT JOIN "REF_HABTYP_DESCRIPTION"

NATURAL RIGHT JOIN ("SUBPLOT"

NATURAL RIGHT JOIN ("TREE"

	NATURAL LEFT JOIN "REF_SPECIES"

	NATURAL LEFT JOIN "REF_PLANT_DICTIONARY"

)))))))

$$);

SELECT mk_subset_by_row_num_func('"occurrence_all"', 'occurrence_all-row_num');

EOF

remake_VegBIEN_mappings

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT create_if_not_exists($$ALTER TABLE "REF_HABTYP_DESCRIPTION" ADD CONSTRAINT "REF_HABTYP_DESCRIPTION.unique" UNIQUE ("*HABTYPCD", "*HABTYP_PUB_CD")$$);

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

SELECT set_col_types('"SUBPLOT"', ARRAY[

  ('*STATECD', 'integer')

, ('*UNITCD', 'integer')

, ('*COUNTYCD', 'integer')

, ('locationName', 'integer')

, ('*INVYR', 'integer')

, ('subplot', 'integer')

]::col_cast[]);

SELECT create_if_not_exists($$ALTER TABLE "SUBPLOT" ADD CONSTRAINT "SUBPLOT.ID"     UNIQUE ("subplotID")$$);

SELECT create_if_not_exists($$ALTER TABLE "SUBPLOT" ADD CONSTRAINT "SUBPLOT.unique" UNIQUE ("*STATECD", "*UNITCD", "*COUNTYCD", "locationName", "*INVYR", "subplot")$$);

SELECT cluster_once('"SUBPLOT"', '"SUBPLOT.unique"');

EOF

mk_derived

#!/bin/bash

# :mode=transact-sql:

cd "$(dirname "$0")"

. ../../../lib/import.sh

map_table

psql <<'EOF'

-- contains the research station *and state name* for each state

SELECT set_col_types('"REF_RESEARCH_STATION"', ARRAY[

  ('*STATECD', 'integer')

]::col_cast[]);

SELECT create_if_not_exists($$ALTER TABLE "REF_RESEARCH_STATION" ADD CONSTRAINT "REF_RESEARCH_STATION.unique" UNIQUE ("*STATECD")$$);

EOF

mk_derived