[Home] [Help]
PACKAGE BODY: APPS.PER_IN_EXTRA_PER_INFO_LEG_HOOK
Source
1 PACKAGE BODY per_in_extra_per_info_leg_hook AS
2 /* $Header: peinlhei.pkb 120.2 2006/05/27 18:47:39 statkar noship $ */
3
4 g_package CONSTANT VARCHAR2(100) := 'per_in_extra_per_info_leg_hook.';
5 g_debug BOOLEAN;
6
7 --
8 --------------------------------------------------------------------------
9 -- --
10 -- Name : VALIDATE_ISSUE_EXPIRY_DATE --
11 -- Type : PROCEDURE --
12 -- Access : Public --
13 -- Description : Checks for the validity of the format of the PAN --
14 -- --
15 -- --
16 -- --
17 -- Parameters : --
18 -- IN : p_pei_information5 VARCHAR2 --
19 -- : p_pei_information6 VARCHAR2 --
20 -- : p_pei_information_category VARCHAR2 --
21 -- OUT : N/A --
22 -- RETURN : N/A --
23 -- --
24 -- Change History : --
25 --------------------------------------------------------------------------
26 -- Rev# Date Userid Description --
27 --------------------------------------------------------------------------
28 -- 1.0 22-May-04 abhjain Created this procedure --
29 --------------------------------------------------------------------------
30
31 PROCEDURE validate_issue_expiry_date(
32 p_pei_information_category IN VARCHAR2
33 ,p_pei_information4 IN VARCHAR2
34 ,p_pei_information5 IN VARCHAR2
35 ) IS
36 l_procedure VARCHAR2(80);
37 l_message VARCHAR2(250);
38 E_INVALID_DATES_ERR EXCEPTION;
39 BEGIN
40
41 l_procedure := g_package||'validate_issue_expiry_date';
42 g_debug := hr_utility.debug_enabled;
43 pay_in_utils.set_location(g_debug, 'Entering: ' || l_procedure, 10);
44
45 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'IN') THEN
46 hr_utility.trace ('IN Legislation not installed. Not performing the validations');
47 pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
48 RETURN;
49 END IF;
50
51 IF g_debug THEN
52 pay_in_utils.trace('**************************************************','********************');
53 pay_in_utils.trace('p_pei_information_category',p_pei_information_category);
54 pay_in_utils.trace('p_pei_information4 ',p_pei_information4 );
55 pay_in_utils.trace('p_pei_information5 ',p_pei_information5 );
56 pay_in_utils.trace('**************************************************','********************');
57 END IF;
58
59 IF p_pei_information_category = 'IN_PASSPORT_DETAILS' THEN
60 l_procedure :='PER_IN_EXTRA_PER_INFO_LEG_HOOK.VALIDATE_ISSUE_EXPIRY_DATE';
61 pay_in_utils.set_location(g_debug,l_procedure,10);
62 IF p_pei_information4 IS NOT NULL AND p_pei_information5 IS NOT NULL THEN
63 IF fnd_date.canonical_to_date(p_pei_information4) > fnd_date.canonical_to_date(p_pei_information5) THEN
64 RAISE E_INVALID_DATES_ERR;
65 END IF;
66 END IF;
67 pay_in_utils.set_location(g_debug,l_procedure,20);
68 END IF;
69
70 pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
71
72 EXCEPTION
73 WHEN E_INVALID_DATES_ERR THEN
74 hr_utility.set_message(800,'PER_IN_INCORRECT_PASSPORT_DATE');
75 pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 40);
76 hr_utility.raise_error;
77
78 END validate_issue_expiry_date;
79
80
81 END per_in_extra_per_info_leg_hook;