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