[Home] [Help]
1: PACKAGE BODY PER_PERSON_TYPES_PKG as
2: /* $Header: pedpt01t.pkb 120.1 2011/04/28 10:13:45 sidsaxen ship $ */
3: --------------------------------------------------------------------------------
4: g_dummy number(1); -- Dummy for cursor returns which are not needed
5: g_business_group_id number(15); -- For validating translation;
757: AND (ppt.person_type_id <> p_person_type_id OR p_person_type_id IS NULL)
758: AND (ppt.business_group_id = p_bus_grp_id OR p_bus_grp_id IS NULL)
759: ;
760:
761: l_package_name VARCHAR2(80) := 'PER_PERSON_TYPES_PKG.VALIDATE_TRANSLATION';
762: l_business_group_id NUMBER := nvl(p_business_group_id, g_business_group_id);
763:
764: BEGIN
765: hr_utility.set_location (l_package_name,10);
780: hr_utility.set_location ('Leaving:'||l_package_name,80);
781: END validate_translation;
782: --------------------------------------------------------------------------------
783:
784: END PER_PERSON_TYPES_PKG;