APPS.AS_LEAD_COMP_PRODUCTS_PKG dependencies on AS_LEAD_COMP_PRODUCTS

Line 1: PACKAGE BODY AS_LEAD_COMP_PRODUCTS_PKG as

1: PACKAGE BODY AS_LEAD_COMP_PRODUCTS_PKG as
2: /* $Header: asxtcpdb.pls 115.8 2004/01/13 10:08:33 gbatra ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_COMP_PRODUCTS_PKG
5: -- Purpose :

Line 4: -- Package name : AS_LEAD_COMP_PRODUCTS_PKG

1: PACKAGE BODY AS_LEAD_COMP_PRODUCTS_PKG as
2: /* $Header: asxtcpdb.pls 115.8 2004/01/13 10:08:33 gbatra ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_COMP_PRODUCTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

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

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_LEAD_COMP_PRODUCTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtcpdb.pls';
13:
14: PROCEDURE Insert_Row(
15: p_ATTRIBUTE15 VARCHAR2,

Line 47: CURSOR C2 IS SELECT AS_LEAD_COMP_PRODUCTS_S.nextval FROM sys.dual;

43: p_CREATED_BY NUMBER,
44: p_CREATION_DATE DATE)
45:
46: IS
47: CURSOR C2 IS SELECT AS_LEAD_COMP_PRODUCTS_S.nextval FROM sys.dual;
48: BEGIN
49: If (px_LEAD_COMPETITOR_PROD_ID IS NULL) OR (px_LEAD_COMPETITOR_PROD_ID = FND_API.G_MISS_NUM) then
50: OPEN C2;
51: FETCH C2 INTO px_LEAD_COMPETITOR_PROD_ID;

Line 54: INSERT INTO AS_LEAD_COMP_PRODUCTS(

50: OPEN C2;
51: FETCH C2 INTO px_LEAD_COMPETITOR_PROD_ID;
52: CLOSE C2;
53: End If;
54: INSERT INTO AS_LEAD_COMP_PRODUCTS(
55: -- SECURITY_GROUP_ID,
56: ATTRIBUTE15,
57: ATTRIBUTE14,
58: ATTRIBUTE13,

Line 154: Update AS_LEAD_COMP_PRODUCTS

150: p_CREATION_DATE DATE)
151:
152: IS
153: BEGIN
154: Update AS_LEAD_COMP_PRODUCTS
155: SET object_version_number = nvl(object_version_number,0) + 1,
156: ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
157: ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
158: ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),

Line 197: DELETE FROM AS_LEAD_COMP_PRODUCTS

193: PROCEDURE Delete_Row(
194: p_LEAD_COMPETITOR_PROD_ID NUMBER)
195: IS
196: BEGIN
197: DELETE FROM AS_LEAD_COMP_PRODUCTS
198: WHERE LEAD_COMPETITOR_PROD_ID = p_LEAD_COMPETITOR_PROD_ID;
199: If (SQL%NOTFOUND) then
200: RAISE NO_DATA_FOUND;
201: End If;

Line 239: FROM AS_LEAD_COMP_PRODUCTS

235:
236: IS
237: CURSOR C IS
238: SELECT *
239: FROM AS_LEAD_COMP_PRODUCTS
240: WHERE LEAD_COMPETITOR_PROD_ID = p_LEAD_COMPETITOR_PROD_ID
241: FOR UPDATE of LEAD_COMPETITOR_PROD_ID NOWAIT;
242: Recinfo C%ROWTYPE;
243: BEGIN

Line 352: End AS_LEAD_COMP_PRODUCTS_PKG;

348: APP_EXCEPTION.RAISE_EXCEPTION;
349: End If;
350: END Lock_Row;
351:
352: End AS_LEAD_COMP_PRODUCTS_PKG;