[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_ivl_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
79: ,p_base_key_column => 'input_value_id'
80: ,p_base_key_value => p_rec.input_value_id
81: );
82: --
83: pay_ivl_shd.g_api_dml := true; -- Set the api dml status
84: --
85: -- Update the pay_input_values_f Row
86: --
87: update pay_input_values_f
108: where input_value_id = p_rec.input_value_id
109: and effective_start_date = p_validation_start_date
110: and effective_end_date = p_validation_end_date;
111: --
112: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
113: --
114: -- Set the effective start and end dates
115: --
116: p_rec.effective_start_date := p_validation_start_date;
120: hr_utility.set_location(' Leaving:'||l_proc, 15);
121: Exception
122: When hr_api.check_integrity_violated Then
123: -- A check constraint has been violated
124: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
125: pay_ivl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.unique_integrity_violated Then
128: -- Unique integrity has been violated
121: Exception
122: When hr_api.check_integrity_violated Then
123: -- A check constraint has been violated
124: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
125: pay_ivl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.unique_integrity_violated Then
128: -- Unique integrity has been violated
129: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
125: pay_ivl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.unique_integrity_violated Then
128: -- Unique integrity has been violated
129: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
130: pay_ivl_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When Others Then
133: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When hr_api.unique_integrity_violated Then
128: -- Unique integrity has been violated
129: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
130: pay_ivl_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When Others Then
133: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
134: Raise;
129: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
130: pay_ivl_shd.constraint_error
131: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132: When Others Then
133: pay_ivl_shd.g_api_dml := false; -- Unset the api dml status
134: Raise;
135: End dt_update_dml;
136: --
137: -- ----------------------------------------------------------------------------
165: --
166: -- {End Of Comments}
167: -- ----------------------------------------------------------------------------
168: Procedure update_dml
169: (p_rec in out nocopy pay_ivl_shd.g_rec_type
170: ,p_effective_date in date
171: ,p_datetrack_mode in varchar2
172: ,p_validation_start_date in date
173: ,p_validation_end_date in date
232: --
233: -- {End Of Comments}
234: -- ----------------------------------------------------------------------------
235: Procedure dt_pre_update
236: (p_rec in out nocopy pay_ivl_shd.g_rec_type
237: ,p_effective_date in date
238: ,p_datetrack_mode in varchar2
239: ,p_validation_start_date in date
240: ,p_validation_end_date in date
248: If (p_datetrack_mode <> hr_api.g_correction) then
249: --
250: -- Update the current effective end date
251: --
252: pay_ivl_shd.upd_effective_end_date
253: (p_effective_date => p_effective_date
254: ,p_base_key_value => p_rec.input_value_id
255: ,p_new_effective_end_date => (p_validation_start_date - 1)
256: ,p_validation_start_date => p_validation_start_date
317: --
318: -- {End Of Comments}
319: -- ----------------------------------------------------------------------------
320: Procedure pre_update
321: (p_rec in out nocopy pay_ivl_shd.g_rec_type
322: ,p_effective_date in date
323: ,p_datetrack_mode in varchar2
324: ,p_validation_start_date in date
325: ,p_validation_end_date in date
375: --
376: -- {End Of Comments}
377: -- ----------------------------------------------------------------------------
378: Procedure post_update
379: (p_rec in pay_ivl_shd.g_rec_type
380: ,p_effective_date in date
381: ,p_datetrack_mode in varchar2
382: ,p_validation_start_date in date
383: ,p_validation_end_date in date
440: => p_rec.warning_or_error
441: ,p_object_version_number
442: => p_rec.object_version_number
443: ,p_effective_start_date_o
444: => pay_ivl_shd.g_old_rec.effective_start_date
445: ,p_effective_end_date_o
446: => pay_ivl_shd.g_old_rec.effective_end_date
447: ,p_element_type_id_o
448: => pay_ivl_shd.g_old_rec.element_type_id
442: => p_rec.object_version_number
443: ,p_effective_start_date_o
444: => pay_ivl_shd.g_old_rec.effective_start_date
445: ,p_effective_end_date_o
446: => pay_ivl_shd.g_old_rec.effective_end_date
447: ,p_element_type_id_o
448: => pay_ivl_shd.g_old_rec.element_type_id
449: ,p_lookup_type_o
450: => pay_ivl_shd.g_old_rec.lookup_type
444: => pay_ivl_shd.g_old_rec.effective_start_date
445: ,p_effective_end_date_o
446: => pay_ivl_shd.g_old_rec.effective_end_date
447: ,p_element_type_id_o
448: => pay_ivl_shd.g_old_rec.element_type_id
449: ,p_lookup_type_o
450: => pay_ivl_shd.g_old_rec.lookup_type
451: ,p_business_group_id_o
452: => pay_ivl_shd.g_old_rec.business_group_id
446: => pay_ivl_shd.g_old_rec.effective_end_date
447: ,p_element_type_id_o
448: => pay_ivl_shd.g_old_rec.element_type_id
449: ,p_lookup_type_o
450: => pay_ivl_shd.g_old_rec.lookup_type
451: ,p_business_group_id_o
452: => pay_ivl_shd.g_old_rec.business_group_id
453: ,p_legislation_code_o
454: => pay_ivl_shd.g_old_rec.legislation_code
448: => pay_ivl_shd.g_old_rec.element_type_id
449: ,p_lookup_type_o
450: => pay_ivl_shd.g_old_rec.lookup_type
451: ,p_business_group_id_o
452: => pay_ivl_shd.g_old_rec.business_group_id
453: ,p_legislation_code_o
454: => pay_ivl_shd.g_old_rec.legislation_code
455: ,p_formula_id_o
456: => pay_ivl_shd.g_old_rec.formula_id
450: => pay_ivl_shd.g_old_rec.lookup_type
451: ,p_business_group_id_o
452: => pay_ivl_shd.g_old_rec.business_group_id
453: ,p_legislation_code_o
454: => pay_ivl_shd.g_old_rec.legislation_code
455: ,p_formula_id_o
456: => pay_ivl_shd.g_old_rec.formula_id
457: ,p_value_set_id_o
458: => pay_ivl_shd.g_old_rec.value_set_id
452: => pay_ivl_shd.g_old_rec.business_group_id
453: ,p_legislation_code_o
454: => pay_ivl_shd.g_old_rec.legislation_code
455: ,p_formula_id_o
456: => pay_ivl_shd.g_old_rec.formula_id
457: ,p_value_set_id_o
458: => pay_ivl_shd.g_old_rec.value_set_id
459: ,p_display_sequence_o
460: => pay_ivl_shd.g_old_rec.display_sequence
454: => pay_ivl_shd.g_old_rec.legislation_code
455: ,p_formula_id_o
456: => pay_ivl_shd.g_old_rec.formula_id
457: ,p_value_set_id_o
458: => pay_ivl_shd.g_old_rec.value_set_id
459: ,p_display_sequence_o
460: => pay_ivl_shd.g_old_rec.display_sequence
461: ,p_generate_db_items_flag_o
462: => pay_ivl_shd.g_old_rec.generate_db_items_flag
456: => pay_ivl_shd.g_old_rec.formula_id
457: ,p_value_set_id_o
458: => pay_ivl_shd.g_old_rec.value_set_id
459: ,p_display_sequence_o
460: => pay_ivl_shd.g_old_rec.display_sequence
461: ,p_generate_db_items_flag_o
462: => pay_ivl_shd.g_old_rec.generate_db_items_flag
463: ,p_hot_default_flag_o
464: => pay_ivl_shd.g_old_rec.hot_default_flag
458: => pay_ivl_shd.g_old_rec.value_set_id
459: ,p_display_sequence_o
460: => pay_ivl_shd.g_old_rec.display_sequence
461: ,p_generate_db_items_flag_o
462: => pay_ivl_shd.g_old_rec.generate_db_items_flag
463: ,p_hot_default_flag_o
464: => pay_ivl_shd.g_old_rec.hot_default_flag
465: ,p_mandatory_flag_o
466: => pay_ivl_shd.g_old_rec.mandatory_flag
460: => pay_ivl_shd.g_old_rec.display_sequence
461: ,p_generate_db_items_flag_o
462: => pay_ivl_shd.g_old_rec.generate_db_items_flag
463: ,p_hot_default_flag_o
464: => pay_ivl_shd.g_old_rec.hot_default_flag
465: ,p_mandatory_flag_o
466: => pay_ivl_shd.g_old_rec.mandatory_flag
467: ,p_name_o
468: => pay_ivl_shd.g_old_rec.name
462: => pay_ivl_shd.g_old_rec.generate_db_items_flag
463: ,p_hot_default_flag_o
464: => pay_ivl_shd.g_old_rec.hot_default_flag
465: ,p_mandatory_flag_o
466: => pay_ivl_shd.g_old_rec.mandatory_flag
467: ,p_name_o
468: => pay_ivl_shd.g_old_rec.name
469: ,p_uom_o
470: => pay_ivl_shd.g_old_rec.uom
464: => pay_ivl_shd.g_old_rec.hot_default_flag
465: ,p_mandatory_flag_o
466: => pay_ivl_shd.g_old_rec.mandatory_flag
467: ,p_name_o
468: => pay_ivl_shd.g_old_rec.name
469: ,p_uom_o
470: => pay_ivl_shd.g_old_rec.uom
471: ,p_default_value_o
472: => pay_ivl_shd.g_old_rec.default_value
466: => pay_ivl_shd.g_old_rec.mandatory_flag
467: ,p_name_o
468: => pay_ivl_shd.g_old_rec.name
469: ,p_uom_o
470: => pay_ivl_shd.g_old_rec.uom
471: ,p_default_value_o
472: => pay_ivl_shd.g_old_rec.default_value
473: ,p_legislation_subgroup_o
474: => pay_ivl_shd.g_old_rec.legislation_subgroup
468: => pay_ivl_shd.g_old_rec.name
469: ,p_uom_o
470: => pay_ivl_shd.g_old_rec.uom
471: ,p_default_value_o
472: => pay_ivl_shd.g_old_rec.default_value
473: ,p_legislation_subgroup_o
474: => pay_ivl_shd.g_old_rec.legislation_subgroup
475: ,p_max_value_o
476: => pay_ivl_shd.g_old_rec.max_value
470: => pay_ivl_shd.g_old_rec.uom
471: ,p_default_value_o
472: => pay_ivl_shd.g_old_rec.default_value
473: ,p_legislation_subgroup_o
474: => pay_ivl_shd.g_old_rec.legislation_subgroup
475: ,p_max_value_o
476: => pay_ivl_shd.g_old_rec.max_value
477: ,p_min_value_o
478: => pay_ivl_shd.g_old_rec.min_value
472: => pay_ivl_shd.g_old_rec.default_value
473: ,p_legislation_subgroup_o
474: => pay_ivl_shd.g_old_rec.legislation_subgroup
475: ,p_max_value_o
476: => pay_ivl_shd.g_old_rec.max_value
477: ,p_min_value_o
478: => pay_ivl_shd.g_old_rec.min_value
479: ,p_warning_or_error_o
480: => pay_ivl_shd.g_old_rec.warning_or_error
474: => pay_ivl_shd.g_old_rec.legislation_subgroup
475: ,p_max_value_o
476: => pay_ivl_shd.g_old_rec.max_value
477: ,p_min_value_o
478: => pay_ivl_shd.g_old_rec.min_value
479: ,p_warning_or_error_o
480: => pay_ivl_shd.g_old_rec.warning_or_error
481: ,p_object_version_number_o
482: => pay_ivl_shd.g_old_rec.object_version_number
476: => pay_ivl_shd.g_old_rec.max_value
477: ,p_min_value_o
478: => pay_ivl_shd.g_old_rec.min_value
479: ,p_warning_or_error_o
480: => pay_ivl_shd.g_old_rec.warning_or_error
481: ,p_object_version_number_o
482: => pay_ivl_shd.g_old_rec.object_version_number
483: );
484: --
478: => pay_ivl_shd.g_old_rec.min_value
479: ,p_warning_or_error_o
480: => pay_ivl_shd.g_old_rec.warning_or_error
481: ,p_object_version_number_o
482: => pay_ivl_shd.g_old_rec.object_version_number
483: );
484: --
485: exception
486: --
538: --
539: -- {End Of Comments}
540: -- ----------------------------------------------------------------------------
541: Procedure convert_defs
542: (p_rec in out nocopy pay_ivl_shd.g_rec_type
543: ) is
544: --
545: Begin
546: --
550: -- is being used then we must set to the 'current' argument value.
551: --
552: If (p_rec.element_type_id = hr_api.g_number) then
553: p_rec.element_type_id :=
554: pay_ivl_shd.g_old_rec.element_type_id;
555: End If;
556: If (p_rec.lookup_type = hr_api.g_varchar2) then
557: p_rec.lookup_type :=
558: pay_ivl_shd.g_old_rec.lookup_type;
554: pay_ivl_shd.g_old_rec.element_type_id;
555: End If;
556: If (p_rec.lookup_type = hr_api.g_varchar2) then
557: p_rec.lookup_type :=
558: pay_ivl_shd.g_old_rec.lookup_type;
559: End If;
560: If (p_rec.business_group_id = hr_api.g_number) then
561: p_rec.business_group_id :=
562: pay_ivl_shd.g_old_rec.business_group_id;
558: pay_ivl_shd.g_old_rec.lookup_type;
559: End If;
560: If (p_rec.business_group_id = hr_api.g_number) then
561: p_rec.business_group_id :=
562: pay_ivl_shd.g_old_rec.business_group_id;
563: End If;
564: If (p_rec.legislation_code = hr_api.g_varchar2) then
565: p_rec.legislation_code :=
566: pay_ivl_shd.g_old_rec.legislation_code;
562: pay_ivl_shd.g_old_rec.business_group_id;
563: End If;
564: If (p_rec.legislation_code = hr_api.g_varchar2) then
565: p_rec.legislation_code :=
566: pay_ivl_shd.g_old_rec.legislation_code;
567: End If;
568: If (p_rec.formula_id = hr_api.g_number) then
569: p_rec.formula_id :=
570: pay_ivl_shd.g_old_rec.formula_id;
566: pay_ivl_shd.g_old_rec.legislation_code;
567: End If;
568: If (p_rec.formula_id = hr_api.g_number) then
569: p_rec.formula_id :=
570: pay_ivl_shd.g_old_rec.formula_id;
571: End If;
572: If (p_rec.value_set_id = hr_api.g_number) then
573: p_rec.value_set_id :=
574: pay_ivl_shd.g_old_rec.value_set_id;
570: pay_ivl_shd.g_old_rec.formula_id;
571: End If;
572: If (p_rec.value_set_id = hr_api.g_number) then
573: p_rec.value_set_id :=
574: pay_ivl_shd.g_old_rec.value_set_id;
575: End If;
576: If (p_rec.display_sequence = hr_api.g_number) then
577: p_rec.display_sequence :=
578: pay_ivl_shd.g_old_rec.display_sequence;
574: pay_ivl_shd.g_old_rec.value_set_id;
575: End If;
576: If (p_rec.display_sequence = hr_api.g_number) then
577: p_rec.display_sequence :=
578: pay_ivl_shd.g_old_rec.display_sequence;
579: End If;
580: If (p_rec.generate_db_items_flag = hr_api.g_varchar2) then
581: p_rec.generate_db_items_flag :=
582: pay_ivl_shd.g_old_rec.generate_db_items_flag;
578: pay_ivl_shd.g_old_rec.display_sequence;
579: End If;
580: If (p_rec.generate_db_items_flag = hr_api.g_varchar2) then
581: p_rec.generate_db_items_flag :=
582: pay_ivl_shd.g_old_rec.generate_db_items_flag;
583: End If;
584: If (p_rec.hot_default_flag = hr_api.g_varchar2) then
585: p_rec.hot_default_flag :=
586: pay_ivl_shd.g_old_rec.hot_default_flag;
582: pay_ivl_shd.g_old_rec.generate_db_items_flag;
583: End If;
584: If (p_rec.hot_default_flag = hr_api.g_varchar2) then
585: p_rec.hot_default_flag :=
586: pay_ivl_shd.g_old_rec.hot_default_flag;
587: End If;
588: If (p_rec.mandatory_flag = hr_api.g_varchar2) then
589: p_rec.mandatory_flag :=
590: pay_ivl_shd.g_old_rec.mandatory_flag;
586: pay_ivl_shd.g_old_rec.hot_default_flag;
587: End If;
588: If (p_rec.mandatory_flag = hr_api.g_varchar2) then
589: p_rec.mandatory_flag :=
590: pay_ivl_shd.g_old_rec.mandatory_flag;
591: End If;
592: If (p_rec.name = hr_api.g_varchar2) then
593: p_rec.name :=
594: pay_ivl_shd.g_old_rec.name;
590: pay_ivl_shd.g_old_rec.mandatory_flag;
591: End If;
592: If (p_rec.name = hr_api.g_varchar2) then
593: p_rec.name :=
594: pay_ivl_shd.g_old_rec.name;
595: End If;
596: If (p_rec.uom = hr_api.g_varchar2) then
597: p_rec.uom :=
598: pay_ivl_shd.g_old_rec.uom;
594: pay_ivl_shd.g_old_rec.name;
595: End If;
596: If (p_rec.uom = hr_api.g_varchar2) then
597: p_rec.uom :=
598: pay_ivl_shd.g_old_rec.uom;
599: End If;
600: If (p_rec.default_value = hr_api.g_varchar2) then
601: p_rec.default_value :=
602: pay_ivl_shd.g_old_rec.default_value;
598: pay_ivl_shd.g_old_rec.uom;
599: End If;
600: If (p_rec.default_value = hr_api.g_varchar2) then
601: p_rec.default_value :=
602: pay_ivl_shd.g_old_rec.default_value;
603: End If;
604: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
605: p_rec.legislation_subgroup :=
606: pay_ivl_shd.g_old_rec.legislation_subgroup;
602: pay_ivl_shd.g_old_rec.default_value;
603: End If;
604: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
605: p_rec.legislation_subgroup :=
606: pay_ivl_shd.g_old_rec.legislation_subgroup;
607: End If;
608: If (p_rec.max_value = hr_api.g_varchar2) then
609: p_rec.max_value :=
610: pay_ivl_shd.g_old_rec.max_value;
606: pay_ivl_shd.g_old_rec.legislation_subgroup;
607: End If;
608: If (p_rec.max_value = hr_api.g_varchar2) then
609: p_rec.max_value :=
610: pay_ivl_shd.g_old_rec.max_value;
611: End If;
612: If (p_rec.min_value = hr_api.g_varchar2) then
613: p_rec.min_value :=
614: pay_ivl_shd.g_old_rec.min_value;
610: pay_ivl_shd.g_old_rec.max_value;
611: End If;
612: If (p_rec.min_value = hr_api.g_varchar2) then
613: p_rec.min_value :=
614: pay_ivl_shd.g_old_rec.min_value;
615: End If;
616: If (p_rec.warning_or_error = hr_api.g_varchar2) then
617: p_rec.warning_or_error :=
618: pay_ivl_shd.g_old_rec.warning_or_error;
614: pay_ivl_shd.g_old_rec.min_value;
615: End If;
616: If (p_rec.warning_or_error = hr_api.g_varchar2) then
617: p_rec.warning_or_error :=
618: pay_ivl_shd.g_old_rec.warning_or_error;
619: End If;
620: --
621: End convert_defs;
622: --
625: -- ----------------------------------------------------------------------------
626: Procedure upd
627: (p_effective_date in date
628: ,p_datetrack_mode in varchar2
629: ,p_rec in out nocopy pay_ivl_shd.g_rec_type
630: ,p_default_val_warning out nocopy boolean
631: ,p_min_max_warning out nocopy boolean
632: ,p_link_inp_val_warning out nocopy boolean
633: ,p_pay_basis_warning out nocopy boolean
650: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
651: --
652: -- We must lock the row which we need to update.
653: --
654: pay_ivl_shd.lck
655: (p_effective_date => p_effective_date
656: ,p_datetrack_mode => p_datetrack_mode
657: ,p_input_value_id => p_rec.input_value_id
658: ,p_object_version_number => p_rec.object_version_number
715: ,p_validation_start_date => l_validation_start_date
716: ,p_validation_end_date => l_validation_end_date
717: );
718:
719: if pay_ivl_shd.g_old_rec.name <> p_rec.name or pay_ivl_shd.g_old_rec.uom <> p_rec.uom
720: or pay_ivl_shd.g_old_rec.generate_db_items_flag <> p_rec.generate_db_items_flag then
721: pay_input_values_pkg.recreate_db_items(p_rec.element_type_id);
722: end if;
723: --
716: ,p_validation_end_date => l_validation_end_date
717: );
718:
719: if pay_ivl_shd.g_old_rec.name <> p_rec.name or pay_ivl_shd.g_old_rec.uom <> p_rec.uom
720: or pay_ivl_shd.g_old_rec.generate_db_items_flag <> p_rec.generate_db_items_flag then
721: pay_input_values_pkg.recreate_db_items(p_rec.element_type_id);
722: end if;
723: --
724: -- Call to raise any errors on multi-message list
761: ,p_formula_message out nocopy varchar2
762:
763: ) is
764: --
765: l_rec pay_ivl_shd.g_rec_type;
766: l_proc varchar2(72) := g_package||'upd';
767: --
768: Begin
769: hr_utility.set_location('Entering:'||l_proc, 5);
771: -- Call conversion function to turn arguments into the
772: -- l_rec structure.
773: --
774: l_rec :=
775: pay_ivl_shd.convert_args
776: (p_input_value_id
777: ,null
778: ,null
779: ,p_element_type_id