[Home] [Help]
PACKAGE BODY: APPS.PQP_PTY_UPD
Source
1 Package Body pqp_pty_upd as
2 /* $Header: pqptyrhi.pkb 120.0.12000000.1 2007/01/16 04:29:01 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqp_pty_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
21 -- this 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 structure.
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 pqp_pty_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
63 ) is
64 --
65 l_proc varchar2(72) := g_package||'dt_update_dml';
66 --
67 Begin
68 hr_utility.set_location('Entering:'||l_proc, 5);
69 --
70 If (p_datetrack_mode = hr_api.g_correction) then
71 hr_utility.set_location(l_proc, 10);
72 --
73 -- Because we are updating a row we must get the next object
74 -- version number.
75 --
76 p_rec.object_version_number :=
77 dt_api.get_object_version_number
78 (p_base_table_name => 'pqp_pension_types_f'
79 ,p_base_key_column => 'pension_type_id'
80 ,p_base_key_value => p_rec.pension_type_id
81 );
82 --
83 --
84 --
85 -- Update the pqp_pension_types_f Row
86 --
87 update pqp_pension_types_f
88 set
89 pension_type_id = p_rec.pension_type_id
90 ,pension_type_name = p_rec.pension_type_name
91 ,pension_category = p_rec.pension_category
92 ,pension_provider_type = p_rec.pension_provider_type
93 ,salary_calculation_method = p_rec.salary_calculation_method
94 ,threshold_conversion_rule = p_rec.threshold_conversion_rule
95 ,contribution_conversion_rule = p_rec.contribution_conversion_rule
96 ,er_annual_limit = p_rec.er_annual_limit
97 ,ee_annual_limit = p_rec.ee_annual_limit
98 ,er_annual_salary_threshold = p_rec.er_annual_salary_threshold
99 ,ee_annual_salary_threshold = p_rec.ee_annual_salary_threshold
100 ,object_version_number = p_rec.object_version_number
101 ,business_group_id = p_rec.business_group_id
102 ,legislation_code = p_rec.legislation_code
103 ,description = p_rec.description
104 ,minimum_age = p_rec.minimum_age
105 ,ee_contribution_percent = p_rec.ee_contribution_percent
106 ,maximum_age = p_rec.maximum_age
107 ,er_contribution_percent = p_rec.er_contribution_percent
108 ,ee_annual_contribution = p_rec.ee_annual_contribution
109 ,er_annual_contribution = p_rec.er_annual_contribution
110 ,annual_premium_amount = p_rec.annual_premium_amount
111 ,ee_contribution_bal_type_id = p_rec.ee_contribution_bal_type_id
112 ,er_contribution_bal_type_id = p_rec.er_contribution_bal_type_id
113 ,balance_init_element_type_id = p_rec.balance_init_element_type_id
114 ,ee_contribution_fixed_rate = p_rec.ee_contribution_fixed_rate -- added for UK
115 ,er_contribution_fixed_rate = p_rec.er_contribution_fixed_rate -- added for UK
116 ,pty_attribute_category = p_rec.pty_attribute_category
117 ,pty_attribute1 = p_rec.pty_attribute1
118 ,pty_attribute2 = p_rec.pty_attribute2
119 ,pty_attribute3 = p_rec.pty_attribute3
120 ,pty_attribute4 = p_rec.pty_attribute4
121 ,pty_attribute5 = p_rec.pty_attribute5
122 ,pty_attribute6 = p_rec.pty_attribute6
123 ,pty_attribute7 = p_rec.pty_attribute7
124 ,pty_attribute8 = p_rec.pty_attribute8
125 ,pty_attribute9 = p_rec.pty_attribute9
126 ,pty_attribute10 = p_rec.pty_attribute10
127 ,pty_attribute11 = p_rec.pty_attribute11
128 ,pty_attribute12 = p_rec.pty_attribute12
129 ,pty_attribute13 = p_rec.pty_attribute13
130 ,pty_attribute14 = p_rec.pty_attribute14
131 ,pty_attribute15 = p_rec.pty_attribute15
132 ,pty_attribute16 = p_rec.pty_attribute16
133 ,pty_attribute17 = p_rec.pty_attribute17
134 ,pty_attribute18 = p_rec.pty_attribute18
135 ,pty_attribute19 = p_rec.pty_attribute19
136 ,pty_attribute20 = p_rec.pty_attribute20
137 ,pty_information_category = p_rec.pty_information_category
138 ,pty_information1 = p_rec.pty_information1
139 ,pty_information2 = p_rec.pty_information2
140 ,pty_information3 = p_rec.pty_information3
141 ,pty_information4 = p_rec.pty_information4
142 ,pty_information5 = p_rec.pty_information5
143 ,pty_information6 = p_rec.pty_information6
144 ,pty_information7 = p_rec.pty_information7
145 ,pty_information8 = p_rec.pty_information8
146 ,pty_information9 = p_rec.pty_information9
147 ,pty_information10 = p_rec.pty_information10
148 ,pty_information11 = p_rec.pty_information11
149 ,pty_information12 = p_rec.pty_information12
150 ,pty_information13 = p_rec.pty_information13
151 ,pty_information14 = p_rec.pty_information14
152 ,pty_information15 = p_rec.pty_information15
153 ,pty_information16 = p_rec.pty_information16
154 ,pty_information17 = p_rec.pty_information17
155 ,pty_information18 = p_rec.pty_information18
156 ,pty_information19 = p_rec.pty_information19
157 ,pty_information20 = p_rec.pty_information20
158 ,special_pension_type_code = p_rec.special_pension_type_code -- added for NL Phase 2B
159 ,pension_sub_category = p_rec.pension_sub_category -- added for NL Phase 2B
160 ,pension_basis_calc_method = p_rec.pension_basis_calc_method -- added for NL Phase 2B
161 ,pension_salary_balance = p_rec.pension_salary_balance -- added for NL Phase 2B
162 ,recurring_bonus_percent = p_rec.recurring_bonus_percent -- added for NL Phase 2B
163 ,non_recurring_bonus_percent = p_rec.non_recurring_bonus_percent -- added for NL Phase 2B
164 ,recurring_bonus_balance = p_rec.recurring_bonus_balance -- added for NL Phase 2B
165 ,non_recurring_bonus_balance = p_rec.non_recurring_bonus_balance -- added for NL Phase 2B
166 ,std_tax_reduction = p_rec.std_tax_reduction -- added for NL Phase 2B
167 ,spl_tax_reduction = p_rec.spl_tax_reduction -- added for NL Phase 2B
168 ,sig_sal_spl_tax_reduction = p_rec.sig_sal_spl_tax_reduction -- added for NL Phase 2B
169 ,sig_sal_non_tax_reduction = p_rec.sig_sal_non_tax_reduction -- added for NL Phase 2B
170 ,sig_sal_std_tax_reduction = p_rec.sig_sal_std_tax_reduction -- added for NL Phase 2B
171 ,sii_std_tax_reduction = p_rec.sii_std_tax_reduction -- added for NL Phase 2B
172 ,sii_spl_tax_reduction = p_rec.sii_spl_tax_reduction -- added for NL Phase 2B
173 ,sii_non_tax_reduction = p_rec.sii_non_tax_reduction -- added for NL Phase 2B
174 ,previous_year_bonus_included = p_rec.previous_year_bonus_included -- added for NL Phase 2B
175 ,recurring_bonus_period = p_rec.recurring_bonus_period -- added for NL Phase 2B
176 ,non_recurring_bonus_period = p_rec.non_recurring_bonus_period -- added for NL Phase 2B
177 ,ee_age_threshold = p_rec.ee_age_threshold -- added for ABP TAR fixes
178 ,er_age_threshold = p_rec.er_age_threshold -- added for ABP TAR fixes
179 ,ee_age_contribution = p_rec.ee_age_contribution -- added for ABP TAR fixes
180 ,er_age_contribution = p_rec.er_age_contribution -- added for ABP TAR fixes
181 where pension_type_id = p_rec.pension_type_id
182 and effective_start_date = p_validation_start_date
183 and effective_end_date = p_validation_end_date;
184 --
185 --
186 --
187 -- Set the effective start and end dates
188 --
189 p_rec.effective_start_date := p_validation_start_date;
190 p_rec.effective_end_date := p_validation_end_date;
191 End If;
192 --
193 hr_utility.set_location(' Leaving:'||l_proc, 15);
194 Exception
195 When hr_api.check_integrity_violated Then
196 -- A check constraint has been violated
197 --
198 pqp_pty_shd.constraint_error
199 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200 When hr_api.unique_integrity_violated Then
201 -- Unique integrity has been violated
202 --
203 pqp_pty_shd.constraint_error
204 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
205 When Others Then
206 --
207 Raise;
208 End dt_update_dml;
209 --
210 -- ----------------------------------------------------------------------------
211 -- |------------------------------< update_dml >------------------------------|
212 -- ----------------------------------------------------------------------------
213 -- {Start Of Comments}
214 --
215 -- Description:
216 -- This procedure calls the dt_update_dml control logic which handles
217 -- the actual datetrack dml.
218 --
219 -- Prerequisites:
220 -- This is an internal private procedure which must be called from the upd
221 -- procedure.
222 --
223 -- In Parameters:
224 -- A Pl/Sql record structre.
225 --
226 -- Post Success:
227 -- Processing contines.
228 --
229 -- Post Failure:
230 -- No specific error handling is required within this procedure.
231 --
232 -- Developer Implementation Notes:
233 -- The update 'set' arguments list should be modified if any of your
234 -- attributes are not updateable.
235 --
236 -- Access Status:
237 -- Internal Row Handler Use Only.
238 --
239 -- {End Of Comments}
240 -- ----------------------------------------------------------------------------
241 Procedure update_dml
242 (p_rec in out nocopy pqp_pty_shd.g_rec_type
243 ,p_effective_date in date
244 ,p_datetrack_mode in varchar2
245 ,p_validation_start_date in date
246 ,p_validation_end_date in date
247 ) is
248 --
249 l_proc varchar2(72) := g_package||'update_dml';
250 --
251 Begin
252 hr_utility.set_location('Entering:'||l_proc, 5);
253 --
254 pqp_pty_upd.dt_update_dml
255 (p_rec => p_rec
256 ,p_effective_date => p_effective_date
257 ,p_datetrack_mode => p_datetrack_mode
258 ,p_validation_start_date => p_validation_start_date
259 ,p_validation_end_date => p_validation_end_date
260 );
261 --
262 hr_utility.set_location(' Leaving:'||l_proc, 10);
263 End update_dml;
264 --
265 -- ----------------------------------------------------------------------------
266 -- |----------------------------< dt_pre_update >-----------------------------|
267 -- ----------------------------------------------------------------------------
268 -- {Start Of Comments}
269 --
270 -- Description:
271 -- The dt_pre_update procedure controls the execution
272 -- of dml for the datetrack modes of: UPDATE, UPDATE_OVERRIDE
273 -- and UPDATE_CHANGE_INSERT only. The execution required is as
274 -- follows:
275 --
276 -- 1) Providing the datetrack update mode is not 'CORRECTION'
277 -- then set the effective end date of the current row (this
278 -- will be the validation_start_date - 1).
279 -- 2) If the datetrack mode is 'UPDATE_OVERRIDE' then call the
280 -- corresponding delete_dml process to delete any future rows
281 -- where the effective_start_date is greater than or equal to
282 -- the validation_start_date.
283 -- 3) Call the insert_dml process to insert the new updated row
284 -- details.
285 --
286 -- Prerequisites:
287 -- This is an internal procedure which is called from the
288 -- pre_update procedure.
289 --
290 -- In Parameters:
291 --
292 -- Post Success:
293 -- Processing continues.
294 --
295 -- Post Failure:
296 -- If an error has occurred, an error message and exception will be raised
297 -- but not handled.
298 --
299 -- Developer Implementation Notes:
300 -- This is an internal procedure which is required by Datetrack. Don't
301 -- remove or modify.
302 --
303 -- Access Status:
304 -- Internal Row Handler Use Only.
305 --
306 -- {End Of Comments}
307 -- ----------------------------------------------------------------------------
308 Procedure dt_pre_update
309 (p_rec in out nocopy pqp_pty_shd.g_rec_type
310 ,p_effective_date in date
311 ,p_datetrack_mode in varchar2
312 ,p_validation_start_date in date
313 ,p_validation_end_date in date
314 ) is
315 --
316 l_proc varchar2(72) := g_package||'dt_pre_update';
317 l_dummy_version_number number;
318 --
319 Begin
320 hr_utility.set_location('Entering:'||l_proc, 5);
321 If (p_datetrack_mode <> hr_api.g_correction) then
322 --
323 -- Update the current effective end date
324 --
325 pqp_pty_shd.upd_effective_end_date
326 (p_effective_date => p_effective_date
327 ,p_base_key_value => p_rec.pension_type_id
328 ,p_new_effective_end_date => (p_validation_start_date - 1)
329 ,p_validation_start_date => p_validation_start_date
330 ,p_validation_end_date => p_validation_end_date
331 ,p_object_version_number => l_dummy_version_number
332 );
333 --
334 If (p_datetrack_mode = hr_api.g_update_override) then
335 --
336 -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
337 -- delete any future rows
338 --
339 pqp_pty_del.delete_dml
340 (p_rec => p_rec
341 ,p_effective_date => p_effective_date
342 ,p_datetrack_mode => p_datetrack_mode
343 ,p_validation_start_date => p_validation_start_date
344 ,p_validation_end_date => p_validation_end_date
345 );
346 End If;
347 --
348 -- We must now insert the updated row
349 --
350 pqp_pty_ins.insert_dml
351 (p_rec => p_rec
352 ,p_effective_date => p_effective_date
353 ,p_datetrack_mode => p_datetrack_mode
354 ,p_validation_start_date => p_validation_start_date
355 ,p_validation_end_date => p_validation_end_date
356 );
357 End If;
358 hr_utility.set_location(' Leaving:'||l_proc, 20);
359 End dt_pre_update;
360 --
361 -- ----------------------------------------------------------------------------
362 -- |------------------------------< pre_update >------------------------------|
363 -- ----------------------------------------------------------------------------
364 -- {Start Of Comments}
365 --
366 -- Description:
367 -- This private procedure contains any processing which is required before
368 -- the update dml.
369 --
370 -- Prerequisites:
371 -- This is an internal procedure which is called from the upd procedure.
372 --
373 -- In Parameters:
374 -- A Pl/Sql record structure.
375 --
376 -- Post Success:
377 -- Processing continues.
378 --
379 -- Post Failure:
380 -- If an error has occurred, an error message and exception will be raised
381 -- but not handled.
382 -- Developer Implementation Notes:
383 -- Any pre-processing required before the update dml is issued should be
384 -- coded within this procedure. It is important to note that any 3rd party
385 -- maintenance should be reviewed before placing in this procedure. The call
386 -- to the dt_update_dml procedure should NOT be removed.
387 --
388 -- Access Status:
389 -- Internal Row Handler Use Only.
390 --
391 -- {End Of Comments}
392 -- ----------------------------------------------------------------------------
393 Procedure pre_update
394 (p_rec in out nocopy pqp_pty_shd.g_rec_type
395 ,p_effective_date in date
396 ,p_datetrack_mode in varchar2
397 ,p_validation_start_date in date
398 ,p_validation_end_date in date
399 ) is
400 --
401 l_proc varchar2(72) := g_package||'pre_update';
402 --
403 Begin
404 hr_utility.set_location('Entering:'||l_proc, 5);
405 --
406 --
407 --
408 dt_pre_update
409 (p_rec => p_rec
410 ,p_effective_date => p_effective_date
411 ,p_datetrack_mode => p_datetrack_mode
412 ,p_validation_start_date => p_validation_start_date
413 ,p_validation_end_date => p_validation_end_date
414 );
415 --
416 hr_utility.set_location(' Leaving:'||l_proc, 10);
417 End pre_update;
418 --
419 -- ----------------------------------------------------------------------------
420 -- |----------------------------< post_update >-------------------------------|
421 -- ----------------------------------------------------------------------------
422 -- {Start Of Comments}
423 --
424 -- Description:
425 -- This private procedure contains any processing which is required after
426 -- the update dml.
427 --
428 -- Prerequisites:
429 -- This is an internal procedure which is called from the upd procedure.
430 --
431 -- In Parameters:
432 -- A Pl/Sql record structure.
433 --
434 -- Post Success:
435 -- Processing continues.
436 --
437 -- Post Failure:
438 -- If an error has occurred, an error message and exception will be raised
439 -- but not handled.
440 --
441 -- Developer Implementation Notes:
442 -- Any post-processing required after the update dml is issued should be
443 -- coded within this procedure. It is important to note that any 3rd party
444 -- maintenance should be reviewed before placing in this procedure.
445 --
446 -- Access Status:
447 -- Internal Row Handler Use Only.
448 --
449 -- {End Of Comments}
450 -- ----------------------------------------------------------------------------
451 Procedure post_update
452 (p_rec in pqp_pty_shd.g_rec_type
453 ,p_effective_date in date
454 ,p_datetrack_mode in varchar2
455 ,p_validation_start_date in date
456 ,p_validation_end_date in date
457 ) is
458 --
459 l_proc varchar2(72) := g_package||'post_update';
460 --
461 Begin
462 hr_utility.set_location('Entering:'||l_proc, 5);
463 begin
464 --
465 pqp_pty_rku.after_update
466 (p_effective_date
467 => p_effective_date
468 ,p_datetrack_mode
469 => p_datetrack_mode
470 ,p_validation_start_date
471 => p_validation_start_date
472 ,p_validation_end_date
473 => p_validation_end_date
474 ,p_pension_type_id
475 => p_rec.pension_type_id
476 ,p_effective_start_date
477 => p_rec.effective_start_date
478 ,p_effective_end_date
479 => p_rec.effective_end_date
480 ,p_pension_type_name
481 => p_rec.pension_type_name
482 ,p_pension_category
483 => p_rec.pension_category
484 ,p_pension_provider_type
485 => p_rec.pension_provider_type
486 ,p_salary_calculation_method
487 => p_rec.salary_calculation_method
488 ,p_threshold_conversion_rule
489 => p_rec.threshold_conversion_rule
490 ,p_contribution_conversion_rule
491 => p_rec.contribution_conversion_rule
492 ,p_er_annual_limit
493 => p_rec.er_annual_limit
494 ,p_ee_annual_limit
495 => p_rec.ee_annual_limit
496 ,p_er_annual_salary_threshold
497 => p_rec.er_annual_salary_threshold
498 ,p_ee_annual_salary_threshold
499 => p_rec.ee_annual_salary_threshold
500 ,p_object_version_number
501 => p_rec.object_version_number
502 ,p_business_group_id
503 => p_rec.business_group_id
504 ,p_legislation_code
505 => p_rec.legislation_code
506 ,p_description
507 => p_rec.description
508 ,p_minimum_age
509 => p_rec.minimum_age
510 ,p_ee_contribution_percent
511 => p_rec.ee_contribution_percent
512 ,p_maximum_age
513 => p_rec.maximum_age
514 ,p_er_contribution_percent
515 => p_rec.er_contribution_percent
516 ,p_ee_annual_contribution
517 => p_rec.ee_annual_contribution
518 ,p_er_annual_contribution
519 => p_rec.er_annual_contribution
520 ,p_annual_premium_amount
521 => p_rec.annual_premium_amount
522 ,p_ee_contribution_bal_type_id
523 => p_rec.ee_contribution_bal_type_id
524 ,p_er_contribution_bal_type_id
525 => p_rec.er_contribution_bal_type_id
526 ,p_balance_init_element_type_id
527 => p_rec.balance_init_element_type_id
528 ,p_ee_contribution_fixed_rate => p_rec.ee_contribution_fixed_rate --added for UK
529 ,p_er_contribution_fixed_rate => p_rec.er_contribution_fixed_rate --added for UK
530 ,p_pty_attribute_category
531 => p_rec.pty_attribute_category
532 ,p_pty_attribute1
533 => p_rec.pty_attribute1
534 ,p_pty_attribute2
535 => p_rec.pty_attribute2
536 ,p_pty_attribute3
537 => p_rec.pty_attribute3
538 ,p_pty_attribute4
539 => p_rec.pty_attribute4
540 ,p_pty_attribute5
541 => p_rec.pty_attribute5
542 ,p_pty_attribute6
543 => p_rec.pty_attribute6
544 ,p_pty_attribute7
545 => p_rec.pty_attribute7
546 ,p_pty_attribute8
547 => p_rec.pty_attribute8
548 ,p_pty_attribute9
549 => p_rec.pty_attribute9
550 ,p_pty_attribute10
551 => p_rec.pty_attribute10
552 ,p_pty_attribute11
553 => p_rec.pty_attribute11
554 ,p_pty_attribute12
555 => p_rec.pty_attribute12
556 ,p_pty_attribute13
557 => p_rec.pty_attribute13
558 ,p_pty_attribute14
559 => p_rec.pty_attribute14
560 ,p_pty_attribute15
561 => p_rec.pty_attribute15
562 ,p_pty_attribute16
563 => p_rec.pty_attribute16
564 ,p_pty_attribute17
565 => p_rec.pty_attribute17
566 ,p_pty_attribute18
567 => p_rec.pty_attribute18
568 ,p_pty_attribute19
569 => p_rec.pty_attribute19
570 ,p_pty_attribute20
571 => p_rec.pty_attribute20
572 ,p_pty_information_category
573 => p_rec.pty_information_category
574 ,p_pty_information1
575 => p_rec.pty_information1
576 ,p_pty_information2
577 => p_rec.pty_information2
578 ,p_pty_information3
579 => p_rec.pty_information3
580 ,p_pty_information4
581 => p_rec.pty_information4
582 ,p_pty_information5
583 => p_rec.pty_information5
584 ,p_pty_information6
585 => p_rec.pty_information6
586 ,p_pty_information7
587 => p_rec.pty_information7
588 ,p_pty_information8
589 => p_rec.pty_information8
590 ,p_pty_information9
591 => p_rec.pty_information9
592 ,p_pty_information10
593 => p_rec.pty_information10
594 ,p_pty_information11
595 => p_rec.pty_information11
596 ,p_pty_information12
597 => p_rec.pty_information12
598 ,p_pty_information13
599 => p_rec.pty_information13
600 ,p_pty_information14
601 => p_rec.pty_information14
602 ,p_pty_information15
603 => p_rec.pty_information15
604 ,p_pty_information16
605 => p_rec.pty_information16
606 ,p_pty_information17
607 => p_rec.pty_information17
608 ,p_pty_information18
609 => p_rec.pty_information18
610 ,p_pty_information19
611 => p_rec.pty_information19
612 ,p_pty_information20
613 => p_rec.pty_information20
614 ,p_special_pension_type_code
615 => p_rec.special_pension_type_code
616 ,p_pension_sub_category
617 => p_rec.pension_sub_category
618 ,p_pension_basis_calc_method
619 => p_rec.pension_basis_calc_method
620 ,p_pension_salary_balance
621 => p_rec.pension_salary_balance
622 ,p_recurring_bonus_percent
623 => p_rec.recurring_bonus_percent
624 ,p_non_recurring_bonus_percent
625 => p_rec.non_recurring_bonus_percent
626 ,p_recurring_bonus_balance
627 => p_rec.recurring_bonus_balance
628 ,p_non_recurring_bonus_balance
629 => p_rec.non_recurring_bonus_balance
630 ,p_std_tax_reduction
631 => p_rec.std_tax_reduction
632 ,p_spl_tax_reduction
633 => p_rec.spl_tax_reduction
634 ,p_sig_sal_spl_tax_reduction
635 => p_rec.sig_sal_spl_tax_reduction
636 ,p_sig_sal_non_tax_reduction
637 => p_rec.sig_sal_non_tax_reduction
638 ,p_sig_sal_std_tax_reduction
639 => p_rec.sig_sal_std_tax_reduction
640 ,p_sii_std_tax_reduction
641 => p_rec.sii_std_tax_reduction
642 ,p_sii_spl_tax_reduction
643 => p_rec.sii_spl_tax_reduction
644 ,p_sii_non_tax_reduction
645 => p_rec.sii_non_tax_reduction
646 ,p_previous_year_bonus_included
647 => p_rec.previous_year_bonus_included
648 ,p_recurring_bonus_period
649 => p_rec.recurring_bonus_period
650 ,p_non_recurring_bonus_period
651 => p_rec.non_recurring_bonus_period
652 ,p_ee_age_threshold
653 => p_rec.ee_age_threshold
654 ,p_er_age_threshold
655 => p_rec.er_age_threshold
656 ,p_ee_age_contribution
657 => p_rec.ee_age_contribution
658 ,p_er_age_contribution
659 => p_rec.er_age_contribution
660 ,p_effective_start_date_o
661 => pqp_pty_shd.g_old_rec.effective_start_date
662 ,p_effective_end_date_o
663 => pqp_pty_shd.g_old_rec.effective_end_date
664 ,p_pension_type_name_o
665 => pqp_pty_shd.g_old_rec.pension_type_name
666 ,p_pension_category_o
667 => pqp_pty_shd.g_old_rec.pension_category
668 ,p_pension_provider_type_o
669 => pqp_pty_shd.g_old_rec.pension_provider_type
670 ,p_salary_calculation_method_o
671 => pqp_pty_shd.g_old_rec.salary_calculation_method
672 ,p_threshold_conversion_rule_o
673 => pqp_pty_shd.g_old_rec.threshold_conversion_rule
674 ,p_contribution_conversion_ru_o
675 => pqp_pty_shd.g_old_rec.contribution_conversion_rule
676 ,p_er_annual_limit_o
677 => pqp_pty_shd.g_old_rec.er_annual_limit
678 ,p_ee_annual_limit_o
679 => pqp_pty_shd.g_old_rec.ee_annual_limit
680 ,p_er_annual_salary_threshold_o
681 => pqp_pty_shd.g_old_rec.er_annual_salary_threshold
682 ,p_ee_annual_salary_threshold_o
683 => pqp_pty_shd.g_old_rec.ee_annual_salary_threshold
684 ,p_object_version_number_o
685 => pqp_pty_shd.g_old_rec.object_version_number
686 ,p_business_group_id_o
687 => pqp_pty_shd.g_old_rec.business_group_id
688 ,p_legislation_code_o
689 => pqp_pty_shd.g_old_rec.legislation_code
690 ,p_description_o
691 => pqp_pty_shd.g_old_rec.description
692 ,p_minimum_age_o
693 => pqp_pty_shd.g_old_rec.minimum_age
694 ,p_ee_contribution_percent_o
695 => pqp_pty_shd.g_old_rec.ee_contribution_percent
696 ,p_maximum_age_o
697 => pqp_pty_shd.g_old_rec.maximum_age
698 ,p_er_contribution_percent_o
699 => pqp_pty_shd.g_old_rec.er_contribution_percent
700 ,p_ee_annual_contribution_o
701 => pqp_pty_shd.g_old_rec.ee_annual_contribution
702 ,p_er_annual_contribution_o
703 => pqp_pty_shd.g_old_rec.er_annual_contribution
704 ,p_annual_premium_amount_o
705 => pqp_pty_shd.g_old_rec.annual_premium_amount
706 ,p_ee_contribution_bal_type_i_o
707 => pqp_pty_shd.g_old_rec.ee_contribution_bal_type_id
708 ,p_er_contribution_bal_type_i_o
709 => pqp_pty_shd.g_old_rec.er_contribution_bal_type_id
710 ,p_balance_init_element_type__o
711 => pqp_pty_shd.g_old_rec.balance_init_element_type_id
712 ,p_ee_contribution_fixed_rate_o => pqp_pty_shd.g_old_rec.ee_contribution_fixed_rate --added for UK
713 ,p_er_contribution_fixed_rate_o => pqp_pty_shd.g_old_rec.ee_contribution_fixed_rate --added for UK
714 ,p_pty_attribute_category_o
715 => pqp_pty_shd.g_old_rec.pty_attribute_category
716 ,p_pty_attribute1_o
717 => pqp_pty_shd.g_old_rec.pty_attribute1
718 ,p_pty_attribute2_o
719 => pqp_pty_shd.g_old_rec.pty_attribute2
720 ,p_pty_attribute3_o
721 => pqp_pty_shd.g_old_rec.pty_attribute3
722 ,p_pty_attribute4_o
723 => pqp_pty_shd.g_old_rec.pty_attribute4
724 ,p_pty_attribute5_o
725 => pqp_pty_shd.g_old_rec.pty_attribute5
726 ,p_pty_attribute6_o
727 => pqp_pty_shd.g_old_rec.pty_attribute6
728 ,p_pty_attribute7_o
729 => pqp_pty_shd.g_old_rec.pty_attribute7
730 ,p_pty_attribute8_o
731 => pqp_pty_shd.g_old_rec.pty_attribute8
732 ,p_pty_attribute9_o
733 => pqp_pty_shd.g_old_rec.pty_attribute9
734 ,p_pty_attribute10_o
735 => pqp_pty_shd.g_old_rec.pty_attribute10
736 ,p_pty_attribute11_o
737 => pqp_pty_shd.g_old_rec.pty_attribute11
738 ,p_pty_attribute12_o
739 => pqp_pty_shd.g_old_rec.pty_attribute12
740 ,p_pty_attribute13_o
741 => pqp_pty_shd.g_old_rec.pty_attribute13
742 ,p_pty_attribute14_o
743 => pqp_pty_shd.g_old_rec.pty_attribute14
744 ,p_pty_attribute15_o
745 => pqp_pty_shd.g_old_rec.pty_attribute15
746 ,p_pty_attribute16_o
747 => pqp_pty_shd.g_old_rec.pty_attribute16
748 ,p_pty_attribute17_o
749 => pqp_pty_shd.g_old_rec.pty_attribute17
750 ,p_pty_attribute18_o
751 => pqp_pty_shd.g_old_rec.pty_attribute18
752 ,p_pty_attribute19_o
753 => pqp_pty_shd.g_old_rec.pty_attribute19
754 ,p_pty_attribute20_o
755 => pqp_pty_shd.g_old_rec.pty_attribute20
756 ,p_pty_information_category_o
757 => pqp_pty_shd.g_old_rec.pty_information_category
758 ,p_pty_information1_o
759 => pqp_pty_shd.g_old_rec.pty_information1
760 ,p_pty_information2_o
761 => pqp_pty_shd.g_old_rec.pty_information2
762 ,p_pty_information3_o
763 => pqp_pty_shd.g_old_rec.pty_information3
764 ,p_pty_information4_o
765 => pqp_pty_shd.g_old_rec.pty_information4
766 ,p_pty_information5_o
767 => pqp_pty_shd.g_old_rec.pty_information5
768 ,p_pty_information6_o
769 => pqp_pty_shd.g_old_rec.pty_information6
770 ,p_pty_information7_o
771 => pqp_pty_shd.g_old_rec.pty_information7
772 ,p_pty_information8_o
773 => pqp_pty_shd.g_old_rec.pty_information8
774 ,p_pty_information9_o
775 => pqp_pty_shd.g_old_rec.pty_information9
776 ,p_pty_information10_o
777 => pqp_pty_shd.g_old_rec.pty_information10
778 ,p_pty_information11_o
779 => pqp_pty_shd.g_old_rec.pty_information11
780 ,p_pty_information12_o
781 => pqp_pty_shd.g_old_rec.pty_information12
782 ,p_pty_information13_o
783 => pqp_pty_shd.g_old_rec.pty_information13
784 ,p_pty_information14_o
785 => pqp_pty_shd.g_old_rec.pty_information14
786 ,p_pty_information15_o
787 => pqp_pty_shd.g_old_rec.pty_information15
788 ,p_pty_information16_o
789 => pqp_pty_shd.g_old_rec.pty_information16
790 ,p_pty_information17_o
791 => pqp_pty_shd.g_old_rec.pty_information17
792 ,p_pty_information18_o
793 => pqp_pty_shd.g_old_rec.pty_information18
794 ,p_pty_information19_o
795 => pqp_pty_shd.g_old_rec.pty_information19
796 ,p_pty_information20_o
797 => pqp_pty_shd.g_old_rec.pty_information20
798 ,p_special_pension_type_code_o
799 => pqp_pty_shd.g_old_rec.special_pension_type_code
800 ,p_pension_sub_category_o
801 => pqp_pty_shd.g_old_rec.pension_sub_category
802 ,p_pension_basis_calc_method_o
803 => pqp_pty_shd.g_old_rec.pension_basis_calc_method
804 ,p_pension_salary_balance_o
805 => pqp_pty_shd.g_old_rec.pension_salary_balance
806 ,p_recurring_bonus_percent_o
807 => pqp_pty_shd.g_old_rec.recurring_bonus_percent
808 ,p_non_recur_bonus_percent_o
809 => pqp_pty_shd.g_old_rec.non_recurring_bonus_percent
810 ,p_recurring_bonus_balance_o
811 => pqp_pty_shd.g_old_rec.recurring_bonus_balance
812 ,p_non_recur_bonus_balance_o
813 => pqp_pty_shd.g_old_rec.non_recurring_bonus_balance
814 ,p_std_tax_reduction_o
815 => pqp_pty_shd.g_old_rec.std_tax_reduction
816 ,p_spl_tax_reduction_o
817 => pqp_pty_shd.g_old_rec.spl_tax_reduction
818 ,p_sig_sal_spl_tax_reduction_o
819 => pqp_pty_shd.g_old_rec.sig_sal_spl_tax_reduction
820 ,p_sig_sal_non_tax_reduction_o
821 => pqp_pty_shd.g_old_rec.sig_sal_non_tax_reduction
822 ,p_sig_sal_std_tax_reduction_o
823 => pqp_pty_shd.g_old_rec.sig_sal_std_tax_reduction
824 ,p_sii_std_tax_reduction_o
825 => pqp_pty_shd.g_old_rec.sii_std_tax_reduction
826 ,p_sii_spl_tax_reduction_o
827 => pqp_pty_shd.g_old_rec.sii_spl_tax_reduction
828 ,p_sii_non_tax_reduction_o
829 => pqp_pty_shd.g_old_rec.sii_non_tax_reduction
830 ,p_prev_year_bonus_include_o
831 => pqp_pty_shd.g_old_rec.previous_year_bonus_included
832 ,p_recurring_bonus_period_o
833 => pqp_pty_shd.g_old_rec.recurring_bonus_period
834 ,p_non_recurring_bonus_period_o
835 => pqp_pty_shd.g_old_rec.non_recurring_bonus_period
836 ,p_ee_age_threshold_o
837 => pqp_pty_shd.g_old_rec.ee_age_threshold
838 ,p_er_age_threshold_o
839 => pqp_pty_shd.g_old_rec.er_age_threshold
840 ,p_ee_age_contribution_o
841 => pqp_pty_shd.g_old_rec.ee_age_contribution
842 ,p_er_age_contribution_o
843 => pqp_pty_shd.g_old_rec.er_age_contribution
844 );
845 --
846 exception
847 --
848 when hr_api.cannot_find_prog_unit then
849 --
850 hr_api.cannot_find_prog_unit_error
851 (p_module_name => 'PQP_PENSION_TYPES_F'
852 ,p_hook_type => 'AU');
853 --
854 end;
855 --
856 hr_utility.set_location(' Leaving:'||l_proc, 10);
857 End post_update;
858 --
859 -- ----------------------------------------------------------------------------
860 -- |-----------------------------< convert_defs >-----------------------------|
861 -- ----------------------------------------------------------------------------
862 -- {Start Of Comments}
863 --
864 -- Description:
865 -- The Convert_Defs procedure has one very important function:
866 -- It must return the record structure for the row with all system defaulted
867 -- values converted into its corresponding parameter value for update. When
868 -- we attempt to update a row through the Upd process , certain
869 -- parameters can be defaulted which enables flexibility in the calling of
870 -- the upd process (e.g. only attributes which need to be updated need to be
871 -- specified). For the upd process to determine which attributes
872 -- have NOT been specified we need to check if the parameter has a reserved
873 -- system default value. Therefore, for all parameters which have a
874 -- corresponding reserved system default mechanism specified we need to
875 -- check if a system default is being used. If a system default is being
876 -- used then we convert the defaulted value into its corresponding attribute
877 -- value held in the g_old_rec data structure.
878 --
879 -- Prerequisites:
880 -- This private function can only be called from the upd process.
881 --
882 -- In Parameters:
883 -- A Pl/Sql record structure.
884 --
885 -- Post Success:
886 -- The record structure will be returned with all system defaulted parameter
887 -- values converted into its current row attribute value.
888 --
889 -- Post Failure:
890 -- No direct error handling is required within this function. Any possible
891 -- errors within this procedure will be a PL/SQL value error due to
892 -- conversion of datatypes or data lengths.
893 --
894 -- Developer Implementation Notes:
895 -- None.
896 --
897 -- Access Status:
898 -- Internal Row Handler Use Only.
899 --
900 -- {End Of Comments}
901 -- ----------------------------------------------------------------------------
902 Procedure convert_defs
903 (p_rec in out nocopy pqp_pty_shd.g_rec_type
904 ) is
905 --
906 Begin
907 --
908 -- We must now examine each argument value in the
909 -- p_rec plsql record structure
910 -- to see if a system default is being used. If a system default
911 -- is being used then we must set to the 'current' argument value.
912 --
913 If (p_rec.pension_type_name = hr_api.g_varchar2) then
914 p_rec.pension_type_name :=
915 pqp_pty_shd.g_old_rec.pension_type_name;
916 End If;
917 If (p_rec.pension_category = hr_api.g_varchar2) then
918 p_rec.pension_category :=
919 pqp_pty_shd.g_old_rec.pension_category;
920 End If;
921 If (p_rec.pension_provider_type = hr_api.g_varchar2) then
922 p_rec.pension_provider_type :=
923 pqp_pty_shd.g_old_rec.pension_provider_type;
924 End If;
925 If (p_rec.salary_calculation_method = hr_api.g_varchar2) then
926 p_rec.salary_calculation_method :=
927 pqp_pty_shd.g_old_rec.salary_calculation_method;
928 End If;
929 If (p_rec.threshold_conversion_rule = hr_api.g_varchar2) then
930 p_rec.threshold_conversion_rule :=
931 pqp_pty_shd.g_old_rec.threshold_conversion_rule;
932 End If;
933 If (p_rec.contribution_conversion_rule = hr_api.g_varchar2) then
934 p_rec.contribution_conversion_rule :=
935 pqp_pty_shd.g_old_rec.contribution_conversion_rule;
936 End If;
937 If (p_rec.er_annual_limit = hr_api.g_number) then
938 p_rec.er_annual_limit :=
939 pqp_pty_shd.g_old_rec.er_annual_limit;
940 End If;
941 If (p_rec.ee_annual_limit = hr_api.g_number) then
942 p_rec.ee_annual_limit :=
943 pqp_pty_shd.g_old_rec.ee_annual_limit;
944 End If;
945 If (p_rec.er_annual_salary_threshold = hr_api.g_number) then
946 p_rec.er_annual_salary_threshold :=
947 pqp_pty_shd.g_old_rec.er_annual_salary_threshold;
948 End If;
949 If (p_rec.ee_annual_salary_threshold = hr_api.g_number) then
950 p_rec.ee_annual_salary_threshold :=
951 pqp_pty_shd.g_old_rec.ee_annual_salary_threshold;
952 End If;
953 If (p_rec.business_group_id = hr_api.g_number) then
954 p_rec.business_group_id :=
955 pqp_pty_shd.g_old_rec.business_group_id;
956 End If;
957 If (p_rec.legislation_code = hr_api.g_varchar2) then
958 p_rec.legislation_code :=
959 pqp_pty_shd.g_old_rec.legislation_code;
960 End If;
961 If (p_rec.description = hr_api.g_varchar2) then
962 p_rec.description :=
963 pqp_pty_shd.g_old_rec.description;
964 End If;
965 If (p_rec.minimum_age = hr_api.g_number) then
966 p_rec.minimum_age :=
967 pqp_pty_shd.g_old_rec.minimum_age;
968 End If;
969 If (p_rec.ee_contribution_percent = hr_api.g_number) then
970 p_rec.ee_contribution_percent :=
971 pqp_pty_shd.g_old_rec.ee_contribution_percent;
972 End If;
973 If (p_rec.maximum_age = hr_api.g_number) then
974 p_rec.maximum_age :=
975 pqp_pty_shd.g_old_rec.maximum_age;
976 End If;
977 If (p_rec.er_contribution_percent = hr_api.g_number) then
978 p_rec.er_contribution_percent :=
979 pqp_pty_shd.g_old_rec.er_contribution_percent;
980 End If;
981 If (p_rec.ee_annual_contribution = hr_api.g_number) then
982 p_rec.ee_annual_contribution :=
983 pqp_pty_shd.g_old_rec.ee_annual_contribution;
984 End If;
985 If (p_rec.er_annual_contribution = hr_api.g_number) then
986 p_rec.er_annual_contribution :=
987 pqp_pty_shd.g_old_rec.er_annual_contribution;
988 End If;
989 If (p_rec.annual_premium_amount = hr_api.g_number) then
990 p_rec.annual_premium_amount :=
991 pqp_pty_shd.g_old_rec.annual_premium_amount;
992 End If;
993 If (p_rec.ee_contribution_bal_type_id = hr_api.g_number) then
994 p_rec.ee_contribution_bal_type_id :=
995 pqp_pty_shd.g_old_rec.ee_contribution_bal_type_id;
996 End If;
997 If (p_rec.er_contribution_bal_type_id = hr_api.g_number) then
998 p_rec.er_contribution_bal_type_id :=
999 pqp_pty_shd.g_old_rec.er_contribution_bal_type_id;
1000 End If;
1001 If (p_rec.balance_init_element_type_id = hr_api.g_number) then
1002 p_rec.balance_init_element_type_id :=
1003 pqp_pty_shd.g_old_rec.balance_init_element_type_id;
1004 End If;
1005
1006
1007
1008 If (p_rec.ee_contribution_fixed_rate = hr_api.g_number) then --added for UK
1009 p_rec.ee_contribution_fixed_rate:=
1010 pqp_pty_shd.g_old_rec.ee_contribution_fixed_rate;
1011 End If;
1012
1013 If (p_rec.er_contribution_fixed_rate = hr_api.g_number) then --added for UK
1014 p_rec.er_contribution_fixed_rate:=
1015 pqp_pty_shd.g_old_rec.er_contribution_fixed_rate;
1016 End If;
1017
1018 If (p_rec.pty_attribute_category = hr_api.g_varchar2) then
1019 p_rec.pty_attribute_category :=
1020 pqp_pty_shd.g_old_rec.pty_attribute_category;
1021 End If;
1022 If (p_rec.pty_attribute1 = hr_api.g_varchar2) then
1023 p_rec.pty_attribute1 :=
1024 pqp_pty_shd.g_old_rec.pty_attribute1;
1025 End If;
1026 If (p_rec.pty_attribute2 = hr_api.g_varchar2) then
1027 p_rec.pty_attribute2 :=
1028 pqp_pty_shd.g_old_rec.pty_attribute2;
1029 End If;
1030 If (p_rec.pty_attribute3 = hr_api.g_varchar2) then
1031 p_rec.pty_attribute3 :=
1032 pqp_pty_shd.g_old_rec.pty_attribute3;
1033 End If;
1034 If (p_rec.pty_attribute4 = hr_api.g_varchar2) then
1035 p_rec.pty_attribute4 :=
1036 pqp_pty_shd.g_old_rec.pty_attribute4;
1037 End If;
1038 If (p_rec.pty_attribute5 = hr_api.g_varchar2) then
1039 p_rec.pty_attribute5 :=
1040 pqp_pty_shd.g_old_rec.pty_attribute5;
1041 End If;
1042 If (p_rec.pty_attribute6 = hr_api.g_varchar2) then
1043 p_rec.pty_attribute6 :=
1044 pqp_pty_shd.g_old_rec.pty_attribute6;
1045 End If;
1046 If (p_rec.pty_attribute7 = hr_api.g_varchar2) then
1047 p_rec.pty_attribute7 :=
1048 pqp_pty_shd.g_old_rec.pty_attribute7;
1049 End If;
1050 If (p_rec.pty_attribute8 = hr_api.g_varchar2) then
1051 p_rec.pty_attribute8 :=
1052 pqp_pty_shd.g_old_rec.pty_attribute8;
1053 End If;
1054 If (p_rec.pty_attribute9 = hr_api.g_varchar2) then
1055 p_rec.pty_attribute9 :=
1056 pqp_pty_shd.g_old_rec.pty_attribute9;
1057 End If;
1058 If (p_rec.pty_attribute10 = hr_api.g_varchar2) then
1059 p_rec.pty_attribute10 :=
1060 pqp_pty_shd.g_old_rec.pty_attribute10;
1061 End If;
1062 If (p_rec.pty_attribute11 = hr_api.g_varchar2) then
1063 p_rec.pty_attribute11 :=
1064 pqp_pty_shd.g_old_rec.pty_attribute11;
1065 End If;
1066 If (p_rec.pty_attribute12 = hr_api.g_varchar2) then
1067 p_rec.pty_attribute12 :=
1068 pqp_pty_shd.g_old_rec.pty_attribute12;
1069 End If;
1070 If (p_rec.pty_attribute13 = hr_api.g_varchar2) then
1071 p_rec.pty_attribute13 :=
1072 pqp_pty_shd.g_old_rec.pty_attribute13;
1073 End If;
1074 If (p_rec.pty_attribute14 = hr_api.g_varchar2) then
1075 p_rec.pty_attribute14 :=
1076 pqp_pty_shd.g_old_rec.pty_attribute14;
1077 End If;
1078 If (p_rec.pty_attribute15 = hr_api.g_varchar2) then
1079 p_rec.pty_attribute15 :=
1080 pqp_pty_shd.g_old_rec.pty_attribute15;
1081 End If;
1082 If (p_rec.pty_attribute16 = hr_api.g_varchar2) then
1083 p_rec.pty_attribute16 :=
1084 pqp_pty_shd.g_old_rec.pty_attribute16;
1085 End If;
1086 If (p_rec.pty_attribute17 = hr_api.g_varchar2) then
1087 p_rec.pty_attribute17 :=
1088 pqp_pty_shd.g_old_rec.pty_attribute17;
1089 End If;
1090 If (p_rec.pty_attribute18 = hr_api.g_varchar2) then
1091 p_rec.pty_attribute18 :=
1092 pqp_pty_shd.g_old_rec.pty_attribute18;
1093 End If;
1094 If (p_rec.pty_attribute19 = hr_api.g_varchar2) then
1095 p_rec.pty_attribute19 :=
1096 pqp_pty_shd.g_old_rec.pty_attribute19;
1097 End If;
1098 If (p_rec.pty_attribute20 = hr_api.g_varchar2) then
1099 p_rec.pty_attribute20 :=
1100 pqp_pty_shd.g_old_rec.pty_attribute20;
1101 End If;
1102 If (p_rec.pty_information_category = hr_api.g_varchar2) then
1103 p_rec.pty_information_category :=
1104 pqp_pty_shd.g_old_rec.pty_information_category;
1105 End If;
1106 If (p_rec.pty_information1 = hr_api.g_varchar2) then
1107 p_rec.pty_information1 :=
1108 pqp_pty_shd.g_old_rec.pty_information1;
1109 End If;
1110 If (p_rec.pty_information2 = hr_api.g_varchar2) then
1111 p_rec.pty_information2 :=
1112 pqp_pty_shd.g_old_rec.pty_information2;
1113 End If;
1114 If (p_rec.pty_information3 = hr_api.g_varchar2) then
1115 p_rec.pty_information3 :=
1116 pqp_pty_shd.g_old_rec.pty_information3;
1117 End If;
1118 If (p_rec.pty_information4 = hr_api.g_varchar2) then
1119 p_rec.pty_information4 :=
1120 pqp_pty_shd.g_old_rec.pty_information4;
1121 End If;
1122 If (p_rec.pty_information5 = hr_api.g_varchar2) then
1123 p_rec.pty_information5 :=
1124 pqp_pty_shd.g_old_rec.pty_information5;
1125 End If;
1126 If (p_rec.pty_information6 = hr_api.g_varchar2) then
1127 p_rec.pty_information6 :=
1128 pqp_pty_shd.g_old_rec.pty_information6;
1129 End If;
1130 If (p_rec.pty_information7 = hr_api.g_varchar2) then
1131 p_rec.pty_information7 :=
1132 pqp_pty_shd.g_old_rec.pty_information7;
1133 End If;
1134 If (p_rec.pty_information8 = hr_api.g_varchar2) then
1135 p_rec.pty_information8 :=
1136 pqp_pty_shd.g_old_rec.pty_information8;
1137 End If;
1138 If (p_rec.pty_information9 = hr_api.g_varchar2) then
1139 p_rec.pty_information9 :=
1140 pqp_pty_shd.g_old_rec.pty_information9;
1141 End If;
1142 If (p_rec.pty_information10 = hr_api.g_varchar2) then
1143 p_rec.pty_information10 :=
1144 pqp_pty_shd.g_old_rec.pty_information10;
1145 End If;
1146 If (p_rec.pty_information11 = hr_api.g_varchar2) then
1147 p_rec.pty_information11 :=
1148 pqp_pty_shd.g_old_rec.pty_information11;
1149 End If;
1150 If (p_rec.pty_information12 = hr_api.g_varchar2) then
1151 p_rec.pty_information12 :=
1152 pqp_pty_shd.g_old_rec.pty_information12;
1153 End If;
1154 If (p_rec.pty_information13 = hr_api.g_varchar2) then
1155 p_rec.pty_information13 :=
1156 pqp_pty_shd.g_old_rec.pty_information13;
1157 End If;
1158 If (p_rec.pty_information14 = hr_api.g_varchar2) then
1159 p_rec.pty_information14 :=
1160 pqp_pty_shd.g_old_rec.pty_information14;
1161 End If;
1162 If (p_rec.pty_information15 = hr_api.g_varchar2) then
1163 p_rec.pty_information15 :=
1164 pqp_pty_shd.g_old_rec.pty_information15;
1165 End If;
1166 If (p_rec.pty_information16 = hr_api.g_varchar2) then
1167 p_rec.pty_information16 :=
1168 pqp_pty_shd.g_old_rec.pty_information16;
1169 End If;
1170 If (p_rec.pty_information17 = hr_api.g_varchar2) then
1171 p_rec.pty_information17 :=
1172 pqp_pty_shd.g_old_rec.pty_information17;
1173 End If;
1174 If (p_rec.pty_information18 = hr_api.g_varchar2) then
1175 p_rec.pty_information18 :=
1176 pqp_pty_shd.g_old_rec.pty_information18;
1177 End If;
1178 If (p_rec.pty_information19 = hr_api.g_varchar2) then
1179 p_rec.pty_information19 :=
1180 pqp_pty_shd.g_old_rec.pty_information19;
1181 End If;
1182 If (p_rec.pty_information20 = hr_api.g_varchar2) then
1183 p_rec.pty_information20 :=
1184 pqp_pty_shd.g_old_rec.pty_information20;
1185 End If;
1186 If (p_rec.special_pension_type_code = hr_api.g_varchar2) then
1187 p_rec.special_pension_type_code :=
1188 pqp_pty_shd.g_old_rec.special_pension_type_code;
1189 End If;
1190 If (p_rec.pension_sub_category = hr_api.g_varchar2) then
1191 p_rec.pension_sub_category :=
1192 pqp_pty_shd.g_old_rec.pension_sub_category;
1193 End If;
1194 If (p_rec.pension_basis_calc_method = hr_api.g_varchar2) then
1195 p_rec.pension_basis_calc_method :=
1196 pqp_pty_shd.g_old_rec.pension_basis_calc_method;
1197 End If;
1198 If (p_rec.pension_salary_balance = hr_api.g_number) then
1199 p_rec.pension_salary_balance :=
1200 pqp_pty_shd.g_old_rec.pension_salary_balance;
1201 End If;
1202 If (p_rec.recurring_bonus_percent = hr_api.g_number) then
1203 p_rec.recurring_bonus_percent :=
1204 pqp_pty_shd.g_old_rec.recurring_bonus_percent;
1205 End If;
1206 If (p_rec.non_recurring_bonus_percent = hr_api.g_number) then
1207 p_rec.non_recurring_bonus_percent :=
1208 pqp_pty_shd.g_old_rec.non_recurring_bonus_percent;
1209 End If;
1210 If (p_rec.recurring_bonus_balance = hr_api.g_number) then
1211 p_rec.recurring_bonus_balance :=
1212 pqp_pty_shd.g_old_rec.recurring_bonus_balance;
1213 End If;
1214 If (p_rec.non_recurring_bonus_balance = hr_api.g_number) then
1215 p_rec.non_recurring_bonus_balance :=
1216 pqp_pty_shd.g_old_rec.non_recurring_bonus_balance;
1217 End If;
1218 If (p_rec.std_tax_reduction = hr_api.g_varchar2) then
1219 p_rec.std_tax_reduction :=
1220 pqp_pty_shd.g_old_rec.std_tax_reduction;
1221 End If;
1222 If (p_rec.spl_tax_reduction = hr_api.g_varchar2) then
1223 p_rec.spl_tax_reduction :=
1224 pqp_pty_shd.g_old_rec.spl_tax_reduction;
1225 End If;
1226 If (p_rec.sig_sal_spl_tax_reduction = hr_api.g_varchar2) then
1227 p_rec.sig_sal_spl_tax_reduction :=
1228 pqp_pty_shd.g_old_rec.sig_sal_spl_tax_reduction;
1229 End If;
1230 If (p_rec.sig_sal_non_tax_reduction = hr_api.g_varchar2) then
1231 p_rec.sig_sal_non_tax_reduction :=
1232 pqp_pty_shd.g_old_rec.sig_sal_non_tax_reduction;
1233 End If;
1234 If (p_rec.sig_sal_std_tax_reduction = hr_api.g_varchar2) then
1235 p_rec.sig_sal_std_tax_reduction :=
1236 pqp_pty_shd.g_old_rec.sig_sal_std_tax_reduction;
1237 End If;
1238 If (p_rec.sii_std_tax_reduction = hr_api.g_varchar2) then
1239 p_rec.sii_std_tax_reduction :=
1240 pqp_pty_shd.g_old_rec.sii_std_tax_reduction;
1241 End If;
1242 If (p_rec.sii_spl_tax_reduction = hr_api.g_varchar2) then
1243 p_rec.sii_spl_tax_reduction :=
1244 pqp_pty_shd.g_old_rec.sii_spl_tax_reduction;
1245 End If;
1246 If (p_rec.sii_non_tax_reduction = hr_api.g_varchar2) then
1247 p_rec.sii_non_tax_reduction :=
1248 pqp_pty_shd.g_old_rec.sii_non_tax_reduction;
1249 End If;
1250 If (p_rec.previous_year_bonus_included = hr_api.g_varchar2) then
1251 p_rec.previous_year_bonus_included :=
1252 pqp_pty_shd.g_old_rec.previous_year_bonus_included;
1253 End If;
1254 If (p_rec.recurring_bonus_period = hr_api.g_varchar2) then
1255 p_rec.recurring_bonus_period :=
1256 pqp_pty_shd.g_old_rec.recurring_bonus_period;
1257 End If;
1258 If (p_rec.non_recurring_bonus_period = hr_api.g_varchar2) then
1259 p_rec.non_recurring_bonus_period :=
1260 pqp_pty_shd.g_old_rec.non_recurring_bonus_period;
1261 End If;
1262 If (p_rec.ee_age_threshold = hr_api.g_varchar2) then
1263 p_rec.ee_age_threshold :=
1264 pqp_pty_shd.g_old_rec.ee_age_threshold;
1265 End If;
1266 If (p_rec.er_age_threshold = hr_api.g_varchar2) then
1267 p_rec.er_age_threshold :=
1268 pqp_pty_shd.g_old_rec.er_age_threshold;
1269 End If;
1270 If (p_rec.ee_age_contribution = hr_api.g_varchar2) then
1271 p_rec.ee_age_contribution :=
1272 pqp_pty_shd.g_old_rec.ee_age_contribution;
1273 End If;
1274 If (p_rec.er_age_contribution = hr_api.g_varchar2) then
1275 p_rec.er_age_contribution :=
1276 pqp_pty_shd.g_old_rec.er_age_contribution;
1277 End If;
1278 --
1279 End convert_defs;
1280 --
1281 -- ----------------------------------------------------------------------------
1282 -- |---------------------------------< upd >----------------------------------|
1283 -- ----------------------------------------------------------------------------
1284 Procedure upd
1285 (p_effective_date in date
1286 ,p_datetrack_mode in varchar2
1287 ,p_rec in out nocopy pqp_pty_shd.g_rec_type
1288 ) is
1289 --
1290 l_proc varchar2(72) := g_package||'upd';
1291 l_validation_start_date date;
1292 l_validation_end_date date;
1293 --
1294 Begin
1295 hr_utility.set_location('Entering:'||l_proc, 5);
1296 --
1297 -- Ensure that the DateTrack update mode is valid
1298 --
1299 dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
1300 --
1301 -- We must lock the row which we need to update.
1302 --
1303 pqp_pty_shd.lck
1304 (p_effective_date => p_effective_date
1305 ,p_datetrack_mode => p_datetrack_mode
1306 ,p_pension_type_id => p_rec.pension_type_id
1307 ,p_object_version_number => p_rec.object_version_number
1308 ,p_validation_start_date => l_validation_start_date
1309 ,p_validation_end_date => l_validation_end_date
1310 );
1311 --
1312 -- 1. During an update system defaults are used to determine if
1313 -- arguments have been defaulted or not. We must therefore
1314 -- derive the full record structure values to be updated.
1315 --
1316 -- 2. Call the supporting update validate operations.
1317 --
1318 pqp_pty_upd.convert_defs(p_rec);
1319 --
1320 pqp_pty_bus.update_validate
1321 (p_rec => p_rec
1322 ,p_effective_date => p_effective_date
1323 ,p_datetrack_mode => p_datetrack_mode
1324 ,p_validation_start_date => l_validation_start_date
1325 ,p_validation_end_date => l_validation_end_date
1326 );
1327 --
1328 -- Call to raise any errors on multi-message list
1329 hr_multi_message.end_validation_set;
1330 --
1331 -- Call the supporting pre-update operation
1332 --
1333 pre_update
1334 (p_rec => p_rec
1335 ,p_effective_date => p_effective_date
1336 ,p_datetrack_mode => p_datetrack_mode
1337 ,p_validation_start_date => l_validation_start_date
1338 ,p_validation_end_date => l_validation_end_date
1339 );
1340 --
1341 -- Update the row.
1342 --
1343 update_dml
1344 (p_rec => p_rec
1345 ,p_effective_date => p_effective_date
1346 ,p_datetrack_mode => p_datetrack_mode
1347 ,p_validation_start_date => l_validation_start_date
1348 ,p_validation_end_date => l_validation_end_date
1349 );
1350 --
1351 -- Call the supporting post-update operation
1352 --
1353 post_update
1354 (p_rec => p_rec
1355 ,p_effective_date => p_effective_date
1356 ,p_datetrack_mode => p_datetrack_mode
1357 ,p_validation_start_date => l_validation_start_date
1358 ,p_validation_end_date => l_validation_end_date
1359 );
1360 --
1361 -- Call to raise any errors on multi-message list
1362 hr_multi_message.end_validation_set;
1363 End upd;
1364 --
1365 -- ----------------------------------------------------------------------------
1366 -- |------------------------------< upd >-------------------------------------|
1367 -- ----------------------------------------------------------------------------
1368 Procedure upd
1369 (p_effective_date in date
1370 ,p_datetrack_mode in varchar2
1371 ,p_pension_type_id in number
1372 ,p_object_version_number in out nocopy number
1373 ,p_pension_type_name in varchar2 default hr_api.g_varchar2
1374 ,p_pension_category in varchar2 default hr_api.g_varchar2
1375 ,p_pension_provider_type in varchar2 default hr_api.g_varchar2
1376 ,p_salary_calculation_method in varchar2 default hr_api.g_varchar2
1377 ,p_threshold_conversion_rule in varchar2 default hr_api.g_varchar2
1378 ,p_contribution_conversion_rule in varchar2 default hr_api.g_varchar2
1379 ,p_er_annual_limit in number default hr_api.g_number
1380 ,p_ee_annual_limit in number default hr_api.g_number
1381 ,p_er_annual_salary_threshold in number default hr_api.g_number
1382 ,p_ee_annual_salary_threshold in number default hr_api.g_number
1383 ,p_business_group_id in number default hr_api.g_number
1384 ,p_legislation_code in varchar2 default hr_api.g_varchar2
1385 ,p_description in varchar2 default hr_api.g_varchar2
1386 ,p_minimum_age in number default hr_api.g_number
1387 ,p_ee_contribution_percent in number default hr_api.g_number
1388 ,p_maximum_age in number default hr_api.g_number
1389 ,p_er_contribution_percent in number default hr_api.g_number
1390 ,p_ee_annual_contribution in number default hr_api.g_number
1391 ,p_er_annual_contribution in number default hr_api.g_number
1392 ,p_annual_premium_amount in number default hr_api.g_number
1393 ,p_ee_contribution_bal_type_id in number default hr_api.g_number
1394 ,p_er_contribution_bal_type_id in number default hr_api.g_number
1395 ,p_balance_init_element_type_id in number default hr_api.g_number
1396 ,p_ee_contribution_fixed_rate in number default hr_api.g_number --added for UK
1397 ,p_er_contribution_fixed_rate in number default hr_api.g_number --added for UK
1398 ,p_pty_attribute_category in varchar2 default hr_api.g_varchar2
1399 ,p_pty_attribute1 in varchar2 default hr_api.g_varchar2
1400 ,p_pty_attribute2 in varchar2 default hr_api.g_varchar2
1401 ,p_pty_attribute3 in varchar2 default hr_api.g_varchar2
1402 ,p_pty_attribute4 in varchar2 default hr_api.g_varchar2
1403 ,p_pty_attribute5 in varchar2 default hr_api.g_varchar2
1404 ,p_pty_attribute6 in varchar2 default hr_api.g_varchar2
1405 ,p_pty_attribute7 in varchar2 default hr_api.g_varchar2
1406 ,p_pty_attribute8 in varchar2 default hr_api.g_varchar2
1407 ,p_pty_attribute9 in varchar2 default hr_api.g_varchar2
1408 ,p_pty_attribute10 in varchar2 default hr_api.g_varchar2
1409 ,p_pty_attribute11 in varchar2 default hr_api.g_varchar2
1410 ,p_pty_attribute12 in varchar2 default hr_api.g_varchar2
1411 ,p_pty_attribute13 in varchar2 default hr_api.g_varchar2
1412 ,p_pty_attribute14 in varchar2 default hr_api.g_varchar2
1413 ,p_pty_attribute15 in varchar2 default hr_api.g_varchar2
1414 ,p_pty_attribute16 in varchar2 default hr_api.g_varchar2
1415 ,p_pty_attribute17 in varchar2 default hr_api.g_varchar2
1416 ,p_pty_attribute18 in varchar2 default hr_api.g_varchar2
1417 ,p_pty_attribute19 in varchar2 default hr_api.g_varchar2
1418 ,p_pty_attribute20 in varchar2 default hr_api.g_varchar2
1419 ,p_pty_information_category in varchar2 default hr_api.g_varchar2
1420 ,p_pty_information1 in varchar2 default hr_api.g_varchar2
1421 ,p_pty_information2 in varchar2 default hr_api.g_varchar2
1422 ,p_pty_information3 in varchar2 default hr_api.g_varchar2
1423 ,p_pty_information4 in varchar2 default hr_api.g_varchar2
1424 ,p_pty_information5 in varchar2 default hr_api.g_varchar2
1425 ,p_pty_information6 in varchar2 default hr_api.g_varchar2
1426 ,p_pty_information7 in varchar2 default hr_api.g_varchar2
1427 ,p_pty_information8 in varchar2 default hr_api.g_varchar2
1428 ,p_pty_information9 in varchar2 default hr_api.g_varchar2
1429 ,p_pty_information10 in varchar2 default hr_api.g_varchar2
1430 ,p_pty_information11 in varchar2 default hr_api.g_varchar2
1431 ,p_pty_information12 in varchar2 default hr_api.g_varchar2
1432 ,p_pty_information13 in varchar2 default hr_api.g_varchar2
1433 ,p_pty_information14 in varchar2 default hr_api.g_varchar2
1434 ,p_pty_information15 in varchar2 default hr_api.g_varchar2
1435 ,p_pty_information16 in varchar2 default hr_api.g_varchar2
1436 ,p_pty_information17 in varchar2 default hr_api.g_varchar2
1437 ,p_pty_information18 in varchar2 default hr_api.g_varchar2
1438 ,p_pty_information19 in varchar2 default hr_api.g_varchar2
1439 ,p_pty_information20 in varchar2 default hr_api.g_varchar2
1440 ,p_special_pension_type_code in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1441 ,p_pension_sub_category in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1442 ,p_pension_basis_calc_method in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1443 ,p_pension_salary_balance in number default hr_api.g_number -- added for NL Phase 2B
1444 ,p_recurring_bonus_percent in number default hr_api.g_number -- added for NL Phase 2B
1445 ,p_non_recurring_bonus_percent in number default hr_api.g_number -- added for NL Phase 2B
1446 ,p_recurring_bonus_balance in number default hr_api.g_number -- added for NL Phase 2B
1447 ,p_non_recurring_bonus_balance in number default hr_api.g_number -- added for NL Phase 2B
1448 ,p_std_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1449 ,p_spl_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1450 ,p_sig_sal_spl_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1451 ,p_sig_sal_non_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1452 ,p_sig_sal_std_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1453 ,p_sii_std_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1454 ,p_sii_spl_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1455 ,p_sii_non_tax_reduction in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1456 ,p_previous_year_bonus_included in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1457 ,p_recurring_bonus_period in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1458 ,p_non_recurring_bonus_period in varchar2 default hr_api.g_varchar2 -- added for NL Phase 2B
1459 ,p_ee_age_threshold in varchar2 default hr_api.g_varchar2 -- added for ABP TAR fixes
1460 ,p_er_age_threshold in varchar2 default hr_api.g_varchar2 -- added for ABP TAR fixes
1461 ,p_ee_age_contribution in varchar2 default hr_api.g_varchar2 -- added for ABP TAR fixes
1462 ,p_er_age_contribution in varchar2 default hr_api.g_varchar2 -- added for ABP TAR fixes
1463 ,p_effective_start_date out nocopy date
1464 ,p_effective_end_date out nocopy date
1465 ) is
1466 --
1467 l_rec pqp_pty_shd.g_rec_type;
1468 l_proc varchar2(72) := g_package||'upd';
1469 --
1470 Begin
1471 hr_utility.set_location('Entering:'||l_proc, 5);
1472 --
1473 -- Call conversion function to turn arguments into the
1474 -- l_rec structure.
1475 --
1476 l_rec :=
1477 pqp_pty_shd.convert_args
1478 (p_pension_type_id
1479 ,null
1480 ,null
1481 ,p_pension_type_name
1482 ,p_pension_category
1483 ,p_pension_provider_type
1484 ,p_salary_calculation_method
1485 ,p_threshold_conversion_rule
1486 ,p_contribution_conversion_rule
1487 ,p_er_annual_limit
1488 ,p_ee_annual_limit
1489 ,p_er_annual_salary_threshold
1490 ,p_ee_annual_salary_threshold
1491 ,p_object_version_number
1492 ,p_business_group_id
1493 ,p_legislation_code
1494 ,p_description
1495 ,p_minimum_age
1496 ,p_ee_contribution_percent
1497 ,p_maximum_age
1498 ,p_er_contribution_percent
1499 ,p_ee_annual_contribution
1500 ,p_er_annual_contribution
1501 ,p_annual_premium_amount
1502 ,p_ee_contribution_bal_type_id
1503 ,p_er_contribution_bal_type_id
1504 ,p_balance_init_element_type_id
1505 ,p_ee_contribution_fixed_rate --added for UK
1506 ,p_er_contribution_fixed_rate --added for UK
1507 ,p_pty_attribute_category
1508 ,p_pty_attribute1
1509 ,p_pty_attribute2
1510 ,p_pty_attribute3
1511 ,p_pty_attribute4
1512 ,p_pty_attribute5
1513 ,p_pty_attribute6
1514 ,p_pty_attribute7
1515 ,p_pty_attribute8
1516 ,p_pty_attribute9
1517 ,p_pty_attribute10
1518 ,p_pty_attribute11
1519 ,p_pty_attribute12
1520 ,p_pty_attribute13
1521 ,p_pty_attribute14
1522 ,p_pty_attribute15
1523 ,p_pty_attribute16
1524 ,p_pty_attribute17
1525 ,p_pty_attribute18
1526 ,p_pty_attribute19
1527 ,p_pty_attribute20
1528 ,p_pty_information_category
1529 ,p_pty_information1
1530 ,p_pty_information2
1531 ,p_pty_information3
1532 ,p_pty_information4
1533 ,p_pty_information5
1534 ,p_pty_information6
1535 ,p_pty_information7
1536 ,p_pty_information8
1537 ,p_pty_information9
1538 ,p_pty_information10
1539 ,p_pty_information11
1540 ,p_pty_information12
1541 ,p_pty_information13
1542 ,p_pty_information14
1543 ,p_pty_information15
1544 ,p_pty_information16
1545 ,p_pty_information17
1546 ,p_pty_information18
1547 ,p_pty_information19
1548 ,p_pty_information20
1549 ,p_special_pension_type_code -- added for NL Phase 2B
1550 ,p_pension_sub_category -- added for NL Phase 2B
1551 ,p_pension_basis_calc_method -- added for NL Phase 2B
1552 ,p_pension_salary_balance -- added for NL Phase 2B
1553 ,p_recurring_bonus_percent -- added for NL Phase 2B
1554 ,p_non_recurring_bonus_percent -- added for NL Phase 2B
1555 ,p_recurring_bonus_balance -- added for NL Phase 2B
1556 ,p_non_recurring_bonus_balance -- added for NL Phase 2B
1557 ,p_std_tax_reduction -- added for NL Phase 2B
1558 ,p_spl_tax_reduction -- added for NL Phase 2B
1559 ,p_sig_sal_spl_tax_reduction -- added for NL Phase 2B
1560 ,p_sig_sal_non_tax_reduction -- added for NL Phase 2B
1561 ,p_sig_sal_std_tax_reduction -- added for NL Phase 2B
1562 ,p_sii_std_tax_reduction -- added for NL Phase 2B
1563 ,p_sii_spl_tax_reduction -- added for NL Phase 2B
1564 ,p_sii_non_tax_reduction -- added for NL Phase 2B
1565 ,p_previous_year_bonus_included -- added for NL Phase 2B
1566 ,p_recurring_bonus_period -- added for NL Phase 2B
1567 ,p_non_recurring_bonus_period -- added for NL Phase 2B
1568 ,p_ee_age_threshold -- added for ABP TAR Fixes
1569 ,p_er_age_threshold -- added for ABP TAR Fixes
1570 ,p_ee_age_contribution -- added for ABP TAR Fixes
1571 ,p_er_age_contribution -- added for ABP TAR Fixes
1572 );
1573 --
1574 -- Having converted the arguments into the
1575 -- plsql record structure we call the corresponding record
1576 -- business process.
1577 --
1578 pqp_pty_upd.upd
1579 (p_effective_date
1580 ,p_datetrack_mode
1581 ,l_rec
1582 );
1583 --
1584 -- Set the out parameters
1585 --
1586 p_object_version_number := l_rec.object_version_number;
1587 p_effective_start_date := l_rec.effective_start_date;
1588 p_effective_end_date := l_rec.effective_end_date;
1589 --
1590 --
1591 hr_utility.set_location(' Leaving:'||l_proc, 10);
1592 End upd;
1593 --
1594
1595 end pqp_pty_upd;
1596