18: --
19: Begin
20: hr_utility.set_location('Entering:'||l_proc, 5);
21: --
22: If (p_constraint_name = 'PQH_BUDGET_PERIODS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BUDGET_SETS_FK2') Then
28: hr_utility.set_message(8302, 'PQH_BUDGET_SETS_EXISTS');
29: hr_utility.raise_error;
30: ElsIf (p_constraint_name = 'PQH_BUDGET_PERIODS_FK2') Then
31: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP','10');
34: hr_utility.raise_error;
31: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
32: hr_utility.set_message_token('PROCEDURE', l_proc);
33: hr_utility.set_message_token('STEP','10');
34: hr_utility.raise_error;
35: ElsIf (p_constraint_name = 'PQH_BUDGET_PERIODS_FK3') Then
36: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('STEP','15');
39: hr_utility.raise_error;
36: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('STEP','15');
39: hr_utility.raise_error;
40: ElsIf (p_constraint_name = 'PQH_BUDGET_PERIODS_PK') Then
41: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
42: hr_utility.set_message_token('PROCEDURE', l_proc);
43: hr_utility.set_message_token('STEP','20');
44: hr_utility.raise_error;
41: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
42: hr_utility.set_message_token('PROCEDURE', l_proc);
43: hr_utility.set_message_token('STEP','20');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PQH_BUDGET_PERIODS_UK') Then
46: --
47: -- Code Changed to provide a more meaningful message on
48: -- unique constraint failure.
49: --
89: budget_unit1_available,
90: budget_unit2_available,
91: budget_unit3_available,
92: object_version_number
93: from pqh_budget_periods
94: where budget_period_id = p_budget_period_id;
95: --
96: l_proc varchar2(72) := g_package||'api_updating';
97: l_fct_ret boolean;
175: budget_unit1_available,
176: budget_unit2_available,
177: budget_unit3_available,
178: object_version_number
179: from pqh_budget_periods
180: where budget_period_id = p_budget_period_id
181: for update nowait;
182: --
183: l_proc varchar2(72) := g_package||'lck';
218: -- The object is locked therefore we need to supply a meaningful
219: -- error message.
220: --
221: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
222: hr_utility.set_message_token('TABLE_NAME', 'pqh_budget_periods');
223: hr_utility.raise_error;
224: End lck;
225: --
226: -- ----------------------------------------------------------------------------