54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pqh_rmr_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
112: Exception
113: When hr_api.check_integrity_violated Then
114: -- A check constraint has been violated
115: --
116: pqh_rmr_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: --
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: --
121: pqh_rmr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: --
125: Raise;
156: --
157: -- {End Of Comments}
158: -- ----------------------------------------------------------------------------
159: Procedure update_dml
160: (p_rec in out nocopy pqh_rmr_shd.g_rec_type
161: ,p_effective_date in date
162: ,p_datetrack_mode in varchar2
163: ,p_validation_start_date in date
164: ,p_validation_end_date in date
223: --
224: -- {End Of Comments}
225: -- ----------------------------------------------------------------------------
226: Procedure dt_pre_update
227: (p_rec in out nocopy pqh_rmr_shd.g_rec_type
228: ,p_effective_date in date
229: ,p_datetrack_mode in varchar2
230: ,p_validation_start_date in date
231: ,p_validation_end_date in date
239: If (p_datetrack_mode <> hr_api.g_correction) then
240: --
241: -- Update the current effective end date
242: --
243: pqh_rmr_shd.upd_effective_end_date
244: (p_effective_date => p_effective_date
245: ,p_base_key_value => p_rec.rate_matrix_rate_id
246: ,p_new_effective_end_date => (p_validation_start_date - 1)
247: ,p_validation_start_date => p_validation_start_date
308: --
309: -- {End Of Comments}
310: -- ----------------------------------------------------------------------------
311: Procedure pre_update
312: (p_rec in out nocopy pqh_rmr_shd.g_rec_type
313: ,p_effective_date in date
314: ,p_datetrack_mode in varchar2
315: ,p_validation_start_date in date
316: ,p_validation_end_date in date
366: --
367: -- {End Of Comments}
368: -- ----------------------------------------------------------------------------
369: Procedure post_update
370: (p_rec in pqh_rmr_shd.g_rec_type
371: ,p_effective_date in date
372: ,p_datetrack_mode in varchar2
373: ,p_validation_start_date in date
374: ,p_validation_end_date in date
413: => p_rec.legislation_code
414: ,p_object_version_number
415: => p_rec.object_version_number
416: ,p_effective_start_date_o
417: => pqh_rmr_shd.g_old_rec.effective_start_date
418: ,p_effective_end_date_o
419: => pqh_rmr_shd.g_old_rec.effective_end_date
420: ,p_rate_matrix_node_id_o
421: => pqh_rmr_shd.g_old_rec.rate_matrix_node_id
415: => p_rec.object_version_number
416: ,p_effective_start_date_o
417: => pqh_rmr_shd.g_old_rec.effective_start_date
418: ,p_effective_end_date_o
419: => pqh_rmr_shd.g_old_rec.effective_end_date
420: ,p_rate_matrix_node_id_o
421: => pqh_rmr_shd.g_old_rec.rate_matrix_node_id
422: ,p_criteria_rate_defn_id_o
423: => pqh_rmr_shd.g_old_rec.criteria_rate_defn_id
417: => pqh_rmr_shd.g_old_rec.effective_start_date
418: ,p_effective_end_date_o
419: => pqh_rmr_shd.g_old_rec.effective_end_date
420: ,p_rate_matrix_node_id_o
421: => pqh_rmr_shd.g_old_rec.rate_matrix_node_id
422: ,p_criteria_rate_defn_id_o
423: => pqh_rmr_shd.g_old_rec.criteria_rate_defn_id
424: ,p_min_rate_value_o
425: => pqh_rmr_shd.g_old_rec.min_rate_value
419: => pqh_rmr_shd.g_old_rec.effective_end_date
420: ,p_rate_matrix_node_id_o
421: => pqh_rmr_shd.g_old_rec.rate_matrix_node_id
422: ,p_criteria_rate_defn_id_o
423: => pqh_rmr_shd.g_old_rec.criteria_rate_defn_id
424: ,p_min_rate_value_o
425: => pqh_rmr_shd.g_old_rec.min_rate_value
426: ,p_max_rate_value_o
427: => pqh_rmr_shd.g_old_rec.max_rate_value
421: => pqh_rmr_shd.g_old_rec.rate_matrix_node_id
422: ,p_criteria_rate_defn_id_o
423: => pqh_rmr_shd.g_old_rec.criteria_rate_defn_id
424: ,p_min_rate_value_o
425: => pqh_rmr_shd.g_old_rec.min_rate_value
426: ,p_max_rate_value_o
427: => pqh_rmr_shd.g_old_rec.max_rate_value
428: ,p_mid_rate_value_o
429: => pqh_rmr_shd.g_old_rec.mid_rate_value
423: => pqh_rmr_shd.g_old_rec.criteria_rate_defn_id
424: ,p_min_rate_value_o
425: => pqh_rmr_shd.g_old_rec.min_rate_value
426: ,p_max_rate_value_o
427: => pqh_rmr_shd.g_old_rec.max_rate_value
428: ,p_mid_rate_value_o
429: => pqh_rmr_shd.g_old_rec.mid_rate_value
430: ,p_rate_value_o
431: => pqh_rmr_shd.g_old_rec.rate_value
425: => pqh_rmr_shd.g_old_rec.min_rate_value
426: ,p_max_rate_value_o
427: => pqh_rmr_shd.g_old_rec.max_rate_value
428: ,p_mid_rate_value_o
429: => pqh_rmr_shd.g_old_rec.mid_rate_value
430: ,p_rate_value_o
431: => pqh_rmr_shd.g_old_rec.rate_value
432: ,p_business_group_id_o
433: => pqh_rmr_shd.g_old_rec.business_group_id
427: => pqh_rmr_shd.g_old_rec.max_rate_value
428: ,p_mid_rate_value_o
429: => pqh_rmr_shd.g_old_rec.mid_rate_value
430: ,p_rate_value_o
431: => pqh_rmr_shd.g_old_rec.rate_value
432: ,p_business_group_id_o
433: => pqh_rmr_shd.g_old_rec.business_group_id
434: ,p_legislation_code_o
435: => pqh_rmr_shd.g_old_rec.legislation_code
429: => pqh_rmr_shd.g_old_rec.mid_rate_value
430: ,p_rate_value_o
431: => pqh_rmr_shd.g_old_rec.rate_value
432: ,p_business_group_id_o
433: => pqh_rmr_shd.g_old_rec.business_group_id
434: ,p_legislation_code_o
435: => pqh_rmr_shd.g_old_rec.legislation_code
436: ,p_object_version_number_o
437: => pqh_rmr_shd.g_old_rec.object_version_number
431: => pqh_rmr_shd.g_old_rec.rate_value
432: ,p_business_group_id_o
433: => pqh_rmr_shd.g_old_rec.business_group_id
434: ,p_legislation_code_o
435: => pqh_rmr_shd.g_old_rec.legislation_code
436: ,p_object_version_number_o
437: => pqh_rmr_shd.g_old_rec.object_version_number
438: );
439: --
433: => pqh_rmr_shd.g_old_rec.business_group_id
434: ,p_legislation_code_o
435: => pqh_rmr_shd.g_old_rec.legislation_code
436: ,p_object_version_number_o
437: => pqh_rmr_shd.g_old_rec.object_version_number
438: );
439: --
440: exception
441: --
493: --
494: -- {End Of Comments}
495: -- ----------------------------------------------------------------------------
496: Procedure convert_defs
497: (p_rec in out nocopy pqh_rmr_shd.g_rec_type
498: ) is
499: --
500: Begin
501: --
505: -- is being used then we must set to the 'current' argument value.
506: --
507: If (p_rec.rate_matrix_node_id = hr_api.g_number) then
508: p_rec.rate_matrix_node_id :=
509: pqh_rmr_shd.g_old_rec.rate_matrix_node_id;
510: End If;
511: If (p_rec.criteria_rate_defn_id = hr_api.g_number) then
512: p_rec.criteria_rate_defn_id :=
513: pqh_rmr_shd.g_old_rec.criteria_rate_defn_id;
509: pqh_rmr_shd.g_old_rec.rate_matrix_node_id;
510: End If;
511: If (p_rec.criteria_rate_defn_id = hr_api.g_number) then
512: p_rec.criteria_rate_defn_id :=
513: pqh_rmr_shd.g_old_rec.criteria_rate_defn_id;
514: End If;
515: If (p_rec.min_rate_value = hr_api.g_number) then
516: p_rec.min_rate_value :=
517: pqh_rmr_shd.g_old_rec.min_rate_value;
513: pqh_rmr_shd.g_old_rec.criteria_rate_defn_id;
514: End If;
515: If (p_rec.min_rate_value = hr_api.g_number) then
516: p_rec.min_rate_value :=
517: pqh_rmr_shd.g_old_rec.min_rate_value;
518: End If;
519: If (p_rec.max_rate_value = hr_api.g_number) then
520: p_rec.max_rate_value :=
521: pqh_rmr_shd.g_old_rec.max_rate_value;
517: pqh_rmr_shd.g_old_rec.min_rate_value;
518: End If;
519: If (p_rec.max_rate_value = hr_api.g_number) then
520: p_rec.max_rate_value :=
521: pqh_rmr_shd.g_old_rec.max_rate_value;
522: End If;
523: If (p_rec.mid_rate_value = hr_api.g_number) then
524: p_rec.mid_rate_value :=
525: pqh_rmr_shd.g_old_rec.mid_rate_value;
521: pqh_rmr_shd.g_old_rec.max_rate_value;
522: End If;
523: If (p_rec.mid_rate_value = hr_api.g_number) then
524: p_rec.mid_rate_value :=
525: pqh_rmr_shd.g_old_rec.mid_rate_value;
526: End If;
527: If (p_rec.rate_value = hr_api.g_number) then
528: p_rec.rate_value :=
529: pqh_rmr_shd.g_old_rec.rate_value;
525: pqh_rmr_shd.g_old_rec.mid_rate_value;
526: End If;
527: If (p_rec.rate_value = hr_api.g_number) then
528: p_rec.rate_value :=
529: pqh_rmr_shd.g_old_rec.rate_value;
530: End If;
531: If (p_rec.business_group_id = hr_api.g_number) then
532: p_rec.business_group_id :=
533: pqh_rmr_shd.g_old_rec.business_group_id;
529: pqh_rmr_shd.g_old_rec.rate_value;
530: End If;
531: If (p_rec.business_group_id = hr_api.g_number) then
532: p_rec.business_group_id :=
533: pqh_rmr_shd.g_old_rec.business_group_id;
534: End If;
535: If (p_rec.legislation_code = hr_api.g_varchar2) then
536: p_rec.legislation_code :=
537: pqh_rmr_shd.g_old_rec.legislation_code;
533: pqh_rmr_shd.g_old_rec.business_group_id;
534: End If;
535: If (p_rec.legislation_code = hr_api.g_varchar2) then
536: p_rec.legislation_code :=
537: pqh_rmr_shd.g_old_rec.legislation_code;
538: End If;
539: --
540: End convert_defs;
541: --
544: -- ----------------------------------------------------------------------------
545: Procedure upd
546: (p_effective_date in date
547: ,p_datetrack_mode in varchar2
548: ,p_rec in out nocopy pqh_rmr_shd.g_rec_type
549: ) is
550: --
551: l_proc varchar2(72) := g_package||'upd';
552: l_validation_start_date date;
560: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
561: --
562: -- We must lock the row which we need to update.
563: --
564: pqh_rmr_shd.lck
565: (p_effective_date => p_effective_date
566: ,p_datetrack_mode => p_datetrack_mode
567: ,p_rate_matrix_rate_id => p_rec.rate_matrix_rate_id
568: ,p_object_version_number => p_rec.object_version_number
642: ,p_effective_start_date out nocopy date
643: ,p_effective_end_date out nocopy date
644: ) is
645: --
646: l_rec pqh_rmr_shd.g_rec_type;
647: l_proc varchar2(72) := g_package||'upd';
648: --
649: Begin
650: hr_utility.set_location('Entering:'||l_proc, 5);
652: -- Call conversion function to turn arguments into the
653: -- l_rec structure.
654: --
655: l_rec :=
656: pqh_rmr_shd.convert_args
657: (p_rate_matrix_rate_id
658: ,null
659: ,null
660: ,p_rate_matrix_node_id