78: --
79: hr_utility.set_location(' Leaving:'||l_proc, 10);
80: --
81: Exception
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
85: pay_pwo_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
85: pay_pwo_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
90: pay_pwo_shd.constraint_error
83: -- A check constraint has been violated
84: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
85: pay_pwo_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
90: pay_pwo_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
90: pay_pwo_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
95: pay_pwo_shd.constraint_error
88: -- Parent integrity has been violated
89: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
90: pay_pwo_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
95: pay_pwo_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
95: pay_pwo_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When Others Then
98: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
99: Raise;
100: End update_dml;
201: );
202: --
203: exception
204: --
205: when hr_api.cannot_find_prog_unit then
206: --
207: hr_api.cannot_find_prog_unit_error
208: (p_module_name => 'pay_wci_occupations'
209: ,p_hook_type => 'AU');
203: exception
204: --
205: when hr_api.cannot_find_prog_unit then
206: --
207: hr_api.cannot_find_prog_unit_error
208: (p_module_name => 'pay_wci_occupations'
209: ,p_hook_type => 'AU');
210: --
211: end;
271: -- p_rec plsql record structure
272: -- to see if a system default is being used. If a system default
273: -- is being used then we must set to the 'current' argument value.
274: --
275: If (p_rec.business_group_id = hr_api.g_number) then
276: p_rec.business_group_id :=
277: pay_pwo_shd.g_old_rec.business_group_id;
278: End If;
279: If (p_rec.rate_id = hr_api.g_number) then
275: If (p_rec.business_group_id = hr_api.g_number) then
276: p_rec.business_group_id :=
277: pay_pwo_shd.g_old_rec.business_group_id;
278: End If;
279: If (p_rec.rate_id = hr_api.g_number) then
280: p_rec.rate_id :=
281: pay_pwo_shd.g_old_rec.rate_id;
282: End If;
283: If (p_rec.job_id = hr_api.g_number) then
279: If (p_rec.rate_id = hr_api.g_number) then
280: p_rec.rate_id :=
281: pay_pwo_shd.g_old_rec.rate_id;
282: End If;
283: If (p_rec.job_id = hr_api.g_number) then
284: p_rec.job_id :=
285: pay_pwo_shd.g_old_rec.job_id;
286: End If;
287: If (p_rec.comments = hr_api.g_varchar2) then
283: If (p_rec.job_id = hr_api.g_number) then
284: p_rec.job_id :=
285: pay_pwo_shd.g_old_rec.job_id;
286: End If;
287: If (p_rec.comments = hr_api.g_varchar2) then
288: p_rec.comments :=
289: pay_pwo_shd.g_old_rec.comments;
290: End If;
291:
342: -- ----------------------------------------------------------------------------
343: Procedure upd
344: (
345: p_occupation_id in number,
346: p_job_id in number default hr_api.g_number,
347: p_comments in varchar2 default hr_api.g_varchar2,
348: p_object_version_number in out nocopy number
349: ) is
350: --
343: Procedure upd
344: (
345: p_occupation_id in number,
346: p_job_id in number default hr_api.g_number,
347: p_comments in varchar2 default hr_api.g_varchar2,
348: p_object_version_number in out nocopy number
349: ) is
350: --
351: l_rec pay_pwo_shd.g_rec_type;
360: l_rec :=
361: pay_pwo_shd.convert_args
362: (
363: p_occupation_id,
364: hr_api.g_number,
365: hr_api.g_number,
366: p_job_id,
367: p_comments,
368: p_object_version_number
361: pay_pwo_shd.convert_args
362: (
363: p_occupation_id,
364: hr_api.g_number,
365: hr_api.g_number,
366: p_job_id,
367: p_comments,
368: p_object_version_number
369: );