[Home] [Help]
1: Package Body pay_pay_shd as
2: /* $Header: pypayrhi.pkb 120.0.12000000.3 2007/03/08 09:23:27 mshingan noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_pay_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
216: --
217: If (p_effective_date is null or
218: p_payroll_id is null or
219: (p_object_version_number is null and
220: pay_pay_shd.g_old_rec.object_version_number is not null)) Then
221: --
222: -- One of the primary key arguments is null therefore we must
223: -- set the returning function value to false
224: --
224: --
225: l_fct_ret := false;
226: Else
227: If (p_payroll_id =
228: pay_pay_shd.g_old_rec.payroll_id and (
229: (p_object_version_number =
230: pay_pay_shd.g_old_rec.object_version_number) or
231: (p_object_version_number is null and
232: pay_pay_shd.g_old_rec.object_version_number is null))) then
226: Else
227: If (p_payroll_id =
228: pay_pay_shd.g_old_rec.payroll_id and (
229: (p_object_version_number =
230: pay_pay_shd.g_old_rec.object_version_number) or
231: (p_object_version_number is null and
232: pay_pay_shd.g_old_rec.object_version_number is null))) then
233: --
234: -- The g_old_rec is current therefore we must
228: pay_pay_shd.g_old_rec.payroll_id and (
229: (p_object_version_number =
230: pay_pay_shd.g_old_rec.object_version_number) or
231: (p_object_version_number is null and
232: pay_pay_shd.g_old_rec.object_version_number is null))) then
233: --
234: -- The g_old_rec is current therefore we must
235: -- set the returning function to true
236: --
239: --
240: -- Select the current row
241: --
242: Open C_Sel1;
243: Fetch C_Sel1 Into pay_pay_shd.g_old_rec;
244: If C_Sel1%notfound Then
245: --
246: Close C_Sel1;
247: --
251: fnd_message.raise_error;
252: --
253: End If;
254: Close C_Sel1;
255: If (p_object_version_number <> pay_pay_shd.g_old_rec.object_version_number) Then
256: --
257: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
258: fnd_message.raise_error;
259: --
393: ,p_base_key_value => p_base_key_value
394: );
395: --
396: hr_utility.set_location(l_proc, 10);
397: pay_pay_shd.g_api_dml := true; -- Set the api dml status
398: --
399: -- Update the specified datetrack row setting the effective
400: -- end date to the specified new effective end date.
401: --
406: and p_effective_date
407: between t.effective_start_date and t.effective_end_date;
408: --
409: l_status_of_dml := SQL%NOTFOUND;
410: pay_pay_shd.g_api_dml := false; -- Unset the api dml status
411:
412: if (l_status_of_dml) then
413: --
414: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
423: hr_utility.set_location(' Leaving:'||l_proc, 15);
424: --
425: Exception
426: When Others Then
427: pay_pay_shd.g_api_dml := false; -- Unset the api dml status
428: Raise;
429: --
430: End upd_effective_end_date;
431: --
543: --
544: Cursor C_Sel3 is
545: select hc.comment_text
546: from hr_comments hc
547: where hc.comment_id = pay_pay_shd.g_old_rec.comment_id;
548: --
549: Begin
550: hr_utility.set_location('Entering:'||l_proc, 5);
551: --
580: --
581: -- We must select and lock the current row.
582: --
583: Open C_Sel1;
584: Fetch C_Sel1 Into pay_pay_shd.g_old_rec;
585: If C_Sel1%notfound then
586: --
587: Close C_Sel1;
588: --
593: --
594: End If;
595: Close C_Sel1;
596:
597: if (pay_pay_shd.g_old_rec.object_version_number is not null) then
598: hr_api.mandatory_arg_error(p_api_name => l_proc
599: ,p_argument => 'object_version_number'
600: ,p_argument_value => p_object_version_number
601: );
600: ,p_argument_value => p_object_version_number
601: );
602: end if;
603:
604: If (p_object_version_number <> pay_pay_shd.g_old_rec.object_version_number and
605: pay_pay_shd.g_old_rec.object_version_number is not null) Then
606: --
607: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
608: fnd_message.raise_error;
601: );
602: end if;
603:
604: If (p_object_version_number <> pay_pay_shd.g_old_rec.object_version_number and
605: pay_pay_shd.g_old_rec.object_version_number is not null) Then
606: --
607: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
608: fnd_message.raise_error;
609: --
611: --
612: -- Providing we are doing an update and a comment_id exists then
613: -- we select the comment text.
614: --
615: If ((pay_pay_shd.g_old_rec.comment_id is not null) and
616: (p_datetrack_mode = hr_api.g_update or
617: p_datetrack_mode = hr_api.g_correction or
618: p_datetrack_mode = hr_api.g_update_override or
619: p_datetrack_mode = hr_api.g_update_change_insert)) then
618: p_datetrack_mode = hr_api.g_update_override or
619: p_datetrack_mode = hr_api.g_update_change_insert)) then
620: --
621: Open C_Sel3;
622: Fetch C_Sel3 Into pay_pay_shd.g_old_rec.comments;
623: If C_Sel3%notfound then
624: --
625: -- The comments for the specified comment_id does not exist.
626: -- We must error due to data integrity problems.
645: ,p_base_key_value => p_payroll_id
646:
647: ,p_parent_table_name1 => 'pay_org_payment_methods_f'
648: ,p_parent_key_column1 => 'org_payment_method_id'
649: ,p_parent_key_value1 => pay_pay_shd.g_old_rec.default_payment_method_id
650:
651: ,p_child_table_name1 => 'per_all_assignments_f'
652: ,p_child_key_column1 => 'assignment_id'
653: ,p_child_alt_base_key_column1 => 'payroll_id'
883: Return(l_rec);
884: --
885: End convert_args;
886: --
887: end pay_pay_shd;