1: PACKAGE BODY IEX_DISPUTE_PVT AS
2: /* $Header: iexvdisb.pls 120.4.12010000.5 2008/11/14 13:08:48 pnaveenk ship $ */
3:
4: --G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpimpb.pls';
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_DISPUTE_PVT';
1: PACKAGE BODY IEX_DISPUTE_PVT AS
2: /* $Header: iexvdisb.pls 120.4.12010000.5 2008/11/14 13:08:48 pnaveenk ship $ */
3:
4: --G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpimpb.pls';
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_DISPUTE_PVT';
6:
7: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
8: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: --Added parameters p_skip_workflow_flag and p_dispute_date
508:
509: BEGIN
510:
511: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
512: IEX_DEBUG_PUB.logMessage('**** BEGIN IEX_DISPUTE_PVT.CANCEL_DISPUTE ************');
513: END IF;
514:
515: SAVEPOINT CANCEL_DISPUTE;
516:
884: p_count => x_msg_count,
885: p_data => x_msg_data);
886:
887: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
888: IEX_DEBUG_PUB.logMessage('**** END IEX_DISPUTE_PVT.CANCEL_DISPUTE ************');
889: END IF;
890:
891: EXCEPTION
892: WHEN FND_API.G_EXC_ERROR THEN
908: END IF;
909:
910: END CANCEL_DISPUTE;
911:
912: END IEX_DISPUTE_PVT ;