PACKAGE BODY: APPS.IRC_PROF_AREA_CRITERIA_VAL_BE1

Source

1 package body irc_prof_area_criteria_val_be1 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 create_prof_area_criteria_a (
5 p_effective_date               date,
6 p_prof_area_criteria_value_id  number,
7 p_search_criteria_id           number,
8 p_professional_area            varchar2,
9 p_object_version_number        number) is
10   l_event_key number;
11   l_event_data clob;
12   l_event_name varchar2(250);
13   l_text varchar2(2000);
14   l_message varchar2(10);
15   --
16   cursor get_seq is
17   select per_wf_events_s.nextval from dual;
18   --
19   l_proc varchar2(72):='  irc_prof_area_criteria_val_be1.create_prof_area_criteria_a';
20 begin
21   hr_utility.set_location('Entering: '||l_proc,10);
22   -- check the status of the business event
23   l_event_name:='oracle.apps.per.irc.api.prof_area_criteria_val.create_prof_area_criteria';
24   l_message:=wf_event.test(l_event_name);
25   --
26   if (l_message='MESSAGE') then
27     hr_utility.set_location(l_proc,20);
28     --
29     -- get a key for the event
30     --
31     open get_seq;
32     fetch get_seq into l_event_key;
33     close get_seq;
34     --
35     -- build the xml data for the event
36     --
37     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
38     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
39     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
40     l_text:='<prof_area_criteria_val>';
41     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
42     --
43     l_text:='<effective_date>';
44     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
45     l_text:=l_text||'</effective_date>';
46     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
47     l_text:='<prof_area_criteria_value_id>';
48     l_text:=l_text||fnd_number.number_to_canonical(p_prof_area_criteria_value_id);
49     l_text:=l_text||'</prof_area_criteria_value_id>';
50     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51     l_text:='<search_criteria_id>';
52     l_text:=l_text||fnd_number.number_to_canonical(p_search_criteria_id);
53     l_text:=l_text||'</search_criteria_id>';
54     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55     l_text:='<professional_area>';
56     l_text:=l_text||irc_utilities_pkg.removeTags(p_professional_area);
57     l_text:=l_text||'</professional_area>';
58     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59     l_text:='<object_version_number>';
60     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
61     l_text:=l_text||'</object_version_number>';
62     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63     l_text:='</prof_area_criteria_val>';
64     --
65     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
66     --
67     -- raise the event with the event data
68     wf_event.raise(p_event_name=>l_event_name
69                   ,p_event_key=>l_event_key
70                   ,p_event_data=>l_event_data);
71     --
72   elsif (l_message='KEY') then
73     hr_utility.set_location(l_proc,30);
74     -- get a key for the event
75     open get_seq;
76     fetch get_seq into l_event_key;
77     close get_seq;
78     -- this is a key event, so just raise the event
79     -- without the event data
80     wf_event.raise(p_event_name=>l_event_name
81                   ,p_event_key=>l_event_key);
82     --
83   elsif (l_message='NONE') then
84     hr_utility.set_location(l_proc,40);
85     -- no event is required, so do nothing
86     null;
87   end if;
88     hr_utility.set_location('Leaving: '||l_proc,50);
89 end create_prof_area_criteria_a;
90 end irc_prof_area_criteria_val_be1;