create or replace procedure sp_fco_get_datos_ccf(p_compania     in char,
                                                      p_trabajador   in char,
                                                      p_agrupacion   in char,
                                                      p_codigo       out char,
                                                      p_descripcion  out char,
                                                      p_departamento out char,
                                                      p_municipio    out char) is
begin
  begin
    select c.codigo, d.descripcion, c.departamento, c.municipio
      into p_codigo, p_descripcion, p_departamento, p_municipio
      from rel_trab_agr r, vw_fco_administradoras c, datos_agr_trab d
     where r.compania = p_compania and r.compania = c.compania --jcl agosto 9/06
       and r.agrupacion = p_agrupacion
       and r.trabajador = p_trabajador
       and r.dato = c.codigo
       and c.tipo = 'CCF' -- jcl agosto 9/06
       and r.agrupacion = d.agrupacion
       and r.dato = d.dato;
  exception
    when no_data_found then
      p_codigo       := null;
      p_descripcion  := null;
      p_departamento := null;
      p_municipio    := null;
  end;
end sp_fco_get_datos_ccf;
/
