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

  IF NVL(vti_pos2, 0) = 0 THEN
    pvc_cad := SubStr(v_nom, vti_pos1 + 1, 100);
  ELSE
    pvc_cad := SubStr(v_nom, vti_pos1 + 1, vti_pos2 - vti_pos1 - 1);
  END IF;

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

  RETURN(pvc_cad);
end fn_ape2;
/
