[Home] [Help]
PACKAGE BODY: APPS.PAY_ELEMENT_TYPES_BE1
Source
1 package body pay_element_types_be1 as
2 --Code generated on 30/03/2009 04:44:53
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_element_type_a (
5 p_effective_date date,
6 p_classification_id number,
7 p_element_name varchar2,
8 p_business_group_id number,
9 p_legislation_code varchar2,
10 p_formula_id number,
11 p_input_currency_code varchar2,
12 p_output_currency_code varchar2,
13 p_benefit_classification_id number,
14 p_additional_entry_allowed_fla varchar2,
15 p_adjustment_only_flag varchar2,
16 p_closed_for_entry_flag varchar2,
17 p_reporting_name varchar2,
18 p_description varchar2,
19 p_indirect_only_flag varchar2,
20 p_multiple_entries_allowed_fla varchar2,
21 p_multiply_value_flag varchar2,
22 p_post_termination_rule varchar2,
23 p_process_in_run_flag varchar2,
24 p_processing_priority number,
25 p_processing_type varchar2,
26 p_standard_link_flag varchar2,
27 p_comments varchar2,
28 p_third_party_pay_only_flag varchar2,
29 p_iterative_flag varchar2,
30 p_iterative_formula_id number,
31 p_iterative_priority number,
32 p_creator_type varchar2,
33 p_retro_summ_ele_id number,
34 p_grossup_flag varchar2,
35 p_process_mode varchar2,
36 p_advance_indicator varchar2,
37 p_advance_payable varchar2,
38 p_advance_deduction varchar2,
39 p_process_advance_entry varchar2,
40 p_proration_group_id number,
41 p_proration_formula_id number,
42 p_recalc_event_group_id number,
43 p_legislation_subgroup varchar2,
44 p_qualifying_age number,
45 p_qualifying_length_of_service number,
46 p_qualifying_units varchar2,
47 p_attribute_category varchar2,
48 p_attribute1 varchar2,
49 p_attribute2 varchar2,
50 p_attribute3 varchar2,
51 p_attribute4 varchar2,
52 p_attribute5 varchar2,
53 p_attribute6 varchar2,
54 p_attribute7 varchar2,
55 p_attribute8 varchar2,
56 p_attribute9 varchar2,
57 p_attribute10 varchar2,
58 p_attribute11 varchar2,
59 p_attribute12 varchar2,
60 p_attribute13 varchar2,
61 p_attribute14 varchar2,
62 p_attribute15 varchar2,
63 p_attribute16 varchar2,
64 p_attribute17 varchar2,
65 p_attribute18 varchar2,
66 p_attribute19 varchar2,
67 p_attribute20 varchar2,
68 p_element_information_category varchar2,
69 p_element_information1 varchar2,
70 p_element_information2 varchar2,
71 p_element_information3 varchar2,
72 p_element_information4 varchar2,
73 p_element_information5 varchar2,
74 p_element_information6 varchar2,
75 p_element_information7 varchar2,
76 p_element_information8 varchar2,
77 p_element_information9 varchar2,
78 p_element_information10 varchar2,
79 p_element_information11 varchar2,
80 p_element_information12 varchar2,
81 p_element_information13 varchar2,
82 p_element_information14 varchar2,
83 p_element_information15 varchar2,
84 p_element_information16 varchar2,
85 p_element_information17 varchar2,
86 p_element_information18 varchar2,
87 p_element_information19 varchar2,
88 p_element_information20 varchar2,
89 p_default_uom varchar2,
90 p_once_each_period_flag varchar2,
91 p_language_code varchar2,
92 p_time_definition_type varchar2,
93 p_time_definition_id number,
94 p_advance_element_type_id number,
95 p_deduction_element_type_id number,
96 p_element_type_id number,
97 p_effective_start_date date,
98 p_effective_end_date date,
99 p_object_version_number number,
100 p_comment_id number,
101 p_processing_priority_warning boolean) 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):=' pay_element_types_be1.create_element_type_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.pay.api.element_types.create_element_type';
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:='<element_types>';
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:='<classification_id>';
140 l_text:=l_text||fnd_number.number_to_canonical(p_classification_id);
141 l_text:=l_text||'</classification_id>';
142 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
143 l_text:='<element_name>';
144 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_name);
145 l_text:=l_text||'</element_name>';
146 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
147 l_text:='<business_group_id>';
148 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
149 l_text:=l_text||'</business_group_id>';
150 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
151 l_text:='<legislation_code>';
152 l_text:=l_text||irc_utilities_pkg.removeTags(p_legislation_code);
153 l_text:=l_text||'</legislation_code>';
154 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
155 l_text:='<formula_id>';
156 l_text:=l_text||fnd_number.number_to_canonical(p_formula_id);
157 l_text:=l_text||'</formula_id>';
158 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
159 l_text:='<input_currency_code>';
160 l_text:=l_text||irc_utilities_pkg.removeTags(p_input_currency_code);
161 l_text:=l_text||'</input_currency_code>';
162 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
163 l_text:='<output_currency_code>';
164 l_text:=l_text||irc_utilities_pkg.removeTags(p_output_currency_code);
165 l_text:=l_text||'</output_currency_code>';
166 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
167 l_text:='<benefit_classification_id>';
168 l_text:=l_text||fnd_number.number_to_canonical(p_benefit_classification_id);
169 l_text:=l_text||'</benefit_classification_id>';
170 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
171 l_text:='<additional_entry_allowed_fla>';
172 l_text:=l_text||irc_utilities_pkg.removeTags(p_additional_entry_allowed_fla);
173 l_text:=l_text||'</additional_entry_allowed_fla>';
174 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
175 l_text:='<adjustment_only_flag>';
176 l_text:=l_text||irc_utilities_pkg.removeTags(p_adjustment_only_flag);
177 l_text:=l_text||'</adjustment_only_flag>';
178 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
179 l_text:='<closed_for_entry_flag>';
180 l_text:=l_text||irc_utilities_pkg.removeTags(p_closed_for_entry_flag);
181 l_text:=l_text||'</closed_for_entry_flag>';
182 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
183 l_text:='<reporting_name>';
184 l_text:=l_text||irc_utilities_pkg.removeTags(p_reporting_name);
185 l_text:=l_text||'</reporting_name>';
186 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
187 l_text:='<description>';
188 l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
189 l_text:=l_text||'</description>';
190 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
191 l_text:='<indirect_only_flag>';
192 l_text:=l_text||irc_utilities_pkg.removeTags(p_indirect_only_flag);
193 l_text:=l_text||'</indirect_only_flag>';
194 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
195 l_text:='<multiple_entries_allowed_fla>';
196 l_text:=l_text||irc_utilities_pkg.removeTags(p_multiple_entries_allowed_fla);
197 l_text:=l_text||'</multiple_entries_allowed_fla>';
198 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
199 l_text:='<multiply_value_flag>';
200 l_text:=l_text||irc_utilities_pkg.removeTags(p_multiply_value_flag);
201 l_text:=l_text||'</multiply_value_flag>';
202 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
203 l_text:='<post_termination_rule>';
204 l_text:=l_text||irc_utilities_pkg.removeTags(p_post_termination_rule);
205 l_text:=l_text||'</post_termination_rule>';
206 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
207 l_text:='<process_in_run_flag>';
208 l_text:=l_text||irc_utilities_pkg.removeTags(p_process_in_run_flag);
209 l_text:=l_text||'</process_in_run_flag>';
210 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
211 l_text:='<processing_priority>';
212 l_text:=l_text||fnd_number.number_to_canonical(p_processing_priority);
213 l_text:=l_text||'</processing_priority>';
214 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
215 l_text:='<processing_type>';
216 l_text:=l_text||irc_utilities_pkg.removeTags(p_processing_type);
217 l_text:=l_text||'</processing_type>';
218 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
219 l_text:='<standard_link_flag>';
220 l_text:=l_text||irc_utilities_pkg.removeTags(p_standard_link_flag);
221 l_text:=l_text||'</standard_link_flag>';
222 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
223 l_text:='<comments>';
224 l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
225 l_text:=l_text||'</comments>';
226 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
227 l_text:='<third_party_pay_only_flag>';
228 l_text:=l_text||irc_utilities_pkg.removeTags(p_third_party_pay_only_flag);
229 l_text:=l_text||'</third_party_pay_only_flag>';
230 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
231 l_text:='<iterative_flag>';
232 l_text:=l_text||irc_utilities_pkg.removeTags(p_iterative_flag);
233 l_text:=l_text||'</iterative_flag>';
234 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
235 l_text:='<iterative_formula_id>';
236 l_text:=l_text||fnd_number.number_to_canonical(p_iterative_formula_id);
237 l_text:=l_text||'</iterative_formula_id>';
238 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
239 l_text:='<iterative_priority>';
240 l_text:=l_text||fnd_number.number_to_canonical(p_iterative_priority);
241 l_text:=l_text||'</iterative_priority>';
242 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
243 l_text:='<creator_type>';
244 l_text:=l_text||irc_utilities_pkg.removeTags(p_creator_type);
245 l_text:=l_text||'</creator_type>';
246 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
247 l_text:='<retro_summ_ele_id>';
248 l_text:=l_text||fnd_number.number_to_canonical(p_retro_summ_ele_id);
249 l_text:=l_text||'</retro_summ_ele_id>';
250 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
251 l_text:='<grossup_flag>';
252 l_text:=l_text||irc_utilities_pkg.removeTags(p_grossup_flag);
253 l_text:=l_text||'</grossup_flag>';
254 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
255 l_text:='<process_mode>';
256 l_text:=l_text||irc_utilities_pkg.removeTags(p_process_mode);
257 l_text:=l_text||'</process_mode>';
258 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
259 l_text:='<advance_indicator>';
260 l_text:=l_text||irc_utilities_pkg.removeTags(p_advance_indicator);
261 l_text:=l_text||'</advance_indicator>';
262 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
263 l_text:='<advance_payable>';
264 l_text:=l_text||irc_utilities_pkg.removeTags(p_advance_payable);
265 l_text:=l_text||'</advance_payable>';
266 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
267 l_text:='<advance_deduction>';
268 l_text:=l_text||irc_utilities_pkg.removeTags(p_advance_deduction);
269 l_text:=l_text||'</advance_deduction>';
270 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
271 l_text:='<process_advance_entry>';
272 l_text:=l_text||irc_utilities_pkg.removeTags(p_process_advance_entry);
273 l_text:=l_text||'</process_advance_entry>';
274 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
275 l_text:='<proration_group_id>';
276 l_text:=l_text||fnd_number.number_to_canonical(p_proration_group_id);
277 l_text:=l_text||'</proration_group_id>';
278 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
279 l_text:='<proration_formula_id>';
280 l_text:=l_text||fnd_number.number_to_canonical(p_proration_formula_id);
281 l_text:=l_text||'</proration_formula_id>';
282 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
283 l_text:='<recalc_event_group_id>';
284 l_text:=l_text||fnd_number.number_to_canonical(p_recalc_event_group_id);
285 l_text:=l_text||'</recalc_event_group_id>';
286 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
287 l_text:='<legislation_subgroup>';
288 l_text:=l_text||irc_utilities_pkg.removeTags(p_legislation_subgroup);
289 l_text:=l_text||'</legislation_subgroup>';
290 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
291 l_text:='<qualifying_age>';
292 l_text:=l_text||fnd_number.number_to_canonical(p_qualifying_age);
293 l_text:=l_text||'</qualifying_age>';
294 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
295 l_text:='<qualifying_length_of_service>';
296 l_text:=l_text||fnd_number.number_to_canonical(p_qualifying_length_of_service);
297 l_text:=l_text||'</qualifying_length_of_service>';
298 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
299 l_text:='<qualifying_units>';
300 l_text:=l_text||irc_utilities_pkg.removeTags(p_qualifying_units);
301 l_text:=l_text||'</qualifying_units>';
302 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
303 l_text:='<attribute_category>';
304 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
305 l_text:=l_text||'</attribute_category>';
306 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
307 l_text:='<attribute1>';
308 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
309 l_text:=l_text||'</attribute1>';
310 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
311 l_text:='<attribute2>';
312 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
313 l_text:=l_text||'</attribute2>';
317 l_text:=l_text||'</attribute3>';
314 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
315 l_text:='<attribute3>';
316 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
318 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
319 l_text:='<attribute4>';
320 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
321 l_text:=l_text||'</attribute4>';
322 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
323 l_text:='<attribute5>';
324 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
325 l_text:=l_text||'</attribute5>';
326 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
327 l_text:='<attribute6>';
328 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
329 l_text:=l_text||'</attribute6>';
330 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
331 l_text:='<attribute7>';
332 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
333 l_text:=l_text||'</attribute7>';
334 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
335 l_text:='<attribute8>';
336 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
337 l_text:=l_text||'</attribute8>';
338 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
339 l_text:='<attribute9>';
340 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
341 l_text:=l_text||'</attribute9>';
342 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
343 l_text:='<attribute10>';
344 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
345 l_text:=l_text||'</attribute10>';
346 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
347 l_text:='<attribute11>';
348 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
349 l_text:=l_text||'</attribute11>';
350 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
351 l_text:='<attribute12>';
352 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
353 l_text:=l_text||'</attribute12>';
354 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
355 l_text:='<attribute13>';
356 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
357 l_text:=l_text||'</attribute13>';
358 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
359 l_text:='<attribute14>';
360 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
361 l_text:=l_text||'</attribute14>';
362 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
363 l_text:='<attribute15>';
364 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
365 l_text:=l_text||'</attribute15>';
366 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
367 l_text:='<attribute16>';
368 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
369 l_text:=l_text||'</attribute16>';
370 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
371 l_text:='<attribute17>';
372 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
373 l_text:=l_text||'</attribute17>';
374 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
375 l_text:='<attribute18>';
376 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
377 l_text:=l_text||'</attribute18>';
378 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
379 l_text:='<attribute19>';
380 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
381 l_text:=l_text||'</attribute19>';
382 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
383 l_text:='<attribute20>';
384 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
385 l_text:=l_text||'</attribute20>';
386 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
387 l_text:='<element_information_category>';
388 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information_category);
389 l_text:=l_text||'</element_information_category>';
390 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
391 l_text:='<element_information1>';
392 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information1);
393 l_text:=l_text||'</element_information1>';
394 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
395 l_text:='<element_information2>';
396 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information2);
397 l_text:=l_text||'</element_information2>';
398 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
399 l_text:='<element_information3>';
400 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information3);
401 l_text:=l_text||'</element_information3>';
402 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
403 l_text:='<element_information4>';
404 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information4);
405 l_text:=l_text||'</element_information4>';
406 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
407 l_text:='<element_information5>';
408 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information5);
409 l_text:=l_text||'</element_information5>';
410 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
411 l_text:='<element_information6>';
412 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information6);
413 l_text:=l_text||'</element_information6>';
414 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
415 l_text:='<element_information7>';
416 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information7);
417 l_text:=l_text||'</element_information7>';
421 l_text:=l_text||'</element_information8>';
418 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
419 l_text:='<element_information8>';
420 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information8);
422 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
423 l_text:='<element_information9>';
424 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information9);
425 l_text:=l_text||'</element_information9>';
426 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
427 l_text:='<element_information10>';
428 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information10);
429 l_text:=l_text||'</element_information10>';
430 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
431 l_text:='<element_information11>';
432 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information11);
433 l_text:=l_text||'</element_information11>';
434 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
435 l_text:='<element_information12>';
436 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information12);
437 l_text:=l_text||'</element_information12>';
438 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
439 l_text:='<element_information13>';
440 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information13);
441 l_text:=l_text||'</element_information13>';
442 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
443 l_text:='<element_information14>';
444 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information14);
445 l_text:=l_text||'</element_information14>';
446 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
447 l_text:='<element_information15>';
448 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information15);
449 l_text:=l_text||'</element_information15>';
450 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
451 l_text:='<element_information16>';
452 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information16);
453 l_text:=l_text||'</element_information16>';
454 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
455 l_text:='<element_information17>';
456 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information17);
457 l_text:=l_text||'</element_information17>';
458 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
459 l_text:='<element_information18>';
460 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information18);
461 l_text:=l_text||'</element_information18>';
462 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
463 l_text:='<element_information19>';
464 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information19);
465 l_text:=l_text||'</element_information19>';
466 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
467 l_text:='<element_information20>';
468 l_text:=l_text||irc_utilities_pkg.removeTags(p_element_information20);
469 l_text:=l_text||'</element_information20>';
470 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
471 l_text:='<default_uom>';
472 l_text:=l_text||irc_utilities_pkg.removeTags(p_default_uom);
473 l_text:=l_text||'</default_uom>';
474 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
475 l_text:='<once_each_period_flag>';
476 l_text:=l_text||irc_utilities_pkg.removeTags(p_once_each_period_flag);
477 l_text:=l_text||'</once_each_period_flag>';
478 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
479 l_text:='<language_code>';
480 l_text:=l_text||irc_utilities_pkg.removeTags(p_language_code);
481 l_text:=l_text||'</language_code>';
482 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
483 l_text:='<time_definition_type>';
484 l_text:=l_text||irc_utilities_pkg.removeTags(p_time_definition_type);
485 l_text:=l_text||'</time_definition_type>';
486 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
487 l_text:='<time_definition_id>';
488 l_text:=l_text||fnd_number.number_to_canonical(p_time_definition_id);
489 l_text:=l_text||'</time_definition_id>';
490 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
491 l_text:='<advance_element_type_id>';
492 l_text:=l_text||fnd_number.number_to_canonical(p_advance_element_type_id);
493 l_text:=l_text||'</advance_element_type_id>';
494 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
495 l_text:='<deduction_element_type_id>';
496 l_text:=l_text||fnd_number.number_to_canonical(p_deduction_element_type_id);
497 l_text:=l_text||'</deduction_element_type_id>';
498 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
499 l_text:='<element_type_id>';
500 l_text:=l_text||fnd_number.number_to_canonical(p_element_type_id);
501 l_text:=l_text||'</element_type_id>';
502 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
503 l_text:='<effective_start_date>';
504 l_text:=l_text||fnd_date.date_to_canonical(p_effective_start_date);
505 l_text:=l_text||'</effective_start_date>';
506 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
507 l_text:='<effective_end_date>';
508 l_text:=l_text||fnd_date.date_to_canonical(p_effective_end_date);
509 l_text:=l_text||'</effective_end_date>';
510 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
511 l_text:='<object_version_number>';
512 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
513 l_text:=l_text||'</object_version_number>';
514 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
515 l_text:='<comment_id>';
516 l_text:=l_text||fnd_number.number_to_canonical(p_comment_id);
517 l_text:=l_text||'</comment_id>';
518 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
519 l_text:='<processing_priority_warning>';
520 if(P_PROCESSING_PRIORITY_WARNING) then
521 l_text:=l_text||'TRUE';
522 else
523 l_text:=l_text||'FALSE';
524 end if;
525 l_text:=l_text||'</processing_priority_warning>';
526 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
527 l_text:='</element_types>';
528 --
529 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
530 --
531 if p_effective_start_date is not NULL and
532 p_effective_start_date > trunc(SYSDATE) and
533 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
534 -- raise the event with the event data, with send date set to effective date
535 wf_event.raise(p_event_name=>l_event_name
536 ,p_event_key=>l_event_key
537 ,p_event_data=>l_event_data
538 ,p_send_date => p_effective_start_date);
539 --
540 else
541 -- raise the event with the event data
542 wf_event.raise(p_event_name=>l_event_name
543 ,p_event_key=>l_event_key
544 ,p_event_data=>l_event_data);
545 end if;
546 elsif (l_message='KEY') then
547 hr_utility.set_location(l_proc,30);
548 -- get a key for the event
549 open get_seq;
550 fetch get_seq into l_event_key;
551 close get_seq;
552 if p_effective_start_date is not NULL and
553 p_effective_start_date > trunc(SYSDATE) and
554 fnd_profile.value('HR_DEFER_FD_BE_EVENTS') = 'Y' then
555 -- this is a key event, so just raise the event
556 -- without the event data, with send date set to effective date
557 wf_event.raise(p_event_name=>l_event_name
558 ,p_event_key=>l_event_key
559 ,p_send_date => p_effective_start_date);
560 --
561 else
562 -- this is a key event, so just raise the event
563 -- without the event data
564 wf_event.raise(p_event_name=>l_event_name
565 ,p_event_key=>l_event_key);
566 end if;
567 elsif (l_message='NONE') then
568 hr_utility.set_location(l_proc,40);
569 -- no event is required, so do nothing
570 null;
571 end if;
572 hr_utility.set_location('Leaving: '||l_proc,50);
573 end create_element_type_a;
574 end pay_element_types_be1;