存儲過程調用包中的函數

create or replace procedure gather_tp(v_year number,
                                      v_month number,
                                      v_day number
                                      ) as
       var_type t_cprt_tp_charge_temp.type%TYPE;
       CURSOR C IS SELECT TYPE from t_cprt_tp_charge_temp GROUP BY TYPE ORDER BY 1;
BEGIN
       OPEN C;
       LOOP
            FETCH C INTO var_type;
            EXIT WHEN C%NOTFOUND;
            IF var_type = 0 THEN
            pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,0);
            ELSIF var_type = 1 THEN
            pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,1);
            ELSIF var_type = 2 THEN
              pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,2);
            ELSIF var_type = 3 THEN
               pkg_tp_gather.pro_tp_direct_jjc_sjj_otc(v_year,v_month,v_day,3);
            ELSIF var_type = 4 THEN
               pkg_tp_gather.pro_tp_indirect_otc(v_year,v_month,v_day,4);
            ELSIF var_type = 5 THEN
               pkg_tp_gather.pro_tp_gt_otc(v_year,v_month,v_day,5);
            ELSIF var_type = 6 THEN
               DBMS_OUTPUT.PUT_LINE('6');
            ELSIF var_type = 7 THEN
               pkg_tp_gather.pro_tp_neu(v_year,v_month,v_day,7);
            ELSIF var_type = 8 THEN
               pkg_tp_gather.pro_tp_direct_jjc_sjj_otc(v_year,v_month,v_day,8);
            END IF;
       END LOOP;
       CLOSE C;
END;