74: l_text varchar2(2000);
75: l_message varchar2(10);
76: --
77: cursor get_seq is
78: select per_wf_events_s.nextval from dual;
79: --
80: l_proc varchar2(72):=' hr_sit_be1.create_sit_a';
81: begin
82: hr_utility.set_location('Entering: '||l_proc,10);
81: begin
82: hr_utility.set_location('Entering: '||l_proc,10);
83: -- check the status of the business event
84: l_event_name:='oracle.apps.per.api.sit.create_sit';
85: l_message:=wf_event.test(l_event_name);
86: --
87: if (l_message='MESSAGE') then
88: hr_utility.set_location(l_proc,20);
89: --
369: --
370: dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
371: --
372: -- raise the event with the event data
373: wf_event.raise(p_event_name=>l_event_name
374: ,p_event_key=>l_event_key
375: ,p_event_data=>l_event_data);
376: elsif (l_message='KEY') then
377: hr_utility.set_location(l_proc,30);
380: fetch get_seq into l_event_key;
381: close get_seq;
382: -- this is a key event, so just raise the event
383: -- without the event data
384: wf_event.raise(p_event_name=>l_event_name
385: ,p_event_key=>l_event_key);
386: elsif (l_message='NONE') then
387: hr_utility.set_location(l_proc,40);
388: -- no event is required, so do nothing