17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'PER_PERIODS_OF_PLACEMENT_PK') 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 = 'PER_PERIODS_OF_PLACEMENT_UK1') 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;
122: ,information30
123: ,period_of_placement_id
124: ,final_process_date
125: ,last_standard_process_date
126: from per_periods_of_placement
127: where period_of_placement_id = p_period_of_placement_id;
128: --
129: l_fct_ret boolean;
130: --
259: ,information30
260: ,period_of_placement_id
261: ,final_process_date
262: ,last_standard_process_date
263: from per_periods_of_placement
264: where period_of_placement_id = p_period_of_placement_id
265: for update nowait;
266: --
267: l_proc varchar2(72) := g_package||'lck';
308: -- The object is locked therefore we need to supply a meaningful
309: -- error message.
310: --
311: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
312: fnd_message.set_token('TABLE_NAME', 'per_periods_of_placement');
313: fnd_message.raise_error;
314: End lck;
315: --
316: -- ----------------------------------------------------------------------------