1 Package Body pay_cft_upd 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_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |----------------------------< dt_update_dml >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the execution of dml from the datetrack mode
17 -- of CORRECTION only. It is important to note that the object version
18 -- number is only increment by 1 because the datetrack correction is
19 -- soley for one datetracked row.
20 -- This procedure controls the actual dml update logic. The functions of this
21 -- procedure are as follows:
22 -- 1) Get the next object_version_number.
23 -- 2) To set and unset the g_api_dml status as required (as we are about to
24 -- perform dml).
25 -- 3) To update the specified row in the schema using the primary key in
26 -- the predicates.
27 -- 4) To trap any constraint violations that may have occurred.
28 -- 5) To raise any other errors.
29 --
30 -- Prerequisites:
31 -- This is an internal private procedure which must be called from the
32 -- update_dml procedure.
33 --
34 -- In Parameters:
35 -- A Pl/Sql record structre.
36 --
37 -- Post Success:
38 -- The specified row will be updated in the schema.
39 --
40 -- Post Failure:
41 -- On the update dml failure it is important to note that we always reset the
42 -- g_api_dml status to false.
43 -- If a check or unique integrity constraint violation is raised the
44 -- constraint_error procedure will be called.
45 -- If any other error is reported, the error will be raised after the
46 -- g_api_dml status is reset.
47 --
48 -- Developer Implementation Notes:
49 -- The update 'set' arguments list should be modified if any of your
50 -- attributes are not updateable.
51 --
52 -- Access Status:
53 -- Internal Row Handler Use Only.
54 --
55 -- {End Of Comments}
56 -- ----------------------------------------------------------------------------
57 Procedure dt_update_dml
58 (p_rec in out nocopy pay_cft_shd.g_rec_type,
59 p_effective_date in date,
60 p_datetrack_mode in varchar2,
61 p_validation_start_date in date,
62 p_validation_end_date in date) is
63 --
64 l_proc varchar2(72) := g_package||'dt_update_dml';
65 --
66 Begin
67 hr_utility.set_location('Entering:'||l_proc, 5);
68 --
69 If (p_datetrack_mode = 'CORRECTION') then
70 hr_utility.set_location(l_proc, 10);
71 --
72 -- Because we are updating a row we must get the next object
73 -- version number.
74 --
75 p_rec.object_version_number :=
76 dt_api.get_object_version_number
77 (p_base_table_name => 'pay_ca_emp_fed_tax_info_f',
78 p_base_key_column => 'emp_fed_tax_inf_id',
79 p_base_key_value => p_rec.emp_fed_tax_inf_id);
80 --
81 pay_cft_shd.g_api_dml := true; -- Set the api dml status
82 --
83 -- Update the pay_ca_emp_fed_tax_info_f Row
84 --
85 update pay_ca_emp_fed_tax_info_f
86 set
87 emp_fed_tax_inf_id = p_rec.emp_fed_tax_inf_id,
88 legislation_code = p_rec.legislation_code,
89 assignment_id = p_rec.assignment_id,
90 business_group_id = p_rec.business_group_id,
91 employment_province = p_rec.employment_province,
92 tax_credit_amount = p_rec.tax_credit_amount,
93 claim_code = p_rec.claim_code,
94 basic_exemption_flag = p_rec.basic_exemption_flag,
95 additional_tax = p_rec.additional_tax,
96 annual_dedn = p_rec.annual_dedn,
97 total_expense_by_commission = p_rec.total_expense_by_commission,
98 total_remnrtn_by_commission = p_rec.total_remnrtn_by_commission,
99 prescribed_zone_dedn_amt = p_rec.prescribed_zone_dedn_amt,
100 other_fedtax_credits = p_rec.other_fedtax_credits,
101 cpp_qpp_exempt_flag = p_rec.cpp_qpp_exempt_flag,
102 fed_exempt_flag = p_rec.fed_exempt_flag,
103 ei_exempt_flag = p_rec.ei_exempt_flag,
104 tax_calc_method = p_rec.tax_calc_method,
105 fed_override_amount = p_rec.fed_override_amount,
106 fed_override_rate = p_rec.fed_override_rate,
107 ca_tax_information_category = p_rec.ca_tax_information_category,
108 ca_tax_information1 = p_rec.ca_tax_information1,
109 ca_tax_information2 = p_rec.ca_tax_information2,
110 ca_tax_information3 = p_rec.ca_tax_information3,
111 ca_tax_information4 = p_rec.ca_tax_information4,
112 ca_tax_information5 = p_rec.ca_tax_information5,
113 ca_tax_information6 = p_rec.ca_tax_information6,
114 ca_tax_information7 = p_rec.ca_tax_information7,
115 ca_tax_information8 = p_rec.ca_tax_information8,
116 ca_tax_information9 = p_rec.ca_tax_information9,
117 ca_tax_information10 = p_rec.ca_tax_information10,
118 ca_tax_information11 = p_rec.ca_tax_information11,
119 ca_tax_information12 = p_rec.ca_tax_information12,
120 ca_tax_information13 = p_rec.ca_tax_information13,
121 ca_tax_information14 = p_rec.ca_tax_information14,
122 ca_tax_information15 = p_rec.ca_tax_information15,
123 ca_tax_information16 = p_rec.ca_tax_information16,
124 ca_tax_information17 = p_rec.ca_tax_information17,
125 ca_tax_information18 = p_rec.ca_tax_information18,
126 ca_tax_information19 = p_rec.ca_tax_information19,
127 ca_tax_information20 = p_rec.ca_tax_information20,
128 ca_tax_information21 = p_rec.ca_tax_information21,
129 ca_tax_information22 = p_rec.ca_tax_information22,
130 ca_tax_information23 = p_rec.ca_tax_information23,
131 ca_tax_information24 = p_rec.ca_tax_information24,
132 ca_tax_information25 = p_rec.ca_tax_information25,
133 ca_tax_information26 = p_rec.ca_tax_information26,
134 ca_tax_information27 = p_rec.ca_tax_information27,
135 ca_tax_information28 = p_rec.ca_tax_information28,
136 ca_tax_information29 = p_rec.ca_tax_information29,
137 ca_tax_information30 = p_rec.ca_tax_information30,
138 object_version_number = p_rec.object_version_number,
139 fed_lsf_amount = p_rec.fed_lsf_amount,
140 cpp_election_date = p_rec.cpp_election_date, --For Bug Number 13258136
141 cpp_revocation_date = p_rec.cpp_revocation_date --For Bug Number 13258136
142 where emp_fed_tax_inf_id = p_rec.emp_fed_tax_inf_id
143 and effective_start_date = p_validation_start_date
144 and effective_end_date = p_validation_end_date;
145 --
146 pay_cft_shd.g_api_dml := false; -- Unset the api dml status
147 --
148 -- Set the effective start and end dates
149 --
150 p_rec.effective_start_date := p_validation_start_date;
151 p_rec.effective_end_date := p_validation_end_date;
152 End If;
153 --
154 hr_utility.set_location(' Leaving:'||l_proc, 15);
155 Exception
156 When hr_api.check_integrity_violated Then
157 -- A check constraint has been violated
158 pay_cft_shd.g_api_dml := false; -- Unset the api dml status
159 pay_cft_shd.constraint_error
160 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161 When hr_api.unique_integrity_violated Then
162 -- Unique integrity has been violated
163 pay_cft_shd.g_api_dml := false; -- Unset the api dml status
164 pay_cft_shd.constraint_error
165 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166 When Others Then
167 pay_cft_shd.g_api_dml := false; -- Unset the api dml status
168 Raise;
169 End dt_update_dml;
170 --
171 -- ----------------------------------------------------------------------------
172 -- |------------------------------< update_dml >------------------------------|
173 -- ----------------------------------------------------------------------------
174 -- {Start Of Comments}
175 --
176 -- Description:
177 -- This procedure calls the dt_update_dml control logic which handles
178 -- the actual datetrack dml.
179 --
180 -- Prerequisites:
181 -- This is an internal private procedure which must be called from the upd
182 -- procedure.
183 --
184 -- In Parameters:
185 -- A Pl/Sql record structre.
186 --
187 -- Post Success:
188 -- Processing contines.
189 --
190 -- Post Failure:
191 -- No specific error handling is required within this procedure.
192 --
193 -- Developer Implementation Notes:
194 -- The update 'set' arguments list should be modified if any of your
195 -- attributes are not updateable.
196 --
197 -- Access Status:
198 -- Internal Row Handler Use Only.
199 --
200 -- {End Of Comments}
201 -- ----------------------------------------------------------------------------
202 Procedure update_dml
203 (p_rec in out nocopy pay_cft_shd.g_rec_type,
204 p_effective_date in date,
205 p_datetrack_mode in varchar2,
206 p_validation_start_date in date,
207 p_validation_end_date in date) is
208 --
209 l_proc varchar2(72) := g_package||'update_dml';
210 --
211 Begin
212 hr_utility.set_location('Entering:'||l_proc, 5);
213 --
214 dt_update_dml(p_rec => p_rec,
215 p_effective_date => p_effective_date,
216 p_datetrack_mode => p_datetrack_mode,
217 p_validation_start_date => p_validation_start_date,
218 p_validation_end_date => p_validation_end_date);
219 --
220 hr_utility.set_location(' Leaving:'||l_proc, 10);
221 End update_dml;
222 --
223 -- ----------------------------------------------------------------------------
224 -- |----------------------------< dt_pre_update >-----------------------------|
225 -- ----------------------------------------------------------------------------
226 -- {Start Of Comments}
227 --
228 -- Description:
229 -- The dt_pre_update procedure controls the execution
230 -- of dml for the datetrack modes of: UPDATE, UPDATE_OVERRIDE
231 -- and UPDATE_CHANGE_INSERT only. The execution required is as
232 -- follows:
233 --
234 -- 1) Providing the datetrack update mode is not 'CORRECTION'
235 -- then set the effective end date of the current row (this
236 -- will be the validation_start_date - 1).
237 -- 2) If the datetrack mode is 'UPDATE_OVERRIDE' then call the
238 -- corresponding delete_dml process to delete any future rows
239 -- where the effective_start_date is greater than or equal to
240 -- the validation_start_date.
241 -- 3) Call the insert_dml process to insert the new updated row
242 -- details..
243 --
244 -- Prerequisites:
245 -- This is an internal procedure which is called from the
246 -- pre_update procedure.
247 --
248 -- In Parameters:
249 --
250 -- Post Success:
251 -- Processing continues.
252 --
253 -- Post Failure:
254 -- If an error has occurred, an error message and exception will be raised
255 -- but not handled.
256 --
257 -- Developer Implementation Notes:
258 -- This is an internal procedure which is required by Datetrack. Don't
259 -- remove or modify.
260 --
261 -- Access Status:
262 -- Internal Row Handler Use Only.
263 --
264 -- {End Of Comments}
265 -- ----------------------------------------------------------------------------
266 Procedure dt_pre_update
267 (p_rec in out nocopy pay_cft_shd.g_rec_type,
268 p_effective_date in date,
269 p_datetrack_mode in varchar2,
270 p_validation_start_date in date,
271 p_validation_end_date in date) is
272 --
273 l_proc varchar2(72) := g_package||'dt_pre_update';
274 l_dummy_version_number number;
275 --
276 Begin
277 hr_utility.set_location('Entering:'||l_proc, 5);
278 If (p_datetrack_mode <> 'CORRECTION') then
279 hr_utility.set_location(l_proc, 10);
280 --
281 -- Update the current effective end date
282 --
283 pay_cft_shd.upd_effective_end_date
284 (p_effective_date => p_effective_date,
285 p_base_key_value => p_rec.emp_fed_tax_inf_id,
286 p_new_effective_end_date => (p_validation_start_date - 1),
287 p_validation_start_date => p_validation_start_date,
288 p_validation_end_date => p_validation_end_date,
289 p_object_version_number => l_dummy_version_number);
290 --
291 If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
292 hr_utility.set_location(l_proc, 15);
293 --
294 -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
295 -- delete any future rows
296 --
297 pay_cft_del.delete_dml
298 (p_rec => p_rec,
299 p_effective_date => p_effective_date,
300 p_datetrack_mode => p_datetrack_mode,
301 p_validation_start_date => p_validation_start_date,
302 p_validation_end_date => p_validation_end_date);
303 End If;
304 hr_utility.set_location(l_proc, 20);
305 --
306 -- We must now insert the updated row
307 --
308 pay_cft_ins.insert_dml
309 (p_rec => p_rec,
310 p_effective_date => p_effective_date,
311 p_datetrack_mode => p_datetrack_mode,
312 p_validation_start_date => p_validation_start_date,
313 p_validation_end_date => p_validation_end_date);
314 End If;
315 hr_utility.set_location(' Leaving:'||l_proc, 20);
316 End dt_pre_update;
317 --
318 -- ----------------------------------------------------------------------------
319 -- |------------------------------< pre_update >------------------------------|
320 -- ----------------------------------------------------------------------------
321 -- {Start Of Comments}
322 --
323 -- Description:
324 -- This private procedure contains any processing which is required before
325 -- the update dml.
326 --
327 -- Prerequisites:
328 -- This is an internal procedure which is called from the upd procedure.
329 --
330 -- In Parameters:
331 -- A Pl/Sql record structre.
332 --
333 -- Post Success:
334 -- Processing continues.
335 --
336 -- Post Failure:
337 -- If an error has occurred, an error message and exception will be raised
338 -- but not handled.
339 --
340 -- Developer Implementation Notes:
341 -- Any pre-processing required before the update dml is issued should be
342 -- coded within this procedure. It is important to note that any 3rd party
343 -- maintenance should be reviewed before placing in this procedure. The call
344 -- to the dt_update_dml procedure should NOT be removed.
345 --
346 -- Access Status:
347 -- Internal Row Handler Use Only.
348 --
349 -- {End Of Comments}
350 -- ----------------------------------------------------------------------------
351 Procedure pre_update
352 (p_rec in out nocopy pay_cft_shd.g_rec_type,
353 p_effective_date in date,
354 p_datetrack_mode in varchar2,
355 p_validation_start_date in date,
356 p_validation_end_date in date) is
357 --
358 l_proc varchar2(72) := g_package||'pre_update';
359 --
360 Begin
361 hr_utility.set_location('Entering:'||l_proc, 5);
362 --
363 --
364 --
365 dt_pre_update
366 (p_rec => p_rec,
367 p_effective_date => p_effective_date,
368 p_datetrack_mode => p_datetrack_mode,
369 p_validation_start_date => p_validation_start_date,
370 p_validation_end_date => p_validation_end_date);
371 --
372 hr_utility.set_location(' Leaving:'||l_proc, 10);
373 End pre_update;
374 --
375 -- ----------------------------------------------------------------------------
376 -- |-----------------------------< post_update >------------------------------|
377 -- ----------------------------------------------------------------------------
378 -- {Start Of Comments}
379 --
380 -- Description:
381 -- This private procedure contains any processing which is required after the
382 -- update dml.
383 --
384 -- Prerequisites:
385 -- This is an internal procedure which is called from the upd procedure.
386 --
387 -- In Parameters:
388 -- A Pl/Sql record structre.
389 --
390 -- Post Success:
391 -- Processing continues.
392 --
393 -- Post Failure:
394 -- If an error has occurred, an error message and exception will be raised
395 -- but not handled.
396 --
397 -- Developer Implementation Notes:
398 -- Any post-processing required after the update dml is issued should be
399 -- coded within this procedure. It is important to note that any 3rd party
400 -- maintenance should be reviewed before placing in this procedure.
401 --
402 -- Access Status:
403 -- Internal Row Handler Use Only.
404 --
405 -- {End Of Comments}
406 -- ----------------------------------------------------------------------------
407 Procedure post_update
408 (p_rec in pay_cft_shd.g_rec_type,
409 p_effective_date in date,
410 p_datetrack_mode in varchar2,
411 p_validation_start_date in date,
412 p_validation_end_date in date) is
413 --
414 l_proc varchar2(72) := g_package||'post_update';
415 --
416 Begin
417 hr_utility.set_location('Entering:'||l_proc, 5);
418 --
419 --
420 -- Start of API User Hook for post_update.
421 --
422
423 begin
424 --
425 pay_cft_rku.after_update
426 (
427 p_emp_fed_tax_inf_id =>p_rec.emp_fed_tax_inf_id
428 ,p_effective_start_date =>p_rec.effective_start_date
429 ,p_effective_end_date =>p_rec.effective_end_date
430 ,p_legislation_code =>p_rec.legislation_code
431 ,p_assignment_id =>p_rec.assignment_id
432 ,p_business_group_id =>p_rec.business_group_id
433 ,p_employment_province =>p_rec.employment_province
434 ,p_tax_credit_amount =>p_rec.tax_credit_amount
435 ,p_claim_code =>p_rec.claim_code
436 ,p_basic_exemption_flag =>p_rec.basic_exemption_flag
437 ,p_additional_tax =>p_rec.additional_tax
438 ,p_annual_dedn =>p_rec.annual_dedn
439 ,p_total_expense_by_commission =>p_rec.total_expense_by_commission
440 ,p_total_remnrtn_by_commission =>p_rec.total_remnrtn_by_commission
441 ,p_prescribed_zone_dedn_amt =>p_rec.prescribed_zone_dedn_amt
442 ,p_other_fedtax_credits =>p_rec.other_fedtax_credits
443 ,p_cpp_qpp_exempt_flag =>p_rec.cpp_qpp_exempt_flag
444 ,p_fed_exempt_flag =>p_rec.fed_exempt_flag
445 ,p_ei_exempt_flag =>p_rec.ei_exempt_flag
446 ,p_tax_calc_method =>p_rec.tax_calc_method
447 ,p_fed_override_amount =>p_rec.fed_override_amount
448 ,p_fed_override_rate =>p_rec.fed_override_rate
449 ,p_ca_tax_information_category =>p_rec.ca_tax_information_category
450 ,p_ca_tax_information1 =>p_rec.ca_tax_information1
451 ,p_ca_tax_information2 =>p_rec.ca_tax_information2
452 ,p_ca_tax_information3 =>p_rec.ca_tax_information3
453 ,p_ca_tax_information4 =>p_rec.ca_tax_information4
454 ,p_ca_tax_information5 =>p_rec.ca_tax_information5
455 ,p_ca_tax_information6 =>p_rec.ca_tax_information6
456 ,p_ca_tax_information7 =>p_rec.ca_tax_information7
457 ,p_ca_tax_information8 =>p_rec.ca_tax_information8
458 ,p_ca_tax_information9 =>p_rec.ca_tax_information9
459 ,p_ca_tax_information10 =>p_rec.ca_tax_information10
460 ,p_ca_tax_information11 =>p_rec.ca_tax_information11
461 ,p_ca_tax_information12 =>p_rec.ca_tax_information12
462 ,p_ca_tax_information13 =>p_rec.ca_tax_information13
463 ,p_ca_tax_information14 =>p_rec.ca_tax_information14
464 ,p_ca_tax_information15 =>p_rec.ca_tax_information15
465 ,p_ca_tax_information16 =>p_rec.ca_tax_information16
466 ,p_ca_tax_information17 =>p_rec.ca_tax_information17
467 ,p_ca_tax_information18 =>p_rec.ca_tax_information18
468 ,p_ca_tax_information19 =>p_rec.ca_tax_information19
469 ,p_ca_tax_information20 =>p_rec.ca_tax_information20
470 ,p_ca_tax_information21 =>p_rec.ca_tax_information21
471 ,p_ca_tax_information22 =>p_rec.ca_tax_information22
472 ,p_ca_tax_information23 =>p_rec.ca_tax_information23
473 ,p_ca_tax_information24 =>p_rec.ca_tax_information24
474 ,p_ca_tax_information25 =>p_rec.ca_tax_information25
475 ,p_ca_tax_information26 =>p_rec.ca_tax_information26
476 ,p_ca_tax_information27 =>p_rec.ca_tax_information27
477 ,p_ca_tax_information28 =>p_rec.ca_tax_information28
478 ,p_ca_tax_information29 =>p_rec.ca_tax_information29
479 ,p_ca_tax_information30 =>p_rec.ca_tax_information30
480 ,p_object_version_number =>p_rec.object_version_number
481 ,p_fed_lsf_amount =>p_rec.fed_lsf_amount
482 ,p_cpp_election_date =>p_rec.cpp_election_date --For Bug Number 13258136
483 ,p_cpp_revocation_date =>p_rec.cpp_revocation_date --For Bug Number 13258136
484 ,p_effective_date =>p_effective_date
485 ,p_datetrack_mode =>p_datetrack_mode
486 ,p_validation_start_date =>p_validation_start_date
487 ,p_validation_end_date =>p_validation_end_date
488 ,p_effective_start_date_o =>pay_cft_shd.g_old_rec.effective_start_date
489 ,p_effective_end_date_o =>pay_cft_shd.g_old_rec.effective_end_date
490 ,p_legislation_code_o =>pay_cft_shd.g_old_rec.legislation_code
491 ,p_assignment_id_o =>pay_cft_shd.g_old_rec.assignment_id
492 ,p_business_group_id_o =>pay_cft_shd.g_old_rec.business_group_id
493 ,p_employment_province_o =>pay_cft_shd.g_old_rec.employment_province
494 ,p_tax_credit_amount_o =>pay_cft_shd.g_old_rec.tax_credit_amount
495 ,p_claim_code_o =>pay_cft_shd.g_old_rec.claim_code
496 ,p_basic_exemption_flag_o =>pay_cft_shd.g_old_rec.basic_exemption_flag
497 ,p_additional_tax_o =>pay_cft_shd.g_old_rec.additional_tax
498 ,p_annual_dedn_o =>pay_cft_shd.g_old_rec.annual_dedn
499 ,p_total_expense_by_commissio_o =>pay_cft_shd.g_old_rec.total_expense_by_commission
500 ,p_total_remnrtn_by_commissio_o =>pay_cft_shd.g_old_rec.total_remnrtn_by_commission
501 ,p_prescribed_zone_dedn_amt_o =>pay_cft_shd.g_old_rec.prescribed_zone_dedn_amt
502 ,p_other_fedtax_credits_o =>pay_cft_shd.g_old_rec.other_fedtax_credits
503 ,p_cpp_qpp_exempt_flag_o =>pay_cft_shd.g_old_rec.cpp_qpp_exempt_flag
504 ,p_fed_exempt_flag_o =>pay_cft_shd.g_old_rec.fed_exempt_flag
505 ,p_ei_exempt_flag_o =>pay_cft_shd.g_old_rec.ei_exempt_flag
506 ,p_tax_calc_method_o =>pay_cft_shd.g_old_rec.tax_calc_method
507 ,p_fed_override_amount_o =>pay_cft_shd.g_old_rec.fed_override_amount
508 ,p_fed_override_rate_o =>pay_cft_shd.g_old_rec.fed_override_rate
509 ,p_ca_tax_information_categor_o =>pay_cft_shd.g_old_rec.ca_tax_information_category
510 ,p_ca_tax_information1_o =>pay_cft_shd.g_old_rec.ca_tax_information1
511 ,p_ca_tax_information2_o =>pay_cft_shd.g_old_rec.ca_tax_information2
512 ,p_ca_tax_information3_o =>pay_cft_shd.g_old_rec.ca_tax_information3
513 ,p_ca_tax_information4_o =>pay_cft_shd.g_old_rec.ca_tax_information4
514 ,p_ca_tax_information5_o =>pay_cft_shd.g_old_rec.ca_tax_information5
515 ,p_ca_tax_information6_o =>pay_cft_shd.g_old_rec.ca_tax_information6
516 ,p_ca_tax_information7_o =>pay_cft_shd.g_old_rec.ca_tax_information7
517 ,p_ca_tax_information8_o =>pay_cft_shd.g_old_rec.ca_tax_information8
518 ,p_ca_tax_information9_o =>pay_cft_shd.g_old_rec.ca_tax_information9
519 ,p_ca_tax_information10_o =>pay_cft_shd.g_old_rec.ca_tax_information10
520 ,p_ca_tax_information11_o =>pay_cft_shd.g_old_rec.ca_tax_information11
521 ,p_ca_tax_information12_o =>pay_cft_shd.g_old_rec.ca_tax_information12
522 ,p_ca_tax_information13_o =>pay_cft_shd.g_old_rec.ca_tax_information13
523 ,p_ca_tax_information14_o =>pay_cft_shd.g_old_rec.ca_tax_information14
524 ,p_ca_tax_information15_o =>pay_cft_shd.g_old_rec.ca_tax_information15
525 ,p_ca_tax_information16_o =>pay_cft_shd.g_old_rec.ca_tax_information16
526 ,p_ca_tax_information17_o =>pay_cft_shd.g_old_rec.ca_tax_information17
527 ,p_ca_tax_information18_o =>pay_cft_shd.g_old_rec.ca_tax_information18
528 ,p_ca_tax_information19_o =>pay_cft_shd.g_old_rec.ca_tax_information19
529 ,p_ca_tax_information20_o =>pay_cft_shd.g_old_rec.ca_tax_information20
530 ,p_ca_tax_information21_o =>pay_cft_shd.g_old_rec.ca_tax_information21
531 ,p_ca_tax_information22_o =>pay_cft_shd.g_old_rec.ca_tax_information22
532 ,p_ca_tax_information23_o =>pay_cft_shd.g_old_rec.ca_tax_information23
533 ,p_ca_tax_information24_o =>pay_cft_shd.g_old_rec.ca_tax_information24
534 ,p_ca_tax_information25_o =>pay_cft_shd.g_old_rec.ca_tax_information25
535 ,p_ca_tax_information26_o =>pay_cft_shd.g_old_rec.ca_tax_information26
536 ,p_ca_tax_information27_o =>pay_cft_shd.g_old_rec.ca_tax_information27
537 ,p_ca_tax_information28_o =>pay_cft_shd.g_old_rec.ca_tax_information28
538 ,p_ca_tax_information29_o =>pay_cft_shd.g_old_rec.ca_tax_information29
539 ,p_ca_tax_information30_o =>pay_cft_shd.g_old_rec.ca_tax_information30
540 ,p_object_version_number_o =>pay_cft_shd.g_old_rec.object_version_number
541 ,p_fed_lsf_amount_o =>pay_cft_shd.g_old_rec.fed_lsf_amount
542 ,p_cpp_election_date_o =>pay_cft_shd.g_old_rec.cpp_election_date --For Bug Number 13258136
543 ,p_cpp_revocation_date_o =>pay_cft_shd.g_old_rec.cpp_revocation_date --For Bug Number 13258136
544 );
545 --
546 exception
547 --
548 when hr_api.cannot_find_prog_unit then
549 --
550 hr_api.cannot_find_prog_unit_error
551 (p_module_name => 'pay_ca_emp_fed_tax_info_f'
552 ,p_hook_type => 'AU');
553 --
554 end;
555
556 --
557 -- End of API User Hook for post_update.
558 --
559 --
560 hr_utility.set_location(' Leaving:'||l_proc, 10);
561 End post_update;
562 --
563 -- ----------------------------------------------------------------------------
564 -- |-----------------------------< convert_defs >-----------------------------|
565 -- ----------------------------------------------------------------------------
566 -- {Start Of Comments}
567 --
568 -- Description:
569 -- The Convert_Defs procedure has one very important function:
570 -- It must return the record structure for the row with all system defaulted
571 -- values converted into its corresponding parameter value for update. When
572 -- we attempt to update a row through the Upd process , certain
573 -- parameters can be defaulted which enables flexibility in the calling of
574 -- the upd process (e.g. only attributes which need to be updated need to be
575 -- specified). For the upd process to determine which attributes
576 -- have NOT been specified we need to check if the parameter has a reserved
577 -- system default value. Therefore, for all parameters which have a
578 -- corresponding reserved system default mechanism specified we need to
579 -- check if a system default is being used. If a system default is being
580 -- used then we convert the defaulted value into its corresponding attribute
581 -- value held in the g_old_rec data structure.
582 --
583 -- Prerequisites:
584 -- This private function can only be called from the upd process.
585 --
586 -- In Parameters:
587 -- A Pl/Sql record structre.
588 --
589 -- Post Success:
590 -- The record structure will be returned with all system defaulted parameter
591 -- values converted into its current row attribute value.
592 --
593 -- Post Failure:
594 -- No direct error handling is required within this function. Any possible
595 -- errors within this procedure will be a PL/SQL value error due to conversion
596 -- of datatypes or data lengths.
597 --
598 -- Developer Implementation Notes:
599 -- None.
600 --
601 -- Access Status:
602 -- Internal Row Handler Use Only.
603 --
604 -- {End Of Comments}
605 -- ----------------------------------------------------------------------------
606 Procedure convert_defs(p_rec in out nocopy pay_cft_shd.g_rec_type) is
607 --
608 l_proc varchar2(72) := g_package||'convert_defs';
609 --
610 Begin
611 --
612 hr_utility.set_location('Entering:'||l_proc, 5);
613 --
614 -- We must now examine each argument value in the
615 -- p_rec plsql record structure
616 -- to see if a system default is being used. If a system default
617 -- is being used then we must set to the 'current' argument value.
618 --
619 If (p_rec.legislation_code = hr_api.g_varchar2) then
620 p_rec.legislation_code :=
621 pay_cft_shd.g_old_rec.legislation_code;
622 End If;
623 If (p_rec.assignment_id = hr_api.g_number) then
624 p_rec.assignment_id :=
625 pay_cft_shd.g_old_rec.assignment_id;
626 End If;
627 If (p_rec.business_group_id = hr_api.g_number) then
628 p_rec.business_group_id :=
629 pay_cft_shd.g_old_rec.business_group_id;
630 End If;
631 If (p_rec.employment_province = hr_api.g_varchar2) then
632 p_rec.employment_province :=
633 pay_cft_shd.g_old_rec.employment_province;
634 End If;
635 If (p_rec.tax_credit_amount = hr_api.g_number) then
636 p_rec.tax_credit_amount :=
637 pay_cft_shd.g_old_rec.tax_credit_amount;
638 End If;
639 If (p_rec.claim_code = hr_api.g_varchar2) then
640 p_rec.claim_code :=
641 pay_cft_shd.g_old_rec.claim_code;
642 End If;
643 If (p_rec.basic_exemption_flag = hr_api.g_varchar2) then
644 p_rec.basic_exemption_flag :=
645 pay_cft_shd.g_old_rec.basic_exemption_flag;
646 End If;
647 If (p_rec.additional_tax = hr_api.g_number) then
648 p_rec.additional_tax :=
649 pay_cft_shd.g_old_rec.additional_tax;
650 End If;
651 If (p_rec.annual_dedn = hr_api.g_number) then
652 p_rec.annual_dedn :=
653 pay_cft_shd.g_old_rec.annual_dedn;
654 End If;
655 If (p_rec.total_expense_by_commission = hr_api.g_number) then
656 p_rec.total_expense_by_commission :=
657 pay_cft_shd.g_old_rec.total_expense_by_commission;
658 End If;
659 If (p_rec.total_remnrtn_by_commission = hr_api.g_number) then
660 p_rec.total_remnrtn_by_commission :=
661 pay_cft_shd.g_old_rec.total_remnrtn_by_commission;
662 End If;
663 If (p_rec.prescribed_zone_dedn_amt = hr_api.g_number) then
664 p_rec.prescribed_zone_dedn_amt :=
665 pay_cft_shd.g_old_rec.prescribed_zone_dedn_amt;
666 End If;
667 If (p_rec.other_fedtax_credits = hr_api.g_varchar2) then
668 p_rec.other_fedtax_credits :=
669 pay_cft_shd.g_old_rec.other_fedtax_credits;
670 End If;
671 If (p_rec.cpp_qpp_exempt_flag = hr_api.g_varchar2) then
672 p_rec.cpp_qpp_exempt_flag :=
673 pay_cft_shd.g_old_rec.cpp_qpp_exempt_flag;
674 End If;
675 If (p_rec.fed_exempt_flag = hr_api.g_varchar2) then
676 p_rec.fed_exempt_flag :=
677 pay_cft_shd.g_old_rec.fed_exempt_flag;
678 End If;
679 If (p_rec.ei_exempt_flag = hr_api.g_varchar2) then
680 p_rec.ei_exempt_flag :=
681 pay_cft_shd.g_old_rec.ei_exempt_flag;
682 End If;
683 If (p_rec.tax_calc_method = hr_api.g_varchar2) then
684 p_rec.tax_calc_method :=
685 pay_cft_shd.g_old_rec.tax_calc_method;
686 End If;
687 If (p_rec.fed_override_amount = hr_api.g_number) then
688 p_rec.fed_override_amount :=
689 pay_cft_shd.g_old_rec.fed_override_amount;
690 End If;
691 If (p_rec.fed_override_rate = hr_api.g_number) then
692 p_rec.fed_override_rate :=
693 pay_cft_shd.g_old_rec.fed_override_rate;
694 End If;
695 If (p_rec.ca_tax_information_category = hr_api.g_varchar2) then
696 p_rec.ca_tax_information_category :=
697 pay_cft_shd.g_old_rec.ca_tax_information_category;
698 End If;
699 If (p_rec.ca_tax_information1 = hr_api.g_varchar2) then
700 p_rec.ca_tax_information1 :=
701 pay_cft_shd.g_old_rec.ca_tax_information1;
702 End If;
703 If (p_rec.ca_tax_information2 = hr_api.g_varchar2) then
704 p_rec.ca_tax_information2 :=
705 pay_cft_shd.g_old_rec.ca_tax_information2;
706 End If;
707 If (p_rec.ca_tax_information3 = hr_api.g_varchar2) then
708 p_rec.ca_tax_information3 :=
709 pay_cft_shd.g_old_rec.ca_tax_information3;
710 End If;
711 If (p_rec.ca_tax_information4 = hr_api.g_varchar2) then
712 p_rec.ca_tax_information4 :=
713 pay_cft_shd.g_old_rec.ca_tax_information4;
714 End If;
715 If (p_rec.ca_tax_information5 = hr_api.g_varchar2) then
716 p_rec.ca_tax_information5 :=
717 pay_cft_shd.g_old_rec.ca_tax_information5;
718 End If;
719 If (p_rec.ca_tax_information6 = hr_api.g_varchar2) then
720 p_rec.ca_tax_information6 :=
721 pay_cft_shd.g_old_rec.ca_tax_information6;
722 End If;
723 If (p_rec.ca_tax_information7 = hr_api.g_varchar2) then
724 p_rec.ca_tax_information7 :=
725 pay_cft_shd.g_old_rec.ca_tax_information7;
726 End If;
727 If (p_rec.ca_tax_information8 = hr_api.g_varchar2) then
728 p_rec.ca_tax_information8 :=
729 pay_cft_shd.g_old_rec.ca_tax_information8;
730 End If;
731 If (p_rec.ca_tax_information9 = hr_api.g_varchar2) then
732 p_rec.ca_tax_information9 :=
733 pay_cft_shd.g_old_rec.ca_tax_information9;
734 End If;
735 If (p_rec.ca_tax_information10 = hr_api.g_varchar2) then
736 p_rec.ca_tax_information10 :=
737 pay_cft_shd.g_old_rec.ca_tax_information10;
738 End If;
739 If (p_rec.ca_tax_information11 = hr_api.g_varchar2) then
740 p_rec.ca_tax_information11 :=
741 pay_cft_shd.g_old_rec.ca_tax_information11;
742 End If;
743 If (p_rec.ca_tax_information12 = hr_api.g_varchar2) then
744 p_rec.ca_tax_information12 :=
745 pay_cft_shd.g_old_rec.ca_tax_information12;
746 End If;
747 If (p_rec.ca_tax_information13 = hr_api.g_varchar2) then
748 p_rec.ca_tax_information13 :=
749 pay_cft_shd.g_old_rec.ca_tax_information13;
750 End If;
751 If (p_rec.ca_tax_information14 = hr_api.g_varchar2) then
752 p_rec.ca_tax_information14 :=
753 pay_cft_shd.g_old_rec.ca_tax_information14;
754 End If;
755 If (p_rec.ca_tax_information15 = hr_api.g_varchar2) then
756 p_rec.ca_tax_information15 :=
757 pay_cft_shd.g_old_rec.ca_tax_information15;
758 End If;
759 If (p_rec.ca_tax_information16 = hr_api.g_varchar2) then
760 p_rec.ca_tax_information16 :=
761 pay_cft_shd.g_old_rec.ca_tax_information16;
762 End If;
763 If (p_rec.ca_tax_information17 = hr_api.g_varchar2) then
764 p_rec.ca_tax_information17 :=
765 pay_cft_shd.g_old_rec.ca_tax_information17;
766 End If;
767 If (p_rec.ca_tax_information18 = hr_api.g_varchar2) then
768 p_rec.ca_tax_information18 :=
769 pay_cft_shd.g_old_rec.ca_tax_information18;
770 End If;
771 If (p_rec.ca_tax_information19 = hr_api.g_varchar2) then
772 p_rec.ca_tax_information19 :=
773 pay_cft_shd.g_old_rec.ca_tax_information19;
774 End If;
775 If (p_rec.ca_tax_information20 = hr_api.g_varchar2) then
776 p_rec.ca_tax_information20 :=
777 pay_cft_shd.g_old_rec.ca_tax_information20;
778 End If;
779 If (p_rec.ca_tax_information21 = hr_api.g_varchar2) then
780 p_rec.ca_tax_information21 :=
781 pay_cft_shd.g_old_rec.ca_tax_information21;
782 End If;
783 If (p_rec.ca_tax_information22 = hr_api.g_varchar2) then
784 p_rec.ca_tax_information22 :=
785 pay_cft_shd.g_old_rec.ca_tax_information22;
786 End If;
787 If (p_rec.ca_tax_information23 = hr_api.g_varchar2) then
788 p_rec.ca_tax_information23 :=
789 pay_cft_shd.g_old_rec.ca_tax_information23;
790 End If;
791 If (p_rec.ca_tax_information24 = hr_api.g_varchar2) then
792 p_rec.ca_tax_information24 :=
793 pay_cft_shd.g_old_rec.ca_tax_information24;
794 End If;
795 If (p_rec.ca_tax_information25 = hr_api.g_varchar2) then
796 p_rec.ca_tax_information25 :=
797 pay_cft_shd.g_old_rec.ca_tax_information25;
798 End If;
799 If (p_rec.ca_tax_information26 = hr_api.g_varchar2) then
800 p_rec.ca_tax_information26 :=
801 pay_cft_shd.g_old_rec.ca_tax_information26;
802 End If;
803 If (p_rec.ca_tax_information27 = hr_api.g_varchar2) then
804 p_rec.ca_tax_information27 :=
805 pay_cft_shd.g_old_rec.ca_tax_information27;
806 End If;
807 If (p_rec.ca_tax_information28 = hr_api.g_varchar2) then
808 p_rec.ca_tax_information28 :=
809 pay_cft_shd.g_old_rec.ca_tax_information28;
810 End If;
811 If (p_rec.ca_tax_information29 = hr_api.g_varchar2) then
812 p_rec.ca_tax_information29 :=
813 pay_cft_shd.g_old_rec.ca_tax_information29;
814 End If;
815 If (p_rec.ca_tax_information30 = hr_api.g_varchar2) then
816 p_rec.ca_tax_information30 :=
817 pay_cft_shd.g_old_rec.ca_tax_information30;
818 End If;
819 If (p_rec.fed_lsf_amount = hr_api.g_number) then
820 p_rec.fed_lsf_amount :=
821 pay_cft_shd.g_old_rec.fed_lsf_amount;
822 End If;
823
824 --
825 hr_utility.set_location(' Leaving:'||l_proc, 10);
826 --
827 End convert_defs;
828 --
829 -- ----------------------------------------------------------------------------
830 -- |---------------------------------< upd >----------------------------------|
831 -- ----------------------------------------------------------------------------
832 Procedure upd
833 (
834 p_rec in out nocopy pay_cft_shd.g_rec_type,
835 p_effective_date in date,
836 p_datetrack_mode in varchar2
837 ) is
838 --
839 l_proc varchar2(72) := g_package||'upd';
840 l_validation_start_date date;
841 l_validation_end_date date;
842 --
843 Begin
844 hr_utility.set_location('Entering:'||l_proc, 5);
845 --
846 -- Ensure that the DateTrack update mode is valid
847 --
848 dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
849 --
850 -- We must lock the row which we need to update.
851 --
852 pay_cft_shd.lck
853 (
854 p_effective_date => p_effective_date,
855 p_datetrack_mode => p_datetrack_mode,
856 p_emp_fed_tax_inf_id => p_rec.emp_fed_tax_inf_id,
857 p_object_version_number => p_rec.object_version_number,
858 p_validation_start_date => l_validation_start_date,
859 p_validation_end_date => l_validation_end_date);
860 --
861 -- 1. During an update system defaults are used to determine if
862 -- arguments have been defaulted or not. We must therefore
863 -- derive the full record structure values to be updated.
864 --
865 -- 2. Call the supporting update validate operations.
866 --
867 convert_defs(p_rec);
868 pay_cft_bus.update_validate
869 (p_rec => p_rec,
870 p_effective_date => p_effective_date,
871 p_datetrack_mode => p_datetrack_mode,
872 p_validation_start_date => l_validation_start_date,
873 p_validation_end_date => l_validation_end_date);
874 --
875 -- Call the supporting pre-update operation
876 --
877 pre_update
878 (p_rec => p_rec,
879 p_effective_date => p_effective_date,
880 p_datetrack_mode => p_datetrack_mode,
881 p_validation_start_date => l_validation_start_date,
882 p_validation_end_date => l_validation_end_date);
883 --
884 -- Update the row.
885 --
886 update_dml
887 (p_rec => p_rec,
888 p_effective_date => p_effective_date,
889 p_datetrack_mode => p_datetrack_mode,
890 p_validation_start_date => l_validation_start_date,
891 p_validation_end_date => l_validation_end_date);
892 --
893 -- Call the supporting post-update operation
894 --
895 /*
896 post_update
897 (p_rec => p_rec,
898 p_effective_date => p_effective_date,
899 p_datetrack_mode => p_datetrack_mode,
900 p_validation_start_date => l_validation_start_date,
901 p_validation_end_date => l_validation_end_date);
902 */
903 End upd;
904 --
905 -- ----------------------------------------------------------------------------
906 -- |---------------------------------< upd >----------------------------------|
907 -- ----------------------------------------------------------------------------
908 Procedure upd
909 (
910 p_emp_fed_tax_inf_id in number,
911 p_effective_start_date out nocopy date,
912 p_effective_end_date out nocopy date,
913 p_legislation_code in varchar2 default hr_api.g_varchar2,
914 p_assignment_id in number default hr_api.g_number,
915 p_business_group_id in number default hr_api.g_number,
916 p_employment_province in varchar2 default hr_api.g_varchar2,
917 p_tax_credit_amount in number default hr_api.g_number,
918 p_claim_code in varchar2 default hr_api.g_varchar2,
919 p_basic_exemption_flag in varchar2 default hr_api.g_varchar2,
920 p_additional_tax in number default hr_api.g_number,
921 p_annual_dedn in number default hr_api.g_number,
922 p_total_expense_by_commission in number default hr_api.g_number,
923 p_total_remnrtn_by_commission in number default hr_api.g_number,
924 p_prescribed_zone_dedn_amt in number default hr_api.g_number,
925 p_other_fedtax_credits in varchar2 default hr_api.g_varchar2,
926 p_cpp_qpp_exempt_flag in varchar2 default hr_api.g_varchar2,
927 p_fed_exempt_flag in varchar2 default hr_api.g_varchar2,
928 p_ei_exempt_flag in varchar2 default hr_api.g_varchar2,
929 p_tax_calc_method in varchar2 default hr_api.g_varchar2,
930 p_fed_override_amount in number default hr_api.g_number,
931 p_fed_override_rate in number default hr_api.g_number,
932 p_ca_tax_information_category in varchar2 default hr_api.g_varchar2,
933 p_ca_tax_information1 in varchar2 default hr_api.g_varchar2,
934 p_ca_tax_information2 in varchar2 default hr_api.g_varchar2,
935 p_ca_tax_information3 in varchar2 default hr_api.g_varchar2,
936 p_ca_tax_information4 in varchar2 default hr_api.g_varchar2,
937 p_ca_tax_information5 in varchar2 default hr_api.g_varchar2,
938 p_ca_tax_information6 in varchar2 default hr_api.g_varchar2,
939 p_ca_tax_information7 in varchar2 default hr_api.g_varchar2,
940 p_ca_tax_information8 in varchar2 default hr_api.g_varchar2,
941 p_ca_tax_information9 in varchar2 default hr_api.g_varchar2,
942 p_ca_tax_information10 in varchar2 default hr_api.g_varchar2,
943 p_ca_tax_information11 in varchar2 default hr_api.g_varchar2,
944 p_ca_tax_information12 in varchar2 default hr_api.g_varchar2,
945 p_ca_tax_information13 in varchar2 default hr_api.g_varchar2,
946 p_ca_tax_information14 in varchar2 default hr_api.g_varchar2,
947 p_ca_tax_information15 in varchar2 default hr_api.g_varchar2,
948 p_ca_tax_information16 in varchar2 default hr_api.g_varchar2,
949 p_ca_tax_information17 in varchar2 default hr_api.g_varchar2,
950 p_ca_tax_information18 in varchar2 default hr_api.g_varchar2,
951 p_ca_tax_information19 in varchar2 default hr_api.g_varchar2,
952 p_ca_tax_information20 in varchar2 default hr_api.g_varchar2,
953 p_ca_tax_information21 in varchar2 default hr_api.g_varchar2,
954 p_ca_tax_information22 in varchar2 default hr_api.g_varchar2,
955 p_ca_tax_information23 in varchar2 default hr_api.g_varchar2,
956 p_ca_tax_information24 in varchar2 default hr_api.g_varchar2,
957 p_ca_tax_information25 in varchar2 default hr_api.g_varchar2,
958 p_ca_tax_information26 in varchar2 default hr_api.g_varchar2,
959 p_ca_tax_information27 in varchar2 default hr_api.g_varchar2,
960 p_ca_tax_information28 in varchar2 default hr_api.g_varchar2,
961 p_ca_tax_information29 in varchar2 default hr_api.g_varchar2,
962 p_ca_tax_information30 in varchar2 default hr_api.g_varchar2,
963 p_object_version_number in out nocopy number,
964 p_fed_lsf_amount in number default hr_api.g_number,
965 p_cpp_election_date in date, --For Bug Number 13258136
966 p_cpp_revocation_date in date, --For Bug Number 13258136
967 p_effective_date in date,
968 p_datetrack_mode in varchar2
969 ) is
970 --
971 l_rec pay_cft_shd.g_rec_type;
972 l_proc varchar2(72) := g_package||'upd';
973 --
974 Begin
975 hr_utility.set_location('Entering:'||l_proc, 5);
976 --
977 -- Call conversion function to turn arguments into the
978 -- l_rec structure.
979 --
980 l_rec :=
981 pay_cft_shd.convert_args
982 (
983 p_emp_fed_tax_inf_id,
984 null,
985 null,
986 p_legislation_code,
987 p_assignment_id,
988 p_business_group_id,
989 p_employment_province,
990 p_tax_credit_amount,
991 p_claim_code,
992 p_basic_exemption_flag,
993 p_additional_tax,
994 p_annual_dedn,
995 p_total_expense_by_commission,
996 p_total_remnrtn_by_commission,
997 p_prescribed_zone_dedn_amt,
998 p_other_fedtax_credits,
999 p_cpp_qpp_exempt_flag,
1000 p_fed_exempt_flag,
1001 p_ei_exempt_flag,
1002 p_tax_calc_method,
1003 p_fed_override_amount,
1004 p_fed_override_rate,
1005 p_ca_tax_information_category,
1006 p_ca_tax_information1,
1007 p_ca_tax_information2,
1008 p_ca_tax_information3,
1009 p_ca_tax_information4,
1010 p_ca_tax_information5,
1011 p_ca_tax_information6,
1012 p_ca_tax_information7,
1013 p_ca_tax_information8,
1014 p_ca_tax_information9,
1015 p_ca_tax_information10,
1016 p_ca_tax_information11,
1017 p_ca_tax_information12,
1018 p_ca_tax_information13,
1019 p_ca_tax_information14,
1020 p_ca_tax_information15,
1021 p_ca_tax_information16,
1022 p_ca_tax_information17,
1023 p_ca_tax_information18,
1024 p_ca_tax_information19,
1025 p_ca_tax_information20,
1026 p_ca_tax_information21,
1027 p_ca_tax_information22,
1028 p_ca_tax_information23,
1029 p_ca_tax_information24,
1030 p_ca_tax_information25,
1031 p_ca_tax_information26,
1032 p_ca_tax_information27,
1033 p_ca_tax_information28,
1034 p_ca_tax_information29,
1035 p_ca_tax_information30,
1036 p_object_version_number,
1037 p_fed_lsf_amount,
1038 p_cpp_election_date, --For Bug Number 13258136
1039 p_cpp_revocation_date --For Bug Number 13258136
1040 );
1041 --
1042 -- Having converted the arguments into the
1043 -- plsql record structure we call the corresponding record
1044 -- business process.
1045 --
1046 upd(l_rec, p_effective_date, p_datetrack_mode);
1047 p_object_version_number := l_rec.object_version_number;
1048 p_effective_start_date := l_rec.effective_start_date;
1049 p_effective_end_date := l_rec.effective_end_date;
1050 --
1051 --
1052 hr_utility.set_location(' Leaving:'||l_proc, 10);
1053 End upd;
1054 --
1055 end pay_cft_upd;
[Home] [Help]