30: Begin
31: --
32: l_proc := g_package||'constraint_error';
33: --
34: If (p_constraint_name = 'PAY_AU_PROCESS_MODULES_CHK1') Then
35: fnd_message.set_name('PER', 'PER_52500_INV_YES_NO_FLAG');
36: fnd_message.raise_error;
37: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK1') Then
38: fnd_message.set_name('PAY', 'HR_AU_INVALID_PROCESS');
33: --
34: If (p_constraint_name = 'PAY_AU_PROCESS_MODULES_CHK1') Then
35: fnd_message.set_name('PER', 'PER_52500_INV_YES_NO_FLAG');
36: fnd_message.raise_error;
37: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK1') Then
38: fnd_message.set_name('PAY', 'HR_AU_INVALID_PROCESS');
39: fnd_message.raise_error;
40: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK2') Then
41: fnd_message.set_name('PAY','HR_NZ_INVALID_MODULE');
36: fnd_message.raise_error;
37: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK1') Then
38: fnd_message.set_name('PAY', 'HR_AU_INVALID_PROCESS');
39: fnd_message.raise_error;
40: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK2') Then
41: fnd_message.set_name('PAY','HR_NZ_INVALID_MODULE');
42: fnd_message.raise_error;
43: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_PK') Then
44: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39: fnd_message.raise_error;
40: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_FK2') Then
41: fnd_message.set_name('PAY','HR_NZ_INVALID_MODULE');
42: fnd_message.raise_error;
43: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_PK') Then
44: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
45: fnd_message.set_token('PROCEDURE', l_proc);
46: fnd_message.set_token('STEP','20');
47: fnd_message.raise_error;
44: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
45: fnd_message.set_token('PROCEDURE', l_proc);
46: fnd_message.set_token('STEP','20');
47: fnd_message.raise_error;
48: ElsIf (p_constraint_name = 'PAY_AU_PROCESS_MODULES_UK1') Then
49: fnd_message.set_name('PAY', 'PER_7901_SYS_DUPLICATE_RECORDS');
50: fnd_message.raise_error;
51: Else
52: fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
76: ,module_id
77: ,process_sequence
78: ,enabled_flag
79: ,object_version_number
80: from pay_au_process_modules
81: where process_module_id = p_process_module_id;
82: --
83: l_fct_ret boolean;
84: --
147: ,module_id
148: ,process_sequence
149: ,enabled_flag
150: ,object_version_number
151: from pay_au_process_modules
152: where process_module_id = p_process_module_id
153: for update nowait;
154: --
155: l_proc varchar2(72);
198: -- The object is locked therefore we need to supply a meaningful
199: -- error message.
200: --
201: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
202: fnd_message.set_token('TABLE_NAME', 'pay_au_process_modules');
203: fnd_message.raise_error;
204: End lck;
205: --
206: -- ----------------------------------------------------------------------------