97: savepoint create_event_swi;
98: --
99: -- Initialise Multiple Message Detection
100: --
101: hr_multi_message.enable_message_list;
102: --
103: -- Remember IN OUT parameter IN values
104: --
105: --
209: -- Derive the API return status value based on whether
210: -- messages of any type exist in the Multiple Message List.
211: -- Also disable Multiple Message Detection.
212: --
213: p_return_status := hr_multi_message.get_return_status_disable;
214: hr_utility.set_location(' Leaving:' || l_proc,20);
215: --
216: exception
217: when hr_multi_message.error_message_exist then
213: p_return_status := hr_multi_message.get_return_status_disable;
214: hr_utility.set_location(' Leaving:' || l_proc,20);
215: --
216: exception
217: when hr_multi_message.error_message_exist then
218: --
219: -- Catch the Multiple Message List exception which
220: -- indicates API processing has been aborted because
221: -- at least one message exists in the list.
225: -- Reset IN OUT parameters and set OUT parameters
226: --
227: -- p_event_id := null;
228: p_object_version_number := null;
229: p_return_status := hr_multi_message.get_return_status_disable;
230: hr_utility.set_location(' Leaving:' || l_proc, 30);
231: when others then
232: --
233: -- When Multiple Message Detection is enabled catch
236: -- Multiple Message List. Otherwise re-raise the
237: -- error.
238: --
239: rollback to create_event_swi;
240: if hr_multi_message.unexpected_error_add(l_proc) then
241: hr_utility.set_location(' Leaving:' || l_proc,40);
242: raise;
243: end if;
244: --
245: -- Reset IN OUT and set OUT parameters
246: --
247: --p_event_id := null;
248: p_object_version_number := null;
249: p_return_status := hr_multi_message.get_return_status_disable;
250: hr_utility.set_location(' Leaving:' || l_proc,50);
251: end create_event;
252: -- ----------------------------------------------------------------------------
253: -- |-----------------------------< delete_event >-----------------------------|
274: savepoint delete_event_swi;
275: --
276: -- Initialise Multiple Message Detection
277: --
278: hr_multi_message.enable_message_list;
279: --
280: -- Remember IN OUT parameter IN values
281: --
282: --
307: -- Derive the API return status value based on whether
308: -- messages of any type exist in the Multiple Message List.
309: -- Also disable Multiple Message Detection.
310: --
311: p_return_status := hr_multi_message.get_return_status_disable;
312: hr_utility.set_location(' Leaving:' || l_proc,20);
313: --
314: exception
315: when hr_multi_message.error_message_exist then
311: p_return_status := hr_multi_message.get_return_status_disable;
312: hr_utility.set_location(' Leaving:' || l_proc,20);
313: --
314: exception
315: when hr_multi_message.error_message_exist then
316: --
317: -- Catch the Multiple Message List exception which
318: -- indicates API processing has been aborted because
319: -- at least one message exists in the list.
321: rollback to delete_event_swi;
322: --
323: -- Reset IN OUT parameters and set OUT parameters
324: --
325: p_return_status := hr_multi_message.get_return_status_disable;
326: hr_utility.set_location(' Leaving:' || l_proc, 30);
327: when others then
328: --
329: -- When Multiple Message Detection is enabled catch
332: -- Multiple Message List. Otherwise re-raise the
333: -- error.
334: --
335: rollback to delete_event_swi;
336: if hr_multi_message.unexpected_error_add(l_proc) then
337: hr_utility.set_location(' Leaving:' || l_proc,40);
338: raise;
339: end if;
340: --
339: end if;
340: --
341: -- Reset IN OUT and set OUT parameters
342: --
343: p_return_status := hr_multi_message.get_return_status_disable;
344: hr_utility.set_location(' Leaving:' || l_proc,50);
345: end delete_event;
346: -- ----------------------------------------------------------------------------
347: -- |-----------------------------< update_event >-----------------------------|
435: savepoint update_event_swi;
436: --
437: -- Initialise Multiple Message Detection
438: --
439: hr_multi_message.enable_message_list;
440: --
441: -- Remember IN OUT parameter IN values
442: --
443: l_object_version_number := p_object_version_number;
535: -- Derive the API return status value based on whether
536: -- messages of any type exist in the Multiple Message List.
537: -- Also disable Multiple Message Detection.
538: --
539: p_return_status := hr_multi_message.get_return_status_disable;
540: hr_utility.set_location(' Leaving:' || l_proc,20);
541: --
542: exception
543: when hr_multi_message.error_message_exist then
539: p_return_status := hr_multi_message.get_return_status_disable;
540: hr_utility.set_location(' Leaving:' || l_proc,20);
541: --
542: exception
543: when hr_multi_message.error_message_exist then
544: --
545: -- Catch the Multiple Message List exception which
546: -- indicates API processing has been aborted because
547: -- at least one message exists in the list.
550: --
551: -- Reset IN OUT parameters and set OUT parameters
552: --
553: p_object_version_number := l_object_version_number;
554: p_return_status := hr_multi_message.get_return_status_disable;
555: hr_utility.set_location(' Leaving:' || l_proc, 30);
556: when others then
557: --
558: -- When Multiple Message Detection is enabled catch
561: -- Multiple Message List. Otherwise re-raise the
562: -- error.
563: --
564: rollback to update_event_swi;
565: if hr_multi_message.unexpected_error_add(l_proc) then
566: hr_utility.set_location(' Leaving:' || l_proc,40);
567: raise;
568: end if;
569: --
569: --
570: -- Reset IN OUT and set OUT parameters
571: --
572: p_object_version_number := l_object_version_number;
573: p_return_status := hr_multi_message.get_return_status_disable;
574: hr_utility.set_location(' Leaving:' || l_proc,50);
575: end update_event;
576:
577: -- ----------------------------------------------------------------------------
593: l_finance_line_id number;
594: begin
595: savepoint update_enrollment;
596: --
597: hr_multi_message.enable_message_list;
598: l_object_version_number := p_object_version_number ;
599: ota_tdb_api_upd2.update_enrollment
600: (
601: p_booking_id => p_booking_id,
607: p_object_version_number => l_object_version_number,
608: p_tfl_object_version_number => l_tfl_object_version_number,
609: p_finance_line_id => l_finance_line_id
610: );
611: p_return_status := hr_multi_message.get_return_status_disable;
612: hr_utility.set_location(' Leaving:' || l_proc,20);
613:
614:
615: exception
612: hr_utility.set_location(' Leaving:' || l_proc,20);
613:
614:
615: exception
616: when hr_multi_message.error_message_exist then
617: --
618: -- Catch the Multiple Message List exception which
619: -- indicates API processing has been aborted because
620: -- at least one message exists in the list.
623: --
624: -- Reset IN OUT parameters and set OUT parameters
625: --
626:
627: p_return_status := hr_multi_message.get_return_status_disable;
628: hr_utility.set_location(' Leaving:' || l_proc, 30);
629: when others then
630: --
631: -- When Multiple Message Detection is enabled catch
634: -- Multiple Message List. Otherwise re-raise the
635: -- error.
636: --
637: rollback to update_enrollment;
638: if hr_multi_message.unexpected_error_add(l_proc) then
639: hr_utility.set_location(' Leaving:' || l_proc,40);
640: raise;
641: end if;
642: --
642: --
643: -- Reset IN OUT and set OUT parameters
644: --
645:
646: p_return_status := hr_multi_message.get_return_status_disable;
647: hr_utility.set_location(' Leaving:' || l_proc,50);
648: end update_enrollment;
649:
650: --
708: savepoint upd2_update_event;
709: --
710: -- Initialise Multiple Message Detection
711: --
712: hr_multi_message.enable_message_list;
713:
714: OPEN c_event_date(p_event_id);
715: FETCH c_event_date into l_event_date,l_event_type,l_event_title,l_owner_id,l_maximum_attendees_old;
716: CLOSE c_event_date;
718:
719: if p_change_status = 'S' and p_event_status = 'A'
720: then
721: p_message_name := 'OTA_13557_EVT_CANCEL_TDB';
722: p_return_status := hr_multi_message.get_return_status_disable;
723: hr_utility.set_location(' Leaving:' || l_proc,20);
724: return;
725: end if;
726:
726:
727: if p_change_status = 'S' and
728: ota_evt_bus2.resource_booking_exists(p_event_id) then
729: p_message_name := 'OTA_13525_EVT_CANCEL_RESOURCE';
730: p_return_status := hr_multi_message.get_return_status_disable;
731: hr_utility.set_location(' Leaving:' || l_proc,20);
732: return;
733: end if;
734:
734:
735: IF p_change_status = 'A' AND
736: p_maximum_attendees <> l_maximum_attendees_old THEN
737: p_message_name := 'OTA_13699_EVT_PRICING';
738: p_return_status := hr_multi_message.get_return_status_disable;
739: hr_utility.set_location(' Leaving:' || l_proc,20);
740: return;
741: END IF;
742:
832: END IF;
833:
834: else
835: p_message_name := 'OTA_13553_WAITLIST_EXISTS';
836: p_return_status := hr_multi_message.get_return_status_disable;
837: hr_utility.set_location(' Leaving:' || l_proc,20);
838: return;
839:
840: -- ***
843: end if;
844: --
845: end if;
846: --
847: p_return_status := hr_multi_message.get_return_status_disable;
848: hr_utility.set_location(' Leaving:' || l_proc,20);
849: exception
850: when hr_multi_message.error_message_exist then
851: --
846: --
847: p_return_status := hr_multi_message.get_return_status_disable;
848: hr_utility.set_location(' Leaving:' || l_proc,20);
849: exception
850: when hr_multi_message.error_message_exist then
851: --
852: -- Catch the Multiple Message List exception which
853: -- indicates API processing has been aborted because
854: -- at least one message exists in the list.
856: rollback to upd2_update_event;
857: --
858: -- Reset IN OUT parameters and set OUT parameters
859: --
860: p_return_status := hr_multi_message.get_return_status_disable;
861: hr_utility.set_location(' Leaving:' || l_proc, 30);
862: when others then
863: --
864: -- When Multiple Message Detection is enabled catch
867: -- Multiple Message List. Otherwise re-raise the
868: -- error.
869: --
870: rollback to upd2_update_event;
871: if hr_multi_message.unexpected_error_add(l_proc) then
872: hr_utility.set_location(' Leaving:' || l_proc,40);
873: raise;
874: end if;
875: --
875: --
876: -- Reset IN OUT and set OUT parameters
877: --
878:
879: p_return_status := hr_multi_message.get_return_status_disable;
880: hr_utility.set_location(' Leaving:' || l_proc,50);
881: end upd2_update_event;
882:
883: