28: l_proc varchar2(72) := g_package||'constraint_error';
29: --
30: Begin
31: --
32: If (p_constraint_name = 'PER_ORG_STRUCTURE_ELEMENTS_FK1') 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 = 'PER_ORG_STRUCTURE_ELEMENTS_FK2') Then
38: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39: fnd_message.set_token('PROCEDURE', l_proc);
40: fnd_message.set_token('STEP','10');
41: fnd_message.raise_error;
38: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39: fnd_message.set_token('PROCEDURE', l_proc);
40: fnd_message.set_token('STEP','10');
41: fnd_message.raise_error;
42: ElsIf (p_constraint_name = 'PER_ORG_STRUCTURE_ELEMENTS_FK3') Then
43: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
44: fnd_message.set_token('PROCEDURE', l_proc);
45: fnd_message.set_token('STEP','15');
46: fnd_message.raise_error;
43: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
44: fnd_message.set_token('PROCEDURE', l_proc);
45: fnd_message.set_token('STEP','15');
46: fnd_message.raise_error;
47: ElsIf (p_constraint_name = 'PER_ORG_STRUCTURE_ELEMENTS_FK4') Then
48: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
49: fnd_message.set_token('PROCEDURE', l_proc);
50: fnd_message.set_token('STEP','20');
51: fnd_message.raise_error;
48: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
49: fnd_message.set_token('PROCEDURE', l_proc);
50: fnd_message.set_token('STEP','20');
51: fnd_message.raise_error;
52: ElsIf (p_constraint_name = 'PER_ORG_STRUCTURE_ELEMENTS_PK') Then
53: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
54: fnd_message.set_token('PROCEDURE', l_proc);
55: fnd_message.set_token('STEP','25');
56: fnd_message.raise_error;
53: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
54: fnd_message.set_token('PROCEDURE', l_proc);
55: fnd_message.set_token('STEP','25');
56: fnd_message.raise_error;
57: ElsIf (p_constraint_name = 'PER_ORG_STRUCTURE_ELEMENTS_UK2') Then
58: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
59: fnd_message.set_token('PROCEDURE', l_proc);
60: fnd_message.set_token('STEP','30');
61: fnd_message.raise_error;
92: ,program_id
93: ,program_update_date
94: ,object_version_number
95: ,position_control_enabled_flag
96: from per_org_structure_elements
97: where org_structure_element_id = p_org_structure_element_id;
98: --
99: l_fct_ret boolean;
100: --
168: ,program_id
169: ,program_update_date
170: ,object_version_number
171: ,position_control_enabled_flag
172: from per_org_structure_elements
173: where org_structure_element_id = p_org_structure_element_id
174: for update nowait;
175: --
176: l_proc varchar2(72) := g_package||'lck';
211: -- The object is locked therefore we need to supply a meaningful
212: -- error message.
213: --
214: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
215: fnd_message.set_token('TABLE_NAME', 'per_org_structure_elements');
216: fnd_message.raise_error;
217: End lck;
218: --
219: -- ----------------------------------------------------------------------------