1 package body irc_search_criteria_be3 as
2 --Code generated on 06/11/2008 12:45:52
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure delete_saved_search_a (
5 p_search_criteria_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):=' irc_search_criteria_be3.delete_saved_search_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.per.irc.api.search_criteria.delete_saved_search';
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:='<search_criteria>';
38 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
39 --
40 l_text:='<search_criteria_id>';
41 l_text:=l_text||fnd_number.number_to_canonical(p_search_criteria_id);
42 l_text:=l_text||'</search_criteria_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:='</search_criteria>';
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 --
57 elsif (l_message='KEY') then
58 hr_utility.set_location(l_proc,30);
59 -- get a key for the event
60 open get_seq;
61 fetch get_seq into l_event_key;
62 close get_seq;
63 -- this is a key event, so just raise the event
64 -- without the event data
65 wf_event.raise(p_event_name=>l_event_name
66 ,p_event_key=>l_event_key);
67 --
68 elsif (l_message='NONE') then
69 hr_utility.set_location(l_proc,40);
70 -- no event is required, so do nothing
71 null;
72 end if;
73 hr_utility.set_location('Leaving: '||l_proc,50);
74 end delete_saved_search_a;
75 end irc_search_criteria_be3;
[Home] [Help]