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