DBA Data[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;