Updating or deleting data in a routine without restricting rows

Copy SQL

SELECT 
  pg_namespace.nspname AS routine_schema, 
  pg_proc.proname AS routine_name, 
  pg_get_function_identity_arguments(pg_proc.oid) AS parameters,
  CASE WHEN pg_proc.prokind='f' THEN 'FUNCTION'
  WHEN pg_proc.prokind='p' THEN 'PROCEDURE'
  WHEN pg_proc.prokind='w' THEN 'WINDOW FUNCTION' END AS routine_type,
  regexp_replace( regexp_replace(pg_get_functiondef(pg_proc.oid),'<','&lt','g'),'[\r\n]','<br>','g')  AS routine_src
FROM 
  pg_catalog.pg_proc, 
  pg_catalog.pg_namespace
  -- Kasutame LATERAL JOINi, et puhastada kood kommentaaridest ühe korra
  -- ja kasutada tulemust WHERE klauslis
  JOIN LATERAL (
      SELECT regexp_replace(
          pg_get_functiondef(pg_proc.oid), 
          '(--[^\n\r]*)|(/\*[\w\W]*?\*/)',
          ' ',
          'g'
      ) AS clean_src
  ) cleaned ON true
WHERE 
  pg_proc.pronamespace = pg_namespace.oid
 AND pg_proc.proname NOT IN ('f_assume_you_must_use_files', 'f_check_format_comma_separated_list', 'f_check_password', 'f_default_value_with_no_match') 
AND pg_namespace.nspname NOT IN (SELECT schema_name
FROM INFORMATION_SCHEMA.schemata
WHERE schema_name<>'public' AND
schema_owner='postgres' AND schema_name IS NOT NULL) 
AND cleaned.clean_src ~*'\y(?<!for[[:space:]]+)(update|delete)\y(?:(?!\ywhere\y)[^;])+;'
AND  pg_proc.prokind<>'a'
AND NOT EXISTS (SELECT 1
FROM pg_catalog.pg_depend d 
WHERE EXISTS (SELECT 1 FROM pg_catalog.pg_extension e WHERE d.refobjid=e.oid) AND
d.objid=pg_proc.oid)
ORDER BY routine_schema, routine_name, parameters;