17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'HR_FORM_TAB_PAGES_B_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 = 'HR_FORM_TAB_PAGES_B_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;
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 = 'HR_FORM_TAB_PAGES_B_UK') 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;
61: ,form_canvas_id
62: ,tab_page_name
63: ,display_order
64: ,visible_override
65: from hr_form_tab_pages_b
66: where form_tab_page_id = p_form_tab_page_id;
67: --
68: l_fct_ret boolean;
69: --
132: ,form_canvas_id
133: ,tab_page_name
134: ,display_order
135: ,visible_override
136: from hr_form_tab_pages_b
137: where form_tab_page_id = p_form_tab_page_id
138: for update nowait;
139: --
140: l_proc varchar2(72) := g_package||'lck';
182: -- The object is locked therefore we need to supply a meaningful
183: -- error message.
184: --
185: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
186: fnd_message.set_token('TABLE_NAME', 'hr_form_tab_pages_b');
187: fnd_message.raise_error;
188: End lck;
189: --
190: -- ----------------------------------------------------------------------------