1 package body irc_pending_data_be3 as
2 --Code generated on 06/11/2008 12:45:43
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure delete_pending_data_a (
5 p_pending_data_id number) is
6 l_event_key number;
7 l_event_data clob;
8 l_event_name varchar2(250);
9 l_text varchar2(2000);
10 l_message varchar2(10);
11 --
12 cursor get_seq is
13 select per_wf_events_s.nextval from dual;
14 --
15 l_proc varchar2(72):=' irc_pending_data_be3.delete_pending_data_a';
16 begin
17 hr_utility.set_location('Entering: '||l_proc,10);
18 -- check the status of the business event
19 l_event_name:='oracle.apps.per.irc.api.pending_data.delete_pending_data';
20 l_message:=wf_event.test(l_event_name);
21 --
22 if (l_message='MESSAGE') then
23 hr_utility.set_location(l_proc,20);
24 --
25 -- get a key for the event
26 --
27 open get_seq;
28 fetch get_seq into l_event_key;
29 close get_seq;
30 --
31 -- build the xml data for the event
32 --
33 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
34 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
35 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
36 l_text:='<pending_data>';
37 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
38 --
39 l_text:='<pending_data_id>';
40 l_text:=l_text||fnd_number.number_to_canonical(p_pending_data_id);
41 l_text:=l_text||'</pending_data_id>';
42 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
43 l_text:='</pending_data>';
44 --
45 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
46 --
47 -- raise the event with the event data
48 wf_event.raise(p_event_name=>l_event_name
49 ,p_event_key=>l_event_key
50 ,p_event_data=>l_event_data);
51 --
52 elsif (l_message='KEY') then
53 hr_utility.set_location(l_proc,30);
54 -- get a key for the event
55 open get_seq;
56 fetch get_seq into l_event_key;
57 close get_seq;
58 -- this is a key event, so just raise the event
59 -- without the event data
60 wf_event.raise(p_event_name=>l_event_name
61 ,p_event_key=>l_event_key);
62 --
63 elsif (l_message='NONE') then
64 hr_utility.set_location(l_proc,40);
65 -- no event is required, so do nothing
66 null;
67 end if;
68 hr_utility.set_location('Leaving: '||l_proc,50);
69 end delete_pending_data_a;
70 end irc_pending_data_be3;