84: l_text varchar2(2000);
85: l_message varchar2(10);
86: --
87: cursor get_seq is
88: select per_wf_events_s.nextval from dual;
89: --
90: l_proc varchar2(72):=' hr_organization_be4.update_organization_a';
91: begin
92: hr_utility.set_location('Entering: '||l_proc,10);
91: begin
92: hr_utility.set_location('Entering: '||l_proc,10);
93: -- check the status of the business event
94: l_event_name:='oracle.apps.per.api.organization.update_organization';
95: l_message:=wf_event.test(l_event_name);
96: --
97: if (l_message='MESSAGE') then
98: hr_utility.set_location(l_proc,20);
99: --
423: --
424: dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
425: --
426: -- raise the event with the event data
427: wf_event.raise(p_event_name=>l_event_name
428: ,p_event_key=>l_event_key
429: ,p_event_data=>l_event_data);
430: elsif (l_message='KEY') then
431: hr_utility.set_location(l_proc,30);
434: fetch get_seq into l_event_key;
435: close get_seq;
436: -- this is a key event, so just raise the event
437: -- without the event data
438: wf_event.raise(p_event_name=>l_event_name
439: ,p_event_key=>l_event_key);
440: elsif (l_message='NONE') then
441: hr_utility.set_location(l_proc,40);
442: -- no event is required, so do nothing