[Home] [Help]
1: PACKAGE BODY AMS_IBA_PS_RULEGRPS_B_PKG as
2: /* $Header: amstrgpb.pls 120.0 2005/05/31 15:34:15 appldev noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amstrgpb.pls 120.0 2005/05/31 15:34:15 appldev noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_IBA_PS_RULEGRPS_B_PKG
7: -- Purpose
8: --
9: -- History
10: --
12: --
13: -- End of Comments
14: -- ===============================================================
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_IBA_PS_RULEGRPS_B_PKG';
17: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstrgpb.pls';
18:
19: ----------------------------------------------------------
20: ---- MEDIA ----
51: BEGIN
52:
53: px_object_version_number := 1;
54:
55: INSERT INTO AMS_IBA_PS_RULEGRPS_B(
56: rulegroup_id,
57: posting_id,
58: strategy_type,
59: exec_priority,
145:
146:
147: IS
148: BEGIN
149: Update AMS_IBA_PS_RULEGRPS_B
150: SET
151: rulegroup_id = DECODE( p_rulegroup_id, FND_API.g_miss_num, rulegroup_id, p_rulegroup_id),
152: posting_id = DECODE( p_posting_id, FND_API.g_miss_num, posting_id, p_posting_id),
153: strategy_type = DECODE( p_strategy_type, FND_API.g_miss_char, NULL, p_strategy_type),
202: p_RULEGROUP_ID NUMBER)
203: IS
204: BEGIN
205:
206: DELETE FROM AMS_IBA_PS_RULEGRPS_B
207: WHERE RULEGROUP_ID = p_RULEGROUP_ID;
208:
209: If (SQL%NOTFOUND) then
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: begin
238: delete from AMS_IBA_PS_RULEGRPS_TL T
239: where not exists
240: (select NULL
241: from AMS_IBA_PS_RULEGRPS_B B
242: where B.RULEGROUP_ID = T.RULEGROUP_ID
243: );
244:
245: update AMS_IBA_PS_RULEGRPS_TL T set (
329:
330: IS
331: CURSOR C IS
332: SELECT *
333: FROM AMS_IBA_PS_RULEGRPS_B
334: WHERE RULEGROUP_ID = p_RULEGROUP_ID
335: FOR UPDATE of RULEGROUP_ID NOWAIT;
336: Recinfo C%ROWTYPE;
337: BEGIN
379: APP_EXCEPTION.RAISE_EXCEPTION;
380: END IF;
381: END Lock_Row;
382:
383: END AMS_IBA_PS_RULEGRPS_B_PKG;