25: select per_wf_events_s.nextval from dual;
26: --
27: l_proc varchar2(72):=' hr_competence_element_be5.maintain_student_comp_elemen_a';
28: begin
29: hr_utility.set_location('Entering: '||l_proc,10);
30: -- check the status of the business event
31: l_event_name:='oracle.apps.per.api.competence_element.maintain_student_comp_elemen';
32: l_message:=wf_event.test(l_event_name);
33: --
31: l_event_name:='oracle.apps.per.api.competence_element.maintain_student_comp_elemen';
32: l_message:=wf_event.test(l_event_name);
33: --
34: if (l_message='MESSAGE') then
35: hr_utility.set_location(l_proc,20);
36: --
37: -- get a key for the event
38: --
39: open get_seq;
109: ,p_event_key=>l_event_key
110: ,p_event_data=>l_event_data);
111: --
112: elsif (l_message='KEY') then
113: hr_utility.set_location(l_proc,30);
114: -- get a key for the event
115: open get_seq;
116: fetch get_seq into l_event_key;
117: close get_seq;
120: wf_event.raise(p_event_name=>l_event_name
121: ,p_event_key=>l_event_key);
122: --
123: elsif (l_message='NONE') then
124: hr_utility.set_location(l_proc,40);
125: -- no event is required, so do nothing
126: null;
127: end if;
128: hr_utility.set_location('Leaving: '||l_proc,50);
124: hr_utility.set_location(l_proc,40);
125: -- no event is required, so do nothing
126: null;
127: end if;
128: hr_utility.set_location('Leaving: '||l_proc,50);
129: end maintain_student_comp_elemen_a;
130: end hr_competence_element_be5;