#
#
#
# get_has_hierarchical_fields()
#
#
#

subroutine(get_has_hierarchical_fields(
	node base_query_header), (
	
	debug_message("\n#### get_has_hierarchical_fields() \n");

	# This checks if the base_query_header contains any
	# hierarchical report_field where subitems_level is
	# not equal -1.

	bool has_hierarchical_fields = false;
    node column;

	foreach column base_query_header (

		if (!@column{"is_aggregating_field"} and
			column?{"subitems_level"} and
			(@column{"subitems_level"} != -1)) then ( # if not bottom level field

			has_hierarchical_fields = true;
			last;
		);
	);

    debug_message("#### has_hierarchical_fields: " . has_hierarchical_fields . "\n");

	# Return
	has_hierarchical_fields;
));