[Home] [Help]
1: PACKAGE BODY CSP_USAGE_HISTORIES_PKG as
2: /* $Header: csptpusb.pls 115.4 2002/11/26 06:36:14 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_USAGE_HISTORIES_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_USAGE_HISTORIES_PKG as
2: /* $Header: csptpusb.pls 115.4 2002/11/26 06:36:14 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_USAGE_HISTORIES_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_USAGE_HISTORIES_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptpusb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_USAGE_ID IN OUT NOCOPY NUMBER,
50: p_SUBINVENTORY_CODE VARCHAR2,
51: p_TRANSACTION_TYPE_ID NUMBER)
52:
53: IS
54: CURSOR C2 IS SELECT CSP_USAGE_HISTORIES_S1.nextval FROM sys.dual;
55: BEGIN
56: If (px_USAGE_ID IS NULL) OR (px_USAGE_ID = FND_API.G_MISS_NUM) then
57: OPEN C2;
58: FETCH C2 INTO px_USAGE_ID;
57: OPEN C2;
58: FETCH C2 INTO px_USAGE_ID;
59: CLOSE C2;
60: End If;
61: INSERT INTO CSP_USAGE_HISTORIES(
62: USAGE_ID,
63: CREATED_BY,
64: CREATION_DATE,
65: LAST_UPDATED_BY,
176: p_TRANSACTION_TYPE_ID NUMBER)
177:
178: IS
179: BEGIN
180: Update CSP_USAGE_HISTORIES
181: SET
182: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
183: CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
184: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
225: PROCEDURE Delete_Row(
226: p_USAGE_ID NUMBER)
227: IS
228: BEGIN
229: DELETE FROM CSP_USAGE_HISTORIES
230: WHERE USAGE_ID = p_USAGE_ID;
231: If (SQL%NOTFOUND) then
232: RAISE NO_DATA_FOUND;
233: End If;
274:
275: IS
276: CURSOR C IS
277: SELECT *
278: FROM CSP_USAGE_HISTORIES
279: WHERE USAGE_ID = p_USAGE_ID
280: FOR UPDATE of USAGE_ID NOWAIT;
281: Recinfo C%ROWTYPE;
282: BEGIN
405: APP_EXCEPTION.RAISE_EXCEPTION;
406: End If;
407: END Lock_Row;
408:
409: End CSP_USAGE_HISTORIES_PKG;