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