程序中调用请求



l_request_id := fnd_request.submit_request( 'AR', --应用简称

                                           'RACUST', --并发程序

                                            '',

                                            '',

                                            FALSE,

                                            'N', --参数1,是否创建互惠客户帐户关系 - 是或否，默认为否

                                            --modify by Chen.nan 2011.04.15 start

                                            --TO_NUMBER(l_cur_submit.org_id), --参数2,业务实体id，其他参数省略。

                                            NULL,

                                            --modify by Chen.nan 2011.04.15 end

                                            chr(0));

    COMMIT;

    IF l_request_id IS NULL OR l_request_id = 0 THEN

      retcode := 2;

      errbuf  := '客户接口导入标准表出错!' ;

      RETURN;

    END IF ;

    l_bl_result := fnd_concurrent.wait_for_request(l_request_id, --等待的请求

                                                   1, --间隔时间

                                                   0, --等待时间

                                                   v_phase,

                                                   v_status,

                                                   v_dev_phase,

                                                   v_dev_status,

                                                   v_message);

    IF v_dev_phase = 'COMPLETE' AND v_dev_status = 'NORMAL' THEN

      --更新错误状态

      NULL;

    END IF ;