procedure blablalba 
is
c_proc constant varchar2(50) := 'packagename.blablalba';

begin 
update tablename  set login = tr_letter(subsrt(name,1,1) || lastname);
commit;

for dummy in (select login from tablename  group by login having count(*)>1) loop
update tablename  set login = tr_letter(subsrt(name,1,1) || subsrt(patronymic,1,1) || lastname);
commit;
end loop;
end;

procedure GEN_LOGIN
is

c_proc varchar2(200) := 'blabla.GEN_LOGIN';



  cursor cur_duplicate  is
SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1;



begin
  update integ_for_w set login = tr_letter(substr(name1, 1,1)| |lastname );
  commit;
for ind in cur_duplicate loop
  update integ_for_w set login = tr_letter(substr(name1, 1,1)|| substr( name2, 1,1)|| lastname)  where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)  and id > (select avg(id) from integ_for_w where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)); 
  commit;
  end loop;
for ind in cur_duplicate loop
  update integ_for_w set login = tr_letter(substr(name1, 1,2)|| substr( name2, 1,1)|| lastname) where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)  and id > (select avg(id) from integ_for_w where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)); 
commit;
  end loop;  
for ind in cur_duplicate loop
  update integ_for_w set login = tr_letter(substr(name1, 1,3)|| substr( name2, 1,1)|| lastname) where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)  and id > (select avg(id) from integ_for_w where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)); 
commit;
  end loop;  
  
  for ind in cur_duplicate loop
  update integ_for_w set login = tr_letter(name1|| substr( name2, 1,1)|| lastname) where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)  and id > (select avg(id) from integ_for_w where  login in (SELECT login  FROM integ_for_w GROUP BY login HAVING count(*)>1)); 
commit;
  end loop; 
 
   
end GEN_LOGIN;

 --формирование логинов
    for ind in (select id
                      ,lastname
                      ,name1
                      ,name2
                  from table_emp
                 where login is null)
    loop
      v_lastn_web := ind.lastname;
      v_lastn_web := regexp_substr(v_lastn_web, '[^[[:space:]-]+');
      n_counter   := 1;
      loop
        begin
        
          n_login := 0;
        
          if n_counter = 1 then
            n_name1 := 1;
            n_name2 := 0;
          elsif n_counter = 2 then
            n_name1 := 1;
            n_name2 := 1;
          elsif n_counter > 2 then
            n_name1 := n_counter - 1;
            n_name2 := 1;
          end if;
        
          if n_counter > 0 then
            v_end_log:= tr_letter(substr(ind.name1, 1, n_name1)) ||
                         tr_letter(substr(ind.name2, 1, n_name2)) ||
                         tr_letter(v_lastn_web);
          end if;
        
          select login
            into v_prav_log
            from table_emp
           where login = v_end_log;
        
          if v_prav_log is not null then
            n_counter := n_counter + 1;
          end if;
        
        exception
          when no_data_found then
            update table_emp i
               set i.login = v_end_log
             where i.id = ind.id;
            n_login := 1;
          
        end;
      
        exit when(n_login = 1 or n_counter = 8 or ind.lastname is null);
      end loop;
    end loop;