DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_COMPETENCE_ELEMENT_BE3

Source


1 package body hr_competence_element_be3 as 
2 --Code generated on 03/01/2007 10:48:43
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure update_personal_comp_element_a (
5 p_competence_element_id        number,
6 p_object_version_number        number,
7 p_proficiency_level_id         number,
8 p_effective_date_from          date,
9 p_effective_date_to            date,
10 p_source_of_proficiency_level  varchar2,
11 p_certification_date           date,
12 p_certification_method         varchar2,
13 p_next_certification_date      date,
14 p_comments                     varchar2,
15 p_attribute_category           varchar2,
16 p_attribute1                   varchar2,
17 p_attribute2                   varchar2,
18 p_attribute3                   varchar2,
19 p_attribute4                   varchar2,
20 p_attribute5                   varchar2,
21 p_attribute6                   varchar2,
22 p_attribute7                   varchar2,
23 p_attribute8                   varchar2,
24 p_attribute9                   varchar2,
25 p_attribute10                  varchar2,
26 p_attribute11                  varchar2,
27 p_attribute12                  varchar2,
28 p_attribute13                  varchar2,
29 p_attribute14                  varchar2,
30 p_attribute15                  varchar2,
31 p_attribute16                  varchar2,
32 p_attribute17                  varchar2,
33 p_attribute18                  varchar2,
34 p_attribute19                  varchar2,
35 p_attribute20                  varchar2,
36 p_effective_date               date,
37 p_ins_ovn                      number,
38 p_ins_comp_id                  number) is
39   l_event_key number;
40   l_event_data clob;
41   l_event_name varchar2(250);
42   l_text varchar2(2000);
43   l_message varchar2(10);
44   --
45   cursor get_seq is
46   select per_wf_events_s.nextval from dual;
47   --
48   l_proc varchar2(72):='  hr_competence_element_be3.update_personal_comp_element_a';
49 begin
50   hr_utility.set_location('Entering: '||l_proc,10);
51   -- check the status of the business event
52   l_event_name:='oracle.apps.per.api.competence_element.update_personal_comp_element';
53   l_message:=wf_event.test(l_event_name);
54   --
55   if (l_message='MESSAGE') then
56     hr_utility.set_location(l_proc,20);
57     --
58     -- get a key for the event
59     --
60     open get_seq;
61     fetch get_seq into l_event_key;
62     close get_seq;
63     --
64     -- build the xml data for the event
65     --
66     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
67     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
68     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
69     l_text:='<competence_element>';
70     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71     --
72     l_text:='<competence_element_id>';
73     l_text:=l_text||fnd_number.number_to_canonical(p_competence_element_id);
74     l_text:=l_text||'</competence_element_id>';
75     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
76     l_text:='<object_version_number>';
77     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
78     l_text:=l_text||'</object_version_number>';
79     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
80     l_text:='<proficiency_level_id>';
81     l_text:=l_text||fnd_number.number_to_canonical(p_proficiency_level_id);
82     l_text:=l_text||'</proficiency_level_id>';
83     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
84     l_text:='<effective_date_from>';
85     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date_from);
86     l_text:=l_text||'</effective_date_from>';
87     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
88     l_text:='<effective_date_to>';
89     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date_to);
90     l_text:=l_text||'</effective_date_to>';
91     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
92     l_text:='<source_of_proficiency_level>';
93     l_text:=l_text||irc_utilities_pkg.removeTags(p_source_of_proficiency_level);
94     l_text:=l_text||'</source_of_proficiency_level>';
95     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
96     l_text:='<certification_date>';
97     l_text:=l_text||fnd_date.date_to_canonical(p_certification_date);
98     l_text:=l_text||'</certification_date>';
99     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
100     l_text:='<certification_method>';
101     l_text:=l_text||irc_utilities_pkg.removeTags(p_certification_method);
102     l_text:=l_text||'</certification_method>';
103     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
104     l_text:='<next_certification_date>';
105     l_text:=l_text||fnd_date.date_to_canonical(p_next_certification_date);
106     l_text:=l_text||'</next_certification_date>';
107     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
108     l_text:='<comments>';
109     l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
110     l_text:=l_text||'</comments>';
111     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
112     l_text:='<attribute_category>';
113     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
114     l_text:=l_text||'</attribute_category>';
115     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
116     l_text:='<attribute1>';
117     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
118     l_text:=l_text||'</attribute1>';
119     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120     l_text:='<attribute2>';
121     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
122     l_text:=l_text||'</attribute2>';
123     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124     l_text:='<attribute3>';
125     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
126     l_text:=l_text||'</attribute3>';
127     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128     l_text:='<attribute4>';
129     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
130     l_text:=l_text||'</attribute4>';
131     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132     l_text:='<attribute5>';
133     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
134     l_text:=l_text||'</attribute5>';
135     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136     l_text:='<attribute6>';
137     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
138     l_text:=l_text||'</attribute6>';
139     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140     l_text:='<attribute7>';
141     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
142     l_text:=l_text||'</attribute7>';
143     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144     l_text:='<attribute8>';
145     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
146     l_text:=l_text||'</attribute8>';
147     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148     l_text:='<attribute9>';
149     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
150     l_text:=l_text||'</attribute9>';
151     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152     l_text:='<attribute10>';
153     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
154     l_text:=l_text||'</attribute10>';
155     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156     l_text:='<attribute11>';
157     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
158     l_text:=l_text||'</attribute11>';
159     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160     l_text:='<attribute12>';
161     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
162     l_text:=l_text||'</attribute12>';
163     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164     l_text:='<attribute13>';
165     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
166     l_text:=l_text||'</attribute13>';
167     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168     l_text:='<attribute14>';
169     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
170     l_text:=l_text||'</attribute14>';
171     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172     l_text:='<attribute15>';
173     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
174     l_text:=l_text||'</attribute15>';
175     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176     l_text:='<attribute16>';
177     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
178     l_text:=l_text||'</attribute16>';
179     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180     l_text:='<attribute17>';
181     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
182     l_text:=l_text||'</attribute17>';
183     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184     l_text:='<attribute18>';
185     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
186     l_text:=l_text||'</attribute18>';
187     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188     l_text:='<attribute19>';
189     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
190     l_text:=l_text||'</attribute19>';
191     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192     l_text:='<attribute20>';
193     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
194     l_text:=l_text||'</attribute20>';
195     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196     l_text:='<effective_date>';
197     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
198     l_text:=l_text||'</effective_date>';
199     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200     l_text:='<ins_ovn>';
201     l_text:=l_text||fnd_number.number_to_canonical(p_ins_ovn);
202     l_text:=l_text||'</ins_ovn>';
203     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204     l_text:='<ins_comp_id>';
205     l_text:=l_text||fnd_number.number_to_canonical(p_ins_comp_id);
206     l_text:=l_text||'</ins_comp_id>';
207     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208     l_text:='</competence_element>';
209     --
210     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
211     --
212     -- raise the event with the event data
213     wf_event.raise(p_event_name=>l_event_name
214                   ,p_event_key=>l_event_key
215                   ,p_event_data=>l_event_data);
216     --
217   elsif (l_message='KEY') then
218     hr_utility.set_location(l_proc,30);
219     -- get a key for the event
220     open get_seq;
221     fetch get_seq into l_event_key;
222     close get_seq;
223     -- this is a key event, so just raise the event
224     -- without the event data
225     wf_event.raise(p_event_name=>l_event_name
226                   ,p_event_key=>l_event_key);
227     --
228   elsif (l_message='NONE') then
229     hr_utility.set_location(l_proc,40);
230     -- no event is required, so do nothing
231     null;
232   end if;
233     hr_utility.set_location('Leaving: '||l_proc,50);
234 end update_personal_comp_element_a;
235 end hr_competence_element_be3;