[Home] [Help]
148: l_text varchar2(2000);
149: l_message varchar2(10);
150: --
151: cursor get_seq is
152: select per_wf_events_s.nextval from dual;
153: --
154: l_proc varchar2(72):=' hr_employee_be1.create_employee_a';
155: begin
156: hr_utility.set_location('Entering: '||l_proc,10);
155: begin
156: hr_utility.set_location('Entering: '||l_proc,10);
157: -- check the status of the business event
158: l_event_name:='oracle.apps.per.api.employee.create_employee';
159: l_message:=wf_event.test(l_event_name);
160: --
161: if (l_message='MESSAGE') then
162: hr_utility.set_location(l_proc,20);
163: --
754: if p_per_effective_start_date is not NULL and
755: p_per_effective_start_date > trunc(SYSDATE) and
756: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
757: -- raise the event with the event data, with send date set to effective date
758: wf_event.raise(p_event_name=>l_event_name
759: ,p_event_key=>l_event_key
760: ,p_event_data=>l_event_data
761: ,p_send_date => p_per_effective_start_date);
762: --
761: ,p_send_date => p_per_effective_start_date);
762: --
763: else
764: -- raise the event with the event data
765: wf_event.raise(p_event_name=>l_event_name
766: ,p_event_key=>l_event_key
767: ,p_event_data=>l_event_data);
768: end if;
769: elsif (l_message='KEY') then
776: p_per_effective_start_date > trunc(SYSDATE) and
777: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
778: -- this is a key event, so just raise the event
779: -- without the event data, with send date set to effective date
780: wf_event.raise(p_event_name=>l_event_name
781: ,p_event_key=>l_event_key
782: ,p_send_date => p_per_effective_start_date);
783: --
784: else
783: --
784: else
785: -- this is a key event, so just raise the event
786: -- without the event data
787: wf_event.raise(p_event_name=>l_event_name
788: ,p_event_key=>l_event_key);
789: end if;
790: elsif (l_message='NONE') then
791: hr_utility.set_location(l_proc,40);