47: -- Internal Row Handler Use Only.
48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml(p_rec in pay_pwo_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: pay_pwo_shd.g_api_dml := true; -- Set the api dml status
59: --
60: -- Delete the pay_wci_occupations row.
61: --
62: delete from pay_wci_occupations
61: --
62: delete from pay_wci_occupations
63: where occupation_id = p_rec.occupation_id;
64: --
65: pay_pwo_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: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
73: pay_pwo_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: pay_pwo_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: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
73: pay_pwo_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
77: Raise;
72: pay_pwo_shd.g_api_dml := false; -- Unset the api dml status
73: pay_pwo_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: pay_pwo_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 pay_pwo_shd.g_rec_type) is
113: --
114: l_proc varchar2(72) := g_package||'pre_delete';
115: --
116: Begin
150: -- Internal table Handler Use Only.
151: --
152: -- {End Of Comments}
153: -- ----------------------------------------------------------------------------
154: Procedure post_delete(p_rec in pay_pwo_shd.g_rec_type) is
155: --
156: l_proc varchar2(72) := g_package||'post_delete';
157: --
158: Begin
165: --
166: pay_pwo_rkd.after_delete
167: (
168: p_occupation_id =>p_rec.occupation_id
169: ,p_business_group_id_o =>pay_pwo_shd.g_old_rec.business_group_id
170: ,p_rate_id_o =>pay_pwo_shd.g_old_rec.rate_id
171: ,p_job_id_o =>pay_pwo_shd.g_old_rec.job_id
172: ,p_comments_o =>pay_pwo_shd.g_old_rec.comments
173: ,p_object_version_number_o =>pay_pwo_shd.g_old_rec.object_version_number
166: pay_pwo_rkd.after_delete
167: (
168: p_occupation_id =>p_rec.occupation_id
169: ,p_business_group_id_o =>pay_pwo_shd.g_old_rec.business_group_id
170: ,p_rate_id_o =>pay_pwo_shd.g_old_rec.rate_id
171: ,p_job_id_o =>pay_pwo_shd.g_old_rec.job_id
172: ,p_comments_o =>pay_pwo_shd.g_old_rec.comments
173: ,p_object_version_number_o =>pay_pwo_shd.g_old_rec.object_version_number
174: );
167: (
168: p_occupation_id =>p_rec.occupation_id
169: ,p_business_group_id_o =>pay_pwo_shd.g_old_rec.business_group_id
170: ,p_rate_id_o =>pay_pwo_shd.g_old_rec.rate_id
171: ,p_job_id_o =>pay_pwo_shd.g_old_rec.job_id
172: ,p_comments_o =>pay_pwo_shd.g_old_rec.comments
173: ,p_object_version_number_o =>pay_pwo_shd.g_old_rec.object_version_number
174: );
175: --
168: p_occupation_id =>p_rec.occupation_id
169: ,p_business_group_id_o =>pay_pwo_shd.g_old_rec.business_group_id
170: ,p_rate_id_o =>pay_pwo_shd.g_old_rec.rate_id
171: ,p_job_id_o =>pay_pwo_shd.g_old_rec.job_id
172: ,p_comments_o =>pay_pwo_shd.g_old_rec.comments
173: ,p_object_version_number_o =>pay_pwo_shd.g_old_rec.object_version_number
174: );
175: --
176: exception
169: ,p_business_group_id_o =>pay_pwo_shd.g_old_rec.business_group_id
170: ,p_rate_id_o =>pay_pwo_shd.g_old_rec.rate_id
171: ,p_job_id_o =>pay_pwo_shd.g_old_rec.job_id
172: ,p_comments_o =>pay_pwo_shd.g_old_rec.comments
173: ,p_object_version_number_o =>pay_pwo_shd.g_old_rec.object_version_number
174: );
175: --
176: exception
177: --
193: -- |---------------------------------< del >----------------------------------|
194: -- ----------------------------------------------------------------------------
195: Procedure del
196: (
197: p_rec in pay_pwo_shd.g_rec_type
198: ) is
199: --
200: l_proc varchar2(72) := g_package||'del';
201: --
203: hr_utility.set_location('Entering:'||l_proc, 5);
204: --
205: -- We must lock the row which we need to delete.
206: --
207: pay_pwo_shd.lck
208: (
209: p_rec.occupation_id,
210: p_rec.object_version_number
211: );
235: p_occupation_id in number,
236: p_object_version_number in number
237: ) is
238: --
239: l_rec pay_pwo_shd.g_rec_type;
240: l_proc varchar2(72) := g_package||'del';
241: --
242: Begin
243: hr_utility.set_location('Entering:'||l_proc, 5);