[Home] [Help]
PACKAGE BODY: APPS.HR_PREVIOUS_EMPLOYMENT_BE1
Source
1 package body hr_previous_employment_be1 as
2 --Code generated on 30/03/2009 04:46:32
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_previous_employer_a (
5 p_effective_date date,
6 p_previous_employer_id number,
7 p_business_group_id number,
8 p_person_id number,
9 p_party_id number,
10 p_start_date date,
11 p_end_date date,
12 p_period_years number,
13 p_period_months number,
14 p_period_days number,
15 p_employer_name varchar2,
16 p_employer_country varchar2,
17 p_employer_address varchar2,
18 p_employer_type varchar2,
19 p_employer_subtype varchar2,
20 p_description varchar2,
21 p_all_assignments varchar2,
22 p_pem_attribute_category varchar2,
23 p_pem_attribute1 varchar2,
24 p_pem_attribute2 varchar2,
25 p_pem_attribute3 varchar2,
26 p_pem_attribute4 varchar2,
27 p_pem_attribute5 varchar2,
28 p_pem_attribute6 varchar2,
29 p_pem_attribute7 varchar2,
30 p_pem_attribute8 varchar2,
31 p_pem_attribute9 varchar2,
32 p_pem_attribute10 varchar2,
33 p_pem_attribute11 varchar2,
34 p_pem_attribute12 varchar2,
35 p_pem_attribute13 varchar2,
36 p_pem_attribute14 varchar2,
37 p_pem_attribute15 varchar2,
38 p_pem_attribute16 varchar2,
39 p_pem_attribute17 varchar2,
40 p_pem_attribute18 varchar2,
41 p_pem_attribute19 varchar2,
42 p_pem_attribute20 varchar2,
43 p_pem_attribute21 varchar2,
44 p_pem_attribute22 varchar2,
45 p_pem_attribute23 varchar2,
46 p_pem_attribute24 varchar2,
47 p_pem_attribute25 varchar2,
48 p_pem_attribute26 varchar2,
49 p_pem_attribute27 varchar2,
50 p_pem_attribute28 varchar2,
51 p_pem_attribute29 varchar2,
52 p_pem_attribute30 varchar2,
53 p_pem_information_category varchar2,
54 p_pem_information1 varchar2,
55 p_pem_information2 varchar2,
56 p_pem_information3 varchar2,
57 p_pem_information4 varchar2,
58 p_pem_information5 varchar2,
59 p_pem_information6 varchar2,
60 p_pem_information7 varchar2,
61 p_pem_information8 varchar2,
62 p_pem_information9 varchar2,
63 p_pem_information10 varchar2,
64 p_pem_information11 varchar2,
65 p_pem_information12 varchar2,
66 p_pem_information13 varchar2,
67 p_pem_information14 varchar2,
68 p_pem_information15 varchar2,
69 p_pem_information16 varchar2,
70 p_pem_information17 varchar2,
71 p_pem_information18 varchar2,
72 p_pem_information19 varchar2,
73 p_pem_information20 varchar2,
74 p_pem_information21 varchar2,
75 p_pem_information22 varchar2,
76 p_pem_information23 varchar2,
77 p_pem_information24 varchar2,
78 p_pem_information25 varchar2,
79 p_pem_information26 varchar2,
80 p_pem_information27 varchar2,
81 p_pem_information28 varchar2,
82 p_pem_information29 varchar2,
83 p_pem_information30 varchar2,
84 p_object_version_number number) is
85 l_event_key number;
86 l_event_data clob;
87 l_event_name varchar2(250);
88 l_text varchar2(2000);
89 l_message varchar2(10);
90 --
91 cursor get_seq is
92 select per_wf_events_s.nextval from dual;
93 --
94 l_proc varchar2(72):=' hr_previous_employment_be1.create_previous_employer_a';
95 begin
96 hr_utility.set_location('Entering: '||l_proc,10);
97 -- check the status of the business event
98 l_event_name:='oracle.apps.per.api.previous_employment.create_previous_employer';
99 l_message:=wf_event.test(l_event_name);
100 --
101 if (l_message='MESSAGE') then
102 hr_utility.set_location(l_proc,20);
103 --
104 -- get a key for the event
105 --
106 open get_seq;
107 fetch get_seq into l_event_key;
108 close get_seq;
109 --
110 -- build the xml data for the event
111 --
112 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
113 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
114 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
115 l_text:='<previous_employment>';
116 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117 --
118 l_text:='<effective_date>';
119 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
120 l_text:=l_text||'</effective_date>';
121 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
122 l_text:='<previous_employer_id>';
123 l_text:=l_text||fnd_number.number_to_canonical(p_previous_employer_id);
124 l_text:=l_text||'</previous_employer_id>';
125 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126 l_text:='<business_group_id>';
127 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
128 l_text:=l_text||'</business_group_id>';
129 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
130 l_text:='<person_id>';
131 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
132 l_text:=l_text||'</person_id>';
133 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
134 l_text:='<party_id>';
135 l_text:=l_text||fnd_number.number_to_canonical(p_party_id);
136 l_text:=l_text||'</party_id>';
137 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
138 l_text:='<start_date>';
139 l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
140 l_text:=l_text||'</start_date>';
141 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
142 l_text:='<end_date>';
143 l_text:=l_text||fnd_date.date_to_canonical(p_end_date);
144 l_text:=l_text||'</end_date>';
145 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146 l_text:='<period_years>';
147 l_text:=l_text||fnd_number.number_to_canonical(p_period_years);
148 l_text:=l_text||'</period_years>';
149 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
150 l_text:='<period_months>';
151 l_text:=l_text||fnd_number.number_to_canonical(p_period_months);
152 l_text:=l_text||'</period_months>';
153 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
154 l_text:='<period_days>';
155 l_text:=l_text||fnd_number.number_to_canonical(p_period_days);
156 l_text:=l_text||'</period_days>';
157 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
158 l_text:='<employer_name>';
159 l_text:=l_text||irc_utilities_pkg.removeTags(p_employer_name);
160 l_text:=l_text||'</employer_name>';
161 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
162 l_text:='<employer_country>';
163 l_text:=l_text||irc_utilities_pkg.removeTags(p_employer_country);
164 l_text:=l_text||'</employer_country>';
165 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
166 l_text:='<employer_address>';
167 l_text:=l_text||irc_utilities_pkg.removeTags(p_employer_address);
168 l_text:=l_text||'</employer_address>';
169 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
170 l_text:='<employer_type>';
171 l_text:=l_text||irc_utilities_pkg.removeTags(p_employer_type);
172 l_text:=l_text||'</employer_type>';
173 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
174 l_text:='<employer_subtype>';
175 l_text:=l_text||irc_utilities_pkg.removeTags(p_employer_subtype);
176 l_text:=l_text||'</employer_subtype>';
177 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
178 l_text:='<description>';
179 l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
180 l_text:=l_text||'</description>';
181 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182 l_text:='<all_assignments>';
183 l_text:=l_text||irc_utilities_pkg.removeTags(p_all_assignments);
184 l_text:=l_text||'</all_assignments>';
185 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186 l_text:='<pem_attribute_category>';
187 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute_category);
188 l_text:=l_text||'</pem_attribute_category>';
189 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190 l_text:='<pem_attribute1>';
191 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute1);
192 l_text:=l_text||'</pem_attribute1>';
193 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194 l_text:='<pem_attribute2>';
195 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute2);
196 l_text:=l_text||'</pem_attribute2>';
197 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198 l_text:='<pem_attribute3>';
199 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute3);
200 l_text:=l_text||'</pem_attribute3>';
201 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202 l_text:='<pem_attribute4>';
203 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute4);
204 l_text:=l_text||'</pem_attribute4>';
205 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206 l_text:='<pem_attribute5>';
207 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute5);
208 l_text:=l_text||'</pem_attribute5>';
209 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210 l_text:='<pem_attribute6>';
211 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute6);
212 l_text:=l_text||'</pem_attribute6>';
213 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214 l_text:='<pem_attribute7>';
215 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute7);
216 l_text:=l_text||'</pem_attribute7>';
217 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218 l_text:='<pem_attribute8>';
219 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute8);
220 l_text:=l_text||'</pem_attribute8>';
221 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222 l_text:='<pem_attribute9>';
223 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute9);
224 l_text:=l_text||'</pem_attribute9>';
225 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226 l_text:='<pem_attribute10>';
227 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute10);
228 l_text:=l_text||'</pem_attribute10>';
229 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230 l_text:='<pem_attribute11>';
231 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute11);
232 l_text:=l_text||'</pem_attribute11>';
233 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234 l_text:='<pem_attribute12>';
235 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute12);
236 l_text:=l_text||'</pem_attribute12>';
237 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238 l_text:='<pem_attribute13>';
239 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute13);
240 l_text:=l_text||'</pem_attribute13>';
241 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242 l_text:='<pem_attribute14>';
243 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute14);
244 l_text:=l_text||'</pem_attribute14>';
245 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246 l_text:='<pem_attribute15>';
247 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute15);
248 l_text:=l_text||'</pem_attribute15>';
249 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250 l_text:='<pem_attribute16>';
251 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute16);
252 l_text:=l_text||'</pem_attribute16>';
253 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254 l_text:='<pem_attribute17>';
255 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute17);
256 l_text:=l_text||'</pem_attribute17>';
257 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258 l_text:='<pem_attribute18>';
259 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute18);
260 l_text:=l_text||'</pem_attribute18>';
261 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262 l_text:='<pem_attribute19>';
263 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute19);
264 l_text:=l_text||'</pem_attribute19>';
265 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266 l_text:='<pem_attribute20>';
267 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute20);
268 l_text:=l_text||'</pem_attribute20>';
269 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270 l_text:='<pem_attribute21>';
271 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute21);
272 l_text:=l_text||'</pem_attribute21>';
273 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274 l_text:='<pem_attribute22>';
275 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute22);
276 l_text:=l_text||'</pem_attribute22>';
277 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278 l_text:='<pem_attribute23>';
279 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute23);
283 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute24);
280 l_text:=l_text||'</pem_attribute23>';
281 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282 l_text:='<pem_attribute24>';
284 l_text:=l_text||'</pem_attribute24>';
285 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286 l_text:='<pem_attribute25>';
287 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute25);
288 l_text:=l_text||'</pem_attribute25>';
289 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290 l_text:='<pem_attribute26>';
291 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute26);
292 l_text:=l_text||'</pem_attribute26>';
293 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294 l_text:='<pem_attribute27>';
295 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute27);
296 l_text:=l_text||'</pem_attribute27>';
297 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298 l_text:='<pem_attribute28>';
299 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute28);
300 l_text:=l_text||'</pem_attribute28>';
301 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302 l_text:='<pem_attribute29>';
303 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute29);
304 l_text:=l_text||'</pem_attribute29>';
305 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306 l_text:='<pem_attribute30>';
307 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_attribute30);
308 l_text:=l_text||'</pem_attribute30>';
309 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310 l_text:='<pem_information_category>';
311 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information_category);
312 l_text:=l_text||'</pem_information_category>';
313 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314 l_text:='<pem_information1>';
315 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information1);
316 l_text:=l_text||'</pem_information1>';
317 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318 l_text:='<pem_information2>';
319 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information2);
320 l_text:=l_text||'</pem_information2>';
321 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
322 l_text:='<pem_information3>';
323 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information3);
324 l_text:=l_text||'</pem_information3>';
325 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
326 l_text:='<pem_information4>';
327 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information4);
328 l_text:=l_text||'</pem_information4>';
329 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
330 l_text:='<pem_information5>';
331 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information5);
332 l_text:=l_text||'</pem_information5>';
333 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
334 l_text:='<pem_information6>';
335 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information6);
336 l_text:=l_text||'</pem_information6>';
337 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
338 l_text:='<pem_information7>';
339 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information7);
340 l_text:=l_text||'</pem_information7>';
341 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
342 l_text:='<pem_information8>';
343 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information8);
344 l_text:=l_text||'</pem_information8>';
345 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
346 l_text:='<pem_information9>';
347 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information9);
348 l_text:=l_text||'</pem_information9>';
349 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
350 l_text:='<pem_information10>';
351 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information10);
352 l_text:=l_text||'</pem_information10>';
353 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
354 l_text:='<pem_information11>';
355 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information11);
356 l_text:=l_text||'</pem_information11>';
357 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
358 l_text:='<pem_information12>';
359 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information12);
360 l_text:=l_text||'</pem_information12>';
361 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
362 l_text:='<pem_information13>';
363 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information13);
364 l_text:=l_text||'</pem_information13>';
365 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
366 l_text:='<pem_information14>';
367 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information14);
368 l_text:=l_text||'</pem_information14>';
369 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
370 l_text:='<pem_information15>';
371 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information15);
372 l_text:=l_text||'</pem_information15>';
373 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
374 l_text:='<pem_information16>';
375 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information16);
376 l_text:=l_text||'</pem_information16>';
377 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
378 l_text:='<pem_information17>';
379 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information17);
380 l_text:=l_text||'</pem_information17>';
381 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
382 l_text:='<pem_information18>';
383 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information18);
384 l_text:=l_text||'</pem_information18>';
385 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
386 l_text:='<pem_information19>';
390 l_text:='<pem_information20>';
387 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information19);
388 l_text:=l_text||'</pem_information19>';
389 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
391 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information20);
392 l_text:=l_text||'</pem_information20>';
393 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
394 l_text:='<pem_information21>';
395 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information21);
396 l_text:=l_text||'</pem_information21>';
397 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
398 l_text:='<pem_information22>';
399 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information22);
400 l_text:=l_text||'</pem_information22>';
401 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
402 l_text:='<pem_information23>';
403 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information23);
404 l_text:=l_text||'</pem_information23>';
405 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
406 l_text:='<pem_information24>';
407 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information24);
408 l_text:=l_text||'</pem_information24>';
409 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
410 l_text:='<pem_information25>';
411 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information25);
412 l_text:=l_text||'</pem_information25>';
413 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
414 l_text:='<pem_information26>';
415 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information26);
416 l_text:=l_text||'</pem_information26>';
417 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
418 l_text:='<pem_information27>';
419 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information27);
420 l_text:=l_text||'</pem_information27>';
421 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
422 l_text:='<pem_information28>';
423 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information28);
424 l_text:=l_text||'</pem_information28>';
425 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
426 l_text:='<pem_information29>';
427 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information29);
428 l_text:=l_text||'</pem_information29>';
429 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
430 l_text:='<pem_information30>';
431 l_text:=l_text||irc_utilities_pkg.removeTags(p_pem_information30);
432 l_text:=l_text||'</pem_information30>';
433 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
434 l_text:='<object_version_number>';
435 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
436 l_text:=l_text||'</object_version_number>';
437 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
438 l_text:='</previous_employment>';
439 --
440 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
441 --
442 -- raise the event with the event data
443 wf_event.raise(p_event_name=>l_event_name
444 ,p_event_key=>l_event_key
445 ,p_event_data=>l_event_data);
446 elsif (l_message='KEY') then
447 hr_utility.set_location(l_proc,30);
448 -- get a key for the event
449 open get_seq;
450 fetch get_seq into l_event_key;
451 close get_seq;
452 -- this is a key event, so just raise the event
453 -- without the event data
454 wf_event.raise(p_event_name=>l_event_name
455 ,p_event_key=>l_event_key);
456 elsif (l_message='NONE') then
457 hr_utility.set_location(l_proc,40);
458 -- no event is required, so do nothing
459 null;
460 end if;
461 hr_utility.set_location('Leaving: '||l_proc,50);
462 end create_previous_employer_a;
463 end hr_previous_employment_be1;