44: -- Internal Row Handler Use Only.
45: --
46: -- {End Of Comments}
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out nocopy pqh_del_shd.g_rec_type) is
49: --
50: l_proc varchar2(72) := g_package||'update_dml';
51: --
52: Begin
73: --
74: Exception
75: When hr_api.check_integrity_violated Then
76: -- A check constraint has been violated
77: pqh_del_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.parent_integrity_violated Then
80: -- Parent integrity has been violated
81: pqh_del_shd.constraint_error
77: pqh_del_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.parent_integrity_violated Then
80: -- Parent integrity has been violated
81: pqh_del_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.unique_integrity_violated Then
84: -- Unique integrity has been violated
85: pqh_del_shd.constraint_error
81: pqh_del_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.unique_integrity_violated Then
84: -- Unique integrity has been violated
85: pqh_del_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When Others Then
88: Raise;
89: End update_dml;
119: -- Internal Row Handler Use Only.
120: --
121: -- {End Of Comments}
122: -- ----------------------------------------------------------------------------
123: Procedure pre_update(p_rec in pqh_del_shd.g_rec_type) is
124: --
125: l_proc varchar2(72) := g_package||'pre_update';
126: --
127: Begin
161: -- Internal Row Handler Use Only.
162: --
163: -- {End Of Comments}
164: -- ----------------------------------------------------------------------------
165: Procedure post_update(p_rec in pqh_del_shd.g_rec_type) is
166: --
167: l_proc varchar2(72) := g_package||'post_update';
168: --
169: -- check if sum of percentage is more then 100 after the update
204: ,p_dflt_budget_set_id =>p_rec.dflt_budget_set_id
205: ,p_element_type_id =>p_rec.element_type_id
206: ,p_dflt_dist_percentage =>p_rec.dflt_dist_percentage
207: ,p_object_version_number =>p_rec.object_version_number
208: ,p_dflt_budget_set_id_o =>pqh_del_shd.g_old_rec.dflt_budget_set_id
209: ,p_element_type_id_o =>pqh_del_shd.g_old_rec.element_type_id
210: ,p_dflt_dist_percentage_o =>pqh_del_shd.g_old_rec.dflt_dist_percentage
211: ,p_object_version_number_o =>pqh_del_shd.g_old_rec.object_version_number
212: );
205: ,p_element_type_id =>p_rec.element_type_id
206: ,p_dflt_dist_percentage =>p_rec.dflt_dist_percentage
207: ,p_object_version_number =>p_rec.object_version_number
208: ,p_dflt_budget_set_id_o =>pqh_del_shd.g_old_rec.dflt_budget_set_id
209: ,p_element_type_id_o =>pqh_del_shd.g_old_rec.element_type_id
210: ,p_dflt_dist_percentage_o =>pqh_del_shd.g_old_rec.dflt_dist_percentage
211: ,p_object_version_number_o =>pqh_del_shd.g_old_rec.object_version_number
212: );
213: --
206: ,p_dflt_dist_percentage =>p_rec.dflt_dist_percentage
207: ,p_object_version_number =>p_rec.object_version_number
208: ,p_dflt_budget_set_id_o =>pqh_del_shd.g_old_rec.dflt_budget_set_id
209: ,p_element_type_id_o =>pqh_del_shd.g_old_rec.element_type_id
210: ,p_dflt_dist_percentage_o =>pqh_del_shd.g_old_rec.dflt_dist_percentage
211: ,p_object_version_number_o =>pqh_del_shd.g_old_rec.object_version_number
212: );
213: --
214: exception
207: ,p_object_version_number =>p_rec.object_version_number
208: ,p_dflt_budget_set_id_o =>pqh_del_shd.g_old_rec.dflt_budget_set_id
209: ,p_element_type_id_o =>pqh_del_shd.g_old_rec.element_type_id
210: ,p_dflt_dist_percentage_o =>pqh_del_shd.g_old_rec.dflt_dist_percentage
211: ,p_object_version_number_o =>pqh_del_shd.g_old_rec.object_version_number
212: );
213: --
214: exception
215: --
269: -- Internal Row Handler Use Only.
270: --
271: -- {End Of Comments}
272: -- ----------------------------------------------------------------------------
273: Procedure convert_defs(p_rec in out nocopy pqh_del_shd.g_rec_type) is
274: --
275: l_proc varchar2(72) := g_package||'convert_defs';
276: --
277: Begin
284: -- is being used then we must set to the 'current' argument value.
285: --
286: If (p_rec.dflt_budget_set_id = hr_api.g_number) then
287: p_rec.dflt_budget_set_id :=
288: pqh_del_shd.g_old_rec.dflt_budget_set_id;
289: End If;
290: If (p_rec.element_type_id = hr_api.g_number) then
291: p_rec.element_type_id :=
292: pqh_del_shd.g_old_rec.element_type_id;
288: pqh_del_shd.g_old_rec.dflt_budget_set_id;
289: End If;
290: If (p_rec.element_type_id = hr_api.g_number) then
291: p_rec.element_type_id :=
292: pqh_del_shd.g_old_rec.element_type_id;
293: End If;
294: If (p_rec.dflt_dist_percentage = hr_api.g_number) then
295: p_rec.dflt_dist_percentage :=
296: pqh_del_shd.g_old_rec.dflt_dist_percentage;
292: pqh_del_shd.g_old_rec.element_type_id;
293: End If;
294: If (p_rec.dflt_dist_percentage = hr_api.g_number) then
295: p_rec.dflt_dist_percentage :=
296: pqh_del_shd.g_old_rec.dflt_dist_percentage;
297: End If;
298:
299: --
300: hr_utility.set_location(' Leaving:'||l_proc, 10);
305: -- |---------------------------------< upd >----------------------------------|
306: -- ----------------------------------------------------------------------------
307: Procedure upd
308: (
309: p_rec in out nocopy pqh_del_shd.g_rec_type
310: ) is
311: --
312: l_proc varchar2(72) := g_package||'upd';
313: --
315: hr_utility.set_location('Entering:'||l_proc, 5);
316: --
317: -- We must lock the row which we need to update.
318: --
319: pqh_del_shd.lck
320: (
321: p_rec.dflt_budget_element_id,
322: p_rec.object_version_number
323: );
355: p_dflt_dist_percentage in number default hr_api.g_number,
356: p_object_version_number in out nocopy number
357: ) is
358: --
359: l_rec pqh_del_shd.g_rec_type;
360: l_proc varchar2(72) := g_package||'upd';
361: --
362: Begin
363: hr_utility.set_location('Entering:'||l_proc, 5);
365: -- Call conversion function to turn arguments into the
366: -- l_rec structure.
367: --
368: l_rec :=
369: pqh_del_shd.convert_args
370: (
371: p_dflt_budget_element_id,
372: p_dflt_budget_set_id,
373: p_element_type_id,