17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'PQH_ROUTING_HIST_ATTRIBS_FK1') 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_ROUTING_HIST_ATTRIBS_FK2') 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;
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;
31: ElsIf (p_constraint_name = 'PQH_ROUTING_HIST_ATTRIBS_PK') Then
32: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33: fnd_message.set_token('PROCEDURE', l_proc);
34: fnd_message.set_token('STEP','15');
35: fnd_message.raise_error;
69: ,range_type_cd
70: ,value_date
71: ,value_number
72: ,value_char
73: from pqh_routing_hist_attribs
74: where routing_hist_attrib_id = p_routing_hist_attrib_id;
75: --
76: l_fct_ret boolean;
77: --
148: ,range_type_cd
149: ,value_date
150: ,value_number
151: ,value_char
152: from pqh_routing_hist_attribs
153: where routing_hist_attrib_id = p_routing_hist_attrib_id
154: for update nowait;
155: --
156: l_proc varchar2(72) := g_package||'lck';
191: -- The object is locked therefore we need to supply a meaningful
192: -- error message.
193: --
194: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
195: fnd_message.set_token('TABLE_NAME', 'pqh_routing_hist_attribs');
196: fnd_message.raise_error;
197: End lck;
198: --
199: -- ----------------------------------------------------------------------------