51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ame_ayl_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: l_current_user_id number;
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: --
97: ame_ayl_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: ame_ayl_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: ame_ayl_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: --
111: Raise;
143: --
144: -- {End Of Comments}
145: -- ----------------------------------------------------------------------------
146: Procedure pre_update
147: (p_rec in ame_ayl_shd.g_rec_type
148: ) is
149: --
150: l_proc varchar2(72) := g_package||'pre_update';
151: --
187: --
188: -- {End Of Comments}
189: -- ----------------------------------------------------------------------------
190: Procedure post_update
191: (p_rec in ame_ayl_shd.g_rec_type
192: ) is
193: --
194: l_proc varchar2(72) := g_package||'post_update';
195: --
208: => p_rec.user_action_type_name
209: ,p_description
210: => p_rec.description
211: ,p_source_lang_o
212: => ame_ayl_shd.g_old_rec.source_lang
213: ,p_user_action_type_name_o
214: => ame_ayl_shd.g_old_rec.user_action_type_name
215: ,p_description_o
216: => ame_ayl_shd.g_old_rec.description
210: => p_rec.description
211: ,p_source_lang_o
212: => ame_ayl_shd.g_old_rec.source_lang
213: ,p_user_action_type_name_o
214: => ame_ayl_shd.g_old_rec.user_action_type_name
215: ,p_description_o
216: => ame_ayl_shd.g_old_rec.description
217: );
218: --
212: => ame_ayl_shd.g_old_rec.source_lang
213: ,p_user_action_type_name_o
214: => ame_ayl_shd.g_old_rec.user_action_type_name
215: ,p_description_o
216: => ame_ayl_shd.g_old_rec.description
217: );
218: --
219: exception
220: --
272: --
273: -- {End Of Comments}
274: -- ----------------------------------------------------------------------------
275: Procedure convert_defs
276: (p_rec in out nocopy ame_ayl_shd.g_rec_type
277: ) is
278: --
279: Begin
280: --
284: -- is being used then we must set to the 'current' argument value.
285: --
286: If (p_rec.source_lang = hr_api.g_varchar2) then
287: p_rec.source_lang :=
288: ame_ayl_shd.g_old_rec.source_lang;
289: End If;
290: If (p_rec.user_action_type_name = hr_api.g_varchar2) then
291: p_rec.user_action_type_name :=
292: ame_ayl_shd.g_old_rec.user_action_type_name;
288: ame_ayl_shd.g_old_rec.source_lang;
289: End If;
290: If (p_rec.user_action_type_name = hr_api.g_varchar2) then
291: p_rec.user_action_type_name :=
292: ame_ayl_shd.g_old_rec.user_action_type_name;
293: End If;
294: If (p_rec.description = hr_api.g_varchar2) then
295: p_rec.description :=
296: ame_ayl_shd.g_old_rec.description;
292: ame_ayl_shd.g_old_rec.user_action_type_name;
293: End If;
294: If (p_rec.description = hr_api.g_varchar2) then
295: p_rec.description :=
296: ame_ayl_shd.g_old_rec.description;
297: End If;
298: --
299: End convert_defs;
300: --
301: -- ----------------------------------------------------------------------------
302: -- |---------------------------------< upd >----------------------------------|
303: -- ----------------------------------------------------------------------------
304: Procedure upd
305: (p_rec in out nocopy ame_ayl_shd.g_rec_type
306: ) is
307: --
308: l_proc varchar2(72) := g_package||'upd';
309: --
311: hr_utility.set_location('Entering:'||l_proc, 5);
312: --
313: -- We must lock the row which we need to update.
314: --
315: ame_ayl_shd.lck
316: (p_rec.action_type_id
317: ,p_rec.language
318: );
319: --
359: ,p_user_action_type_name in varchar2 default hr_api.g_varchar2
360: ,p_description in varchar2 default hr_api.g_varchar2
361: ) is
362: --
363: l_rec ame_ayl_shd.g_rec_type;
364: l_proc varchar2(72) := g_package||'upd';
365: --
366: Begin
367: hr_utility.set_location('Entering:'||l_proc, 5);
369: -- Call conversion function to turn arguments into the
370: -- l_rec structure.
371: --
372: l_rec :=
373: ame_ayl_shd.convert_args
374: (p_action_type_id
375: ,p_language
376: ,p_source_lang
377: ,p_user_action_type_name