SELECT
  schemaname,
  tablename,
  indexname,
  indexdef
FROM
  pg_indexes
WHERE
  tablename = 'моя таблица' --AND schemaname = 'myschema'

SELECT
  sh.nspname||'.'||t2.relname AS detail_table,
  substring(pg_get_constraintdef(t1.oid) FROM 'FOREIGN KEY \((.*)\) REFERENCES') AS detail_field_list,
  substring(pg_get_constraintdef(t1.oid) FROM 'REFERENCES (.*)\(') AS master_table,
  substring(pg_get_constraintdef(t1.oid) FROM 'REFERENCES .*\((.*)\)') AS master_field_list,
  'union select p.pole_ID from pp.TableA p inner join  '||sh.nspname||'.'||t2.relname||' t on t.'||substring(pg_get_constraintdef(t1.oid) FROM 'FOREIGN KEY \((.*)\) REFERENCES')||'=p.pole_ID'
  
FROM pg_catalog.pg_constraint t1
LEFT JOIN pg_catalog.pg_class t2 ON t2.oid = t1.conrelid
left join pg_catalog.pg_namespace sh on t2.relnamespace=sh.oid

WHERE t1.contype IN ('f')
	and substring(pg_get_constraintdef(t1.oid) FROM 'REFERENCES (.*)\(') = 'pp.TableA'
	order by t2.relname

with recursive 
	param (master, slave) as (values ('Table_A'::name, 'Table_D'::name)),
	t0   as (
	WITH
		tt01 AS (
		SELECT
		t2.relname AS detail_table,
		substring(pg_get_constraintdef(t1.oid) FROM 'REFERENCES (.*)\(') AS master_table
		FROM pg_catalog.pg_constraint t1
		LEFT JOIN pg_catalog.pg_class t2 ON t2.oid = t1.conrelid
		WHERE t1.contype IN ('f')
	)
	SELECT
	tt01.*, (master_table::ltree)||detail_table as ltree ,1 as levell, true as usl
	FROM param join tt01 on master_table LIKE '%'||param.master||'%'
	
	
	union all
	select 	t2.*, t0.ltree||t2.detail_table, t0.levell+1, case when t2.detail_table = slave then false else true end
	from 	param join t0 on true join lateral  
		(
			WITH
			tt01 AS (
			SELECT
			t2.relname AS detail_table,
			substring(pg_get_constraintdef(t1.oid) FROM 'REFERENCES (.*)\(') AS master_table
			FROM pg_catalog.pg_constraint t1
			LEFT JOIN pg_catalog.pg_class t2 ON t2.oid = t1.conrelid
			WHERE t1.contype IN ('f')
		)
		SELECT
		*
		FROM tt01
		WHERE master_table LIKE t0.detail_table
			and t0.levell<4 
			and t0.usl
		)t2 on true
	)
select detail_table, master_table, ltree, levell from param join t0 on ltree @ slave::ltxtquery
group by detail_table, master_table, ltree, levell 
order by ltree 
limit 20