1: PACKAGE BODY OZF_RELATED_DEAL_LINES_PKG as
2: /* $Header: ozftordb.pls 120.0 2005/06/01 02:58:49 appldev noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: ozftordb.pls 120.0 2005/06/01 02:58:49 appldev noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- OZF_RELATED_DEAL_LINES_PKG
7: -- Purpose
8: --
9: -- History
10: --
13: -- End of Comments
14: -- ===============================================================
15:
16:
17: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_RELATED_DEAL_LINES_PKG';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftordb.pls';
19:
20:
21: ----------------------------------------------------------
61:
62: px_object_version_number := 1;
63:
64:
65: INSERT INTO OZF_RELATED_DEAL_LINES(
66: related_deal_lines_id,
67: modifier_id,
68: related_modifier_id,
69: last_update_date,
132: p_estimate_qty_uom VARCHAR2)
133:
134: IS
135: BEGIN
136: Update OZF_RELATED_DEAL_LINES
137: SET
138: related_deal_lines_id = DECODE( p_related_deal_lines_id, FND_API.g_miss_num, related_deal_lines_id, p_related_deal_lines_id),
139: modifier_id = DECODE( p_modifier_id, FND_API.g_miss_num, modifier_id, p_modifier_id),
140: related_modifier_id = DECODE( p_related_modifier_id, FND_API.g_miss_num, related_modifier_id, p_related_modifier_id),
177: PROCEDURE Delete_Row(
178: p_RELATED_DEAL_LINES_ID NUMBER)
179: IS
180: BEGIN
181: DELETE FROM OZF_RELATED_DEAL_LINES
182: WHERE RELATED_DEAL_LINES_ID = p_RELATED_DEAL_LINES_ID;
183: If (SQL%NOTFOUND) then
184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185: End If;
223:
224: IS
225: CURSOR C IS
226: SELECT *
227: FROM OZF_RELATED_DEAL_LINES
228: WHERE RELATED_DEAL_LINES_ID = p_RELATED_DEAL_LINES_ID
229: FOR UPDATE of RELATED_DEAL_LINES_ID NOWAIT;
230: Recinfo C%ROWTYPE;
231: BEGIN
299: APP_EXCEPTION.RAISE_EXCEPTION;
300: END IF;
301: END Lock_Row;
302:
303: END OZF_RELATED_DEAL_LINES_PKG;