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