CREATE TABLE USERTEMPERRTEXT (
    TRANSACTIONID  INTEGER NOT NULL,
    ERRTEXT        VARCHAR(1021)
);

ALTER TABLE USERTEMPERRTEXT ADD CONSTRAINT PK_USERTEMPERRTEXT PRIMARY KEY (TRANSACTIONID);


COMMENT ON TABLE USERTEMPERRTEXT IS 
'Временные сообщения об ошибке.';

COMMENT ON COLUMN USERTEMPERRTEXT.TRANSACTIONID IS 
'ИД текущей транзакции';

COMMENT ON COLUMN USERTEMPERRTEXT.ERRTEXT IS 
'Сообщение об ошибке';

SET TERM ^ ;

create or alter procedure F_ERROR (
    I_ERRTEXT varchar(1021))
as
declare variable V_TRANSACTIONID integer;
begin
  V_TRANSACTIONID = current_transaction;
  I_ERRTEXT = coalesce(:I_ERRTEXT, 'Ошибка');
  -- Сохранение
  in autonomous transaction do
  update or insert into USERTEMPERRTEXT (TRANSACTIONID, ERRTEXT)
  values (:V_TRANSACTIONID, :I_ERRTEXT);
  -- Исключение
  exception E_ABORT :I_ERRTEXT;
end^

SET TERM ; ^

COMMENT ON PROCEDURE F_ERROR IS
'Процедура генерации ошибки';

COMMENT ON PARAMETER F_ERROR.I_ERRTEXT IS
'Сообщение об ошибке';

SET TERM ^ ;

create or alter procedure F_GETERROR
returns (
    O_ERRTEXT varchar(1021))
as
declare variable V_TRANSACTIONID integer;
begin
  V_TRANSACTIONID = current_transaction;
  -- Получаем текстовку
  in autonomous transaction do select ERRTEXT
  from USERTEMPERRTEXT
  where TRANSACTIONID = :V_TRANSACTIONID into O_ERRTEXT;
  -- Сторнируем
  in autonomous transaction do
  delete from USERTEMPERRTEXT
  where TRANSACTIONID = :V_TRANSACTIONID;
  -- Возвращаем
  suspend;
end^

SET TERM ; ^

COMMENT ON PROCEDURE F_GETERROR IS
'Процедура получения текущей ошибки';

COMMENT ON PARAMETER F_GETERROR.O_ERRTEXT IS
'Описание ошибки';

if (....) then execute procedure F_ERROR('Текст ошибки');

when exception E_ABORT do
      select coalesce(O_ERRTEXT, 'Хз что')
      from F_GETERROR
      left join RDB$DATABASE on 1 = 1
      into O_ERRTEXT;