CREATE TABLE NEW_TABLE1 (
    ID      INTEGER,
    FIELD1  INTEGER
);

CREATE TABLE NEW_TABLE2 (
    ID      INTEGER,
    FIELD1  INTEGER
);

SET TERM ^ ;

CREATE OR ALTER PROCEDURE new_procedure1
AS
BEGIN
  -- При раздаче автогрантов, грант на DELETE не раздаётся
  MERGE INTO new_table1 t
  USING new_table2 s
    ON s.id = t.id
  WHEN MATCHED THEN
    DELETE;


  -- При раздаче автогрантов, грант на UPDATE, INSERT раздаётся нормально
  MERGE INTO new_table1 t
  USING new_table2 s
    ON s.id = t.id
  WHEN MATCHED THEN
    UPDATE SET
      field1 = s.field1
  WHEN NOT MATCHED THEN
    INSERT (id, field1)
    VALUES (s.id, s.field1);

END^

SET TERM ; ^

/* Following GRANT statements are generated automatically */

-- Гранта на DELETE нет
GRANT SELECT,INSERT,UPDATE ON NEW_TABLE1 TO PROCEDURE NEW_PROCEDURE1;
GRANT SELECT ON NEW_TABLE2 TO PROCEDURE NEW_PROCEDURE1;