322: --
323: l_proc varchar2(72) := g_package||'lck';
324: --
325: Begin
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: hr_api.mandatory_arg_error
329: (p_api_name => l_proc
330: ,p_argument => 'PL_ID'
329: (p_api_name => l_proc
330: ,p_argument => 'PL_ID'
331: ,p_argument_value => p_pl_id
332: );
333: hr_utility.set_location(l_proc,6);
334: hr_api.mandatory_arg_error
335: (p_api_name => l_proc
336: ,p_argument => 'LF_EVT_OCRD_DT'
337: ,p_argument_value => p_lf_evt_ocrd_dt
335: (p_api_name => l_proc
336: ,p_argument => 'LF_EVT_OCRD_DT'
337: ,p_argument_value => p_lf_evt_ocrd_dt
338: );
339: hr_utility.set_location(l_proc,7);
340: hr_api.mandatory_arg_error
341: (p_api_name => l_proc
342: ,p_argument => 'OIPL_ID'
343: ,p_argument_value => p_oipl_id
341: (p_api_name => l_proc
342: ,p_argument => 'OIPL_ID'
343: ,p_argument_value => p_oipl_id
344: );
345: hr_utility.set_location(l_proc,8);
346: hr_api.mandatory_arg_error
347: (p_api_name => l_proc
348: ,p_argument => 'OBJECT_VERSION_NUMBER'
349: ,p_argument_value => p_object_version_number
359: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
360: fnd_message.raise_error;
361: End If;
362: Close C_Sel1;
363: hr_utility.set_location('ovn : '||p_object_version_number,999);
364: hr_utility.set_location('old ovn : '||ben_cpd_shd.g_old_rec.object_version_number,999);
365: If (p_object_version_number
366: <> ben_cpd_shd.g_old_rec.object_version_number) Then
367: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
360: fnd_message.raise_error;
361: End If;
362: Close C_Sel1;
363: hr_utility.set_location('ovn : '||p_object_version_number,999);
364: hr_utility.set_location('old ovn : '||ben_cpd_shd.g_old_rec.object_version_number,999);
365: If (p_object_version_number
366: <> ben_cpd_shd.g_old_rec.object_version_number) Then
367: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
368: fnd_message.raise_error;
367: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
368: fnd_message.raise_error;
369: End If;
370: --
371: hr_utility.set_location(' Leaving:'||l_proc, 10);
372: --
373: -- We need to trap the ORA LOCK exception
374: --
375: Exception