[Home] [Help]
13: l_text varchar2(2000);
14: l_message varchar2(10);
15: --
16: cursor get_seq is
17: select per_wf_events_s.nextval from dual;
18: --
19: l_proc varchar2(72):=' hr_assignment_beD.terminate_apl_asg_a';
20: begin
21: hr_utility.set_location('Entering: '||l_proc,10);
20: begin
21: hr_utility.set_location('Entering: '||l_proc,10);
22: -- check the status of the business event
23: l_event_name:='oracle.apps.per.api.assignment.terminate_apl_asg';
24: l_message:=wf_event.test(l_event_name);
25: --
26: if (l_message='MESSAGE') then
27: hr_utility.set_location(l_proc,20);
28: --
67: if p_effective_start_date is not NULL and
68: p_effective_start_date > trunc(SYSDATE) and
69: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
70: -- raise the event with the event data, with send date set to effective date
71: wf_event.raise(p_event_name=>l_event_name
72: ,p_event_key=>l_event_key
73: ,p_event_data=>l_event_data
74: ,p_send_date => p_effective_start_date);
75: --
74: ,p_send_date => p_effective_start_date);
75: --
76: else
77: -- raise the event with the event data
78: wf_event.raise(p_event_name=>l_event_name
79: ,p_event_key=>l_event_key
80: ,p_event_data=>l_event_data);
81: end if;
82: elsif (l_message='KEY') then
89: p_effective_start_date > trunc(SYSDATE) and
90: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
91: -- this is a key event, so just raise the event
92: -- without the event data, with send date set to effective date
93: wf_event.raise(p_event_name=>l_event_name
94: ,p_event_key=>l_event_key
95: ,p_send_date => p_effective_start_date);
96: --
97: else
96: --
97: else
98: -- this is a key event, so just raise the event
99: -- without the event data
100: wf_event.raise(p_event_name=>l_event_name
101: ,p_event_key=>l_event_key);
102: end if;
103: elsif (l_message='NONE') then
104: hr_utility.set_location(l_proc,40);