[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_sid_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
120: Exception
121: When hr_api.check_integrity_violated Then
122: -- A check constraint has been violated
123: --
124: pay_sid_shd.constraint_error
125: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
126: When hr_api.unique_integrity_violated Then
127: -- Unique integrity has been violated
128: --
125: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
126: When hr_api.unique_integrity_violated Then
127: -- Unique integrity has been violated
128: --
129: pay_sid_shd.constraint_error
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When Others Then
132: --
133: Raise;
164: --
165: -- {End Of Comments}
166: -- ----------------------------------------------------------------------------
167: Procedure update_dml
168: (p_rec in out nocopy pay_sid_shd.g_rec_type
169: ,p_effective_date in date
170: ,p_datetrack_mode in varchar2
171: ,p_validation_start_date in date
172: ,p_validation_end_date in date
231: --
232: -- {End Of Comments}
233: -- ----------------------------------------------------------------------------
234: Procedure dt_pre_update
235: (p_rec in out nocopy pay_sid_shd.g_rec_type
236: ,p_effective_date in date
237: ,p_datetrack_mode in varchar2
238: ,p_validation_start_date in date
239: ,p_validation_end_date in date
247: If (p_datetrack_mode <> hr_api.g_correction) then
248: --
249: -- Update the current effective end date
250: --
251: pay_sid_shd.upd_effective_end_date
252: (p_effective_date => p_effective_date
253: ,p_base_key_value => p_rec.prsi_details_id
254: ,p_new_effective_end_date => (p_validation_start_date - 1)
255: ,p_validation_start_date => p_validation_start_date
316: --
317: -- {End Of Comments}
318: -- ----------------------------------------------------------------------------
319: Procedure pre_update
320: (p_rec in out nocopy pay_sid_shd.g_rec_type
321: ,p_effective_date in date
322: ,p_datetrack_mode in varchar2
323: ,p_validation_start_date in date
324: ,p_validation_end_date in date
374: --
375: -- {End Of Comments}
376: -- ----------------------------------------------------------------------------
377: Procedure post_update
378: (p_rec in pay_sid_shd.g_rec_type
379: ,p_effective_date in date
380: ,p_datetrack_mode in varchar2
381: ,p_validation_start_date in date
382: ,p_validation_end_date in date
437: => p_rec.program_update_date
438: ,p_community_flag
439: => p_rec.community_flag
440: ,p_effective_start_date_o
441: => pay_sid_shd.g_old_rec.effective_start_date
442: ,p_effective_end_date_o
443: => pay_sid_shd.g_old_rec.effective_end_date
444: ,p_object_version_number_o
445: => pay_sid_shd.g_old_rec.object_version_number
439: => p_rec.community_flag
440: ,p_effective_start_date_o
441: => pay_sid_shd.g_old_rec.effective_start_date
442: ,p_effective_end_date_o
443: => pay_sid_shd.g_old_rec.effective_end_date
444: ,p_object_version_number_o
445: => pay_sid_shd.g_old_rec.object_version_number
446: ,p_assignment_id_o
447: => pay_sid_shd.g_old_rec.assignment_id
441: => pay_sid_shd.g_old_rec.effective_start_date
442: ,p_effective_end_date_o
443: => pay_sid_shd.g_old_rec.effective_end_date
444: ,p_object_version_number_o
445: => pay_sid_shd.g_old_rec.object_version_number
446: ,p_assignment_id_o
447: => pay_sid_shd.g_old_rec.assignment_id
448: ,p_contribution_class_o
449: => pay_sid_shd.g_old_rec.contribution_class
443: => pay_sid_shd.g_old_rec.effective_end_date
444: ,p_object_version_number_o
445: => pay_sid_shd.g_old_rec.object_version_number
446: ,p_assignment_id_o
447: => pay_sid_shd.g_old_rec.assignment_id
448: ,p_contribution_class_o
449: => pay_sid_shd.g_old_rec.contribution_class
450: ,p_overridden_subclass_o
451: => pay_sid_shd.g_old_rec.overridden_subclass
445: => pay_sid_shd.g_old_rec.object_version_number
446: ,p_assignment_id_o
447: => pay_sid_shd.g_old_rec.assignment_id
448: ,p_contribution_class_o
449: => pay_sid_shd.g_old_rec.contribution_class
450: ,p_overridden_subclass_o
451: => pay_sid_shd.g_old_rec.overridden_subclass
452: ,p_soc_ben_flag_o
453: => pay_sid_shd.g_old_rec.soc_ben_flag
447: => pay_sid_shd.g_old_rec.assignment_id
448: ,p_contribution_class_o
449: => pay_sid_shd.g_old_rec.contribution_class
450: ,p_overridden_subclass_o
451: => pay_sid_shd.g_old_rec.overridden_subclass
452: ,p_soc_ben_flag_o
453: => pay_sid_shd.g_old_rec.soc_ben_flag
454: ,p_soc_ben_start_date_o
455: => pay_sid_shd.g_old_rec.soc_ben_start_date
449: => pay_sid_shd.g_old_rec.contribution_class
450: ,p_overridden_subclass_o
451: => pay_sid_shd.g_old_rec.overridden_subclass
452: ,p_soc_ben_flag_o
453: => pay_sid_shd.g_old_rec.soc_ben_flag
454: ,p_soc_ben_start_date_o
455: => pay_sid_shd.g_old_rec.soc_ben_start_date
456: ,p_overridden_ins_weeks_o
457: => pay_sid_shd.g_old_rec.overridden_ins_weeks
451: => pay_sid_shd.g_old_rec.overridden_subclass
452: ,p_soc_ben_flag_o
453: => pay_sid_shd.g_old_rec.soc_ben_flag
454: ,p_soc_ben_start_date_o
455: => pay_sid_shd.g_old_rec.soc_ben_start_date
456: ,p_overridden_ins_weeks_o
457: => pay_sid_shd.g_old_rec.overridden_ins_weeks
458: ,p_non_standard_ins_weeks_o
459: => pay_sid_shd.g_old_rec.non_standard_ins_weeks
453: => pay_sid_shd.g_old_rec.soc_ben_flag
454: ,p_soc_ben_start_date_o
455: => pay_sid_shd.g_old_rec.soc_ben_start_date
456: ,p_overridden_ins_weeks_o
457: => pay_sid_shd.g_old_rec.overridden_ins_weeks
458: ,p_non_standard_ins_weeks_o
459: => pay_sid_shd.g_old_rec.non_standard_ins_weeks
460: ,p_exemption_start_date_o
461: => pay_sid_shd.g_old_rec.exemption_start_date
455: => pay_sid_shd.g_old_rec.soc_ben_start_date
456: ,p_overridden_ins_weeks_o
457: => pay_sid_shd.g_old_rec.overridden_ins_weeks
458: ,p_non_standard_ins_weeks_o
459: => pay_sid_shd.g_old_rec.non_standard_ins_weeks
460: ,p_exemption_start_date_o
461: => pay_sid_shd.g_old_rec.exemption_start_date
462: ,p_exemption_end_date_o
463: => pay_sid_shd.g_old_rec.exemption_end_date
457: => pay_sid_shd.g_old_rec.overridden_ins_weeks
458: ,p_non_standard_ins_weeks_o
459: => pay_sid_shd.g_old_rec.non_standard_ins_weeks
460: ,p_exemption_start_date_o
461: => pay_sid_shd.g_old_rec.exemption_start_date
462: ,p_exemption_end_date_o
463: => pay_sid_shd.g_old_rec.exemption_end_date
464: ,p_cert_issued_by_o
465: => pay_sid_shd.g_old_rec.cert_issued_by
459: => pay_sid_shd.g_old_rec.non_standard_ins_weeks
460: ,p_exemption_start_date_o
461: => pay_sid_shd.g_old_rec.exemption_start_date
462: ,p_exemption_end_date_o
463: => pay_sid_shd.g_old_rec.exemption_end_date
464: ,p_cert_issued_by_o
465: => pay_sid_shd.g_old_rec.cert_issued_by
466: ,p_director_flag_o
467: => pay_sid_shd.g_old_rec.director_flag
461: => pay_sid_shd.g_old_rec.exemption_start_date
462: ,p_exemption_end_date_o
463: => pay_sid_shd.g_old_rec.exemption_end_date
464: ,p_cert_issued_by_o
465: => pay_sid_shd.g_old_rec.cert_issued_by
466: ,p_director_flag_o
467: => pay_sid_shd.g_old_rec.director_flag
468: ,p_request_id_o
469: => pay_sid_shd.g_old_rec.request_id
463: => pay_sid_shd.g_old_rec.exemption_end_date
464: ,p_cert_issued_by_o
465: => pay_sid_shd.g_old_rec.cert_issued_by
466: ,p_director_flag_o
467: => pay_sid_shd.g_old_rec.director_flag
468: ,p_request_id_o
469: => pay_sid_shd.g_old_rec.request_id
470: ,p_program_application_id_o
471: => pay_sid_shd.g_old_rec.program_application_id
465: => pay_sid_shd.g_old_rec.cert_issued_by
466: ,p_director_flag_o
467: => pay_sid_shd.g_old_rec.director_flag
468: ,p_request_id_o
469: => pay_sid_shd.g_old_rec.request_id
470: ,p_program_application_id_o
471: => pay_sid_shd.g_old_rec.program_application_id
472: ,p_program_id_o
473: => pay_sid_shd.g_old_rec.program_id
467: => pay_sid_shd.g_old_rec.director_flag
468: ,p_request_id_o
469: => pay_sid_shd.g_old_rec.request_id
470: ,p_program_application_id_o
471: => pay_sid_shd.g_old_rec.program_application_id
472: ,p_program_id_o
473: => pay_sid_shd.g_old_rec.program_id
474: ,p_program_update_date_o
475: => pay_sid_shd.g_old_rec.program_update_date
469: => pay_sid_shd.g_old_rec.request_id
470: ,p_program_application_id_o
471: => pay_sid_shd.g_old_rec.program_application_id
472: ,p_program_id_o
473: => pay_sid_shd.g_old_rec.program_id
474: ,p_program_update_date_o
475: => pay_sid_shd.g_old_rec.program_update_date
476: ,p_community_flag_o
477: => pay_sid_shd.g_old_rec.community_flag
471: => pay_sid_shd.g_old_rec.program_application_id
472: ,p_program_id_o
473: => pay_sid_shd.g_old_rec.program_id
474: ,p_program_update_date_o
475: => pay_sid_shd.g_old_rec.program_update_date
476: ,p_community_flag_o
477: => pay_sid_shd.g_old_rec.community_flag
478: );
479: --
473: => pay_sid_shd.g_old_rec.program_id
474: ,p_program_update_date_o
475: => pay_sid_shd.g_old_rec.program_update_date
476: ,p_community_flag_o
477: => pay_sid_shd.g_old_rec.community_flag
478: );
479: --
480: exception
481: --
533: --
534: -- {End Of Comments}
535: -- ----------------------------------------------------------------------------
536: Procedure convert_defs
537: (p_rec in out nocopy pay_sid_shd.g_rec_type
538: ) is
539: --
540: Begin
541: --
545: -- is being used then we must set to the 'current' argument value.
546: --
547: If (p_rec.assignment_id = hr_api.g_number) then
548: p_rec.assignment_id :=
549: pay_sid_shd.g_old_rec.assignment_id;
550: End If;
551: If (p_rec.contribution_class = hr_api.g_varchar2) then
552: p_rec.contribution_class :=
553: pay_sid_shd.g_old_rec.contribution_class;
549: pay_sid_shd.g_old_rec.assignment_id;
550: End If;
551: If (p_rec.contribution_class = hr_api.g_varchar2) then
552: p_rec.contribution_class :=
553: pay_sid_shd.g_old_rec.contribution_class;
554: End If;
555: If (p_rec.overridden_subclass = hr_api.g_varchar2) then
556: p_rec.overridden_subclass :=
557: pay_sid_shd.g_old_rec.overridden_subclass;
553: pay_sid_shd.g_old_rec.contribution_class;
554: End If;
555: If (p_rec.overridden_subclass = hr_api.g_varchar2) then
556: p_rec.overridden_subclass :=
557: pay_sid_shd.g_old_rec.overridden_subclass;
558: End If;
559: If (p_rec.soc_ben_flag = hr_api.g_varchar2) then
560: p_rec.soc_ben_flag :=
561: pay_sid_shd.g_old_rec.soc_ben_flag;
557: pay_sid_shd.g_old_rec.overridden_subclass;
558: End If;
559: If (p_rec.soc_ben_flag = hr_api.g_varchar2) then
560: p_rec.soc_ben_flag :=
561: pay_sid_shd.g_old_rec.soc_ben_flag;
562: End If;
563: If (p_rec.soc_ben_start_date = hr_api.g_date) then
564: p_rec.soc_ben_start_date :=
565: pay_sid_shd.g_old_rec.soc_ben_start_date;
561: pay_sid_shd.g_old_rec.soc_ben_flag;
562: End If;
563: If (p_rec.soc_ben_start_date = hr_api.g_date) then
564: p_rec.soc_ben_start_date :=
565: pay_sid_shd.g_old_rec.soc_ben_start_date;
566: End If;
567: If (p_rec.overridden_ins_weeks = hr_api.g_number) then
568: p_rec.overridden_ins_weeks :=
569: pay_sid_shd.g_old_rec.overridden_ins_weeks;
565: pay_sid_shd.g_old_rec.soc_ben_start_date;
566: End If;
567: If (p_rec.overridden_ins_weeks = hr_api.g_number) then
568: p_rec.overridden_ins_weeks :=
569: pay_sid_shd.g_old_rec.overridden_ins_weeks;
570: End If;
571: If (p_rec.non_standard_ins_weeks = hr_api.g_number) then
572: p_rec.non_standard_ins_weeks :=
573: pay_sid_shd.g_old_rec.non_standard_ins_weeks;
569: pay_sid_shd.g_old_rec.overridden_ins_weeks;
570: End If;
571: If (p_rec.non_standard_ins_weeks = hr_api.g_number) then
572: p_rec.non_standard_ins_weeks :=
573: pay_sid_shd.g_old_rec.non_standard_ins_weeks;
574: End If;
575: If (p_rec.exemption_start_date = hr_api.g_date) then
576: p_rec.exemption_start_date :=
577: pay_sid_shd.g_old_rec.exemption_start_date;
573: pay_sid_shd.g_old_rec.non_standard_ins_weeks;
574: End If;
575: If (p_rec.exemption_start_date = hr_api.g_date) then
576: p_rec.exemption_start_date :=
577: pay_sid_shd.g_old_rec.exemption_start_date;
578: End If;
579: If (p_rec.exemption_end_date = hr_api.g_date) then
580: p_rec.exemption_end_date :=
581: pay_sid_shd.g_old_rec.exemption_end_date;
577: pay_sid_shd.g_old_rec.exemption_start_date;
578: End If;
579: If (p_rec.exemption_end_date = hr_api.g_date) then
580: p_rec.exemption_end_date :=
581: pay_sid_shd.g_old_rec.exemption_end_date;
582: End If;
583: If (p_rec.cert_issued_by = hr_api.g_varchar2) then
584: p_rec.cert_issued_by :=
585: pay_sid_shd.g_old_rec.cert_issued_by;
581: pay_sid_shd.g_old_rec.exemption_end_date;
582: End If;
583: If (p_rec.cert_issued_by = hr_api.g_varchar2) then
584: p_rec.cert_issued_by :=
585: pay_sid_shd.g_old_rec.cert_issued_by;
586: End If;
587: If (p_rec.director_flag = hr_api.g_varchar2) then
588: p_rec.director_flag :=
589: pay_sid_shd.g_old_rec.director_flag;
585: pay_sid_shd.g_old_rec.cert_issued_by;
586: End If;
587: If (p_rec.director_flag = hr_api.g_varchar2) then
588: p_rec.director_flag :=
589: pay_sid_shd.g_old_rec.director_flag;
590: End If;
591: If (p_rec.request_id = hr_api.g_number) then
592: p_rec.request_id :=
593: pay_sid_shd.g_old_rec.request_id;
589: pay_sid_shd.g_old_rec.director_flag;
590: End If;
591: If (p_rec.request_id = hr_api.g_number) then
592: p_rec.request_id :=
593: pay_sid_shd.g_old_rec.request_id;
594: End If;
595: If (p_rec.program_application_id = hr_api.g_number) then
596: p_rec.program_application_id :=
597: pay_sid_shd.g_old_rec.program_application_id;
593: pay_sid_shd.g_old_rec.request_id;
594: End If;
595: If (p_rec.program_application_id = hr_api.g_number) then
596: p_rec.program_application_id :=
597: pay_sid_shd.g_old_rec.program_application_id;
598: End If;
599: If (p_rec.program_id = hr_api.g_number) then
600: p_rec.program_id :=
601: pay_sid_shd.g_old_rec.program_id;
597: pay_sid_shd.g_old_rec.program_application_id;
598: End If;
599: If (p_rec.program_id = hr_api.g_number) then
600: p_rec.program_id :=
601: pay_sid_shd.g_old_rec.program_id;
602: End If;
603: If (p_rec.program_update_date = hr_api.g_date) then
604: p_rec.program_update_date :=
605: pay_sid_shd.g_old_rec.program_update_date;
601: pay_sid_shd.g_old_rec.program_id;
602: End If;
603: If (p_rec.program_update_date = hr_api.g_date) then
604: p_rec.program_update_date :=
605: pay_sid_shd.g_old_rec.program_update_date;
606: End If;
607: If (p_rec.community_flag = hr_api.g_varchar2) then
608: p_rec.community_flag :=
609: pay_sid_shd.g_old_rec.community_flag;
605: pay_sid_shd.g_old_rec.program_update_date;
606: End If;
607: If (p_rec.community_flag = hr_api.g_varchar2) then
608: p_rec.community_flag :=
609: pay_sid_shd.g_old_rec.community_flag;
610: End If;
611: --
612: End convert_defs;
613: --
616: -- ----------------------------------------------------------------------------
617: Procedure upd
618: (p_effective_date in date
619: ,p_datetrack_mode in varchar2
620: ,p_rec in out nocopy pay_sid_shd.g_rec_type
621: ) is
622: --
623: l_proc varchar2(72) := g_package||'upd';
624: l_validation_start_date date;
632: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
633: --
634: -- We must lock the row which we need to update.
635: --
636: pay_sid_shd.lck
637: (p_effective_date => p_effective_date
638: ,p_datetrack_mode => p_datetrack_mode
639: ,p_prsi_details_id => p_rec.prsi_details_id
640: ,p_object_version_number => p_rec.object_version_number
716: ,p_effective_start_date out nocopy date
717: ,p_effective_end_date out nocopy date
718: ) is
719: --
720: l_rec pay_sid_shd.g_rec_type;
721: l_proc varchar2(72) := g_package||'upd';
722: --
723: Begin
724: hr_utility.set_location('Entering:'||l_proc, 5);
726: -- Call conversion function to turn arguments into the
727: -- l_rec structure.
728: --
729: l_rec :=
730: pay_sid_shd.convert_args
731: (p_prsi_details_id
732: ,null
733: ,null
734: ,p_object_version_number