FOR l_calc_type IN calc_type LOOP

      l_request_id := NULL;

      IF p_segment1 IN ('1110', '1101', '1102', '1111', '1113')

         AND l_calc_type.flex_value = 'AR-AGING' THEN      

        l_request_id := fnd_request.submit_request(application => 'CUX',

                                                   program     => 'CUXBPCDATACLCT_SA',

                                                   description => NULL,

                                                   start_time  => SYSDATE,

                                                   sub_request => TRUE,

                                                   argument1   => p_segment1,

                                                   argument2   => p_period_name,

                                                   argument3   => l_calc_type.flex_value);

      ELSE

        l_request_id := fnd_request.submit_request(application => 'CUX',

                                                   program     => 'CUXBPCDATACLCT',

                                                   description => NULL,

                                                   start_time  => SYSDATE,

                                                   sub_request => TRUE,

                                                   argument1   => p_segment1,

                                                   argument2   => p_period_name,

                                                   argument3   => l_calc_type.flex_value);

      END IF;

      IF l_request_id > 0 THEN

        fnd_conc_global.set_req_globals(conc_status  => 'PAUSED',

                                        request_data => l_request_id);

        COMMIT;

        l_request_id := l_request_id;

        errbuff      := '已成功调用请求,请求号为:' || l_request_id;

        retcode      := 0;

      ELSE

        ROLLBACK;

        l_request_id := 0;

        errbuff      := '调用请求失败,稍后重试！';

        retcode      := 2;

      END IF;

    END LOOP;