70: select per_wf_events_s.nextval from dual;
71: --
72: l_proc varchar2(72):=' per_vacancy_be1.create_vacancy_a';
73: begin
74: hr_utility.set_location('Entering: '||l_proc,10);
75: -- check the status of the business event
76: l_event_name:='oracle.apps.per.api.vacancy.create_vacancy';
77: l_message:=wf_event.test(l_event_name);
78: --
76: l_event_name:='oracle.apps.per.api.vacancy.create_vacancy';
77: l_message:=wf_event.test(l_event_name);
78: --
79: if (l_message='MESSAGE') then
80: hr_utility.set_location(l_proc,20);
81: --
82: -- get a key for the event
83: --
84: open get_seq;
342: ,p_event_key=>l_event_key
343: ,p_event_data=>l_event_data);
344: --
345: elsif (l_message='KEY') then
346: hr_utility.set_location(l_proc,30);
347: -- get a key for the event
348: open get_seq;
349: fetch get_seq into l_event_key;
350: close get_seq;
353: wf_event.raise(p_event_name=>l_event_name
354: ,p_event_key=>l_event_key);
355: --
356: elsif (l_message='NONE') then
357: hr_utility.set_location(l_proc,40);
358: -- no event is required, so do nothing
359: null;
360: end if;
361: hr_utility.set_location('Leaving: '||l_proc,50);
357: hr_utility.set_location(l_proc,40);
358: -- no event is required, so do nothing
359: null;
360: end if;
361: hr_utility.set_location('Leaving: '||l_proc,50);
362: end create_vacancy_a;
363: end per_vacancy_be1;