1: PACKAGE BODY per_pcl_shd AS
2: /* $Header: pepclrhi.pkb 115.9 2002/12/09 15:33:43 pkakar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pcl_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |-------------------------< non_value_category >---------------------------|
12: -- ----------------------------------------------------------------------------
296: --
297: l_fct_ret := false;
298: Else
299: If (p_cagr_entitlement_line_id =
300: per_pcl_shd.g_old_rec.cagr_entitlement_line_id and
301: p_object_version_number =
302: per_pcl_shd.g_old_rec.object_version_number
303: ) Then
304: --
298: Else
299: If (p_cagr_entitlement_line_id =
300: per_pcl_shd.g_old_rec.cagr_entitlement_line_id and
301: p_object_version_number =
302: per_pcl_shd.g_old_rec.object_version_number
303: ) Then
304: --
305: -- The g_old_rec is current therefore we must
306: -- set the returning function to true
310: --
311: -- Select the current row
312: --
313: Open C_Sel1;
314: Fetch C_Sel1 Into per_pcl_shd.g_old_rec;
315: If C_Sel1%notfound Then
316: Close C_Sel1;
317: --
318: -- The primary key is invalid therefore we must error
321: fnd_message.raise_error;
322: End If;
323: Close C_Sel1;
324: If (p_object_version_number
325: <> per_pcl_shd.g_old_rec.object_version_number) Then
326: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
327: fnd_message.raise_error;
328: End If;
329: l_fct_ret := true;
566: --
567: -- We must select and lock the current row.
568: --
569: Open C_Sel1;
570: Fetch C_Sel1 Into per_pcl_shd.g_old_rec;
571: If C_Sel1%notfound then
572: Close C_Sel1;
573: --
574: -- The primary key is invalid therefore we must error
577: fnd_message.raise_error;
578: End If;
579: Close C_Sel1;
580: If (p_object_version_number
581: <> per_pcl_shd.g_old_rec.object_version_number) Then
582: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
583: fnd_message.raise_error;
584: End If;
585: --
594: ,p_base_key_column => 'cagr_entitlement_line_id'
595: ,p_base_key_value => p_cagr_entitlement_line_id
596: ,p_parent_table_name1 => 'per_grade_spines_f'
597: ,p_parent_key_column1 => 'grade_spine_id'
598: ,p_parent_key_value1 => per_pcl_shd.g_old_rec.grade_spine_id
599: ,p_parent_table_name2 => 'per_spinal_point_steps_f'
600: ,p_parent_key_column2 => 'step_id'
601: ,p_parent_key_value2 => per_pcl_shd.g_old_rec.step_id
602: ,p_parent_table_name3 => 'per_spinal_point_steps_f'
597: ,p_parent_key_column1 => 'grade_spine_id'
598: ,p_parent_key_value1 => per_pcl_shd.g_old_rec.grade_spine_id
599: ,p_parent_table_name2 => 'per_spinal_point_steps_f'
600: ,p_parent_key_column2 => 'step_id'
601: ,p_parent_key_value2 => per_pcl_shd.g_old_rec.step_id
602: ,p_parent_table_name3 => 'per_spinal_point_steps_f'
603: ,p_parent_key_column3 => 'step_id'
604: ,p_parent_key_value3 => per_pcl_shd.g_old_rec.from_step_id
605: ,p_parent_table_name4 => 'per_spinal_point_steps_f'
600: ,p_parent_key_column2 => 'step_id'
601: ,p_parent_key_value2 => per_pcl_shd.g_old_rec.step_id
602: ,p_parent_table_name3 => 'per_spinal_point_steps_f'
603: ,p_parent_key_column3 => 'step_id'
604: ,p_parent_key_value3 => per_pcl_shd.g_old_rec.from_step_id
605: ,p_parent_table_name4 => 'per_spinal_point_steps_f'
606: ,p_parent_key_column4 => 'step_id'
607: ,p_parent_key_value4 => per_pcl_shd.g_old_rec.to_step_id
608: ,p_enforce_foreign_locking => true
603: ,p_parent_key_column3 => 'step_id'
604: ,p_parent_key_value3 => per_pcl_shd.g_old_rec.from_step_id
605: ,p_parent_table_name4 => 'per_spinal_point_steps_f'
606: ,p_parent_key_column4 => 'step_id'
607: ,p_parent_key_value4 => per_pcl_shd.g_old_rec.to_step_id
608: ,p_enforce_foreign_locking => true
609: ,p_validation_start_date => l_validation_start_date
610: ,p_validation_end_date => l_validation_end_date
611: );
694: Return(l_rec);
695: --
696: End convert_args;
697: --
698: end per_pcl_shd;