Coupling of distinct entity lifecycles via shared state classifiers

Copy SQL

WITH fk as (select
o.conname,
(select nspname from pg_namespace where oid=f.relnamespace) as foreign_schema,
f.relname as foreign_table,
f.oid as foreign_table_oid,
o.confkey AS foreign_col,
(select nspname from pg_namespace where oid=c.relnamespace) as target_schema,
c.relname as target_table,
c.oid as target_table_oid,
o.conkey AS target_col,
CASE WHEN o.confupdtype='a' THEN 'NO ACTION'
WHEN o.confupdtype='r' THEN 'RESTRICT'
WHEN o.confupdtype='c' THEN 'CASCADE'
WHEN o.confupdtype='n' THEN 'SET NULL'
WHEN o.confupdtype='d' THEN 'SET DEFAULT' END AS on_update,
CASE WHEN o.confdeltype='a' THEN 'NO ACTION'
WHEN o.confdeltype='r' THEN 'RESTRICT'
WHEN o.confdeltype='c' THEN 'CASCADE'
WHEN o.confdeltype='n' THEN 'SET NULL'
WHEN o.confdeltype='d' THEN 'SET DEFAULT' END AS on_delete
from pg_constraint o inner join pg_class c on c.oid = o.conrelid
inner join pg_class f on f.oid = o.confrelid
where o.contype = 'f'),
fk_unnest as (select conname, foreign_schema, foreign_table,  foreign_table_oid, foreign_col, foreign_col_num, target_schema, target_table, target_table_oid, target_col, target_col_num, ordin, on_update, on_delete
from fk, unnest(fk.foreign_col, fk. target_col) with ordinality as f(foreign_col_num, target_col_num, ordin)),
fk_with_names as (select conname, foreign_schema, foreign_table, string_agg(a_foreign.attname, ', ' order by ordin) as foreign_col, target_schema, target_table, string_agg(a_target.attname, ', ' order by ordin) as target_col, on_update, on_delete
from fk_unnest fk inner join pg_attribute a_foreign on fk.foreign_col_num = a_foreign.attnum and fk.foreign_table_oid = a_foreign.attrelid and a_foreign.attisdropped = false
inner join pg_attribute a_target on fk.target_col_num = a_target.attnum and fk.target_table_oid = a_target.attrelid and a_target.attisdropped = false
group by conname, foreign_schema, foreign_table, target_schema, target_table,on_update, on_delete),
state_classifiers as (select conname, foreign_schema, foreign_table, foreign_col, target_schema, target_table, target_col, on_update, on_delete
from fk_with_names
where foreign_table~*'(olek|staatus|seisund|state(?!ment)|status)')
select foreign_schema as classifier_schema, foreign_table as classifier_table, foreign_col as classifier_key, string_agg(target_schema || '.' || target_table || '.(' || target_col || ') ON UPDATE ' || on_update || ' ON DELETE ' || on_delete,';<br>' order by target_schema, target_table) as referencing_tables, Count(*) AS number_of_referencing_tables
from state_classifiers
where target_table!~'(log|logi|ajalugu|history)$' 
group by foreign_schema, foreign_table, foreign_col
having count(DISTINCT target_schema || '.' || target_table)>1
order by count(*) DESC, foreign_schema, foreign_table;