[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy per_pcl_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: per_pcl_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: per_pcl_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 per_pcl_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 per_pcl_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: per_pcl_shd.upd_effective_end_date
249: (p_effective_date => p_effective_date
250: ,p_base_key_value => p_rec.cagr_entitlement_line_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 per_pcl_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 per_pcl_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.grade_spine_id
429: ,p_eligy_prfl_id
430: => p_rec.eligy_prfl_id
431: ,p_cagr_entitlement_id_o
432: => per_pcl_shd.g_old_rec.cagr_entitlement_id
433: ,p_mandatory_o
434: => per_pcl_shd.g_old_rec.mandatory
435: ,p_value_o
436: => per_pcl_shd.g_old_rec.value
430: => p_rec.eligy_prfl_id
431: ,p_cagr_entitlement_id_o
432: => per_pcl_shd.g_old_rec.cagr_entitlement_id
433: ,p_mandatory_o
434: => per_pcl_shd.g_old_rec.mandatory
435: ,p_value_o
436: => per_pcl_shd.g_old_rec.value
437: ,p_range_from_o
438: => per_pcl_shd.g_old_rec.range_from
432: => per_pcl_shd.g_old_rec.cagr_entitlement_id
433: ,p_mandatory_o
434: => per_pcl_shd.g_old_rec.mandatory
435: ,p_value_o
436: => per_pcl_shd.g_old_rec.value
437: ,p_range_from_o
438: => per_pcl_shd.g_old_rec.range_from
439: ,p_range_to_o
440: => per_pcl_shd.g_old_rec.range_to
434: => per_pcl_shd.g_old_rec.mandatory
435: ,p_value_o
436: => per_pcl_shd.g_old_rec.value
437: ,p_range_from_o
438: => per_pcl_shd.g_old_rec.range_from
439: ,p_range_to_o
440: => per_pcl_shd.g_old_rec.range_to
441: ,p_effective_start_date_o
442: => per_pcl_shd.g_old_rec.effective_start_date
436: => per_pcl_shd.g_old_rec.value
437: ,p_range_from_o
438: => per_pcl_shd.g_old_rec.range_from
439: ,p_range_to_o
440: => per_pcl_shd.g_old_rec.range_to
441: ,p_effective_start_date_o
442: => per_pcl_shd.g_old_rec.effective_start_date
443: ,p_effective_end_date_o
444: => per_pcl_shd.g_old_rec.effective_end_date
438: => per_pcl_shd.g_old_rec.range_from
439: ,p_range_to_o
440: => per_pcl_shd.g_old_rec.range_to
441: ,p_effective_start_date_o
442: => per_pcl_shd.g_old_rec.effective_start_date
443: ,p_effective_end_date_o
444: => per_pcl_shd.g_old_rec.effective_end_date
445: ,p_parent_spine_id_o
446: => per_pcl_shd.g_old_rec.parent_spine_id
440: => per_pcl_shd.g_old_rec.range_to
441: ,p_effective_start_date_o
442: => per_pcl_shd.g_old_rec.effective_start_date
443: ,p_effective_end_date_o
444: => per_pcl_shd.g_old_rec.effective_end_date
445: ,p_parent_spine_id_o
446: => per_pcl_shd.g_old_rec.parent_spine_id
447: ,p_step_id_o
448: => per_pcl_shd.g_old_rec.step_id
442: => per_pcl_shd.g_old_rec.effective_start_date
443: ,p_effective_end_date_o
444: => per_pcl_shd.g_old_rec.effective_end_date
445: ,p_parent_spine_id_o
446: => per_pcl_shd.g_old_rec.parent_spine_id
447: ,p_step_id_o
448: => per_pcl_shd.g_old_rec.step_id
449: ,p_from_step_id_o
450: => per_pcl_shd.g_old_rec.from_step_id
444: => per_pcl_shd.g_old_rec.effective_end_date
445: ,p_parent_spine_id_o
446: => per_pcl_shd.g_old_rec.parent_spine_id
447: ,p_step_id_o
448: => per_pcl_shd.g_old_rec.step_id
449: ,p_from_step_id_o
450: => per_pcl_shd.g_old_rec.from_step_id
451: ,p_to_step_id_o
452: => per_pcl_shd.g_old_rec.to_step_id
446: => per_pcl_shd.g_old_rec.parent_spine_id
447: ,p_step_id_o
448: => per_pcl_shd.g_old_rec.step_id
449: ,p_from_step_id_o
450: => per_pcl_shd.g_old_rec.from_step_id
451: ,p_to_step_id_o
452: => per_pcl_shd.g_old_rec.to_step_id
453: ,p_status_o
454: => per_pcl_shd.g_old_rec.status
448: => per_pcl_shd.g_old_rec.step_id
449: ,p_from_step_id_o
450: => per_pcl_shd.g_old_rec.from_step_id
451: ,p_to_step_id_o
452: => per_pcl_shd.g_old_rec.to_step_id
453: ,p_status_o
454: => per_pcl_shd.g_old_rec.status
455: ,p_oipl_id_o
456: => per_pcl_shd.g_old_rec.oipl_id
450: => per_pcl_shd.g_old_rec.from_step_id
451: ,p_to_step_id_o
452: => per_pcl_shd.g_old_rec.to_step_id
453: ,p_status_o
454: => per_pcl_shd.g_old_rec.status
455: ,p_oipl_id_o
456: => per_pcl_shd.g_old_rec.oipl_id
457: ,p_object_version_number_o
458: => per_pcl_shd.g_old_rec.object_version_number
452: => per_pcl_shd.g_old_rec.to_step_id
453: ,p_status_o
454: => per_pcl_shd.g_old_rec.status
455: ,p_oipl_id_o
456: => per_pcl_shd.g_old_rec.oipl_id
457: ,p_object_version_number_o
458: => per_pcl_shd.g_old_rec.object_version_number
459: ,p_grade_spine_id_o
460: => per_pcl_shd.g_old_rec.grade_spine_id
454: => per_pcl_shd.g_old_rec.status
455: ,p_oipl_id_o
456: => per_pcl_shd.g_old_rec.oipl_id
457: ,p_object_version_number_o
458: => per_pcl_shd.g_old_rec.object_version_number
459: ,p_grade_spine_id_o
460: => per_pcl_shd.g_old_rec.grade_spine_id
461: ,p_eligy_prfl_id_o
462: => per_pcl_shd.g_old_rec.eligy_prfl_id
456: => per_pcl_shd.g_old_rec.oipl_id
457: ,p_object_version_number_o
458: => per_pcl_shd.g_old_rec.object_version_number
459: ,p_grade_spine_id_o
460: => per_pcl_shd.g_old_rec.grade_spine_id
461: ,p_eligy_prfl_id_o
462: => per_pcl_shd.g_old_rec.eligy_prfl_id
463: );
464: --
458: => per_pcl_shd.g_old_rec.object_version_number
459: ,p_grade_spine_id_o
460: => per_pcl_shd.g_old_rec.grade_spine_id
461: ,p_eligy_prfl_id_o
462: => per_pcl_shd.g_old_rec.eligy_prfl_id
463: );
464: --
465: exception
466: --
518: --
519: -- {End Of Comments}
520: -- ----------------------------------------------------------------------------
521: Procedure convert_defs
522: (p_rec in out nocopy per_pcl_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.cagr_entitlement_id = hr_api.g_number) then
533: p_rec.cagr_entitlement_id :=
534: per_pcl_shd.g_old_rec.cagr_entitlement_id;
535: End If;
536: If (p_rec.mandatory = hr_api.g_varchar2) then
537: p_rec.mandatory :=
538: per_pcl_shd.g_old_rec.mandatory;
534: per_pcl_shd.g_old_rec.cagr_entitlement_id;
535: End If;
536: If (p_rec.mandatory = hr_api.g_varchar2) then
537: p_rec.mandatory :=
538: per_pcl_shd.g_old_rec.mandatory;
539: End If;
540: If (p_rec.value = hr_api.g_varchar2) then
541: p_rec.value :=
542: per_pcl_shd.g_old_rec.value;
538: per_pcl_shd.g_old_rec.mandatory;
539: End If;
540: If (p_rec.value = hr_api.g_varchar2) then
541: p_rec.value :=
542: per_pcl_shd.g_old_rec.value;
543: End If;
544: If (p_rec.range_from = hr_api.g_varchar2) then
545: p_rec.range_from :=
546: per_pcl_shd.g_old_rec.range_from;
542: per_pcl_shd.g_old_rec.value;
543: End If;
544: If (p_rec.range_from = hr_api.g_varchar2) then
545: p_rec.range_from :=
546: per_pcl_shd.g_old_rec.range_from;
547: End If;
548: If (p_rec.range_to = hr_api.g_varchar2) then
549: p_rec.range_to :=
550: per_pcl_shd.g_old_rec.range_to;
546: per_pcl_shd.g_old_rec.range_from;
547: End If;
548: If (p_rec.range_to = hr_api.g_varchar2) then
549: p_rec.range_to :=
550: per_pcl_shd.g_old_rec.range_to;
551: End If;
552: If (p_rec.parent_spine_id = hr_api.g_number) then
553: p_rec.parent_spine_id :=
554: per_pcl_shd.g_old_rec.parent_spine_id;
550: per_pcl_shd.g_old_rec.range_to;
551: End If;
552: If (p_rec.parent_spine_id = hr_api.g_number) then
553: p_rec.parent_spine_id :=
554: per_pcl_shd.g_old_rec.parent_spine_id;
555: End If;
556: If (p_rec.step_id = hr_api.g_number) then
557: p_rec.step_id :=
558: per_pcl_shd.g_old_rec.step_id;
554: per_pcl_shd.g_old_rec.parent_spine_id;
555: End If;
556: If (p_rec.step_id = hr_api.g_number) then
557: p_rec.step_id :=
558: per_pcl_shd.g_old_rec.step_id;
559: End If;
560: If (p_rec.from_step_id = hr_api.g_number) then
561: p_rec.from_step_id :=
562: per_pcl_shd.g_old_rec.from_step_id;
558: per_pcl_shd.g_old_rec.step_id;
559: End If;
560: If (p_rec.from_step_id = hr_api.g_number) then
561: p_rec.from_step_id :=
562: per_pcl_shd.g_old_rec.from_step_id;
563: End If;
564: If (p_rec.to_step_id = hr_api.g_number) then
565: p_rec.to_step_id :=
566: per_pcl_shd.g_old_rec.to_step_id;
562: per_pcl_shd.g_old_rec.from_step_id;
563: End If;
564: If (p_rec.to_step_id = hr_api.g_number) then
565: p_rec.to_step_id :=
566: per_pcl_shd.g_old_rec.to_step_id;
567: End If;
568: If (p_rec.status = hr_api.g_varchar2) then
569: p_rec.status :=
570: per_pcl_shd.g_old_rec.status;
566: per_pcl_shd.g_old_rec.to_step_id;
567: End If;
568: If (p_rec.status = hr_api.g_varchar2) then
569: p_rec.status :=
570: per_pcl_shd.g_old_rec.status;
571: End If;
572: If (p_rec.oipl_id = hr_api.g_number) then
573: p_rec.oipl_id :=
574: per_pcl_shd.g_old_rec.oipl_id;
570: per_pcl_shd.g_old_rec.status;
571: End If;
572: If (p_rec.oipl_id = hr_api.g_number) then
573: p_rec.oipl_id :=
574: per_pcl_shd.g_old_rec.oipl_id;
575: End If;
576: If (p_rec.grade_spine_id = hr_api.g_number) then
577: p_rec.grade_spine_id :=
578: per_pcl_shd.g_old_rec.grade_spine_id;
574: per_pcl_shd.g_old_rec.oipl_id;
575: End If;
576: If (p_rec.grade_spine_id = hr_api.g_number) then
577: p_rec.grade_spine_id :=
578: per_pcl_shd.g_old_rec.grade_spine_id;
579: End If;
580: If (p_rec.eligy_prfl_id = hr_api.g_number) then
581: p_rec.eligy_prfl_id :=
582: per_pcl_shd.g_old_rec.eligy_prfl_id;
578: per_pcl_shd.g_old_rec.grade_spine_id;
579: End If;
580: If (p_rec.eligy_prfl_id = hr_api.g_number) then
581: p_rec.eligy_prfl_id :=
582: per_pcl_shd.g_old_rec.eligy_prfl_id;
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 per_pcl_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: per_pcl_shd.lck
610: (p_effective_date => p_effective_date
611: ,p_datetrack_mode => p_datetrack_mode
612: ,p_cagr_entitlement_line_id => p_rec.cagr_entitlement_line_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 per_pcl_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: per_pcl_shd.convert_args
701: (p_cagr_entitlement_line_id
702: ,p_cagr_entitlement_id
703: ,p_mandatory
704: ,p_value