121: savepoint create_element_type_swi;
122: --
123: -- Initialise Multiple Message Detection
124: --
125: hr_multi_message.enable_message_list;
126: --
127: -- Remember IN OUT parameter IN values
128: --
129: --
239: -- messages and add them to Multiple Message List
240: --
241: --if l_processing_priority_warning then
242: -- fnd_message.set_name('PAY', 'PAY_6149_ELEMENT_PRIORITY_UPD');
243: -- hr_multi_message.add
244: -- (p_message_type => hr_multi_message.g_warning_msg
245: -- );
246: --end if; --
247: -- Convert API non-warning boolean parameter values
240: --
241: --if l_processing_priority_warning then
242: -- fnd_message.set_name('PAY', 'PAY_6149_ELEMENT_PRIORITY_UPD');
243: -- hr_multi_message.add
244: -- (p_message_type => hr_multi_message.g_warning_msg
245: -- );
246: --end if; --
247: -- Convert API non-warning boolean parameter values
248: --
250: -- Derive the API return status value based on whether
251: -- messages of any type exist in the Multiple Message List.
252: -- Also disable Multiple Message Detection.
253: --
254: p_return_status := hr_multi_message.get_return_status_disable;
255: hr_utility.set_location(' Leaving:' || l_proc,20);
256: --
257: exception
258: when hr_multi_message.error_message_exist then
254: p_return_status := hr_multi_message.get_return_status_disable;
255: hr_utility.set_location(' Leaving:' || l_proc,20);
256: --
257: exception
258: when hr_multi_message.error_message_exist then
259: --
260: -- Catch the Multiple Message List exception which
261: -- indicates API processing has been aborted because
262: -- at least one message exists in the list.
269: p_effective_start_date := null;
270: p_effective_end_date := null;
271: p_object_version_number := null;
272: p_comment_id := null;
273: p_return_status := hr_multi_message.get_return_status_disable;
274: hr_utility.set_location(' Leaving:' || l_proc, 30);
275: when others then
276: --
277: -- When Multiple Message Detection is enabled catch
280: -- Multiple Message List. Otherwise re-raise the
281: -- error.
282: --
283: rollback to create_element_type_swi;
284: if hr_multi_message.unexpected_error_add(l_proc) then
285: hr_utility.set_location(' Leaving:' || l_proc,40);
286: raise;
287: end if;
288: --
292: p_effective_start_date := null;
293: p_effective_end_date := null;
294: p_object_version_number := null;
295: p_comment_id := null;
296: p_return_status := hr_multi_message.get_return_status_disable;
297: hr_utility.set_location(' Leaving:' || l_proc,50);
298: end create_element_type;
299: -- ----------------------------------------------------------------------------
300: -- |--------------------------< update_element_type >-------------------------|
408: savepoint update_element_type_swi;
409: --
410: -- Initialise Multiple Message Detection
411: --
412: hr_multi_message.enable_message_list;
413: --
414: -- Remember IN OUT parameter IN values
415: --
416: l_object_version_number := p_object_version_number;
522: -- messages and add them to Multiple Message List
523: --
524: if l_processing_priority_warning then
525: fnd_message.set_name('PAY','PAY_6149_ELEMENT_PRIORITY_UPD');
526: hr_multi_message.add
527: (p_message_type => hr_multi_message.g_warning_msg
528: );
529: end if;
530: if l_element_name_warning then
523: --
524: if l_processing_priority_warning then
525: fnd_message.set_name('PAY','PAY_6149_ELEMENT_PRIORITY_UPD');
526: hr_multi_message.add
527: (p_message_type => hr_multi_message.g_warning_msg
528: );
529: end if;
530: if l_element_name_warning then
531: fnd_message.set_name('PAY','PAY_6365_ELEMENT_NO_DB_NAME');
528: );
529: end if;
530: if l_element_name_warning then
531: fnd_message.set_name('PAY','PAY_6365_ELEMENT_NO_DB_NAME');
532: hr_multi_message.add
533: (p_message_type => hr_multi_message.g_warning_msg
534: );
535: end if;
536: if l_element_name_change_warning then
529: end if;
530: if l_element_name_warning then
531: fnd_message.set_name('PAY','PAY_6365_ELEMENT_NO_DB_NAME');
532: hr_multi_message.add
533: (p_message_type => hr_multi_message.g_warning_msg
534: );
535: end if;
536: if l_element_name_change_warning then
537: fnd_message.set_name('PAY','PAY_6137_ELEMENT_DUP_NAME');
534: );
535: end if;
536: if l_element_name_change_warning then
537: fnd_message.set_name('PAY','PAY_6137_ELEMENT_DUP_NAME');
538: hr_multi_message.add
539: (p_message_type => hr_multi_message.g_warning_msg
540: );
541: end if; --
542: -- Convert API non-warning boolean parameter values
535: end if;
536: if l_element_name_change_warning then
537: fnd_message.set_name('PAY','PAY_6137_ELEMENT_DUP_NAME');
538: hr_multi_message.add
539: (p_message_type => hr_multi_message.g_warning_msg
540: );
541: end if; --
542: -- Convert API non-warning boolean parameter values
543: --
545: -- Derive the API return status value based on whether
546: -- messages of any type exist in the Multiple Message List.
547: -- Also disable Multiple Message Detection.
548: --
549: p_return_status := hr_multi_message.get_return_status_disable;
550: hr_utility.set_location(' Leaving:' || l_proc,20);
551: --
552: exception
553: when hr_multi_message.error_message_exist then
549: p_return_status := hr_multi_message.get_return_status_disable;
550: hr_utility.set_location(' Leaving:' || l_proc,20);
551: --
552: exception
553: when hr_multi_message.error_message_exist then
554: --
555: -- Catch the Multiple Message List exception which
556: -- indicates API processing has been aborted because
557: -- at least one message exists in the list.
563: p_object_version_number := l_object_version_number;
564: p_effective_start_date := null;
565: p_effective_end_date := null;
566: p_comment_id := null;
567: p_return_status := hr_multi_message.get_return_status_disable;
568: hr_utility.set_location(' Leaving:' || l_proc, 30);
569: when others then
570: --
571: -- When Multiple Message Detection is enabled catch
574: -- Multiple Message List. Otherwise re-raise the
575: -- error.
576: --
577: rollback to update_element_type_swi;
578: if hr_multi_message.unexpected_error_add(l_proc) then
579: hr_utility.set_location(' Leaving:' || l_proc,40);
580: raise;
581: end if;
582: --
585: p_object_version_number := l_object_version_number;
586: p_effective_start_date := null;
587: p_effective_end_date := null;
588: p_comment_id := null;
589: p_return_status := hr_multi_message.get_return_status_disable;
590: hr_utility.set_location(' Leaving:' || l_proc,50);
591: end update_element_type;
592: -- ----------------------------------------------------------------------------
593: -- |--------------------------< delete_element_type >-------------------------|
621: savepoint delete_element_type_swi;
622: --
623: -- Initialise Multiple Message Detection
624: --
625: hr_multi_message.enable_message_list;
626: --
627: -- Remember IN OUT parameter IN values
628: --
629: l_object_version_number := p_object_version_number;
655: -- messages and add them to Multiple Message List
656: --
657: if l_balance_feeds_warning then
658: fnd_message.set_name('PAY', 'HR_6208_BAL_DEL_NOT_AUTO');
659: hr_multi_message.add
660: (p_message_type => hr_multi_message.g_warning_msg
661: );
662: end if;
663: if l_processing_rules_warning then
656: --
657: if l_balance_feeds_warning then
658: fnd_message.set_name('PAY', 'HR_6208_BAL_DEL_NOT_AUTO');
659: hr_multi_message.add
660: (p_message_type => hr_multi_message.g_warning_msg
661: );
662: end if;
663: if l_processing_rules_warning then
664: fnd_message.set_name('PAY', 'PAY_6156_ELEMENT_NO_DEL_SPR');
661: );
662: end if;
663: if l_processing_rules_warning then
664: fnd_message.set_name('PAY', 'PAY_6156_ELEMENT_NO_DEL_SPR');
665: hr_multi_message.add
666: (p_message_type => hr_multi_message.g_warning_msg
667: );
668: end if; --
669: -- Convert API non-warning boolean parameter values
662: end if;
663: if l_processing_rules_warning then
664: fnd_message.set_name('PAY', 'PAY_6156_ELEMENT_NO_DEL_SPR');
665: hr_multi_message.add
666: (p_message_type => hr_multi_message.g_warning_msg
667: );
668: end if; --
669: -- Convert API non-warning boolean parameter values
670: --
672: -- Derive the API return status value based on whether
673: -- messages of any type exist in the Multiple Message List.
674: -- Also disable Multiple Message Detection.
675: --
676: p_return_status := hr_multi_message.get_return_status_disable;
677: hr_utility.set_location(' Leaving:' || l_proc,20);
678: --
679: exception
680: when hr_multi_message.error_message_exist then
676: p_return_status := hr_multi_message.get_return_status_disable;
677: hr_utility.set_location(' Leaving:' || l_proc,20);
678: --
679: exception
680: when hr_multi_message.error_message_exist then
681: --
682: -- Catch the Multiple Message List exception which
683: -- indicates API processing has been aborted because
684: -- at least one message exists in the list.
689: --
690: p_object_version_number := l_object_version_number;
691: p_effective_start_date := null;
692: p_effective_end_date := null;
693: p_return_status := hr_multi_message.get_return_status_disable;
694: hr_utility.set_location(' Leaving:' || l_proc, 30);
695: when others then
696: --
697: -- When Multiple Message Detection is enabled catch
700: -- Multiple Message List. Otherwise re-raise the
701: -- error.
702: --
703: rollback to delete_element_type_swi;
704: if hr_multi_message.unexpected_error_add(l_proc) then
705: hr_utility.set_location(' Leaving:' || l_proc,40);
706: raise;
707: end if;
708: --
710: --
711: p_object_version_number := l_object_version_number;
712: p_effective_start_date := null;
713: p_effective_end_date := null;
714: p_return_status := hr_multi_message.get_return_status_disable;
715: hr_utility.set_location(' Leaving:' || l_proc,50);
716: end delete_element_type;
717: end pay_element_types_swi;