1: PACKAGE BODY IEX_WF_DEL_REQ_CREDIT_PUB AS
2: /* $Header: iexwfdcb.pls 120.2.12020000.3 2012/12/21 17:17:01 ehuh ship $ */
3: /*
4: * This procedure needs to be called with an itemtype and workflow process
5: * which'll launch workflow .Start Workfolw will call workflow based on
5: * which'll launch workflow .Start Workfolw will call workflow based on
6: * Meth_flag in methodology base table
7: */
8:
9: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_WF_DEL_REQ_CREDIT_PUB';
10:
11: PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
12:
13: PROCEDURE start_workflow
476: l_msg_data VARCHAR2(2000);
477:
478: BEGIN
479:
480: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Starting update_approval_status......= ');
481:
482: if funcmode <> 'RUN' then
483: result := wf_engine.eng_null;
484: return;
518: itemtype => itemtype,
519: itemkey => itemkey,
520: aname => 'BANKRUPTCY_ID');
521:
522: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: l_del_type ......= '||l_del_type);
523:
524: IF l_del_type = 'Delinquency' THEN
525: update IEX_DELINQUENCIES_ALL
526: set CREDIT_HOLD_APPROVED_FLAG = 'Y'
537: update IEX_WRITEOFFS
538: set CREDIT_HOLD_APPROVED_FLAG = 'Y'
539: where writeoff_id = l_writeoff_id;
540: ELSIF l_del_type = 'Bankrupt' THEN
541: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Bankrutpcy Start ......= ');
542: update IEX_BANKRUPTCIES
543: set CREDIT_HOLD_APPROVED_FLAG = 'Y'
544: where bankruptcy_id = l_bankruptcy_id;
545: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Bankrutpcy End ......= ');
541: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Bankrutpcy Start ......= ');
542: update IEX_BANKRUPTCIES
543: set CREDIT_HOLD_APPROVED_FLAG = 'Y'
544: where bankruptcy_id = l_bankruptcy_id;
545: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Bankrutpcy End ......= ');
546:
547: -- Bug 6936225 by Ehuh Starting....
548: begin
549: Open c_get_acct(l_bankruptcy_id);
588: end;
589: -- Bug 6936225 by Ehuh Ending....
590:
591: ELSE
592: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Else ......= ');
593: null;
594: END IF;
595:
596: result := 'COMPLETE';
596: result := 'COMPLETE';
597:
598: EXCEPTION
599: WHEN L_API_ERROR then
600: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: l_errmsg_name......= '||l_errmsg_name);
601: WF_CORE.Raise(l_errmsg_name);
602: WHEN OTHERS THEN
603: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Exception Others ......= ');
604: WF_CORE.Context('IEX_DEL_REQ_CREDIT_WF_PUB', 'Reject_Contract',
599: WHEN L_API_ERROR then
600: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: l_errmsg_name......= '||l_errmsg_name);
601: WF_CORE.Raise(l_errmsg_name);
602: WHEN OTHERS THEN
603: iex_debug_pub.logmessage ('IEX_WF_DEL_REQ_CREDIT_PUB: Exception Others ......= ');
604: WF_CORE.Context('IEX_DEL_REQ_CREDIT_WF_PUB', 'Reject_Contract',
605: itemtype, itemkey, actid, funcmode);
606: RAISE;
607: END update_approval_status;
700: RAISE;
701:
702: END update_rejection_status;
703:
704: END IEX_WF_DEL_REQ_CREDIT_PUB;