57: -- Standard Start of API savepoint
58: SAVEPOINT CREATE_WRITEOFF_OBJECTS_PVT;
59:
60: -- Standard call to check for call compatibility.
61: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number,
62: l_api_name, G_PKG_NAME) then
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
59:
60: -- Standard call to check for call compatibility.
61: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number,
62: l_api_name, G_PKG_NAME) then
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
66: IEX_DEBUG_PUB.LogMessage('After Compatibility Check');
67: END IF;
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
66: IEX_DEBUG_PUB.LogMessage('After Compatibility Check');
67: END IF;
68:
69: IF FND_API.to_Boolean( p_init_msg_list )
70: THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73:
70: THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73:
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: -- ******************************************************************
76: -- Validate Environment
77: -- ******************************************************************
78: IF FND_GLOBAL.User_Id IS NULL
82: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
83: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
84: FND_MSG_PUB.ADD;
85: END IF;
86: RAISE FND_API.G_EXC_ERROR;
87: END IF;
88: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
89: IEX_DEBUG_PUB.LogMessage('After Global user Check');
90: END IF;
102:
103: IF (p_writeoff_obj_rec.writeoff_id IS NULL) THEN
104: AddMissingArgMsg(p_api_name => l_api_name_full,
105: p_param_name => 'writeoff_id' );
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
109: IF (p_writeoff_obj_rec.adjustment_amount IS NULL) THEN
110: AddMissingArgMsg(p_api_name => l_api_name_full,
108:
109: IF (p_writeoff_obj_rec.adjustment_amount IS NULL) THEN
110: AddMissingArgMsg(p_api_name => l_api_name_full,
111: p_param_name => 'adjustment_amount' );
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: IF (p_writeoff_obj_rec.transaction_id IS NULL) THEN
116: AddMissingArgMsg(p_api_name => l_api_name_full,
114:
115: IF (p_writeoff_obj_rec.transaction_id IS NULL) THEN
116: AddMissingArgMsg(p_api_name => l_api_name_full,
117: p_param_name => 'transaction_id' );
118: RAISE FND_API.G_EXC_ERROR;
119: END IF;
120:
121: IF (p_writeoff_obj_rec.adjustment_reason_code IS NULL) THEN
122: AddMissingArgMsg(p_api_name => l_api_name_full,
120:
121: IF (p_writeoff_obj_rec.adjustment_reason_code IS NULL) THEN
122: AddMissingArgMsg(p_api_name => l_api_name_full,
123: p_param_name => 'adjustment_reason_code' );
124: RAISE FND_API.G_EXC_ERROR;
125: END IF;
126:
127:
128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
181:
182:
183:
184: -- Check return status from the above procedure call
185: IF x_return_status = FND_API.G_RET_STS_ERROR then
186: raise FND_API.G_EXC_ERROR;
187: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
188: raise FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
182:
183:
184: -- Check return status from the above procedure call
185: IF x_return_status = FND_API.G_RET_STS_ERROR then
186: raise FND_API.G_EXC_ERROR;
187: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
188: raise FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
183:
184: -- Check return status from the above procedure call
185: IF x_return_status = FND_API.G_RET_STS_ERROR then
186: raise FND_API.G_EXC_ERROR;
187: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
188: raise FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: --
184: -- Check return status from the above procedure call
185: IF x_return_status = FND_API.G_RET_STS_ERROR then
186: raise FND_API.G_EXC_ERROR;
187: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
188: raise FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: --
192: -- End of API body.
192: -- End of API body.
193: --
194:
195: -- Standard check for p_commit
196: IF FND_API.to_Boolean( p_commit )
197: THEN
198: COMMIT WORK;
199: END IF;
200:
207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
208: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_writeoff_objects_PVT.create_writeoff_objects ******** ');
209: END IF;
210: EXCEPTION
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR ;
214: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
215: p_data => x_msg_data);
209: END IF;
210: EXCEPTION
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR ;
214: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
215: p_data => x_msg_data);
216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
212: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR ;
214: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
215: p_data => x_msg_data);
216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
219: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
220: p_data => x_msg_data);
214: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
215: p_data => x_msg_data);
216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
219: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
220: p_data => x_msg_data);
221:
222: WHEN OTHERS THEN
220: p_data => x_msg_data);
221:
222: WHEN OTHERS THEN
223: ROLLBACK TO CREATE_WRITEOFF_OBJECTS_PVT;
224: x_return_status := FND_API.G_RET_STS_ERROR ;
225: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
226: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
227: p_data => x_msg_data);
228:
256: -- Standard Start of API savepoint
257: SAVEPOINT UPDATE_WRITEOFF_OBJECTS_PVT;
258:
259: -- Standard call to check for call compatibility.
260: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
261: p_api_version_number,
262: l_api_name,
263: G_PKG_NAME)
264: THEN
261: p_api_version_number,
262: l_api_name,
263: G_PKG_NAME)
264: THEN
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: END IF;
267:
268:
269: -- Initialize message list if p_init_msg_list is set to TRUE.
266: END IF;
267:
268:
269: -- Initialize message list if p_init_msg_list is set to TRUE.
270: IF FND_API.to_Boolean( p_init_msg_list )
271: THEN
272: FND_MSG_PUB.initialize;
273: END IF;
274:
272: FND_MSG_PUB.initialize;
273: END IF;
274:
275: -- Initialize API return status to SUCCESS
276: x_return_status := FND_API.G_RET_STS_SUCCESS;
277:
278: --
279: -- API body
280: --
337:
338: --Return Version number
339: xo_object_version_number := v_object_version_number + 1;
340: -- Check return status from the above procedure call
341: IF x_return_status = FND_API.G_RET_STS_ERROR then
342: raise FND_API.G_EXC_ERROR;
343: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
345: END IF;
338: --Return Version number
339: xo_object_version_number := v_object_version_number + 1;
340: -- Check return status from the above procedure call
341: IF x_return_status = FND_API.G_RET_STS_ERROR then
342: raise FND_API.G_EXC_ERROR;
343: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
345: END IF;
346:
339: xo_object_version_number := v_object_version_number + 1;
340: -- Check return status from the above procedure call
341: IF x_return_status = FND_API.G_RET_STS_ERROR then
342: raise FND_API.G_EXC_ERROR;
343: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
345: END IF;
346:
347: --
340: -- Check return status from the above procedure call
341: IF x_return_status = FND_API.G_RET_STS_ERROR then
342: raise FND_API.G_EXC_ERROR;
343: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
345: END IF;
346:
347: --
348: -- End of API body
348: -- End of API body
349: --
350:
351: -- Standard check for p_commit
352: IF FND_API.to_Boolean( p_commit )
353: THEN
354: COMMIT WORK;
355: END IF;
356:
364: IEX_DEBUG_PUB.LogMessage ('**** End of Procedure =>'||
365: 'IEX_writeoff_objects_PVT.update_writeoff_objects ** ');
366: END IF;
367: EXCEPTION
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR ;
371: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
372: p_data => x_msg_data);
366: END IF;
367: EXCEPTION
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR ;
371: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
372: p_data => x_msg_data);
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
369: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR ;
371: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
372: p_data => x_msg_data);
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
376: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
377: p_data => x_msg_data);
371: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
372: p_data => x_msg_data);
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
376: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
377: p_data => x_msg_data);
378:
379: WHEN OTHERS THEN
377: p_data => x_msg_data);
378:
379: WHEN OTHERS THEN
380: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PVT;
381: x_return_status := FND_API.G_RET_STS_ERROR ;
382: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
383: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
384: p_data => x_msg_data);
385:
404: -- Standard Start of API savepoint
405: SAVEPOINT DELETE_WRITEOFF_OBJECTS_PVT;
406:
407: -- Standard call to check for call compatibility.
408: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
409: p_api_version_number,
410: l_api_name,
411: G_PKG_NAME)
412: THEN
409: p_api_version_number,
410: l_api_name,
411: G_PKG_NAME)
412: THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
415:
416:
417: -- Initialize message list if p_init_msg_list is set to TRUE.
414: END IF;
415:
416:
417: -- Initialize message list if p_init_msg_list is set to TRUE.
418: IF FND_API.to_Boolean( p_init_msg_list )
419: THEN
420: FND_MSG_PUB.initialize;
421: END IF;
422:
421: END IF;
422:
423:
424: -- Initialize API return status to SUCCESS
425: x_return_status := FND_API.G_RET_STS_SUCCESS;
426: --
427: -- API body
428: --
429:
430: -- call table handler to insert into jtf_tasks_temp_groups
431: iex_writeoff_objects_pkg.delete_row (p_writeoff_object_id);
432:
433: -- Check return status from the above procedure call
434: IF x_return_status = FND_API.G_RET_STS_ERROR then
435: raise FND_API.G_EXC_ERROR;
436: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
437: raise FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
431: iex_writeoff_objects_pkg.delete_row (p_writeoff_object_id);
432:
433: -- Check return status from the above procedure call
434: IF x_return_status = FND_API.G_RET_STS_ERROR then
435: raise FND_API.G_EXC_ERROR;
436: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
437: raise FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439:
432:
433: -- Check return status from the above procedure call
434: IF x_return_status = FND_API.G_RET_STS_ERROR then
435: raise FND_API.G_EXC_ERROR;
436: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
437: raise FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439:
440: --
433: -- Check return status from the above procedure call
434: IF x_return_status = FND_API.G_RET_STS_ERROR then
435: raise FND_API.G_EXC_ERROR;
436: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
437: raise FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439:
440: --
441: -- End of API body
441: -- End of API body
442: --
443:
444: -- Standard check for p_commit
445: IF FND_API.to_Boolean( p_commit )
446: THEN
447: COMMIT WORK;
448: END IF;
449:
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
459: x_return_status := FND_API.G_RET_STS_ERROR ;
460: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
461: p_data => x_msg_data);
455: );
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
459: x_return_status := FND_API.G_RET_STS_ERROR ;
460: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
461: p_data => x_msg_data);
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
458: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
459: x_return_status := FND_API.G_RET_STS_ERROR ;
460: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
461: p_data => x_msg_data);
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
465: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
466: p_data => x_msg_data);
460: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
461: p_data => x_msg_data);
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
465: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
466: p_data => x_msg_data);
467:
468: WHEN OTHERS THEN
466: p_data => x_msg_data);
467:
468: WHEN OTHERS THEN
469: ROLLBACK TO DELETE_WRITEOFF_OBJECTS_PVT;
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
472: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
473: p_data => x_msg_data);
474: