51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_rss_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
83: Exception
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: --
87: pqh_rss_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
92: pqh_rss_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
97: pqh_rss_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When Others Then
100: --
101: Raise;
133: --
134: -- {End Of Comments}
135: -- ----------------------------------------------------------------------------
136: Procedure pre_update
137: (p_rec in pqh_rss_shd.g_rec_type
138: ) is
139: --
140: l_proc varchar2(72) := g_package||'pre_update';
141: --
178: -- {End Of Comments}
179: -- ----------------------------------------------------------------------------
180: Procedure post_update
181: (p_effective_date in date
182: ,p_rec in pqh_rss_shd.g_rec_type
183: ) is
184: --
185: l_proc varchar2(72) := g_package||'post_update';
186: --
200: => p_rec.grade_id
201: ,p_object_version_number
202: => p_rec.object_version_number
203: ,p_gradual_value_number_from_o
204: => pqh_rss_shd.g_old_rec.gradual_value_number_from
205: ,p_gradual_value_number_to_o
206: => pqh_rss_shd.g_old_rec.gradual_value_number_to
207: ,p_grade_id_o
208: => pqh_rss_shd.g_old_rec.grade_id
202: => p_rec.object_version_number
203: ,p_gradual_value_number_from_o
204: => pqh_rss_shd.g_old_rec.gradual_value_number_from
205: ,p_gradual_value_number_to_o
206: => pqh_rss_shd.g_old_rec.gradual_value_number_to
207: ,p_grade_id_o
208: => pqh_rss_shd.g_old_rec.grade_id
209: ,p_object_version_number_o
210: => pqh_rss_shd.g_old_rec.object_version_number
204: => pqh_rss_shd.g_old_rec.gradual_value_number_from
205: ,p_gradual_value_number_to_o
206: => pqh_rss_shd.g_old_rec.gradual_value_number_to
207: ,p_grade_id_o
208: => pqh_rss_shd.g_old_rec.grade_id
209: ,p_object_version_number_o
210: => pqh_rss_shd.g_old_rec.object_version_number
211: );
212: --
206: => pqh_rss_shd.g_old_rec.gradual_value_number_to
207: ,p_grade_id_o
208: => pqh_rss_shd.g_old_rec.grade_id
209: ,p_object_version_number_o
210: => pqh_rss_shd.g_old_rec.object_version_number
211: );
212: --
213: exception
214: --
266: --
267: -- {End Of Comments}
268: -- ----------------------------------------------------------------------------
269: Procedure convert_defs
270: (p_rec in out nocopy pqh_rss_shd.g_rec_type
271: ) is
272: --
273: Begin
274: --
278: -- is being used then we must set to the 'current' argument value.
279: --
280: If (p_rec.gradual_value_number_from = hr_api.g_number) then
281: p_rec.gradual_value_number_from :=
282: pqh_rss_shd.g_old_rec.gradual_value_number_from;
283: End If;
284: If (p_rec.gradual_value_number_to = hr_api.g_number) then
285: p_rec.gradual_value_number_to :=
286: pqh_rss_shd.g_old_rec.gradual_value_number_to;
282: pqh_rss_shd.g_old_rec.gradual_value_number_from;
283: End If;
284: If (p_rec.gradual_value_number_to = hr_api.g_number) then
285: p_rec.gradual_value_number_to :=
286: pqh_rss_shd.g_old_rec.gradual_value_number_to;
287: End If;
288: If (p_rec.grade_id = hr_api.g_number) then
289: p_rec.grade_id :=
290: pqh_rss_shd.g_old_rec.grade_id;
286: pqh_rss_shd.g_old_rec.gradual_value_number_to;
287: End If;
288: If (p_rec.grade_id = hr_api.g_number) then
289: p_rec.grade_id :=
290: pqh_rss_shd.g_old_rec.grade_id;
291: End If;
292: --
293: End convert_defs;
294: --
296: -- |---------------------------------< upd >----------------------------------|
297: -- ----------------------------------------------------------------------------
298: Procedure upd
299: (p_effective_date in date
300: ,p_rec in out nocopy pqh_rss_shd.g_rec_type
301: ) is
302: --
303: l_proc varchar2(72) := g_package||'upd';
304: --
306: hr_utility.set_location('Entering:'||l_proc, 5);
307: --
308: -- We must lock the row which we need to update.
309: --
310: pqh_rss_shd.lck
311: (p_rec.result_set_id
312: ,p_rec.object_version_number
313: );
314: --
357: ,p_gradual_value_number_to in number default hr_api.g_number
358: ,p_grade_id in number default hr_api.g_number
359: ) is
360: --
361: l_rec pqh_rss_shd.g_rec_type;
362: l_proc varchar2(72) := g_package||'upd';
363: --
364: Begin
365: hr_utility.set_location('Entering:'||l_proc, 5);
367: -- Call conversion function to turn arguments into the
368: -- l_rec structure.
369: --
370: l_rec :=
371: pqh_rss_shd.convert_args
372: (p_result_set_id
373: ,p_gradual_value_number_from
374: ,p_gradual_value_number_to
375: ,p_grade_id