-- -- acs_object_util__object_ancestor_type_p/2 -- create or replace function acs_object_util__object_ancestor_type_p( integer, character varying ) returns bool as $$ declare p_object_id alias for $1; p_object_type alias for $2; v_exist_p boolean := 'f'; v_object_type varchar(100); begin v_object_type := acs_object_util__get_object_type (p_object_id); v_exist_p := acs_object_util__type_ancestor_type_p (v_object_type, p_object_type); return v_exist_p; end;$$ language plpgsql;