48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in per_pse_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: per_pse_shd.g_api_dml := true; -- Set the api dml status
61: --
62: -- Delete the per_pos_structure_elements row.
63: --
64: delete from per_pos_structure_elements
63: --
64: delete from per_pos_structure_elements
65: where pos_structure_element_id = p_rec.pos_structure_element_id;
66: --
67: per_pse_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: per_pse_shd.g_api_dml := false; -- Unset the api dml status
75: per_pse_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: per_pse_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: per_pse_shd.g_api_dml := false; -- Unset the api dml status
75: per_pse_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: per_pse_shd.g_api_dml := false; -- Unset the api dml status
79: Raise;
74: per_pse_shd.g_api_dml := false; -- Unset the api dml status
75: per_pse_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: per_pse_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 per_pse_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 per_pse_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
164: per_pse_rkd.after_delete
165: (p_pos_structure_element_id
166: => p_rec.pos_structure_element_id
167: ,p_business_group_id_o
168: => per_pse_shd.g_old_rec.business_group_id
169: ,p_pos_structure_version_id_o
170: => per_pse_shd.g_old_rec.pos_structure_version_id
171: ,p_subordinate_position_id_o
172: => per_pse_shd.g_old_rec.subordinate_position_id
166: => p_rec.pos_structure_element_id
167: ,p_business_group_id_o
168: => per_pse_shd.g_old_rec.business_group_id
169: ,p_pos_structure_version_id_o
170: => per_pse_shd.g_old_rec.pos_structure_version_id
171: ,p_subordinate_position_id_o
172: => per_pse_shd.g_old_rec.subordinate_position_id
173: ,p_parent_position_id_o
174: => per_pse_shd.g_old_rec.parent_position_id
168: => per_pse_shd.g_old_rec.business_group_id
169: ,p_pos_structure_version_id_o
170: => per_pse_shd.g_old_rec.pos_structure_version_id
171: ,p_subordinate_position_id_o
172: => per_pse_shd.g_old_rec.subordinate_position_id
173: ,p_parent_position_id_o
174: => per_pse_shd.g_old_rec.parent_position_id
175: ,p_request_id_o
176: => per_pse_shd.g_old_rec.request_id
170: => per_pse_shd.g_old_rec.pos_structure_version_id
171: ,p_subordinate_position_id_o
172: => per_pse_shd.g_old_rec.subordinate_position_id
173: ,p_parent_position_id_o
174: => per_pse_shd.g_old_rec.parent_position_id
175: ,p_request_id_o
176: => per_pse_shd.g_old_rec.request_id
177: ,p_program_application_id_o
178: => per_pse_shd.g_old_rec.program_application_id
172: => per_pse_shd.g_old_rec.subordinate_position_id
173: ,p_parent_position_id_o
174: => per_pse_shd.g_old_rec.parent_position_id
175: ,p_request_id_o
176: => per_pse_shd.g_old_rec.request_id
177: ,p_program_application_id_o
178: => per_pse_shd.g_old_rec.program_application_id
179: ,p_program_id_o
180: => per_pse_shd.g_old_rec.program_id
174: => per_pse_shd.g_old_rec.parent_position_id
175: ,p_request_id_o
176: => per_pse_shd.g_old_rec.request_id
177: ,p_program_application_id_o
178: => per_pse_shd.g_old_rec.program_application_id
179: ,p_program_id_o
180: => per_pse_shd.g_old_rec.program_id
181: ,p_program_update_date_o
182: => per_pse_shd.g_old_rec.program_update_date
176: => per_pse_shd.g_old_rec.request_id
177: ,p_program_application_id_o
178: => per_pse_shd.g_old_rec.program_application_id
179: ,p_program_id_o
180: => per_pse_shd.g_old_rec.program_id
181: ,p_program_update_date_o
182: => per_pse_shd.g_old_rec.program_update_date
183: ,p_object_version_number_o
184: => per_pse_shd.g_old_rec.object_version_number
178: => per_pse_shd.g_old_rec.program_application_id
179: ,p_program_id_o
180: => per_pse_shd.g_old_rec.program_id
181: ,p_program_update_date_o
182: => per_pse_shd.g_old_rec.program_update_date
183: ,p_object_version_number_o
184: => per_pse_shd.g_old_rec.object_version_number
185: );
186: --
180: => per_pse_shd.g_old_rec.program_id
181: ,p_program_update_date_o
182: => per_pse_shd.g_old_rec.program_update_date
183: ,p_object_version_number_o
184: => per_pse_shd.g_old_rec.object_version_number
185: );
186: --
187: exception
188: --
200: -- ----------------------------------------------------------------------------
201: -- |---------------------------------< del >----------------------------------|
202: -- ----------------------------------------------------------------------------
203: Procedure del
204: (p_rec in per_pse_shd.g_rec_type
205: ,p_hr_installed in VARCHAR2
206: ,p_chk_children in VARCHAR2
207: ) is
208: --
212: hr_utility.set_location('Entering:'||l_proc, 5);
213: --
214: -- We must lock the row which we need to delete.
215: --
216: per_pse_shd.lck
217: (p_rec.pos_structure_element_id
218: ,p_rec.object_version_number
219: );
220: --
220: --
221: -- Call the supporting delete validate operation
222: --
223: per_pse_bus.delete_validate
224: (p_rec => per_pse_shd.g_old_rec
225: ,p_hr_installed => p_hr_installed
226: ,p_chk_children => p_chk_children
227: );
228: --
249: ,p_hr_installed in VARCHAR2
250: ,p_chk_children in VARCHAR2
251: ) is
252: --
253: l_rec per_pse_shd.g_rec_type;
254: l_proc varchar2(72) := g_package||'del';
255: --
256: Begin
257: hr_utility.set_location('Entering:'||l_proc, 5);