51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_rcu_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: pay_rcu_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: pay_rcu_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: pay_rcu_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: --
105: Raise;
137: --
138: -- {End Of Comments}
139: -- ----------------------------------------------------------------------------
140: Procedure pre_update
141: (p_rec in pay_rcu_shd.g_rec_type
142: ) is
143: --
144: l_proc varchar2(72) := g_package||'pre_update';
145: --
182: -- {End Of Comments}
183: -- ----------------------------------------------------------------------------
184: Procedure post_update
185: (p_effective_date in date
186: ,p_rec in pay_rcu_shd.g_rec_type
187: ) is
188: --
189: l_proc varchar2(72) := g_package||'post_update';
190: p_element_type_id pay_entry_process_details.source_element_type_id%type;
218: => p_rec.replace_run_flag
219: ,p_use_override_dates
220: => p_rec.use_override_dates
221: ,p_business_group_id_o
222: => pay_rcu_shd.g_old_rec.business_group_id
223: ,p_legislation_code_o
224: => pay_rcu_shd.g_old_rec.legislation_code
225: ,p_retro_component_id_o
226: => pay_rcu_shd.g_old_rec.retro_component_id
220: => p_rec.use_override_dates
221: ,p_business_group_id_o
222: => pay_rcu_shd.g_old_rec.business_group_id
223: ,p_legislation_code_o
224: => pay_rcu_shd.g_old_rec.legislation_code
225: ,p_retro_component_id_o
226: => pay_rcu_shd.g_old_rec.retro_component_id
227: ,p_creator_id_o
228: => pay_rcu_shd.g_old_rec.creator_id
222: => pay_rcu_shd.g_old_rec.business_group_id
223: ,p_legislation_code_o
224: => pay_rcu_shd.g_old_rec.legislation_code
225: ,p_retro_component_id_o
226: => pay_rcu_shd.g_old_rec.retro_component_id
227: ,p_creator_id_o
228: => pay_rcu_shd.g_old_rec.creator_id
229: ,p_creator_type_o
230: => pay_rcu_shd.g_old_rec.creator_type
224: => pay_rcu_shd.g_old_rec.legislation_code
225: ,p_retro_component_id_o
226: => pay_rcu_shd.g_old_rec.retro_component_id
227: ,p_creator_id_o
228: => pay_rcu_shd.g_old_rec.creator_id
229: ,p_creator_type_o
230: => pay_rcu_shd.g_old_rec.creator_type
231: ,p_default_component_o
232: => pay_rcu_shd.g_old_rec.default_component
226: => pay_rcu_shd.g_old_rec.retro_component_id
227: ,p_creator_id_o
228: => pay_rcu_shd.g_old_rec.creator_id
229: ,p_creator_type_o
230: => pay_rcu_shd.g_old_rec.creator_type
231: ,p_default_component_o
232: => pay_rcu_shd.g_old_rec.default_component
233: ,p_reprocess_type_o
234: => pay_rcu_shd.g_old_rec.reprocess_type
228: => pay_rcu_shd.g_old_rec.creator_id
229: ,p_creator_type_o
230: => pay_rcu_shd.g_old_rec.creator_type
231: ,p_default_component_o
232: => pay_rcu_shd.g_old_rec.default_component
233: ,p_reprocess_type_o
234: => pay_rcu_shd.g_old_rec.reprocess_type
235: ,p_object_version_number_o
236: => pay_rcu_shd.g_old_rec.object_version_number
230: => pay_rcu_shd.g_old_rec.creator_type
231: ,p_default_component_o
232: => pay_rcu_shd.g_old_rec.default_component
233: ,p_reprocess_type_o
234: => pay_rcu_shd.g_old_rec.reprocess_type
235: ,p_object_version_number_o
236: => pay_rcu_shd.g_old_rec.object_version_number
237: ,p_replace_run_flag_o
238: => pay_rcu_shd.g_old_rec.replace_run_flag
232: => pay_rcu_shd.g_old_rec.default_component
233: ,p_reprocess_type_o
234: => pay_rcu_shd.g_old_rec.reprocess_type
235: ,p_object_version_number_o
236: => pay_rcu_shd.g_old_rec.object_version_number
237: ,p_replace_run_flag_o
238: => pay_rcu_shd.g_old_rec.replace_run_flag
239: ,p_use_override_dates_o
240: => pay_rcu_shd.g_old_rec.use_override_dates
234: => pay_rcu_shd.g_old_rec.reprocess_type
235: ,p_object_version_number_o
236: => pay_rcu_shd.g_old_rec.object_version_number
237: ,p_replace_run_flag_o
238: => pay_rcu_shd.g_old_rec.replace_run_flag
239: ,p_use_override_dates_o
240: => pay_rcu_shd.g_old_rec.use_override_dates
241: );
242: --
236: => pay_rcu_shd.g_old_rec.object_version_number
237: ,p_replace_run_flag_o
238: => pay_rcu_shd.g_old_rec.replace_run_flag
239: ,p_use_override_dates_o
240: => pay_rcu_shd.g_old_rec.use_override_dates
241: );
242: --
243: exception
244: --
334: --
335: -- {End Of Comments}
336: -- ----------------------------------------------------------------------------
337: Procedure convert_defs
338: (p_rec in out nocopy pay_rcu_shd.g_rec_type
339: ) is
340: --
341: Begin
342: --
346: -- is being used then we must set to the 'current' argument value.
347: --
348: If (p_rec.business_group_id = hr_api.g_number) then
349: p_rec.business_group_id :=
350: pay_rcu_shd.g_old_rec.business_group_id;
351: End If;
352: If (p_rec.legislation_code = hr_api.g_varchar2) then
353: p_rec.legislation_code :=
354: pay_rcu_shd.g_old_rec.legislation_code;
350: pay_rcu_shd.g_old_rec.business_group_id;
351: End If;
352: If (p_rec.legislation_code = hr_api.g_varchar2) then
353: p_rec.legislation_code :=
354: pay_rcu_shd.g_old_rec.legislation_code;
355: End If;
356: If (p_rec.retro_component_id = hr_api.g_number) then
357: p_rec.retro_component_id :=
358: pay_rcu_shd.g_old_rec.retro_component_id;
354: pay_rcu_shd.g_old_rec.legislation_code;
355: End If;
356: If (p_rec.retro_component_id = hr_api.g_number) then
357: p_rec.retro_component_id :=
358: pay_rcu_shd.g_old_rec.retro_component_id;
359: End If;
360: If (p_rec.creator_id = hr_api.g_number) then
361: p_rec.creator_id :=
362: pay_rcu_shd.g_old_rec.creator_id;
358: pay_rcu_shd.g_old_rec.retro_component_id;
359: End If;
360: If (p_rec.creator_id = hr_api.g_number) then
361: p_rec.creator_id :=
362: pay_rcu_shd.g_old_rec.creator_id;
363: End If;
364: If (p_rec.creator_type = hr_api.g_varchar2) then
365: p_rec.creator_type :=
366: pay_rcu_shd.g_old_rec.creator_type;
362: pay_rcu_shd.g_old_rec.creator_id;
363: End If;
364: If (p_rec.creator_type = hr_api.g_varchar2) then
365: p_rec.creator_type :=
366: pay_rcu_shd.g_old_rec.creator_type;
367: End If;
368: If (p_rec.default_component = hr_api.g_varchar2) then
369: p_rec.default_component :=
370: pay_rcu_shd.g_old_rec.default_component;
366: pay_rcu_shd.g_old_rec.creator_type;
367: End If;
368: If (p_rec.default_component = hr_api.g_varchar2) then
369: p_rec.default_component :=
370: pay_rcu_shd.g_old_rec.default_component;
371: End If;
372: If (p_rec.reprocess_type = hr_api.g_varchar2) then
373: p_rec.reprocess_type :=
374: pay_rcu_shd.g_old_rec.reprocess_type;
370: pay_rcu_shd.g_old_rec.default_component;
371: End If;
372: If (p_rec.reprocess_type = hr_api.g_varchar2) then
373: p_rec.reprocess_type :=
374: pay_rcu_shd.g_old_rec.reprocess_type;
375: End If;
376: If (p_rec.replace_run_flag = hr_api.g_varchar2) then
377: p_rec.replace_run_flag :=
378: pay_rcu_shd.g_old_rec.replace_run_flag;
374: pay_rcu_shd.g_old_rec.reprocess_type;
375: End If;
376: If (p_rec.replace_run_flag = hr_api.g_varchar2) then
377: p_rec.replace_run_flag :=
378: pay_rcu_shd.g_old_rec.replace_run_flag;
379: End If;
380: If (p_rec.use_override_dates = hr_api.g_varchar2) then
381: p_rec.use_override_dates :=
382: pay_rcu_shd.g_old_rec.use_override_dates;
378: pay_rcu_shd.g_old_rec.replace_run_flag;
379: End If;
380: If (p_rec.use_override_dates = hr_api.g_varchar2) then
381: p_rec.use_override_dates :=
382: pay_rcu_shd.g_old_rec.use_override_dates;
383: End If;
384: --
385: End convert_defs;
386: --
388: -- |---------------------------------< upd >----------------------------------|
389: -- ----------------------------------------------------------------------------
390: Procedure upd
391: (p_effective_date in date
392: ,p_rec in out nocopy pay_rcu_shd.g_rec_type
393: ) is
394: --
395: l_proc varchar2(72) := g_package||'upd';
396: --
398: hr_utility.set_location('Entering:'||l_proc, 5);
399: --
400: -- We must lock the row which we need to update.
401: --
402: pay_rcu_shd.lck
403: (p_rec.retro_component_usage_id
404: ,p_rec.object_version_number
405: );
406: --
453: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
454: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
455: ) is
456: --
457: l_rec pay_rcu_shd.g_rec_type;
458: l_proc varchar2(72) := g_package||'upd';
459: --
460: Begin
461: hr_utility.set_location('Entering:'||l_proc, 5);
463: -- Call conversion function to turn arguments into the
464: -- l_rec structure.
465: --
466: l_rec :=
467: pay_rcu_shd.convert_args
468: (p_retro_component_usage_id
469: ,hr_api.g_number
470: ,hr_api.g_varchar2
471: ,p_retro_component_id