[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_pbf_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 => 'balance_feed_id'
80: ,p_base_key_value => p_rec.balance_feed_id
81: );
82: --
83: pay_pbf_shd.g_api_dml := true; -- Set the api dml status
84: --
85: -- Update the pay_balance_feeds_f Row
86: --
87: update pay_balance_feeds_f
97: where balance_feed_id = p_rec.balance_feed_id
98: and effective_start_date = p_validation_start_date
99: and effective_end_date = p_validation_end_date;
100: --
101: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
102: --
103: -- Set the effective start and end dates
104: --
105: p_rec.effective_start_date := p_validation_start_date;
109: hr_utility.set_location(' Leaving:'||l_proc, 15);
110: Exception
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
110: Exception
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121: When Others Then
122: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121: When Others Then
122: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
123: Raise;
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121: When Others Then
122: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
123: Raise;
124: End dt_update_dml;
125: --
126: -- ----------------------------------------------------------------------------
154: --
155: -- {End Of Comments}
156: -- ----------------------------------------------------------------------------
157: Procedure update_dml
158: (p_rec in out nocopy pay_pbf_shd.g_rec_type
159: ,p_effective_date in date
160: ,p_datetrack_mode in varchar2
161: ,p_validation_start_date in date
162: ,p_validation_end_date in date
221: --
222: -- {End Of Comments}
223: -- ----------------------------------------------------------------------------
224: Procedure dt_pre_update
225: (p_rec in out nocopy pay_pbf_shd.g_rec_type
226: ,p_effective_date in date
227: ,p_datetrack_mode in varchar2
228: ,p_validation_start_date in date
229: ,p_validation_end_date in date
237: If (p_datetrack_mode <> hr_api.g_correction) then
238: --
239: -- Update the current effective end date
240: --
241: pay_pbf_shd.upd_effective_end_date
242: (p_effective_date => p_effective_date
243: ,p_base_key_value => p_rec.balance_feed_id
244: ,p_new_effective_end_date => (p_validation_start_date - 1)
245: ,p_validation_start_date => p_validation_start_date
306: --
307: -- {End Of Comments}
308: -- ----------------------------------------------------------------------------
309: Procedure pre_update
310: (p_rec in out nocopy pay_pbf_shd.g_rec_type
311: ,p_effective_date in date
312: ,p_datetrack_mode in varchar2
313: ,p_validation_start_date in date
314: ,p_validation_end_date in date
364: --
365: -- {End Of Comments}
366: -- ----------------------------------------------------------------------------
367: Procedure post_update
368: (p_rec in pay_pbf_shd.g_rec_type
369: ,p_effective_date in date
370: ,p_datetrack_mode in varchar2
371: ,p_validation_start_date in date
372: ,p_validation_end_date in date
407: => p_rec.legislation_subgroup
408: ,p_object_version_number
409: => p_rec.object_version_number
410: ,p_effective_start_date_o
411: => pay_pbf_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_pbf_shd.g_old_rec.effective_end_date
414: ,p_business_group_id_o
415: => pay_pbf_shd.g_old_rec.business_group_id
409: => p_rec.object_version_number
410: ,p_effective_start_date_o
411: => pay_pbf_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_pbf_shd.g_old_rec.effective_end_date
414: ,p_business_group_id_o
415: => pay_pbf_shd.g_old_rec.business_group_id
416: ,p_legislation_code_o
417: => pay_pbf_shd.g_old_rec.legislation_code
411: => pay_pbf_shd.g_old_rec.effective_start_date
412: ,p_effective_end_date_o
413: => pay_pbf_shd.g_old_rec.effective_end_date
414: ,p_business_group_id_o
415: => pay_pbf_shd.g_old_rec.business_group_id
416: ,p_legislation_code_o
417: => pay_pbf_shd.g_old_rec.legislation_code
418: ,p_balance_type_id_o
419: => pay_pbf_shd.g_old_rec.balance_type_id
413: => pay_pbf_shd.g_old_rec.effective_end_date
414: ,p_business_group_id_o
415: => pay_pbf_shd.g_old_rec.business_group_id
416: ,p_legislation_code_o
417: => pay_pbf_shd.g_old_rec.legislation_code
418: ,p_balance_type_id_o
419: => pay_pbf_shd.g_old_rec.balance_type_id
420: ,p_input_value_id_o
421: => pay_pbf_shd.g_old_rec.input_value_id
415: => pay_pbf_shd.g_old_rec.business_group_id
416: ,p_legislation_code_o
417: => pay_pbf_shd.g_old_rec.legislation_code
418: ,p_balance_type_id_o
419: => pay_pbf_shd.g_old_rec.balance_type_id
420: ,p_input_value_id_o
421: => pay_pbf_shd.g_old_rec.input_value_id
422: ,p_scale_o
423: => pay_pbf_shd.g_old_rec.scale
417: => pay_pbf_shd.g_old_rec.legislation_code
418: ,p_balance_type_id_o
419: => pay_pbf_shd.g_old_rec.balance_type_id
420: ,p_input_value_id_o
421: => pay_pbf_shd.g_old_rec.input_value_id
422: ,p_scale_o
423: => pay_pbf_shd.g_old_rec.scale
424: ,p_legislation_subgroup_o
425: => pay_pbf_shd.g_old_rec.legislation_subgroup
419: => pay_pbf_shd.g_old_rec.balance_type_id
420: ,p_input_value_id_o
421: => pay_pbf_shd.g_old_rec.input_value_id
422: ,p_scale_o
423: => pay_pbf_shd.g_old_rec.scale
424: ,p_legislation_subgroup_o
425: => pay_pbf_shd.g_old_rec.legislation_subgroup
426: ,p_object_version_number_o
427: => pay_pbf_shd.g_old_rec.object_version_number
421: => pay_pbf_shd.g_old_rec.input_value_id
422: ,p_scale_o
423: => pay_pbf_shd.g_old_rec.scale
424: ,p_legislation_subgroup_o
425: => pay_pbf_shd.g_old_rec.legislation_subgroup
426: ,p_object_version_number_o
427: => pay_pbf_shd.g_old_rec.object_version_number
428: );
429: --
423: => pay_pbf_shd.g_old_rec.scale
424: ,p_legislation_subgroup_o
425: => pay_pbf_shd.g_old_rec.legislation_subgroup
426: ,p_object_version_number_o
427: => pay_pbf_shd.g_old_rec.object_version_number
428: );
429: --
430: exception
431: --
483: --
484: -- {End Of Comments}
485: -- ----------------------------------------------------------------------------
486: Procedure convert_defs
487: (p_rec in out nocopy pay_pbf_shd.g_rec_type
488: ) is
489: --
490: Begin
491: --
495: -- is being used then we must set to the 'current' argument value.
496: --
497: If (p_rec.business_group_id = hr_api.g_number) then
498: p_rec.business_group_id :=
499: pay_pbf_shd.g_old_rec.business_group_id;
500: End If;
501: If (p_rec.legislation_code = hr_api.g_varchar2) then
502: p_rec.legislation_code :=
503: pay_pbf_shd.g_old_rec.legislation_code;
499: pay_pbf_shd.g_old_rec.business_group_id;
500: End If;
501: If (p_rec.legislation_code = hr_api.g_varchar2) then
502: p_rec.legislation_code :=
503: pay_pbf_shd.g_old_rec.legislation_code;
504: End If;
505: If (p_rec.balance_type_id = hr_api.g_number) then
506: p_rec.balance_type_id :=
507: pay_pbf_shd.g_old_rec.balance_type_id;
503: pay_pbf_shd.g_old_rec.legislation_code;
504: End If;
505: If (p_rec.balance_type_id = hr_api.g_number) then
506: p_rec.balance_type_id :=
507: pay_pbf_shd.g_old_rec.balance_type_id;
508: End If;
509: If (p_rec.input_value_id = hr_api.g_number) then
510: p_rec.input_value_id :=
511: pay_pbf_shd.g_old_rec.input_value_id;
507: pay_pbf_shd.g_old_rec.balance_type_id;
508: End If;
509: If (p_rec.input_value_id = hr_api.g_number) then
510: p_rec.input_value_id :=
511: pay_pbf_shd.g_old_rec.input_value_id;
512: End If;
513: If (p_rec.scale = hr_api.g_number) then
514: p_rec.scale :=
515: pay_pbf_shd.g_old_rec.scale;
511: pay_pbf_shd.g_old_rec.input_value_id;
512: End If;
513: If (p_rec.scale = hr_api.g_number) then
514: p_rec.scale :=
515: pay_pbf_shd.g_old_rec.scale;
516: End If;
517: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
518: p_rec.legislation_subgroup :=
519: pay_pbf_shd.g_old_rec.legislation_subgroup;
515: pay_pbf_shd.g_old_rec.scale;
516: End If;
517: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
518: p_rec.legislation_subgroup :=
519: pay_pbf_shd.g_old_rec.legislation_subgroup;
520: End If;
521: --
522: End convert_defs;
523: --
526: -- ----------------------------------------------------------------------------
527: Procedure upd
528: (p_effective_date in date
529: ,p_datetrack_mode in varchar2
530: ,p_rec in out nocopy pay_pbf_shd.g_rec_type
531: ,p_exist_run_result_warning out nocopy boolean
532: ) is
533: --
534: l_proc varchar2(72) := g_package||'upd';
544: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
545: --
546: -- We must lock the row which we need to update.
547: --
548: pay_pbf_shd.lck
549: (p_effective_date => p_effective_date
550: ,p_datetrack_mode => p_datetrack_mode
551: ,p_balance_feed_id => p_rec.balance_feed_id
552: ,p_object_version_number => p_rec.object_version_number
626: ,p_effective_end_date out nocopy date
627: ,p_exist_run_result_warning out nocopy boolean
628: ) is
629: --
630: l_rec pay_pbf_shd.g_rec_type;
631: l_proc varchar2(72) := g_package||'upd';
632: l_exist_run_result_warning boolean;
633: --
634: Begin
637: -- Call conversion function to turn arguments into the
638: -- l_rec structure.
639: --
640: l_rec :=
641: pay_pbf_shd.convert_args
642: (p_balance_feed_id
643: ,null
644: ,null
645: ,p_business_group_id