DECLARE

		"Specific_epithet_is_plant" boolean :=

			WHEN   new."Infraspecific_epithet_matched"	 IS NOT NULL

				OR new."Infraspecific_epithet_2_matched" IS NOT NULL

				OR new."Specific_epithet_score" >= 0.9 -- fuzzy match

				THEN true

			ELSE NULL -- ambiguous

			END);

		never_homonym boolean = COALESCE(new."Author_score" >= 0.6, false);

			-- author disambiguates

		family_is_homonym boolean = NOT never_homonym

			AND "TNRS".family_is_homonym(new."Family_matched");

		genus_is_homonym  boolean = NOT never_homonym

			AND "TNRS".genus_is_homonym(new."Genus_matched");

	BEGIN

		/* exclude homonyms because these are not valid matches (TNRS provides a

		name, but the name is not meaningful because it is not unambiguous) */

		new.is_valid_match = new."Taxonomic_status" != 'Invalid'

			AND COALESCE(CASE

			WHEN new."Family_score" = 1 AND NOT family_is_homonym -- exact match

				THEN true

			ELSE -- consider genus

				WHEN new."Genus_score" =  1	   -- exact match

					THEN

					(CASE

					WHEN NOT genus_is_homonym THEN true

					ELSE "Specific_epithet_is_plant"

					END)

				WHEN new."Genus_score" >= 0.85 -- fuzzy match

					THEN "Specific_epithet_is_plant"

				ELSE NULL -- ambiguous

			END, false);

	END;

	DECLARE

		matched_taxon_name_with_author text = NULLIF(concat_ws(' '

			, NULLIF(NULLIF(new."Name_matched_accepted_family", 'Unknown'),

				new."Name_matched")

			, NULLIF(new."Name_matched", 'No suitable matches found.')

			, new."Name_matched_author"

			), '');

		accepted_taxon_name_with_author text = NULLIF(concat_ws(' '

			, NULLIF(NULLIF(new."Accepted_name_family", 'Unknown'),

				new."Accepted_name")

			, new."Accepted_name"

			, new."Accepted_name_author"

			), '');

	BEGIN

		new.scrubbed_unique_taxon_name = COALESCE(

			accepted_taxon_name_with_author, matched_taxon_name_with_author);

	END;