Не есть другой подход у меня работает и на 5.6 и на FB!

Подробное описание с теорией применения и почему энто так найдешь на IBese.ru

Я напишу только практику

1. Сначала создаешь процедурку

CREATE PROCEDURE ERROR (
E VARCHAR(2000))
AS
DECLARE VARIABLE EE VARCHAR(78);
BEGIN
EE='';
EE=:E;
/*åñëè âõîäíîé ïàðàìåòð áîëüøå ÷åì 78 òî òóò âîçíèêàåò îøèáêà
êîòîðàÿ óñïåøíî îáðàáàòûâàåòñÿ íèæå*/
UPDATE rdb$exceptions
SET rdb$message=:E
WHERE rdb$exception_name='ERR';
EXCEPTION ERR;
/*ñþäà ïîïàäàåì òîëüêî åñëè âõîäíîé ïàðàìåòð Å áîëüøå 78 ñèìâîëîâ*/
/*EE - ñîäåðæèò 78 ñèìâîëîâ â îáðåçàííûõ îò E*/
when any do
begin
UPDATE rdb$exceptions
SET rdb$message=:EE
WHERE rdb$exception_name='ERR';
EXCEPTION ERR;
end
END

2. Потом вызываешь ее в процедурах или тригерах!

if ((Current_DATE = NEW.tdata) AND (Current_TIME > GO_NEXT_DAY)) then
// Вот ее вызов
execute procedure error('Блин уже позно что то менять!');

Ну ты блин даешь теорию на IBase прочитай там все подробно разжовано!

Но и без теории работает! )))
Хотя теория тоже очень важная штукккккккка