[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_isb_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
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: --
121: pay_isb_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
125: --
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
125: --
126: pay_isb_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When Others Then
129: --
130: Raise;
161: --
162: -- {End Of Comments}
163: -- ----------------------------------------------------------------------------
164: Procedure update_dml
165: (p_rec in out nocopy pay_isb_shd.g_rec_type
166: ,p_effective_date in date
167: ,p_datetrack_mode in varchar2
168: ,p_validation_start_date in date
169: ,p_validation_end_date in date
228: --
229: -- {End Of Comments}
230: -- ----------------------------------------------------------------------------
231: Procedure dt_pre_update
232: (p_rec in out nocopy pay_isb_shd.g_rec_type
233: ,p_effective_date in date
234: ,p_datetrack_mode in varchar2
235: ,p_validation_start_date in date
236: ,p_validation_end_date in date
244: If (p_datetrack_mode <> hr_api.g_correction) then
245: --
246: -- Update the current effective end date
247: --
248: pay_isb_shd.upd_effective_end_date
249: (p_effective_date => p_effective_date
250: ,p_base_key_value => p_rec.social_benefit_id
251: ,p_new_effective_end_date => (p_validation_start_date - 1)
252: ,p_validation_start_date => p_validation_start_date
313: --
314: -- {End Of Comments}
315: -- ----------------------------------------------------------------------------
316: Procedure pre_update
317: (p_rec in out nocopy pay_isb_shd.g_rec_type
318: ,p_effective_date in date
319: ,p_datetrack_mode in varchar2
320: ,p_validation_start_date in date
321: ,p_validation_end_date in date
371: --
372: -- {End Of Comments}
373: -- ----------------------------------------------------------------------------
374: Procedure post_update
375: (p_rec in pay_isb_shd.g_rec_type
376: ,p_effective_date in date
377: ,p_datetrack_mode in varchar2
378: ,p_validation_start_date in date
379: ,p_validation_end_date in date
428: => p_rec.program_id
429: ,p_program_update_date
430: => p_rec.program_update_date
431: ,p_effective_start_date_o
432: => pay_isb_shd.g_old_rec.effective_start_date
433: ,p_effective_end_date_o
434: => pay_isb_shd.g_old_rec.effective_end_date
435: ,p_object_version_number_o
436: => pay_isb_shd.g_old_rec.object_version_number
430: => p_rec.program_update_date
431: ,p_effective_start_date_o
432: => pay_isb_shd.g_old_rec.effective_start_date
433: ,p_effective_end_date_o
434: => pay_isb_shd.g_old_rec.effective_end_date
435: ,p_object_version_number_o
436: => pay_isb_shd.g_old_rec.object_version_number
437: ,p_assignment_id_o
438: => pay_isb_shd.g_old_rec.assignment_id
432: => pay_isb_shd.g_old_rec.effective_start_date
433: ,p_effective_end_date_o
434: => pay_isb_shd.g_old_rec.effective_end_date
435: ,p_object_version_number_o
436: => pay_isb_shd.g_old_rec.object_version_number
437: ,p_assignment_id_o
438: => pay_isb_shd.g_old_rec.assignment_id
439: ,p_absence_start_date_o
440: => pay_isb_shd.g_old_rec.absence_start_date
434: => pay_isb_shd.g_old_rec.effective_end_date
435: ,p_object_version_number_o
436: => pay_isb_shd.g_old_rec.object_version_number
437: ,p_assignment_id_o
438: => pay_isb_shd.g_old_rec.assignment_id
439: ,p_absence_start_date_o
440: => pay_isb_shd.g_old_rec.absence_start_date
441: ,p_absence_end_date_o
442: => pay_isb_shd.g_old_rec.absence_end_date
436: => pay_isb_shd.g_old_rec.object_version_number
437: ,p_assignment_id_o
438: => pay_isb_shd.g_old_rec.assignment_id
439: ,p_absence_start_date_o
440: => pay_isb_shd.g_old_rec.absence_start_date
441: ,p_absence_end_date_o
442: => pay_isb_shd.g_old_rec.absence_end_date
443: ,p_benefit_amount_o
444: => pay_isb_shd.g_old_rec.benefit_amount
438: => pay_isb_shd.g_old_rec.assignment_id
439: ,p_absence_start_date_o
440: => pay_isb_shd.g_old_rec.absence_start_date
441: ,p_absence_end_date_o
442: => pay_isb_shd.g_old_rec.absence_end_date
443: ,p_benefit_amount_o
444: => pay_isb_shd.g_old_rec.benefit_amount
445: ,p_benefit_type_o
446: => pay_isb_shd.g_old_rec.benefit_type
440: => pay_isb_shd.g_old_rec.absence_start_date
441: ,p_absence_end_date_o
442: => pay_isb_shd.g_old_rec.absence_end_date
443: ,p_benefit_amount_o
444: => pay_isb_shd.g_old_rec.benefit_amount
445: ,p_benefit_type_o
446: => pay_isb_shd.g_old_rec.benefit_type
447: ,p_calculation_option_o
448: => pay_isb_shd.g_old_rec.calculation_option
442: => pay_isb_shd.g_old_rec.absence_end_date
443: ,p_benefit_amount_o
444: => pay_isb_shd.g_old_rec.benefit_amount
445: ,p_benefit_type_o
446: => pay_isb_shd.g_old_rec.benefit_type
447: ,p_calculation_option_o
448: => pay_isb_shd.g_old_rec.calculation_option
449: ,p_reduced_tax_credit_o
450: => pay_isb_shd.g_old_rec.reduced_tax_credit
444: => pay_isb_shd.g_old_rec.benefit_amount
445: ,p_benefit_type_o
446: => pay_isb_shd.g_old_rec.benefit_type
447: ,p_calculation_option_o
448: => pay_isb_shd.g_old_rec.calculation_option
449: ,p_reduced_tax_credit_o
450: => pay_isb_shd.g_old_rec.reduced_tax_credit
451: ,p_reduced_standard_cutoff_o
452: => pay_isb_shd.g_old_rec.reduced_standard_cutoff
446: => pay_isb_shd.g_old_rec.benefit_type
447: ,p_calculation_option_o
448: => pay_isb_shd.g_old_rec.calculation_option
449: ,p_reduced_tax_credit_o
450: => pay_isb_shd.g_old_rec.reduced_tax_credit
451: ,p_reduced_standard_cutoff_o
452: => pay_isb_shd.g_old_rec.reduced_standard_cutoff
453: ,p_incident_id_o
454: => pay_isb_shd.g_old_rec.incident_id
448: => pay_isb_shd.g_old_rec.calculation_option
449: ,p_reduced_tax_credit_o
450: => pay_isb_shd.g_old_rec.reduced_tax_credit
451: ,p_reduced_standard_cutoff_o
452: => pay_isb_shd.g_old_rec.reduced_standard_cutoff
453: ,p_incident_id_o
454: => pay_isb_shd.g_old_rec.incident_id
455: ,p_request_id_o
456: => pay_isb_shd.g_old_rec.request_id
450: => pay_isb_shd.g_old_rec.reduced_tax_credit
451: ,p_reduced_standard_cutoff_o
452: => pay_isb_shd.g_old_rec.reduced_standard_cutoff
453: ,p_incident_id_o
454: => pay_isb_shd.g_old_rec.incident_id
455: ,p_request_id_o
456: => pay_isb_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_isb_shd.g_old_rec.program_application_id
452: => pay_isb_shd.g_old_rec.reduced_standard_cutoff
453: ,p_incident_id_o
454: => pay_isb_shd.g_old_rec.incident_id
455: ,p_request_id_o
456: => pay_isb_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_isb_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_isb_shd.g_old_rec.program_id
454: => pay_isb_shd.g_old_rec.incident_id
455: ,p_request_id_o
456: => pay_isb_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_isb_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_isb_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_isb_shd.g_old_rec.program_update_date
456: => pay_isb_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_isb_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_isb_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_isb_shd.g_old_rec.program_update_date
463: );
464: --
458: => pay_isb_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_isb_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_isb_shd.g_old_rec.program_update_date
463: );
464: --
465: exception
466: --
518: --
519: -- {End Of Comments}
520: -- ----------------------------------------------------------------------------
521: Procedure convert_defs
522: (p_rec in out nocopy pay_isb_shd.g_rec_type
523: ) is
524: --
525: Begin
526: --
530: -- is being used then we must set to the 'current' argument value.
531: --
532: If (p_rec.assignment_id = hr_api.g_number) then
533: p_rec.assignment_id :=
534: pay_isb_shd.g_old_rec.assignment_id;
535: End If;
536: If (p_rec.absence_start_date = hr_api.g_date) then
537: p_rec.absence_start_date :=
538: pay_isb_shd.g_old_rec.absence_start_date;
534: pay_isb_shd.g_old_rec.assignment_id;
535: End If;
536: If (p_rec.absence_start_date = hr_api.g_date) then
537: p_rec.absence_start_date :=
538: pay_isb_shd.g_old_rec.absence_start_date;
539: End If;
540: If (p_rec.absence_end_date = hr_api.g_date) then
541: p_rec.absence_end_date :=
542: pay_isb_shd.g_old_rec.absence_end_date;
538: pay_isb_shd.g_old_rec.absence_start_date;
539: End If;
540: If (p_rec.absence_end_date = hr_api.g_date) then
541: p_rec.absence_end_date :=
542: pay_isb_shd.g_old_rec.absence_end_date;
543: End If;
544: If (p_rec.benefit_amount = hr_api.g_number) then
545: p_rec.benefit_amount :=
546: pay_isb_shd.g_old_rec.benefit_amount;
542: pay_isb_shd.g_old_rec.absence_end_date;
543: End If;
544: If (p_rec.benefit_amount = hr_api.g_number) then
545: p_rec.benefit_amount :=
546: pay_isb_shd.g_old_rec.benefit_amount;
547: End If;
548: If (p_rec.benefit_type = hr_api.g_varchar2) then
549: p_rec.benefit_type :=
550: pay_isb_shd.g_old_rec.benefit_type;
546: pay_isb_shd.g_old_rec.benefit_amount;
547: End If;
548: If (p_rec.benefit_type = hr_api.g_varchar2) then
549: p_rec.benefit_type :=
550: pay_isb_shd.g_old_rec.benefit_type;
551: End If;
552: If (p_rec.calculation_option = hr_api.g_varchar2) then
553: p_rec.calculation_option :=
554: pay_isb_shd.g_old_rec.calculation_option;
550: pay_isb_shd.g_old_rec.benefit_type;
551: End If;
552: If (p_rec.calculation_option = hr_api.g_varchar2) then
553: p_rec.calculation_option :=
554: pay_isb_shd.g_old_rec.calculation_option;
555: End If;
556: If (p_rec.reduced_tax_credit = hr_api.g_number) then
557: p_rec.reduced_tax_credit :=
558: pay_isb_shd.g_old_rec.reduced_tax_credit;
554: pay_isb_shd.g_old_rec.calculation_option;
555: End If;
556: If (p_rec.reduced_tax_credit = hr_api.g_number) then
557: p_rec.reduced_tax_credit :=
558: pay_isb_shd.g_old_rec.reduced_tax_credit;
559: End If;
560: If (p_rec.reduced_standard_cutoff = hr_api.g_number) then
561: p_rec.reduced_standard_cutoff :=
562: pay_isb_shd.g_old_rec.reduced_standard_cutoff;
558: pay_isb_shd.g_old_rec.reduced_tax_credit;
559: End If;
560: If (p_rec.reduced_standard_cutoff = hr_api.g_number) then
561: p_rec.reduced_standard_cutoff :=
562: pay_isb_shd.g_old_rec.reduced_standard_cutoff;
563: End If;
564: If (p_rec.incident_id = hr_api.g_number) then
565: p_rec.incident_id :=
566: pay_isb_shd.g_old_rec.incident_id;
562: pay_isb_shd.g_old_rec.reduced_standard_cutoff;
563: End If;
564: If (p_rec.incident_id = hr_api.g_number) then
565: p_rec.incident_id :=
566: pay_isb_shd.g_old_rec.incident_id;
567: End If;
568: If (p_rec.request_id = hr_api.g_number) then
569: p_rec.request_id :=
570: pay_isb_shd.g_old_rec.request_id;
566: pay_isb_shd.g_old_rec.incident_id;
567: End If;
568: If (p_rec.request_id = hr_api.g_number) then
569: p_rec.request_id :=
570: pay_isb_shd.g_old_rec.request_id;
571: End If;
572: If (p_rec.program_application_id = hr_api.g_number) then
573: p_rec.program_application_id :=
574: pay_isb_shd.g_old_rec.program_application_id;
570: pay_isb_shd.g_old_rec.request_id;
571: End If;
572: If (p_rec.program_application_id = hr_api.g_number) then
573: p_rec.program_application_id :=
574: pay_isb_shd.g_old_rec.program_application_id;
575: End If;
576: If (p_rec.program_id = hr_api.g_varchar2) then
577: p_rec.program_id :=
578: pay_isb_shd.g_old_rec.program_id;
574: pay_isb_shd.g_old_rec.program_application_id;
575: End If;
576: If (p_rec.program_id = hr_api.g_varchar2) then
577: p_rec.program_id :=
578: pay_isb_shd.g_old_rec.program_id;
579: End If;
580: If (p_rec.program_update_date = hr_api.g_date) then
581: p_rec.program_update_date :=
582: pay_isb_shd.g_old_rec.program_update_date;
578: pay_isb_shd.g_old_rec.program_id;
579: End If;
580: If (p_rec.program_update_date = hr_api.g_date) then
581: p_rec.program_update_date :=
582: pay_isb_shd.g_old_rec.program_update_date;
583: End If;
584: --
585: End convert_defs;
586: --
589: -- ----------------------------------------------------------------------------
590: Procedure upd
591: (p_effective_date in date
592: ,p_datetrack_mode in varchar2
593: ,p_rec in out nocopy pay_isb_shd.g_rec_type
594: ) is
595: --
596: l_proc varchar2(72) := g_package||'upd';
597: l_validation_start_date date;
605: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
606: --
607: -- We must lock the row which we need to update.
608: --
609: pay_isb_shd.lck
610: (p_effective_date => p_effective_date
611: ,p_datetrack_mode => p_datetrack_mode
612: ,p_social_benefit_id => p_rec.social_benefit_id
613: ,p_object_version_number => p_rec.object_version_number
686: ,p_effective_start_date out nocopy date
687: ,p_effective_end_date out nocopy date
688: ) is
689: --
690: l_rec pay_isb_shd.g_rec_type;
691: l_proc varchar2(72) := g_package||'upd';
692: --
693: Begin
694: hr_utility.set_location('Entering:'||l_proc, 5);
696: -- Call conversion function to turn arguments into the
697: -- l_rec structure.
698: --
699: l_rec :=
700: pay_isb_shd.convert_args
701: (p_social_benefit_id
702: ,null
703: ,null
704: ,p_object_version_number