1 PACKAGE BODY per_hu_person_extra_info AS
2 /* $Header: pehupeip.pkb 120.1 2006/09/21 09:13:51 mgettins noship $ */
3
4
5 PROCEDURE chk_dl_date(p_pei_information3 VARCHAR2
6 ,p_pei_information4 VARCHAR2
7 ) IS
8 BEGIN
9 IF p_pei_information3 IS NOT NULL AND p_pei_information4 IS NOT NULL THEN
10 IF fnd_date.canonical_to_date(p_pei_information3) > fnd_date.canonical_to_date(p_pei_information4) THEN
11 hr_utility.set_message(800,'HR_HU_START_END_DATES');
12 hr_utility.set_message_token(800,'VALUE2',hr_general.decode_lookup('HU_FORM_LABELS','DL_EXPIRY_DATE'));
13 hr_utility.set_message_token(800,'VALUE1',hr_general.decode_lookup('HU_FORM_LABELS','START_DATE'));
14 hr_utility.raise_error;
15 END IF;
16 END IF;
17 END chk_dl_date;
18 --
19 PROCEDURE chk_passport_date(p_pei_information3 VARCHAR2
20 ,p_pei_information4 VARCHAR2
21 ) IS
22 BEGIN
23 IF p_pei_information3 IS NOT NULL AND p_pei_information4 IS NOT NULL THEN
24 IF fnd_date.canonical_to_date(p_pei_information3) > fnd_date.canonical_to_date(p_pei_information4) THEN
25 hr_utility.set_message(800,'HR_HU_START_END_DATES');
26 hr_utility.set_message_token(800,'VALUE2',hr_general.decode_lookup('HU_FORM_LABELS','PASSPORT_EXPIRY_DATE'));
27 hr_utility.set_message_token(800,'VALUE1',hr_general.decode_lookup('HU_FORM_LABELS','ISSUE_DATE'));
28 hr_utility.raise_error;
29 END IF;
30 END IF;
31 END chk_passport_date;
32 --
33 PROCEDURE chk_residency_date(p_pei_information3 VARCHAR2
34 ,p_pei_information4 VARCHAR2
35 ) IS
36 BEGIN
37 IF p_pei_information3 IS NOT NULL AND p_pei_information4 IS NOT NULL THEN
38 IF fnd_date.canonical_to_date(p_pei_information3) > fnd_date.canonical_to_date(p_pei_information4) THEN
39 hr_utility.set_message(800,'HR_HU_START_END_DATES');
40 hr_utility.set_message_token(800,'VALUE2',hr_general.decode_lookup('HU_FORM_LABELS','RESIDENCY_EXPIRY_DATE'));
41 hr_utility.set_message_token(800,'VALUE1',hr_general.decode_lookup('HU_FORM_LABELS','ISSUE_DATE'));
42 hr_utility.raise_error;
43 END IF;
44 END IF;
45 END chk_residency_date;
46 --
47 PROCEDURE chk_permit_date(p_pei_information3 VARCHAR2
48 ,p_pei_information4 VARCHAR2
49 ) IS
50 BEGIN
51 IF p_pei_information3 IS NOT NULL AND p_pei_information4 IS NOT NULL THEN
52 IF fnd_date.canonical_to_date(p_pei_information3) > fnd_date.canonical_to_date(p_pei_information4) THEN
53 hr_utility.set_message(800,'HR_HU_START_END_DATES');
54 hr_utility.set_message_token(800,'VALUE2',hr_general.decode_lookup('HU_FORM_LABELS','PERMIT_EXPIRY_DATE'));
55 hr_utility.set_message_token(800,'VALUE1',hr_general.decode_lookup('HU_FORM_LABELS','ISSUE_DATE'));
56 hr_utility.raise_error;
57 END IF;
58 END IF;
59 END chk_permit_date;
60
61 --
62
63 PROCEDURE CREATE_HU_PERSON_EXTRA_INFO
64 (p_person_id IN NUMBER
65 ,p_information_type IN VARCHAR2
66 ,p_pei_information_category IN VARCHAR2
67 ,p_pei_information3 IN VARCHAR2
68 ,p_pei_information4 IN VARCHAR2
69 ) IS
70 BEGIN
71 --
72 -- Added for GSI Bug 5472781
73 --
74 IF hr_utility.chk_product_install('Oracle Human Resources', 'HU') THEN
75 --
76 IF p_information_type='HU_DRIVING_LICENSE' THEN
77 per_hu_person_extra_info.chk_dl_date(p_pei_information3 => p_pei_information3
78 ,p_pei_information4 => p_pei_information4);
79 END IF;
80 IF p_information_type='HU_PASSPORT' THEN
81 per_hu_person_extra_info.chk_passport_date(p_pei_information3 => p_pei_information3
82 ,p_pei_information4 => p_pei_information4);
83 END IF;
84 IF p_information_type='HU_PERMIT_INFO' THEN
85 per_hu_person_extra_info.chk_permit_date(p_pei_information3 => p_pei_information3
86 ,p_pei_information4 => p_pei_information4);
87 END IF;
88 IF p_information_type='HU_RESIDENCY' THEN
89 per_hu_person_extra_info.chk_residency_date(p_pei_information3 => p_pei_information3
90 ,p_pei_information4 => p_pei_information4);
91 END IF;
92 END IF;
93 END create_hu_person_extra_info;
94
95 --
96 PROCEDURE UPDATE_HU_PERSON_EXTRA_INFO
97 (p_person_extra_info_id IN NUMBER
98 ,p_pei_information_category IN VARCHAR2
99 ,p_pei_information3 IN VARCHAR2
100 ,p_pei_information4 IN VARCHAR2
101 ) IS
102 BEGIN
103 --
104 -- Added for GSI Bug 5472781
105 --
106 IF hr_utility.chk_product_install('Oracle Human Resources', 'HU') THEN
107 --
108 IF p_pei_information_category='HU_DRIVING_LICENSE' THEN
109 per_hu_person_extra_info.chk_dl_date(p_pei_information3 => p_pei_information3
110 ,p_pei_information4 => p_pei_information4);
111 END IF;
112 IF p_pei_information_category='HU_PASSPORT' THEN
113 per_hu_person_extra_info.chk_passport_date(p_pei_information3 => p_pei_information3
114 ,p_pei_information4 => p_pei_information4);
115 END IF;
116 IF p_pei_information_category='HU_PERMIT_INFO' THEN
117 per_hu_person_extra_info.chk_permit_date(p_pei_information3 => p_pei_information3
118 ,p_pei_information4 => p_pei_information4);
119 END IF;
120 IF p_pei_information_category='HU_RESIDENCY' THEN
121 per_hu_person_extra_info.chk_residency_date(p_pei_information3 => p_pei_information3
122 ,p_pei_information4 => p_pei_information4);
123 END IF;
124 END IF;
125 END update_hu_person_extra_info;
126 --
127 END per_hu_person_extra_info;