[Home] [Help]
1: package body ALR_MLR_PACKAGE as
2: /* $Header: alrwfmlrb.pls 120.0 2006/08/02 22:10:11 jwsmith noship $ */
3:
4: --
5: -- Generic mailer routines
183: step varchar2(200);
184: begin
185: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
186: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
187: 'alr.plsql.ALR_MLR_PACKAGE.Response', 'BEGIN');
188: end if;
189: l_eventkey := p_event.GetEventKey();
190: l_eventName := p_event.getEventName();
191: l_paramList := p_event.getParameterList();
193:
194: -- parse the event key into the message handle
195: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
196: wf_log_pkg.string(WF_LOG_PKG.level_statement,
197: 'alr.plsql.ALR_MLR_PACKAGE.Response',
198: 'Parsing for the node and message handle');
199: end if;
200:
201: ptpos1 := instrb(l_eventKey, '.', 1)+1;
212: morcl_id := TO_NUMBER(l_morcl_id);
213:
214: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
215: wf_log_pkg.string(WF_LOG_PKG.level_statement,
216: 'alr.plsql.ALR_MLR_PACKAGE.Response',
217: 'Node ['||l_node_handle||'] Msg Handle ['||
218: l_message_handle||']');
219: end if;
220: if l_eventName = 'oracle.apps.alr.response.receive' then
219: end if;
220: if l_eventName = 'oracle.apps.alr.response.receive' then
221: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
222: wf_log_pkg.string(WF_LOG_PKG.level_statement,
223: 'alr.plsql.ALR_MLR_PACKAGE.Response',
224: 'Getting response details');
225: end if;
226: WF_XML.getResponseDetails(message => l_eventData,
227: node => l_node,
229: fromRole => l_from,
230: responses => l_responses);
231: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
232: wf_log_pkg.string(WF_LOG_PKG.level_statement,
233: 'alr.plsql.ALR_MLR_PACKAGE.Response',
234: 'Got response details from ['||l_from||']');
235: end if;
236:
237: step := 'Processing responses';
239: if (l_responses.COUNT = 0) then
240: if (wf_log_pkg.level_procedure >=
241: fnd_log.g_current_runtime_level) then
242: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
243: 'alr.plsql.ALR_MLR_PACKAGE.Response',
244: 'Invalid response (response count is zero).');
245: end if;
246:
247: -- get application id, alert id, and response set
251:
252: if (wf_log_pkg.level_procedure >=
253: fnd_log.g_current_runtime_level) then
254: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
255: 'alr.plsql.ALR_MLR_PACKAGE.Response',
256: 'After get mesage details.');
257: end if;
258:
259: step := 'Saving History';
265:
266: if (wf_log_pkg.level_procedure >=
267: fnd_log.g_current_runtime_level) then
268: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
269: 'alr.plsql.ALR_MLR_PACKAGE.Response',
270: 'After saveresphist');
271: end if;
272:
273: reqid := fnd_request.submit_request(application => 'ALR',
279: if (reqid = 0) then
280: if (wf_log_pkg.level_statement >=
281: fnd_log.g_current_runtime_level) then
282: wf_log_pkg.string(WF_LOG_PKG.level_statement,
283: 'alr.plsql.ALR_MLR_PACKAGE.Response',
284: 'The request ID retued 0. Raising -20160 app error');
285: end if;
286: raise_application_error(-20160, FND_MESSAGE.GET);
287: end if;
288:
289: if (wf_log_pkg.level_statement >=
290: fnd_log.g_current_runtime_level) then
291: wf_log_pkg.string(WF_LOG_PKG.level_statement,
292: 'alr.plsql.ALR_MLR_PACKAGE.Response',
293: 'Concurrent request ['||to_char(reqid)||'] submitted');
294: end if;
295: else
296: -- process valid responses
296: -- process valid responses
297: for tk in 1..l_responses.COUNT loop
298: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
299: wf_log_pkg.string(WF_LOG_PKG.level_statement,
300: 'alr.plsql.ALR_MLR_PACKAGE.Response',
301: 'Processing ['||l_responses(tk).name||
302: '] ['||l_responses(tk).value||']');
303: end if;
304:
306: -- Check for open responses
307: count_var := OpenResponses;
308: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
309: wf_log_pkg.string(WF_LOG_PKG.level_statement,
310: 'alr.plsql.ALR_MLR_PACKAGE.Response',
311: 'Open responses ['||to_char(count_var)||']');
312: end if;
313:
314: step := 'Processing open responses';
364: -- CALL CONCURRENT PROGRAM TO PERFORM ACTIONS
365: if (wf_log_pkg.level_procedure >=
366: fnd_log.g_current_runtime_level) then
367: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
368: 'alr.plsql.ALR_MLR_PACKAGE.Response',
369: 'Submitting Action Processor');
370: end if;
371: reqid := fnd_request.submit_request(application => 'ALR',
372: program => 'ALPPWF',
380: if reqid = 0 then
381: if (wf_log_pkg.level_statement >=
382: fnd_log.g_current_runtime_level) then
383: wf_log_pkg.string(WF_LOG_PKG.level_statement,
384: 'alr.plsql.ALR_MLR_PACKAGE.Response',
385: 'The request ID retued 0. Raising -20160 app error');
386: end if;
387: raise_application_error(-20160, FND_MESSAGE.GET);
388: end if;
417: -- CALL CONCURRENT PROGRAM TO PERFORM ACTIONS
418: if (wf_log_pkg.level_procedure >=
419: fnd_log.g_current_runtime_level) then
420: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
421: 'alr.plsql.ALR_MLR_PACKAGE.Response',
422: 'Submitting Action Processor');
423: end if;
424: reqid := fnd_request.submit_request(application => 'ALR',
425: program => 'ALPPWF',
433: if (reqid = 0) then
434: if (wf_log_pkg.level_statement >=
435: fnd_log.g_current_runtime_level) then
436: wf_log_pkg.string(WF_LOG_PKG.level_statement,
437: 'alr.plsql.ALR_MLR_PACKAGE.Response',
438: 'The request ID retued 0. Raising -20160 app error');
439: end if;
440: raise_application_error(-20160, FND_MESSAGE.GET);
441: end if;
467: -- CALL CONCURRENT PROGRAM TO PERFORM ACTIONS
468: if (wf_log_pkg.level_procedure >=
469: fnd_log.g_current_runtime_level) then
470: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
471: 'alr.plsql.ALR_MLR_PACKAGE.Response',
472: 'Submitting Action Processor');
473: end if;
474: reqid := fnd_request.submit_request(application => 'ALR',
475: program => 'ALPPWF',
483: if (reqid = 0) then
484: if (wf_log_pkg.level_statement >=
485: fnd_log.g_current_runtime_level) then
486: wf_log_pkg.string(WF_LOG_PKG.level_statement,
487: 'alr.plsql.ALR_MLR_PACKAGE.Response',
488: 'The request ID retued 0. Raising -20160 app error');
489: end if;
490: raise_application_error(-20160, FND_MESSAGE.GET);
491: end if;
497: if (found=0) then
498: if (wf_log_pkg.level_procedure >=
499: fnd_log.g_current_runtime_level) then
500: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
501: 'alr.plsql.ALR_MLR_PACKAGE.Response',
502: 'Submitting Action Processor');
503: end if;
504: reqid := fnd_request.submit_request(application => 'ALR',
505: program => 'ALPPWF',
513: if (reqid = 0) then
514: if (wf_log_pkg.level_statement >=
515: fnd_log.g_current_runtime_level) then
516: wf_log_pkg.string(WF_LOG_PKG.level_statement,
517: 'alr.plsql.ALR_MLR_PACKAGE.Response',
518: 'The request ID retued 0. Raising -20160 app error');
519: end if;
520: raise_application_error(-20160, FND_MESSAGE.GET);
521: end if;
530: end if;
531:
532: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
533: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
534: 'alr.plsql.ALR_MLR_PACKAGE.Response', 'END');
535: end if;
536:
537: return 'SUCCESS';
538:
579: exception
580: when no_data_found then
581: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
582: wf_log_pkg.string(WF_LOG_PKG.level_statement,
583: 'alr.plsql.ALR_MLR_PACKAGE.GetMessageDetails',
584: 'Error, message handle does not exist in db.');
585: end if;
586: wf_core.context('ALR_MLR_PKG', 'RESPONSE',
587: 'Exception during GetMessageDetails');
865: 'Exception during SaveRespHistory');
866: if (wf_log_pkg.level_procedure >=
867: fnd_log.g_current_runtime_level) then
868: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
869: 'alr.plsql.ALR_MLR_PACKAGE.Response',
870: 'Exception in SaveRespHistory');
871: end if;
872: raise;
873: end SaveRespHistory;
1125: if reqid = 0 then
1126: if (wf_log_pkg.level_statement >=
1127: fnd_log.g_current_runtime_level) then
1128: wf_log_pkg.string(WF_LOG_PKG.level_statement,
1129: 'alr.plsql.ALR_MLR_PACKAGE.Response',
1130: 'The request ID retued 0. Raising -20160 app error');
1131: end if;
1132: raise_application_error(-20160, FND_MESSAGE.GET);
1133: end if;
1169: if (reqid = 0) then
1170: if (wf_log_pkg.level_statement >=
1171: fnd_log.g_current_runtime_level) then
1172: wf_log_pkg.string(WF_LOG_PKG.level_statement,
1173: 'alr.plsql.ALR_MLR_PACKAGE.Response',
1174: 'The request ID retued 0. Raising -20160 app error');
1175: end if;
1176: raise_application_error(-20160, FND_MESSAGE.GET);
1177: end if;
1202: -- CALL CONCURRENT PROGRAM TO PERFORM ACTIONS
1203: if (wf_log_pkg.level_procedure >=
1204: fnd_log.g_current_runtime_level) then
1205: wf_log_pkg.string(WF_LOG_PKG.level_procedure,
1206: 'alr.plsql.ALR_MLR_PACKAGE.Response',
1207: 'Submitting Action Processor');
1208: end if;
1209: reqid := fnd_request.submit_request(application => 'ALR',
1210: program => 'ALPPWF',
1218: if (reqid = 0) then
1219: if (wf_log_pkg.level_statement >=
1220: fnd_log.g_current_runtime_level) then
1221: wf_log_pkg.string(WF_LOG_PKG.level_statement,
1222: 'alr.plsql.ALR_MLR_PACKAGE.Response',
1223: 'The request ID retued 0. Raising -20160 app error');
1224: end if;
1225: raise_application_error(-20160, FND_MESSAGE.GET);
1226: end if;
1242: if (reqid = 0) then
1243: if (wf_log_pkg.level_statement >=
1244: fnd_log.g_current_runtime_level) then
1245: wf_log_pkg.string(WF_LOG_PKG.level_statement,
1246: 'alr.plsql.ALR_MLR_PACKAGE.Response',
1247: 'The request ID retued 0. Raising -20160 app error');
1248: end if;
1249: raise_application_error(-20160, FND_MESSAGE.GET);
1250: end if;
1254: end if;
1255:
1256: end Test;
1257:
1258: end; /*ALR_MLR_PACKAGE*/