window.open函数与reinsucde.pkg_fac_quote_paris_to_upc调用详解

以下是一个过程，调用了其它系统的一个过程，需要添加属主（reinsucde.pkg_fac_quote_paris_to_upc......）
过程里有个行类型游标 t_c2,c2 将该游标的值做为另一个过程的参数进行处理。
procedure arrange_facquote_for_reinsure(v_quote_slip_no   in varchar2,
                                          v_plan_code       in varchar2,
                                          v_quoteBy         in varchar2,
                                          v_remark          in varchar2,
                                          v_reFlag          out varchar2,
                                          v_resultMsg       out varchar2) is
  v_pCode varchar2(10);
    v_quote_task_id varchar2(20);
    v_count number;
    CURSOR c2 is   select TASK_SOURCE,DISPOSE_USER_ID,QUOTED_OPINION,QUOTED_SUGGESTION, QUOTED_EXTEND,QUOTED_MODIFY   from quote_task_info 
                where quote_task_id = (select max(quote_task_id) from quote_task_info 
                where quote_slip_no=v_quote_slip_no);
        t_c2 c2%rowtype;

  begin

   v_pCode := v_plan_code;
    select plan_code into v_pCode from quote_slip_base_info t where t.quote_slip_no = v_quote_slip_no;

    --调用再保的 询价任务请求发起接口
    reinsucde.pkg_fac_quote_paris_to_upc.create_quote_task(v_quote_slip_no,
                                                           v_pCode,
                                                           v_quoteBy,
                                                           v_remark,
                                                           v_reFlag,
                                                           v_resultMsg);
     --更新询价单中临分状态
    update quote_slip_base_info set facultative_reinsurance_status = '0' where quote_slip_no=v_quote_slip_no;

    --设置任务状态为已完成
        select max(quote_task_id) into v_quote_task_id from quote_task_info  where quote_slip_no=v_quote_slip_no;
    update quote_task_info t set t.TASK_STATUS = '2',t.quoted_opinion='10',t.dispose_user_id = v_quoteBy,t.dispose_time=sysdate,t.updated_by = v_quoteBy,t.updated_date = sysdate where t.quote_task_id = v_quote_task_id;
     update quote_task_info_sub t set t.TASK_STATUS = '2',t.dispose_time=sysdate,t.updated_by = v_quoteBy,t.updated_date = sysdate where t.quote_task_id = v_quote_task_id;

--- 新增处理人为空的任务
       v_count := 0;

     open c2;
          loop
            FETCH c2
              INTO t_c2;
            Exit when(c2%NOTFOUND);
            if (c2%found) then
            
              select count(*) into v_count from quote_task_info t where t.quote_slip_no=v_quote_slip_no and t.dispose_user_id=t_c2.dispose_user_id and t.task_status <>2;
              if v_count = 0 then
                tempupccde.pkg_epcisupc_quoteslip.insert_dispatch_task(v_quote_slip_no,v_quoteBy,'01',t_c2.task_source,'','0','',t_c2.quoted_suggestion,t_c2.quoted_extend,t_c2.quoted_modify,v_reFlag,v_resultMsg);
                  if v_reFlag <> '0' then
                     v_reFlag := 'N';
                     v_resultMsg := '临分方案-新增处理人为空的任务失败'|| SUBSTR(v_resultMsg,1,200);
                     rollback;
                  end if;
                end if;
              end if;
            end loop;
          close c2;     


    commit;