можно примерно так (в пакете)

type tFKConstr is record ( table_name dba_tables.table_name%type,
constr_name dba_constraints.constraint_name%type,
field_list varchar2(254),
pk_fields varchar2(254),
pk_table dba_tables.table_name%type,
pk_constr dba_constraints.constraint_name%type,
enabled boolean := true,
cascade boolean := false );
-- таблица по заданной структуре
type tFKConstrList is table of tFKConstr index by binary_integer;
-- список ограничений
FKConstrList tFKConstrList;
...
procedure ConstrFK_Off( tn in varchar2, isDelete in boolean default false )
is
i integer;
begin
-- удаляем все записи
FKConstrList.delete;
-- заполняем массив
for curConstr in ( select c1.table_name,
c1.constraint_name,
c1.delete_rule,
c1.status,
c1.r_constraint_name
from dba_constraints c1, dba_constraints c2
where c2.owner = owner_
and c2.table_name = upper(tn)
and c1.constraint_type = 'R'
and c1.r_owner = c2.owner
and c1.r_constraint_name = c2.constraint_name ) loop
i := FKConstrList.count + 1;
--
FKConstrList(i).table_name := curConstr.table_name;
FKConstrList(i).constr_name := curConstr.constraint_name;
FKConstrList(i).field_list := Get_Constr_Fields(curConstr.constraint_name);
FKConstrList(i).pk_table := upper(tn);
FKConstrList(i).pk_fields := Get_Constr_Fields(curConstr.r_constraint_name);
FKConstrList(i).pk_constr := curConstr.r_constraint_name;
--
if curConstr.status = 'DISABLED' then
FKConstrList(i).enabled := false;
end if;
--
if curConstr.delete_rule = 'CASCADE' then
FKConstrList(i).cascade := true;
end if;
--
end loop;
-- отключаем все работающие ограничения
if FKConstrList.count > 0 then
for i in 1..FKConstrList.count loop
if isDelete then
ExecSQL( 'alter table '||owner_||'.'||FKConstrList(i).table_name||' '||
'drop constraint '||FKConstrList(i).constr_name );
else
if FKConstrList(i).Enabled then
ExecSQL( 'alter table '||owner_||'.'||FKConstrList(i).table_name||' '||
'disable constraint '||FKConstrList(i).constr_name );
end if;
end if;
end loop;
end if;
--
end;
-- включаем ограничения для пересоздания первичного ключа
-- или создаём заново
procedure ConstrFK_On( tn in varchar2, isCreate in boolean default false )
is
begin
-- проверяем наличие записей для включения ограничений
if FKConstrList.count > 0 then
-- включаем все работавшие ограничения
for i in 1..FKConstrList.count loop
if FKConstrList(i).pk_table = upper(tn) then
if isCreate then
ExecSQL( 'alter table '||owner_||'.'||FKConstrList(i).table_name||' '||
'add constraint '||FKConstrList(i).constr_name||' foreign key ('||
FKConstrList(i).field_list||') '||cr||
' references '||owner_||'.'||FKConstrList(i).pk_table||'('||
FKConstrList(i).pk_fields||') '||
iif(FKConstrList(i).cascade,'on delete cascade ','')||
iif(FKConstrList(i).Enabled,'','disable') );
else
if FKConstrList(i).Enabled then
ExecSQL( 'alter table '||owner_||'.'||FKConstrList(i).table_name||' '||
'enable constraint '||FKConstrList(i).constr_name );
end if;
end if;
end if;
end loop;
end if;
--
FKConstrList.delete;
--
end;

прошу прощения, что не сохранил форматирование, могу попробовать повторить с форматированием