[Home] [Help]
11: l_text varchar2(2000);
12: l_message varchar2(10);
13: --
14: cursor get_seq is
15: select per_wf_events_s.nextval from dual;
16: --
17: l_proc varchar2(72):=' hr_ex_employee_be4.reverse_terminate_employee_a';
18: begin
19: hr_utility.set_location('Entering: '||l_proc,10);
18: begin
19: hr_utility.set_location('Entering: '||l_proc,10);
20: -- check the status of the business event
21: l_event_name:='oracle.apps.per.api.ex_employee.reverse_terminate_employee';
22: l_message:=wf_event.test(l_event_name);
23: --
24: if (l_message='MESSAGE') then
25: hr_utility.set_location(l_proc,20);
26: --
57: if p_actual_termination_date is not NULL and
58: p_actual_termination_date > trunc(SYSDATE) and
59: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
60: -- raise the event with the event data, with send date set to effective date
61: wf_event.raise(p_event_name=>l_event_name
62: ,p_event_key=>l_event_key
63: ,p_event_data=>l_event_data
64: ,p_send_date => p_actual_termination_date);
65: --
64: ,p_send_date => p_actual_termination_date);
65: --
66: else
67: -- raise the event with the event data
68: wf_event.raise(p_event_name=>l_event_name
69: ,p_event_key=>l_event_key
70: ,p_event_data=>l_event_data);
71: end if;
72: elsif (l_message='KEY') then
79: p_actual_termination_date > trunc(SYSDATE) and
80: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
81: -- this is a key event, so just raise the event
82: -- without the event data, with send date set to effective date
83: wf_event.raise(p_event_name=>l_event_name
84: ,p_event_key=>l_event_key
85: ,p_send_date => p_actual_termination_date);
86: --
87: else
86: --
87: else
88: -- this is a key event, so just raise the event
89: -- without the event data
90: wf_event.raise(p_event_name=>l_event_name
91: ,p_event_key=>l_event_key);
92: end if;
93: elsif (l_message='NONE') then
94: hr_utility.set_location(l_proc,40);