with recursive
c as (
    select
         rc.rdb$relation_name child_tab
        ,rc.rdb$constraint_name child_fk
        ,ru.rdb$const_name_uq parent_uk
        ,rp.rdb$relation_name parent_tab
    from rdb$relation_constraints rc
    join rdb$ref_constraints ru on
         rc.rdb$constraint_name = ru.rdb$constraint_name
         and rc.rdb$constraint_type = 'FOREIGN KEY'
    join rdb$relation_constraints rp
         on ru.rdb$const_name_uq = rp.rdb$constraint_name
    where rc.rdb$relation_name <> rp.rdb$relation_name -- prevent from select self-ref PK/FK tables!
)
,d as(
    select
        0 i
        ,child_tab
        ,child_fk
        ,parent_uk
        ,parent_tab
    from c c0
    -- отбираем таблицы, которые НЕ являются родительскими по отношению к каким-либо другим:
    where not exists( select * from c cx where cx.parent_tab= c0.child_tab ) 
    
    union all
    
    select
        d.i+1
        ,c.child_tab
        ,c.child_fk
        ,c.parent_uk
        ,c.parent_tab
    from d
    join c on d.parent_tab = c.child_tab
)
,e as(
    select
        i
        ,child_tab
        ,child_fk
        ,parent_uk
        ,parent_tab
        ,max(i)over() mi
        -- для FB 2.1, 2.5: ,(select max(i) from d) mi
    from d
)
,f as(
    -- из списка таблиц, отбираем уник. имена тех, которые НЕ являются родительскими 
    -- по отношению к каким-либо остальным:
    select distinct
        0 i
        ,child_tab
    from e where i=0

    UNION DISTINCT

    -- добавляем теперь родительские, но строго в том в порядке, в каком
    -- они формировались в рекурсии:
    select
        1
        ,child_tab
    from (select child_tab from e where i>0 order by i)

    UNION DISTINCT

    -- наконец, добавляем таблицы, НЕ являющиеся дочерними по отн. к каким-либо другим
    -- (т.е. родителей "самого высокого" уровня):
    select
        2
        ,parent_tab
    from e where i=mi
)
,t as(
    -- вытаскиваем все активные триггеры для тех таблиц, что будем чистить:
    select
        rt.rdb$trigger_name trg_name 
    from f
    join rdb$triggers rt on f.child_tab = rt.rdb$relation_name
    where rt.rdb$system_flag=0 and rt.rdb$trigger_inactive=0
)

-- составляем в нужной последовательности скрипт:
-- отключаем триггеры, чистим таблицы, включаем триггеры обратно:
select 'set bail on; commit; ' sql_expr
from rdb$database
union all
select 'alter trigger '||trim(trg_name)||' inactive;'
from t
union all
select 'delete from '||trim(child_tab)||';'
from f
union all
select 'alter trigger '||trim(trg_name)||' active;'
from t
union all
select 'set bail off; commit; '
from rdb$database;

agents (PK) --> (FK) moves on delete cascade
agents (PK) --> (FK) doc_list on delete cascade