[Home] [Help]
PACKAGE BODY: APPS.PAY_ELEMENT_LINK_BE1
Source
1 package body pay_element_link_be1 as
2 --Code generated on 27/11/2012 03:57:33
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure create_element_link_a (
5 p_effective_date date,
6 p_element_type_id number,
7 p_business_group_id number,
8 p_costable_type varchar2,
9 p_payroll_id number,
10 p_job_id number,
11 p_position_id number,
12 p_people_group_id number,
13 p_cost_allocation_keyflex_id number,
14 p_organization_id number,
15 p_location_id number,
16 p_grade_id number,
17 p_balancing_keyflex_id number,
18 p_element_set_id number,
19 p_pay_basis_id number,
20 p_link_to_all_payrolls_flag varchar2,
21 p_standard_link_flag varchar2,
22 p_transfer_to_gl_flag varchar2,
23 p_comments varchar2,
24 p_employment_category varchar2,
25 p_qualifying_age number,
26 p_qualifying_length_of_service number,
27 p_qualifying_units varchar2,
28 p_attribute_category varchar2,
29 p_attribute1 varchar2,
30 p_attribute2 varchar2,
31 p_attribute3 varchar2,
32 p_attribute4 varchar2,
33 p_attribute5 varchar2,
34 p_attribute6 varchar2,
35 p_attribute7 varchar2,
36 p_attribute8 varchar2,
37 p_attribute9 varchar2,
38 p_attribute10 varchar2,
39 p_attribute11 varchar2,
40 p_attribute12 varchar2,
41 p_attribute13 varchar2,
42 p_attribute14 varchar2,
43 p_attribute15 varchar2,
44 p_attribute16 varchar2,
45 p_attribute17 varchar2,
46 p_attribute18 varchar2,
47 p_attribute19 varchar2,
48 p_attribute20 varchar2,
49 p_cost_segment1 varchar2,
50 p_cost_segment2 varchar2,
51 p_cost_segment3 varchar2,
52 p_cost_segment4 varchar2,
53 p_cost_segment5 varchar2,
54 p_cost_segment6 varchar2,
55 p_cost_segment7 varchar2,
56 p_cost_segment8 varchar2,
57 p_cost_segment9 varchar2,
58 p_cost_segment10 varchar2,
59 p_cost_segment11 varchar2,
60 p_cost_segment12 varchar2,
61 p_cost_segment13 varchar2,
62 p_cost_segment14 varchar2,
63 p_cost_segment15 varchar2,
64 p_cost_segment16 varchar2,
65 p_cost_segment17 varchar2,
66 p_cost_segment18 varchar2,
67 p_cost_segment19 varchar2,
68 p_cost_segment20 varchar2,
69 p_cost_segment21 varchar2,
70 p_cost_segment22 varchar2,
71 p_cost_segment23 varchar2,
72 p_cost_segment24 varchar2,
73 p_cost_segment25 varchar2,
74 p_cost_segment26 varchar2,
75 p_cost_segment27 varchar2,
76 p_cost_segment28 varchar2,
77 p_cost_segment29 varchar2,
78 p_cost_segment30 varchar2,
79 p_balance_segment1 varchar2,
80 p_balance_segment2 varchar2,
81 p_balance_segment3 varchar2,
82 p_balance_segment4 varchar2,
83 p_balance_segment5 varchar2,
84 p_balance_segment6 varchar2,
85 p_balance_segment7 varchar2,
86 p_balance_segment8 varchar2,
87 p_balance_segment9 varchar2,
88 p_balance_segment10 varchar2,
89 p_balance_segment11 varchar2,
90 p_balance_segment12 varchar2,
91 p_balance_segment13 varchar2,
92 p_balance_segment14 varchar2,
93 p_balance_segment15 varchar2,
94 p_balance_segment16 varchar2,
95 p_balance_segment17 varchar2,
96 p_balance_segment18 varchar2,
97 p_balance_segment19 varchar2,
98 p_balance_segment20 varchar2,
99 p_balance_segment21 varchar2,
100 p_balance_segment22 varchar2,
101 p_balance_segment23 varchar2,
102 p_balance_segment24 varchar2,
103 p_balance_segment25 varchar2,
104 p_balance_segment26 varchar2,
105 p_balance_segment27 varchar2,
106 p_balance_segment28 varchar2,
107 p_balance_segment29 varchar2,
108 p_balance_segment30 varchar2,
109 p_cost_concat_segments varchar2,
110 p_balance_concat_segments varchar2,
111 p_element_link_id number,
112 p_comment_id number,
113 p_object_version_number number,
114 p_effective_start_date date,
115 p_effective_end_date date) is
116 l_event_key number;
117 l_event_data clob;
118 l_event_name varchar2(250);
119 l_text varchar2(2000);
120 l_message varchar2(10);
121 --
122 cursor get_seq is
123 select per_wf_events_s.nextval from dual;
124 --
125 l_proc varchar2(72):=' pay_element_link_be1.create_element_link_a';
126 begin
127 hr_utility.set_location('Entering: '||l_proc,10);
128 -- check the status of the business event
129 l_event_name:='oracle.apps.pay.api.element_link.create_element_link';
130 l_message:=wf_event.test(l_event_name);
131 --
132 if (l_message='MESSAGE') then
133 hr_utility.set_location(l_proc,20);
134 --
135 -- get a key for the event
136 --
137 open get_seq;
138 fetch get_seq into l_event_key;
139 close get_seq;
140 --
141 -- build the xml data for the event
142 --
143 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
144 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
145 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146 l_text:='<element_link>';
147 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148 --
149 l_text:='<effective_date>';
150 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
151 l_text:=l_text||'</effective_date>';
152 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153 l_text:='<element_type_id>';
154 l_text:=l_text||fnd_number.number_to_canonical(p_element_type_id);
155 l_text:=l_text||'</element_type_id>';
156 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157 l_text:='<business_group_id>';
158 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
159 l_text:=l_text||'</business_group_id>';
160 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161 l_text:='<costable_type>';
162 l_text:=l_text||irc_utilities_pkg.removeTags(p_costable_type);
163 l_text:=l_text||'</costable_type>';
164 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165 l_text:='<payroll_id>';
166 l_text:=l_text||fnd_number.number_to_canonical(p_payroll_id);
167 l_text:=l_text||'</payroll_id>';
168 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169 l_text:='<job_id>';
170 l_text:=l_text||fnd_number.number_to_canonical(p_job_id);
171 l_text:=l_text||'</job_id>';
172 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173 l_text:='<position_id>';
174 l_text:=l_text||fnd_number.number_to_canonical(p_position_id);
175 l_text:=l_text||'</position_id>';
176 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177 l_text:='<people_group_id>';
178 l_text:=l_text||fnd_number.number_to_canonical(p_people_group_id);
179 l_text:=l_text||'</people_group_id>';
180 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181 l_text:='<cost_allocation_keyflex_id>';
182 l_text:=l_text||fnd_number.number_to_canonical(p_cost_allocation_keyflex_id);
183 l_text:=l_text||'</cost_allocation_keyflex_id>';
184 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185 l_text:='<organization_id>';
186 l_text:=l_text||fnd_number.number_to_canonical(p_organization_id);
187 l_text:=l_text||'</organization_id>';
188 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189 l_text:='<location_id>';
190 l_text:=l_text||fnd_number.number_to_canonical(p_location_id);
191 l_text:=l_text||'</location_id>';
192 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193 l_text:='<grade_id>';
194 l_text:=l_text||fnd_number.number_to_canonical(p_grade_id);
195 l_text:=l_text||'</grade_id>';
196 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197 l_text:='<balancing_keyflex_id>';
198 l_text:=l_text||fnd_number.number_to_canonical(p_balancing_keyflex_id);
199 l_text:=l_text||'</balancing_keyflex_id>';
200 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201 l_text:='<element_set_id>';
202 l_text:=l_text||fnd_number.number_to_canonical(p_element_set_id);
203 l_text:=l_text||'</element_set_id>';
204 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205 l_text:='<pay_basis_id>';
206 l_text:=l_text||fnd_number.number_to_canonical(p_pay_basis_id);
207 l_text:=l_text||'</pay_basis_id>';
208 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209 l_text:='<link_to_all_payrolls_flag>';
210 l_text:=l_text||irc_utilities_pkg.removeTags(p_link_to_all_payrolls_flag);
211 l_text:=l_text||'</link_to_all_payrolls_flag>';
212 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213 l_text:='<standard_link_flag>';
214 l_text:=l_text||irc_utilities_pkg.removeTags(p_standard_link_flag);
215 l_text:=l_text||'</standard_link_flag>';
216 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217 l_text:='<transfer_to_gl_flag>';
218 l_text:=l_text||irc_utilities_pkg.removeTags(p_transfer_to_gl_flag);
219 l_text:=l_text||'</transfer_to_gl_flag>';
220 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221 l_text:='<comments>';
222 l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
223 l_text:=l_text||'</comments>';
224 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225 l_text:='<employment_category>';
226 l_text:=l_text||irc_utilities_pkg.removeTags(p_employment_category);
227 l_text:=l_text||'</employment_category>';
228 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229 l_text:='<qualifying_age>';
230 l_text:=l_text||fnd_number.number_to_canonical(p_qualifying_age);
231 l_text:=l_text||'</qualifying_age>';
232 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233 l_text:='<qualifying_length_of_service>';
234 l_text:=l_text||fnd_number.number_to_canonical(p_qualifying_length_of_service);
235 l_text:=l_text||'</qualifying_length_of_service>';
236 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
237 l_text:='<qualifying_units>';
238 l_text:=l_text||irc_utilities_pkg.removeTags(p_qualifying_units);
239 l_text:=l_text||'</qualifying_units>';
240 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
241 l_text:='<attribute_category>';
242 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
243 l_text:=l_text||'</attribute_category>';
244 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
245 l_text:='<attribute1>';
246 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
247 l_text:=l_text||'</attribute1>';
248 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
249 l_text:='<attribute2>';
250 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
251 l_text:=l_text||'</attribute2>';
252 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
253 l_text:='<attribute3>';
254 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
255 l_text:=l_text||'</attribute3>';
256 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
257 l_text:='<attribute4>';
258 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
259 l_text:=l_text||'</attribute4>';
260 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
261 l_text:='<attribute5>';
262 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
263 l_text:=l_text||'</attribute5>';
264 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
265 l_text:='<attribute6>';
266 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
267 l_text:=l_text||'</attribute6>';
268 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
269 l_text:='<attribute7>';
270 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
271 l_text:=l_text||'</attribute7>';
272 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
273 l_text:='<attribute8>';
274 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
275 l_text:=l_text||'</attribute8>';
276 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
277 l_text:='<attribute9>';
278 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
279 l_text:=l_text||'</attribute9>';
280 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
281 l_text:='<attribute10>';
282 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
283 l_text:=l_text||'</attribute10>';
284 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
285 l_text:='<attribute11>';
286 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
287 l_text:=l_text||'</attribute11>';
288 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
289 l_text:='<attribute12>';
290 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
291 l_text:=l_text||'</attribute12>';
292 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
293 l_text:='<attribute13>';
294 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
295 l_text:=l_text||'</attribute13>';
296 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
297 l_text:='<attribute14>';
298 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
299 l_text:=l_text||'</attribute14>';
300 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
301 l_text:='<attribute15>';
302 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
303 l_text:=l_text||'</attribute15>';
304 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
305 l_text:='<attribute16>';
306 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
307 l_text:=l_text||'</attribute16>';
308 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
309 l_text:='<attribute17>';
310 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
311 l_text:=l_text||'</attribute17>';
312 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
313 l_text:='<attribute18>';
314 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
315 l_text:=l_text||'</attribute18>';
316 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
317 l_text:='<attribute19>';
318 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
319 l_text:=l_text||'</attribute19>';
320 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
321 l_text:='<attribute20>';
322 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
323 l_text:=l_text||'</attribute20>';
324 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
325 l_text:='<cost_segment1>';
326 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment1);
327 l_text:=l_text||'</cost_segment1>';
328 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
329 l_text:='<cost_segment2>';
330 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment2);
331 l_text:=l_text||'</cost_segment2>';
332 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
333 l_text:='<cost_segment3>';
334 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment3);
335 l_text:=l_text||'</cost_segment3>';
336 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
337 l_text:='<cost_segment4>';
338 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment4);
339 l_text:=l_text||'</cost_segment4>';
340 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
341 l_text:='<cost_segment5>';
342 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment5);
343 l_text:=l_text||'</cost_segment5>';
344 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
345 l_text:='<cost_segment6>';
346 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment6);
347 l_text:=l_text||'</cost_segment6>';
351 l_text:=l_text||'</cost_segment7>';
348 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
349 l_text:='<cost_segment7>';
350 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment7);
352 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
353 l_text:='<cost_segment8>';
354 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment8);
355 l_text:=l_text||'</cost_segment8>';
356 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
357 l_text:='<cost_segment9>';
358 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment9);
359 l_text:=l_text||'</cost_segment9>';
360 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
361 l_text:='<cost_segment10>';
362 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment10);
363 l_text:=l_text||'</cost_segment10>';
364 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
365 l_text:='<cost_segment11>';
366 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment11);
367 l_text:=l_text||'</cost_segment11>';
368 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
369 l_text:='<cost_segment12>';
370 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment12);
371 l_text:=l_text||'</cost_segment12>';
372 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
373 l_text:='<cost_segment13>';
374 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment13);
375 l_text:=l_text||'</cost_segment13>';
376 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
377 l_text:='<cost_segment14>';
378 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment14);
379 l_text:=l_text||'</cost_segment14>';
380 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
381 l_text:='<cost_segment15>';
382 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment15);
383 l_text:=l_text||'</cost_segment15>';
384 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
385 l_text:='<cost_segment16>';
386 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment16);
387 l_text:=l_text||'</cost_segment16>';
388 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
389 l_text:='<cost_segment17>';
390 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment17);
391 l_text:=l_text||'</cost_segment17>';
392 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
393 l_text:='<cost_segment18>';
394 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment18);
395 l_text:=l_text||'</cost_segment18>';
396 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
397 l_text:='<cost_segment19>';
398 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment19);
399 l_text:=l_text||'</cost_segment19>';
400 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
401 l_text:='<cost_segment20>';
402 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment20);
403 l_text:=l_text||'</cost_segment20>';
404 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
405 l_text:='<cost_segment21>';
406 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment21);
407 l_text:=l_text||'</cost_segment21>';
408 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
409 l_text:='<cost_segment22>';
410 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment22);
411 l_text:=l_text||'</cost_segment22>';
412 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
413 l_text:='<cost_segment23>';
414 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment23);
415 l_text:=l_text||'</cost_segment23>';
416 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
417 l_text:='<cost_segment24>';
418 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment24);
419 l_text:=l_text||'</cost_segment24>';
420 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
421 l_text:='<cost_segment25>';
422 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment25);
423 l_text:=l_text||'</cost_segment25>';
424 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
425 l_text:='<cost_segment26>';
426 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment26);
427 l_text:=l_text||'</cost_segment26>';
428 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
429 l_text:='<cost_segment27>';
430 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment27);
431 l_text:=l_text||'</cost_segment27>';
432 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
433 l_text:='<cost_segment28>';
434 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment28);
435 l_text:=l_text||'</cost_segment28>';
436 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
437 l_text:='<cost_segment29>';
438 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment29);
439 l_text:=l_text||'</cost_segment29>';
440 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
441 l_text:='<cost_segment30>';
442 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_segment30);
443 l_text:=l_text||'</cost_segment30>';
444 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
445 l_text:='<balance_segment1>';
446 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment1);
447 l_text:=l_text||'</balance_segment1>';
448 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
449 l_text:='<balance_segment2>';
450 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment2);
451 l_text:=l_text||'</balance_segment2>';
452 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
453 l_text:='<balance_segment3>';
454 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment3);
455 l_text:=l_text||'</balance_segment3>';
456 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
457 l_text:='<balance_segment4>';
461 l_text:='<balance_segment5>';
458 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment4);
459 l_text:=l_text||'</balance_segment4>';
460 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
462 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment5);
463 l_text:=l_text||'</balance_segment5>';
464 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
465 l_text:='<balance_segment6>';
466 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment6);
467 l_text:=l_text||'</balance_segment6>';
468 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
469 l_text:='<balance_segment7>';
470 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment7);
471 l_text:=l_text||'</balance_segment7>';
472 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
473 l_text:='<balance_segment8>';
474 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment8);
475 l_text:=l_text||'</balance_segment8>';
476 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
477 l_text:='<balance_segment9>';
478 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment9);
479 l_text:=l_text||'</balance_segment9>';
480 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
481 l_text:='<balance_segment10>';
482 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment10);
483 l_text:=l_text||'</balance_segment10>';
484 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
485 l_text:='<balance_segment11>';
486 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment11);
487 l_text:=l_text||'</balance_segment11>';
488 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
489 l_text:='<balance_segment12>';
490 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment12);
491 l_text:=l_text||'</balance_segment12>';
492 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
493 l_text:='<balance_segment13>';
494 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment13);
495 l_text:=l_text||'</balance_segment13>';
496 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
497 l_text:='<balance_segment14>';
498 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment14);
499 l_text:=l_text||'</balance_segment14>';
500 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
501 l_text:='<balance_segment15>';
502 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment15);
503 l_text:=l_text||'</balance_segment15>';
504 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
505 l_text:='<balance_segment16>';
506 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment16);
507 l_text:=l_text||'</balance_segment16>';
508 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
509 l_text:='<balance_segment17>';
510 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment17);
511 l_text:=l_text||'</balance_segment17>';
512 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
513 l_text:='<balance_segment18>';
514 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment18);
515 l_text:=l_text||'</balance_segment18>';
516 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
517 l_text:='<balance_segment19>';
518 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment19);
519 l_text:=l_text||'</balance_segment19>';
520 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
521 l_text:='<balance_segment20>';
522 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment20);
523 l_text:=l_text||'</balance_segment20>';
524 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
525 l_text:='<balance_segment21>';
526 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment21);
527 l_text:=l_text||'</balance_segment21>';
528 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
529 l_text:='<balance_segment22>';
530 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment22);
531 l_text:=l_text||'</balance_segment22>';
532 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
533 l_text:='<balance_segment23>';
534 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment23);
535 l_text:=l_text||'</balance_segment23>';
536 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
537 l_text:='<balance_segment24>';
538 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment24);
539 l_text:=l_text||'</balance_segment24>';
540 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
541 l_text:='<balance_segment25>';
542 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment25);
543 l_text:=l_text||'</balance_segment25>';
544 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
545 l_text:='<balance_segment26>';
546 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment26);
547 l_text:=l_text||'</balance_segment26>';
548 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
549 l_text:='<balance_segment27>';
550 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment27);
551 l_text:=l_text||'</balance_segment27>';
552 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
553 l_text:='<balance_segment28>';
554 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment28);
555 l_text:=l_text||'</balance_segment28>';
556 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
557 l_text:='<balance_segment29>';
558 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment29);
559 l_text:=l_text||'</balance_segment29>';
560 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
561 l_text:='<balance_segment30>';
562 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_segment30);
563 l_text:=l_text||'</balance_segment30>';
564 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
568 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
565 l_text:='<cost_concat_segments>';
566 l_text:=l_text||irc_utilities_pkg.removeTags(p_cost_concat_segments);
567 l_text:=l_text||'</cost_concat_segments>';
569 l_text:='<balance_concat_segments>';
570 l_text:=l_text||irc_utilities_pkg.removeTags(p_balance_concat_segments);
571 l_text:=l_text||'</balance_concat_segments>';
572 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
573 l_text:='<element_link_id>';
574 l_text:=l_text||fnd_number.number_to_canonical(p_element_link_id);
575 l_text:=l_text||'</element_link_id>';
576 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
577 l_text:='<comment_id>';
578 l_text:=l_text||fnd_number.number_to_canonical(p_comment_id);
579 l_text:=l_text||'</comment_id>';
580 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
581 l_text:='<object_version_number>';
582 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
583 l_text:=l_text||'</object_version_number>';
584 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
585 l_text:='<effective_start_date>';
586 l_text:=l_text||fnd_date.date_to_canonical(p_effective_start_date);
587 l_text:=l_text||'</effective_start_date>';
588 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
589 l_text:='<effective_end_date>';
590 l_text:=l_text||fnd_date.date_to_canonical(p_effective_end_date);
591 l_text:=l_text||'</effective_end_date>';
592 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
593 l_text:='</element_link>';
594 --
595 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
596 --
597 if p_effective_start_date is not NULL and
598 p_effective_start_date > trunc(SYSDATE) and
599 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
600 -- raise the event with the event data, with send date set to effective date
601 wf_event.raise(p_event_name=>l_event_name
602 ,p_event_key=>l_event_key
603 ,p_event_data=>l_event_data
604 ,p_send_date => p_effective_start_date);
605 --
606 else
607 -- raise the event with the event data
608 wf_event.raise(p_event_name=>l_event_name
609 ,p_event_key=>l_event_key
610 ,p_event_data=>l_event_data);
611 end if;
612 elsif (l_message='KEY') then
613 hr_utility.set_location(l_proc,30);
614 -- get a key for the event
615 open get_seq;
616 fetch get_seq into l_event_key;
617 close get_seq;
618 if p_effective_start_date is not NULL and
619 p_effective_start_date > trunc(SYSDATE) and
620 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
621 -- this is a key event, so just raise the event
622 -- without the event data, with send date set to effective date
623 wf_event.raise(p_event_name=>l_event_name
624 ,p_event_key=>l_event_key
625 ,p_send_date => p_effective_start_date);
626 --
627 else
628 -- this is a key event, so just raise the event
629 -- without the event data
630 wf_event.raise(p_event_name=>l_event_name
631 ,p_event_key=>l_event_key);
632 end if;
633 elsif (l_message='NONE') then
634 hr_utility.set_location(l_proc,40);
635 -- no event is required, so do nothing
636 null;
637 end if;
638 hr_utility.set_location('Leaving: '||l_proc,50);
639 end create_element_link_a;
640 end pay_element_link_be1;