[Home] [Help]
88: l_text varchar2(2000);
89: l_message varchar2(10);
90: --
91: cursor get_seq is
92: select per_wf_events_s.nextval from dual;
93: --
94: l_proc varchar2(72):=' irc_party_be1.create_registered_user_a';
95: begin
96: hr_utility.set_location('Entering: '||l_proc,10);
95: begin
96: hr_utility.set_location('Entering: '||l_proc,10);
97: -- check the status of the business event
98: l_event_name:='oracle.apps.per.irc.api.party.create_registered_user';
99: l_message:=wf_event.test(l_event_name);
100: --
101: if (l_message='MESSAGE') then
102: hr_utility.set_location(l_proc,20);
103: --
442: if p_effective_start_date is not NULL and
443: p_effective_start_date > trunc(SYSDATE) and
444: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
445: -- raise the event with the event data, with send date set to effective date
446: wf_event.raise(p_event_name=>l_event_name
447: ,p_event_key=>l_event_key
448: ,p_event_data=>l_event_data
449: ,p_send_date => p_effective_start_date);
450: --
449: ,p_send_date => p_effective_start_date);
450: --
451: else
452: -- raise the event with the event data
453: wf_event.raise(p_event_name=>l_event_name
454: ,p_event_key=>l_event_key
455: ,p_event_data=>l_event_data);
456: end if;
457: elsif (l_message='KEY') then
464: p_effective_start_date > trunc(SYSDATE) and
465: fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
466: -- this is a key event, so just raise the event
467: -- without the event data, with send date set to effective date
468: wf_event.raise(p_event_name=>l_event_name
469: ,p_event_key=>l_event_key
470: ,p_send_date => p_effective_start_date);
471: --
472: else
471: --
472: else
473: -- this is a key event, so just raise the event
474: -- without the event data
475: wf_event.raise(p_event_name=>l_event_name
476: ,p_event_key=>l_event_key);
477: end if;
478: elsif (l_message='NONE') then
479: hr_utility.set_location(l_proc,40);