28: l_proc varchar2(72) := g_package||'constraint_error';
29: --
30: Begin
31: --
32: If (p_constraint_name = 'BEN_PL_PCP_PK') 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 = 'BEN_PL_PCP_TYP_FK2') Then
38: ben_utility.child_exists_error(p_table_name => 'BEN_PL_PCP_TYP');
39: Else
40: fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
41: fnd_message.set_token('PROCEDURE', l_proc);
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 = 'BEN_PL_PCP_TYP_FK2') Then
38: ben_utility.child_exists_error(p_table_name => 'BEN_PL_PCP_TYP');
39: Else
40: fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
41: fnd_message.set_token('PROCEDURE', l_proc);
42: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
103: ,pcp_attribute28
104: ,pcp_attribute29
105: ,pcp_attribute30
106: ,object_version_number
107: from ben_pl_pcp
108: where pl_pcp_id = p_pl_pcp_id;
109: --
110: l_fct_ret boolean;
111: --
213: ,pcp_attribute28
214: ,pcp_attribute29
215: ,pcp_attribute30
216: ,object_version_number
217: from ben_pl_pcp
218: where pl_pcp_id = p_pl_pcp_id
219: for update nowait;
220: --
221: l_proc varchar2(72) := g_package||'lck';
256: -- The object is locked therefore we need to supply a meaningful
257: -- error message.
258: --
259: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
260: fnd_message.set_token('TABLE_NAME', 'ben_pl_pcp');
261: fnd_message.raise_error;
262: End lck;
263: --
264: -- ----------------------------------------------------------------------------