create or replace function fn_fco_ing_eps(p_compania   in char,
                                               p_trabajador in char,
                                               p_periodo    in char)
  return varchar2 is
  Result varchar2(1) := ' ';
  v_persalud varchar2(6);
  v_anio varchar2(4);
  v_mes  number(2);
  cursor c1(c_periodo char) is
    select 'X'
      from vw_fco_hist_traslados_eps x
     where x.compania = p_compania
       and x.trabajador = p_trabajador
       and to_char(x.fecha_alta, 'YYYYMM') = c_periodo
       order by x.fecha_alta desc;
  
begin
v_anio := substr(p_periodo, 1, 4);
v_mes := to_number(substr(p_periodo, 5, 2)) + 1;
v_persalud := v_anio || rtrim(ltrim(to_char(v_mes, '00')));
open c1(v_persalud);
  fetch c1 into Result;
close c1;
  return(nvl(Result, ' '));
end fn_fco_ing_eps;
/
