Updates all serial sequences for ID columns only

update_serial_id_sequences.sql

--Updates all serial sequences for ID columns only
CREATE OR REPLACE FUNCTION update_id_sequences()
	RETURNS boolean AS
$BODY$
DECLARE table_record record;
DECLARE table_name text;
DECLARE update_sql text;

BEGIN
FOR table_record IN SELECT pc.relname FROM pg_class pc WHERE pc.relkind = 'r' AND EXISTS (SELECT 1 FROM pg_attribute pa WHERE pa.attname = 'id' AND pa.attrelid = pc.oid) LOOP
	table_name = table_record.relname::text;
	EXECUTE 'SELECT setval(pg_get_serial_sequence(' || quote_literal(table_name) || ', ' || quote_literal('id')::text || '), MAX(id)) FROM ' || table_name || ' 
	WHERE EXISTS (SELECT 1 FROM ' || table_name || ')';
END LOOP;
	
RETURN true;
END;
$BODY$
  LANGUAGE plpgsql;