oracle8.1.6
select case when exists (select 1
from acs_object_types t
where t.dynamic_p = 't'
and t.object_type = :value)
then 1 else 0 end
from dual
begin acs_rel_type.drop_type(:rel_type); end;
begin
acs_rel_type.create_type (
rel_type => :rel_type,
supertype => :supertype,
pretty_name => :pretty_name,
pretty_plural => :pretty_plural,
table_name => :table_name,
id_column => 'rel_id',
package_name => :package_name,
object_type_one => :object_type_one,
role_one => :role_one,
min_n_rels_one => :min_n_rels_one,
max_n_rels_one => :max_n_rels_one,
object_type_two => :object_type_two,
role_two => :role_two,
min_n_rels_two => :min_n_rels_two,
max_n_rels_two => :max_n_rels_two
);
end;
begin acs_rel_type.create_role(:role, :pretty_name, :pretty_plural);
end;