Duvida procedure/cursor

[Anônimo]

Esta procedure só faz SELECT para consulta. Ela faz um select com diversas tabelas.
Criei esta consulta logo abaixo e ela faz exatamente o que eu preciso, ou seja, não é necessário mexer na procedure e nem trazer o select para o código de execução.
Mas como a minha procedure é muito grande não seria nada produtivo. Eu até que tentei fazer mas fiquei quase a tarde inteira e acabei desistindo.
Se não der para visualizar os dados, pelo menos eu preciso saber se o cursor traz alguma informação ou se está vazio.

declare
vCODIGO DEPARTAMENTO.CODIGO%TYPE
vNOME DEPARTAMENTO.NOME%TYPE
vCOD_REGIAO DEPARTAMENTO.COD_REGIAO%TYPE
Pcursor CURSOR;

begin
P_BUSCA_DEPTO(V_CODIGO, Pcursor);
LOOP
FETCH Pcursor INTO CODIGO, NOME, COD_REGIAO;
EXIT WHEN Pcursor %NOTFOUND;
dbms_output.put_line(CODIGO || ‘ , ‘ || NOME || ‘ , ‘ || COD_REGIAO);
END LOOP;
CLOSE Pcursor;

end;
/

Mais uma vez obrigada 🙂