[Home] [Help]
79: l_text varchar2(2000);
80: l_message varchar2(10);
81: --
82: cursor get_seq is
83: select per_wf_events_s.nextval from dual;
84: --
85: l_proc varchar2(72):=' hr_ex_employee_be1.actual_termination_emp_a';
86: begin
87: hr_utility.set_location('Entering: '||l_proc,10);
86: begin
87: hr_utility.set_location('Entering: '||l_proc,10);
88: -- check the status of the business event
89: l_event_name:='oracle.apps.per.api.ex_employee.actual_termination_emp';
90: l_message:=wf_event.test(l_event_name);
91: --
92: if (l_message='MESSAGE') then
93: hr_utility.set_location(l_proc,20);
94: --
429: if p_actual_termination_date is not NULL and
430: p_actual_termination_date > trunc(SYSDATE) and
431: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
432: -- raise the event with the event data, with send date set to effective date
433: wf_event.raise(p_event_name=>l_event_name
434: ,p_event_key=>l_event_key
435: ,p_event_data=>l_event_data
436: ,p_send_date => p_actual_termination_date);
437: --
436: ,p_send_date => p_actual_termination_date);
437: --
438: else
439: -- raise the event with the event data
440: wf_event.raise(p_event_name=>l_event_name
441: ,p_event_key=>l_event_key
442: ,p_event_data=>l_event_data);
443: end if;
444: elsif (l_message='KEY') then
451: p_actual_termination_date > trunc(SYSDATE) and
452: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
453: -- this is a key event, so just raise the event
454: -- without the event data, with send date set to effective date
455: wf_event.raise(p_event_name=>l_event_name
456: ,p_event_key=>l_event_key
457: ,p_send_date => p_actual_termination_date);
458: --
459: else
458: --
459: else
460: -- this is a key event, so just raise the event
461: -- without the event data
462: wf_event.raise(p_event_name=>l_event_name
463: ,p_event_key=>l_event_key);
464: end if;
465: elsif (l_message='NONE') then
466: hr_utility.set_location(l_proc,40);