80: --
81: hr_utility.set_location(' Leaving:'||l_proc, 10);
82: --
83: Exception
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
87: pay_ncr_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
87: pay_ncr_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
92: pay_ncr_shd.constraint_error
85: -- A check constraint has been violated
86: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
87: pay_ncr_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
92: pay_ncr_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
92: pay_ncr_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
97: pay_ncr_shd.constraint_error
90: -- Parent integrity has been violated
91: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
92: pay_ncr_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
97: pay_ncr_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
97: pay_ncr_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When Others Then
100: pay_ncr_shd.g_api_dml := false; -- Unset the api dml status
101: Raise;
102: End update_dml;
204: );
205: --
206: exception
207: --
208: when hr_api.cannot_find_prog_unit then
209: --
210: hr_api.cannot_find_prog_unit_error
211: (p_module_name => 'pay_net_calculation_rules'
212: ,p_hook_type => 'AU');
206: exception
207: --
208: when hr_api.cannot_find_prog_unit then
209: --
210: hr_api.cannot_find_prog_unit_error
211: (p_module_name => 'pay_net_calculation_rules'
212: ,p_hook_type => 'AU');
213: --
214: end;
274: -- p_rec plsql record structure
275: -- to see if a system default is being used. If a system default
276: -- is being used then we must set to the 'current' argument value.
277: --
278: If (p_rec.accrual_plan_id = hr_api.g_number) then
279: p_rec.accrual_plan_id :=
280: pay_ncr_shd.g_old_rec.accrual_plan_id;
281: End If;
282: If (p_rec.business_group_id = hr_api.g_number) then
278: If (p_rec.accrual_plan_id = hr_api.g_number) then
279: p_rec.accrual_plan_id :=
280: pay_ncr_shd.g_old_rec.accrual_plan_id;
281: End If;
282: If (p_rec.business_group_id = hr_api.g_number) then
283: p_rec.business_group_id :=
284: pay_ncr_shd.g_old_rec.business_group_id;
285: End If;
286: If (p_rec.input_value_id = hr_api.g_number) then
282: If (p_rec.business_group_id = hr_api.g_number) then
283: p_rec.business_group_id :=
284: pay_ncr_shd.g_old_rec.business_group_id;
285: End If;
286: If (p_rec.input_value_id = hr_api.g_number) then
287: p_rec.input_value_id :=
288: pay_ncr_shd.g_old_rec.input_value_id;
289: End If;
290: If (p_rec.add_or_subtract = hr_api.g_varchar2) then
286: If (p_rec.input_value_id = hr_api.g_number) then
287: p_rec.input_value_id :=
288: pay_ncr_shd.g_old_rec.input_value_id;
289: End If;
290: If (p_rec.add_or_subtract = hr_api.g_varchar2) then
291: p_rec.add_or_subtract :=
292: pay_ncr_shd.g_old_rec.add_or_subtract;
293: End If;
294: If (p_rec.date_input_value_id = hr_api.g_number) then
290: If (p_rec.add_or_subtract = hr_api.g_varchar2) then
291: p_rec.add_or_subtract :=
292: pay_ncr_shd.g_old_rec.add_or_subtract;
293: End If;
294: If (p_rec.date_input_value_id = hr_api.g_number) then
295: p_rec.date_input_value_id :=
296: pay_ncr_shd.g_old_rec.date_input_value_id;
297: End If;
298:
349: -- ----------------------------------------------------------------------------
350: Procedure upd
351: (
352: p_net_calculation_rule_id in number,
353: p_accrual_plan_id in number default hr_api.g_number,
354: p_input_value_id in number default hr_api.g_number,
355: p_add_or_subtract in varchar2 default hr_api.g_varchar2,
356: p_date_input_value_id in number default hr_api.g_number,
357: p_object_version_number in out nocopy number
350: Procedure upd
351: (
352: p_net_calculation_rule_id in number,
353: p_accrual_plan_id in number default hr_api.g_number,
354: p_input_value_id in number default hr_api.g_number,
355: p_add_or_subtract in varchar2 default hr_api.g_varchar2,
356: p_date_input_value_id in number default hr_api.g_number,
357: p_object_version_number in out nocopy number
358: ) is
351: (
352: p_net_calculation_rule_id in number,
353: p_accrual_plan_id in number default hr_api.g_number,
354: p_input_value_id in number default hr_api.g_number,
355: p_add_or_subtract in varchar2 default hr_api.g_varchar2,
356: p_date_input_value_id in number default hr_api.g_number,
357: p_object_version_number in out nocopy number
358: ) is
359: --
352: p_net_calculation_rule_id in number,
353: p_accrual_plan_id in number default hr_api.g_number,
354: p_input_value_id in number default hr_api.g_number,
355: p_add_or_subtract in varchar2 default hr_api.g_varchar2,
356: p_date_input_value_id in number default hr_api.g_number,
357: p_object_version_number in out nocopy number
358: ) is
359: --
360: l_rec pay_ncr_shd.g_rec_type;
370: pay_ncr_shd.convert_args
371: (
372: p_net_calculation_rule_id,
373: p_accrual_plan_id,
374: hr_api.g_number,
375: p_input_value_id,
376: p_add_or_subtract,
377: p_date_input_value_id,
378: p_object_version_number