47: -- Internal Row Handler Use Only.
48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml(p_rec in per_gra_shd.g_rec_type) is
52: --
53: l_proc varchar2(72) := g_package||'delete_dml';
54: --
55: Begin
54: --
55: Begin
56: hr_utility.set_location('Entering:'||l_proc, 5);
57: --
58: per_gra_shd.g_api_dml := true; -- Set the api dml status
59: --
60: -- Delete the per_cagr_grades row.
61: --
62: delete from per_cagr_grades
61: --
62: delete from per_cagr_grades
63: where cagr_grade_id = p_rec.cagr_grade_id;
64: --
65: per_gra_shd.g_api_dml := false; -- Unset the api dml status
66: --
67: hr_utility.set_location(' Leaving:'||l_proc, 10);
68: --
69: Exception
68: --
69: Exception
70: When hr_api.child_integrity_violated then
71: -- Child integrity has been violated
72: per_gra_shd.g_api_dml := false; -- Unset the api dml status
73: per_gra_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: per_gra_shd.g_api_dml := false; -- Unset the api dml status
69: Exception
70: When hr_api.child_integrity_violated then
71: -- Child integrity has been violated
72: per_gra_shd.g_api_dml := false; -- Unset the api dml status
73: per_gra_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: per_gra_shd.g_api_dml := false; -- Unset the api dml status
77: Raise;
72: per_gra_shd.g_api_dml := false; -- Unset the api dml status
73: per_gra_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: per_gra_shd.g_api_dml := false; -- Unset the api dml status
77: Raise;
78: End delete_dml;
79: --
80: -- ----------------------------------------------------------------------------
108: -- Internal Row Handler Use Only.
109: --
110: -- {End Of Comments}
111: -- ----------------------------------------------------------------------------
112: Procedure pre_delete(p_rec in per_gra_shd.g_rec_type,
113: p_effective_date in date ) is
114: --
115: l_proc varchar2(72) := g_package||'pre_delete';
116: --
151: -- Internal table Handler Use Only.
152: --
153: -- {End Of Comments}
154: -- ----------------------------------------------------------------------------
155: Procedure post_delete(p_rec in per_gra_shd.g_rec_type,
156: p_effective_date in date ) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
167: --
168: per_gra_rkd.after_delete
169: (
170: p_cagr_grade_id =>p_rec.cagr_grade_id
171: ,p_cagr_grade_structure_id_o =>per_gra_shd.g_old_rec.cagr_grade_structure_id
172: ,p_cagr_grade_def_id_o =>per_gra_shd.g_old_rec.cagr_grade_def_id
173: ,p_sequence_o =>per_gra_shd.g_old_rec.sequence
174: ,p_object_version_number_o =>per_gra_shd.g_old_rec.object_version_number
175: ,p_effective_date =>p_effective_date
168: per_gra_rkd.after_delete
169: (
170: p_cagr_grade_id =>p_rec.cagr_grade_id
171: ,p_cagr_grade_structure_id_o =>per_gra_shd.g_old_rec.cagr_grade_structure_id
172: ,p_cagr_grade_def_id_o =>per_gra_shd.g_old_rec.cagr_grade_def_id
173: ,p_sequence_o =>per_gra_shd.g_old_rec.sequence
174: ,p_object_version_number_o =>per_gra_shd.g_old_rec.object_version_number
175: ,p_effective_date =>p_effective_date
176: );
169: (
170: p_cagr_grade_id =>p_rec.cagr_grade_id
171: ,p_cagr_grade_structure_id_o =>per_gra_shd.g_old_rec.cagr_grade_structure_id
172: ,p_cagr_grade_def_id_o =>per_gra_shd.g_old_rec.cagr_grade_def_id
173: ,p_sequence_o =>per_gra_shd.g_old_rec.sequence
174: ,p_object_version_number_o =>per_gra_shd.g_old_rec.object_version_number
175: ,p_effective_date =>p_effective_date
176: );
177: --
170: p_cagr_grade_id =>p_rec.cagr_grade_id
171: ,p_cagr_grade_structure_id_o =>per_gra_shd.g_old_rec.cagr_grade_structure_id
172: ,p_cagr_grade_def_id_o =>per_gra_shd.g_old_rec.cagr_grade_def_id
173: ,p_sequence_o =>per_gra_shd.g_old_rec.sequence
174: ,p_object_version_number_o =>per_gra_shd.g_old_rec.object_version_number
175: ,p_effective_date =>p_effective_date
176: );
177: --
178: exception
195: -- |---------------------------------< del >----------------------------------|
196: -- ----------------------------------------------------------------------------
197: Procedure del
198: (
199: p_rec in per_gra_shd.g_rec_type,
200: p_effective_date in date
201: ) is
202: --
203: l_proc varchar2(72) := g_package||'del';
206: hr_utility.set_location('Entering:'||l_proc, 5);
207: --
208: -- We must lock the row which we need to delete.
209: --
210: per_gra_shd.lck
211: (
212: p_cagr_grade_id =>p_rec.cagr_grade_id,
213: p_object_version_number =>p_rec.object_version_number,
214: p_effective_date =>p_effective_date
246: p_object_version_number in number,
247: p_effective_date in date
248: ) is
249: --
250: l_rec per_gra_shd.g_rec_type;
251: l_proc varchar2(72) := g_package||'del';
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);