54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_evc_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
114: Exception
115: When hr_api.check_integrity_violated Then
116: -- A check constraint has been violated
117: --
118: pay_evc_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
122: --
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.unique_integrity_violated Then
121: -- Unique integrity has been violated
122: --
123: pay_evc_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When Others Then
126: --
127: Raise;
158: --
159: -- {End Of Comments}
160: -- ----------------------------------------------------------------------------
161: Procedure update_dml
162: (p_rec in out nocopy pay_evc_shd.g_rec_type
163: ,p_effective_date in date
164: ,p_datetrack_mode in varchar2
165: ,p_validation_start_date in date
166: ,p_validation_end_date in date
225: --
226: -- {End Of Comments}
227: -- ----------------------------------------------------------------------------
228: Procedure dt_pre_update
229: (p_rec in out nocopy pay_evc_shd.g_rec_type
230: ,p_effective_date in date
231: ,p_datetrack_mode in varchar2
232: ,p_validation_start_date in date
233: ,p_validation_end_date in date
241: If (p_datetrack_mode <> hr_api.g_correction) then
242: --
243: -- Update the current effective end date
244: --
245: pay_evc_shd.upd_effective_end_date
246: (p_effective_date => p_effective_date
247: ,p_base_key_value => p_rec.event_value_change_id
248: ,p_new_effective_end_date => (p_validation_start_date - 1)
249: ,p_validation_start_date => p_validation_start_date
310: --
311: -- {End Of Comments}
312: -- ----------------------------------------------------------------------------
313: Procedure pre_update
314: (p_rec in out nocopy pay_evc_shd.g_rec_type
315: ,p_effective_date in date
316: ,p_datetrack_mode in varchar2
317: ,p_validation_start_date in date
318: ,p_validation_end_date in date
368: --
369: -- {End Of Comments}
370: -- ----------------------------------------------------------------------------
371: Procedure post_update
372: (p_rec in pay_evc_shd.g_rec_type
373: ,p_effective_date in date
374: ,p_datetrack_mode in varchar2
375: ,p_validation_start_date in date
376: ,p_validation_end_date in date
407: => p_rec.qualifier_value
408: ,p_object_version_number
409: => p_rec.object_version_number
410: ,p_effective_start_date_o
411: => pay_evc_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_evc_shd.g_old_rec.effective_end_date
414: ,p_event_qualifier_id_o
415: => pay_evc_shd.g_old_rec.event_qualifier_id
409: => p_rec.object_version_number
410: ,p_effective_start_date_o
411: => pay_evc_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_evc_shd.g_old_rec.effective_end_date
414: ,p_event_qualifier_id_o
415: => pay_evc_shd.g_old_rec.event_qualifier_id
416: ,p_datetracked_event_id_o
417: => pay_evc_shd.g_old_rec.datetracked_event_id
411: => pay_evc_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_evc_shd.g_old_rec.effective_end_date
414: ,p_event_qualifier_id_o
415: => pay_evc_shd.g_old_rec.event_qualifier_id
416: ,p_datetracked_event_id_o
417: => pay_evc_shd.g_old_rec.datetracked_event_id
418: ,p_default_event_o
419: => pay_evc_shd.g_old_rec.default_event
413: => pay_evc_shd.g_old_rec.effective_end_date
414: ,p_event_qualifier_id_o
415: => pay_evc_shd.g_old_rec.event_qualifier_id
416: ,p_datetracked_event_id_o
417: => pay_evc_shd.g_old_rec.datetracked_event_id
418: ,p_default_event_o
419: => pay_evc_shd.g_old_rec.default_event
420: ,p_valid_event_o
421: => pay_evc_shd.g_old_rec.valid_event
415: => pay_evc_shd.g_old_rec.event_qualifier_id
416: ,p_datetracked_event_id_o
417: => pay_evc_shd.g_old_rec.datetracked_event_id
418: ,p_default_event_o
419: => pay_evc_shd.g_old_rec.default_event
420: ,p_valid_event_o
421: => pay_evc_shd.g_old_rec.valid_event
422: ,p_business_group_id_o
423: => pay_evc_shd.g_old_rec.business_group_id
417: => pay_evc_shd.g_old_rec.datetracked_event_id
418: ,p_default_event_o
419: => pay_evc_shd.g_old_rec.default_event
420: ,p_valid_event_o
421: => pay_evc_shd.g_old_rec.valid_event
422: ,p_business_group_id_o
423: => pay_evc_shd.g_old_rec.business_group_id
424: ,p_legislation_code_o
425: => pay_evc_shd.g_old_rec.legislation_code
419: => pay_evc_shd.g_old_rec.default_event
420: ,p_valid_event_o
421: => pay_evc_shd.g_old_rec.valid_event
422: ,p_business_group_id_o
423: => pay_evc_shd.g_old_rec.business_group_id
424: ,p_legislation_code_o
425: => pay_evc_shd.g_old_rec.legislation_code
426: ,p_from_value_o
427: => pay_evc_shd.g_old_rec.from_value
421: => pay_evc_shd.g_old_rec.valid_event
422: ,p_business_group_id_o
423: => pay_evc_shd.g_old_rec.business_group_id
424: ,p_legislation_code_o
425: => pay_evc_shd.g_old_rec.legislation_code
426: ,p_from_value_o
427: => pay_evc_shd.g_old_rec.from_value
428: ,p_to_value_o
429: => pay_evc_shd.g_old_rec.to_value
423: => pay_evc_shd.g_old_rec.business_group_id
424: ,p_legislation_code_o
425: => pay_evc_shd.g_old_rec.legislation_code
426: ,p_from_value_o
427: => pay_evc_shd.g_old_rec.from_value
428: ,p_to_value_o
429: => pay_evc_shd.g_old_rec.to_value
430: ,p_proration_style_o
431: => pay_evc_shd.g_old_rec.proration_style
425: => pay_evc_shd.g_old_rec.legislation_code
426: ,p_from_value_o
427: => pay_evc_shd.g_old_rec.from_value
428: ,p_to_value_o
429: => pay_evc_shd.g_old_rec.to_value
430: ,p_proration_style_o
431: => pay_evc_shd.g_old_rec.proration_style
432: ,p_qualifier_value_o
433: => pay_evc_shd.g_old_rec.qualifier_value
427: => pay_evc_shd.g_old_rec.from_value
428: ,p_to_value_o
429: => pay_evc_shd.g_old_rec.to_value
430: ,p_proration_style_o
431: => pay_evc_shd.g_old_rec.proration_style
432: ,p_qualifier_value_o
433: => pay_evc_shd.g_old_rec.qualifier_value
434: ,p_object_version_number_o
435: => pay_evc_shd.g_old_rec.object_version_number
429: => pay_evc_shd.g_old_rec.to_value
430: ,p_proration_style_o
431: => pay_evc_shd.g_old_rec.proration_style
432: ,p_qualifier_value_o
433: => pay_evc_shd.g_old_rec.qualifier_value
434: ,p_object_version_number_o
435: => pay_evc_shd.g_old_rec.object_version_number
436: );
437: --
431: => pay_evc_shd.g_old_rec.proration_style
432: ,p_qualifier_value_o
433: => pay_evc_shd.g_old_rec.qualifier_value
434: ,p_object_version_number_o
435: => pay_evc_shd.g_old_rec.object_version_number
436: );
437: --
438: exception
439: --
491: --
492: -- {End Of Comments}
493: -- ----------------------------------------------------------------------------
494: Procedure convert_defs
495: (p_rec in out nocopy pay_evc_shd.g_rec_type
496: ) is
497: --
498: Begin
499: --
503: -- is being used then we must set to the 'current' argument value.
504: --
505: If (p_rec.event_qualifier_id = hr_api.g_number) then
506: p_rec.event_qualifier_id :=
507: pay_evc_shd.g_old_rec.event_qualifier_id;
508: End If;
509: If (p_rec.datetracked_event_id = hr_api.g_number) then
510: p_rec.datetracked_event_id :=
511: pay_evc_shd.g_old_rec.datetracked_event_id;
507: pay_evc_shd.g_old_rec.event_qualifier_id;
508: End If;
509: If (p_rec.datetracked_event_id = hr_api.g_number) then
510: p_rec.datetracked_event_id :=
511: pay_evc_shd.g_old_rec.datetracked_event_id;
512: End If;
513: If (p_rec.default_event = hr_api.g_varchar2) then
514: p_rec.default_event :=
515: pay_evc_shd.g_old_rec.default_event;
511: pay_evc_shd.g_old_rec.datetracked_event_id;
512: End If;
513: If (p_rec.default_event = hr_api.g_varchar2) then
514: p_rec.default_event :=
515: pay_evc_shd.g_old_rec.default_event;
516: End If;
517: If (p_rec.valid_event = hr_api.g_varchar2) then
518: p_rec.valid_event :=
519: pay_evc_shd.g_old_rec.valid_event;
515: pay_evc_shd.g_old_rec.default_event;
516: End If;
517: If (p_rec.valid_event = hr_api.g_varchar2) then
518: p_rec.valid_event :=
519: pay_evc_shd.g_old_rec.valid_event;
520: End If;
521: If (p_rec.business_group_id = hr_api.g_number) then
522: p_rec.business_group_id :=
523: pay_evc_shd.g_old_rec.business_group_id;
519: pay_evc_shd.g_old_rec.valid_event;
520: End If;
521: If (p_rec.business_group_id = hr_api.g_number) then
522: p_rec.business_group_id :=
523: pay_evc_shd.g_old_rec.business_group_id;
524: End If;
525: If (p_rec.legislation_code = hr_api.g_varchar2) then
526: p_rec.legislation_code :=
527: pay_evc_shd.g_old_rec.legislation_code;
523: pay_evc_shd.g_old_rec.business_group_id;
524: End If;
525: If (p_rec.legislation_code = hr_api.g_varchar2) then
526: p_rec.legislation_code :=
527: pay_evc_shd.g_old_rec.legislation_code;
528: End If;
529: If (p_rec.from_value = hr_api.g_varchar2) then
530: p_rec.from_value :=
531: pay_evc_shd.g_old_rec.from_value;
527: pay_evc_shd.g_old_rec.legislation_code;
528: End If;
529: If (p_rec.from_value = hr_api.g_varchar2) then
530: p_rec.from_value :=
531: pay_evc_shd.g_old_rec.from_value;
532: End If;
533: If (p_rec.to_value = hr_api.g_varchar2) then
534: p_rec.to_value :=
535: pay_evc_shd.g_old_rec.to_value;
531: pay_evc_shd.g_old_rec.from_value;
532: End If;
533: If (p_rec.to_value = hr_api.g_varchar2) then
534: p_rec.to_value :=
535: pay_evc_shd.g_old_rec.to_value;
536: End If;
537: If (p_rec.proration_style = hr_api.g_varchar2) then
538: p_rec.proration_style :=
539: pay_evc_shd.g_old_rec.proration_style;
535: pay_evc_shd.g_old_rec.to_value;
536: End If;
537: If (p_rec.proration_style = hr_api.g_varchar2) then
538: p_rec.proration_style :=
539: pay_evc_shd.g_old_rec.proration_style;
540: End If;
541: If (p_rec.qualifier_value = hr_api.g_varchar2) then
542: p_rec.qualifier_value :=
543: pay_evc_shd.g_old_rec.qualifier_value;
539: pay_evc_shd.g_old_rec.proration_style;
540: End If;
541: If (p_rec.qualifier_value = hr_api.g_varchar2) then
542: p_rec.qualifier_value :=
543: pay_evc_shd.g_old_rec.qualifier_value;
544: End If;
545: --
546: End convert_defs;
547: --
550: -- ----------------------------------------------------------------------------
551: Procedure upd
552: (p_effective_date in date
553: ,p_datetrack_mode in varchar2
554: ,p_rec in out nocopy pay_evc_shd.g_rec_type
555: ) is
556: --
557: l_proc varchar2(72) := g_package||'upd';
558: l_validation_start_date date;
566: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
567: --
568: -- We must lock the row which we need to update.
569: --
570: pay_evc_shd.lck
571: (p_effective_date => p_effective_date
572: ,p_datetrack_mode => p_datetrack_mode
573: ,p_event_value_change_id => p_rec.event_value_change_id
574: ,p_object_version_number => p_rec.object_version_number
645: ,p_effective_start_date out nocopy date
646: ,p_effective_end_date out nocopy date
647: ) is
648: --
649: l_rec pay_evc_shd.g_rec_type;
650: l_proc varchar2(72) := g_package||'upd';
651: --
652: Begin
653: hr_utility.set_location('Entering:'||l_proc, 5);
655: -- Call conversion function to turn arguments into the
656: -- l_rec structure.
657: --
658: l_rec :=
659: pay_evc_shd.convert_args
660: (p_event_value_change_id
661: ,null
662: ,null
663: ,hr_api.g_number