CREATE OR REPLACE PROCEDURE A1
AS 
  R NUMBER(1) := 0;
  I NUMBER(5, 3);

BEGIN
  INSERT INTO LOG_TABLE('BEGIN', ...)
    VALUES(SYSDATE, ...);

  BEGIN
    SAVEPOINT BEGIN_1;

    I := 7 / 2; /* для имитации исключения */
    ....
    /* один-два INSERT/UPDATE на одну/две таблицы */

    EXCEPTION
      WHEN OTHERS THEN
        ROLLBACK TO BEGIN_1;
        R := 1;
        INSERT INTO LOG_TABLE('ERROR', ...)
          VALUES(SYSDATE, ...);
  END;

  INSERT INTO LOG_TABLE('END', ...)
    VALUES(SYSDATE, ...);

  COMMIT;

  IF R <> 0 THEN
    RAISE_APPLICATION_ERROR(- 20000, SQLERRM);
  END IF;

  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
      RAISE_APPLICATION_ERROR(- 20000, SQLERRM);
END A1;