APPS.IEX_LITIGATIONS_PKG dependencies on IEX_LITIGATIONS

Line 1: PACKAGE BODY IEX_LITIGATIONS_PKG as

1: PACKAGE BODY IEX_LITIGATIONS_PKG as
2: /* $Header: iextltgb.pls 120.1 2007/12/20 09:57:11 gnramasa ship $ */
3: -- Start of Comments
4: -- Package name : IEX_LITIGATIONS_PKG
5: -- Purpose :

Line 4: -- Package name : IEX_LITIGATIONS_PKG

1: PACKAGE BODY IEX_LITIGATIONS_PKG as
2: /* $Header: iextltgb.pls 120.1 2007/12/20 09:57:11 gnramasa ship $ */
3: -- Start of Comments
4: -- Package name : IEX_LITIGATIONS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

Line 11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_LITIGATIONS_PKG';

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_LITIGATIONS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextltgb.pls';
13:
14: PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
15:

Line 60: CURSOR C2 IS SELECT IEX_LITIGATIONS_S.nextval FROM sys.dual;

56: ,p_CONTRACT_ID NUMBER
57: ,p_CONTRACT_NUMBER VARCHAR2)
58:
59: IS
60: CURSOR C2 IS SELECT IEX_LITIGATIONS_S.nextval FROM sys.dual;
61: BEGIN
62: If (px_LITIGATION_ID IS NULL) OR (px_LITIGATION_ID = FND_API.G_MISS_NUM) then
63: OPEN C2;
64: FETCH C2 INTO px_LITIGATION_ID;

Line 67: INSERT INTO IEX_LITIGATIONS(

63: OPEN C2;
64: FETCH C2 INTO px_LITIGATION_ID;
65: CLOSE C2;
66: End If;
67: INSERT INTO IEX_LITIGATIONS(
68: LITIGATION_ID
69: ,DELINQUENCY_ID
70: ,PARTY_ID
71: ,UNPAID_REASON_CODE

Line 198: Update IEX_LITIGATIONS

194: ,p_CONTRACT_NUMBER VARCHAR2)
195:
196: IS
197: BEGIN
198: Update IEX_LITIGATIONS
199: SET
200: DELINQUENCY_ID = decode( p_DELINQUENCY_ID, FND_API.G_MISS_NUM, DELINQUENCY_ID, p_DELINQUENCY_ID)
201: ,PARTY_ID = decode( p_PARTY_ID, FND_API.G_MISS_NUM, PARTY_ID, p_PARTY_ID)
202: ,UNPAID_REASON_CODE = decode( p_UNPAID_REASON_CODE, FND_API.G_MISS_CHAR, UNPAID_REASON_CODE, p_UNPAID_REASON_CODE)

Line 251: DELETE FROM IEX_LITIGATIONS

247: PROCEDURE Delete_Row(
248: p_LITIGATION_ID NUMBER)
249: IS
250: BEGIN
251: DELETE FROM IEX_LITIGATIONS
252: WHERE LITIGATION_ID = p_LITIGATION_ID;
253: If (SQL%NOTFOUND) then
254: RAISE NO_DATA_FOUND;
255: End If;

Line 299: FROM IEX_LITIGATIONS

295:
296: IS
297: CURSOR C IS
298: SELECT *
299: FROM IEX_LITIGATIONS
300: WHERE LITIGATION_ID = p_LITIGATION_ID
301: FOR UPDATE of LITIGATION_ID NOWAIT;
302: Recinfo C%ROWTYPE;
303: BEGIN

Line 427: End IEX_LITIGATIONS_PKG;

423: APP_EXCEPTION.RAISE_EXCEPTION;
424: End If;
425: END Lock_Row;
426:
427: End IEX_LITIGATIONS_PKG;