52: select per_wf_events_s.nextval from dual;
53: --
54: l_proc varchar2(72):=' per_requisitions_be1.create_requisition_a';
55: begin
56: hr_utility.set_location('Entering: '||l_proc,10);
57: -- check the status of the business event
58: l_event_name:='oracle.apps.per.api.requisitions.create_requisition';
59: l_message:=wf_event.test(l_event_name);
60: --
58: l_event_name:='oracle.apps.per.api.requisitions.create_requisition';
59: l_message:=wf_event.test(l_event_name);
60: --
61: if (l_message='MESSAGE') then
62: hr_utility.set_location(l_proc,20);
63: --
64: -- get a key for the event
65: --
66: open get_seq;
244: ,p_event_key=>l_event_key
245: ,p_event_data=>l_event_data);
246: --
247: elsif (l_message='KEY') then
248: hr_utility.set_location(l_proc,30);
249: -- get a key for the event
250: open get_seq;
251: fetch get_seq into l_event_key;
252: close get_seq;
255: wf_event.raise(p_event_name=>l_event_name
256: ,p_event_key=>l_event_key);
257: --
258: elsif (l_message='NONE') then
259: hr_utility.set_location(l_proc,40);
260: -- no event is required, so do nothing
261: null;
262: end if;
263: hr_utility.set_location('Leaving: '||l_proc,50);
259: hr_utility.set_location(l_proc,40);
260: -- no event is required, so do nothing
261: null;
262: end if;
263: hr_utility.set_location('Leaving: '||l_proc,50);
264: end create_requisition_a;
265: end per_requisitions_be1;