procedure StartTransaction
begin
  EXEC "BEGIN WORK"
  если ошибка = already started то ничего не делать
    иначе поднимает(бросаем) эксепшин.
end;

define _tc int;

on exception ....
  if _tc =  0  then ROLLBACK; end if;

  raise exception ....
end exception; 
let _tc =  1 ;


begin on exception end exception; 
  BEGIN WORK; 
  let _tc =  0 ; 
end;

...............--Тело процедуры

if _tc =  0  then COMMIT; end if;