APPS.AS_LEAD_CONTACTS_PKG dependencies on AS_LEAD_CONTACTS

Line 1: PACKAGE BODY AS_LEAD_CONTACTS_PKG as

1: PACKAGE BODY AS_LEAD_CONTACTS_PKG as
2: /* $Header: asxtlcnb.pls 115.5 2002/12/13 11:20:38 nkamble ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_CONTACTS_PKG
5: -- Purpose :

Line 4: -- Package name : AS_LEAD_CONTACTS_PKG

1: PACKAGE BODY AS_LEAD_CONTACTS_PKG as
2: /* $Header: asxtlcnb.pls 115.5 2002/12/13 11:20:38 nkamble ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_CONTACTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

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

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_LEAD_CONTACTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtlcnb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_LEAD_CONTACT_ID IN OUT NOCOPY NUMBER,

Line 54: CURSOR C2 IS SELECT AS_LEAD_CONTACTS_S.nextval FROM sys.dual;

50: p_ROLE VARCHAR2,
51: p_CONTACT_PARTY_ID NUMBER)
52:
53: IS
54: CURSOR C2 IS SELECT AS_LEAD_CONTACTS_S.nextval FROM sys.dual;
55: BEGIN
56: If (px_LEAD_CONTACT_ID IS NULL) OR (px_LEAD_CONTACT_ID = FND_API.G_MISS_NUM) then
57: OPEN C2;
58: FETCH C2 INTO px_LEAD_CONTACT_ID;

Line 61: INSERT INTO AS_LEAD_CONTACTS(

57: OPEN C2;
58: FETCH C2 INTO px_LEAD_CONTACT_ID;
59: CLOSE C2;
60: End If;
61: INSERT INTO AS_LEAD_CONTACTS(
62: LEAD_CONTACT_ID,
63: LEAD_ID,
64: CONTACT_ID,
65: LAST_UPDATE_DATE,

Line 180: Update AS_LEAD_CONTACTS

176: p_CONTACT_PARTY_ID NUMBER)
177:
178: IS
179: BEGIN
180: Update AS_LEAD_CONTACTS
181: SET
182: LEAD_ID = decode( p_LEAD_ID, FND_API.G_MISS_NUM, LEAD_ID, p_LEAD_ID),
183: CONTACT_ID = decode( p_CONTACT_ID, FND_API.G_MISS_NUM, CONTACT_ID, p_CONTACT_ID),
184: LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),

Line 229: DELETE FROM AS_LEAD_CONTACTS

225: PROCEDURE Delete_Row(
226: p_LEAD_CONTACT_ID NUMBER)
227: IS
228: BEGIN
229: DELETE FROM AS_LEAD_CONTACTS
230: WHERE LEAD_CONTACT_ID = p_LEAD_CONTACT_ID;
231: If (SQL%NOTFOUND) then
232: RAISE NO_DATA_FOUND;
233: End If;

Line 278: FROM AS_LEAD_CONTACTS

274:
275: IS
276: CURSOR C IS
277: SELECT *
278: FROM AS_LEAD_CONTACTS
279: WHERE LEAD_CONTACT_ID = p_LEAD_CONTACT_ID
280: FOR UPDATE of LEAD_CONTACT_ID NOWAIT;
281: Recinfo C%ROWTYPE;
282: BEGIN

Line 409: End AS_LEAD_CONTACTS_PKG;

405: APP_EXCEPTION.RAISE_EXCEPTION;
406: End If;
407: END Lock_Row;
408:
409: End AS_LEAD_CONTACTS_PKG;