create or replace function adam.fn_nom1(pvc_nombre in varchar2)
  return varchar2 is
  vti_pos2 number;
  vti_pos3 number;
  pvc_cad  varchar(30);
  v_nom    varchar2(100);
begin
  v_nom    := pvc_nombre;
  vti_pos2 := Instr(v_nom, '/', 1, 2);
  v_nom    := rtrim(ltrim(substr(v_nom, vti_pos2 + 1, 100)));
  vti_pos3 := Instr(v_nom, ' ', 1, 1);

  IF NVL(vti_pos3, 0) != 0 THEN
    pvc_cad := SubStr(v_nom, 1, vti_pos3 - 1);
  else
    pvc_cad := v_nom;
  END IF;

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

  RETURN(pvc_cad);
END;
/
