1 PACKAGE BODY pqp_pl_veh_repos_extra_info AS
2 /* $Header: pqplvrip.pkb 120.1 2006/09/13 13:24:45 mseshadr noship $ */
3 g_package VARCHAR2(30);
4 --
5
6 PROCEDURE create_pl_veh_repos_extra_info(p_vehicle_repository_id in number
7 ,p_information_type in varchar2
8 ,p_vrei_attribute_category in varchar2
9 ,p_vrei_information_category in varchar2
10 ,p_vrei_information1 in varchar2
11 ,p_vrei_information2 in varchar2
12 ,p_vrei_information3 in varchar2
13 ,p_vrei_information4 in varchar2
14 ,p_vrei_information5 in varchar2
15 ,p_vrei_information6 in varchar2
16 ,p_vrei_information7 in varchar2
17 ,p_vrei_information8 in varchar2
18 ,p_vrei_information9 in varchar2
19 ,p_vrei_information10 in varchar2
20 ,p_vrei_information11 in varchar2
21 ,p_vrei_information12 in varchar2
22 ,p_vrei_information13 in varchar2
23 ,p_vrei_information14 in varchar2
24 ,p_vrei_information15 in varchar2
25 ,p_vrei_information16 in varchar2
26 ,p_vrei_information17 in varchar2
27 ,p_vrei_information18 in varchar2
28 ,p_vrei_information19 in varchar2
29 ,p_vrei_information20 in varchar2
30 ,p_vrei_information21 in varchar2
31 ,p_vrei_information22 in varchar2
32 ,p_vrei_information23 in varchar2
33 ,p_vrei_information24 in varchar2
34 ,p_vrei_information25 in varchar2
35 ,p_vrei_information26 in varchar2
36 ,p_vrei_information27 in varchar2
37 ,p_vrei_information28 in varchar2
38 ,p_vrei_information29 in varchar2
39 ,p_vrei_information30 in varchar2
40 ,p_request_id in number
41 ,p_program_application_id in number
42 ,p_program_id in number
43 ,p_program_update_date in date
44 ) is
45
46 cursor cur_eff is select effective_start_date,
47 effective_end_date from pqp_vehicle_repository_f
48 where vehicle_repository_id = p_vehicle_repository_id;
49 l_effective_start_date date;
50 l_effective_end_date date;
51
52 Begin
53
54 /* Added for GSI Bug 5472781 */
55 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
56 hr_utility.trace('PL not installed.Leaving create_pl_veh_repos_extra_info');
57 return;
58 END IF;
59
60 If p_vrei_information_category in ('PL_VEHICLE_INSURANCE_INFO','PL_VEHICLE_ACCIDENT_INFO','PL_VEHICLE_ADDITIONAL_INFO') Then
61 Open cur_eff;
62 fetch cur_eff into l_effective_start_date, l_effective_end_date;
63 If fnd_date.canonical_to_date(p_vrei_information1) < l_effective_start_date or fnd_date.canonical_to_date(p_vrei_information1) > l_effective_end_date Then
64 close cur_eff;
65
66 hr_utility.set_message(800,'HR_375832_VRE_PL_EFF_DATE');
67 hr_utility.set_message_token('STARTDATE',l_effective_start_date);
68 hr_utility.set_message_token('ENDDATE',l_effective_end_date);
69 hr_utility.raise_error;
70 End if;
71 close cur_eff;
72 End if;
73
74 End create_pl_veh_repos_extra_info;
75
76 PROCEDURE update_pl_veh_repos_extra_info(p_veh_repos_extra_info_id in number
77 ,p_vehicle_repository_id in number
78 ,p_information_type in varchar2
79 ,p_vrei_attribute_category in varchar2
80 ,p_vrei_information_category in varchar2
81 ,p_vrei_information1 in varchar2
82 ,p_vrei_information2 in varchar2
83 ,p_vrei_information3 in varchar2
84 ,p_vrei_information4 in varchar2
85 ,p_vrei_information5 in varchar2
86 ,p_vrei_information6 in varchar2
87 ,p_vrei_information7 in varchar2
88 ,p_vrei_information8 in varchar2
89 ,p_vrei_information9 in varchar2
90 ,p_vrei_information10 in varchar2
91 ,p_vrei_information11 in varchar2
92 ,p_vrei_information12 in varchar2
93 ,p_vrei_information13 in varchar2
94 ,p_vrei_information14 in varchar2
95 ,p_vrei_information15 in varchar2
96 ,p_vrei_information16 in varchar2
97 ,p_vrei_information17 in varchar2
98 ,p_vrei_information18 in varchar2
99 ,p_vrei_information19 in varchar2
100 ,p_vrei_information20 in varchar2
101 ,p_vrei_information21 in varchar2
102 ,p_vrei_information22 in varchar2
103 ,p_vrei_information23 in varchar2
104 ,p_vrei_information24 in varchar2
105 ,p_vrei_information25 in varchar2
106 ,p_vrei_information26 in varchar2
107 ,p_vrei_information27 in varchar2
108 ,p_vrei_information28 in varchar2
109 ,p_vrei_information29 in varchar2
110 ,p_vrei_information30 in varchar2
111 ,p_request_id in number
112 ,p_program_application_id in number
113 ,p_program_id in number
114 ,p_program_update_date in date
115 ) is
116
117 cursor cur_eff is select effective_start_date,
118 effective_end_date from pqp_vehicle_repository_f
119 where vehicle_repository_id = p_vehicle_repository_id;
120 l_effective_start_date date;
121 l_effective_end_date date;
122
123 Begin
124
125 /* Added for GSI Bug 5472781 */
126 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
127 hr_utility.trace('PL not installed.Leaving update_pl_veh_repos_extra_info');
128 return;
129 END IF;
130
131 If p_vrei_information_category in ('PL_VEHICLE_INSURANCE_INFO','PL_VEHICLE_ACCIDENT_INFO','PL_VEHICLE_ADDITIONAL_INFO') Then
132 Open cur_eff;
133 fetch cur_eff into l_effective_start_date, l_effective_end_date;
134 If fnd_date.canonical_to_date(p_vrei_information1) < l_effective_start_date or fnd_date.canonical_to_date(p_vrei_information1) > l_effective_end_date Then
135 close cur_eff;
136 hr_utility.set_message(800,'HR_375832_VRE_PL_EFF_DATE');
137 hr_utility.set_message_token('STARTDATE',l_effective_start_date);
138 hr_utility.set_message_token('ENDDATE',l_effective_end_date);
139 hr_utility.raise_error;
140 End if;
141 close cur_eff;
142 End if;
143
144 End update_pl_veh_repos_extra_info;
145
146 END pqp_pl_veh_repos_extra_info;