51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_sol_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: per_sol_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: per_sol_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: per_sol_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: --
105: Raise;
137: --
138: -- {End Of Comments}
139: -- ----------------------------------------------------------------------------
140: Procedure pre_update
141: (p_rec in per_sol_shd.g_rec_type
142: ) is
143: --
144: l_proc varchar2(72) := g_package||'pre_update';
145: --
182: -- {End Of Comments}
183: -- ----------------------------------------------------------------------------
184: Procedure post_update
185: (p_effective_date in date
186: ,p_rec in per_sol_shd.g_rec_type
187: ) is
188: --
189: l_proc varchar2(72) := g_package||'post_update';
190: --
212: => p_rec.user_id
213: ,p_object_version_number
214: => p_rec.object_version_number
215: ,p_solution_name_o
216: => per_sol_shd.g_old_rec.solution_name
217: ,p_description_o
218: => per_sol_shd.g_old_rec.description
219: ,p_link_to_full_description_o
220: => per_sol_shd.g_old_rec.link_to_full_description
214: => p_rec.object_version_number
215: ,p_solution_name_o
216: => per_sol_shd.g_old_rec.solution_name
217: ,p_description_o
218: => per_sol_shd.g_old_rec.description
219: ,p_link_to_full_description_o
220: => per_sol_shd.g_old_rec.link_to_full_description
221: ,p_solution_type_name_o
222: => per_sol_shd.g_old_rec.solution_type_name
216: => per_sol_shd.g_old_rec.solution_name
217: ,p_description_o
218: => per_sol_shd.g_old_rec.description
219: ,p_link_to_full_description_o
220: => per_sol_shd.g_old_rec.link_to_full_description
221: ,p_solution_type_name_o
222: => per_sol_shd.g_old_rec.solution_type_name
223: ,p_vertical_o
224: => per_sol_shd.g_old_rec.vertical
218: => per_sol_shd.g_old_rec.description
219: ,p_link_to_full_description_o
220: => per_sol_shd.g_old_rec.link_to_full_description
221: ,p_solution_type_name_o
222: => per_sol_shd.g_old_rec.solution_type_name
223: ,p_vertical_o
224: => per_sol_shd.g_old_rec.vertical
225: ,p_legislation_code_o
226: => per_sol_shd.g_old_rec.legislation_code
220: => per_sol_shd.g_old_rec.link_to_full_description
221: ,p_solution_type_name_o
222: => per_sol_shd.g_old_rec.solution_type_name
223: ,p_vertical_o
224: => per_sol_shd.g_old_rec.vertical
225: ,p_legislation_code_o
226: => per_sol_shd.g_old_rec.legislation_code
227: ,p_user_id_o
228: => per_sol_shd.g_old_rec.user_id
222: => per_sol_shd.g_old_rec.solution_type_name
223: ,p_vertical_o
224: => per_sol_shd.g_old_rec.vertical
225: ,p_legislation_code_o
226: => per_sol_shd.g_old_rec.legislation_code
227: ,p_user_id_o
228: => per_sol_shd.g_old_rec.user_id
229: ,p_object_version_number_o
230: => per_sol_shd.g_old_rec.object_version_number
224: => per_sol_shd.g_old_rec.vertical
225: ,p_legislation_code_o
226: => per_sol_shd.g_old_rec.legislation_code
227: ,p_user_id_o
228: => per_sol_shd.g_old_rec.user_id
229: ,p_object_version_number_o
230: => per_sol_shd.g_old_rec.object_version_number
231: );
232: --
226: => per_sol_shd.g_old_rec.legislation_code
227: ,p_user_id_o
228: => per_sol_shd.g_old_rec.user_id
229: ,p_object_version_number_o
230: => per_sol_shd.g_old_rec.object_version_number
231: );
232: --
233: exception
234: --
286: --
287: -- {End Of Comments}
288: -- ----------------------------------------------------------------------------
289: Procedure convert_defs
290: (p_rec in out nocopy per_sol_shd.g_rec_type
291: ) is
292: --
293: Begin
294: --
298: -- is being used then we must set to the 'current' argument value.
299: --
300: If (p_rec.solution_name = hr_api.g_varchar2) then
301: p_rec.solution_name :=
302: per_sol_shd.g_old_rec.solution_name;
303: End If;
304: If (p_rec.description = hr_api.g_varchar2) then
305: p_rec.description :=
306: per_sol_shd.g_old_rec.description;
302: per_sol_shd.g_old_rec.solution_name;
303: End If;
304: If (p_rec.description = hr_api.g_varchar2) then
305: p_rec.description :=
306: per_sol_shd.g_old_rec.description;
307: End If;
308: If (p_rec.link_to_full_description = hr_api.g_varchar2) then
309: p_rec.link_to_full_description :=
310: per_sol_shd.g_old_rec.link_to_full_description;
306: per_sol_shd.g_old_rec.description;
307: End If;
308: If (p_rec.link_to_full_description = hr_api.g_varchar2) then
309: p_rec.link_to_full_description :=
310: per_sol_shd.g_old_rec.link_to_full_description;
311: End If;
312: If (p_rec.solution_type_name = hr_api.g_varchar2) then
313: p_rec.solution_type_name :=
314: per_sol_shd.g_old_rec.solution_type_name;
310: per_sol_shd.g_old_rec.link_to_full_description;
311: End If;
312: If (p_rec.solution_type_name = hr_api.g_varchar2) then
313: p_rec.solution_type_name :=
314: per_sol_shd.g_old_rec.solution_type_name;
315: End If;
316: If (p_rec.vertical = hr_api.g_varchar2) then
317: p_rec.vertical :=
318: per_sol_shd.g_old_rec.vertical;
314: per_sol_shd.g_old_rec.solution_type_name;
315: End If;
316: If (p_rec.vertical = hr_api.g_varchar2) then
317: p_rec.vertical :=
318: per_sol_shd.g_old_rec.vertical;
319: End If;
320: If (p_rec.legislation_code = hr_api.g_varchar2) then
321: p_rec.legislation_code :=
322: per_sol_shd.g_old_rec.legislation_code;
318: per_sol_shd.g_old_rec.vertical;
319: End If;
320: If (p_rec.legislation_code = hr_api.g_varchar2) then
321: p_rec.legislation_code :=
322: per_sol_shd.g_old_rec.legislation_code;
323: End If;
324: If (p_rec.user_id = hr_api.g_number) then
325: p_rec.user_id :=
326: per_sol_shd.g_old_rec.user_id;
322: per_sol_shd.g_old_rec.legislation_code;
323: End If;
324: If (p_rec.user_id = hr_api.g_number) then
325: p_rec.user_id :=
326: per_sol_shd.g_old_rec.user_id;
327: End If;
328: --
329: End convert_defs;
330: --
332: -- |---------------------------------< upd >----------------------------------|
333: -- ----------------------------------------------------------------------------
334: Procedure upd
335: (p_effective_date in date
336: ,p_rec in out nocopy per_sol_shd.g_rec_type
337: ) is
338: --
339: l_proc varchar2(72) := g_package||'upd';
340: --
342: hr_utility.set_location('Entering:'||l_proc, 5);
343: --
344: -- We must lock the row which we need to update.
345: --
346: per_sol_shd.lck
347: (p_rec.solution_id
348: ,p_rec.object_version_number
349: );
350: --
397: ,p_legislation_code in varchar2 default hr_api.g_varchar2
398: ,p_user_id in number default hr_api.g_number
399: ) is
400: --
401: l_rec per_sol_shd.g_rec_type;
402: l_proc varchar2(72) := g_package||'upd';
403: --
404: Begin
405: hr_utility.set_location('Entering:'||l_proc, 5);
407: -- Call conversion function to turn arguments into the
408: -- l_rec structure.
409: --
410: l_rec :=
411: per_sol_shd.convert_args
412: (p_solution_name
413: ,p_solution_id
414: ,p_description
415: ,p_link_to_full_description