Getting error --- ORA-06511: PL/SQL: cursor already open

Question

I have the following code for a Apex(Application Express) project I am developing.
declare
mail_id varchar2(100);
min_skill_cnt number;
skill_cde varchar2(30);
total_leave number;
toal_emp number;
cursor cur is
select S_EMP_EMAIL
from EMP_SKILLS_INFO where SKILLCODE='MGR' and S_EMP_EMAIL = lower(:APP_USER) ;
cursor minskill is
select skill_code,MINRQMT_AM
from skills_code_info
where skill_code in (select skillcode from emp_skills_info where S_EMP_EMAIL = lower(:APP_USER));
cursor leavecnt(v_skill IN VARCHAR2) is
select count(*) from emp_leave_info
where leave_date = :P24_LEAVE_DATE
and emp_email IN (select S_EMP_EMAIL from EMP_SKILLS_INFO where SKILLCODE = v_skill);
cursor empcnt(v_skills IN VARCHAR2) is
select count(*) from EMP_SKILLS_INFO
where SKILLCODE = v_skills;
begin
open cur;
open minskill;
LOOP
fetch minskill into skill_cde,min_skill_cnt;
exit when minskill%NOTFOUND;
open leavecnt(skill_cde);
fetch leavecnt into total_leave;
open empcnt(skill_cde);
fetch empcnt into toal_emp;
IF toal_emp-total_leave < min_skill_cnt
then
apex_mail.send(
p_to => :APP_USER ,
p_from => '[email protected]',
p_cc => NULL,
p_body => '***** This is a system generated message, please do not reply to this *****'||
chr(10) || utl_tcp.crlf || 'Please review the current skill as '||:APP_USER||' is on leave'||
chr(10) || utl_tcp.crlf ||'Thanks',
p_subj => 'Skill code alert' );
end if;
END LOOP;
close empcnt;
close leavecnt;
close minskill;
close cur;
end;
=======================
Ideally this should send email to managers when a particular skill is running short when employee applies for leave.
I am getting error that cursor is already open when I run this code. I am not sure which cursor or where it is picking open cursor command.
Any inputs will be appreciated.

Answer 1

LOOP
      FETCH minskill
      INTO skill_cde, min_skill_cnt;
      EXIT WHEN minskill%NOTFOUND;
      OPEN leavecnt (skill_cde); --- here you open.. in a loop and not close inside loop
      FETCH leavecnt INTO total_leave;
      OPEN empcnt (skill_cde);--- here you open.. in a loop and not close inside loop
      FETCH empcnt INTO toal_emp;
      IF toal_emp - total_leave < min_skill_cnt
      THEN
         apex_mail.
         send (
            p_to     => :APP_USER,
            p_from   => '[email protected]',
            p_cc     => NULL,
            p_body   => '***** This is a system generated message, please do not reply to this *****'
                       || CHR (10)
                       || UTL_TCP.crlf
                       || 'Please review the current skill as '
                       || :APP_USER
                       || ' is on leave'
                       || CHR (10)
                       || UTL_TCP.crlf
                       || 'Thanks',
            p_subj   => 'Skill code alert');
      END IF;
   END LOOP;