17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'PER_GEN_HIERARCHY_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;
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;
26: ElsIf (p_constraint_name = 'PER_GEN_HIERARCHY_UK1') Then
27: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28: fnd_message.set_token('PROCEDURE', l_proc);
29: fnd_message.set_token('STEP','10');
30: fnd_message.raise_error;
121: ,information27
122: ,information28
123: ,information29
124: ,information30
125: from per_gen_hierarchy
126: where hierarchy_id = p_hierarchy_id;
127: --
128: l_fct_ret boolean;
129: --
257: ,information27
258: ,information28
259: ,information29
260: ,information30
261: from per_gen_hierarchy
262: where hierarchy_id = p_hierarchy_id
263: for update nowait;
264: --
265: l_proc varchar2(72) := g_package||'lck';
300: -- The object is locked therefore we need to supply a meaningful
301: -- error message.
302: --
303: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
304: fnd_message.set_token('TABLE_NAME', 'per_gen_hierarchy');
305: fnd_message.raise_error;
306: End lck;
307: --
308: -- ----------------------------------------------------------------------------