156:
157:
158: PROCEDURE Create_Camp_Schedule(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
157:
158: PROCEDURE Create_Camp_Schedule(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
165: x_msg_data OUT NOCOPY VARCHAR2,
158: PROCEDURE Create_Camp_Schedule(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
165: x_msg_data OUT NOCOPY VARCHAR2,
166:
178: -- Standard Start of API savepoint
179: SAVEPOINT CREATE_Camp_Schedule_PUB;
180:
181: -- Initialize message list if p_init_msg_list is set to TRUE.
182: IF FND_API.to_Boolean( p_init_msg_list )
183: THEN
184: FND_MSG_PUB.initialize;
185: END IF;
186:
188: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
189:
190:
191: -- Initialize API return status to SUCCESS
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193:
194: -- convert public parameter to private-type
195: Convert_PubRec_To_PvtRec(l_pub_schedule_rec,l_pvt_schedule_rec);
196:
201: l_pub_schedule_rec,
202: l_return_status
203: );
204:
205: IF l_return_status = FND_API.g_ret_sts_error THEN
206: RAISE FND_API.g_exc_error;
207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
208: RAISE FND_API.g_exc_unexpected_error;
209: END IF;
202: l_return_status
203: );
204:
205: IF l_return_status = FND_API.g_ret_sts_error THEN
206: RAISE FND_API.g_exc_error;
207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
208: RAISE FND_API.g_exc_unexpected_error;
209: END IF;
210: END IF;
203: );
204:
205: IF l_return_status = FND_API.g_ret_sts_error THEN
206: RAISE FND_API.g_exc_error;
207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
208: RAISE FND_API.g_exc_unexpected_error;
209: END IF;
210: END IF;
211:
204:
205: IF l_return_status = FND_API.g_ret_sts_error THEN
206: RAISE FND_API.g_exc_error;
207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
208: RAISE FND_API.g_exc_unexpected_error;
209: END IF;
210: END IF;
211:
212: -- vertical industry pre-processing
216: l_pub_schedule_rec,
217: l_return_status
218: );
219:
220: IF l_return_status = FND_API.g_ret_sts_error THEN
221: RAISE FND_API.g_exc_error;
222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
223: RAISE FND_API.g_exc_unexpected_error;
224: END IF;
217: l_return_status
218: );
219:
220: IF l_return_status = FND_API.g_ret_sts_error THEN
221: RAISE FND_API.g_exc_error;
222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
223: RAISE FND_API.g_exc_unexpected_error;
224: END IF;
225: END IF;
218: );
219:
220: IF l_return_status = FND_API.g_ret_sts_error THEN
221: RAISE FND_API.g_exc_error;
222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
223: RAISE FND_API.g_exc_unexpected_error;
224: END IF;
225: END IF;
226:
219:
220: IF l_return_status = FND_API.g_ret_sts_error THEN
221: RAISE FND_API.g_exc_error;
222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
223: RAISE FND_API.g_exc_unexpected_error;
224: END IF;
225: END IF;
226:
227: -- call business API
240: x_schedule_id => x_schedule_id);
241:
242:
243: -- Check return status from the above procedure call
244: IF x_return_status = FND_API.G_RET_STS_ERROR then
245: RAISE FND_API.G_EXC_ERROR;
246: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
241:
242:
243: -- Check return status from the above procedure call
244: IF x_return_status = FND_API.G_RET_STS_ERROR then
245: RAISE FND_API.G_EXC_ERROR;
246: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249: --
242:
243: -- Check return status from the above procedure call
244: IF x_return_status = FND_API.G_RET_STS_ERROR then
245: RAISE FND_API.G_EXC_ERROR;
246: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249: --
250: -- End of API body.
243: -- Check return status from the above procedure call
244: IF x_return_status = FND_API.G_RET_STS_ERROR then
245: RAISE FND_API.G_EXC_ERROR;
246: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249: --
250: -- End of API body.
251: --
258: x_schedule_id,
259: l_return_status
260: );
261:
262: IF l_return_status = FND_API.g_ret_sts_error THEN
263: RAISE FND_API.g_exc_error;
264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
265: RAISE FND_API.g_exc_unexpected_error;
266: END IF;
259: l_return_status
260: );
261:
262: IF l_return_status = FND_API.g_ret_sts_error THEN
263: RAISE FND_API.g_exc_error;
264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
265: RAISE FND_API.g_exc_unexpected_error;
266: END IF;
267: END IF;
260: );
261:
262: IF l_return_status = FND_API.g_ret_sts_error THEN
263: RAISE FND_API.g_exc_error;
264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
265: RAISE FND_API.g_exc_unexpected_error;
266: END IF;
267: END IF;
268:
261:
262: IF l_return_status = FND_API.g_ret_sts_error THEN
263: RAISE FND_API.g_exc_error;
264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
265: RAISE FND_API.g_exc_unexpected_error;
266: END IF;
267: END IF;
268:
269: -- vertical industry post-processing
274: x_schedule_id,
275: l_return_status
276: );
277:
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
275: l_return_status
276: );
277:
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283: END IF;
276: );
277:
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283: END IF;
284:
277:
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283: END IF;
284:
285:
283: END IF;
284:
285:
286: -- Standard check for p_commit
287: IF FND_API.to_Boolean( p_commit )
288: THEN
289: COMMIT WORK;
290: END IF;
291:
300: );
301: EXCEPTION
302:
303: WHEN AMS_Utility_PVT.resource_locked THEN
304: x_return_status := FND_API.g_ret_sts_error;
305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
306: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
307: FND_MSG_PUB.add;
308: END IF;
306: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
307: FND_MSG_PUB.add;
308: END IF;
309:
310: WHEN FND_API.G_EXC_ERROR THEN
311: ROLLBACK TO CREATE_Camp_Schedule_PUB;
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_MSG_PUB.Count_And_Get (
308: END IF;
309:
310: WHEN FND_API.G_EXC_ERROR THEN
311: ROLLBACK TO CREATE_Camp_Schedule_PUB;
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_MSG_PUB.Count_And_Get (
315: p_encoded => FND_API.G_FALSE,
316: p_count => x_msg_count,
311: ROLLBACK TO CREATE_Camp_Schedule_PUB;
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_MSG_PUB.Count_And_Get (
315: p_encoded => FND_API.G_FALSE,
316: p_count => x_msg_count,
317: p_data => x_msg_data
318: );
319:
316: p_count => x_msg_count,
317: p_data => x_msg_data
318: );
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: ROLLBACK TO CREATE_Camp_Schedule_PUB;
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: -- Standard call to get message count and if count=1, get the message
324: FND_MSG_PUB.Count_And_Get (
318: );
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: ROLLBACK TO CREATE_Camp_Schedule_PUB;
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: -- Standard call to get message count and if count=1, get the message
324: FND_MSG_PUB.Count_And_Get (
325: p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
321: ROLLBACK TO CREATE_Camp_Schedule_PUB;
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: -- Standard call to get message count and if count=1, get the message
324: FND_MSG_PUB.Count_And_Get (
325: p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data
328: );
329:
328: );
329:
330: WHEN OTHERS THEN
331: ROLLBACK TO CREATE_Camp_Schedule_PUB;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
334: THEN
335: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
336: END IF;
335: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
336: END IF;
337: -- Standard call to get message count and if count=1, get the message
338: FND_MSG_PUB.Count_And_Get (
339: p_encoded => FND_API.G_FALSE,
340: p_count => x_msg_count,
341: p_data => x_msg_data
342: );
343: End Create_Camp_Schedule;
344:
345:
346: PROCEDURE Update_Camp_Schedule(
347: p_api_version_number IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
351: x_return_status OUT NOCOPY VARCHAR2,
352: x_msg_count OUT NOCOPY NUMBER,
345:
346: PROCEDURE Update_Camp_Schedule(
347: p_api_version_number IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
351: x_return_status OUT NOCOPY VARCHAR2,
352: x_msg_count OUT NOCOPY NUMBER,
353: x_msg_data OUT NOCOPY VARCHAR2,
346: PROCEDURE Update_Camp_Schedule(
347: p_api_version_number IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
351: x_return_status OUT NOCOPY VARCHAR2,
352: x_msg_count OUT NOCOPY NUMBER,
353: x_msg_data OUT NOCOPY VARCHAR2,
354:
368: SAVEPOINT UPDATE_Camp_Schedule_PUB;
369:
370:
371: -- Initialize message list if p_init_msg_list is set to TRUE.
372: IF FND_API.to_Boolean( p_init_msg_list )
373: THEN
374: FND_MSG_PUB.initialize;
375: END IF;
376:
378: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
379:
380:
381: -- Initialize API return status to SUCCESS
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383:
384: -- convert public parameter to private-type
385: Convert_PubRec_To_PvtRec(l_pub_schedule_rec,l_pvt_schedule_rec);
386:
391: l_pub_schedule_rec,
392: l_return_status
393: );
394:
395: IF l_return_status = FND_API.g_ret_sts_error THEN
396: RAISE FND_API.g_exc_error;
397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
398: RAISE FND_API.g_exc_unexpected_error;
399: END IF;
392: l_return_status
393: );
394:
395: IF l_return_status = FND_API.g_ret_sts_error THEN
396: RAISE FND_API.g_exc_error;
397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
398: RAISE FND_API.g_exc_unexpected_error;
399: END IF;
400: END IF;
393: );
394:
395: IF l_return_status = FND_API.g_ret_sts_error THEN
396: RAISE FND_API.g_exc_error;
397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
398: RAISE FND_API.g_exc_unexpected_error;
399: END IF;
400: END IF;
401:
394:
395: IF l_return_status = FND_API.g_ret_sts_error THEN
396: RAISE FND_API.g_exc_error;
397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
398: RAISE FND_API.g_exc_unexpected_error;
399: END IF;
400: END IF;
401:
402: -- vertical industry pre-processing
406: l_pub_schedule_rec,
407: l_return_status
408: );
409:
410: IF l_return_status = FND_API.g_ret_sts_error THEN
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: RAISE FND_API.g_exc_unexpected_error;
414: END IF;
407: l_return_status
408: );
409:
410: IF l_return_status = FND_API.g_ret_sts_error THEN
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: RAISE FND_API.g_exc_unexpected_error;
414: END IF;
415: END IF;
408: );
409:
410: IF l_return_status = FND_API.g_ret_sts_error THEN
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: RAISE FND_API.g_exc_unexpected_error;
414: END IF;
415: END IF;
416:
409:
410: IF l_return_status = FND_API.g_ret_sts_error THEN
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: RAISE FND_API.g_exc_unexpected_error;
414: END IF;
415: END IF;
416:
417:
428: x_object_version_number => l_object_version_number );
429:
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: RAISE FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
429:
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: RAISE FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: --
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: RAISE FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: --
438: -- End of API body
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: RAISE FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: --
438: -- End of API body
439: --
445: l_pub_schedule_rec,
446: l_return_status
447: );
448:
449: IF l_return_status = FND_API.g_ret_sts_error THEN
450: RAISE FND_API.g_exc_error;
451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
452: RAISE FND_API.g_exc_unexpected_error;
453: END IF;
446: l_return_status
447: );
448:
449: IF l_return_status = FND_API.g_ret_sts_error THEN
450: RAISE FND_API.g_exc_error;
451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
452: RAISE FND_API.g_exc_unexpected_error;
453: END IF;
454: END IF;
447: );
448:
449: IF l_return_status = FND_API.g_ret_sts_error THEN
450: RAISE FND_API.g_exc_error;
451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
452: RAISE FND_API.g_exc_unexpected_error;
453: END IF;
454: END IF;
455:
448:
449: IF l_return_status = FND_API.g_ret_sts_error THEN
450: RAISE FND_API.g_exc_error;
451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
452: RAISE FND_API.g_exc_unexpected_error;
453: END IF;
454: END IF;
455:
456: -- customer post-processing
460: l_pub_schedule_rec,
461: l_return_status
462: );
463:
464: IF l_return_status = FND_API.g_ret_sts_error THEN
465: RAISE FND_API.g_exc_error;
466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
467: RAISE FND_API.g_exc_unexpected_error;
468: END IF;
461: l_return_status
462: );
463:
464: IF l_return_status = FND_API.g_ret_sts_error THEN
465: RAISE FND_API.g_exc_error;
466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
467: RAISE FND_API.g_exc_unexpected_error;
468: END IF;
469: END IF;
462: );
463:
464: IF l_return_status = FND_API.g_ret_sts_error THEN
465: RAISE FND_API.g_exc_error;
466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
467: RAISE FND_API.g_exc_unexpected_error;
468: END IF;
469: END IF;
470:
463:
464: IF l_return_status = FND_API.g_ret_sts_error THEN
465: RAISE FND_API.g_exc_error;
466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
467: RAISE FND_API.g_exc_unexpected_error;
468: END IF;
469: END IF;
470:
471: -- Standard check for p_commit
468: END IF;
469: END IF;
470:
471: -- Standard check for p_commit
472: IF FND_API.to_Boolean( p_commit )
473: THEN
474: COMMIT WORK;
475: END IF;
476:
485: );
486: EXCEPTION
487:
488: WHEN AMS_Utility_PVT.resource_locked THEN
489: x_return_status := FND_API.g_ret_sts_error;
490: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
491: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
492: FND_MSG_PUB.add;
493: END IF;
491: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
492: FND_MSG_PUB.add;
493: END IF;
494:
495: WHEN FND_API.G_EXC_ERROR THEN
496: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
497: x_return_status := FND_API.G_RET_STS_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
493: END IF;
494:
495: WHEN FND_API.G_EXC_ERROR THEN
496: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
497: x_return_status := FND_API.G_RET_STS_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
500: p_encoded => FND_API.G_FALSE,
501: p_count => x_msg_count,
496: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
497: x_return_status := FND_API.G_RET_STS_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
500: p_encoded => FND_API.G_FALSE,
501: p_count => x_msg_count,
502: p_data => x_msg_data
503: );
504:
501: p_count => x_msg_count,
502: p_data => x_msg_data
503: );
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
503: );
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
510: p_encoded => FND_API.G_FALSE,
511: p_count => x_msg_count,
506: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
510: p_encoded => FND_API.G_FALSE,
511: p_count => x_msg_count,
512: p_data => x_msg_data
513: );
514:
513: );
514:
515: WHEN OTHERS THEN
516: ROLLBACK TO UPDATE_Camp_Schedule_PUB;
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
519: THEN
520: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
521: END IF;
520: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
521: END IF;
522: -- Standard call to get message count and if count=1, get the message
523: FND_MSG_PUB.Count_And_Get (
524: p_encoded => FND_API.G_FALSE,
525: p_count => x_msg_count,
526: p_data => x_msg_data
527: );
528: End Update_Camp_Schedule;
529:
530:
531: PROCEDURE Delete_Camp_Schedule(
532: p_api_version_number IN NUMBER,
533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
534: p_commit IN VARCHAR2 := FND_API.G_FALSE,
535: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
536: x_return_status OUT NOCOPY VARCHAR2,
537: x_msg_count OUT NOCOPY NUMBER,
530:
531: PROCEDURE Delete_Camp_Schedule(
532: p_api_version_number IN NUMBER,
533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
534: p_commit IN VARCHAR2 := FND_API.G_FALSE,
535: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
536: x_return_status OUT NOCOPY VARCHAR2,
537: x_msg_count OUT NOCOPY NUMBER,
538: x_msg_data OUT NOCOPY VARCHAR2,
531: PROCEDURE Delete_Camp_Schedule(
532: p_api_version_number IN NUMBER,
533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
534: p_commit IN VARCHAR2 := FND_API.G_FALSE,
535: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
536: x_return_status OUT NOCOPY VARCHAR2,
537: x_msg_count OUT NOCOPY NUMBER,
538: x_msg_data OUT NOCOPY VARCHAR2,
539: p_schedule_id IN NUMBER,
552: -- Standard Start of API savepoint
553: SAVEPOINT DELETE_Camp_Schedule_PUB;
554:
555: -- Initialize message list if p_init_msg_list is set to TRUE.
556: IF FND_API.to_Boolean( p_init_msg_list )
557: THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560:
562: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
563:
564:
565: -- Initialize API return status to SUCCESS
566: x_return_status := FND_API.G_RET_STS_SUCCESS;
567:
568: -- customer pre-processing
569: IF JTF_USR_HKS.ok_to_execute(g_pkg_name, l_api_name, 'B', 'C')
570: THEN
573: l_object_version,
574: l_return_status
575: );
576:
577: IF l_return_status = FND_API.g_ret_sts_error THEN
578: RAISE FND_API.g_exc_error;
579: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
580: RAISE FND_API.g_exc_unexpected_error;
581: END IF;
574: l_return_status
575: );
576:
577: IF l_return_status = FND_API.g_ret_sts_error THEN
578: RAISE FND_API.g_exc_error;
579: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
580: RAISE FND_API.g_exc_unexpected_error;
581: END IF;
582: END IF;
575: );
576:
577: IF l_return_status = FND_API.g_ret_sts_error THEN
578: RAISE FND_API.g_exc_error;
579: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
580: RAISE FND_API.g_exc_unexpected_error;
581: END IF;
582: END IF;
583:
576:
577: IF l_return_status = FND_API.g_ret_sts_error THEN
578: RAISE FND_API.g_exc_error;
579: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
580: RAISE FND_API.g_exc_unexpected_error;
581: END IF;
582: END IF;
583:
584: -- vertical industry pre-processing
589: l_object_version,
590: l_return_status
591: );
592:
593: IF l_return_status = FND_API.g_ret_sts_error THEN
594: RAISE FND_API.g_exc_error;
595: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
590: l_return_status
591: );
592:
593: IF l_return_status = FND_API.g_ret_sts_error THEN
594: RAISE FND_API.g_exc_error;
595: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598: END IF;
591: );
592:
593: IF l_return_status = FND_API.g_ret_sts_error THEN
594: RAISE FND_API.g_exc_error;
595: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598: END IF;
599:
592:
593: IF l_return_status = FND_API.g_ret_sts_error THEN
594: RAISE FND_API.g_exc_error;
595: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598: END IF;
599:
600: -- call business API
610: p_object_version_number => l_object_version );
611:
612:
613: -- Check return status from the above procedure call
614: IF x_return_status = FND_API.G_RET_STS_ERROR then
615: RAISE FND_API.G_EXC_ERROR;
616: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
611:
612:
613: -- Check return status from the above procedure call
614: IF x_return_status = FND_API.G_RET_STS_ERROR then
615: RAISE FND_API.G_EXC_ERROR;
616: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619:
612:
613: -- Check return status from the above procedure call
614: IF x_return_status = FND_API.G_RET_STS_ERROR then
615: RAISE FND_API.G_EXC_ERROR;
616: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619:
620: -- vertical industry post-processing
613: -- Check return status from the above procedure call
614: IF x_return_status = FND_API.G_RET_STS_ERROR then
615: RAISE FND_API.G_EXC_ERROR;
616: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619:
620: -- vertical industry post-processing
621: IF JTF_USR_HKS.ok_to_execute(g_pkg_name, l_api_name, 'A', 'V')
625: l_object_version,
626: l_return_status
627: );
628:
629: IF l_return_status = FND_API.g_ret_sts_error THEN
630: RAISE FND_API.g_exc_error;
631: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
632: RAISE FND_API.g_exc_unexpected_error;
633: END IF;
626: l_return_status
627: );
628:
629: IF l_return_status = FND_API.g_ret_sts_error THEN
630: RAISE FND_API.g_exc_error;
631: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
632: RAISE FND_API.g_exc_unexpected_error;
633: END IF;
634: END IF;
627: );
628:
629: IF l_return_status = FND_API.g_ret_sts_error THEN
630: RAISE FND_API.g_exc_error;
631: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
632: RAISE FND_API.g_exc_unexpected_error;
633: END IF;
634: END IF;
635:
628:
629: IF l_return_status = FND_API.g_ret_sts_error THEN
630: RAISE FND_API.g_exc_error;
631: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
632: RAISE FND_API.g_exc_unexpected_error;
633: END IF;
634: END IF;
635:
636: -- customer post-processing
641: l_object_version,
642: l_return_status
643: );
644:
645: IF l_return_status = FND_API.g_ret_sts_error THEN
646: RAISE FND_API.g_exc_error;
647: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
648: RAISE FND_API.g_exc_unexpected_error;
649: END IF;
642: l_return_status
643: );
644:
645: IF l_return_status = FND_API.g_ret_sts_error THEN
646: RAISE FND_API.g_exc_error;
647: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
648: RAISE FND_API.g_exc_unexpected_error;
649: END IF;
650: END IF;
643: );
644:
645: IF l_return_status = FND_API.g_ret_sts_error THEN
646: RAISE FND_API.g_exc_error;
647: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
648: RAISE FND_API.g_exc_unexpected_error;
649: END IF;
650: END IF;
651:
644:
645: IF l_return_status = FND_API.g_ret_sts_error THEN
646: RAISE FND_API.g_exc_error;
647: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
648: RAISE FND_API.g_exc_unexpected_error;
649: END IF;
650: END IF;
651:
652:
651:
652:
653:
654: -- Standard check for p_commit
655: IF FND_API.to_Boolean( p_commit )
656: THEN
657: COMMIT WORK;
658: END IF;
659:
668: );
669: EXCEPTION
670:
671: WHEN AMS_Utility_PVT.resource_locked THEN
672: x_return_status := FND_API.g_ret_sts_error;
673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
674: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
675: FND_MSG_PUB.add;
676: END IF;
674: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
675: FND_MSG_PUB.add;
676: END IF;
677:
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_Camp_Schedule_PUB;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
676: END IF;
677:
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_Camp_Schedule_PUB;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
679: ROLLBACK TO DELETE_Camp_Schedule_PUB;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: ROLLBACK TO DELETE_Camp_Schedule_PUB;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
686: );
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: ROLLBACK TO DELETE_Camp_Schedule_PUB;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
694: p_count => x_msg_count,
689: ROLLBACK TO DELETE_Camp_Schedule_PUB;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
694: p_count => x_msg_count,
695: p_data => x_msg_data
696: );
697:
696: );
697:
698: WHEN OTHERS THEN
699: ROLLBACK TO DELETE_Camp_Schedule_PUB;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
702: THEN
703: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
704: END IF;
703: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
704: END IF;
705: -- Standard call to get message count and if count=1, get the message
706: FND_MSG_PUB.Count_And_Get (
707: p_encoded => FND_API.G_FALSE,
708: p_count => x_msg_count,
709: p_data => x_msg_data
710: );
711: End Delete_Camp_Schedule;
714:
715:
716: PROCEDURE Validate_Camp_Schedule(
717: p_api_version IN NUMBER,
718: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
719: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
720: x_return_status OUT NOCOPY VARCHAR2,
721:
722: x_msg_count OUT NOCOPY NUMBER,
715:
716: PROCEDURE Validate_Camp_Schedule(
717: p_api_version IN NUMBER,
718: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
719: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
720: x_return_status OUT NOCOPY VARCHAR2,
721:
722: x_msg_count OUT NOCOPY NUMBER,
723: x_msg_data OUT NOCOPY VARCHAR2,
738: SAVEPOINT validate_camp_schedule_pub;
739:
740: -- initialize the message list;
741: -- won't do it again when calling private API
742: IF FND_API.to_boolean(p_init_msg_list) THEN
743: FND_MSG_PUB.initialize;
744: END IF;
745:
746: Convert_PubRec_To_PvtRec(l_pub_schedule_rec,l_pvt_schedule_rec);
752: l_pub_schedule_rec,
753: l_return_status
754: );
755:
756: IF l_return_status = FND_API.g_ret_sts_error THEN
757: RAISE FND_API.g_exc_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
759: RAISE FND_API.g_exc_unexpected_error;
760: END IF;
753: l_return_status
754: );
755:
756: IF l_return_status = FND_API.g_ret_sts_error THEN
757: RAISE FND_API.g_exc_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
759: RAISE FND_API.g_exc_unexpected_error;
760: END IF;
761: END IF;
754: );
755:
756: IF l_return_status = FND_API.g_ret_sts_error THEN
757: RAISE FND_API.g_exc_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
759: RAISE FND_API.g_exc_unexpected_error;
760: END IF;
761: END IF;
762:
755:
756: IF l_return_status = FND_API.g_ret_sts_error THEN
757: RAISE FND_API.g_exc_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
759: RAISE FND_API.g_exc_unexpected_error;
760: END IF;
761: END IF;
762:
763: -- vertical industry pre-processing
767: l_pub_schedule_rec,
768: l_return_status
769: );
770:
771: IF l_return_status = FND_API.g_ret_sts_error THEN
772: RAISE FND_API.g_exc_error;
773: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
774: RAISE FND_API.g_exc_unexpected_error;
775: END IF;
768: l_return_status
769: );
770:
771: IF l_return_status = FND_API.g_ret_sts_error THEN
772: RAISE FND_API.g_exc_error;
773: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
774: RAISE FND_API.g_exc_unexpected_error;
775: END IF;
776: END IF;
769: );
770:
771: IF l_return_status = FND_API.g_ret_sts_error THEN
772: RAISE FND_API.g_exc_error;
773: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
774: RAISE FND_API.g_exc_unexpected_error;
775: END IF;
776: END IF;
777:
770:
771: IF l_return_status = FND_API.g_ret_sts_error THEN
772: RAISE FND_API.g_exc_error;
773: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
774: RAISE FND_API.g_exc_unexpected_error;
775: END IF;
776: END IF;
777:
778: -- call business API
788: );
789:
790:
791:
792: IF l_return_status = FND_API.g_ret_sts_error THEN
793: RAISE FND_API.g_exc_error;
794: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
795: RAISE FND_API.g_exc_unexpected_error;
796: END IF;
789:
790:
791:
792: IF l_return_status = FND_API.g_ret_sts_error THEN
793: RAISE FND_API.g_exc_error;
794: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
795: RAISE FND_API.g_exc_unexpected_error;
796: END IF;
797:
790:
791:
792: IF l_return_status = FND_API.g_ret_sts_error THEN
793: RAISE FND_API.g_exc_error;
794: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
795: RAISE FND_API.g_exc_unexpected_error;
796: END IF;
797:
798:
791:
792: IF l_return_status = FND_API.g_ret_sts_error THEN
793: RAISE FND_API.g_exc_error;
794: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
795: RAISE FND_API.g_exc_unexpected_error;
796: END IF;
797:
798:
799:
806: l_pub_schedule_rec,
807: l_return_status
808: );
809:
810: IF l_return_status = FND_API.g_ret_sts_error THEN
811: RAISE FND_API.g_exc_error;
812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
813: RAISE FND_API.g_exc_unexpected_error;
814: END IF;
807: l_return_status
808: );
809:
810: IF l_return_status = FND_API.g_ret_sts_error THEN
811: RAISE FND_API.g_exc_error;
812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
813: RAISE FND_API.g_exc_unexpected_error;
814: END IF;
815: END IF;
808: );
809:
810: IF l_return_status = FND_API.g_ret_sts_error THEN
811: RAISE FND_API.g_exc_error;
812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
813: RAISE FND_API.g_exc_unexpected_error;
814: END IF;
815: END IF;
816:
809:
810: IF l_return_status = FND_API.g_ret_sts_error THEN
811: RAISE FND_API.g_exc_error;
812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
813: RAISE FND_API.g_exc_unexpected_error;
814: END IF;
815: END IF;
816:
817: -- customer post-processing
821: l_pub_schedule_rec,
822: l_return_status
823: );
824:
825: IF l_return_status = FND_API.g_ret_sts_error THEN
826: RAISE FND_API.g_exc_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
828: RAISE FND_API.g_exc_unexpected_error;
829: END IF;
822: l_return_status
823: );
824:
825: IF l_return_status = FND_API.g_ret_sts_error THEN
826: RAISE FND_API.g_exc_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
828: RAISE FND_API.g_exc_unexpected_error;
829: END IF;
830: END IF;
823: );
824:
825: IF l_return_status = FND_API.g_ret_sts_error THEN
826: RAISE FND_API.g_exc_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
828: RAISE FND_API.g_exc_unexpected_error;
829: END IF;
830: END IF;
831:
824:
825: IF l_return_status = FND_API.g_ret_sts_error THEN
826: RAISE FND_API.g_exc_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
828: RAISE FND_API.g_exc_unexpected_error;
829: END IF;
830: END IF;
831:
832:
840: );
841:
842: EXCEPTION
843:
844: WHEN FND_API.g_exc_error THEN
845: ROLLBACK TO validate_camp_schedule_pub;
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.count_and_get(
848: p_encoded => FND_API.g_false,
842: EXCEPTION
843:
844: WHEN FND_API.g_exc_error THEN
845: ROLLBACK TO validate_camp_schedule_pub;
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.count_and_get(
848: p_encoded => FND_API.g_false,
849: p_count => x_msg_count,
850: p_data => x_msg_data
844: WHEN FND_API.g_exc_error THEN
845: ROLLBACK TO validate_camp_schedule_pub;
846: x_return_status := FND_API.g_ret_sts_error;
847: FND_MSG_PUB.count_and_get(
848: p_encoded => FND_API.g_false,
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
852:
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
852:
853: WHEN FND_API.g_exc_unexpected_error THEN
854: ROLLBACK TO validate_camp_schedule_pub;
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856: FND_MSG_PUB.count_and_get(
857: p_encoded => FND_API.g_false,
851: );
852:
853: WHEN FND_API.g_exc_unexpected_error THEN
854: ROLLBACK TO validate_camp_schedule_pub;
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856: FND_MSG_PUB.count_and_get(
857: p_encoded => FND_API.g_false,
858: p_count => x_msg_count,
859: p_data => x_msg_data
853: WHEN FND_API.g_exc_unexpected_error THEN
854: ROLLBACK TO validate_camp_schedule_pub;
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856: FND_MSG_PUB.count_and_get(
857: p_encoded => FND_API.g_false,
858: p_count => x_msg_count,
859: p_data => x_msg_data
860: );
861:
861:
862:
863: WHEN OTHERS THEN
864: ROLLBACK TO validate_camp_schedule_pub;
865: x_return_status := FND_API.g_ret_sts_unexp_error ;
866:
867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
868: THEN
869: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
869: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
870: END IF;
871:
872: FND_MSG_PUB.count_and_get(
873: p_encoded => FND_API.g_false,
874: p_count => x_msg_count,
875: p_data => x_msg_data
876: );
877:
879:
880:
881: PROCEDURE Lock_Camp_Schedule(
882: p_api_version_number IN NUMBER,
883: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
884: x_return_status OUT NOCOPY VARCHAR2,
885: x_msg_count OUT NOCOPY NUMBER,
886: x_msg_data OUT NOCOPY VARCHAR2,
887:
898: l_return_status VARCHAR2(1);
899: BEGIN
900:
901: -- Standard call to check for call compatibility.
902: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
903: p_api_version_number,
904: l_api_name,
905: G_PKG_NAME)
906: THEN
903: p_api_version_number,
904: l_api_name,
905: G_PKG_NAME)
906: THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: END IF;
909:
910: -- Initialize message list if p_init_msg_list is set to TRUE.
911: IF FND_API.to_Boolean( p_init_msg_list )
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: END IF;
909:
910: -- Initialize message list if p_init_msg_list is set to TRUE.
911: IF FND_API.to_Boolean( p_init_msg_list )
912: THEN
913: FND_MSG_PUB.initialize;
914: END IF;
915:
917: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
918:
919:
920: -- Initialize API return status to SUCCESS
921: x_return_status := FND_API.G_RET_STS_SUCCESS;
922:
923: -- customer pre-processing
924: IF JTF_USR_HKS.ok_to_execute(g_pkg_name, l_api_name, 'B', 'C')
925: THEN
928: l_object_version,
929: l_return_status
930: );
931:
932: IF l_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
929: l_return_status
930: );
931:
932: IF l_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937: END IF;
930: );
931:
932: IF l_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937: END IF;
938:
931:
932: IF l_return_status = FND_API.g_ret_sts_error THEN
933: RAISE FND_API.g_exc_error;
934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937: END IF;
938:
939: -- vertical industry pre-processing
944: l_object_version,
945: l_return_status
946: );
947:
948: IF l_return_status = FND_API.g_ret_sts_error THEN
949: RAISE FND_API.g_exc_error;
950: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
951: RAISE FND_API.g_exc_unexpected_error;
952: END IF;
945: l_return_status
946: );
947:
948: IF l_return_status = FND_API.g_ret_sts_error THEN
949: RAISE FND_API.g_exc_error;
950: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
951: RAISE FND_API.g_exc_unexpected_error;
952: END IF;
953: END IF;
946: );
947:
948: IF l_return_status = FND_API.g_ret_sts_error THEN
949: RAISE FND_API.g_exc_error;
950: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
951: RAISE FND_API.g_exc_unexpected_error;
952: END IF;
953: END IF;
954:
947:
948: IF l_return_status = FND_API.g_ret_sts_error THEN
949: RAISE FND_API.g_exc_error;
950: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
951: RAISE FND_API.g_exc_unexpected_error;
952: END IF;
953: END IF;
954:
955: -- call business API
963: p_object_version => p_object_version);
964:
965:
966: -- Check return status from the above procedure call
967: IF x_return_status = FND_API.G_RET_STS_ERROR then
968: RAISE FND_API.G_EXC_ERROR;
969: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: END IF;
964:
965:
966: -- Check return status from the above procedure call
967: IF x_return_status = FND_API.G_RET_STS_ERROR then
968: RAISE FND_API.G_EXC_ERROR;
969: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: END IF;
972: --
965:
966: -- Check return status from the above procedure call
967: IF x_return_status = FND_API.G_RET_STS_ERROR then
968: RAISE FND_API.G_EXC_ERROR;
969: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: END IF;
972: --
973: -- End of API body.
966: -- Check return status from the above procedure call
967: IF x_return_status = FND_API.G_RET_STS_ERROR then
968: RAISE FND_API.G_EXC_ERROR;
969: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: END IF;
972: --
973: -- End of API body.
974: --
981: l_object_version,
982: l_return_status
983: );
984:
985: IF l_return_status = FND_API.g_ret_sts_error THEN
986: RAISE FND_API.g_exc_error;
987: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
988: RAISE FND_API.g_exc_unexpected_error;
989: END IF;
982: l_return_status
983: );
984:
985: IF l_return_status = FND_API.g_ret_sts_error THEN
986: RAISE FND_API.g_exc_error;
987: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
988: RAISE FND_API.g_exc_unexpected_error;
989: END IF;
990: END IF;
983: );
984:
985: IF l_return_status = FND_API.g_ret_sts_error THEN
986: RAISE FND_API.g_exc_error;
987: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
988: RAISE FND_API.g_exc_unexpected_error;
989: END IF;
990: END IF;
991:
984:
985: IF l_return_status = FND_API.g_ret_sts_error THEN
986: RAISE FND_API.g_exc_error;
987: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
988: RAISE FND_API.g_exc_unexpected_error;
989: END IF;
990: END IF;
991:
992: -- customer post-processing
997: l_object_version,
998: l_return_status
999: );
1000:
1001: IF l_return_status = FND_API.g_ret_sts_error THEN
1002: RAISE FND_API.g_exc_error;
1003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1004: RAISE FND_API.g_exc_unexpected_error;
1005: END IF;
998: l_return_status
999: );
1000:
1001: IF l_return_status = FND_API.g_ret_sts_error THEN
1002: RAISE FND_API.g_exc_error;
1003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1004: RAISE FND_API.g_exc_unexpected_error;
1005: END IF;
1006: END IF;
999: );
1000:
1001: IF l_return_status = FND_API.g_ret_sts_error THEN
1002: RAISE FND_API.g_exc_error;
1003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1004: RAISE FND_API.g_exc_unexpected_error;
1005: END IF;
1006: END IF;
1007:
1000:
1001: IF l_return_status = FND_API.g_ret_sts_error THEN
1002: RAISE FND_API.g_exc_error;
1003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1004: RAISE FND_API.g_exc_unexpected_error;
1005: END IF;
1006: END IF;
1007:
1008:
1013:
1014: EXCEPTION
1015:
1016: WHEN AMS_Utility_PVT.resource_locked THEN
1017: x_return_status := FND_API.g_ret_sts_error;
1018: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1019: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1020: FND_MSG_PUB.add;
1021: END IF;
1019: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1020: FND_MSG_PUB.add;
1021: END IF;
1022:
1023: WHEN FND_API.G_EXC_ERROR THEN
1024: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: -- Standard call to get message count and if count=1, get the message
1027: FND_MSG_PUB.Count_And_Get (
1021: END IF;
1022:
1023: WHEN FND_API.G_EXC_ERROR THEN
1024: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: -- Standard call to get message count and if count=1, get the message
1027: FND_MSG_PUB.Count_And_Get (
1028: p_encoded => FND_API.G_FALSE,
1029: p_count => x_msg_count,
1024: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: -- Standard call to get message count and if count=1, get the message
1027: FND_MSG_PUB.Count_And_Get (
1028: p_encoded => FND_API.G_FALSE,
1029: p_count => x_msg_count,
1030: p_data => x_msg_data
1031: );
1032:
1029: p_count => x_msg_count,
1030: p_data => x_msg_data
1031: );
1032:
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1034: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1036: -- Standard call to get message count and if count=1, get the message
1037: FND_MSG_PUB.Count_And_Get (
1031: );
1032:
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1034: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1036: -- Standard call to get message count and if count=1, get the message
1037: FND_MSG_PUB.Count_And_Get (
1038: p_encoded => FND_API.G_FALSE,
1039: p_count => x_msg_count,
1034: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1036: -- Standard call to get message count and if count=1, get the message
1037: FND_MSG_PUB.Count_And_Get (
1038: p_encoded => FND_API.G_FALSE,
1039: p_count => x_msg_count,
1040: p_data => x_msg_data
1041: );
1042:
1041: );
1042:
1043: WHEN OTHERS THEN
1044: ROLLBACK TO LOCK_Camp_Schedule_PUB;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1049: END IF;
1048: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1049: END IF;
1050: -- Standard call to get message count and if count=1, get the message
1051: FND_MSG_PUB.Count_And_Get (
1052: p_encoded => FND_API.G_FALSE,
1053: p_count => x_msg_count,
1054: p_data => x_msg_data
1055: );
1056: End Lock_Camp_Schedule;
1075: --
1076:
1077: PROCEDURE Copy_Camp_Schedule(
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082:
1083: x_return_status OUT NOCOPY VARCHAR2,
1076:
1077: PROCEDURE Copy_Camp_Schedule(
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082:
1083: x_return_status OUT NOCOPY VARCHAR2,
1084: x_msg_count OUT NOCOPY NUMBER,
1077: PROCEDURE Copy_Camp_Schedule(
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1081: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1082:
1083: x_return_status OUT NOCOPY VARCHAR2,
1084: x_msg_count OUT NOCOPY NUMBER,
1085: x_msg_data OUT NOCOPY VARCHAR2,
1115: x_custom_setup_id => x_custom_setup_id);
1116: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end copy');
1117:
1118: -- Check return status from the above procedure call
1119: IF x_return_status = FND_API.G_RET_STS_ERROR then
1120: RAISE FND_API.G_EXC_ERROR;
1121: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1116: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end copy');
1117:
1118: -- Check return status from the above procedure call
1119: IF x_return_status = FND_API.G_RET_STS_ERROR then
1120: RAISE FND_API.G_EXC_ERROR;
1121: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1117:
1118: -- Check return status from the above procedure call
1119: IF x_return_status = FND_API.G_RET_STS_ERROR then
1120: RAISE FND_API.G_EXC_ERROR;
1121: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125:
1118: -- Check return status from the above procedure call
1119: IF x_return_status = FND_API.G_RET_STS_ERROR then
1120: RAISE FND_API.G_EXC_ERROR;
1121: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125:
1126: EXCEPTION
1125:
1126: EXCEPTION
1127:
1128: WHEN AMS_Utility_PVT.resource_locked THEN
1129: x_return_status := FND_API.g_ret_sts_error;
1130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1131: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1132: FND_MSG_PUB.add;
1133: END IF;
1131: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1132: FND_MSG_PUB.add;
1133: END IF;
1134:
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: ROLLBACK TO COPY_Camp_Schedule_PUB;
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138: -- Standard call to get message count and if count=1, get the message
1139: FND_MSG_PUB.Count_And_Get (
1133: END IF;
1134:
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: ROLLBACK TO COPY_Camp_Schedule_PUB;
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138: -- Standard call to get message count and if count=1, get the message
1139: FND_MSG_PUB.Count_And_Get (
1140: p_encoded => FND_API.G_FALSE,
1141: p_count => x_msg_count,
1136: ROLLBACK TO COPY_Camp_Schedule_PUB;
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138: -- Standard call to get message count and if count=1, get the message
1139: FND_MSG_PUB.Count_And_Get (
1140: p_encoded => FND_API.G_FALSE,
1141: p_count => x_msg_count,
1142: p_data => x_msg_data
1143: );
1144:
1141: p_count => x_msg_count,
1142: p_data => x_msg_data
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: ROLLBACK TO COPY_Camp_Schedule_PUB;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: -- Standard call to get message count and if count=1, get the message
1149: FND_MSG_PUB.Count_And_Get (
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: ROLLBACK TO COPY_Camp_Schedule_PUB;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: -- Standard call to get message count and if count=1, get the message
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.G_FALSE,
1151: p_count => x_msg_count,
1146: ROLLBACK TO COPY_Camp_Schedule_PUB;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: -- Standard call to get message count and if count=1, get the message
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.G_FALSE,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1154:
1153: );
1154:
1155: WHEN OTHERS THEN
1156: ROLLBACK TO COPY_Camp_Schedule_PUB;
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1158: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1159: THEN
1160: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1161: END IF;
1160: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1161: END IF;
1162: -- Standard call to get message count and if count=1, get the message
1163: FND_MSG_PUB.Count_And_Get (
1164: p_encoded => FND_API.G_FALSE,
1165: p_count => x_msg_count,
1166: p_data => x_msg_data
1167: );
1168: