form 代码提交请求并跳转

-- 提交请求

l_request_id := fnd_request.submit_request('CUX', 'CUXMROMTN', NULL, NULL, FALSE, :NOTICE_MR.MR_HEADER_ID);

IF l_request_id = 0 THEN

  fnd_message.set_string('Post The Request Errors');

  fnd_message.error;

ELSE

  :System.Message_Level := 25;

  COMMIT;

  fnd_message.set_string('请求已提交请求编号：' ||

                         l_request_id);

  fnd_message.show;

   --调用标准请求界面

  :System.Message_Level := 0;

  fnd_function.execute(function_name => 'FND_FNDRSRUN'

                      ,open_flag     => 'Y'

                      ,session_flag  => 'Y'

                      ,activate_flag => 'N' --这个如果默认的话本form这个函数以下的代码    将都不执行

                      ,other_params  => 'CONCURRENT_PROGRAM_NAME="CUXWIPPCJOB" PROGRAM_APPL_SHORT_NAME="CUX" DODT_REQ_ID="' || to_char(l_request_id) || '"');

END IF;