1: PACKAGE BODY PV_ATTRIBUTE_USAGES_PKG as
2: /* $Header: pvxtatub.pls 115.3 2002/12/10 19:38:47 amaram ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: pvxtatub.pls 115.3 2002/12/10 19:38:47 amaram ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- PV_ATTRIBUTE_USAGES_PKG
7: -- Purpose
8: --
9: -- History
10: --
13: -- End of Comments
14: -- ===============================================================
15:
16:
17: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ATTRIBUTE_USAGES_PKG';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtatub.pls';
19:
20:
21: ----------------------------------------------------------
62:
63: px_object_version_number := 1;
64:
65:
66: INSERT INTO PV_ATTRIBUTE_USAGES(
67: attribute_usage_id,
68: last_update_date,
69: last_updated_by,
70: creation_date,
137: )
138:
139: IS
140: BEGIN
141: Update PV_ATTRIBUTE_USAGES
142: SET
143: attribute_usage_id = DECODE( p_attribute_usage_id, FND_API.g_miss_num, attribute_usage_id, p_attribute_usage_id),
144: last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
145: last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
184: PROCEDURE Delete_Row(
185: p_ATTRIBUTE_USAGE_ID NUMBER)
186: IS
187: BEGIN
188: DELETE FROM PV_ATTRIBUTE_USAGES
189: WHERE ATTRIBUTE_USAGE_ID = p_ATTRIBUTE_USAGE_ID;
190: If (SQL%NOTFOUND) then
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: End If;
231:
232: IS
233: CURSOR C IS
234: SELECT *
235: FROM PV_ATTRIBUTE_USAGES
236: WHERE ATTRIBUTE_USAGE_ID = p_ATTRIBUTE_USAGE_ID
237: FOR UPDATE of ATTRIBUTE_USAGE_ID NOWAIT;
238: Recinfo C%ROWTYPE;
239: BEGIN
301: APP_EXCEPTION.RAISE_EXCEPTION;
302: END IF;
303: END Lock_Row;
304:
305: END PV_ATTRIBUTE_USAGES_PKG;
306: