[Home] [Help]
1: PACKAGE BODY CSP_MSTRSTCK_LISTS_ITMS_PKG as
2: /* $Header: csptpstb.pls 115.4 2002/11/26 06:40:02 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MSTRSTCK_LISTS_ITMS_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_MSTRSTCK_LISTS_ITMS_PKG as
2: /* $Header: csptpstb.pls 115.4 2002/11/26 06:40:02 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MSTRSTCK_LISTS_ITMS_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_MSTRSTCK_LISTS_ITMS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptstcb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_MSL_ID IN OUT NOCOPY NUMBER,
43: p_ATTRIBUTE14 VARCHAR2,
44: p_ATTRIBUTE15 VARCHAR2)
45:
46: IS
47: CURSOR C2 IS SELECT CSP_MSTRSTCK_LISTS_ITMS_S1.nextval FROM sys.dual;
48: BEGIN
49: If (px_MSL_ID IS NULL) OR (px_MSL_ID = FND_API.G_MISS_NUM) then
50: OPEN C2;
51: FETCH C2 INTO px_MSL_ID;
50: OPEN C2;
51: FETCH C2 INTO px_MSL_ID;
52: CLOSE C2;
53: End If;
54: INSERT INTO CSP_MSTRSTCK_LISTS_ITMS(
55: MSL_ID,
56: CREATED_BY,
57: CREATION_DATE,
58: LAST_UPDATED_BY,
148: p_ATTRIBUTE15 VARCHAR2)
149:
150: IS
151: BEGIN
152: Update CSP_MSTRSTCK_LISTS_ITMS
153: SET
154: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
155: CREATION_DATE = decode(p_CREATION_DATE, fnd_api.g_miss_date,creation_date,p_creation_date),
156: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
190: PROCEDURE Delete_Row(
191: p_MSL_ID NUMBER)
192: IS
193: BEGIN
194: DELETE FROM CSP_MSTRSTCK_LISTS_ITMS
195: WHERE MSL_ID = p_MSL_ID;
196: If (SQL%NOTFOUND) then
197: RAISE NO_DATA_FOUND;
198: End If;
232:
233: IS
234: CURSOR C IS
235: SELECT *
236: FROM CSP_MSTRSTCK_LISTS_ITMS
237: WHERE MSL_ID = p_MSL_ID
238: FOR UPDATE of MSL_ID NOWAIT;
239: Recinfo C%ROWTYPE;
240: BEGIN
342: APP_EXCEPTION.RAISE_EXCEPTION;
343: End If;
344: END Lock_Row;
345:
346: End CSP_MSTRSTCK_LISTS_ITMS_PKG;