87: begin
88: FND_CONC_MAINTAIN.apps_initialize_for_mgr;
89: exception
90: when others then
91: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
92: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
93: c_log_head || l_api_name || '.init_failed',
94: 'A Failure occurred in FND_CONC_MAINTAIN.apps_initialize_for_mgr');
95: end if;
88: FND_CONC_MAINTAIN.apps_initialize_for_mgr;
89: exception
90: when others then
91: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
92: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
93: c_log_head || l_api_name || '.init_failed',
94: 'A Failure occurred in FND_CONC_MAINTAIN.apps_initialize_for_mgr');
95: end if;
96: return 'E';
97: end;
98: --
99: /* First check if the request is already about to be run */
100: request_id := FND_CONC_MAINTAIN.get_pending_request_id('FND', 'FNDSCMPI');
101: if ((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
102: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
103: c_log_head || l_api_name || '.get_req_status',
104: 'Checked request status. request_id:' || request_id);
105: end if;
98: --
99: /* First check if the request is already about to be run */
100: request_id := FND_CONC_MAINTAIN.get_pending_request_id('FND', 'FNDSCMPI');
101: if ((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
102: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
103: c_log_head || l_api_name || '.get_req_status',
104: 'Checked request status. request_id:' || request_id);
105: end if;
106: /* If it is about to be run then there will be a request id. */
108: /* Submit the recompile request since it isn't about to be run */
109: request_id := fnd_request.submit_request (application => 'FND',
110: program => 'FNDSCMPI',
111: argument1 => 'N');
112: if ((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
113: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
114: c_log_head || l_api_name || '.submit',
115: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
116: end if;
109: request_id := fnd_request.submit_request (application => 'FND',
110: program => 'FNDSCMPI',
111: argument1 => 'N');
112: if ((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
113: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
114: c_log_head || l_api_name || '.submit',
115: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
116: end if;
117: if (request_id = 0) then
114: c_log_head || l_api_name || '.submit',
115: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
116: end if;
117: if (request_id = 0) then
118: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
119: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
120: c_log_head || l_api_name || '.submit_failed',
121: 'Request ID zero means submission failed. Msg on stack:'
122: || fnd_message.get);
115: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
116: end if;
117: if (request_id = 0) then
118: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
119: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
120: c_log_head || l_api_name || '.submit_failed',
121: 'Request ID zero means submission failed. Msg on stack:'
122: || fnd_message.get);
123: end if;
127: end if;
128: return 'P';
129: exception
130: when others then /* If we can't submit the request.*/
131: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
132: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
133: c_log_head || l_api_name || '.req_submit_fail',
134: 'Could not submit concurrent request FNDSCMPI to recompile menus');
135: end if;
128: return 'P';
129: exception
130: when others then /* If we can't submit the request.*/
131: if ((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
132: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
133: c_log_head || l_api_name || '.req_submit_fail',
134: 'Could not submit concurrent request FNDSCMPI to recompile menus');
135: end if;
136: return 'E';
152: result := fnd_concurrent.get_request_status(request_id, 'FND', 'FNDSCMPI',
153: phase, status, dev_phase,
154: dev_status, message);
155: /* Log result */
156: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
157: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
158: c_log_head || l_api_name || '.get_req_status',
159: 'Checked request status. dev_phase:'
160: || dev_phase ||' dev_status:'||dev_status);
153: phase, status, dev_phase,
154: dev_status, message);
155: /* Log result */
156: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
157: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
158: c_log_head || l_api_name || '.get_req_status',
159: 'Checked request status. dev_phase:'
160: || dev_phase ||' dev_status:'||dev_status);
161: end if;
168: request_id := fnd_request.submit_request(application => 'FND',
169: program => 'FNDSCMPI',
170: argument1 => 'N');
171: /* Log result */
172: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
173: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
174: c_log_head || l_api_name || '.submit',
175: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
176: end if;
169: program => 'FNDSCMPI',
170: argument1 => 'N');
171: /* Log result */
172: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
173: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
174: c_log_head || l_api_name || '.submit',
175: 'to recompile, Submitted FNDSCMPI request id:'||request_id);
176: end if;
177: end if;
176: end if;
177: end if;
178: exception
179: when others then /* Don't error out if we can't submit the request.*/
180: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
181: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
182: c_log_head || l_api_name || '.req_submit_fail',
183: 'Could not submit concurrent request FNDSCMPI to recompile menus');
184: end if;
177: end if;
178: exception
179: when others then /* Don't error out if we can't submit the request.*/
180: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
181: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
182: c_log_head || l_api_name || '.req_submit_fail',
183: 'Could not submit concurrent request FNDSCMPI to recompile menus');
184: end if;
185: end SUBMIT_MENU_COMPILE;