51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ame_agl_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: l_last_update_date ame_approval_groups.last_update_date%TYPE;
91: Exception
92: When hr_api.check_integrity_violated Then
93: -- A check constraint has been violated
94: --
95: ame_agl_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
99: --
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
99: --
100: ame_agl_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
104: --
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
104: --
105: ame_agl_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When Others Then
108: --
109: Raise;
141: --
142: -- {End Of Comments}
143: -- ----------------------------------------------------------------------------
144: Procedure pre_update
145: (p_rec in ame_agl_shd.g_rec_type
146: ) is
147: --
148: l_proc varchar2(72) := g_package||'pre_update';
149: --
185: --
186: -- {End Of Comments}
187: -- ----------------------------------------------------------------------------
188: Procedure post_update
189: (p_rec in ame_agl_shd.g_rec_type
190: ) is
191: --
192: l_proc varchar2(72) := g_package||'post_update';
193: --
206: => p_rec.user_approval_group_name
207: ,p_description
208: => p_rec.description
209: ,p_source_lang_o
210: => ame_agl_shd.g_old_rec.source_lang
211: ,p_user_approval_group_name_o
212: => ame_agl_shd.g_old_rec.user_approval_group_name
213: ,p_description_o
214: => ame_agl_shd.g_old_rec.description
208: => p_rec.description
209: ,p_source_lang_o
210: => ame_agl_shd.g_old_rec.source_lang
211: ,p_user_approval_group_name_o
212: => ame_agl_shd.g_old_rec.user_approval_group_name
213: ,p_description_o
214: => ame_agl_shd.g_old_rec.description
215: );
216: --
210: => ame_agl_shd.g_old_rec.source_lang
211: ,p_user_approval_group_name_o
212: => ame_agl_shd.g_old_rec.user_approval_group_name
213: ,p_description_o
214: => ame_agl_shd.g_old_rec.description
215: );
216: --
217: exception
218: --
270: --
271: -- {End Of Comments}
272: -- ----------------------------------------------------------------------------
273: Procedure convert_defs
274: (p_rec in out nocopy ame_agl_shd.g_rec_type
275: ) is
276: --
277: Begin
278: --
282: -- is being used then we must set to the 'current' argument value.
283: --
284: If (p_rec.source_lang = hr_api.g_varchar2) then
285: p_rec.source_lang :=
286: ame_agl_shd.g_old_rec.source_lang;
287: End If;
288: If (p_rec.user_approval_group_name = hr_api.g_varchar2) then
289: p_rec.user_approval_group_name :=
290: ame_agl_shd.g_old_rec.user_approval_group_name;
286: ame_agl_shd.g_old_rec.source_lang;
287: End If;
288: If (p_rec.user_approval_group_name = hr_api.g_varchar2) then
289: p_rec.user_approval_group_name :=
290: ame_agl_shd.g_old_rec.user_approval_group_name;
291: End If;
292: If (p_rec.description = hr_api.g_varchar2) then
293: p_rec.description :=
294: ame_agl_shd.g_old_rec.description;
290: ame_agl_shd.g_old_rec.user_approval_group_name;
291: End If;
292: If (p_rec.description = hr_api.g_varchar2) then
293: p_rec.description :=
294: ame_agl_shd.g_old_rec.description;
295: End If;
296: --
297: End convert_defs;
298: --
299: -- ----------------------------------------------------------------------------
300: -- |---------------------------------< upd >----------------------------------|
301: -- ----------------------------------------------------------------------------
302: Procedure upd
303: (p_rec in out nocopy ame_agl_shd.g_rec_type
304: ) is
305: --
306: l_proc varchar2(72) := g_package||'upd';
307: --
309: hr_utility.set_location('Entering:'||l_proc, 5);
310: --
311: -- We must lock the row which we need to update.
312: --
313: ame_agl_shd.lck
314: (p_rec.approval_group_id
315: ,p_rec.language
316: );
317: --
357: ,p_user_approval_group_name in varchar2 default hr_api.g_varchar2
358: ,p_description in varchar2 default hr_api.g_varchar2
359: ) is
360: --
361: l_rec ame_agl_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: ame_agl_shd.convert_args
372: (p_approval_group_id
373: ,p_language
374: ,p_source_lang
375: ,p_user_approval_group_name