82: --
83: -- {End Of Comments}
84: -- ----------------------------------------------------------------------------
85: Procedure delete_dml
86: (p_rec in pay_put_shd.g_rec_type
87: ) is
88: --
89: l_proc varchar2(72) := g_package||'delete_dml';
90: --
90: --
91: Begin
92: hr_utility.set_location('Entering:'||l_proc, 5);
93: --
94: pay_put_shd.g_api_dml := true; -- Set the api dml status
95: --
96: -- Delete the pay_user_tables row.
97: --
98: delete from pay_user_tables
97: --
98: delete from pay_user_tables
99: where user_table_id = p_rec.user_table_id;
100: --
101: pay_put_shd.g_api_dml := false; -- Unset the api dml status
102: --
103: hr_utility.set_location(' Leaving:'||l_proc, 10);
104: --
105: Exception
104: --
105: Exception
106: When hr_api.child_integrity_violated then
107: -- Child integrity has been violated
108: pay_put_shd.g_api_dml := false; -- Unset the api dml status
109: pay_put_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When Others Then
112: pay_put_shd.g_api_dml := false; -- Unset the api dml status
105: Exception
106: When hr_api.child_integrity_violated then
107: -- Child integrity has been violated
108: pay_put_shd.g_api_dml := false; -- Unset the api dml status
109: pay_put_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When Others Then
112: pay_put_shd.g_api_dml := false; -- Unset the api dml status
113: Raise;
108: pay_put_shd.g_api_dml := false; -- Unset the api dml status
109: pay_put_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When Others Then
112: pay_put_shd.g_api_dml := false; -- Unset the api dml status
113: Raise;
114: End delete_dml;
115: --
116: -- ----------------------------------------------------------------------------
144: -- Internal Row Handler Use Only.
145: --
146: -- {End Of Comments}
147: -- ----------------------------------------------------------------------------
148: Procedure pre_delete(p_rec in pay_put_shd.g_rec_type) is
149: --
150: l_proc varchar2(72) := g_package||'pre_delete';
151: --
152: Begin
186: -- Internal Row Handler Use Only.
187: --
188: -- {End Of Comments}
189: -- -----------------------------------------------------------------------------
190: Procedure post_delete(p_rec in pay_put_shd.g_rec_type) is
191: --
192: l_proc varchar2(72) := g_package||'post_delete';
193: --
194: Begin
203: pay_put_rkd.after_delete
204: (p_user_table_id
205: => p_rec.user_table_id
206: ,p_business_group_id_o
207: => pay_put_shd.g_old_rec.business_group_id
208: ,p_legislation_code_o
209: => pay_put_shd.g_old_rec.legislation_code
210: ,p_range_or_match_o
211: => pay_put_shd.g_old_rec.range_or_match
205: => p_rec.user_table_id
206: ,p_business_group_id_o
207: => pay_put_shd.g_old_rec.business_group_id
208: ,p_legislation_code_o
209: => pay_put_shd.g_old_rec.legislation_code
210: ,p_range_or_match_o
211: => pay_put_shd.g_old_rec.range_or_match
212: ,p_user_key_units_o
213: => pay_put_shd.g_old_rec.user_key_units
207: => pay_put_shd.g_old_rec.business_group_id
208: ,p_legislation_code_o
209: => pay_put_shd.g_old_rec.legislation_code
210: ,p_range_or_match_o
211: => pay_put_shd.g_old_rec.range_or_match
212: ,p_user_key_units_o
213: => pay_put_shd.g_old_rec.user_key_units
214: ,p_user_table_name_o
215: => pay_put_shd.g_old_rec.user_table_name
209: => pay_put_shd.g_old_rec.legislation_code
210: ,p_range_or_match_o
211: => pay_put_shd.g_old_rec.range_or_match
212: ,p_user_key_units_o
213: => pay_put_shd.g_old_rec.user_key_units
214: ,p_user_table_name_o
215: => pay_put_shd.g_old_rec.user_table_name
216: ,p_user_row_title_o
217: => pay_put_shd.g_old_rec.user_row_title
211: => pay_put_shd.g_old_rec.range_or_match
212: ,p_user_key_units_o
213: => pay_put_shd.g_old_rec.user_key_units
214: ,p_user_table_name_o
215: => pay_put_shd.g_old_rec.user_table_name
216: ,p_user_row_title_o
217: => pay_put_shd.g_old_rec.user_row_title
218: ,p_object_version_number_o
219: => pay_put_shd.g_old_rec.object_version_number
213: => pay_put_shd.g_old_rec.user_key_units
214: ,p_user_table_name_o
215: => pay_put_shd.g_old_rec.user_table_name
216: ,p_user_row_title_o
217: => pay_put_shd.g_old_rec.user_row_title
218: ,p_object_version_number_o
219: => pay_put_shd.g_old_rec.object_version_number
220: );
221: --
215: => pay_put_shd.g_old_rec.user_table_name
216: ,p_user_row_title_o
217: => pay_put_shd.g_old_rec.user_row_title
218: ,p_object_version_number_o
219: => pay_put_shd.g_old_rec.object_version_number
220: );
221: --
222: exception
223: --
235: -- ----------------------------------------------------------------------------
236: -- |---------------------------------< del >----------------------------------|
237: -- ----------------------------------------------------------------------------
238: Procedure del
239: (p_rec in pay_put_shd.g_rec_type
240: ) is
241: --
242: l_proc varchar2(72) := g_package||'del';
243: --
245: hr_utility.set_location('Entering:'||l_proc, 5);
246: --
247: -- We must lock the row which we need to delete.
248: --
249: pay_put_shd.lck
250: (p_rec.user_table_id
251: ,p_rec.object_version_number
252: );
253: --
282: (p_user_table_id in number
283: ,p_object_version_number in number
284: ) is
285: --
286: l_rec pay_put_shd.g_rec_type;
287: l_proc varchar2(72) := g_package||'del';
288: --
289: Begin
290: hr_utility.set_location('Entering:'||l_proc, 5);