54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy ame_cfv_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
73: -- Because we are updating a row we must get the next object
74: -- version number.
75: --
76: p_rec.object_version_number :=
77: ame_cfv_shd.get_object_version_number
78: (p_application_id => p_rec.application_id
79: ,p_variable_name => p_rec.variable_name
80: );
81: --
109: Exception
110: When hr_api.check_integrity_violated Then
111: -- A check constraint has been violated
112: --
113: ame_cfv_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.unique_integrity_violated Then
116: -- Unique integrity has been violated
117: --
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.unique_integrity_violated Then
116: -- Unique integrity has been violated
117: --
118: ame_cfv_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When Others Then
121: --
122: Raise;
153: --
154: -- {End Of Comments}
155: -- ----------------------------------------------------------------------------
156: Procedure update_dml
157: (p_rec in out nocopy ame_cfv_shd.g_rec_type
158: ,p_effective_date in date
159: ,p_datetrack_mode in varchar2
160: ,p_validation_start_date in date
161: ,p_validation_end_date in date
220: --
221: -- {End Of Comments}
222: -- ----------------------------------------------------------------------------
223: Procedure dt_pre_update
224: (p_rec in out nocopy ame_cfv_shd.g_rec_type
225: ,p_effective_date in date
226: ,p_datetrack_mode in varchar2
227: ,p_validation_start_date in date
228: ,p_validation_end_date in date
236: If (p_datetrack_mode <> hr_api.g_correction) then
237: --
238: -- Update the current effective end date
239: --
240: ame_cfv_shd.upd_end_date
241: (p_effective_date => p_effective_date
242: ,p_application_id => p_rec.application_id
243: ,p_variable_name => p_rec.variable_name
244: ,p_new_end_date => p_validation_start_date
304: --
305: -- {End Of Comments}
306: -- ----------------------------------------------------------------------------
307: Procedure pre_update
308: (p_rec in out nocopy ame_cfv_shd.g_rec_type
309: ,p_effective_date in date
310: ,p_datetrack_mode in varchar2
311: ,p_validation_start_date in date
312: ,p_validation_end_date in date
371: --
372: -- {End Of Comments}
373: -- ----------------------------------------------------------------------------
374: Procedure post_update
375: (p_rec in ame_cfv_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
410: => p_rec.security_group_id
411: ,p_object_version_number
412: => p_rec.object_version_number
413: ,p_variable_value_o
414: => ame_cfv_shd.g_old_rec.variable_value
415: ,p_description_o
416: => ame_cfv_shd.g_old_rec.description
417: ,p_start_date_o
418: => ame_cfv_shd.g_old_rec.start_date
412: => p_rec.object_version_number
413: ,p_variable_value_o
414: => ame_cfv_shd.g_old_rec.variable_value
415: ,p_description_o
416: => ame_cfv_shd.g_old_rec.description
417: ,p_start_date_o
418: => ame_cfv_shd.g_old_rec.start_date
419: ,p_end_date_o
420: => ame_cfv_shd.g_old_rec.end_date
414: => ame_cfv_shd.g_old_rec.variable_value
415: ,p_description_o
416: => ame_cfv_shd.g_old_rec.description
417: ,p_start_date_o
418: => ame_cfv_shd.g_old_rec.start_date
419: ,p_end_date_o
420: => ame_cfv_shd.g_old_rec.end_date
421: ,p_security_group_id_o
422: => ame_cfv_shd.g_old_rec.security_group_id
416: => ame_cfv_shd.g_old_rec.description
417: ,p_start_date_o
418: => ame_cfv_shd.g_old_rec.start_date
419: ,p_end_date_o
420: => ame_cfv_shd.g_old_rec.end_date
421: ,p_security_group_id_o
422: => ame_cfv_shd.g_old_rec.security_group_id
423: ,p_object_version_number_o
424: => ame_cfv_shd.g_old_rec.object_version_number
418: => ame_cfv_shd.g_old_rec.start_date
419: ,p_end_date_o
420: => ame_cfv_shd.g_old_rec.end_date
421: ,p_security_group_id_o
422: => ame_cfv_shd.g_old_rec.security_group_id
423: ,p_object_version_number_o
424: => ame_cfv_shd.g_old_rec.object_version_number
425: );
426: --
420: => ame_cfv_shd.g_old_rec.end_date
421: ,p_security_group_id_o
422: => ame_cfv_shd.g_old_rec.security_group_id
423: ,p_object_version_number_o
424: => ame_cfv_shd.g_old_rec.object_version_number
425: );
426: --
427: exception
428: --
480: --
481: -- {End Of Comments}
482: -- ----------------------------------------------------------------------------
483: Procedure convert_defs
484: (p_rec in out nocopy ame_cfv_shd.g_rec_type
485: ) is
486: --
487: Begin
488: --
492: -- is being used then we must set to the 'current' argument value.
493: --
494: If (p_rec.variable_value = hr_api.g_varchar2) then
495: p_rec.variable_value :=
496: ame_cfv_shd.g_old_rec.variable_value;
497: End If;
498: If (p_rec.description = hr_api.g_varchar2) then
499: p_rec.description :=
500: ame_cfv_shd.g_old_rec.description;
496: ame_cfv_shd.g_old_rec.variable_value;
497: End If;
498: If (p_rec.description = hr_api.g_varchar2) then
499: p_rec.description :=
500: ame_cfv_shd.g_old_rec.description;
501: End If;
502: If (p_rec.security_group_id = hr_api.g_number) then
503: p_rec.security_group_id :=
504: ame_cfv_shd.g_old_rec.security_group_id;
500: ame_cfv_shd.g_old_rec.description;
501: End If;
502: If (p_rec.security_group_id = hr_api.g_number) then
503: p_rec.security_group_id :=
504: ame_cfv_shd.g_old_rec.security_group_id;
505: End If;
506: --
507: End convert_defs;
508: --
511: -- ----------------------------------------------------------------------------
512: Procedure upd
513: (p_effective_date in date
514: ,p_datetrack_mode in varchar2
515: ,p_rec in out nocopy ame_cfv_shd.g_rec_type
516: ) is
517: --
518: l_proc varchar2(72) := g_package||'upd';
519: l_validation_start_date date;
527: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
528: --
529: -- We must lock the row which we need to update.
530: --
531: ame_cfv_shd.lck
532: (p_effective_date => p_effective_date
533: ,p_datetrack_mode => p_datetrack_mode
534: ,p_application_id => p_rec.application_id
535: ,p_variable_name => p_rec.variable_name
605: ,p_start_date out nocopy date
606: ,p_end_date out nocopy date
607: ) is
608: --
609: l_rec ame_cfv_shd.g_rec_type;
610: l_proc varchar2(72) := g_package||'upd';
611: --
612: Begin
613: hr_utility.set_location('Entering:'||l_proc, 5);
615: -- Call conversion function to turn arguments into the
616: -- l_rec structure.
617: --
618: l_rec :=
619: ame_cfv_shd.convert_args
620: (p_application_id
621: ,p_variable_name
622: ,p_variable_value
623: ,null