61: select per_wf_events_s.nextval from dual;
62: --
63: l_proc varchar2(72):=' hr_person_address_be2.update_person_address_a';
64: begin
65: hr_utility.set_location('Entering: '||l_proc,10);
66: -- check the status of the business event
67: l_event_name:='oracle.apps.per.api.person_address.update_person_address';
68: l_message:=wf_event.test(l_event_name);
69: --
67: l_event_name:='oracle.apps.per.api.person_address.update_person_address';
68: l_message:=wf_event.test(l_event_name);
69: --
70: if (l_message='MESSAGE') then
71: hr_utility.set_location(l_proc,20);
72: --
73: -- get a key for the event
74: --
75: open get_seq;
292: wf_event.raise(p_event_name=>l_event_name
293: ,p_event_key=>l_event_key
294: ,p_event_data=>l_event_data);
295: elsif (l_message='KEY') then
296: hr_utility.set_location(l_proc,30);
297: -- get a key for the event
298: open get_seq;
299: fetch get_seq into l_event_key;
300: close get_seq;
302: -- without the event data
303: wf_event.raise(p_event_name=>l_event_name
304: ,p_event_key=>l_event_key);
305: elsif (l_message='NONE') then
306: hr_utility.set_location(l_proc,40);
307: -- no event is required, so do nothing
308: null;
309: end if;
310: hr_utility.set_location('Leaving: '||l_proc,50);
306: hr_utility.set_location(l_proc,40);
307: -- no event is required, so do nothing
308: null;
309: end if;
310: hr_utility.set_location('Leaving: '||l_proc,50);
311: end update_person_address_a;
312: end hr_person_address_be2;