28: l_proc varchar2(72) := g_package||'constraint_error';
29: --
30: Begin
31: --
32: If (p_constraint_name = 'PAY_USER_COLUMNS_FK1') Then
33: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
34: fnd_message.set_token('PROCEDURE', l_proc);
35: fnd_message.set_token('STEP','5');
36: fnd_message.raise_error;
33: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
34: fnd_message.set_token('PROCEDURE', l_proc);
35: fnd_message.set_token('STEP','5');
36: fnd_message.raise_error;
37: ElsIf (p_constraint_name = 'PAY_USER_COLUMNS_PK') Then
38: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39: fnd_message.set_token('PROCEDURE', l_proc);
40: fnd_message.set_token('STEP','10');
41: fnd_message.raise_error;
38: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39: fnd_message.set_token('PROCEDURE', l_proc);
40: fnd_message.set_token('STEP','10');
41: fnd_message.raise_error;
42: ElsIf (p_constraint_name = 'PAY_USER_COLUMNS_UK2') Then
43: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
44: fnd_message.set_token('PROCEDURE', l_proc);
45: fnd_message.set_token('STEP','15');
46: fnd_message.raise_error;
73: ,user_table_id
74: ,formula_id
75: ,user_column_name
76: ,object_version_number
77: from pay_user_columns
78: where user_column_id = p_user_column_id;
79: --
80: l_fct_ret boolean;
81: --
145: ,user_table_id
146: ,formula_id
147: ,user_column_name
148: ,object_version_number
149: from pay_user_columns
150: where user_column_id = p_user_column_id
151: for update nowait;
152: --
153: l_proc varchar2(72) := g_package||'lck';
194: -- The object is locked therefore we need to supply a meaningful
195: -- error message.
196: --
197: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
198: fnd_message.set_token('TABLE_NAME', 'pay_user_columns');
199: fnd_message.raise_error;
200: End lck;
201: --
202: -- ----------------------------------------------------------------------------