17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'PQH_DE_WRKPLC_VLDTN_VERS_CK') 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 = 'PQH_DE_WRKPLC_VLDTN_VERS_PK') 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;
67: ,user_enterable_case_group_id
68: ,user_enterable_subcasgrp_id
69: ,freeze
70: ,object_version_number
71: from pqh_de_wrkplc_vldtn_vers
72: where wrkplc_vldtn_ver_id = p_wrkplc_vldtn_ver_id;
73: --
74: l_fct_ret boolean;
75: --
149: ,user_enterable_case_group_id
150: ,user_enterable_subcasgrp_id
151: ,freeze
152: ,object_version_number
153: from pqh_de_wrkplc_vldtn_vers
154: where wrkplc_vldtn_ver_id = p_wrkplc_vldtn_ver_id
155: for update nowait;
156: --
157: l_proc varchar2(72) := g_package||'lck';
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', 'pqh_de_wrkplc_vldtn_vers');
203: fnd_message.raise_error;
204: End lck;
205: --
206: -- ----------------------------------------------------------------------------