FUNCTION apeaid_is_base
(input : area_component) : LOGICAL;
LOCAL pd : SET OF property_definition := bag_to_set(QUERY(pd <* USEDIN(input,'PRODUCT_PROPERTY_DEFINITION_SCHEMA.PROPERTY_DEFINITION.DEFINITION') | pd\property_definition.name = 'is base')); END_LOCAL; RETURN(pd[1].description = 'true'); END_FUNCTION; -- apeaid_is_base
|