40: l_text varchar2(2000);
41: l_message varchar2(10);
42: --
43: cursor get_seq is
44: select per_wf_events_s.nextval from dual;
45: --
46: l_proc varchar2(72):=' hr_delivery_methods_be2.update_delivery_method_a';
47: begin
48: hr_utility.set_location('Entering: '||l_proc,10);
47: begin
48: hr_utility.set_location('Entering: '||l_proc,10);
49: -- check the status of the business event
50: l_event_name:='oracle.apps.per.api.delivery_methods.update_delivery_method';
51: l_message:=wf_event.test(l_event_name);
52: --
53: if (l_message='MESSAGE') then
54: hr_utility.set_location(l_proc,20);
55: --
199: --
200: dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201: --
202: -- raise the event with the event data
203: wf_event.raise(p_event_name=>l_event_name
204: ,p_event_key=>l_event_key
205: ,p_event_data=>l_event_data);
206: elsif (l_message='KEY') then
207: hr_utility.set_location(l_proc,30);
210: fetch get_seq into l_event_key;
211: close get_seq;
212: -- this is a key event, so just raise the event
213: -- without the event data
214: wf_event.raise(p_event_name=>l_event_name
215: ,p_event_key=>l_event_key);
216: elsif (l_message='NONE') then
217: hr_utility.set_location(l_proc,40);
218: -- no event is required, so do nothing