DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_PERSONAL_PAY_METHOD_BE2

Source


1 package body hr_personal_pay_method_be2 as 
2 --Code generated on 27/11/2012 03:57:37
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava 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,
101 p_ppm_information_category     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_be2.update_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.update_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:='<datetrack_update_mode>';
140     l_text:=l_text||irc_utilities_pkg.removeTags(p_datetrack_update_mode);
141     l_text:=l_text||'</datetrack_update_mode>';
142     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
143     l_text:='<personal_payment_method_id>';
144     l_text:=l_text||fnd_number.number_to_canonical(p_personal_payment_method_id);
145     l_text:=l_text||'</personal_payment_method_id>';
146     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
147     l_text:='<object_version_number>';
148     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
149     l_text:=l_text||'</object_version_number>';
150     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
151     l_text:='<amount>';
152     l_text:=l_text||fnd_number.number_to_canonical(p_amount);
153     l_text:=l_text||'</amount>';
154     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
155     l_text:='<comments>';
156     l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
157     l_text:=l_text||'</comments>';
158     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
159     l_text:='<percentage>';
160     l_text:=l_text||fnd_number.number_to_canonical(p_percentage);
161     l_text:=l_text||'</percentage>';
162     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
163     l_text:='<priority>';
164     l_text:=l_text||fnd_number.number_to_canonical(p_priority);
165     l_text:=l_text||'</priority>';
166     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
167     l_text:='<attribute_category>';
168     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
169     l_text:=l_text||'</attribute_category>';
170     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
171     l_text:='<attribute1>';
172     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
173     l_text:=l_text||'</attribute1>';
174     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
175     l_text:='<attribute2>';
176     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
177     l_text:=l_text||'</attribute2>';
178     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
179     l_text:='<attribute3>';
180     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
181     l_text:=l_text||'</attribute3>';
182     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
183     l_text:='<attribute4>';
184     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
185     l_text:=l_text||'</attribute4>';
186     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
187     l_text:='<attribute5>';
188     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
189     l_text:=l_text||'</attribute5>';
190     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
191     l_text:='<attribute6>';
192     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
193     l_text:=l_text||'</attribute6>';
194     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
195     l_text:='<attribute7>';
196     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
197     l_text:=l_text||'</attribute7>';
198     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
199     l_text:='<attribute8>';
200     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
201     l_text:=l_text||'</attribute8>';
202     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
203     l_text:='<attribute9>';
204     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
205     l_text:=l_text||'</attribute9>';
206     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
207     l_text:='<attribute10>';
208     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
209     l_text:=l_text||'</attribute10>';
210     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
211     l_text:='<attribute11>';
212     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
213     l_text:=l_text||'</attribute11>';
214     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
215     l_text:='<attribute12>';
216     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
217     l_text:=l_text||'</attribute12>';
218     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
219     l_text:='<attribute13>';
220     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
221     l_text:=l_text||'</attribute13>';
222     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
223     l_text:='<attribute14>';
224     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
225     l_text:=l_text||'</attribute14>';
226     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
227     l_text:='<attribute15>';
228     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
229     l_text:=l_text||'</attribute15>';
230     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
231     l_text:='<attribute16>';
232     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
233     l_text:=l_text||'</attribute16>';
234     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
235     l_text:='<attribute17>';
236     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
237     l_text:=l_text||'</attribute17>';
238     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
239     l_text:='<attribute18>';
240     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
241     l_text:=l_text||'</attribute18>';
242     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
243     l_text:='<attribute19>';
244     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
245     l_text:=l_text||'</attribute19>';
246     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
247     l_text:='<attribute20>';
248     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
249     l_text:=l_text||'</attribute20>';
250     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
251     l_text:='<territory_code>';
252     l_text:=l_text||irc_utilities_pkg.removeTags(p_territory_code);
253     l_text:=l_text||'</territory_code>';
254     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
255     l_text:='<segment1>';
256     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment1);
257     l_text:=l_text||'</segment1>';
258     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
259     l_text:='<segment2>';
260     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment2);
261     l_text:=l_text||'</segment2>';
262     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
263     l_text:='<segment3>';
264     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment3);
265     l_text:=l_text||'</segment3>';
266     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
267     l_text:='<segment4>';
268     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment4);
269     l_text:=l_text||'</segment4>';
270     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
271     l_text:='<segment5>';
272     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment5);
273     l_text:=l_text||'</segment5>';
274     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
275     l_text:='<segment6>';
276     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment6);
277     l_text:=l_text||'</segment6>';
278     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
279     l_text:='<segment7>';
280     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment7);
281     l_text:=l_text||'</segment7>';
282     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
283     l_text:='<segment8>';
284     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment8);
285     l_text:=l_text||'</segment8>';
286     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
287     l_text:='<segment9>';
288     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment9);
289     l_text:=l_text||'</segment9>';
290     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
291     l_text:='<segment10>';
292     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment10);
293     l_text:=l_text||'</segment10>';
294     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
295     l_text:='<segment11>';
296     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment11);
297     l_text:=l_text||'</segment11>';
298     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
299     l_text:='<segment12>';
300     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment12);
301     l_text:=l_text||'</segment12>';
302     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
303     l_text:='<segment13>';
304     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment13);
305     l_text:=l_text||'</segment13>';
306     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
307     l_text:='<segment14>';
308     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment14);
309     l_text:=l_text||'</segment14>';
310     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
311     l_text:='<segment15>';
312     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment15);
313     l_text:=l_text||'</segment15>';
314     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
315     l_text:='<segment16>';
316     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment16);
317     l_text:=l_text||'</segment16>';
318     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
319     l_text:='<segment17>';
320     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment17);
321     l_text:=l_text||'</segment17>';
322     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
323     l_text:='<segment18>';
324     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment18);
325     l_text:=l_text||'</segment18>';
326     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
327     l_text:='<segment19>';
328     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment19);
329     l_text:=l_text||'</segment19>';
330     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
331     l_text:='<segment20>';
332     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment20);
333     l_text:=l_text||'</segment20>';
334     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
335     l_text:='<segment21>';
336     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment21);
337     l_text:=l_text||'</segment21>';
338     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
339     l_text:='<segment22>';
340     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment22);
341     l_text:=l_text||'</segment22>';
342     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
343     l_text:='<segment23>';
344     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment23);
345     l_text:=l_text||'</segment23>';
349     l_text:=l_text||'</segment24>';
346     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
347     l_text:='<segment24>';
348     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment24);
350     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
351     l_text:='<segment25>';
352     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment25);
353     l_text:=l_text||'</segment25>';
354     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
355     l_text:='<segment26>';
356     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment26);
357     l_text:=l_text||'</segment26>';
358     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
359     l_text:='<segment27>';
360     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment27);
361     l_text:=l_text||'</segment27>';
362     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
363     l_text:='<segment28>';
364     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment28);
365     l_text:=l_text||'</segment28>';
366     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
367     l_text:='<segment29>';
368     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment29);
369     l_text:=l_text||'</segment29>';
370     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
371     l_text:='<segment30>';
372     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment30);
373     l_text:=l_text||'</segment30>';
374     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
375     l_text:='<payee_type>';
376     l_text:=l_text||irc_utilities_pkg.removeTags(p_payee_type);
377     l_text:=l_text||'</payee_type>';
378     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
379     l_text:='<payee_id>';
380     l_text:=l_text||fnd_number.number_to_canonical(p_payee_id);
381     l_text:=l_text||'</payee_id>';
382     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
383     l_text:='<comment_id>';
384     l_text:=l_text||fnd_number.number_to_canonical(p_comment_id);
385     l_text:=l_text||'</comment_id>';
386     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
387     l_text:='<external_account_id>';
388     l_text:=l_text||fnd_number.number_to_canonical(p_external_account_id);
389     l_text:=l_text||'</external_account_id>';
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:='<ppm_information1>';
400     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information1);
401     l_text:=l_text||'</ppm_information1>';
402     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
403     l_text:='<ppm_information2>';
404     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information2);
405     l_text:=l_text||'</ppm_information2>';
406     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
407     l_text:='<ppm_information3>';
408     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information3);
409     l_text:=l_text||'</ppm_information3>';
410     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
411     l_text:='<ppm_information4>';
412     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information4);
413     l_text:=l_text||'</ppm_information4>';
414     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
415     l_text:='<ppm_information5>';
416     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information5);
417     l_text:=l_text||'</ppm_information5>';
418     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
419     l_text:='<ppm_information6>';
420     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information6);
421     l_text:=l_text||'</ppm_information6>';
422     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
423     l_text:='<ppm_information7>';
424     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information7);
425     l_text:=l_text||'</ppm_information7>';
426     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
427     l_text:='<ppm_information8>';
428     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information8);
429     l_text:=l_text||'</ppm_information8>';
430     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
431     l_text:='<ppm_information9>';
432     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information9);
433     l_text:=l_text||'</ppm_information9>';
434     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
435     l_text:='<ppm_information10>';
436     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information10);
437     l_text:=l_text||'</ppm_information10>';
438     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
439     l_text:='<ppm_information11>';
440     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information11);
441     l_text:=l_text||'</ppm_information11>';
442     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
443     l_text:='<ppm_information12>';
444     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information12);
445     l_text:=l_text||'</ppm_information12>';
446     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
447     l_text:='<ppm_information13>';
448     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information13);
449     l_text:=l_text||'</ppm_information13>';
450     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
451     l_text:='<ppm_information14>';
452     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information14);
453     l_text:=l_text||'</ppm_information14>';
454     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
455     l_text:='<ppm_information15>';
459     l_text:='<ppm_information16>';
456     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information15);
457     l_text:=l_text||'</ppm_information15>';
458     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
460     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information16);
461     l_text:=l_text||'</ppm_information16>';
462     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
463     l_text:='<ppm_information17>';
464     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information17);
465     l_text:=l_text||'</ppm_information17>';
466     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
467     l_text:='<ppm_information18>';
468     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information18);
469     l_text:=l_text||'</ppm_information18>';
470     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
471     l_text:='<ppm_information19>';
472     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information19);
473     l_text:=l_text||'</ppm_information19>';
474     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
475     l_text:='<ppm_information20>';
476     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information20);
477     l_text:=l_text||'</ppm_information20>';
478     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
479     l_text:='<ppm_information21>';
480     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information21);
481     l_text:=l_text||'</ppm_information21>';
482     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
483     l_text:='<ppm_information22>';
484     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information22);
485     l_text:=l_text||'</ppm_information22>';
486     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
487     l_text:='<ppm_information23>';
488     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information23);
489     l_text:=l_text||'</ppm_information23>';
490     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
491     l_text:='<ppm_information24>';
492     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information24);
493     l_text:=l_text||'</ppm_information24>';
494     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
495     l_text:='<ppm_information25>';
496     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information25);
497     l_text:=l_text||'</ppm_information25>';
498     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
499     l_text:='<ppm_information26>';
500     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information26);
501     l_text:=l_text||'</ppm_information26>';
502     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
503     l_text:='<ppm_information27>';
504     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information27);
505     l_text:=l_text||'</ppm_information27>';
506     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
507     l_text:='<ppm_information28>';
508     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information28);
509     l_text:=l_text||'</ppm_information28>';
510     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
511     l_text:='<ppm_information29>';
512     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information29);
513     l_text:=l_text||'</ppm_information29>';
514     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
515     l_text:='<ppm_information30>';
516     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information30);
517     l_text:=l_text||'</ppm_information30>';
518     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
519     l_text:='<ppm_information_category>';
520     l_text:=l_text||irc_utilities_pkg.removeTags(p_ppm_information_category);
521     l_text:=l_text||'</ppm_information_category>';
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 update_personal_pay_method_a;
570 end hr_personal_pay_method_be2;