54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_prt_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
138: Exception
139: When hr_api.check_integrity_violated Then
140: -- A check constraint has been violated
141: --
142: pay_prt_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
146: --
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
146: --
147: pay_prt_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When Others Then
150: --
151: Raise;
182: --
183: -- {End Of Comments}
184: -- ----------------------------------------------------------------------------
185: Procedure update_dml
186: (p_rec in out nocopy pay_prt_shd.g_rec_type
187: ,p_effective_date in date
188: ,p_datetrack_mode in varchar2
189: ,p_validation_start_date in date
190: ,p_validation_end_date in date
249: --
250: -- {End Of Comments}
251: -- ----------------------------------------------------------------------------
252: Procedure dt_pre_update
253: (p_rec in out nocopy pay_prt_shd.g_rec_type
254: ,p_effective_date in date
255: ,p_datetrack_mode in varchar2
256: ,p_validation_start_date in date
257: ,p_validation_end_date in date
265: If (p_datetrack_mode <> hr_api.g_correction) then
266: --
267: -- Update the current effective end date
268: --
269: pay_prt_shd.upd_effective_end_date
270: (p_effective_date => p_effective_date
271: ,p_base_key_value => p_rec.run_type_id
272: ,p_new_effective_end_date => (p_validation_start_date - 1)
273: ,p_validation_start_date => p_validation_start_date
335: --
336: -- {End Of Comments}
337: -- ----------------------------------------------------------------------------
338: Procedure pre_update
339: (p_rec in out nocopy pay_prt_shd.g_rec_type
340: ,p_effective_date in date
341: ,p_datetrack_mode in varchar2
342: ,p_validation_start_date in date
343: ,p_validation_end_date in date
393: --
394: -- {End Of Comments}
395: -- ----------------------------------------------------------------------------
396: Procedure post_update
397: (p_rec in pay_prt_shd.g_rec_type
398: ,p_effective_date in date
399: ,p_datetrack_mode in varchar2
400: ,p_validation_start_date in date
401: ,p_validation_end_date in date
492: => p_rec.run_information30
493: ,p_object_version_number
494: => p_rec.object_version_number
495: ,p_run_type_name_o
496: => pay_prt_shd.g_old_rec.run_type_name
497: ,p_run_method_o
498: => pay_prt_shd.g_old_rec.run_method
499: ,p_effective_start_date_o
500: => pay_prt_shd.g_old_rec.effective_start_date
494: => p_rec.object_version_number
495: ,p_run_type_name_o
496: => pay_prt_shd.g_old_rec.run_type_name
497: ,p_run_method_o
498: => pay_prt_shd.g_old_rec.run_method
499: ,p_effective_start_date_o
500: => pay_prt_shd.g_old_rec.effective_start_date
501: ,p_effective_end_date_o
502: => pay_prt_shd.g_old_rec.effective_end_date
496: => pay_prt_shd.g_old_rec.run_type_name
497: ,p_run_method_o
498: => pay_prt_shd.g_old_rec.run_method
499: ,p_effective_start_date_o
500: => pay_prt_shd.g_old_rec.effective_start_date
501: ,p_effective_end_date_o
502: => pay_prt_shd.g_old_rec.effective_end_date
503: ,p_business_group_id_o
504: => pay_prt_shd.g_old_rec.business_group_id
498: => pay_prt_shd.g_old_rec.run_method
499: ,p_effective_start_date_o
500: => pay_prt_shd.g_old_rec.effective_start_date
501: ,p_effective_end_date_o
502: => pay_prt_shd.g_old_rec.effective_end_date
503: ,p_business_group_id_o
504: => pay_prt_shd.g_old_rec.business_group_id
505: ,p_legislation_code_o
506: => pay_prt_shd.g_old_rec.legislation_code
500: => pay_prt_shd.g_old_rec.effective_start_date
501: ,p_effective_end_date_o
502: => pay_prt_shd.g_old_rec.effective_end_date
503: ,p_business_group_id_o
504: => pay_prt_shd.g_old_rec.business_group_id
505: ,p_legislation_code_o
506: => pay_prt_shd.g_old_rec.legislation_code
507: ,p_shortname_o
508: => pay_prt_shd.g_old_rec.shortname
502: => pay_prt_shd.g_old_rec.effective_end_date
503: ,p_business_group_id_o
504: => pay_prt_shd.g_old_rec.business_group_id
505: ,p_legislation_code_o
506: => pay_prt_shd.g_old_rec.legislation_code
507: ,p_shortname_o
508: => pay_prt_shd.g_old_rec.shortname
509: ,p_srs_flag_o
510: => pay_prt_shd.g_old_rec.srs_flag
504: => pay_prt_shd.g_old_rec.business_group_id
505: ,p_legislation_code_o
506: => pay_prt_shd.g_old_rec.legislation_code
507: ,p_shortname_o
508: => pay_prt_shd.g_old_rec.shortname
509: ,p_srs_flag_o
510: => pay_prt_shd.g_old_rec.srs_flag
511: ,p_run_information_category_o
512: => pay_prt_shd.g_old_rec.run_information_category
506: => pay_prt_shd.g_old_rec.legislation_code
507: ,p_shortname_o
508: => pay_prt_shd.g_old_rec.shortname
509: ,p_srs_flag_o
510: => pay_prt_shd.g_old_rec.srs_flag
511: ,p_run_information_category_o
512: => pay_prt_shd.g_old_rec.run_information_category
513: ,p_run_information1_o
514: => pay_prt_shd.g_old_rec.run_information1
508: => pay_prt_shd.g_old_rec.shortname
509: ,p_srs_flag_o
510: => pay_prt_shd.g_old_rec.srs_flag
511: ,p_run_information_category_o
512: => pay_prt_shd.g_old_rec.run_information_category
513: ,p_run_information1_o
514: => pay_prt_shd.g_old_rec.run_information1
515: ,p_run_information2_o
516: => pay_prt_shd.g_old_rec.run_information2
510: => pay_prt_shd.g_old_rec.srs_flag
511: ,p_run_information_category_o
512: => pay_prt_shd.g_old_rec.run_information_category
513: ,p_run_information1_o
514: => pay_prt_shd.g_old_rec.run_information1
515: ,p_run_information2_o
516: => pay_prt_shd.g_old_rec.run_information2
517: ,p_run_information3_o
518: => pay_prt_shd.g_old_rec.run_information3
512: => pay_prt_shd.g_old_rec.run_information_category
513: ,p_run_information1_o
514: => pay_prt_shd.g_old_rec.run_information1
515: ,p_run_information2_o
516: => pay_prt_shd.g_old_rec.run_information2
517: ,p_run_information3_o
518: => pay_prt_shd.g_old_rec.run_information3
519: ,p_run_information4_o
520: => pay_prt_shd.g_old_rec.run_information4
514: => pay_prt_shd.g_old_rec.run_information1
515: ,p_run_information2_o
516: => pay_prt_shd.g_old_rec.run_information2
517: ,p_run_information3_o
518: => pay_prt_shd.g_old_rec.run_information3
519: ,p_run_information4_o
520: => pay_prt_shd.g_old_rec.run_information4
521: ,p_run_information5_o
522: => pay_prt_shd.g_old_rec.run_information5
516: => pay_prt_shd.g_old_rec.run_information2
517: ,p_run_information3_o
518: => pay_prt_shd.g_old_rec.run_information3
519: ,p_run_information4_o
520: => pay_prt_shd.g_old_rec.run_information4
521: ,p_run_information5_o
522: => pay_prt_shd.g_old_rec.run_information5
523: ,p_run_information6_o
524: => pay_prt_shd.g_old_rec.run_information6
518: => pay_prt_shd.g_old_rec.run_information3
519: ,p_run_information4_o
520: => pay_prt_shd.g_old_rec.run_information4
521: ,p_run_information5_o
522: => pay_prt_shd.g_old_rec.run_information5
523: ,p_run_information6_o
524: => pay_prt_shd.g_old_rec.run_information6
525: ,p_run_information7_o
526: => pay_prt_shd.g_old_rec.run_information7
520: => pay_prt_shd.g_old_rec.run_information4
521: ,p_run_information5_o
522: => pay_prt_shd.g_old_rec.run_information5
523: ,p_run_information6_o
524: => pay_prt_shd.g_old_rec.run_information6
525: ,p_run_information7_o
526: => pay_prt_shd.g_old_rec.run_information7
527: ,p_run_information8_o
528: => pay_prt_shd.g_old_rec.run_information8
522: => pay_prt_shd.g_old_rec.run_information5
523: ,p_run_information6_o
524: => pay_prt_shd.g_old_rec.run_information6
525: ,p_run_information7_o
526: => pay_prt_shd.g_old_rec.run_information7
527: ,p_run_information8_o
528: => pay_prt_shd.g_old_rec.run_information8
529: ,p_run_information9_o
530: => pay_prt_shd.g_old_rec.run_information9
524: => pay_prt_shd.g_old_rec.run_information6
525: ,p_run_information7_o
526: => pay_prt_shd.g_old_rec.run_information7
527: ,p_run_information8_o
528: => pay_prt_shd.g_old_rec.run_information8
529: ,p_run_information9_o
530: => pay_prt_shd.g_old_rec.run_information9
531: ,p_run_information10_o
532: => pay_prt_shd.g_old_rec.run_information10
526: => pay_prt_shd.g_old_rec.run_information7
527: ,p_run_information8_o
528: => pay_prt_shd.g_old_rec.run_information8
529: ,p_run_information9_o
530: => pay_prt_shd.g_old_rec.run_information9
531: ,p_run_information10_o
532: => pay_prt_shd.g_old_rec.run_information10
533: ,p_run_information11_o
534: => pay_prt_shd.g_old_rec.run_information11
528: => pay_prt_shd.g_old_rec.run_information8
529: ,p_run_information9_o
530: => pay_prt_shd.g_old_rec.run_information9
531: ,p_run_information10_o
532: => pay_prt_shd.g_old_rec.run_information10
533: ,p_run_information11_o
534: => pay_prt_shd.g_old_rec.run_information11
535: ,p_run_information12_o
536: => pay_prt_shd.g_old_rec.run_information12
530: => pay_prt_shd.g_old_rec.run_information9
531: ,p_run_information10_o
532: => pay_prt_shd.g_old_rec.run_information10
533: ,p_run_information11_o
534: => pay_prt_shd.g_old_rec.run_information11
535: ,p_run_information12_o
536: => pay_prt_shd.g_old_rec.run_information12
537: ,p_run_information13_o
538: => pay_prt_shd.g_old_rec.run_information13
532: => pay_prt_shd.g_old_rec.run_information10
533: ,p_run_information11_o
534: => pay_prt_shd.g_old_rec.run_information11
535: ,p_run_information12_o
536: => pay_prt_shd.g_old_rec.run_information12
537: ,p_run_information13_o
538: => pay_prt_shd.g_old_rec.run_information13
539: ,p_run_information14_o
540: => pay_prt_shd.g_old_rec.run_information14
534: => pay_prt_shd.g_old_rec.run_information11
535: ,p_run_information12_o
536: => pay_prt_shd.g_old_rec.run_information12
537: ,p_run_information13_o
538: => pay_prt_shd.g_old_rec.run_information13
539: ,p_run_information14_o
540: => pay_prt_shd.g_old_rec.run_information14
541: ,p_run_information15_o
542: => pay_prt_shd.g_old_rec.run_information15
536: => pay_prt_shd.g_old_rec.run_information12
537: ,p_run_information13_o
538: => pay_prt_shd.g_old_rec.run_information13
539: ,p_run_information14_o
540: => pay_prt_shd.g_old_rec.run_information14
541: ,p_run_information15_o
542: => pay_prt_shd.g_old_rec.run_information15
543: ,p_run_information16_o
544: => pay_prt_shd.g_old_rec.run_information16
538: => pay_prt_shd.g_old_rec.run_information13
539: ,p_run_information14_o
540: => pay_prt_shd.g_old_rec.run_information14
541: ,p_run_information15_o
542: => pay_prt_shd.g_old_rec.run_information15
543: ,p_run_information16_o
544: => pay_prt_shd.g_old_rec.run_information16
545: ,p_run_information17_o
546: => pay_prt_shd.g_old_rec.run_information17
540: => pay_prt_shd.g_old_rec.run_information14
541: ,p_run_information15_o
542: => pay_prt_shd.g_old_rec.run_information15
543: ,p_run_information16_o
544: => pay_prt_shd.g_old_rec.run_information16
545: ,p_run_information17_o
546: => pay_prt_shd.g_old_rec.run_information17
547: ,p_run_information18_o
548: => pay_prt_shd.g_old_rec.run_information18
542: => pay_prt_shd.g_old_rec.run_information15
543: ,p_run_information16_o
544: => pay_prt_shd.g_old_rec.run_information16
545: ,p_run_information17_o
546: => pay_prt_shd.g_old_rec.run_information17
547: ,p_run_information18_o
548: => pay_prt_shd.g_old_rec.run_information18
549: ,p_run_information19_o
550: => pay_prt_shd.g_old_rec.run_information19
544: => pay_prt_shd.g_old_rec.run_information16
545: ,p_run_information17_o
546: => pay_prt_shd.g_old_rec.run_information17
547: ,p_run_information18_o
548: => pay_prt_shd.g_old_rec.run_information18
549: ,p_run_information19_o
550: => pay_prt_shd.g_old_rec.run_information19
551: ,p_run_information20_o
552: => pay_prt_shd.g_old_rec.run_information20
546: => pay_prt_shd.g_old_rec.run_information17
547: ,p_run_information18_o
548: => pay_prt_shd.g_old_rec.run_information18
549: ,p_run_information19_o
550: => pay_prt_shd.g_old_rec.run_information19
551: ,p_run_information20_o
552: => pay_prt_shd.g_old_rec.run_information20
553: ,p_run_information21_o
554: => pay_prt_shd.g_old_rec.run_information21
548: => pay_prt_shd.g_old_rec.run_information18
549: ,p_run_information19_o
550: => pay_prt_shd.g_old_rec.run_information19
551: ,p_run_information20_o
552: => pay_prt_shd.g_old_rec.run_information20
553: ,p_run_information21_o
554: => pay_prt_shd.g_old_rec.run_information21
555: ,p_run_information22_o
556: => pay_prt_shd.g_old_rec.run_information22
550: => pay_prt_shd.g_old_rec.run_information19
551: ,p_run_information20_o
552: => pay_prt_shd.g_old_rec.run_information20
553: ,p_run_information21_o
554: => pay_prt_shd.g_old_rec.run_information21
555: ,p_run_information22_o
556: => pay_prt_shd.g_old_rec.run_information22
557: ,p_run_information23_o
558: => pay_prt_shd.g_old_rec.run_information23
552: => pay_prt_shd.g_old_rec.run_information20
553: ,p_run_information21_o
554: => pay_prt_shd.g_old_rec.run_information21
555: ,p_run_information22_o
556: => pay_prt_shd.g_old_rec.run_information22
557: ,p_run_information23_o
558: => pay_prt_shd.g_old_rec.run_information23
559: ,p_run_information24_o
560: => pay_prt_shd.g_old_rec.run_information24
554: => pay_prt_shd.g_old_rec.run_information21
555: ,p_run_information22_o
556: => pay_prt_shd.g_old_rec.run_information22
557: ,p_run_information23_o
558: => pay_prt_shd.g_old_rec.run_information23
559: ,p_run_information24_o
560: => pay_prt_shd.g_old_rec.run_information24
561: ,p_run_information25_o
562: => pay_prt_shd.g_old_rec.run_information25
556: => pay_prt_shd.g_old_rec.run_information22
557: ,p_run_information23_o
558: => pay_prt_shd.g_old_rec.run_information23
559: ,p_run_information24_o
560: => pay_prt_shd.g_old_rec.run_information24
561: ,p_run_information25_o
562: => pay_prt_shd.g_old_rec.run_information25
563: ,p_run_information26_o
564: => pay_prt_shd.g_old_rec.run_information26
558: => pay_prt_shd.g_old_rec.run_information23
559: ,p_run_information24_o
560: => pay_prt_shd.g_old_rec.run_information24
561: ,p_run_information25_o
562: => pay_prt_shd.g_old_rec.run_information25
563: ,p_run_information26_o
564: => pay_prt_shd.g_old_rec.run_information26
565: ,p_run_information27_o
566: => pay_prt_shd.g_old_rec.run_information27
560: => pay_prt_shd.g_old_rec.run_information24
561: ,p_run_information25_o
562: => pay_prt_shd.g_old_rec.run_information25
563: ,p_run_information26_o
564: => pay_prt_shd.g_old_rec.run_information26
565: ,p_run_information27_o
566: => pay_prt_shd.g_old_rec.run_information27
567: ,p_run_information28_o
568: => pay_prt_shd.g_old_rec.run_information28
562: => pay_prt_shd.g_old_rec.run_information25
563: ,p_run_information26_o
564: => pay_prt_shd.g_old_rec.run_information26
565: ,p_run_information27_o
566: => pay_prt_shd.g_old_rec.run_information27
567: ,p_run_information28_o
568: => pay_prt_shd.g_old_rec.run_information28
569: ,p_run_information29_o
570: => pay_prt_shd.g_old_rec.run_information29
564: => pay_prt_shd.g_old_rec.run_information26
565: ,p_run_information27_o
566: => pay_prt_shd.g_old_rec.run_information27
567: ,p_run_information28_o
568: => pay_prt_shd.g_old_rec.run_information28
569: ,p_run_information29_o
570: => pay_prt_shd.g_old_rec.run_information29
571: ,p_run_information30_o
572: => pay_prt_shd.g_old_rec.run_information30
566: => pay_prt_shd.g_old_rec.run_information27
567: ,p_run_information28_o
568: => pay_prt_shd.g_old_rec.run_information28
569: ,p_run_information29_o
570: => pay_prt_shd.g_old_rec.run_information29
571: ,p_run_information30_o
572: => pay_prt_shd.g_old_rec.run_information30
573: ,p_object_version_number_o
574: => pay_prt_shd.g_old_rec.object_version_number
568: => pay_prt_shd.g_old_rec.run_information28
569: ,p_run_information29_o
570: => pay_prt_shd.g_old_rec.run_information29
571: ,p_run_information30_o
572: => pay_prt_shd.g_old_rec.run_information30
573: ,p_object_version_number_o
574: => pay_prt_shd.g_old_rec.object_version_number
575: );
576: --
570: => pay_prt_shd.g_old_rec.run_information29
571: ,p_run_information30_o
572: => pay_prt_shd.g_old_rec.run_information30
573: ,p_object_version_number_o
574: => pay_prt_shd.g_old_rec.object_version_number
575: );
576: --
577: exception
578: --
630: --
631: -- {End Of Comments}
632: -- ----------------------------------------------------------------------------
633: Procedure convert_defs
634: (p_rec in out nocopy pay_prt_shd.g_rec_type
635: ) is
636: --
637: Begin
638: --
642: -- is being used then we must set to the 'current' argument value.
643: --
644: If (p_rec.run_type_name = hr_api.g_varchar2) then
645: p_rec.run_type_name :=
646: pay_prt_shd.g_old_rec.run_type_name;
647: End If;
648: If (p_rec.run_method = hr_api.g_varchar2) then
649: p_rec.run_method :=
650: pay_prt_shd.g_old_rec.run_method;
646: pay_prt_shd.g_old_rec.run_type_name;
647: End If;
648: If (p_rec.run_method = hr_api.g_varchar2) then
649: p_rec.run_method :=
650: pay_prt_shd.g_old_rec.run_method;
651: End If;
652: If (p_rec.business_group_id = hr_api.g_number) then
653: p_rec.business_group_id :=
654: pay_prt_shd.g_old_rec.business_group_id;
650: pay_prt_shd.g_old_rec.run_method;
651: End If;
652: If (p_rec.business_group_id = hr_api.g_number) then
653: p_rec.business_group_id :=
654: pay_prt_shd.g_old_rec.business_group_id;
655: End If;
656: If (p_rec.legislation_code = hr_api.g_varchar2) then
657: p_rec.legislation_code :=
658: pay_prt_shd.g_old_rec.legislation_code;
654: pay_prt_shd.g_old_rec.business_group_id;
655: End If;
656: If (p_rec.legislation_code = hr_api.g_varchar2) then
657: p_rec.legislation_code :=
658: pay_prt_shd.g_old_rec.legislation_code;
659: End If;
660: If (p_rec.shortname = hr_api.g_varchar2) then
661: p_rec.shortname :=
662: pay_prt_shd.g_old_rec.shortname;
658: pay_prt_shd.g_old_rec.legislation_code;
659: End If;
660: If (p_rec.shortname = hr_api.g_varchar2) then
661: p_rec.shortname :=
662: pay_prt_shd.g_old_rec.shortname;
663: End If;
664: If (p_rec.srs_flag = hr_api.g_varchar2) then
665: p_rec.srs_flag :=
666: pay_prt_shd.g_old_rec.srs_flag;
662: pay_prt_shd.g_old_rec.shortname;
663: End If;
664: If (p_rec.srs_flag = hr_api.g_varchar2) then
665: p_rec.srs_flag :=
666: pay_prt_shd.g_old_rec.srs_flag;
667: End If;
668: If (p_rec.run_information_category = hr_api.g_varchar2) then
669: p_rec.run_information_category :=
670: pay_prt_shd.g_old_rec.run_information_category;
666: pay_prt_shd.g_old_rec.srs_flag;
667: End If;
668: If (p_rec.run_information_category = hr_api.g_varchar2) then
669: p_rec.run_information_category :=
670: pay_prt_shd.g_old_rec.run_information_category;
671: End If;
672: If (p_rec.run_information1 = hr_api.g_varchar2) then
673: p_rec.run_information1 :=
674: pay_prt_shd.g_old_rec.run_information1;
670: pay_prt_shd.g_old_rec.run_information_category;
671: End If;
672: If (p_rec.run_information1 = hr_api.g_varchar2) then
673: p_rec.run_information1 :=
674: pay_prt_shd.g_old_rec.run_information1;
675: End If;
676: If (p_rec.run_information2 = hr_api.g_varchar2) then
677: p_rec.run_information2 :=
678: pay_prt_shd.g_old_rec.run_information2;
674: pay_prt_shd.g_old_rec.run_information1;
675: End If;
676: If (p_rec.run_information2 = hr_api.g_varchar2) then
677: p_rec.run_information2 :=
678: pay_prt_shd.g_old_rec.run_information2;
679: End If;
680: If (p_rec.run_information3 = hr_api.g_varchar2) then
681: p_rec.run_information3 :=
682: pay_prt_shd.g_old_rec.run_information3;
678: pay_prt_shd.g_old_rec.run_information2;
679: End If;
680: If (p_rec.run_information3 = hr_api.g_varchar2) then
681: p_rec.run_information3 :=
682: pay_prt_shd.g_old_rec.run_information3;
683: End If;
684: If (p_rec.run_information4 = hr_api.g_varchar2) then
685: p_rec.run_information4 :=
686: pay_prt_shd.g_old_rec.run_information4;
682: pay_prt_shd.g_old_rec.run_information3;
683: End If;
684: If (p_rec.run_information4 = hr_api.g_varchar2) then
685: p_rec.run_information4 :=
686: pay_prt_shd.g_old_rec.run_information4;
687: End If;
688: If (p_rec.run_information5 = hr_api.g_varchar2) then
689: p_rec.run_information5 :=
690: pay_prt_shd.g_old_rec.run_information5;
686: pay_prt_shd.g_old_rec.run_information4;
687: End If;
688: If (p_rec.run_information5 = hr_api.g_varchar2) then
689: p_rec.run_information5 :=
690: pay_prt_shd.g_old_rec.run_information5;
691: End If;
692: If (p_rec.run_information6 = hr_api.g_varchar2) then
693: p_rec.run_information6 :=
694: pay_prt_shd.g_old_rec.run_information6;
690: pay_prt_shd.g_old_rec.run_information5;
691: End If;
692: If (p_rec.run_information6 = hr_api.g_varchar2) then
693: p_rec.run_information6 :=
694: pay_prt_shd.g_old_rec.run_information6;
695: End If;
696: If (p_rec.run_information7 = hr_api.g_varchar2) then
697: p_rec.run_information7 :=
698: pay_prt_shd.g_old_rec.run_information7;
694: pay_prt_shd.g_old_rec.run_information6;
695: End If;
696: If (p_rec.run_information7 = hr_api.g_varchar2) then
697: p_rec.run_information7 :=
698: pay_prt_shd.g_old_rec.run_information7;
699: End If;
700: If (p_rec.run_information8 = hr_api.g_varchar2) then
701: p_rec.run_information8 :=
702: pay_prt_shd.g_old_rec.run_information8;
698: pay_prt_shd.g_old_rec.run_information7;
699: End If;
700: If (p_rec.run_information8 = hr_api.g_varchar2) then
701: p_rec.run_information8 :=
702: pay_prt_shd.g_old_rec.run_information8;
703: End If;
704: If (p_rec.run_information9 = hr_api.g_varchar2) then
705: p_rec.run_information9 :=
706: pay_prt_shd.g_old_rec.run_information9;
702: pay_prt_shd.g_old_rec.run_information8;
703: End If;
704: If (p_rec.run_information9 = hr_api.g_varchar2) then
705: p_rec.run_information9 :=
706: pay_prt_shd.g_old_rec.run_information9;
707: End If;
708: If (p_rec.run_information10 = hr_api.g_varchar2) then
709: p_rec.run_information10 :=
710: pay_prt_shd.g_old_rec.run_information10;
706: pay_prt_shd.g_old_rec.run_information9;
707: End If;
708: If (p_rec.run_information10 = hr_api.g_varchar2) then
709: p_rec.run_information10 :=
710: pay_prt_shd.g_old_rec.run_information10;
711: End If;
712: If (p_rec.run_information11 = hr_api.g_varchar2) then
713: p_rec.run_information11 :=
714: pay_prt_shd.g_old_rec.run_information11;
710: pay_prt_shd.g_old_rec.run_information10;
711: End If;
712: If (p_rec.run_information11 = hr_api.g_varchar2) then
713: p_rec.run_information11 :=
714: pay_prt_shd.g_old_rec.run_information11;
715: End If;
716: If (p_rec.run_information12 = hr_api.g_varchar2) then
717: p_rec.run_information12 :=
718: pay_prt_shd.g_old_rec.run_information12;
714: pay_prt_shd.g_old_rec.run_information11;
715: End If;
716: If (p_rec.run_information12 = hr_api.g_varchar2) then
717: p_rec.run_information12 :=
718: pay_prt_shd.g_old_rec.run_information12;
719: End If;
720: If (p_rec.run_information13 = hr_api.g_varchar2) then
721: p_rec.run_information13 :=
722: pay_prt_shd.g_old_rec.run_information13;
718: pay_prt_shd.g_old_rec.run_information12;
719: End If;
720: If (p_rec.run_information13 = hr_api.g_varchar2) then
721: p_rec.run_information13 :=
722: pay_prt_shd.g_old_rec.run_information13;
723: End If;
724: If (p_rec.run_information14 = hr_api.g_varchar2) then
725: p_rec.run_information14 :=
726: pay_prt_shd.g_old_rec.run_information14;
722: pay_prt_shd.g_old_rec.run_information13;
723: End If;
724: If (p_rec.run_information14 = hr_api.g_varchar2) then
725: p_rec.run_information14 :=
726: pay_prt_shd.g_old_rec.run_information14;
727: End If;
728: If (p_rec.run_information15 = hr_api.g_varchar2) then
729: p_rec.run_information15 :=
730: pay_prt_shd.g_old_rec.run_information15;
726: pay_prt_shd.g_old_rec.run_information14;
727: End If;
728: If (p_rec.run_information15 = hr_api.g_varchar2) then
729: p_rec.run_information15 :=
730: pay_prt_shd.g_old_rec.run_information15;
731: End If;
732: If (p_rec.run_information16 = hr_api.g_varchar2) then
733: p_rec.run_information16 :=
734: pay_prt_shd.g_old_rec.run_information16;
730: pay_prt_shd.g_old_rec.run_information15;
731: End If;
732: If (p_rec.run_information16 = hr_api.g_varchar2) then
733: p_rec.run_information16 :=
734: pay_prt_shd.g_old_rec.run_information16;
735: End If;
736: If (p_rec.run_information17 = hr_api.g_varchar2) then
737: p_rec.run_information17 :=
738: pay_prt_shd.g_old_rec.run_information17;
734: pay_prt_shd.g_old_rec.run_information16;
735: End If;
736: If (p_rec.run_information17 = hr_api.g_varchar2) then
737: p_rec.run_information17 :=
738: pay_prt_shd.g_old_rec.run_information17;
739: End If;
740: If (p_rec.run_information18 = hr_api.g_varchar2) then
741: p_rec.run_information18 :=
742: pay_prt_shd.g_old_rec.run_information18;
738: pay_prt_shd.g_old_rec.run_information17;
739: End If;
740: If (p_rec.run_information18 = hr_api.g_varchar2) then
741: p_rec.run_information18 :=
742: pay_prt_shd.g_old_rec.run_information18;
743: End If;
744: If (p_rec.run_information19 = hr_api.g_varchar2) then
745: p_rec.run_information19 :=
746: pay_prt_shd.g_old_rec.run_information19;
742: pay_prt_shd.g_old_rec.run_information18;
743: End If;
744: If (p_rec.run_information19 = hr_api.g_varchar2) then
745: p_rec.run_information19 :=
746: pay_prt_shd.g_old_rec.run_information19;
747: End If;
748: If (p_rec.run_information20 = hr_api.g_varchar2) then
749: p_rec.run_information20 :=
750: pay_prt_shd.g_old_rec.run_information20;
746: pay_prt_shd.g_old_rec.run_information19;
747: End If;
748: If (p_rec.run_information20 = hr_api.g_varchar2) then
749: p_rec.run_information20 :=
750: pay_prt_shd.g_old_rec.run_information20;
751: End If;
752: If (p_rec.run_information21 = hr_api.g_varchar2) then
753: p_rec.run_information21 :=
754: pay_prt_shd.g_old_rec.run_information21;
750: pay_prt_shd.g_old_rec.run_information20;
751: End If;
752: If (p_rec.run_information21 = hr_api.g_varchar2) then
753: p_rec.run_information21 :=
754: pay_prt_shd.g_old_rec.run_information21;
755: End If;
756: If (p_rec.run_information22 = hr_api.g_varchar2) then
757: p_rec.run_information22 :=
758: pay_prt_shd.g_old_rec.run_information22;
754: pay_prt_shd.g_old_rec.run_information21;
755: End If;
756: If (p_rec.run_information22 = hr_api.g_varchar2) then
757: p_rec.run_information22 :=
758: pay_prt_shd.g_old_rec.run_information22;
759: End If;
760: If (p_rec.run_information23 = hr_api.g_varchar2) then
761: p_rec.run_information23 :=
762: pay_prt_shd.g_old_rec.run_information23;
758: pay_prt_shd.g_old_rec.run_information22;
759: End If;
760: If (p_rec.run_information23 = hr_api.g_varchar2) then
761: p_rec.run_information23 :=
762: pay_prt_shd.g_old_rec.run_information23;
763: End If;
764: If (p_rec.run_information24 = hr_api.g_varchar2) then
765: p_rec.run_information24 :=
766: pay_prt_shd.g_old_rec.run_information24;
762: pay_prt_shd.g_old_rec.run_information23;
763: End If;
764: If (p_rec.run_information24 = hr_api.g_varchar2) then
765: p_rec.run_information24 :=
766: pay_prt_shd.g_old_rec.run_information24;
767: End If;
768: If (p_rec.run_information25 = hr_api.g_varchar2) then
769: p_rec.run_information25 :=
770: pay_prt_shd.g_old_rec.run_information25;
766: pay_prt_shd.g_old_rec.run_information24;
767: End If;
768: If (p_rec.run_information25 = hr_api.g_varchar2) then
769: p_rec.run_information25 :=
770: pay_prt_shd.g_old_rec.run_information25;
771: End If;
772: If (p_rec.run_information26 = hr_api.g_varchar2) then
773: p_rec.run_information26 :=
774: pay_prt_shd.g_old_rec.run_information26;
770: pay_prt_shd.g_old_rec.run_information25;
771: End If;
772: If (p_rec.run_information26 = hr_api.g_varchar2) then
773: p_rec.run_information26 :=
774: pay_prt_shd.g_old_rec.run_information26;
775: End If;
776: If (p_rec.run_information27 = hr_api.g_varchar2) then
777: p_rec.run_information27 :=
778: pay_prt_shd.g_old_rec.run_information27;
774: pay_prt_shd.g_old_rec.run_information26;
775: End If;
776: If (p_rec.run_information27 = hr_api.g_varchar2) then
777: p_rec.run_information27 :=
778: pay_prt_shd.g_old_rec.run_information27;
779: End If;
780: If (p_rec.run_information28 = hr_api.g_varchar2) then
781: p_rec.run_information28 :=
782: pay_prt_shd.g_old_rec.run_information28;
778: pay_prt_shd.g_old_rec.run_information27;
779: End If;
780: If (p_rec.run_information28 = hr_api.g_varchar2) then
781: p_rec.run_information28 :=
782: pay_prt_shd.g_old_rec.run_information28;
783: End If;
784: If (p_rec.run_information29 = hr_api.g_varchar2) then
785: p_rec.run_information29 :=
786: pay_prt_shd.g_old_rec.run_information29;
782: pay_prt_shd.g_old_rec.run_information28;
783: End If;
784: If (p_rec.run_information29 = hr_api.g_varchar2) then
785: p_rec.run_information29 :=
786: pay_prt_shd.g_old_rec.run_information29;
787: End If;
788: If (p_rec.run_information30 = hr_api.g_varchar2) then
789: p_rec.run_information30 :=
790: pay_prt_shd.g_old_rec.run_information30;
786: pay_prt_shd.g_old_rec.run_information29;
787: End If;
788: If (p_rec.run_information30 = hr_api.g_varchar2) then
789: p_rec.run_information30 :=
790: pay_prt_shd.g_old_rec.run_information30;
791: End If;
792: --
793: End convert_defs;
794: --
797: -- ----------------------------------------------------------------------------
798: Procedure upd
799: (p_effective_date in date
800: ,p_datetrack_mode in varchar2
801: ,p_rec in out nocopy pay_prt_shd.g_rec_type
802: ) is
803: --
804: l_proc varchar2(72) := g_package||'upd';
805: l_validation_start_date date;
813: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
814: --
815: -- We must lock the row which we need to update.
816: --
817: pay_prt_shd.lck
818: (p_effective_date => p_effective_date
819: ,p_datetrack_mode => p_datetrack_mode
820: ,p_run_type_id => p_rec.run_type_id
821: ,p_object_version_number => p_rec.object_version_number
915: ,p_effective_start_date out nocopy date
916: ,p_effective_end_date out nocopy date
917: ) is
918: --
919: l_rec pay_prt_shd.g_rec_type;
920: l_proc varchar2(72) := g_package||'upd';
921: --
922: Begin
923: hr_utility.set_location('Entering:'||l_proc, 5);
925: -- Call conversion function to turn arguments into the
926: -- l_rec structure.
927: --
928: l_rec :=
929: pay_prt_shd.convert_args
930: (p_run_type_id
931: ,hr_api.g_varchar2
932: ,hr_api.g_varchar2
933: ,null