1: PACKAGE BODY IEX_strategy_work_items_PVT as
2: /* $Header: iexvswib.pls 120.7 2010/11/10 09:58:34 pnaveenk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(300):= 'IEX_strategy_work_items_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvswib.pls';
1: PACKAGE BODY IEX_strategy_work_items_PVT as
2: /* $Header: iexvswib.pls 120.7 2010/11/10 09:58:34 pnaveenk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(300):= 'IEX_strategy_work_items_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvswib.pls';
6:
7:
8: -- Hint: Primary key needs to be returned.
24: IS
25: l_api_name CONSTANT VARCHAR2(200) := 'Create_strategy_work_items';
26: l_api_version_number CONSTANT NUMBER := 2.0;
27: l_return_status_full VARCHAR2(1);
28: v_WORK_ITEM_ID iex_strategy_work_items.strategy_id%TYPE;
29: v_object_version_number iex_strategy_work_items.object_version_number%TYPE;
30: v_rowid VARCHAR2(24);
31: --added by vimpi
32: l_msg_Count number ;
25: l_api_name CONSTANT VARCHAR2(200) := 'Create_strategy_work_items';
26: l_api_version_number CONSTANT NUMBER := 2.0;
27: l_return_status_full VARCHAR2(1);
28: v_WORK_ITEM_ID iex_strategy_work_items.strategy_id%TYPE;
29: v_object_version_number iex_strategy_work_items.object_version_number%TYPE;
30: v_rowid VARCHAR2(24);
31: --added by vimpi
32: l_msg_Count number ;
33: l_msg_data varchar2(200) ;
33: l_msg_data varchar2(200) ;
34: l_return_status varchar2(200) ;
35:
36:
37: Cursor c2 is SELECT iex_strategy_work_items_S.nextval from dual;
38:
39: BEGIN
40: -- IF PG_DEBUG < 10 THEN
41: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
38:
39: BEGIN
40: -- IF PG_DEBUG < 10 THEN
41: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
42: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_strategy_work_items_PVT.Create_strategy_work_items ******** ');
43: END IF;
44: -- Standard Start of API savepoint
45: SAVEPOINT CREATE_strategy_work_items_PVT;
46:
131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
132: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'Before Calling iex_strategies_pkg.insert_row');
133: END IF;
134:
135: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row)
136: IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row(
137: x_rowid =>v_rowid
138: ,x_WORK_ITEM_ID => v_WORK_ITEM_ID
139: ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
132: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'Before Calling iex_strategies_pkg.insert_row');
133: END IF;
134:
135: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row)
136: IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row(
137: x_rowid =>v_rowid
138: ,x_WORK_ITEM_ID => v_WORK_ITEM_ID
139: ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
140: ,x_RESOURCE_ID => p_strategy_work_item_rec.RESOURCE_ID
235: );
236:
237: -- IF PG_DEBUG < 10 THEN
238: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
239: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_strategy_work_items_PVT.Create_strategy_work_items ******** ');
240: END IF;
241: EXCEPTION
242: WHEN FND_API.G_EXC_ERROR THEN
243: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
314: REQUEST_ID,
315: WORK_TYPE,
316: LAST_UPDATE_DATE,
317: WORK_ITEM_TEMPLATE_ID
318: From IEX_STRATEGY_WORK_ITEMS
319: -- Hint: Developer need to provide Where clause
320: For Update NOWAIT;
321: */
322: l_api_name CONSTANT VARCHAR2(200) := 'Update_strategy_work_items';
323: l_api_version_number CONSTANT NUMBER := 2.0;
324:
325: -- Local Variables
326: l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
327: l_ref_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type;
328: l_tar_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type := P_strategy_work_item_Rec;
329:
330: l_object_version_number IEX_strategy_work_items.object_version_number%TYPE:=P_strategy_work_item_Rec.object_version_number;
331: l_rowid ROWID;
324:
325: -- Local Variables
326: l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
327: l_ref_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type;
328: l_tar_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type := P_strategy_work_item_Rec;
329:
330: l_object_version_number IEX_strategy_work_items.object_version_number%TYPE:=P_strategy_work_item_Rec.object_version_number;
331: l_rowid ROWID;
332: --added by vimpi
326: l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
327: l_ref_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type;
328: l_tar_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type := P_strategy_work_item_Rec;
329:
330: l_object_version_number IEX_strategy_work_items.object_version_number%TYPE:=P_strategy_work_item_Rec.object_version_number;
331: l_rowid ROWID;
332: --added by vimpi
333: l_msg_Count number ;
334: l_msg_data varchar2(200) ;
340: BEGIN
341:
342: -- IF PG_DEBUG < 10 THEN
343: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
344: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_strategy_work_items_PVT.update_strategy_work_items ******** ');
345: END IF;
346: -- Standard Start of API savepoint
347: SAVEPOINT UPDATE_strategy_work_items_PVT;
348:
372: -- Api body
373: --
374:
375: -- call locking table handler
376: IEX_STRATEGY_WORK_ITEMS_PKG.lock_row (
377: p_strategy_work_item_rec.WORK_ITEM_ID,
378: l_object_version_number
379: );
380:
377: p_strategy_work_item_rec.WORK_ITEM_ID,
378: l_object_version_number
379: );
380:
381: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row)
382: IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row(
383: x_WORK_ITEM_ID => p_strategy_work_item_rec.WORK_ITEM_ID
384: ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
385: ,x_RESOURCE_ID => p_strategy_work_item_rec.RESOURCE_ID
378: l_object_version_number
379: );
380:
381: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row)
382: IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row(
383: x_WORK_ITEM_ID => p_strategy_work_item_rec.WORK_ITEM_ID
384: ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
385: ,x_RESOURCE_ID => p_strategy_work_item_rec.RESOURCE_ID
386: ,x_STATUS_CODE => p_strategy_work_item_rec.STATUS_CODE
505: p_data => x_msg_data
506: );
507: -- IF PG_DEBUG < 10 THEN
508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
509: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_strategy_work_items_PVT.update_strategy_work_items ******** ');
510: END IF;
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
585: --
586: -- Api body
587: --
588:
589: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row)
590: IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row(p_WORK_ITEM_ID);
591:
592: --
593: -- End of API body
586: -- Api body
587: --
588:
589: -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row)
590: IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row(p_WORK_ITEM_ID);
591:
592: --
593: -- End of API body
594: --
639: ,X_RETURN_STATUS => X_RETURN_STATUS);
640: End Delete_strategy_work_items;
641:
642:
643: End IEX_strategy_work_items_PVT;