[Home] [Help]
324: --
325: Begin
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: if nvl(p_rec.business_group_id, hr_api.g_number) <>
329: nvl(g_old_rec.business_group_id, hr_api.g_number) then
330: hr_api.argument_changed_error
331: (p_api_name => l_proc
332: ,p_argument => 'business_group_id'
325: Begin
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: if nvl(p_rec.business_group_id, hr_api.g_number) <>
329: nvl(g_old_rec.business_group_id, hr_api.g_number) then
330: hr_api.argument_changed_error
331: (p_api_name => l_proc
332: ,p_argument => 'business_group_id'
333: );
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: if nvl(p_rec.business_group_id, hr_api.g_number) <>
329: nvl(g_old_rec.business_group_id, hr_api.g_number) then
330: hr_api.argument_changed_error
331: (p_api_name => l_proc
332: ,p_argument => 'business_group_id'
333: );
334: end if;
333: );
334: end if;
335: hr_utility.set_location(l_proc, 6);
336: --
337: if nvl(p_rec.org_payment_method_id, hr_api.g_number) <>
338: nvl(g_old_rec.org_payment_method_id, hr_api.g_number) then
339: hr_api.argument_changed_error
340: (p_api_name => l_proc
341: ,p_argument => 'org_payment_method_id'
334: end if;
335: hr_utility.set_location(l_proc, 6);
336: --
337: if nvl(p_rec.org_payment_method_id, hr_api.g_number) <>
338: nvl(g_old_rec.org_payment_method_id, hr_api.g_number) then
339: hr_api.argument_changed_error
340: (p_api_name => l_proc
341: ,p_argument => 'org_payment_method_id'
342: );
335: hr_utility.set_location(l_proc, 6);
336: --
337: if nvl(p_rec.org_payment_method_id, hr_api.g_number) <>
338: nvl(g_old_rec.org_payment_method_id, hr_api.g_number) then
339: hr_api.argument_changed_error
340: (p_api_name => l_proc
341: ,p_argument => 'org_payment_method_id'
342: );
343: end if;
342: );
343: end if;
344: hr_utility.set_location(l_proc, 7);
345: --
346: if nvl(p_rec.target_payroll_action_id, hr_api.g_number) <>
347: nvl(g_old_rec.target_payroll_action_id, hr_api.g_number) then
348: hr_api.argument_changed_error
349: (p_api_name => l_proc
350: ,p_argument => 'target_payroll_action_id'
343: end if;
344: hr_utility.set_location(l_proc, 7);
345: --
346: if nvl(p_rec.target_payroll_action_id, hr_api.g_number) <>
347: nvl(g_old_rec.target_payroll_action_id, hr_api.g_number) then
348: hr_api.argument_changed_error
349: (p_api_name => l_proc
350: ,p_argument => 'target_payroll_action_id'
351: );
344: hr_utility.set_location(l_proc, 7);
345: --
346: if nvl(p_rec.target_payroll_action_id, hr_api.g_number) <>
347: nvl(g_old_rec.target_payroll_action_id, hr_api.g_number) then
348: hr_api.argument_changed_error
349: (p_api_name => l_proc
350: ,p_argument => 'target_payroll_action_id'
351: );
352: end if;
351: );
352: end if;
353: hr_utility.set_location(l_proc, 8);
354: --
355: if nvl(p_rec.effective_date, hr_api.g_date) <>
356: nvl(g_old_rec.effective_date, hr_api.g_date) then
357: hr_api.argument_changed_error
358: (p_api_name => l_proc
359: ,p_argument => 'effective_date'
352: end if;
353: hr_utility.set_location(l_proc, 8);
354: --
355: if nvl(p_rec.effective_date, hr_api.g_date) <>
356: nvl(g_old_rec.effective_date, hr_api.g_date) then
357: hr_api.argument_changed_error
358: (p_api_name => l_proc
359: ,p_argument => 'effective_date'
360: );
353: hr_utility.set_location(l_proc, 8);
354: --
355: if nvl(p_rec.effective_date, hr_api.g_date) <>
356: nvl(g_old_rec.effective_date, hr_api.g_date) then
357: hr_api.argument_changed_error
358: (p_api_name => l_proc
359: ,p_argument => 'effective_date'
360: );
361: end if;
439: hr_utility.set_location('Entering:'|| l_proc, 5);
440: --
441: -- Check mandatory parameters have been set
442: --
443: hr_api.mandatory_arg_error
444:
445: (p_api_name => l_proc
446: ,p_argument => 'target_payroll_action_id'
447: ,p_argument_value => p_target_payroll_action_id
445: (p_api_name => l_proc
446: ,p_argument => 'target_payroll_action_id'
447: ,p_argument_value => p_target_payroll_action_id
448: );
449: hr_api.mandatory_arg_error
450: (p_api_name => l_proc
451: ,p_argument => 'business_group_id'
452: ,p_argument_value => p_business_group_id
453: );
450: (p_api_name => l_proc
451: ,p_argument => 'business_group_id'
452: ,p_argument_value => p_business_group_id
453: );
454: hr_api.mandatory_arg_error
455: (p_api_name => l_proc
456: ,p_argument => 'effective_date'
457: ,p_argument_value => p_effective_date
458:
521: -- {Start Of Comments}
522: --
523: -- Description:
524: -- This procedure is called when a constraint has been violated (i.e.
525: -- The exception hr_api.check_integrity_violated,
526: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
527: -- hr_api.unique_integrity_violated has been raised).
528: -- The exceptions can only be raised as follows:
529: -- 1) A check constraint can only be violated during an INSERT or UPDATE
522: --
523: -- Description:
524: -- This procedure is called when a constraint has been violated (i.e.
525: -- The exception hr_api.check_integrity_violated,
526: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
527: -- hr_api.unique_integrity_violated has been raised).
528: -- The exceptions can only be raised as follows:
529: -- 1) A check constraint can only be violated during an INSERT or UPDATE
530: -- dml operation.
523: -- Description:
524: -- This procedure is called when a constraint has been violated (i.e.
525: -- The exception hr_api.check_integrity_violated,
526: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
527: -- hr_api.unique_integrity_violated has been raised).
528: -- The exceptions can only be raised as follows:
529: -- 1) A check constraint can only be violated during an INSERT or UPDATE
530: -- dml operation.
531: -- 2) A parent integrity constraint can only be violated during an
536: -- 4) A unique integrity constraint can only be violated during INSERT or
537: -- UPDATE dml operation.
538: --
539: -- Pre Conditions:
540: -- 1) Either hr_api.check_integrity_violated,
541: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
542: -- hr_api.unique_integrity_violated has been raised with the subsequent
543: -- stripping of the constraint name from the generated error message
544: -- text.
537: -- UPDATE dml operation.
538: --
539: -- Pre Conditions:
540: -- 1) Either hr_api.check_integrity_violated,
541: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
542: -- hr_api.unique_integrity_violated has been raised with the subsequent
543: -- stripping of the constraint name from the generated error message
544: -- text.
545: -- 2) Standalone validation test which correspond with a constraint error.
538: --
539: -- Pre Conditions:
540: -- 1) Either hr_api.check_integrity_violated,
541: -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
542: -- hr_api.unique_integrity_violated has been raised with the subsequent
543: -- stripping of the constraint name from the generated error message
544: -- text.
545: -- 2) Standalone validation test which correspond with a constraint error.
546:
677: hr_utility.set_location('Entering:'||l_proc, 5);
678: --
679: -- Check the mandatory args have been set
680: --
681: hr_api.mandatory_arg_error
682: (p_api_name => l_proc
683: ,p_argument => 'payroll_action_id'
684: ,p_argument_value => p_payroll_action_id
685: );
682: (p_api_name => l_proc
683: ,p_argument => 'payroll_action_id'
684: ,p_argument_value => p_payroll_action_id
685: );
686: hr_api.mandatory_arg_error
687: (p_api_name => l_proc
688: ,p_argument => 'p_object_version_number'
689: ,p_argument_value => p_p_object_version_number
690: );
687: (p_api_name => l_proc
688: ,p_argument => 'p_object_version_number'
689: ,p_argument_value => p_p_object_version_number
690: );
691: hr_api.mandatory_arg_error
692: (p_api_name => l_proc
693: ,p_argument => 'a_object_version_number'
694: ,p_argument_value => p_a_object_version_number
695: );
731: --
732: -- We need to trap the ORA LOCK exception
733: --
734: Exception
735: When HR_Api.Object_Locked then
736: --
737: -- The object is locked therefore we need to supply a meaningful
738: -- error message.
739: --
795: -- p_rec plsql record structure
796: -- to see if a system default is being used. If a system default
797: -- is being used then we must set to the 'current' argument value.
798: --
799: If (p_rec.business_group_id = hr_api.g_number) then
800: p_rec.business_group_id := g_old_rec.business_group_id;
801: End If;
802: If (p_rec.org_payment_method_id = hr_api.g_number) then
803: p_rec.org_payment_method_id := g_old_rec.org_payment_method_id;
798: --
799: If (p_rec.business_group_id = hr_api.g_number) then
800: p_rec.business_group_id := g_old_rec.business_group_id;
801: End If;
802: If (p_rec.org_payment_method_id = hr_api.g_number) then
803: p_rec.org_payment_method_id := g_old_rec.org_payment_method_id;
804: End If;
805: If (p_rec.action_status = hr_api.g_varchar2) then
806: p_rec.action_status := g_old_rec.action_status;
801: End If;
802: If (p_rec.org_payment_method_id = hr_api.g_number) then
803: p_rec.org_payment_method_id := g_old_rec.org_payment_method_id;
804: End If;
805: If (p_rec.action_status = hr_api.g_varchar2) then
806: p_rec.action_status := g_old_rec.action_status;
807: End If;
808: If (p_rec.effective_date = hr_api.g_date) then
809: p_rec.effective_date := g_old_rec.effective_date;
804: End If;
805: If (p_rec.action_status = hr_api.g_varchar2) then
806: p_rec.action_status := g_old_rec.action_status;
807: End If;
808: If (p_rec.effective_date = hr_api.g_date) then
809: p_rec.effective_date := g_old_rec.effective_date;
810: End If;
811: If (p_rec.target_payroll_action_id = hr_api.g_number) then
812: p_rec.target_payroll_action_id := g_old_rec.target_payroll_action_id;
807: End If;
808: If (p_rec.effective_date = hr_api.g_date) then
809: p_rec.effective_date := g_old_rec.effective_date;
810: End If;
811: If (p_rec.target_payroll_action_id = hr_api.g_number) then
812: p_rec.target_payroll_action_id := g_old_rec.target_payroll_action_id;
813: End If;
814: --
815: -- Return the plsql record structure.
886: --
887: hr_utility.set_location(' Leaving:'||l_proc, 10);
888: --
889: Exception
890: When hr_api.check_integrity_violated Then
891: -- A check constraint has been violated
892: g_api_dml := false; -- Unset the api dml status
893: constraint_error
894: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
890: When hr_api.check_integrity_violated Then
891: -- A check constraint has been violated
892: g_api_dml := false; -- Unset the api dml status
893: constraint_error
894: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
895: When hr_api.parent_integrity_violated then
896: -- Parent integrity has been violated
897: g_api_dml := false; -- Unset the api dml status
898: constraint_error
891: -- A check constraint has been violated
892: g_api_dml := false; -- Unset the api dml status
893: constraint_error
894: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
895: When hr_api.parent_integrity_violated then
896: -- Parent integrity has been violated
897: g_api_dml := false; -- Unset the api dml status
898: constraint_error
899: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
895: When hr_api.parent_integrity_violated then
896: -- Parent integrity has been violated
897: g_api_dml := false; -- Unset the api dml status
898: constraint_error
899: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
900: When hr_api.unique_integrity_violated Then
901: -- Unique integrity has been violated
902: g_api_dml := false; -- Unset the api dml status
903: constraint_error
896: -- Parent integrity has been violated
897: g_api_dml := false; -- Unset the api dml status
898: constraint_error
899: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
900: When hr_api.unique_integrity_violated Then
901: -- Unique integrity has been violated
902: g_api_dml := false; -- Unset the api dml status
903: constraint_error
904: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
900: When hr_api.unique_integrity_violated Then
901: -- Unique integrity has been violated
902: g_api_dml := false; -- Unset the api dml status
903: constraint_error
904: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
905: When Others Then
906: g_api_dml := false; -- Unset the api dml status
907: Raise;
908: End update_dml;
1028: g_api_dml := false;
1029: --
1030: hr_utility.set_location(' Leaving:'||l_proc, 10);
1031: Exception
1032: When hr_api.check_integrity_violated Then
1033: -- A check constraint has been violated
1034: g_api_dml := false; -- Unset the api dml status
1035: constraint_error
1036: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1032: When hr_api.check_integrity_violated Then
1033: -- A check constraint has been violated
1034: g_api_dml := false; -- Unset the api dml status
1035: constraint_error
1036: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1037: When hr_api.parent_integrity_violated then
1038: -- Parent integrity has been violated
1039: g_api_dml := false; -- Unset the api dml status
1040: constraint_error
1033: -- A check constraint has been violated
1034: g_api_dml := false; -- Unset the api dml status
1035: constraint_error
1036: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1037: When hr_api.parent_integrity_violated then
1038: -- Parent integrity has been violated
1039: g_api_dml := false; -- Unset the api dml status
1040: constraint_error
1041:
1038: -- Parent integrity has been violated
1039: g_api_dml := false; -- Unset the api dml status
1040: constraint_error
1041:
1042: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1043: When hr_api.unique_integrity_violated Then
1044: -- Unique integrity has been violated
1045: g_api_dml := false; -- Unset the api dml status
1046: constraint_error
1039: g_api_dml := false; -- Unset the api dml status
1040: constraint_error
1041:
1042: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1043: When hr_api.unique_integrity_violated Then
1044: -- Unique integrity has been violated
1045: g_api_dml := false; -- Unset the api dml status
1046: constraint_error
1047: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1043: When hr_api.unique_integrity_violated Then
1044: -- Unique integrity has been violated
1045: g_api_dml := false; -- Unset the api dml status
1046: constraint_error
1047: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
1048: When Others Then
1049: g_api_dml := false; -- Unset the api dml status
1050: hr_utility.set_location('Others exception '||l_proc,-999);
1051: Raise;
1542: --
1543: -- If we are validating then raise the Validate_Enabled exception
1544: --
1545: If p_validate then
1546: Raise HR_Api.Validate_Enabled;
1547: End If;
1548: --
1549: hr_utility.set_location(' Leaving:'||l_proc, 10);
1550: Exception
1547: End If;
1548: --
1549: hr_utility.set_location(' Leaving:'||l_proc, 10);
1550: Exception
1551: When HR_Api.Validate_Enabled Then
1552: --
1553: -- As the Validate_Enabled exception has been raised
1554: -- we must rollback to the savepoint
1555: --
1635: -- If we are validating then raise the Validate_Enabled exception
1636: --
1637: If p_validate then
1638:
1639: Raise HR_Api.Validate_Enabled;
1640: End If;
1641: --
1642: hr_utility.set_location(' Leaving:'||l_proc, 10);
1643: Exception
1640: End If;
1641: --
1642: hr_utility.set_location(' Leaving:'||l_proc, 10);
1643: Exception
1644: When HR_Api.Validate_Enabled Then
1645: --
1646:
1647: -- As the Validate_Enabled exception has been raised
1648: -- we must rollback to the savepoint
1657: --
1658: procedure upd
1659: (p_payroll_action_id in number
1660: ,p_assignment_action_id in number
1661: ,p_action_status in varchar2 default hr_api.g_varchar2
1662: ,p_p_object_version_number in out nocopy number
1663: ,p_a_object_version_number in number
1664: ,p_validate in boolean default false
1665: ) is
1676: --
1677: l_rec :=
1678: convert_args
1679: (p_payroll_action_id
1680: ,hr_api.g_number
1681: ,hr_api.g_number
1682: ,p_action_status
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1677: l_rec :=
1678: convert_args
1679: (p_payroll_action_id
1680: ,hr_api.g_number
1681: ,hr_api.g_number
1682: ,p_action_status
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1679: (p_payroll_action_id
1680: ,hr_api.g_number
1681: ,hr_api.g_number
1682: ,p_action_status
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1680: ,hr_api.g_number
1681: ,hr_api.g_number
1682: ,p_action_status
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1688: ,hr_api.g_varchar2
1681: ,hr_api.g_number
1682: ,p_action_status
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1688: ,hr_api.g_varchar2
1689: ,hr_api.g_varchar2
1683: ,hr_api.g_date
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1688: ,hr_api.g_varchar2
1689: ,hr_api.g_varchar2
1690: );
1691: --
1684: ,hr_api.g_varchar2
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1688: ,hr_api.g_varchar2
1689: ,hr_api.g_varchar2
1690: );
1691: --
1692: -- Having converted the arguments into the
1685: ,hr_api.g_number
1686: ,p_p_object_version_number
1687: ,hr_api.g_varchar2
1688: ,hr_api.g_varchar2
1689: ,hr_api.g_varchar2
1690: );
1691: --
1692: -- Having converted the arguments into the
1693: -- plsql record structure we call the corresponding record