[Home] [Help]
2969:
2970: -- Check to see if a previous run exists which did not terminate gracefully
2971: -- enough to populate the FEM_PL_xxx tables. IF such a previous run exists,
2972: -- set its execution state appropriately.
2973: v_call_status := fnd_concurrent.get_request_status (
2974: request_id => v_request_id,
2975: phase => v_rphase,
2976: status => v_rstatus,
2977: dev_phase => v_drphase,
2995: -- set request to an error status
2996: IF (NOT v_call_status) THEN
2997: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2998: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2999: p_msg_text => 'Call to fnd_concurrent.get_request_status failed');
3000:
3001: UPDATE fem_pl_requests SET exec_status_code = v_error_status,
3002: last_updated_by = v_user_id, last_update_date = sysdate,
3003: last_update_login = v_last_update_login
4171: -- Logic
4172: -- Checks fem_pl_object_executions table to obtain the execution status
4173: -- of the input object execution. If the status is RUNNING, make sure
4174: -- that the execution is still actually running by checking the
4175: -- FND Concurrent Program status. The FND Concurrent Program status is
4176: -- more accurate.
4177: -- =========================================================================
4178: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
4179: 'fem.plsql.fem_pl_pkg.get_exec_status';
4185: e_api_error EXCEPTION;
4186: v_exec_status_code FEM_PL_OBJECT_EXECUTIONS.exec_status_code%TYPE;
4187: v_object_type_code FEM_OBJECT_CATALOG_B.object_type_code%TYPE;
4188: v_call_status BOOLEAN;
4189: v_request_id FND_CONCURRENT_REQUESTS.request_id%TYPE;
4190: v_req_phase FND_CONCURRENT_REQUESTS.phase_code%TYPE;
4191: v_req_status FND_CONCURRENT_REQUESTS.status_code%TYPE;
4192: v_req_dev_phase VARCHAR2(30);
4193: v_rec_dev_status VARCHAR2(30);
4186: v_exec_status_code FEM_PL_OBJECT_EXECUTIONS.exec_status_code%TYPE;
4187: v_object_type_code FEM_OBJECT_CATALOG_B.object_type_code%TYPE;
4188: v_call_status BOOLEAN;
4189: v_request_id FND_CONCURRENT_REQUESTS.request_id%TYPE;
4190: v_req_phase FND_CONCURRENT_REQUESTS.phase_code%TYPE;
4191: v_req_status FND_CONCURRENT_REQUESTS.status_code%TYPE;
4192: v_req_dev_phase VARCHAR2(30);
4193: v_rec_dev_status VARCHAR2(30);
4194: v_rec_message FND_CONCURRENT_REQUESTS.completion_text%TYPE;
4187: v_object_type_code FEM_OBJECT_CATALOG_B.object_type_code%TYPE;
4188: v_call_status BOOLEAN;
4189: v_request_id FND_CONCURRENT_REQUESTS.request_id%TYPE;
4190: v_req_phase FND_CONCURRENT_REQUESTS.phase_code%TYPE;
4191: v_req_status FND_CONCURRENT_REQUESTS.status_code%TYPE;
4192: v_req_dev_phase VARCHAR2(30);
4193: v_rec_dev_status VARCHAR2(30);
4194: v_rec_message FND_CONCURRENT_REQUESTS.completion_text%TYPE;
4195: --
4190: v_req_phase FND_CONCURRENT_REQUESTS.phase_code%TYPE;
4191: v_req_status FND_CONCURRENT_REQUESTS.status_code%TYPE;
4192: v_req_dev_phase VARCHAR2(30);
4193: v_rec_dev_status VARCHAR2(30);
4194: v_rec_message FND_CONCURRENT_REQUESTS.completion_text%TYPE;
4195: --
4196: BEGIN
4197: --
4198: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4279:
4280: IF v_object_type_code = 'MAPPING_PREVIEW' THEN
4281: -- needed because request_id is an IN OUT param
4282: v_request_id := p_request_id;
4283: v_call_status := FND_CONCURRENT.get_request_status (
4284: request_id => v_request_id,
4285: phase => v_req_phase,
4286: status => v_req_status,
4287: dev_phase => v_req_dev_phase,
4296: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4297: FEM_ENGINES_PKG.TECH_MESSAGE(
4298: p_severity => FND_LOG.level_statement,
4299: p_module => C_MODULE,
4300: p_msg_text => 'Call to FND_CONCURRENT.get_request_status '
4301: ||'returned with dev phase of: '||v_req_dev_phase);
4302: END IF;
4303: RAISE e_unexp;
4304: END IF;