54: --
55: l_proc varchar2(72) := g_package||'delete_dml';
56: --
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: --
60: per_sip_shd.g_api_dml := true; -- Set the api dml status
61: --
62: -- Delete the per_sp_successor_in_plan row.
65: where successor_in_plan_id = p_rec.successor_in_plan_id;
66: --
67: per_sip_shd.g_api_dml := false; -- Unset the api dml status
68: --
69: hr_utility.set_location(' Leaving:'||l_proc, 10);
70: --
71: Exception
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
115: --
116: l_proc varchar2(72) := g_package||'pre_delete';
117: --
118: Begin
119: hr_utility.set_location('Entering:'||l_proc, 5);
120: --
121: hr_utility.set_location(' Leaving:'||l_proc, 10);
122: End pre_delete;
123: --
117: --
118: Begin
119: hr_utility.set_location('Entering:'||l_proc, 5);
120: --
121: hr_utility.set_location(' Leaving:'||l_proc, 10);
122: End pre_delete;
123: --
124: -- ----------------------------------------------------------------------------
125: -- |-----------------------------< post_delete >------------------------------|
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
161: hr_utility.set_location('Entering:'||l_proc, 5);
162: begin
163: --
164: per_sip_rkd.after_delete
165: (p_successor_in_plan_id
287: ,p_hook_type => 'AD');
288: --
289: end;
290: --
291: hr_utility.set_location(' Leaving:'||l_proc, 10);
292: End post_delete;
293: --
294: -- ----------------------------------------------------------------------------
295: -- |---------------------------------< del >----------------------------------|
300: --
301: l_proc varchar2(72) := g_package||'del';
302: --
303: Begin
304: hr_utility.set_location('Entering:'||l_proc, 5);
305: --
306: -- We must lock the row which we need to delete.
307: --
308: per_sip_shd.lck
345: l_rec per_sip_shd.g_rec_type;
346: l_proc varchar2(72) := g_package||'del';
347: --
348: Begin
349: hr_utility.set_location('Entering:'||l_proc, 5);
350: --
351: -- As the delete procedure accepts a plsql record structure we do need to
352: -- convert the arguments into the record structure.
353: -- We don't need to call the supplied conversion argument routine as we
361: -- business process
362: --
363: per_sip_del.del(l_rec);
364: --
365: hr_utility.set_location(' Leaving:'||l_proc, 10);
366: End del;
367: --
368: end per_sip_del;