create or replace function adam.fn_ape1(pvc_nombre in varchar2)
  return varchar2 is
  vti_pos1 number;
  pvc_cad  varchar(30);
  v_nom    varchar2(100);
begin
  v_nom := rtrim(ltrim(pvc_nombre));
  vti_pos1 := Instr(v_nom, '/', 1, 1);
  IF vti_pos1 = 0 then
    pvc_cad := v_nom;
  ELSE
    pvc_cad := SubStr(v_nom, 1, vti_pos1 - 1);
  end if;

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

  return(pvc_cad);
end fn_ape1;
/
