68: select per_wf_events_s.nextval from dual;
69: --
70: l_proc varchar2(72):=' per_vacancy_be2.update_vacancy_a';
71: begin
72: hr_utility.set_location('Entering: '||l_proc,10);
73: -- check the status of the business event
74: l_event_name:='oracle.apps.per.api.vacancy.update_vacancy';
75: l_message:=wf_event.test(l_event_name);
76: --
74: l_event_name:='oracle.apps.per.api.vacancy.update_vacancy';
75: l_message:=wf_event.test(l_event_name);
76: --
77: if (l_message='MESSAGE') then
78: hr_utility.set_location(l_proc,20);
79: --
80: -- get a key for the event
81: --
82: open get_seq;
336: ,p_event_key=>l_event_key
337: ,p_event_data=>l_event_data);
338: --
339: elsif (l_message='KEY') then
340: hr_utility.set_location(l_proc,30);
341: -- get a key for the event
342: open get_seq;
343: fetch get_seq into l_event_key;
344: close get_seq;
347: wf_event.raise(p_event_name=>l_event_name
348: ,p_event_key=>l_event_key);
349: --
350: elsif (l_message='NONE') then
351: hr_utility.set_location(l_proc,40);
352: -- no event is required, so do nothing
353: null;
354: end if;
355: hr_utility.set_location('Leaving: '||l_proc,50);
351: hr_utility.set_location(l_proc,40);
352: -- no event is required, so do nothing
353: null;
354: end if;
355: hr_utility.set_location('Leaving: '||l_proc,50);
356: end update_vacancy_a;
357: end per_vacancy_be2;