1: PACKAGE BODY CSP_SUPERSEDE_ITEMS_PKG as
2: /* $Header: csptsupb.pls 115.2 2002/11/26 07:05:03 hhaugeru noship $ */
3: -- Start of Comments
4: -- Package name : CSP_SUPERSEDE_ITEMS_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_SUPERSEDE_ITEMS_PKG as
2: /* $Header: csptsupb.pls 115.2 2002/11/26 07:05:03 hhaugeru noship $ */
3: -- Start of Comments
4: -- Package name : CSP_SUPERSEDE_ITEMS_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):= 'CSP_SUPERSEDE_ITEMS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptsupb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_SUPERSEDE_ID IN OUT NOCOPY NUMBER
39: ,p_ATTRIBUTE14 VARCHAR2
40: ,p_ATTRIBUTE15 VARCHAR2)
41:
42: IS
43: CURSOR C2 IS SELECT CSP_SUPERSEDE_ITEMS_S1.nextval FROM sys.dual;
44: BEGIN
45: If (px_SUPERSEDE_ID IS NULL) OR (px_SUPERSEDE_ID = FND_API.G_MISS_NUM) then
46: OPEN C2;
47: FETCH C2 INTO px_SUPERSEDE_ID;
46: OPEN C2;
47: FETCH C2 INTO px_SUPERSEDE_ID;
48: CLOSE C2;
49: End If;
50: INSERT INTO CSP_SUPERSEDE_ITEMS(
51: SUPERSEDE_ID
52: ,CREATED_BY
53: ,CREATION_DATE
54: ,LAST_UPDATED_BY
132: ,p_ATTRIBUTE15 VARCHAR2)
133:
134: IS
135: BEGIN
136: Update CSP_SUPERSEDE_ITEMS
137: SET
138: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
139: ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
140: ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
170: PROCEDURE Delete_Row(
171: p_SUPERSEDE_ID NUMBER)
172: IS
173: BEGIN
174: DELETE FROM CSP_SUPERSEDE_ITEMS
175: WHERE SUPERSEDE_ID = p_SUPERSEDE_ID;
176: If (SQL%NOTFOUND) then
177: RAISE NO_DATA_FOUND;
178: End If;
208:
209: IS
210: CURSOR C IS
211: SELECT *
212: FROM CSP_SUPERSEDE_ITEMS
213: WHERE SUPERSEDE_ID = p_SUPERSEDE_ID
214: FOR UPDATE of SUPERSEDE_ID NOWAIT;
215: Recinfo C%ROWTYPE;
216: BEGIN
306: APP_EXCEPTION.RAISE_EXCEPTION;
307: End If;
308: END Lock_Row;
309:
310: End CSP_SUPERSEDE_ITEMS_PKG;