create or replace function getCapatTransa2 return sys_Refcursor is
   tmp sys_Refcursor;
   error varchar2(1500);
begin
    open tmp for select 'x' from dual;
    return tmp;
end getCapatTransa2;

create or replace function get_capat_transa(p1 sys_refcursor, p2 number) return varchar2 is
  cod varchar2(40);
begin
  for i in 1..p2 loop
--    if p1%isopen then
      --raise_application_error (-20667, cod);
      fetch p1 into cod;
  end loop;
  return cod;
end;

select get_capat_transa(getCapatTransa2, 1 ) cod 
  from dual

declare var varchar2(10);
begin
 var := get_capat_transa(getCapatTransa2, 1 );
end;
/

declare var varchar2(10);
begin
 var := get_capat_transa(getCapatTransa2, 1 );
end;
/

SQL> declare var varchar2(10);
  2  begin
  3   var := get_capat_transa(getCapatTransa2, 1 );
  4  end;
  5  /

PL/SQL procedure successfully completed.

SQL>