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.
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:
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(
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
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:
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(
639: ,X_RETURN_STATUS => X_RETURN_STATUS);
640: End Delete_strategy_work_items;
641:
642:
643: End IEX_strategy_work_items_PVT;