195: savepoint create_objective_swi;
196: --
197: -- Initialise Multiple Message Detection
198: --
199: hr_multi_message.enable_message_list;
200: --
201: -- Remember IN OUT parameter IN values
202: --
203: --
305: -- messages and add them to Multiple Message List
306: --
307: if l_weighting_over_100_warning then
308: fnd_message.set_name('PER', 'HR_50198_WPM_WEIGHT_WARN');
309: hr_multi_message.add
310: (p_message_type => hr_multi_message.g_warning_msg
311: );
312: end if;
313: if l_weighting_appraisal_warning then
306: --
307: if l_weighting_over_100_warning then
308: fnd_message.set_name('PER', 'HR_50198_WPM_WEIGHT_WARN');
309: hr_multi_message.add
310: (p_message_type => hr_multi_message.g_warning_msg
311: );
312: end if;
313: if l_weighting_appraisal_warning then
314: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
311: );
312: end if;
313: if l_weighting_appraisal_warning then
314: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
315: hr_multi_message.add
316: (p_message_type => hr_multi_message.g_warning_msg
317: );
318: end if;
319: --
312: end if;
313: if l_weighting_appraisal_warning then
314: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
315: hr_multi_message.add
316: (p_message_type => hr_multi_message.g_warning_msg
317: );
318: end if;
319: --
320: -- Convert API non-warning boolean parameter values
323: -- Derive the API return status value based on whether
324: -- messages of any type exist in the Multiple Message List.
325: -- Also disable Multiple Message Detection.
326: --
327: p_return_status := hr_multi_message.get_return_status_disable;
328: hr_utility.set_location(' Leaving:' || l_proc,20);
329: --
330: exception
331: when hr_multi_message.error_message_exist then
327: p_return_status := hr_multi_message.get_return_status_disable;
328: hr_utility.set_location(' Leaving:' || l_proc,20);
329: --
330: exception
331: when hr_multi_message.error_message_exist then
332: --
333: -- Catch the Multiple Message List exception which
334: -- indicates API processing has been aborted because
335: -- at least one message exists in the list.
338: --
339: -- Reset IN OUT parameters and set OUT parameters
340: --
341: p_object_version_number := null;
342: p_return_status := hr_multi_message.get_return_status_disable;
343: hr_utility.set_location(' Leaving:' || l_proc, 30);
344: when others then
345: --
346: -- When Multiple Message Detection is enabled catch
349: -- Multiple Message List. Otherwise re-raise the
350: -- error.
351: --
352: rollback to create_objective_swi;
353: if hr_multi_message.unexpected_error_add(l_proc) then
354: hr_utility.set_location(' Leaving:' || l_proc,40);
355: raise;
356: end if;
357: --
357: --
358: -- Reset IN OUT and set OUT parameters
359: --
360: p_object_version_number := null;
361: p_return_status := hr_multi_message.get_return_status_disable;
362: hr_utility.set_location(' Leaving:' || l_proc,50);
363: end create_objective;
364: -- ----------------------------------------------------------------------------
365: -- |---------------------------< delete_objective >---------------------------|
392: savepoint delete_objective_swi;
393: --
394: -- Initialise Multiple Message Detection
395: --
396: hr_multi_message.enable_message_list;
397: --
398: -- Remember IN OUT parameter IN values
399: --
400: --
435: -- Derive the API return status value based on whether
436: -- messages of any type exist in the Multiple Message List.
437: -- Also disable Multiple Message Detection.
438: --
439: p_return_status := hr_multi_message.get_return_status_disable;
440: hr_utility.set_location(' Leaving:' || l_proc,20);
441: --
442: exception
443: when hr_multi_message.error_message_exist then
439: p_return_status := hr_multi_message.get_return_status_disable;
440: hr_utility.set_location(' Leaving:' || l_proc,20);
441: --
442: exception
443: when hr_multi_message.error_message_exist then
444: --
445: -- Catch the Multiple Message List exception which
446: -- indicates API processing has been aborted because
447: -- at least one message exists in the list.
449: rollback to delete_objective_swi;
450: --
451: -- Reset IN OUT parameters and set OUT parameters
452: --
453: p_return_status := hr_multi_message.get_return_status_disable;
454: hr_utility.set_location(' Leaving:' || l_proc, 30);
455: when others then
456: --
457: -- When Multiple Message Detection is enabled catch
460: -- Multiple Message List. Otherwise re-raise the
461: -- error.
462: --
463: rollback to delete_objective_swi;
464: if hr_multi_message.unexpected_error_add(l_proc) then
465: hr_utility.set_location(' Leaving:' || l_proc,40);
466: raise;
467: end if;
468: --
467: end if;
468: --
469: -- Reset IN OUT and set OUT parameters
470: --
471: p_return_status := hr_multi_message.get_return_status_disable;
472: hr_utility.set_location(' Leaving:' || l_proc,50);
473: end delete_objective;
474: -- ----------------------------------------------------------------------------
475: -- |---------------------------< update_objective >---------------------------|
573: savepoint update_objective_swi;
574: --
575: -- Initialise Multiple Message Detection
576: --
577: hr_multi_message.enable_message_list;
578: --
579: -- Remember IN OUT parameter IN values
580: --
581: l_object_version_number := p_object_version_number;
705: -- messages and add them to Multiple Message List
706: --
707: if l_weighting_over_100_warning then
708: fnd_message.set_name('PER', 'HR_50198_WPM_WEIGHT_WARN');
709: hr_multi_message.add
710: (p_message_type => hr_multi_message.g_warning_msg
711: );
712: end if;
713: if l_weighting_appraisal_warning then
706: --
707: if l_weighting_over_100_warning then
708: fnd_message.set_name('PER', 'HR_50198_WPM_WEIGHT_WARN');
709: hr_multi_message.add
710: (p_message_type => hr_multi_message.g_warning_msg
711: );
712: end if;
713: if l_weighting_appraisal_warning then
714: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
711: );
712: end if;
713: if l_weighting_appraisal_warning then
714: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
715: hr_multi_message.add
716: (p_message_type => hr_multi_message.g_warning_msg
717: );
718: end if;
719: --
712: end if;
713: if l_weighting_appraisal_warning then
714: fnd_message.set_name('PER', 'HR_50223_WPM_APPRAISE_WARN');
715: hr_multi_message.add
716: (p_message_type => hr_multi_message.g_warning_msg
717: );
718: end if;
719: --
720: -- Convert API non-warning boolean parameter values
723: -- Derive the API return status value based on whether
724: -- messages of any type exist in the Multiple Message List.
725: -- Also disable Multiple Message Detection.
726: --
727: p_return_status := hr_multi_message.get_return_status_disable;
728: hr_utility.set_location(' Leaving:' || l_proc,20);
729: --
730: exception
731: when hr_multi_message.error_message_exist then
727: p_return_status := hr_multi_message.get_return_status_disable;
728: hr_utility.set_location(' Leaving:' || l_proc,20);
729: --
730: exception
731: when hr_multi_message.error_message_exist then
732: --
733: -- Catch the Multiple Message List exception which
734: -- indicates API processing has been aborted because
735: -- at least one message exists in the list.
738: --
739: -- Reset IN OUT parameters and set OUT parameters
740: --
741: p_object_version_number := l_object_version_number;
742: p_return_status := hr_multi_message.get_return_status_disable;
743: hr_utility.set_location(' Leaving:' || l_proc, 30);
744: when others then
745: --
746: -- When Multiple Message Detection is enabled catch
749: -- Multiple Message List. Otherwise re-raise the
750: -- error.
751: --
752: rollback to update_objective_swi;
753: if hr_multi_message.unexpected_error_add(l_proc) then
754: hr_utility.set_location(' Leaving:' || l_proc,40);
755: raise;
756: end if;
757: --
757: --
758: -- Reset IN OUT and set OUT parameters
759: --
760: p_object_version_number := l_object_version_number;
761: p_return_status := hr_multi_message.get_return_status_disable;
762: hr_utility.set_location(' Leaving:' || l_proc,50);
763: end update_objective;
764:
765: -- ----------------------------------------------------------------------------