[Home] [Help]
PACKAGE BODY: APPS.HR_PERSONAL_PAY_METHOD_BE2
Source
1 package body hr_personal_pay_method_be2 as
2 --Code generated on 30/03/2009 04:45:10
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_personal_pay_method_a (
5 p_effective_date date,
6 p_datetrack_update_mode varchar2,
7 p_personal_payment_method_id number,
8 p_object_version_number number,
9 p_amount number,
10 p_comments varchar2,
11 p_percentage number,
12 p_priority number,
13 p_attribute_category varchar2,
14 p_attribute1 varchar2,
15 p_attribute2 varchar2,
16 p_attribute3 varchar2,
17 p_attribute4 varchar2,
18 p_attribute5 varchar2,
19 p_attribute6 varchar2,
20 p_attribute7 varchar2,
21 p_attribute8 varchar2,
22 p_attribute9 varchar2,
23 p_attribute10 varchar2,
24 p_attribute11 varchar2,
25 p_attribute12 varchar2,
26 p_attribute13 varchar2,
27 p_attribute14 varchar2,
28 p_attribute15 varchar2,
29 p_attribute16 varchar2,
30 p_attribute17 varchar2,
31 p_attribute18 varchar2,
32 p_attribute19 varchar2,
33 p_attribute20 varchar2,
34 p_territory_code varchar2,
35 p_segment1 varchar2,
36 p_segment2 varchar2,
37 p_segment3 varchar2,
38 p_segment4 varchar2,
39 p_segment5 varchar2,
40 p_segment6 varchar2,
41 p_segment7 varchar2,
42 p_segment8 varchar2,
43 p_segment9 varchar2,
44 p_segment10 varchar2,
45 p_segment11 varchar2,
46 p_segment12 varchar2,
47 p_segment13 varchar2,
48 p_segment14 varchar2,
49 p_segment15 varchar2,
50 p_segment16 varchar2,
51 p_segment17 varchar2,
52 p_segment18 varchar2,
53 p_segment19 varchar2,
54 p_segment20 varchar2,
55 p_segment21 varchar2,
56 p_segment22 varchar2,
57 p_segment23 varchar2,
58 p_segment24 varchar2,
59 p_segment25 varchar2,
60 p_segment26 varchar2,
61 p_segment27 varchar2,
62 p_segment28 varchar2,
63 p_segment29 varchar2,
64 p_segment30 varchar2,
65 p_payee_type varchar2,
66 p_payee_id number,
67 p_comment_id number,
68 p_external_account_id number,
69 p_effective_start_date date,
70 p_effective_end_date date,
71 p_ppm_information1 varchar2,
72 p_ppm_information2 varchar2,
73 p_ppm_information3 varchar2,
74 p_ppm_information4 varchar2,
75 p_ppm_information5 varchar2,
76 p_ppm_information6 varchar2,
77 p_ppm_information7 varchar2,
78 p_ppm_information8 varchar2,
79 p_ppm_information9 varchar2,
80 p_ppm_information10 varchar2,
81 p_ppm_information11 varchar2,
82 p_ppm_information12 varchar2,
83 p_ppm_information13 varchar2,
84 p_ppm_information14 varchar2,
85 p_ppm_information15 varchar2,
86 p_ppm_information16 varchar2,
87 p_ppm_information17 varchar2,
88 p_ppm_information18 varchar2,
89 p_ppm_information19 varchar2,
90 p_ppm_information20 varchar2,
91 p_ppm_information21 varchar2,
92 p_ppm_information22 varchar2,
93 p_ppm_information23 varchar2,
94 p_ppm_information24 varchar2,
95 p_ppm_information25 varchar2,
96 p_ppm_information26 varchar2,
97 p_ppm_information27 varchar2,
98 p_ppm_information28 varchar2,
99 p_ppm_information29 varchar2,
100 p_ppm_information30 varchar2) is
101 l_event_key number;
102 l_event_data clob;
103 l_event_name varchar2(250);
104 l_text varchar2(2000);
105 l_message varchar2(10);
106 --
107 cursor get_seq is
108 select per_wf_events_s.nextval from dual;
109 --
110 l_proc varchar2(72):=' hr_personal_pay_method_be2.update_personal_pay_method_a';
111 begin
112 hr_utility.set_location('Entering: '||l_proc,10);
113 -- check the status of the business event
114 l_event_name:='oracle.apps.per.api.personal_pay_method.update_personal_pay_method';
115 l_message:=wf_event.test(l_event_name);
116 --
117 if (l_message='MESSAGE') then
118 hr_utility.set_location(l_proc,20);
119 --
120 -- get a key for the event
121 --
122 open get_seq;
123 fetch get_seq into l_event_key;
124 close get_seq;
125 --
126 -- build the xml data for the event
127 --
128 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
129 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
130 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
131 l_text:='<personal_pay_method>';
132 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133 --
134 l_text:='<effective_date>';
135 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
136 l_text:=l_text||'</effective_date>';
137 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
138 l_text:='<datetrack_update_mode>';
139 l_text:=l_text||irc_utilities_pkg.removeTags(p_datetrack_update_mode);
140 l_text:=l_text||'</datetrack_update_mode>';
141 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
142 l_text:='<personal_payment_method_id>';
143 l_text:=l_text||fnd_number.number_to_canonical(p_personal_payment_method_id);
144 l_text:=l_text||'</personal_payment_method_id>';
145 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146 l_text:='<object_version_number>';
147 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
148 l_text:=l_text||'</object_version_number>';
149 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
150 l_text:='<amount>';
151 l_text:=l_text||fnd_number.number_to_canonical(p_amount);
152 l_text:=l_text||'</amount>';
153 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
154 l_text:='<comments>';
155 l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
156 l_text:=l_text||'</comments>';
157 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
158 l_text:='<percentage>';
159 l_text:=l_text||fnd_number.number_to_canonical(p_percentage);
160 l_text:=l_text||'</percentage>';
161 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
162 l_text:='<priority>';
163 l_text:=l_text||fnd_number.number_to_canonical(p_priority);
164 l_text:=l_text||'</priority>';
165 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
166 l_text:='<attribute_category>';
167 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
168 l_text:=l_text||'</attribute_category>';
169 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
170 l_text:='<attribute1>';
171 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
172 l_text:=l_text||'</attribute1>';
173 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
174 l_text:='<attribute2>';
175 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
176 l_text:=l_text||'</attribute2>';
177 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
178 l_text:='<attribute3>';
179 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
180 l_text:=l_text||'</attribute3>';
181 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182 l_text:='<attribute4>';
183 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
184 l_text:=l_text||'</attribute4>';
185 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186 l_text:='<attribute5>';
187 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
188 l_text:=l_text||'</attribute5>';
189 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190 l_text:='<attribute6>';
191 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
192 l_text:=l_text||'</attribute6>';
193 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194 l_text:='<attribute7>';
195 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
196 l_text:=l_text||'</attribute7>';
197 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198 l_text:='<attribute8>';
199 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
200 l_text:=l_text||'</attribute8>';
201 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202 l_text:='<attribute9>';
203 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
204 l_text:=l_text||'</attribute9>';
205 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206 l_text:='<attribute10>';
207 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
208 l_text:=l_text||'</attribute10>';
209 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210 l_text:='<attribute11>';
211 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
212 l_text:=l_text||'</attribute11>';
213 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214 l_text:='<attribute12>';
215 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
216 l_text:=l_text||'</attribute12>';
217 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218 l_text:='<attribute13>';
219 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
220 l_text:=l_text||'</attribute13>';
221 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222 l_text:='<attribute14>';
223 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
224 l_text:=l_text||'</attribute14>';
225 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226 l_text:='<attribute15>';
227 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
228 l_text:=l_text||'</attribute15>';
229 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230 l_text:='<attribute16>';
231 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
232 l_text:=l_text||'</attribute16>';
233 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234 l_text:='<attribute17>';
235 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
236 l_text:=l_text||'</attribute17>';
237 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238 l_text:='<attribute18>';
239 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
240 l_text:=l_text||'</attribute18>';
241 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242 l_text:='<attribute19>';
243 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
244 l_text:=l_text||'</attribute19>';
245 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246 l_text:='<attribute20>';
247 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
248 l_text:=l_text||'</attribute20>';
249 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250 l_text:='<territory_code>';
251 l_text:=l_text||irc_utilities_pkg.removeTags(p_territory_code);
252 l_text:=l_text||'</territory_code>';
253 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254 l_text:='<segment1>';
255 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment1);
256 l_text:=l_text||'</segment1>';
257 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258 l_text:='<segment2>';
259 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment2);
260 l_text:=l_text||'</segment2>';
261 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262 l_text:='<segment3>';
263 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment3);
264 l_text:=l_text||'</segment3>';
265 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266 l_text:='<segment4>';
267 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment4);
268 l_text:=l_text||'</segment4>';
269 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270 l_text:='<segment5>';
271 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment5);
272 l_text:=l_text||'</segment5>';
273 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274 l_text:='<segment6>';
275 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment6);
276 l_text:=l_text||'</segment6>';
277 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278 l_text:='<segment7>';
279 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment7);
280 l_text:=l_text||'</segment7>';
281 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282 l_text:='<segment8>';
283 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment8);
284 l_text:=l_text||'</segment8>';
285 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286 l_text:='<segment9>';
287 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment9);
288 l_text:=l_text||'</segment9>';
289 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290 l_text:='<segment10>';
291 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment10);
292 l_text:=l_text||'</segment10>';
293 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294 l_text:='<segment11>';
295 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment11);
296 l_text:=l_text||'</segment11>';
297 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298 l_text:='<segment12>';
299 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment12);
300 l_text:=l_text||'</segment12>';
301 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302 l_text:='<segment13>';
303 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment13);
304 l_text:=l_text||'</segment13>';
305 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306 l_text:='<segment14>';
307 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment14);
308 l_text:=l_text||'</segment14>';
309 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310 l_text:='<segment15>';
311 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment15);
312 l_text:=l_text||'</segment15>';
313 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314 l_text:='<segment16>';
315 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment16);
316 l_text:=l_text||'</segment16>';
317 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318 l_text:='<segment17>';
319 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment17);
320 l_text:=l_text||'</segment17>';
321 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
322 l_text:='<segment18>';
323 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment18);
324 l_text:=l_text||'</segment18>';
325 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
326 l_text:='<segment19>';
327 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment19);
328 l_text:=l_text||'</segment19>';
329 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
330 l_text:='<segment20>';
331 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment20);
332 l_text:=l_text||'</segment20>';
333 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
334 l_text:='<segment21>';
335 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment21);
336 l_text:=l_text||'</segment21>';
337 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
338 l_text:='<segment22>';
339 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment22);
340 l_text:=l_text||'</segment22>';
341 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
342 l_text:='<segment23>';
343 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment23);
344 l_text:=l_text||'</segment23>';
345 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
346 l_text:='<segment24>';
350 l_text:='<segment25>';
347 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment24);
348 l_text:=l_text||'</segment24>';
349 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
351 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment25);
352 l_text:=l_text||'</segment25>';
353 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
354 l_text:='<segment26>';
355 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment26);
356 l_text:=l_text||'</segment26>';
357 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
358 l_text:='<segment27>';
359 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment27);
360 l_text:=l_text||'</segment27>';
361 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
362 l_text:='<segment28>';
363 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment28);
364 l_text:=l_text||'</segment28>';
365 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
366 l_text:='<segment29>';
367 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment29);
368 l_text:=l_text||'</segment29>';
369 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
370 l_text:='<segment30>';
371 l_text:=l_text||irc_utilities_pkg.removeTags(p_segment30);
372 l_text:=l_text||'</segment30>';
373 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
374 l_text:='<payee_type>';
375 l_text:=l_text||irc_utilities_pkg.removeTags(p_payee_type);
376 l_text:=l_text||'</payee_type>';
377 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
378 l_text:='<payee_id>';
379 l_text:=l_text||fnd_number.number_to_canonical(p_payee_id);
380 l_text:=l_text||'</payee_id>';
381 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
382 l_text:='<comment_id>';
383 l_text:=l_text||fnd_number.number_to_canonical(p_comment_id);
384 l_text:=l_text||'</comment_id>';
385 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
386 l_text:='<external_account_id>';
387 l_text:=l_text||fnd_number.number_to_canonical(p_external_account_id);
388 l_text:=l_text||'</external_account_id>';
389 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
390 l_text:='<effective_start_date>';
391 l_text:=l_text||fnd_date.date_to_canonical(p_effective_start_date);
392 l_text:=l_text||'</effective_start_date>';
393 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
394 l_text:='<effective_end_date>';
395 l_text:=l_text||fnd_date.date_to_canonical(p_effective_end_date);
396 l_text:=l_text||'</effective_end_date>';
397 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
398 l_text:='<ppm_information1>';
399 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information1);
400 l_text:=l_text||'</ppm_information1>';
401 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
402 l_text:='<ppm_information2>';
403 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information2);
404 l_text:=l_text||'</ppm_information2>';
405 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
406 l_text:='<ppm_information3>';
407 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information3);
408 l_text:=l_text||'</ppm_information3>';
409 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
410 l_text:='<ppm_information4>';
411 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information4);
412 l_text:=l_text||'</ppm_information4>';
413 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
414 l_text:='<ppm_information5>';
415 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information5);
416 l_text:=l_text||'</ppm_information5>';
417 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
418 l_text:='<ppm_information6>';
419 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information6);
420 l_text:=l_text||'</ppm_information6>';
421 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
422 l_text:='<ppm_information7>';
423 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information7);
424 l_text:=l_text||'</ppm_information7>';
425 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
426 l_text:='<ppm_information8>';
427 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information8);
428 l_text:=l_text||'</ppm_information8>';
429 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
430 l_text:='<ppm_information9>';
431 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information9);
432 l_text:=l_text||'</ppm_information9>';
433 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
434 l_text:='<ppm_information10>';
435 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information10);
436 l_text:=l_text||'</ppm_information10>';
437 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
438 l_text:='<ppm_information11>';
439 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information11);
440 l_text:=l_text||'</ppm_information11>';
441 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
442 l_text:='<ppm_information12>';
443 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information12);
444 l_text:=l_text||'</ppm_information12>';
445 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
446 l_text:='<ppm_information13>';
447 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information13);
448 l_text:=l_text||'</ppm_information13>';
449 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
450 l_text:='<ppm_information14>';
451 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information14);
452 l_text:=l_text||'</ppm_information14>';
453 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
454 l_text:='<ppm_information15>';
455 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information15);
456 l_text:=l_text||'</ppm_information15>';
457 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
458 l_text:='<ppm_information16>';
459 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information16);
460 l_text:=l_text||'</ppm_information16>';
461 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
462 l_text:='<ppm_information17>';
463 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information17);
464 l_text:=l_text||'</ppm_information17>';
465 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
466 l_text:='<ppm_information18>';
467 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information18);
468 l_text:=l_text||'</ppm_information18>';
469 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
470 l_text:='<ppm_information19>';
471 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information19);
472 l_text:=l_text||'</ppm_information19>';
473 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
474 l_text:='<ppm_information20>';
475 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information20);
476 l_text:=l_text||'</ppm_information20>';
477 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
478 l_text:='<ppm_information21>';
479 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information21);
480 l_text:=l_text||'</ppm_information21>';
481 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
482 l_text:='<ppm_information22>';
483 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information22);
484 l_text:=l_text||'</ppm_information22>';
485 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
486 l_text:='<ppm_information23>';
487 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information23);
488 l_text:=l_text||'</ppm_information23>';
489 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
490 l_text:='<ppm_information24>';
491 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information24);
492 l_text:=l_text||'</ppm_information24>';
493 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
494 l_text:='<ppm_information25>';
495 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information25);
496 l_text:=l_text||'</ppm_information25>';
497 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
498 l_text:='<ppm_information26>';
499 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information26);
500 l_text:=l_text||'</ppm_information26>';
501 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
502 l_text:='<ppm_information27>';
503 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information27);
504 l_text:=l_text||'</ppm_information27>';
505 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
506 l_text:='<ppm_information28>';
507 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information28);
508 l_text:=l_text||'</ppm_information28>';
509 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
510 l_text:='<ppm_information29>';
511 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information29);
512 l_text:=l_text||'</ppm_information29>';
513 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
514 l_text:='<ppm_information30>';
515 l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information30);
516 l_text:=l_text||'</ppm_information30>';
517 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
518 l_text:='</personal_pay_method>';
519 --
520 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
521 --
522 if p_effective_start_date is not NULL and
523 p_effective_start_date > trunc(SYSDATE) and
524 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
525 -- raise the event with the event data, with send date set to effective date
526 wf_event.raise(p_event_name=>l_event_name
527 ,p_event_key=>l_event_key
528 ,p_event_data=>l_event_data
529 ,p_send_date => p_effective_start_date);
530 --
531 else
532 -- raise the event with the event data
533 wf_event.raise(p_event_name=>l_event_name
534 ,p_event_key=>l_event_key
535 ,p_event_data=>l_event_data);
536 end if;
537 elsif (l_message='KEY') then
538 hr_utility.set_location(l_proc,30);
539 -- get a key for the event
540 open get_seq;
541 fetch get_seq into l_event_key;
542 close get_seq;
543 if p_effective_start_date is not NULL and
544 p_effective_start_date > trunc(SYSDATE) and
545 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
546 -- this is a key event, so just raise the event
547 -- without the event data, with send date set to effective date
548 wf_event.raise(p_event_name=>l_event_name
549 ,p_event_key=>l_event_key
550 ,p_send_date => p_effective_start_date);
551 --
552 else
553 -- this is a key event, so just raise the event
554 -- without the event data
555 wf_event.raise(p_event_name=>l_event_name
556 ,p_event_key=>l_event_key);
557 end if;
558 elsif (l_message='NONE') then
559 hr_utility.set_location(l_proc,40);
560 -- no event is required, so do nothing
561 null;
562 end if;
563 hr_utility.set_location('Leaving: '||l_proc,50);
564 end update_personal_pay_method_a;
565 end hr_personal_pay_method_be2;