[Home] [Help]
18: l_text varchar2(2000);
19: l_message varchar2(10);
20: --
21: cursor get_seq is
22: select per_wf_events_s.nextval from dual;
23: --
24: l_proc varchar2(72):=' hr_assignment_be4.actual_termination_emp_asg_a';
25: begin
26: hr_utility.set_location('Entering: '||l_proc,10);
25: begin
26: hr_utility.set_location('Entering: '||l_proc,10);
27: -- check the status of the business event
28: l_event_name:='oracle.apps.per.api.assignment.actual_termination_emp_asg';
29: l_message:=wf_event.test(l_event_name);
30: --
31: if (l_message='MESSAGE') then
32: hr_utility.set_location(l_proc,20);
33: --
100: if p_effective_start_date is not NULL and
101: p_effective_start_date > trunc(SYSDATE) and
102: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
103: -- raise the event with the event data, with send date set to effective date
104: wf_event.raise(p_event_name=>l_event_name
105: ,p_event_key=>l_event_key
106: ,p_event_data=>l_event_data
107: ,p_send_date => p_effective_start_date);
108: --
107: ,p_send_date => p_effective_start_date);
108: --
109: else
110: -- raise the event with the event data
111: wf_event.raise(p_event_name=>l_event_name
112: ,p_event_key=>l_event_key
113: ,p_event_data=>l_event_data);
114: end if;
115: elsif (l_message='KEY') then
122: p_effective_start_date > trunc(SYSDATE) and
123: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
124: -- this is a key event, so just raise the event
125: -- without the event data, with send date set to effective date
126: wf_event.raise(p_event_name=>l_event_name
127: ,p_event_key=>l_event_key
128: ,p_send_date => p_effective_start_date);
129: --
130: else
129: --
130: else
131: -- this is a key event, so just raise the event
132: -- without the event data
133: wf_event.raise(p_event_name=>l_event_name
134: ,p_event_key=>l_event_key);
135: end if;
136: elsif (l_message='NONE') then
137: hr_utility.set_location(l_proc,40);