23: --========================================================================
24: PROCEDURE Activate_Schedule
25: (
26: p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
28: p_commit IN VARCHAR2 := FND_API.G_False,
29:
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER ,
24: PROCEDURE Activate_Schedule
25: (
26: p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
28: p_commit IN VARCHAR2 := FND_API.G_False,
29:
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER ,
32: x_msg_data OUT NOCOPY VARCHAR2
130:
131: --
132: -- Initialize message list IF p_init_msg_list is set to TRUE.
133: --
134: IF FND_API.to_Boolean( p_init_msg_list ) THEN
135: FND_MSG_PUB.initialize;
136: END IF;
137:
138: --
137:
138: --
139: -- Standard call to check for call compatibility.
140: --
141: IF NOT FND_API.Compatible_API_Call ( 1.0,
142: p_api_version,
143: l_api_name,
144: G_PKG_NAME)
145: THEN
142: p_api_version,
143: l_api_name,
144: G_PKG_NAME)
145: THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
149: --
150: -- Initialize API return status to success
148:
149: --
150: -- Initialize API return status to success
151: --
152: x_return_status := FND_API.G_RET_STS_SUCCESS;
153: l_return_flag := 'Y';
154:
155:
156: OPEN c_status('ACTIVE') ;
206: l_evo_rec_eveo.event_level := l_event_level;
207:
208: AMS_EventOffer_PVT.update_event_offer (
209: p_api_version => 1.0,
210: p_init_msg_list => FND_API.G_FALSE,
211: p_commit => FND_API.G_FALSE,
212: p_validation_level => FND_API.g_valid_level_full,
213:
214: p_evo_rec => l_evo_rec_eveo,
207:
208: AMS_EventOffer_PVT.update_event_offer (
209: p_api_version => 1.0,
210: p_init_msg_list => FND_API.G_FALSE,
211: p_commit => FND_API.G_FALSE,
212: p_validation_level => FND_API.g_valid_level_full,
213:
214: p_evo_rec => l_evo_rec_eveo,
215:
208: AMS_EventOffer_PVT.update_event_offer (
209: p_api_version => 1.0,
210: p_init_msg_list => FND_API.G_FALSE,
211: p_commit => FND_API.G_FALSE,
212: p_validation_level => FND_API.g_valid_level_full,
213:
214: p_evo_rec => l_evo_rec_eveo,
215:
216: x_return_status => x_return_status,
217: x_msg_count => x_msg_count,
218: x_msg_data => x_msg_data
219: );
220:
221: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
222: l_return_flag := 'N';
223: ROLLBACK TO C_ALL_SCHEDULE;
224: END IF;
225:
227:
228: EXCEPTION
229: WHEN OTHERS THEN
230: l_return_flag := 'N';
231: x_return_status := FND_API.g_ret_sts_error;
232: ROLLBACK TO C_ALL_SCHEDULE;
233:
234: END;
235:
285: l_evo_rec_oneoff.event_level := l_event_level;
286:
287: AMS_EventOffer_PVT.update_event_offer (
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_FALSE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.g_valid_level_full,
292:
293: p_evo_rec => l_evo_rec_oneoff,
286:
287: AMS_EventOffer_PVT.update_event_offer (
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_FALSE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.g_valid_level_full,
292:
293: p_evo_rec => l_evo_rec_oneoff,
294:
287: AMS_EventOffer_PVT.update_event_offer (
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_FALSE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.g_valid_level_full,
292:
293: p_evo_rec => l_evo_rec_oneoff,
294:
295: x_return_status => x_return_status,
298: );
299:
300: END IF;
301:
302: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
303: l_return_flag := 'N';
304: ROLLBACK TO C_ALL_ONEOFFEVENT;
305: END IF;
306:
308:
309: EXCEPTION
310: WHEN OTHERS THEN
311: l_return_flag := 'N';
312: x_return_status := FND_API.g_ret_sts_error;
313: ROLLBACK TO C_ALL_ONEOFFEVENT;
314:
315: END;
316:
332: --Added for time Zone issue FIX : BUG 4482556 ANSKUMAR
333: l_user_timezone_id:= FND_PROFILE.VALUE('CLIENT_TIMEZONE_ID');
334: --API to convert the sysdate to usertimezone Date : BUG 4482556 ANSKUMAR
335: AMS_UTILITY_PVT.Convert_Timezone(
336: p_init_msg_list => FND_API.G_TRUE,
337: x_return_status => l_return_status,
338: x_msg_count => l_msg_count,
339: x_msg_data => l_msg_data,
340:
344:
345: x_out_time => l_sys_start_time
346: );
347:
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: l_sys_start_time := SYSDATE;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: l_sys_start_time := SYSDATE;
352: END IF;
346: );
347:
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: l_sys_start_time := SYSDATE;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: l_sys_start_time := SYSDATE;
352: END IF;
353:
354: --End Adding
374: l_evo_rec.event_level := l_event_level;
375:
376: AMS_EventOffer_PVT.update_event_offer (
377: p_api_version => 1.0,
378: p_init_msg_list => FND_API.G_FALSE,
379: p_commit => FND_API.G_FALSE,
380: p_validation_level => FND_API.g_valid_level_full,
381:
382: p_evo_rec => l_evo_rec,
375:
376: AMS_EventOffer_PVT.update_event_offer (
377: p_api_version => 1.0,
378: p_init_msg_list => FND_API.G_FALSE,
379: p_commit => FND_API.G_FALSE,
380: p_validation_level => FND_API.g_valid_level_full,
381:
382: p_evo_rec => l_evo_rec,
383:
376: AMS_EventOffer_PVT.update_event_offer (
377: p_api_version => 1.0,
378: p_init_msg_list => FND_API.G_FALSE,
379: p_commit => FND_API.G_FALSE,
380: p_validation_level => FND_API.g_valid_level_full,
381:
382: p_evo_rec => l_evo_rec,
383:
384: x_return_status => x_return_status,
385: x_msg_count => x_msg_count,
386: x_msg_data => x_msg_data
387: );
388:
389: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
390: l_return_flag := 'N';
391: ROLLBACK TO C_COMPLETED_SCHEDULE;
392: END IF;
393:
395:
396: EXCEPTION
397: WHEN OTHERS THEN
398: l_return_flag := 'N';
399: x_return_status := FND_API.g_ret_sts_error;
400: ROLLBACK TO C_COMPLETED_SCHEDULE;
401:
402: END;
403:
400: ROLLBACK TO C_COMPLETED_SCHEDULE;
401:
402: END;
403:
404: /*IF x_return_status = FND_API.g_ret_sts_error THEN
405: RAISE FND_API.g_exc_error;
406: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
407: RAISE FND_API.g_exc_unexpected_error;
408: END IF;*/
401:
402: END;
403:
404: /*IF x_return_status = FND_API.g_ret_sts_error THEN
405: RAISE FND_API.g_exc_error;
406: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
407: RAISE FND_API.g_exc_unexpected_error;
408: END IF;*/
409:
402: END;
403:
404: /*IF x_return_status = FND_API.g_ret_sts_error THEN
405: RAISE FND_API.g_exc_error;
406: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
407: RAISE FND_API.g_exc_unexpected_error;
408: END IF;*/
409:
410: END LOOP;
403:
404: /*IF x_return_status = FND_API.g_ret_sts_error THEN
405: RAISE FND_API.g_exc_error;
406: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
407: RAISE FND_API.g_exc_unexpected_error;
408: END IF;*/
409:
410: END LOOP;
411: -- CLOSE c_completed_schedule;
412: CLOSE c_completed_schedule_convdate;
413: --
414: -- Standard check of p_commit.
415: --
416: IF FND_API.To_Boolean ( p_commit )
417: THEN
418: COMMIT WORK;
419: END IF;
420:
423: --
424: FND_MSG_PUB.Count_AND_Get
425: ( p_count => x_msg_count,
426: p_data => x_msg_data,
427: p_encoded => FND_API.G_FALSE
428: );
429:
430: AMS_Utility_PVT.debug_message(l_api_name ||' : end Status : ' || x_return_status);
431: --dbms_output.put_line(l_api_name ||' : end Status : ' || x_return_status);
430: AMS_Utility_PVT.debug_message(l_api_name ||' : end Status : ' || x_return_status);
431: --dbms_output.put_line(l_api_name ||' : end Status : ' || x_return_status);
432:
433: IF (l_return_flag = 'Y') THEN
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435: ELSE
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: END IF;
438:
432:
433: IF (l_return_flag = 'Y') THEN
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435: ELSE
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: END IF;
438:
439: EXCEPTION
440: WHEN FND_API.G_EXC_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: END IF;
438:
439: EXCEPTION
440: WHEN FND_API.G_EXC_ERROR THEN
441:
442: IF (c_all_schedule%ISOPEN) THEN
443: CLOSE c_all_schedule ;
444: END IF;
442: IF (c_all_schedule%ISOPEN) THEN
443: CLOSE c_all_schedule ;
444: END IF;
445: ROLLBACK TO AMS_ACTIVATE_SCHEDULE;
446: x_return_status := FND_API.G_RET_STS_ERROR ;
447:
448: FND_MSG_PUB.Count_AND_Get
449: ( p_count => x_msg_count,
450: p_data => x_msg_data,
447:
448: FND_MSG_PUB.Count_AND_Get
449: ( p_count => x_msg_count,
450: p_data => x_msg_data,
451: p_encoded => FND_API.G_FALSE
452: );
453:
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: IF (c_all_schedule%ISOPEN) THEN
450: p_data => x_msg_data,
451: p_encoded => FND_API.G_FALSE
452: );
453:
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: IF (c_all_schedule%ISOPEN) THEN
456: CLOSE c_all_schedule ;
457: END IF;
458: ROLLBACK TO AMS_ACTIVATE_SCHEDULE;
455: IF (c_all_schedule%ISOPEN) THEN
456: CLOSE c_all_schedule ;
457: END IF;
458: ROLLBACK TO AMS_ACTIVATE_SCHEDULE;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
460:
461: FND_MSG_PUB.Count_AND_Get
462: ( p_count => x_msg_count,
463: p_data => x_msg_data,
460:
461: FND_MSG_PUB.Count_AND_Get
462: ( p_count => x_msg_count,
463: p_data => x_msg_data,
464: p_encoded => FND_API.G_FALSE
465: );
466:
467: WHEN OTHERS THEN
468: IF (c_all_schedule%ISOPEN) THEN
468: IF (c_all_schedule%ISOPEN) THEN
469: CLOSE c_all_schedule ;
470: END IF;
471: ROLLBACK TO AMS_ACTIVATE_SCHEDULE;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473:
474: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
475: THEN
476: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
478:
479: FND_MSG_PUB.Count_AND_Get
480: ( p_count => x_msg_count,
481: p_data => x_msg_data,
482: p_encoded => FND_API.G_FALSE
483: );
484:
485:
486: END Activate_Schedule ;
519: ) ;*/
520:
521: AMS_Activate_EventSched_PVT.Activate_Schedule(
522: p_api_version => l_api_version,
523: p_init_msg_list => FND_API.G_False,
524: p_commit => FND_API.G_False,
525:
526: x_return_status => l_return_status,
527: x_msg_count => l_msg_count ,
520:
521: AMS_Activate_EventSched_PVT.Activate_Schedule(
522: p_api_version => l_api_version,
523: p_init_msg_list => FND_API.G_False,
524: p_commit => FND_API.G_False,
525:
526: x_return_status => l_return_status,
527: x_msg_count => l_msg_count ,
528: x_msg_data => l_msg_data
530:
531: -- Write_log ;
532: Ams_Utility_Pvt.Write_Conc_log ;
533:
534: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
535: retcode :=0;
536: ELSE
537: retcode := 2;
538: errbuf := l_msg_data ;