[Home] [Help]
PACKAGE BODY: APPS.HR_PERSON_EXTRA_INFO_BE1
Source
1 package body hr_person_extra_info_be1 as
2 --Code generated on 30/03/2009 04:46:34
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_person_extra_info_a (
5 p_person_extra_info_id number,
6 p_person_id number,
7 p_information_type varchar2,
8 p_pei_attribute_category varchar2,
9 p_pei_attribute1 varchar2,
10 p_pei_attribute2 varchar2,
11 p_pei_attribute3 varchar2,
12 p_pei_attribute4 varchar2,
13 p_pei_attribute5 varchar2,
14 p_pei_attribute6 varchar2,
15 p_pei_attribute7 varchar2,
16 p_pei_attribute8 varchar2,
17 p_pei_attribute9 varchar2,
18 p_pei_attribute10 varchar2,
19 p_pei_attribute11 varchar2,
20 p_pei_attribute12 varchar2,
21 p_pei_attribute13 varchar2,
22 p_pei_attribute14 varchar2,
23 p_pei_attribute15 varchar2,
24 p_pei_attribute16 varchar2,
25 p_pei_attribute17 varchar2,
26 p_pei_attribute18 varchar2,
27 p_pei_attribute19 varchar2,
28 p_pei_attribute20 varchar2,
29 p_pei_information_category varchar2,
30 p_pei_information1 varchar2,
31 p_pei_information2 varchar2,
32 p_pei_information3 varchar2,
33 p_pei_information4 varchar2,
34 p_pei_information5 varchar2,
35 p_pei_information6 varchar2,
36 p_pei_information7 varchar2,
37 p_pei_information8 varchar2,
38 p_pei_information9 varchar2,
39 p_pei_information10 varchar2,
40 p_pei_information11 varchar2,
41 p_pei_information12 varchar2,
42 p_pei_information13 varchar2,
43 p_pei_information14 varchar2,
44 p_pei_information15 varchar2,
45 p_pei_information16 varchar2,
46 p_pei_information17 varchar2,
47 p_pei_information18 varchar2,
48 p_pei_information19 varchar2,
49 p_pei_information20 varchar2,
50 p_pei_information21 varchar2,
51 p_pei_information22 varchar2,
52 p_pei_information23 varchar2,
53 p_pei_information24 varchar2,
54 p_pei_information25 varchar2,
55 p_pei_information26 varchar2,
56 p_pei_information27 varchar2,
57 p_pei_information28 varchar2,
58 p_pei_information29 varchar2,
59 p_pei_information30 varchar2,
60 p_object_version_number number) is
61 l_event_key number;
62 l_event_data clob;
63 l_event_name varchar2(250);
64 l_text varchar2(2000);
65 l_message varchar2(10);
66 --
67 cursor get_seq is
68 select per_wf_events_s.nextval from dual;
69 --
70 l_proc varchar2(72):=' hr_person_extra_info_be1.create_person_extra_info_a';
71 begin
72 hr_utility.set_location('Entering: '||l_proc,10);
73 -- check the status of the business event
74 l_event_name:='oracle.apps.per.api.person_extra_info.create_person_extra_info';
75 l_message:=wf_event.test(l_event_name);
76 --
77 if (l_message='MESSAGE') then
78 hr_utility.set_location(l_proc,20);
79 --
80 -- get a key for the event
81 --
82 open get_seq;
83 fetch get_seq into l_event_key;
84 close get_seq;
85 --
86 -- build the xml data for the event
87 --
88 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
89 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
90 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
91 l_text:='<person_extra_info>';
92 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93 --
94 l_text:='<person_extra_info_id>';
95 l_text:=l_text||fnd_number.number_to_canonical(p_person_extra_info_id);
96 l_text:=l_text||'</person_extra_info_id>';
97 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
98 l_text:='<person_id>';
99 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
100 l_text:=l_text||'</person_id>';
101 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
102 l_text:='<information_type>';
103 l_text:=l_text||irc_utilities_pkg.removeTags(p_information_type);
104 l_text:=l_text||'</information_type>';
105 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
106 l_text:='<pei_attribute_category>';
107 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute_category);
108 l_text:=l_text||'</pei_attribute_category>';
109 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
110 l_text:='<pei_attribute1>';
111 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute1);
112 l_text:=l_text||'</pei_attribute1>';
113 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
114 l_text:='<pei_attribute2>';
115 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute2);
116 l_text:=l_text||'</pei_attribute2>';
117 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
118 l_text:='<pei_attribute3>';
119 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute3);
120 l_text:=l_text||'</pei_attribute3>';
121 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
122 l_text:='<pei_attribute4>';
123 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute4);
124 l_text:=l_text||'</pei_attribute4>';
125 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126 l_text:='<pei_attribute5>';
127 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute5);
128 l_text:=l_text||'</pei_attribute5>';
129 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
130 l_text:='<pei_attribute6>';
131 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute6);
132 l_text:=l_text||'</pei_attribute6>';
133 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
134 l_text:='<pei_attribute7>';
135 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute7);
136 l_text:=l_text||'</pei_attribute7>';
137 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
138 l_text:='<pei_attribute8>';
139 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute8);
140 l_text:=l_text||'</pei_attribute8>';
141 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
142 l_text:='<pei_attribute9>';
143 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute9);
144 l_text:=l_text||'</pei_attribute9>';
145 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146 l_text:='<pei_attribute10>';
147 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute10);
148 l_text:=l_text||'</pei_attribute10>';
149 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
150 l_text:='<pei_attribute11>';
151 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute11);
152 l_text:=l_text||'</pei_attribute11>';
153 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
154 l_text:='<pei_attribute12>';
155 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute12);
156 l_text:=l_text||'</pei_attribute12>';
157 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
158 l_text:='<pei_attribute13>';
159 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute13);
160 l_text:=l_text||'</pei_attribute13>';
161 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
162 l_text:='<pei_attribute14>';
163 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute14);
164 l_text:=l_text||'</pei_attribute14>';
165 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
166 l_text:='<pei_attribute15>';
167 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute15);
168 l_text:=l_text||'</pei_attribute15>';
169 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
170 l_text:='<pei_attribute16>';
171 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute16);
172 l_text:=l_text||'</pei_attribute16>';
173 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
174 l_text:='<pei_attribute17>';
175 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute17);
176 l_text:=l_text||'</pei_attribute17>';
177 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
178 l_text:='<pei_attribute18>';
179 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute18);
180 l_text:=l_text||'</pei_attribute18>';
181 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182 l_text:='<pei_attribute19>';
183 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute19);
184 l_text:=l_text||'</pei_attribute19>';
185 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186 l_text:='<pei_attribute20>';
187 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_attribute20);
188 l_text:=l_text||'</pei_attribute20>';
189 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190 l_text:='<pei_information_category>';
191 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information_category);
192 l_text:=l_text||'</pei_information_category>';
193 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194 l_text:='<pei_information1>';
195 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information1);
196 l_text:=l_text||'</pei_information1>';
197 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198 l_text:='<pei_information2>';
199 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information2);
200 l_text:=l_text||'</pei_information2>';
201 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202 l_text:='<pei_information3>';
203 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information3);
204 l_text:=l_text||'</pei_information3>';
205 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206 l_text:='<pei_information4>';
207 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information4);
208 l_text:=l_text||'</pei_information4>';
209 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210 l_text:='<pei_information5>';
211 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information5);
212 l_text:=l_text||'</pei_information5>';
213 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214 l_text:='<pei_information6>';
215 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information6);
216 l_text:=l_text||'</pei_information6>';
217 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218 l_text:='<pei_information7>';
219 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information7);
220 l_text:=l_text||'</pei_information7>';
221 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222 l_text:='<pei_information8>';
223 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information8);
224 l_text:=l_text||'</pei_information8>';
225 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226 l_text:='<pei_information9>';
227 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information9);
228 l_text:=l_text||'</pei_information9>';
229 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230 l_text:='<pei_information10>';
231 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information10);
232 l_text:=l_text||'</pei_information10>';
233 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234 l_text:='<pei_information11>';
235 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information11);
236 l_text:=l_text||'</pei_information11>';
237 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238 l_text:='<pei_information12>';
239 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information12);
240 l_text:=l_text||'</pei_information12>';
241 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242 l_text:='<pei_information13>';
243 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information13);
244 l_text:=l_text||'</pei_information13>';
245 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246 l_text:='<pei_information14>';
247 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information14);
248 l_text:=l_text||'</pei_information14>';
249 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250 l_text:='<pei_information15>';
251 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information15);
252 l_text:=l_text||'</pei_information15>';
253 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254 l_text:='<pei_information16>';
255 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information16);
256 l_text:=l_text||'</pei_information16>';
257 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258 l_text:='<pei_information17>';
259 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information17);
260 l_text:=l_text||'</pei_information17>';
261 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262 l_text:='<pei_information18>';
263 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information18);
264 l_text:=l_text||'</pei_information18>';
265 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266 l_text:='<pei_information19>';
267 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information19);
268 l_text:=l_text||'</pei_information19>';
269 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270 l_text:='<pei_information20>';
271 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information20);
272 l_text:=l_text||'</pei_information20>';
273 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274 l_text:='<pei_information21>';
275 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information21);
276 l_text:=l_text||'</pei_information21>';
277 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278 l_text:='<pei_information22>';
279 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information22);
280 l_text:=l_text||'</pei_information22>';
281 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282 l_text:='<pei_information23>';
283 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information23);
284 l_text:=l_text||'</pei_information23>';
285 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286 l_text:='<pei_information24>';
287 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information24);
288 l_text:=l_text||'</pei_information24>';
289 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290 l_text:='<pei_information25>';
291 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information25);
292 l_text:=l_text||'</pei_information25>';
293 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294 l_text:='<pei_information26>';
295 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information26);
296 l_text:=l_text||'</pei_information26>';
297 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298 l_text:='<pei_information27>';
299 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information27);
300 l_text:=l_text||'</pei_information27>';
301 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302 l_text:='<pei_information28>';
303 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information28);
304 l_text:=l_text||'</pei_information28>';
305 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306 l_text:='<pei_information29>';
307 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information29);
308 l_text:=l_text||'</pei_information29>';
309 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310 l_text:='<pei_information30>';
311 l_text:=l_text||irc_utilities_pkg.removeTags(p_pei_information30);
312 l_text:=l_text||'</pei_information30>';
313 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314 l_text:='<object_version_number>';
315 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
316 l_text:=l_text||'</object_version_number>';
317 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318 l_text:='</person_extra_info>';
319 --
320 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
321 --
322 -- raise the event with the event data
323 wf_event.raise(p_event_name=>l_event_name
324 ,p_event_key=>l_event_key
325 ,p_event_data=>l_event_data);
326 elsif (l_message='KEY') then
327 hr_utility.set_location(l_proc,30);
328 -- get a key for the event
329 open get_seq;
330 fetch get_seq into l_event_key;
331 close get_seq;
332 -- this is a key event, so just raise the event
333 -- without the event data
334 wf_event.raise(p_event_name=>l_event_name
335 ,p_event_key=>l_event_key);
336 elsif (l_message='NONE') then
337 hr_utility.set_location(l_proc,40);
338 -- no event is required, so do nothing
339 null;
340 end if;
341 hr_utility.set_location('Leaving: '||l_proc,50);
342 end create_person_extra_info_a;
343 end hr_person_extra_info_be1;