93: l_text varchar2(2000);
94: l_message varchar2(10);
95: --
96: cursor get_seq is
97: select per_wf_events_s.nextval from dual;
98: --
99: l_proc varchar2(72):=' hr_job_api_be2.update_job_a';
100: begin
101: hr_utility.set_location('Entering: '||l_proc,10);
100: begin
101: hr_utility.set_location('Entering: '||l_proc,10);
102: -- check the status of the business event
103: l_event_name:='oracle.apps.per.api.job_api.update_job';
104: l_message:=wf_event.test(l_event_name);
105: --
106: if (l_message='MESSAGE') then
107: hr_utility.set_location(l_proc,20);
108: --
464: --
465: dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
466: --
467: -- raise the event with the event data
468: wf_event.raise(p_event_name=>l_event_name
469: ,p_event_key=>l_event_key
470: ,p_event_data=>l_event_data);
471: elsif (l_message='KEY') then
472: hr_utility.set_location(l_proc,30);
475: fetch get_seq into l_event_key;
476: close get_seq;
477: -- this is a key event, so just raise the event
478: -- without the event data
479: wf_event.raise(p_event_name=>l_event_name
480: ,p_event_key=>l_event_key);
481: elsif (l_message='NONE') then
482: hr_utility.set_location(l_proc,40);
483: -- no event is required, so do nothing