CREATE OR REPLACE FUNCTION err_raise_exception(i_sqlstate text, i_sqlerrm text, i_fnc_name text)
  RETURNS void AS
$BODY$declare
  l_err_str text;
begin
  raise notice 'in err_raise_exception sqlstate=%, sqlerrm=%, fnc_name=%',i_sqlstate, i_sqlerrm, i_fnc_name;
  if (i_sqlstate='P0001') then
    l_err_str=i_sqlerrm;
  else
    l_err_str=err_encode_exception('PG.'||i_sqlstate||'.'||i_fnc_name, i_sqlerrm);
  end if;
  raise notice 'finish err_raise_exception l_err_str=%',l_err_str;
  raise exception '%', l_err_str;
end;$BODY$
  LANGUAGE 'plpgsql' STABLE;

CREATE OR REPLACE FUNCTION err_encode_exception(i_sqlstate text, i_sqlerrm text)
  RETURNS text AS
$BODY$declare
  l_ret text;
begin
  raise notice 'in err_encode_exception sqlstate=%, sqlerrm=%',i_sqlstate, i_sqlerrm;
  l_ret='<'||i_sqlstate||'=#='||i_sqlerrm||'>';
  raise notice 'finish err_encode_exception return=%',l_ret;
  return l_ret;
end;$BODY$
  LANGUAGE 'plpgsql' STABLE;

CREATE OR REPLACE FUNCTION err_decode_exception(i_error_string text)
  RETURNS err_exception AS
$BODY$declare
  l_ret err_exception;
begin
  raise notice 'in err_decode_exception i_error_string=%',i_error_string;
  if (i_error_string ~ '^\<.+=#=.*\>$') then
    l_ret.sqlstate=substring(i_error_string,'^\<(.+)=#=.*\>$');
    l_ret.sqlerrm=substring(i_error_string,'^\<.+=#=(.*)\>$');
  else
    l_ret.sqlstate='unknown';
    l_ret.sqlerrm=i_error_string;
  end if;
  raise notice 'finish err_decode_exception l_ret.sqlstate=%, l_ret.sqlerrm=%',l_ret.sqlstate,l_ret.sqlerrm;
  return l_ret;
end;$BODY$
  LANGUAGE 'plpgsql' STABLE;

CREATE TYPE err_exception AS
   (sqlstate text,
    sqlerrm text);

CREATE OR REPLACE FUNCTION process_coach(i_uid numeric, i_operation character varying, i_code team_code, i_coach_id integer)
  RETURNS void AS
$BODY$declare
  CMD_ADD    character varying( 6 )= 'SET';
  CMD_DEL    character varying( 6 )= 'REMOVE';

  l_oper character varying( 20 );
  l_tmp numeric;
  l_assoc_code assoc_code;
begin
  raise notice 'in process_coach uid=%, operation=%, code=%, coach_id=%',i_uid, i_operation, i_code, i_coach_id;

  l_oper = upper(i_operation);
  -------- (+)Блок генерации ошибок --------
  if (i_uid is null or i_uid< 1 ) then
    raise exception '%',err_encode_exception('process_coach.uid_is_empty', 'Пользователь не определен');
  end if;

  if (l_oper!=CMD_ADD and l_oper!=CMD_DEL) then
    raise exception '%',err_encode_exception('process_coach.bad_operation', 'Операция ('||l_oper||') не распознана');
  end if;

  if (i_code is null or i_code='') then
    raise exception '%',err_encode_exception('process_coach.bad_team_code', 'Код команды не может быть пустым');
  else
    if (is_team_exists(i_code)= 0 ) then
      raise exception '%',err_encode_exception('process_coach.team_not_exists', 'Команды ('||i_code||') не существует');
    end if;
  end if;

  l_assoc_code=get_assoc_code_for_team(i_code);
  if (l_oper=CMD_ADD) then
    if (i_coach_id is null or i_coach_id <  0 ) then
      raise exception '%',err_encode_exception('process_coach.bad_coach_id', 'Не передан или пустой ID назначаемого тренера');
    end if;
  elsif (l_oper = CMD_DEL) then
  end if;

  -------------- проверить права пользователя!!!!!!!!!!!!!!!! ----------------
  l_tmp = is_assoc_cheif(l_assoc_code, i_uid, true, true, true);
  if (l_tmp =  0 ) then
    raise exception '%',err_encode_exception('process_coach.have_not_rights', 'Вы не можете оперировать командами в этой ('||l_assoc_code||') федерации (ассоциации)');
  end if;

  -------- (-)Блок генерации ошибок --------
//тут ещё огромный кусок функции, которая что-то делает, где могут возникать ошибки или генериться руками, как сделано выше.

  raise notice 'finish process_coach';
//а это и есть глобальная секция перехвата. В неё попадет любая ошибка в этой функции.
exception
  when others then
    select err_raise_exception(SQLSTATE,SQLERRM,'process_coach');
end;$BODY$
  LANGUAGE 'plpgsql' VOLATILE;

    begin
      insert into user_teams (team_code, user_id) values (i_code, i_coach_id);
    exception
      when UNIQUE_VIOLATION THEN
        raise notice 'in process_coach unique violation %', SQLERRM;
        if (position('pk_user_teams' in SQLERRM)> 0 ) then
          raise exception '%',err_encode_exception('process_coach.same_coach_team', 'Игрок уже является тренером этой же команды');
        end if;
        if (position('user_teams_team_unique' in SQLERRM)> 0 ) then
          raise exception '%',err_encode_exception('process_coach.team_not_unique', 'У этой ('||i_code||') команды уже есть тренер');
        end if;
        select err_raise_exception(SQLSTATE,SQLERRM,'process_coach');
      when foreign_key_violation then
        raise notice 'in process_coach foreign_key_violation %', SQLERRM;
        if (position('fk_user_teams_team_code' in SQLERRM)> 0 ) then
          raise exception '%',err_encode_exception('process_coach.no_such_team', 'Такой ('||i_code||') команды не существует');
        end if;
        if (position('fk_user_teams_userid' in SQLERRM)> 0 ) then
          raise exception '%',err_encode_exception('process_coach.no_such_user', 'Такой ('||i_coach_id||') пользователь в системе не зарегистрирован');
        end if;
        select err_raise_exception(SQLSTATE,SQLERRM,'process_coach');
    end;    

        } catch (SQLException ex) {
        //тут ещё роллбэк, но я этот кусок опущу

            ok = false;
            FpPgError err = new FpPgError(ex);
            lRet = lRet + err.getErrMsg();