[Home] [Help]
17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'AME_ITEM_CLASS_USAGES_PK') Then
22: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23: fnd_message.set_token('PROCEDURE', l_proc);
24: fnd_message.set_token('STEP','5');
25: fnd_message.raise_error;
54: ,item_class_sublist_mode
55: ,start_date
56: ,end_date
57: ,object_version_number
58: from ame_item_class_usages
59: where item_class_id = p_item_class_id
60: and application_id = p_application_id
61: and p_effective_date
62: between start_date and nvl(end_date - (1/86400),p_effective_date);
149: --
150: -- Update the specified datetrack row setting the effective
151: -- end date to the specified new effective end date.
152: --
153: update ame_item_class_usages t
154: set t.end_date = p_new_effective_end_date
155: ,t.last_updated_by = l_current_user_id
156: ,t.last_update_date = p_new_effective_end_date
157: ,t.last_update_login = l_current_user_id
198: ,item_class_sublist_mode
199: ,start_date
200: ,end_date
201: ,object_version_number
202: from ame_item_class_usages
203: where item_class_id = p_item_class_id
204: and application_id = p_application_id
205: and p_effective_date
206: between start_date and nvl(end_date - (1/86400), sysdate)
288: -- The object is locked therefore we need to supply a meaningful
289: -- error message.
290: --
291: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
292: fnd_message.set_token('TABLE_NAME', 'ame_item_class_usages');
293: fnd_message.raise_error;
294: End lck;
295: --
296: -- ----------------------------------------------------------------------------
347: -- get the next ovn
348: --
349: select nvl(max(t.object_version_number),0) + 1
350: into l_ovn
351: from ame_item_class_usages t
352: where t.item_class_id = p_item_class_id
353: and t.application_id = p_application_id;
354: --
355: -- Return the new object_version_number.