[Home] [Help]
PACKAGE BODY: APPS.PAY_CFT_SHD
Source
1 Package Body pay_cft_shd as
2 /* $Header: pycatrhi.pkb 120.1 2005/10/05 06:44:36 saurgupt noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_cft_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 l_proc varchar2(72) := g_package||'return_api_dml_status';
16 --
17 Begin
18 hr_utility.set_location('Entering:'||l_proc, 5);
19 --
20 Return (nvl(g_api_dml, false));
21 --
22 hr_utility.set_location(' Leaving:'||l_proc, 10);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in all_constraints.constraint_name%TYPE) Is
30 --
31 l_proc varchar2(72) := g_package||'constraint_error';
32 --
33 Begin
34 hr_utility.set_location('Entering:'||l_proc, 5);
35 --
36 If (p_constraint_name = 'PAY_CA_EMP_FED_TAX_RULES_PK') Then
37 hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
38 hr_utility.set_message_token('PROCEDURE', l_proc);
39 hr_utility.set_message_token('STEP','5');
40 hr_utility.raise_error;
41 Else
42 hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
43 hr_utility.set_message_token('PROCEDURE', l_proc);
44 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45 hr_utility.raise_error;
46 End If;
47 --
48 hr_utility.set_location(' Leaving:'||l_proc, 10);
49 End constraint_error;
50 --
51 -- ----------------------------------------------------------------------------
52 -- |-----------------------------< api_updating >-----------------------------|
53 -- ----------------------------------------------------------------------------
54 Function api_updating
55 (p_effective_date in date,
56 p_emp_fed_tax_inf_id in number,
57 p_object_version_number in number
58 ) Return Boolean Is
59 --
60 --
61 -- Cursor selects the 'current' row from the HR Schema
62 --
63 Cursor C_Sel1 is
64 select
65 emp_fed_tax_inf_id,
66 effective_start_date,
67 effective_end_date,
68 legislation_code,
69 assignment_id,
70 business_group_id,
71 employment_province,
72 tax_credit_amount,
73 claim_code,
74 basic_exemption_flag,
75 additional_tax,
76 annual_dedn,
77 total_expense_by_commission,
78 total_remnrtn_by_commission,
79 prescribed_zone_dedn_amt,
80 other_fedtax_credits,
81 cpp_qpp_exempt_flag,
82 fed_exempt_flag,
83 ei_exempt_flag,
84 tax_calc_method,
85 fed_override_amount,
86 fed_override_rate,
87 ca_tax_information_category,
88 ca_tax_information1,
89 ca_tax_information2,
90 ca_tax_information3,
91 ca_tax_information4,
92 ca_tax_information5,
93 ca_tax_information6,
94 ca_tax_information7,
95 ca_tax_information8,
96 ca_tax_information9,
97 ca_tax_information10,
98 ca_tax_information11,
99 ca_tax_information12,
100 ca_tax_information13,
101 ca_tax_information14,
102 ca_tax_information15,
103 ca_tax_information16,
104 ca_tax_information17,
105 ca_tax_information18,
106 ca_tax_information19,
107 ca_tax_information20,
108 ca_tax_information21,
109 ca_tax_information22,
110 ca_tax_information23,
111 ca_tax_information24,
112 ca_tax_information25,
113 ca_tax_information26,
114 ca_tax_information27,
115 ca_tax_information28,
116 ca_tax_information29,
117 ca_tax_information30,
118 object_version_number,
119 fed_lsf_amount
120 from pay_ca_emp_fed_tax_info_f
121 where emp_fed_tax_inf_id = p_emp_fed_tax_inf_id
122 and p_effective_date
123 between effective_start_date and effective_end_date;
124 --
125 l_proc varchar2(72) := g_package||'api_updating';
126 l_fct_ret boolean;
127 --
128 Begin
129 hr_utility.set_location('Entering:'||l_proc, 5);
130 --
131 If (p_effective_date is null or
132 p_emp_fed_tax_inf_id is null or
133 p_object_version_number is null) Then
134 --
135 -- One of the primary key arguments is null therefore we must
136 -- set the returning function value to false
137 --
138 l_fct_ret := false;
139 Else
140 If (p_emp_fed_tax_inf_id = g_old_rec.emp_fed_tax_inf_id and
141 p_object_version_number = g_old_rec.object_version_number) Then
142 hr_utility.set_location(l_proc, 10);
143 --
144 -- The g_old_rec is current therefore we must
145 -- set the returning function to true
146 --
147
148 l_fct_ret := true;
149 Else
150 --
151 -- Select the current row
152 --
153 -- dbms_output.put_line('cannot change assignment_id 3');
154 Open C_Sel1;
155 Fetch C_Sel1 Into g_old_rec;
156 If C_Sel1%notfound Then
157 Close C_Sel1;
158 --
159 -- The primary key is invalid therefore we must error
160 --
161 hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
162 hr_utility.raise_error;
163 End If;
164 Close C_Sel1;
165 If (p_object_version_number <> g_old_rec.object_version_number) Then
166 hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
167 hr_utility.raise_error;
168 End If;
169 hr_utility.set_location(l_proc, 15);
170 l_fct_ret := true;
171 End If;
172 End If;
173 hr_utility.set_location(' Leaving:'||l_proc, 20);
174 Return (l_fct_ret);
175 --
176 End api_updating;
177 --
178 -- ----------------------------------------------------------------------------
179 -- |--------------------------< find_dt_del_modes >---------------------------|
180 -- ----------------------------------------------------------------------------
181 Procedure find_dt_del_modes
182 (p_effective_date in date,
183 p_base_key_value in number,
184 p_zap out nocopy boolean,
185 p_delete out nocopy boolean,
186 p_future_change out nocopy boolean,
187 p_delete_next_change out nocopy boolean) is
188 --
189 l_proc varchar2(72) := g_package||'find_dt_del_modes';
190 --
191 l_parent_key_value1 number;
192 --
193 Cursor C_Sel1 Is
194 select t.assignment_id
195 from pay_ca_emp_fed_tax_info_f t
196 where t.emp_fed_tax_inf_id = p_base_key_value
197 and p_effective_date
198 between t.effective_start_date and t.effective_end_date;
199 --
200 Begin
201 hr_utility.set_location('Entering:'||l_proc, 5);
202 Open C_Sel1;
203 Fetch C_Sel1 Into l_parent_key_value1;
204 If C_Sel1%notfound then
205 Close C_Sel1;
206 hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
207 hr_utility.set_message_token('PROCEDURE', l_proc);
208 hr_utility.set_message_token('STEP','10');
209 hr_utility.raise_error;
210 End If;
211 Close C_Sel1;
212 --
213 -- Call the corresponding datetrack api
214 --
215 dt_api.find_dt_del_modes
216 (p_effective_date => p_effective_date,
217 p_base_table_name => 'pay_ca_emp_fed_tax_info_f',
218 p_base_key_column => 'emp_fed_tax_inf_id',
219 p_base_key_value => p_base_key_value,
220 p_parent_table_name1 => 'per_all_assignments_f',
221 p_parent_key_column1 => 'assignment_id',
222 p_parent_key_value1 => l_parent_key_value1,
223 p_zap => p_zap,
224 p_delete => p_delete,
225 p_future_change => p_future_change,
226 p_delete_next_change => p_delete_next_change);
227 --
228 hr_utility.set_location(' Leaving:'||l_proc, 10);
229 End find_dt_del_modes;
230 --
231 -- ----------------------------------------------------------------------------
232 -- |--------------------------< find_dt_upd_modes >---------------------------|
233 -- ----------------------------------------------------------------------------
234 Procedure find_dt_upd_modes
235 (p_effective_date in date,
236 p_base_key_value in number,
237 p_correction out nocopy boolean,
238 p_update out nocopy boolean,
239 p_update_override out nocopy boolean,
240 p_update_change_insert out nocopy boolean) is
241 --
242 l_proc varchar2(72) := g_package||'find_dt_upd_modes';
243 --
244 Begin
245 hr_utility.set_location('Entering:'||l_proc, 5);
246 --
247 -- Call the corresponding datetrack api
248 --
249 dt_api.find_dt_upd_modes
250 (p_effective_date => p_effective_date,
251 p_base_table_name => 'pay_ca_emp_fed_tax_info_f',
252 p_base_key_column => 'emp_fed_tax_inf_id',
253 p_base_key_value => p_base_key_value,
254 p_correction => p_correction,
255 p_update => p_update,
256 p_update_override => p_update_override,
257 p_update_change_insert => p_update_change_insert);
258 --
259 hr_utility.set_location(' Leaving:'||l_proc, 10);
260 End find_dt_upd_modes;
261 --
262 -- ----------------------------------------------------------------------------
263 -- |------------------------< upd_effective_end_date >------------------------|
264 -- ----------------------------------------------------------------------------
265 Procedure upd_effective_end_date
266 (p_effective_date in date,
267 p_base_key_value in number,
268 p_new_effective_end_date in date,
269 p_validation_start_date in date,
270 p_validation_end_date in date,
271 p_object_version_number out nocopy number) is
272 --
273 l_proc varchar2(72) := g_package||'upd_effective_end_date';
274 l_object_version_number number;
275 --
276 Begin
277 hr_utility.set_location('Entering:'||l_proc, 5);
278 --
279 -- Because we are updating a row we must get the next object
280 -- version number.
281 --
282 l_object_version_number :=
283 dt_api.get_object_version_number
284 (p_base_table_name => 'pay_ca_emp_fed_tax_info_f',
285 p_base_key_column => 'emp_fed_tax_inf_id',
286 p_base_key_value => p_base_key_value);
287 --
288 hr_utility.set_location(l_proc, 10);
289 g_api_dml := true; -- Set the api dml status
290 --
291 -- Update the specified datetrack row setting the effective
292 -- end date to the specified new effective end date.
293 --
294 update pay_ca_emp_fed_tax_info_f t
295 set t.effective_end_date = p_new_effective_end_date,
296 t.object_version_number = l_object_version_number
297 where t.emp_fed_tax_inf_id = p_base_key_value
298 and p_effective_date
299 between t.effective_start_date and t.effective_end_date;
300 --
301 g_api_dml := false; -- Unset the api dml status
302 p_object_version_number := l_object_version_number;
303 hr_utility.set_location(' Leaving:'||l_proc, 15);
304 --
305 Exception
306 When Others Then
307 g_api_dml := false; -- Unset the api dml status
308 Raise;
309 End upd_effective_end_date;
310 --
311 -- ----------------------------------------------------------------------------
312 -- |---------------------------------< lck >----------------------------------|
313 -- ----------------------------------------------------------------------------
314 Procedure lck
315 ( p_effective_date in date,
316 p_datetrack_mode in varchar2,
317 p_emp_fed_tax_inf_id in number,
318 p_object_version_number in number,
319 p_validation_start_date out nocopy date,
320 p_validation_end_date out nocopy date) is
321 --
322 l_proc varchar2(72) := g_package||'lck';
323 l_validation_start_date date;
324 l_validation_end_date date;
325 l_object_invalid exception;
326 l_argument varchar2(30);
327 --
328 -- Cursor C_Sel1 selects the current locked row as of session date
329 -- ensuring that the object version numbers match.
330 --
331 Cursor C_Sel1 is
332 select
333 emp_fed_tax_inf_id,
334 effective_start_date,
335 effective_end_date,
336 legislation_code,
337 assignment_id,
338 business_group_id,
339 employment_province,
340 tax_credit_amount,
341 claim_code,
342 basic_exemption_flag,
343 additional_tax,
344 annual_dedn,
345 total_expense_by_commission,
346 total_remnrtn_by_commission,
347 prescribed_zone_dedn_amt,
348 other_fedtax_credits,
349 cpp_qpp_exempt_flag,
350 fed_exempt_flag,
351 ei_exempt_flag,
352 tax_calc_method,
353 fed_override_amount,
354 fed_override_rate,
355 ca_tax_information_category,
356 ca_tax_information1,
357 ca_tax_information2,
358 ca_tax_information3,
359 ca_tax_information4,
360 ca_tax_information5,
361 ca_tax_information6,
362 ca_tax_information7,
363 ca_tax_information8,
364 ca_tax_information9,
365 ca_tax_information10,
366 ca_tax_information11,
367 ca_tax_information12,
368 ca_tax_information13,
369 ca_tax_information14,
370 ca_tax_information15,
371 ca_tax_information16,
372 ca_tax_information17,
373 ca_tax_information18,
374 ca_tax_information19,
375 ca_tax_information20,
376 ca_tax_information21,
377 ca_tax_information22,
378 ca_tax_information23,
379 ca_tax_information24,
380 ca_tax_information25,
381 ca_tax_information26,
382 ca_tax_information27,
383 ca_tax_information28,
384 ca_tax_information29,
385 ca_tax_information30,
386 object_version_number,
387 fed_lsf_amount
388 from pay_ca_emp_fed_tax_info_f
389 where emp_fed_tax_inf_id = p_emp_fed_tax_inf_id
390 and p_effective_date
391 between effective_start_date and effective_end_date
392 for update nowait;
393 --
394 --
395 --
396 Begin
397 hr_utility.set_location('Entering:'||l_proc, 5);
398 --
399 -- Ensure that all the mandatory arguments are not null
400 --
401 hr_api.mandatory_arg_error(p_api_name => l_proc,
402 p_argument => 'effective_date',
403 p_argument_value => p_effective_date);
404 --
405 hr_api.mandatory_arg_error(p_api_name => l_proc,
406 p_argument => 'datetrack_mode',
407 p_argument_value => p_datetrack_mode);
408 --
409 hr_api.mandatory_arg_error(p_api_name => l_proc,
410 p_argument => 'emp_fed_tax_inf_id',
411 p_argument_value => p_emp_fed_tax_inf_id);
412 --
413 hr_api.mandatory_arg_error(p_api_name => l_proc,
414 p_argument => 'object_version_number',
415 p_argument_value => p_object_version_number);
416 /*
417 hr_api.mandatory_arg_error(p_api_name => l_proc,
418 p_argument => 'assignment_id',
422 p_argument => 'legislation_code',
419 p_argument_value => p_assignment_id);
420
421 hr_api.mandatory_arg_error(p_api_name => l_proc,
423 p_argument_value => p_legislation_code);
424
425 hr_api.mandatory_arg_error(p_api_name => l_proc,
426 p_argument => 'business_group_id',
427 p_argument_value => p_business_group_id);
428 */
429 --
430 -- Check to ensure the datetrack mode is not INSERT.
431 --
432 If (p_datetrack_mode <> 'INSERT') then
433 --
434 -- We must select and lock the current row.
435 --
436 Open C_Sel1;
437 Fetch C_Sel1 Into g_old_rec;
438 If C_Sel1%notfound then
439 Close C_Sel1;
440 --
441 -- The primary key is invalid therefore we must error
442 --
443 hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
444 hr_utility.raise_error;
445 End If;
446 Close C_Sel1;
447 If (p_object_version_number <> g_old_rec.object_version_number) Then
448 hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
449 hr_utility.raise_error;
450 End If;
451 /*
452 If (p_assignment_id <> g_old_rec.assignment_id) Then
453 hr_utility.set_message(800, 'HR_74027_ASSIGNMENT_ID_CHANGED');
454 hr_utility.raise_error;
455 End If;
456 */
457 hr_utility.set_location(l_proc, 15);
458 --
459 --
460 -- Validate the datetrack mode mode getting the validation start
461 -- and end dates for the specified datetrack operation.
462 --
463 dt_api.validate_dt_mode
464 (p_effective_date => p_effective_date,
465 p_datetrack_mode => p_datetrack_mode,
466 p_base_table_name => 'pay_ca_emp_fed_tax_info_f',
467 p_base_key_column => 'emp_fed_tax_inf_id',
468 p_base_key_value => p_emp_fed_tax_inf_id,
469 p_parent_table_name1 => 'per_all_assignments_f',
470 p_parent_key_column1 => 'assignment_id',
471 p_parent_key_value1 => g_old_rec.assignment_id,
472 p_enforce_foreign_locking => true,
473 p_validation_start_date => l_validation_start_date,
474 p_validation_end_date => l_validation_end_date);
475 Else
476 --
477 -- We are doing a datetrack 'INSERT' which is illegal within this
478 -- procedure therefore we must error (note: to lck on insert the
479 -- private procedure ins_lck should be called).
480 --
481 hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
482 hr_utility.set_message_token('PROCEDURE', l_proc);
483 hr_utility.set_message_token('STEP','20');
484 hr_utility.raise_error;
485 End If;
486 --
487 -- Set the validation start and end date OUT arguments
488 --
489 p_validation_start_date := l_validation_start_date;
490 p_validation_end_date := l_validation_end_date;
491 --
492 hr_utility.set_location(' Leaving:'||l_proc, 30);
493 --
494 -- We need to trap the ORA LOCK exception
495 --
496 Exception
497 When HR_Api.Object_Locked then
498 --
499 -- The object is locked therefore we need to supply a meaningful
500 -- error message.
501 --
502 hr_utility.set_message(800, 'HR_7165_OBJECT_LOCKED');
503 hr_utility.set_message_token('TABLE_NAME', 'pay_ca_emp_fed_tax_info_f');
504 hr_utility.raise_error;
505 When l_object_invalid then
506 --
507 -- The object doesn't exist or is invalid
508 --
509 hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
510 hr_utility.set_message_token('TABLE_NAME', 'pay_ca_emp_fed_tax_info_f');
511 hr_utility.raise_error;
512 End lck;
513 --
514 -- ----------------------------------------------------------------------------
515 -- |-----------------------------< convert_args >-----------------------------|
516 -- ----------------------------------------------------------------------------
517 Function convert_args
518 (
519 p_emp_fed_tax_inf_id in number,
520 p_effective_start_date in date,
521 p_effective_end_date in date,
522 p_legislation_code in varchar2,
523 p_assignment_id in number,
524 p_business_group_id in number,
525 p_employment_province in varchar2,
526 p_tax_credit_amount in number,
527 p_claim_code in varchar2,
528 p_basic_exemption_flag in varchar2,
529 p_additional_tax in number,
530 p_annual_dedn in number,
531 p_total_expense_by_commission in number,
532 p_total_remnrtn_by_commission in number,
533 p_prescribed_zone_dedn_amt in number,
534 p_other_fedtax_credits in varchar2,
535 p_cpp_qpp_exempt_flag in varchar2,
536 p_fed_exempt_flag in varchar2,
537 p_ei_exempt_flag in varchar2,
538 p_tax_calc_method in varchar2,
539 p_fed_override_amount in number,
540 p_fed_override_rate in number,
541 p_ca_tax_information_category in varchar2,
542 p_ca_tax_information1 in varchar2,
543 p_ca_tax_information2 in varchar2,
544 p_ca_tax_information3 in varchar2,
548 p_ca_tax_information7 in varchar2,
545 p_ca_tax_information4 in varchar2,
546 p_ca_tax_information5 in varchar2,
547 p_ca_tax_information6 in varchar2,
549 p_ca_tax_information8 in varchar2,
550 p_ca_tax_information9 in varchar2,
551 p_ca_tax_information10 in varchar2,
552 p_ca_tax_information11 in varchar2,
553 p_ca_tax_information12 in varchar2,
554 p_ca_tax_information13 in varchar2,
555 p_ca_tax_information14 in varchar2,
556 p_ca_tax_information15 in varchar2,
557 p_ca_tax_information16 in varchar2,
558 p_ca_tax_information17 in varchar2,
559 p_ca_tax_information18 in varchar2,
560 p_ca_tax_information19 in varchar2,
561 p_ca_tax_information20 in varchar2,
562 p_ca_tax_information21 in varchar2,
563 p_ca_tax_information22 in varchar2,
564 p_ca_tax_information23 in varchar2,
565 p_ca_tax_information24 in varchar2,
566 p_ca_tax_information25 in varchar2,
567 p_ca_tax_information26 in varchar2,
568 p_ca_tax_information27 in varchar2,
569 p_ca_tax_information28 in varchar2,
570 p_ca_tax_information29 in varchar2,
571 p_ca_tax_information30 in varchar2,
572 p_object_version_number in number,
573 p_fed_lsf_amount in number
574 )
575 Return g_rec_type is
576 --
577 l_rec g_rec_type;
578 l_proc varchar2(72) := g_package||'convert_args';
579 --
580 Begin
581 --
582 hr_utility.set_location('Entering:'||l_proc, 5);
583 --
584 -- Convert arguments into local l_rec structure.
585 --
586 l_rec.emp_fed_tax_inf_id := p_emp_fed_tax_inf_id;
587 l_rec.effective_start_date := p_effective_start_date;
588 l_rec.effective_end_date := p_effective_end_date;
589 l_rec.legislation_code := p_legislation_code;
590 l_rec.assignment_id := p_assignment_id;
591 l_rec.business_group_id := p_business_group_id;
592 l_rec.employment_province := p_employment_province;
593 l_rec.tax_credit_amount := p_tax_credit_amount;
594 l_rec.claim_code := p_claim_code;
595 l_rec.basic_exemption_flag := p_basic_exemption_flag;
596 l_rec.additional_tax := p_additional_tax;
597 l_rec.annual_dedn := p_annual_dedn;
598 l_rec.total_expense_by_commission := p_total_expense_by_commission;
599 l_rec.total_remnrtn_by_commission := p_total_remnrtn_by_commission;
600 l_rec.prescribed_zone_dedn_amt := p_prescribed_zone_dedn_amt;
601 l_rec.other_fedtax_credits := p_other_fedtax_credits;
602 l_rec.cpp_qpp_exempt_flag := p_cpp_qpp_exempt_flag;
603 l_rec.fed_exempt_flag := p_fed_exempt_flag;
604 l_rec.ei_exempt_flag := p_ei_exempt_flag;
605 l_rec.tax_calc_method := p_tax_calc_method;
606 l_rec.fed_override_amount := p_fed_override_amount;
607 l_rec.fed_override_rate := p_fed_override_rate;
608 l_rec.ca_tax_information_category := p_ca_tax_information_category;
609 l_rec.ca_tax_information1 := p_ca_tax_information1;
610 l_rec.ca_tax_information2 := p_ca_tax_information2;
611 l_rec.ca_tax_information3 := p_ca_tax_information3;
612 l_rec.ca_tax_information4 := p_ca_tax_information4;
613 l_rec.ca_tax_information5 := p_ca_tax_information5;
614 l_rec.ca_tax_information6 := p_ca_tax_information6;
615 l_rec.ca_tax_information7 := p_ca_tax_information7;
616 l_rec.ca_tax_information8 := p_ca_tax_information8;
617 l_rec.ca_tax_information9 := p_ca_tax_information9;
618 l_rec.ca_tax_information10 := p_ca_tax_information10;
619 l_rec.ca_tax_information11 := p_ca_tax_information11;
620 l_rec.ca_tax_information12 := p_ca_tax_information12;
621 l_rec.ca_tax_information13 := p_ca_tax_information13;
622 l_rec.ca_tax_information14 := p_ca_tax_information14;
623 l_rec.ca_tax_information15 := p_ca_tax_information15;
624 l_rec.ca_tax_information16 := p_ca_tax_information16;
625 l_rec.ca_tax_information17 := p_ca_tax_information17;
626 l_rec.ca_tax_information18 := p_ca_tax_information18;
627 l_rec.ca_tax_information19 := p_ca_tax_information19;
628 l_rec.ca_tax_information20 := p_ca_tax_information20;
629 l_rec.ca_tax_information21 := p_ca_tax_information21;
630 l_rec.ca_tax_information22 := p_ca_tax_information22;
631 l_rec.ca_tax_information23 := p_ca_tax_information23;
632 l_rec.ca_tax_information24 := p_ca_tax_information24;
633 l_rec.ca_tax_information25 := p_ca_tax_information25;
634 l_rec.ca_tax_information26 := p_ca_tax_information26;
635 l_rec.ca_tax_information27 := p_ca_tax_information27;
636 l_rec.ca_tax_information28 := p_ca_tax_information28;
637 l_rec.ca_tax_information29 := p_ca_tax_information29;
638 l_rec.ca_tax_information30 := p_ca_tax_information30;
639 l_rec.object_version_number := p_object_version_number;
640 l_rec.fed_lsf_amount := p_fed_lsf_amount;
641 --
642 -- Return the plsql record structure.
643 --
644 hr_utility.set_location(' Leaving:'||l_proc, 10);
645 Return(l_rec);
646 --
647 End convert_args;
648 --
649 end pay_cft_shd;