create or replace function adam.fn_nom2(pvc_nombre in varchar2)
  return varchar2 is
  vti_pos2 number;
  vti_pos3 number;
  pvc_cad  varchar(30);
  v_nom    varchar2(100);
begin

  v_nom := rtrim(ltrim(pvc_nombre));
  vti_pos2 := Instr(v_nom, '/', 1, 2);
  vti_pos3 := Instr(v_nom, ' ', vti_pos2 + 1, 1);

  IF nvl(vti_pos3, 0) = 0 THEN
    pvc_cad := ' ';
    RETURN(pvc_cad);
  ELSE
    pvc_cad := SubStr(v_nom, vti_pos3 + 1, 30);
  END IF;

  --  pvc_cad := initcap(pvc_cad);
  pvc_cad := Translate(pvc_cad, 'ρΡαΑιΙνΝσΣϊΪ-', 'nNaAeEiIoOuU ');

  RETURN(pvc_cad);
end;
/
