Postgres query to find if foreign-key columns match the data type of the referenced table


create or replace function find_array_element( el anyelement, arr anyarray ) returns integer as $$
declare
i int;
begin
for i in 1..array_upper( arr, 1 ) loop
if( el = arr[i] ) then
return i;
end if;
end loop;

return 0;
end;
$$ language plpgsql;

select
(select relname
from pg_class
where oid = conrelid) as table,
(select relname
from pg_class
where oid = confrelid ) as parent,
conname as foriegn_key,
array(select attname
from pg_attribute
where attrelid = C.conrelid
and attnum = ANY( C.conkey )
order by find_array_element( attnum, C.conkey ) ) as table_columns,
array(select (select typname
from pg_type
where oid = A.atttypid)
from pg_attribute as A
where attrelid = C.conrelid
and attnum = ANY( C.conkey )
order by find_array_element( attnum, C.conkey ) ) as table_datatypes,
array(select attname
from pg_attribute
where attrelid = C.confrelid
and attnum = ANY( C.confkey )
order by find_array_element( attnum, C.confkey ) ) as parent_columns,
array(select (select typname
from pg_type
where oid = A.atttypid)
from pg_attribute as A
where attrelid = C.confrelid
and attnum = ANY( C.confkey )
order by find_array_element( attnum, C.confkey ) ) as parent_datatypes
from pg_constraint as C
where contype = 'f'
and array(select (atttypid, attlen, atttypmod)::text
from pg_attribute
where attrelid = C.conrelid
and attnum = any ( C.conkey )
order by find_array_element( attnum, C.conkey ) )
<> array(select (atttypid, attlen, atttypmod)::text
from pg_attribute
where attrelid = C.confrelid
and attnum = any ( C.confkey )
order by find_array_element( attnum, C.confkey ) );