[Home] [Help]
PACKAGE BODY: APPS.PQP_PL_VEHICLE_ALLOCATIONS_API
Source
1 Package Body pqp_pl_vehicle_allocations_api as
2 /* $Header: pqvalpli.pkb 120.0 2005/10/16 22:54:39 ssekhar noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33);
7 --
8 -- -------------------------------------------------------------------------------------
9 -- |-------------------------< create_pl_vehicle_allocation >---------------------------|
10 -- -------------------------------------------------------------------------------------
11 --
12 procedure create_pl_vehicle_allocation
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_assignment_id in number
16 ,p_business_group_id in number
17 ,p_vehicle_repository_id in number default null
18 ,p_across_assignments in varchar2 default null
19 ,p_usage_type in varchar2 default null
20 ,p_capital_contribution in number default null
21 ,p_private_contribution in number default null
22 ,p_default_vehicle in varchar2 default null
23 ,p_fuel_card in varchar2 default null
24 ,p_fuel_card_number in varchar2 default null
25 ,p_calculation_method in varchar2 default null
26 ,p_rates_table_id in number default null
27 ,p_element_type_id in number default null
28 ,p_private_use_flag in varchar2 default null
29 ,p_insurance_number in varchar2 default null
30 ,p_insurance_expiry_date in date default null
31 ,p_val_attribute_category in varchar2 default null
32 ,p_val_attribute1 in varchar2 default null
33 ,p_val_attribute2 in varchar2 default null
34 ,p_val_attribute3 in varchar2 default null
35 ,p_val_attribute4 in varchar2 default null
36 ,p_val_attribute5 in varchar2 default null
37 ,p_val_attribute6 in varchar2 default null
38 ,p_val_attribute7 in varchar2 default null
39 ,p_val_attribute8 in varchar2 default null
40 ,p_val_attribute9 in varchar2 default null
41 ,p_val_attribute10 in varchar2 default null
42 ,p_val_attribute11 in varchar2 default null
43 ,p_val_attribute12 in varchar2 default null
44 ,p_val_attribute13 in varchar2 default null
45 ,p_val_attribute14 in varchar2 default null
46 ,p_val_attribute15 in varchar2 default null
47 ,p_val_attribute16 in varchar2 default null
48 ,p_val_attribute17 in varchar2 default null
49 ,p_val_attribute18 in varchar2 default null
50 ,p_val_attribute19 in varchar2 default null
51 ,p_val_attribute20 in varchar2 default null
52 ,p_val_information_category in varchar2 default null
53 ,p_agreement_description in varchar2 default null
54 ,p_month_mileage_limit_by_law in varchar2 default null
55 ,p_month_mileage_limit_by_emp in varchar2 default null
56 ,p_other_conditions in varchar2 default null
57 ,p_fuel_benefit in varchar2 default null
58 ,p_sliding_rates_info in varchar2 default null
59 ,p_vehicle_allocation_id out nocopy number
60 ,p_object_version_number out nocopy number
61 ,p_effective_start_date out nocopy date
62 ,p_effective_end_date out nocopy date
63 ) is
64 --
65 -- Declare cursors and local variables
66 --
67 l_proc varchar2(72);
68 l_legislation_code varchar2(2);
69 --
70 cursor csr_bg is
71 select legislation_code
72 from per_business_groups pbg
73 where pbg.business_group_id = p_business_group_id;
74 --
75 begin
76 g_package :='pqp_pl_vehicle_allocations_api.';
77 l_proc := g_package||'create_pl_vehicle_allocation';
78
79 hr_utility.set_location('Entering:'|| l_proc, 5);
80 --
81 -- Validation in addition to Row Handlers
82 --
83 -- Check that the specified business group is valid.
84 --
85 open csr_bg;
86 fetch csr_bg
87 into l_legislation_code;
88 if csr_bg%notfound then
89 close csr_bg;
90 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
91 hr_utility.raise_error;
92 end if;
93 close csr_bg;
94 --
95 -- Check that the legislation of the specified business group is 'PL'.
96 --
97 if l_legislation_code <> 'PL' then
98 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
99 hr_utility.set_message_token('LEG_CODE','PL');
100 hr_utility.raise_error;
101 end if;
102
103
104 hr_utility.set_location(l_proc, 6);
105
106
107 --
108 -- Call the Vehicle Allocation business process
109 --
110 PQP_VEHICLE_ALLOCATIONS_API.create_vehicle_allocation
111 (p_validate => p_validate
112 ,p_effective_date => p_effective_date
113 ,p_assignment_id => p_assignment_id
114 ,p_business_group_id => p_business_group_id
115 ,p_vehicle_repository_id => p_vehicle_repository_id
116 ,p_across_assignments => p_across_assignments
117 ,p_usage_type => p_usage_type
118 ,p_capital_contribution => p_capital_contribution
119 ,p_private_contribution => p_private_contribution
120 ,p_default_vehicle => p_default_vehicle
121 ,p_fuel_card => p_fuel_card
122 ,p_fuel_card_number => p_fuel_card_number
123 ,p_calculation_method => p_calculation_method
124 ,p_rates_table_id => p_rates_table_id
125 ,p_element_type_id => p_element_type_id
126 ,p_private_use_flag => p_private_use_flag
127 ,p_insurance_number => p_insurance_number
128 ,p_insurance_expiry_date => p_insurance_expiry_date
129 ,p_val_attribute_category => p_val_attribute_category
130 ,p_val_attribute1 => p_val_attribute1
131 ,p_val_attribute2 => p_val_attribute2
132 ,p_val_attribute3 => p_val_attribute3
133 ,p_val_attribute4 => p_val_attribute4
134 ,p_val_attribute5 => p_val_attribute5
135 ,p_val_attribute6 => p_val_attribute6
136 ,p_val_attribute7 => p_val_attribute7
137 ,p_val_attribute8 => p_val_attribute8
138 ,p_val_attribute9 => p_val_attribute9
139 ,p_val_attribute10 => p_val_attribute10
140 ,p_val_attribute11 => p_val_attribute11
141 ,p_val_attribute12 => p_val_attribute12
142 ,p_val_attribute13 => p_val_attribute13
143 ,p_val_attribute14 => p_val_attribute14
144 ,p_val_attribute15 => p_val_attribute15
145 ,p_val_attribute16 => p_val_attribute16
146 ,p_val_attribute17 => p_val_attribute17
147 ,p_val_attribute18 => p_val_attribute18
148 ,p_val_attribute19 => p_val_attribute19
149 ,p_val_attribute20 => p_val_attribute20
150 ,p_val_information_category => p_val_information_category
151 ,p_val_information1 => p_agreement_description
152 ,p_val_information2 => p_month_mileage_limit_by_law
153 ,p_val_information3 => p_month_mileage_limit_by_emp
154 ,p_val_information4 => p_other_conditions
155 ,p_val_information5 => null
156 ,p_val_information6 => null
157 ,p_val_information7 => null
158 ,p_val_information8 => null
159 ,p_val_information9 => null
160 ,p_val_information10 => null
161 ,p_val_information11 => null
162 ,p_val_information12 => null
163 ,p_val_information13 => null
164 ,p_val_information14 => null
165 ,p_val_information15 => null
166 ,p_val_information16 => null
167 ,p_val_information17 => null
168 ,p_val_information18 => null
169 ,p_val_information19 => null
170 ,p_val_information20 => null
171 ,p_fuel_benefit => p_fuel_benefit
172 ,p_sliding_rates_info => p_sliding_rates_info
173 ,p_vehicle_allocation_id => p_vehicle_allocation_id
174 ,p_object_version_number => p_object_version_number
175 ,p_effective_start_date => p_effective_start_date
176 ,p_effective_end_date => p_effective_end_date
177 );
178 --
179 --
180 end create_pl_vehicle_allocation;
181 --
182 -- ----------------------------------------------------------------------------
183 -- |--------------------------< update_pl_vehicle_allocation >--------------------|
184 -- ----------------------------------------------------------------------------
185 --
186 Procedure update_pl_vehicle_allocation
187 (p_validate in boolean default false
188 ,p_effective_date in date
189 ,p_datetrack_mode in varchar2
190 ,p_vehicle_allocation_id in number
191 ,p_object_version_number in out nocopy number
192 ,p_assignment_id in number default hr_api.g_number
193 ,p_business_group_id in number default hr_api.g_number
194 ,p_vehicle_repository_id in number default hr_api.g_number
195 ,p_across_assignments in varchar2 default hr_api.g_varchar2
196 ,p_usage_type in varchar2 default hr_api.g_varchar2
197 ,p_capital_contribution in number default hr_api.g_number
198 ,p_private_contribution in number default hr_api.g_number
199 ,p_default_vehicle in varchar2 default hr_api.g_varchar2
200 ,p_fuel_card in varchar2 default hr_api.g_varchar2
201 ,p_fuel_card_number in varchar2 default hr_api.g_varchar2
202 ,p_calculation_method in varchar2 default hr_api.g_varchar2
203 ,p_rates_table_id in number default hr_api.g_number
204 ,p_element_type_id in number default hr_api.g_number
208 ,p_val_attribute_category in varchar2 default hr_api.g_varchar2
205 ,p_private_use_flag in varchar2 default hr_api.g_varchar2
206 ,p_insurance_number in varchar2 default hr_api.g_varchar2
207 ,p_insurance_expiry_date in date default hr_api.g_date
209 ,p_val_attribute1 in varchar2 default hr_api.g_varchar2
210 ,p_val_attribute2 in varchar2 default hr_api.g_varchar2
211 ,p_val_attribute3 in varchar2 default hr_api.g_varchar2
212 ,p_val_attribute4 in varchar2 default hr_api.g_varchar2
213 ,p_val_attribute5 in varchar2 default hr_api.g_varchar2
214 ,p_val_attribute6 in varchar2 default hr_api.g_varchar2
215 ,p_val_attribute7 in varchar2 default hr_api.g_varchar2
216 ,p_val_attribute8 in varchar2 default hr_api.g_varchar2
217 ,p_val_attribute9 in varchar2 default hr_api.g_varchar2
218 ,p_val_attribute10 in varchar2 default hr_api.g_varchar2
219 ,p_val_attribute11 in varchar2 default hr_api.g_varchar2
220 ,p_val_attribute12 in varchar2 default hr_api.g_varchar2
221 ,p_val_attribute13 in varchar2 default hr_api.g_varchar2
222 ,p_val_attribute14 in varchar2 default hr_api.g_varchar2
223 ,p_val_attribute15 in varchar2 default hr_api.g_varchar2
224 ,p_val_attribute16 in varchar2 default hr_api.g_varchar2
225 ,p_val_attribute17 in varchar2 default hr_api.g_varchar2
226 ,p_val_attribute18 in varchar2 default hr_api.g_varchar2
227 ,p_val_attribute19 in varchar2 default hr_api.g_varchar2
228 ,p_val_attribute20 in varchar2 default hr_api.g_varchar2
229 ,p_val_information_category in varchar2 default hr_api.g_varchar2
230 ,p_agreement_description in varchar2 default hr_api.g_varchar2
231 ,p_month_mileage_limit_by_law in varchar2 default hr_api.g_varchar2
232 ,p_month_mileage_limit_by_emp in varchar2 default hr_api.g_varchar2
233 ,p_other_conditions in varchar2 default hr_api.g_varchar2
234 ,p_fuel_benefit in varchar2 default hr_api.g_varchar2
235 ,p_sliding_rates_info in varchar2 default hr_api.g_varchar2
236 ,p_effective_start_date out nocopy date
237 ,p_effective_end_date out nocopy date
238 ) is
239
240 l_proc varchar2(72);
241 l_legislation_code varchar2(2);
242 --
243 cursor csr_bg is
244 select legislation_code
245 from per_business_groups pbg
246 where pbg.business_group_id = p_business_group_id;
247 --
248 begin
249 g_package :='pqp_pl_vehicle_allocations_api.';
250 l_proc := g_package||'update_pl_vehicle_allocation';
251
252 hr_utility.set_location('Entering:'|| l_proc, 5);
253 --
254 -- Validation in addition to Row Handlers
255 --
256 -- Check that the specified business group is valid.
257 --
258 open csr_bg;
259 fetch csr_bg into l_legislation_code;
260
261 if csr_bg%notfound then
262 close csr_bg;
263 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
264 hr_utility.raise_error;
265 end if;
266 close csr_bg;
267 --
268 -- Check that the legislation of the specified business group is 'PL'.
269 --
270 if l_legislation_code <> 'PL' then
271 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
272 hr_utility.set_message_token('LEG_CODE','PL');
273 hr_utility.raise_error;
274 end if;
275
276
277 hr_utility.set_location(l_proc, 6);
278 -- Call for Update Vehicle allocation business process
279 PQP_VEHICLE_ALLOCATIONS_API.update_vehicle_allocation
280 (p_validate => p_validate
281 ,p_effective_date => p_effective_date
282 ,p_datetrack_mode => p_datetrack_mode
283 ,p_vehicle_allocation_id => p_vehicle_allocation_id
284 ,p_object_version_number => p_object_version_number
285 ,p_assignment_id => p_assignment_id
286 ,p_business_group_id => p_business_group_id
287 ,p_vehicle_repository_id => p_vehicle_repository_id
288 ,p_across_assignments => p_across_assignments
289 ,p_usage_type => p_usage_type
290 ,p_capital_contribution => p_capital_contribution
291 ,p_private_contribution => p_private_contribution
292 ,p_default_vehicle => p_default_vehicle
293 ,p_fuel_card => p_fuel_card
294 ,p_fuel_card_number => p_fuel_card_number
295 ,p_calculation_method => p_calculation_method
296 ,p_rates_table_id => p_rates_table_id
297 ,p_element_type_id => p_element_type_id
298 ,p_private_use_flag => p_private_use_flag
299 ,p_insurance_number => p_insurance_number
300 ,p_insurance_expiry_date => p_insurance_expiry_date
301 ,p_val_attribute_category => p_val_attribute_category
302 ,p_val_attribute1 => p_val_attribute1
303 ,p_val_attribute2 => p_val_attribute2
304 ,p_val_attribute3 => p_val_attribute3
305 ,p_val_attribute4 => p_val_attribute4
306 ,p_val_attribute5 => p_val_attribute5
307 ,p_val_attribute6 => p_val_attribute6
308 ,p_val_attribute7 => p_val_attribute7
309 ,p_val_attribute8 => p_val_attribute8
310 ,p_val_attribute9 => p_val_attribute9
311 ,p_val_attribute10 => p_val_attribute10
312 ,p_val_attribute11 => p_val_attribute11
316 ,p_val_attribute15 => p_val_attribute15
313 ,p_val_attribute12 => p_val_attribute12
314 ,p_val_attribute13 => p_val_attribute13
315 ,p_val_attribute14 => p_val_attribute14
317 ,p_val_attribute16 => p_val_attribute16
318 ,p_val_attribute17 => p_val_attribute17
319 ,p_val_attribute18 => p_val_attribute18
320 ,p_val_attribute19 => p_val_attribute19
321 ,p_val_attribute20 => p_val_attribute20
322 ,p_val_information_category => p_val_information_category
323 ,p_val_information1 => p_agreement_description
324 ,p_val_information2 => p_month_mileage_limit_by_law
325 ,p_val_information3 => p_month_mileage_limit_by_emp
326 ,p_val_information4 => p_other_conditions
327 ,p_val_information5 => null
328 ,p_val_information6 => null
329 ,p_val_information7 => null
330 ,p_val_information8 => null
331 ,p_val_information9 => null
332 ,p_val_information10 => null
333 ,p_val_information11 => null
334 ,p_val_information12 => null
335 ,p_val_information13 => null
336 ,p_val_information14 => null
337 ,p_val_information15 => null
338 ,p_val_information16 => null
339 ,p_val_information17 => null
340 ,p_val_information18 => null
341 ,p_val_information19 => null
342 ,p_val_information20 => null
343 ,p_fuel_benefit => p_fuel_benefit
344 ,p_sliding_rates_info => p_sliding_rates_info
345 ,p_effective_start_date => p_effective_start_date
346 ,p_effective_end_date => p_effective_end_date
347 );
348
349 End Update_pl_vehicle_allocation;
350 end pqp_pl_vehicle_allocations_api;