67: l_text varchar2(2000);
68: l_message varchar2(10);
69: --
70: cursor get_seq is
71: select per_wf_events_s.nextval from dual;
72: --
73: l_proc varchar2(72):=' per_vacancy_be1.create_vacancy_a';
74: begin
75: hr_utility.set_location('Entering: '||l_proc,10);
74: begin
75: hr_utility.set_location('Entering: '||l_proc,10);
76: -- check the status of the business event
77: l_event_name:='oracle.apps.per.api.vacancy.create_vacancy';
78: l_message:=wf_event.test(l_event_name);
79: --
80: if (l_message='MESSAGE') then
81: hr_utility.set_location(l_proc,20);
82: --
342: --
343: dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344: --
345: -- raise the event with the event data
346: wf_event.raise(p_event_name=>l_event_name
347: ,p_event_key=>l_event_key
348: ,p_event_data=>l_event_data);
349: elsif (l_message='KEY') then
350: hr_utility.set_location(l_proc,30);
353: fetch get_seq into l_event_key;
354: close get_seq;
355: -- this is a key event, so just raise the event
356: -- without the event data
357: wf_event.raise(p_event_name=>l_event_name
358: ,p_event_key=>l_event_key);
359: elsif (l_message='NONE') then
360: hr_utility.set_location(l_proc,40);
361: -- no event is required, so do nothing