48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in pay_bct_shd.g_rec_type
53: ) is
54: --
55: l_proc varchar2(72) := g_package||'delete_dml';
56: --
56: --
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: --
60: pay_bct_shd.g_api_dml := true; -- Set the api dml status
61: --
62: -- Delete the pay_batch_control_totals row.
63: --
64: delete from pay_batch_control_totals
63: --
64: delete from pay_batch_control_totals
65: where batch_control_id = p_rec.batch_control_id;
66: --
67: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
68: --
69: hr_utility.set_location(' Leaving:'||l_proc, 10);
70: --
71: Exception
70: --
71: Exception
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
75: pay_bct_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
71: Exception
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
75: pay_bct_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
79: Raise;
74: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
75: pay_bct_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: pay_bct_shd.g_api_dml := false; -- Unset the api dml status
79: Raise;
80: End delete_dml;
81: --
82: -- ----------------------------------------------------------------------------
110: -- Internal Row Handler Use Only.
111: --
112: -- {End Of Comments}
113: -- ----------------------------------------------------------------------------
114: Procedure pre_delete(p_rec in pay_bct_shd.g_rec_type) is
115: --
116: l_proc varchar2(72) := g_package||'pre_delete';
117: --
118: Begin
152: -- Internal Row Handler Use Only.
153: --
154: -- {End Of Comments}
155: -- -----------------------------------------------------------------------------
156: Procedure post_delete(p_rec in pay_bct_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
164: pay_bct_rkd.after_delete
165: (p_batch_control_id
166: => p_rec.batch_control_id
167: ,p_batch_id_o
168: => pay_bct_shd.g_old_rec.batch_id
169: ,p_control_status_o
170: => pay_bct_shd.g_old_rec.control_status
171: ,p_control_total_o
172: => pay_bct_shd.g_old_rec.control_total
166: => p_rec.batch_control_id
167: ,p_batch_id_o
168: => pay_bct_shd.g_old_rec.batch_id
169: ,p_control_status_o
170: => pay_bct_shd.g_old_rec.control_status
171: ,p_control_total_o
172: => pay_bct_shd.g_old_rec.control_total
173: ,p_control_type_o
174: => pay_bct_shd.g_old_rec.control_type
168: => pay_bct_shd.g_old_rec.batch_id
169: ,p_control_status_o
170: => pay_bct_shd.g_old_rec.control_status
171: ,p_control_total_o
172: => pay_bct_shd.g_old_rec.control_total
173: ,p_control_type_o
174: => pay_bct_shd.g_old_rec.control_type
175: ,p_object_version_number_o
176: => pay_bct_shd.g_old_rec.object_version_number
170: => pay_bct_shd.g_old_rec.control_status
171: ,p_control_total_o
172: => pay_bct_shd.g_old_rec.control_total
173: ,p_control_type_o
174: => pay_bct_shd.g_old_rec.control_type
175: ,p_object_version_number_o
176: => pay_bct_shd.g_old_rec.object_version_number
177: );
178: --
172: => pay_bct_shd.g_old_rec.control_total
173: ,p_control_type_o
174: => pay_bct_shd.g_old_rec.control_type
175: ,p_object_version_number_o
176: => pay_bct_shd.g_old_rec.object_version_number
177: );
178: --
179: exception
180: --
192: -- ----------------------------------------------------------------------------
193: -- |---------------------------------< del >----------------------------------|
194: -- ----------------------------------------------------------------------------
195: Procedure del
196: (p_rec in pay_bct_shd.g_rec_type
197: ) is
198: --
199: l_proc varchar2(72) := g_package||'del';
200: --
202: hr_utility.set_location('Entering:'||l_proc, 5);
203: --
204: -- We must lock the row which we need to delete.
205: --
206: pay_bct_shd.lck
207: (p_rec.batch_control_id
208: ,p_rec.object_version_number
209: );
210: --
233: (p_batch_control_id in number
234: ,p_object_version_number in number
235: ) is
236: --
237: l_rec pay_bct_shd.g_rec_type;
238: l_proc varchar2(72) := g_package||'del';
239: --
240: Begin
241: hr_utility.set_location('Entering:'||l_proc, 5);