oracle存储过程的优化

Question

create or replace procedure getPerTimeAndGradePro (tyear in number,tmonth in number,torgId in number) 
  as  
   processId wfworkitem.processinstid%type; 
   operatorName eosoperator.operatorname%type; 
   leadApproveGrade pl_month_work_sum.lead_grade_sum%type; 
   orgName eosorg_v_organization.orgName%type;    cursor cur_coordinate is  select distinct(item.processinstid),oper.operatorname,pws.lead_grade_sum,evo.orgName 
from pl_month_workplan workplan,wfactivityinst act,wfworkitem item,  
plan_flow_record rec,eosoperator oper, 
eosorg_v_organization evo, 
eosorg_t_employee ete, 
pl_month_work_sum pws 
where workplan.wf_proc_inst_id=act.processinstid 
and item.workitemid=rec.workitemid(+) 
and workplan.employee_id=oper.operatorid 
and act.activityinstid=item.activityinstid(+) 
and oper.operatorid=ete.operatorid and ete.orgid=evo.orgID and item.processinstid is not null 
and pws.workplanid=workplan.work_plan_id 
and workplan.time_value1=tyear 
and workplan.time_value2=tmonth 
and evo.orgID=torgId; begin 
      delete perApproveTimeAndGrade; 
 open cur_coordinate; 
   
   loop       fetch cur_coordinate into processId,operatorName,leadApproveGrade,orgName; 
   exit  when  cur_coordinate %notfound; 
   dbms_output.put_line(processId);       -- insert into personApprovePlan(operatorname,mkTime )values (operatorName,RetrievePersonPlan( 'mk ',processId),RetrievePersonPlan( 'app ',processId),RetrievePersonPlan( 'upper ',processId),RetrievePersonPlan( 'ex ',processId),RetrievePersonPlan( 'info ',processId)); 
insert into perApproveTimeAndGrade values (orgName,operatorName,RetrievePersonPlan( 'mk ',processId),RetrievePersonPlan( 'app ',processId),RetrievePersonPlan( 'upper ',processId),RetrievePersonPlan( 'ex ',processId),RetrievePersonPlan( 'infon ',processId),leadApproveGrade);    end loop; 
   commit; 
     close cur_coordinate; 
   end; 
RetrievePersonPlan为我写的一个函数，速度太慢了，查100多记录，都要1分钟，大家能给给意见吗，我用的是oracle，能把优化后的语句写出来就更好了，谢谢先！

Answer 1

查查下面语句的执行计划，看看是否有什么不妥的地方
select distinct(item.processinstid),oper.operatorname,pws.lead_grade_sum,evo.orgName  
from pl_month_workplan workplan,wfactivityinst act,wfworkitem item,   
plan_flow_record rec,eosoperator oper,  
eosorg_v_organization evo,  
eosorg_t_employee ete,  
pl_month_work_sum pws  
where workplan.wf_proc_inst_id=act.processinstid  
and item.workitemid=rec.workitemid(+)  
and workplan.employee_id=oper.operatorid  
and act.activityinstid=item.activityinstid(+)  
and oper.operatorid=ete.operatorid and ete.orgid=evo.orgID  
and item.processinstid is not null  
and pws.workplanid=workplan.work_plan_id  
and workplan.time_value1=:tyear  
and workplan.time_value2=:tmonth  
and evo.orgID=:torgId;