[Home] [Help]
1: PACKAGE BODY AS_LEAD_LINES_PKG as
2: /* $Header: asxtldlb.pls 120.2 2005/11/23 03:23:06 sumahali ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_LINES_PKG
5: -- Purpose :
1: PACKAGE BODY AS_LEAD_LINES_PKG as
2: /* $Header: asxtldlb.pls 120.2 2005/11/23 03:23:06 sumahali ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEAD_LINES_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_LEAD_LINES_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtldlb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_LEAD_LINE_ID IN OUT NOCOPY NUMBER,
65: p_PRODUCT_CATEGORY_ID NUMBER,
66: p_PRODUCT_CAT_SET_ID NUMBER)
67:
68: IS
69: CURSOR C2 IS SELECT AS_LEAD_LINES_S.nextval FROM sys.dual;
70: BEGIN
71: If (px_LEAD_LINE_ID IS NULL) OR (px_LEAD_LINE_ID = FND_API.G_MISS_NUM) then
72: OPEN C2;
73: FETCH C2 INTO px_LEAD_LINE_ID;
72: OPEN C2;
73: FETCH C2 INTO px_LEAD_LINE_ID;
74: CLOSE C2;
75: End If;
76: INSERT INTO AS_LEAD_LINES(
77: LEAD_LINE_ID,
78: LAST_UPDATE_DATE,
79: LAST_UPDATED_BY,
80: CREATION_DATE,
236: p_PRODUCT_CAT_SET_ID NUMBER)
237:
238: IS
239: BEGIN
240: Update AS_LEAD_LINES_ALL
241: SET
242: object_version_number = nvl(object_version_number,0) + 1,
243: LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
244: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
302: PROCEDURE Delete_Row(
303: p_LEAD_LINE_ID NUMBER)
304: IS
305: BEGIN
306: DELETE FROM AS_LEAD_LINES
307: WHERE LEAD_LINE_ID = p_LEAD_LINE_ID;
308: If (SQL%NOTFOUND) then
309: RAISE NO_DATA_FOUND;
310: End If;
366:
367: IS
368: CURSOR C IS
369: SELECT *
370: FROM AS_LEAD_LINES
371: WHERE LEAD_LINE_ID = p_LEAD_LINE_ID
372: FOR UPDATE of LEAD_LINE_ID NOWAIT;
373: Recinfo C%ROWTYPE;
374: BEGIN
542: APP_EXCEPTION.RAISE_EXCEPTION;
543: End If;
544: END Lock_Row;
545:
546: End AS_LEAD_LINES_PKG;