1: PACKAGE BODY IEX_COSTS_PVT as
2: /* $Header: iexvcosb.pls 120.1 2006/05/30 21:13:45 scherkas noship $ */
3: -- Start of Comments
4: -- Package name : IEX_COSTS_PVT
5: -- Purpose :
1: PACKAGE BODY IEX_COSTS_PVT as
2: /* $Header: iexvcosb.pls 120.1 2006/05/30 21:13:45 scherkas noship $ */
3: -- Start of Comments
4: -- Package name : IEX_COSTS_PVT
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
8: -- End of Comments
9:
10:
11:
12: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_COSTS_PVT';
13: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvcosb.pls';
14:
15:
16: -- Hint: Primary key needs to be returned.
33: l_api_name CONSTANT VARCHAR2(30) := 'Create_costs';
34: l_api_version_number CONSTANT NUMBER := 2.0;
35: l_return_status_full VARCHAR2(1);
36: v_rowid VARCHAR2(24);
37: v_cost_id iex_costs.cost_id%TYPE;
38: v_object_version_number iex_costs.object_version_number%TYPE;
39: v_active_flag iex_costs.active_flag%TYPE;
40: v_cost_item_approved iex_costs.cost_item_approved%TYPE;
41:
34: l_api_version_number CONSTANT NUMBER := 2.0;
35: l_return_status_full VARCHAR2(1);
36: v_rowid VARCHAR2(24);
37: v_cost_id iex_costs.cost_id%TYPE;
38: v_object_version_number iex_costs.object_version_number%TYPE;
39: v_active_flag iex_costs.active_flag%TYPE;
40: v_cost_item_approved iex_costs.cost_item_approved%TYPE;
41:
42: Cursor c2 is SELECT IEX_COSTS_S.nextval from dual;
35: l_return_status_full VARCHAR2(1);
36: v_rowid VARCHAR2(24);
37: v_cost_id iex_costs.cost_id%TYPE;
38: v_object_version_number iex_costs.object_version_number%TYPE;
39: v_active_flag iex_costs.active_flag%TYPE;
40: v_cost_item_approved iex_costs.cost_item_approved%TYPE;
41:
42: Cursor c2 is SELECT IEX_COSTS_S.nextval from dual;
43: BEGIN
36: v_rowid VARCHAR2(24);
37: v_cost_id iex_costs.cost_id%TYPE;
38: v_object_version_number iex_costs.object_version_number%TYPE;
39: v_active_flag iex_costs.active_flag%TYPE;
40: v_cost_item_approved iex_costs.cost_item_approved%TYPE;
41:
42: Cursor c2 is SELECT IEX_COSTS_S.nextval from dual;
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
38: v_object_version_number iex_costs.object_version_number%TYPE;
39: v_active_flag iex_costs.active_flag%TYPE;
40: v_cost_item_approved iex_costs.cost_item_approved%TYPE;
41:
42: Cursor c2 is SELECT IEX_COSTS_S.nextval from dual;
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_COSTS_PVT.Create_Costs ******** ');
42: Cursor c2 is SELECT IEX_COSTS_S.nextval from dual;
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_COSTS_PVT.Create_Costs ******** ');
47: END IF;
48: -- Standard Start of API savepoint
49: SAVEPOINT CREATE_COSTS_PVT;
50:
159: IEX_DEBUG_PUB.LogMessage('Create_costs: ' || 'After cost_item_type_code Check ');
160: END IF;
161:
162:
163: -- Invoke table handler(IEX_COSTS_PKG.Insert_Row)
164: IEX_COSTS_PKG.Insert_Row(
165: x_rowid =>v_rowid,
166: p_COST_ID => v_COST_ID,
167: p_CASE_ID => p_costs_rec.CASE_ID,
160: END IF;
161:
162:
163: -- Invoke table handler(IEX_COSTS_PKG.Insert_Row)
164: IEX_COSTS_PKG.Insert_Row(
165: x_rowid =>v_rowid,
166: p_COST_ID => v_COST_ID,
167: p_CASE_ID => p_costs_rec.CASE_ID,
168: p_DELINQUENCY_ID => p_costs_rec.DELINQUENCY_ID,
210: x_COST_ID := v_COST_ID;
211:
212: -- IF PG_DEBUG < 10 THEN
213: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
214: IEX_DEBUG_PUB.LogMessage('Create_costs: ' || 'After Calling IEX_COSTS_PKG.Insert_Row'
215: ||' and cost id => ' ||v_cost_id);
216: END IF;
217:
218: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
237: p_data => x_msg_data
238: );
239: -- IF PG_DEBUG < 10 THEN
240: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
241: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PVT.Create_costs ******** ');
242: END IF;
243: EXCEPTION
244: WHEN FND_API.G_EXC_ERROR THEN
245: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
291:
292: IS
293: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_COSTS';
294: l_api_version_number CONSTANT NUMBER := 2.0;
295: l_object_version_number IEX_COSTS.object_version_number%TYPE
296: :=p_COSTS_rec.object_version_number;
297: BEGIN
298: -- IF PG_DEBUG < 10 THEN
299: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
296: :=p_COSTS_rec.object_version_number;
297: BEGIN
298: -- IF PG_DEBUG < 10 THEN
299: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
300: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_COSTS_PVT.update_COSTS ******** ');
301: END IF;
302: -- Standard Start of API savepoint
303: SAVEPOINT UPDATE_COSTS_PVT;
304:
325:
326: --
327: -- Api body
328: --
329: -- Invoke table handler(IEX_COSTS_PKG.Update_Row)
330: -- call locking table handler
331: IEX_COSTS_PKG.lock_row (
332: p_COSTS_rec.cost_id,
333: l_object_version_number
327: -- Api body
328: --
329: -- Invoke table handler(IEX_COSTS_PKG.Update_Row)
330: -- call locking table handler
331: IEX_COSTS_PKG.lock_row (
332: p_COSTS_rec.cost_id,
333: l_object_version_number
334: );
335:
332: p_COSTS_rec.cost_id,
333: l_object_version_number
334: );
335:
336: -- Invoke table handler(IEX_COSTS_PKG.Update_Row)
337: IEX_COSTS_PKG.Update_Row(
338: p_COST_ID => p_costs_rec.COST_ID,
339: p_CASE_ID => p_costs_rec.CASE_ID,
340: p_DELINQUENCY_ID => p_costs_rec.DELINQUENCY_ID,
333: l_object_version_number
334: );
335:
336: -- Invoke table handler(IEX_COSTS_PKG.Update_Row)
337: IEX_COSTS_PKG.Update_Row(
338: p_COST_ID => p_costs_rec.COST_ID,
339: p_CASE_ID => p_costs_rec.CASE_ID,
340: p_DELINQUENCY_ID => p_costs_rec.DELINQUENCY_ID,
341: p_COST_TYPE_CODE => p_costs_rec.COST_TYPE_CODE,
398: p_data => x_msg_data
399: );
400: -- IF PG_DEBUG < 10 THEN
401: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
402: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_COSTS_PVT.update_costs ******** ');
403: END IF;
404: EXCEPTION
405: WHEN FND_API.G_EXC_ERROR THEN
406: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
455:
456: BEGIN
457: -- IF PG_DEBUG < 10 THEN
458: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
459: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_COSTS_PVT.delete_costs ******** ');
460: END IF;
461: -- Standard Start of API savepoint
462: SAVEPOINT DELETE_COSTS_PVT;
463:
483: --
484: -- Api body
485: --
486:
487: -- Invoke table handler(IEX_costsS_PKG.Delete_Row)
488: IEX_COSTS_PKG.Delete_Row(
489: p_COST_ID => p_COST_ID);
490: --
491: -- End of API body
484: -- Api body
485: --
486:
487: -- Invoke table handler(IEX_costsS_PKG.Delete_Row)
488: IEX_COSTS_PKG.Delete_Row(
489: p_COST_ID => p_COST_ID);
490: --
491: -- End of API body
492: --
504: p_data => x_msg_data
505: );
506: -- IF PG_DEBUG < 10 THEN
507: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
508: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PVT.delete_costs ******** ');
509: END IF;
510:
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
540: ,X_MSG_COUNT => X_MSG_COUNT
541: ,X_MSG_DATA => X_MSG_DATA
542: ,X_RETURN_STATUS => X_RETURN_STATUS);
543: End Delete_costs;
544: End IEX_costs_PVT;