[Home] [Help]
1: package body ecx_errorlog as
2: -- $Header: ECXERRB.pls 120.4 2006/07/21 16:27:08 gsingh ship $
3:
4: cursor c_ecx_errorno
5: is
223: select ecx_trigger_id_s.NEXTVAL
224: from dual;
225:
226: PRAGMA AUTONOMOUS_TRANSACTION;
227: i_method_name varchar2(2000) := 'ecx_errorlog.external_system';
228:
229: begin
230:
231: --- Sets the Log Directory in both Standalone and the Embedded mode
316: /* End of Bug 2167164 */
317:
318: /** Begin of the Bug 1999883 Callback to Workflow Routine **/
319: if(l_statementEnabled) then
320: ecx_debug.log(l_statement,'ecx_errorlog.external_system- callback to Workflow Code',
321: i_method_name);
322: ecx_debug.log(l_statement,'i_outmsgid',i_outmsgid,i_method_name);
323: end if;
324:
516: ecx_debug.log(l_statement,'wf error_name',wf_core.error_name,
517: i_method_name);
518: ecx_debug.log(l_statement,'wf error_message',wf_core.error_message,
519: i_method_name);
520: ecx_debug.log(l_statement,'ecx_errorlog.external_system Callback DONE ',
521: i_method_name);
522: end if;
523: else
524: if(l_statementEnabled) then
521: i_method_name);
522: end if;
523: else
524: if(l_statementEnabled) then
525: ecx_debug.log(l_statement,'ecx_errorlog.external_system-testing non block mode',
526: i_method_name);
527: ecx_debug.log(l_statement,'ecx_errorlog.external_system-i_status',
528: i_status,i_method_name);
529: end if;
523: else
524: if(l_statementEnabled) then
525: ecx_debug.log(l_statement,'ecx_errorlog.external_system-testing non block mode',
526: i_method_name);
527: ecx_debug.log(l_statement,'ecx_errorlog.external_system-i_status',
528: i_status,i_method_name);
529: end if;
530: if (i_status <> 0)
531: then
759: o_ret_msg := 'SUCCESS';
760: exception
761: when others then
762: o_ret_code :=2;
763: o_ret_msg :=SQLERRM || ' at ECX_ERRORLOG.SEND_ERROR';
764: end send_error;
765:
766: procedure send_msg_api
767: (
871: x_retmsg := 'SUCCESS';
872: exception
873: when others then
874: x_retcode := ecx_util_api.g_unexp_error;
875: x_retmsg := SQLERRM || ' at ECX_ERRORLOG.SEND_ERROR_API';
876: end send_msg_api;
877:
878: procedure inbound_trigger
879: (
1225:
1226: when others then
1227: o_retcode := 2;
1228: o_retmsg := SQLERRM;
1229: ecx_debug.setErrorInfo(2, 30, SQLERRM || '- ECX_ERRORLOG.LOG_DOCUMENT');
1230: end log_document;
1231:
1232:
1233: procedure update_log_document
1472: begin
1473:
1474: -- loop through the parameter list and get all the info for logging
1475: l_param_list := p_event.getParameterList();
1476: l_module := 'ecx.plsql.ecx_errorlog.get_event_params';
1477: if (l_param_list is null) then
1478: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
1479: wf_log_pkg.string(wf_log_pkg.level_statement, l_module,
1480: 'event object parameter list in empty');
1657: else
1658: l_out_msgid := wf_event.g_msgid;
1659: end if;
1660:
1661: l_module := 'ecx.plsql.ecx_errorlog.outbound_log';
1662: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
1663: wf_log_pkg.string(wf_log_pkg.level_procedure, l_module ||'.begin',
1664: 'outbound_log');
1665: end if;
1703: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
1704: wf_log_pkg.string(wf_log_pkg.level_statement, l_module,
1705: 'Logged resend for outbound.');
1706: end if;
1707: ecx_errorlog.log_resend (
1708: o_retcode => l_retcode,
1709: o_retmsg => l_retmsg,
1710: i_resend_msgid => l_out_msgid, -- RESEND ID
1711: i_msgid => l_ecx_msgid,
1727: l_log_msg := 'ECX_MSG_CREATED_ENQUEUED';
1728:
1729: -- for passthrough, update doclogs with the inbound status
1730: if (l_direction = 'IN') then
1731: ecx_errorlog.update_log_document
1732: (
1733: l_ecx_msgid,
1734: l_out_msgid, -- OUT MSG ID
1735: 'Inbound processing complete.',
1740: open c1;
1741: fetch c1 into l_passthr_trigger_id;
1742: close c1;
1743:
1744: ecx_errorlog.outbound_trigger
1745: (
1746: i_trigger_id => l_passthr_trigger_id,
1747: i_transaction_type => l_tran_type,
1748: i_transaction_subtype => l_tran_subtype,
1767: ecx_attachment.map_attachments(p_event, l_out_msgid);
1768: end if;
1769:
1770: -- This is commong logging for regular outbound and passthru on the outbound side.
1771: ecx_errorlog.log_document
1772: (o_retcode => l_retcode,
1773: o_retmsg => l_retmsg,
1774: i_msgid => l_out_msgid,
1775: i_message_type => l_message_type,
1830: end;
1831: end if;
1832: end if;
1833:
1834: ecx_errorlog.outbound_engine
1835: (
1836: l_trigger_id,
1837: '0',
1838: l_log_msg,
1865: if (status_text = 'SUCCESS') then
1866: status := 10;
1867: end if;
1868: begin
1869: ecx_errorlog.log_document(
1870: l_retcode,
1871: l_retmsg,
1872: receipt_msgid,
1873: message_type,
1900: raise ecx_log_exit;
1901: end if;
1902: end;
1903:
1904: ecx_errorlog.inbound_trigger
1905: (
1906: trigger_id,
1907: receipt_msgid,
1908: null,
1918: returnval := 'ERROR. SQLERRM:='||sqlerrm;
1919:
1920: end log_receivemessage;
1921:
1922: end ecx_errorlog;