create message  20101  as '[#] Поле [%02!] в таблице [%01!] должно быть уникальным.';
create message  20201  as '[#] Поле [%02!] в таблице [%01!] должно быть %03!.';

ALTER PROCEDURE "DBA"."Street_UID" (
    in @режим               ИДУ_Режим,
    in @Улица_ИН            СсылкаИН,
    in @Название            С_Название
)
begin
    declare not_unique exception for sqlstate '23505';  -- неуникальное значение в ключевом поле
    declare bad_check exception for sqlstate '23506';   -- нарушение ограничения целостности

    -- Исполнение операции
    case @режим
    when 'И' then
    -- Изменить
        update STREET set "NAME" = @Название where ("IDSTREET" = @Улица_ИН);
    when 'Д' then
    -- Добавить
        insert into STREET ("NAME") values (@Название);
    when 'У' then
    -- Удалить
        delete from STREET where ("IDSTREET" = @Улица_ИН);
    end case;

-- Эти сообщения получает клиентское приложение
    exception
        when not_unique then
            raiserror  20101 , 'Улицы', 'Название';
        when bad_check then
            raiserror  20201 , 'Улицы', 'Название', 'непустым';
end