calcular percentual ao chamar procedure

select
    codigo_turma,
    Grau,
    count(case when reprovado = 'False' then 1 end) as QtdAprovados,
    count(case when reprovado = 'True'  then 1 end) as QtdReprovados
from proc_reprovados(:cod_escola, :ano) 
group by 
    codigo_turma,
    grau


----------------------------------------------------------------------------------------------------------


BEGIN
  FOR
    Select
           ALUNOTURMA.codigo_turma,
           ALUNOTURMA.matricula_aluno,
           ALUNOTURMA.escola,
           ALUNOTURMA.transferido,
           ALUNOTURMA.desistente,
           alunoturma.falecido,
           alunoturma.abandono,
           TURMA.grau

    from ALUNOTURMA left join TURMA on alunoturma.codigo_turma = TURMA.codigo
    where ALUNOTURMA.ESCOLA = :COD_ESCOLA
      and TURMA.ano         = :ANO
    INTO :CODIGO_TURMA,
         :MATRICULA_ALUNO,
         :ESCOLA,
         :TRANSFERIDO,
         :desistente,
         :falecido,
         :abandono,
         :grau
  DO
  BEGIN
    SELECT mediaglobalanual, mediaglobalfinal
    FROM proc_media_anual(:MATRICULA_ALUNO,:CODIGO_TURMA)
    into :MEDIAGLOBALANUAL , :mediaglobalfinal;

   if ((mediaglobalanual < 50) and (mediaglobalfinal < 50)) then
   reprovado = 'True';
   else
   reprovado = 'False';

    SUSPEND;
  END
END