create table tbl_le3 (
  name varchar2( 30 ),
  ind integer constraint tbl_le3_ind_ck check(ind between  1  and  3 ),
  constraint tbl_le3_pk primary key (ind, name),
  data varchar2( 30 )
);

create table tbl_le3i(
  name varchar2( 30 ),
  ind integer constraint tbl_le3i_ind_ck check(ind between  0  and  3 ),
  constraint tbl_le3i_pk primary key (name, ind)
)
organization index;

create trigger tbl_le3_betg
before insert or update on tbl_le3
for each row
declare
function take_ind(
  new_name varchar2,
  new_ind number
)return number
is
  MAX_NUM constant number :=  3 ;
  res number;
  found boolean;
  busy boolean;
  resource_busy exception;
  pragma exception_init(resource_busy, - 00054 );
  cursor cr1(i number) is
    select ind
    from tbl_le3i
    where name = new_name and i = ind;
  cursor cr2 is
    select ind
    from tbl_le3i
    where name = new_name and  0  < ind;
  cursor cr3(i number) is
    select ind
    from tbl_le3i
    where name = new_name and i = ind for update nowait;
  cursor cr4(i number) is
    select ind
    from tbl_le3i
    where name = new_name and i = ind for update
;
procedure allocate
-- Размещаем в пуле допустимые номера однофамильцев и номер 0,
-- который означает, что пул выделен.
is
  pragma autonomous_transaction;
  name dbms_sql.varchar2_table;
  ind dbms_sql.number_table;
begin
    for i in  0 ..MAX_NUM loop
        name(i) := new_name;
        ind(i) := i;
    end loop;
    forall i in  0 ..MAX_NUM insert into tbl_le3i (name, ind) values (name(i), ind(i));
    commit;
exception
when dup_val_on_index then
    rollback;
end allocate
;
begin
-- Если пул номеров для имени не выделен, выделяем новый пул
    open cr1( 0 ); fetch cr1 into res; found := cr1%found; close cr1;
    if not found then
        allocate;
    end if;
-- Номер назначен явно, просто блокируем запись или сообщаем, что номер занят.
    if new_ind is not null then
        open cr4(new_ind); fetch cr4 into res; found := cr4%found; close cr4;
        if found then
            return new_ind;
        end if;
        raise dup_val_on_index;
    end if;
-- Ищем и блокируем свободный номер в пуле.
    loop
        found := false; -- Свободных номеров нет
        busy := false; -- Заблокированных номеров нет
        for r in cr2 loop
            begin
                open cr3(r.ind); fetch cr3 into res; found := cr3%found; close cr3;
            exception
            when resource_busy then
                busy := true;  -- Нашли заблокированных номер. Запомним...
                res := r.ind;
            end;
            if found then -- Нашли свободный номер.
                return res;
            end if;
        end loop;
        if busy then -- Подождём освобождения номера.
            open cr4(res); fetch cr4 into res; found := cr4%found; close cr4;
            if found then -- Дождались.
                return res;
            end if; -- Номер занят окончательно. Повторяем попытку
        else -- Все номера заняты
            raise dup_val_on_index;
        end if;
    end loop;
end take_ind
;
begin
    :new.ind := take_ind(:new.name, :new.ind);
-- Удаляем номер из пула
    delete tbl_le3i where name = :new.name and ind = :new.ind;
end;
/
show errors trigger tbl_le3_betg
drop trigger tbl_le3_betg
.

create trigger tbl_le3_aetg
after delete or update on tbl_le3
for each row
begin
-- Возвращаем номер в пул
    insert into tbl_le3i (name, ind) values (:old.name, :old.ind);
end;
/
show errors trigger tbl_le3_aetg
drop trigger tbl_le3_aetg
.

drop table tbl_le3;
drop table tbl_le3i;