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