[Home] [Help]
PACKAGE BODY: APPS.PQP_VEHICLE_DETAILS_API
Source
1 Package Body PQP_VEHICLE_DETAILS_API as
2 /* $Header: pqpvdapi.pkb 115.5 2003/01/22 00:56:38 tmehra ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' PQP_VEHICLE_DETAILS_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< CREATE_VEHICLE_DETAILS >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_vehicle_details
13 ( p_effective_date in date default NULL
14 ,p_vehicle_type in varchar2
15 ,p_registration_number in varchar2
16 ,p_make in varchar2
17 ,p_model in varchar2
18 ,p_date_first_registered in date
19 ,p_engine_capacity_in_cc in number
20 ,p_fuel_type in varchar2
21 ,p_fuel_card in varchar2
22 ,p_currency_code in varchar2
23 ,p_list_price in number
24 ,p_business_group_id in number
25 ,p_accessory_value_at_startdate in number default NULL
26 ,p_accessory_value_added_later in number default NULL
27 -- ,p_capital_contributions in number
28 -- ,p_private_use_contributions in number
29 ,p_market_value_classic_car in number default NULL
30 ,p_co2_emissions in number default NULL
31 ,p_vehicle_provider in varchar2 default NULL
32 ,p_vehicle_ownership in varchar2 default NULL
33 ,p_vehicle_identification_numbe in varchar2 default NULL
34 ,p_vhd_attribute_category in varchar2
35 ,p_vhd_attribute1 in varchar2
36 ,p_vhd_attribute2 in varchar2
37 ,p_vhd_attribute3 in varchar2
38 ,p_vhd_attribute4 in varchar2
39 ,p_vhd_attribute5 in varchar2
40 ,p_vhd_attribute6 in varchar2
41 ,p_vhd_attribute7 in varchar2
42 ,p_vhd_attribute8 in varchar2
43 ,p_vhd_attribute9 in varchar2
44 ,p_vhd_attribute10 in varchar2
45 ,p_vhd_attribute11 in varchar2
46 ,p_vhd_attribute12 in varchar2
47 ,p_vhd_attribute13 in varchar2
48 ,p_vhd_attribute14 in varchar2
49 ,p_vhd_attribute15 in varchar2
50 ,p_vhd_attribute16 in varchar2
51 ,p_vhd_attribute17 in varchar2
52 ,p_vhd_attribute18 in varchar2
53 ,p_vhd_attribute19 in varchar2
54 ,p_vhd_attribute20 in varchar2
55 ,p_vhd_information_category in varchar2
56 ,p_vhd_information1 in varchar2
57 ,p_vhd_information2 in varchar2
58 ,p_vhd_information3 in varchar2
59 ,p_vhd_information4 in varchar2
60 ,p_vhd_information5 in varchar2
61 ,p_vhd_information6 in varchar2
62 ,p_vhd_information7 in varchar2
63 ,p_vhd_information8 in varchar2
64 ,p_vhd_information9 in varchar2
65 ,p_vhd_information10 in varchar2
66 ,p_vhd_information11 in varchar2
67 ,p_vhd_information12 in varchar2
68 ,p_vhd_information13 in varchar2
69 ,p_vhd_information14 in varchar2
70 ,p_vhd_information15 in varchar2
71 ,p_vhd_information16 in varchar2
72 ,p_vhd_information17 in varchar2
73 ,p_vhd_information18 in varchar2
74 ,p_vhd_information19 in varchar2
75 ,p_vhd_information20 in varchar2
76 ,p_vehicle_details_id out nocopy number
77 ,p_object_version_number out nocopy number
78 ) is
79 --
80 -- Declare cursors and local variables
81 --
82 l_proc varchar2(72) := g_package||'create_vehicle_details>';
83 begin
84 hr_utility.set_location('Entering:'|| l_proc, 10);
85 --
86 -- Issue a savepoint
87 --
88 savepoint create_vehicle_details;
89 --
90 -- Truncate the time portion from all IN date parameters
91 --
92 -- Call Before Process User Hook
93 --
94 -- Validation in addition to Row Handlers
95 --
96 -- Process Logic
97
98 pqp_pvd_ins.ins
99 (p_effective_date => p_effective_date
100 ,p_vehicle_type => p_vehicle_type
101 ,p_registration_number => p_registration_number
102 ,p_make => p_make
103 ,p_model => p_model
104 ,p_date_first_registered => p_date_first_registered
105 ,p_engine_capacity_in_cc => p_engine_capacity_in_cc
106 ,p_fuel_type => p_fuel_type
107 ,p_fuel_card => p_fuel_card
108 ,p_currency_code => p_currency_code
109 ,p_list_price => p_list_price
110 ,p_business_group_id => p_business_group_id
111 ,p_accessory_value_at_startdate => p_accessory_value_at_startdate
112 ,p_accessory_value_added_later => p_accessory_value_added_later
113 -- ,p_capital_contributions => p_capital_contributions
114 -- ,p_private_use_contributions => p_private_use_contributions
115 ,p_market_value_classic_car => p_market_value_classic_car
116 ,p_co2_emissions => p_co2_emissions
117 ,p_vehicle_provider => p_vehicle_provider
118 ,p_vehicle_ownership => p_vehicle_ownership
119 ,p_vehicle_identification_numbe => p_vehicle_identification_numbe
120 ,p_vhd_attribute_category => p_vhd_attribute_category
121 ,p_vhd_attribute1 => p_vhd_attribute1
122 ,p_vhd_attribute2 => p_vhd_attribute2
123 ,p_vhd_attribute3 => p_vhd_attribute3
124 ,p_vhd_attribute4 => p_vhd_attribute4
125 ,p_vhd_attribute5 => p_vhd_attribute5
126 ,p_vhd_attribute6 => p_vhd_attribute6
127 ,p_vhd_attribute7 => p_vhd_attribute7
128 ,p_vhd_attribute8 => p_vhd_attribute8
129 ,p_vhd_attribute9 => p_vhd_attribute9
130 ,p_vhd_attribute10 => p_vhd_attribute10
131 ,p_vhd_attribute11 => p_vhd_attribute11
132 ,p_vhd_attribute12 => p_vhd_attribute12
133 ,p_vhd_attribute13 => p_vhd_attribute13
134 ,p_vhd_attribute14 => p_vhd_attribute14
135 ,p_vhd_attribute15 => p_vhd_attribute15
136 ,p_vhd_attribute16 => p_vhd_attribute16
137 ,p_vhd_attribute17 => p_vhd_attribute17
138 ,p_vhd_attribute18 => p_vhd_attribute18
139 ,p_vhd_attribute19 => p_vhd_attribute19
140 ,p_vhd_attribute20 => p_vhd_attribute20
141 ,p_vhd_information_category => p_vhd_information_category
142 ,p_vhd_information1 => p_vhd_information1
143 ,p_vhd_information2 => p_vhd_information2
144 ,p_vhd_information3 => p_vhd_information3
145 ,p_vhd_information4 => p_vhd_information4
146 ,p_vhd_information5 => p_vhd_information5
147 ,p_vhd_information6 => p_vhd_information6
148 ,p_vhd_information7 => p_vhd_information7
149 ,p_vhd_information8 => p_vhd_information8
150 ,p_vhd_information9 => p_vhd_information9
151 ,p_vhd_information10 => p_vhd_information10
152 ,p_vhd_information11 => p_vhd_information11
153 ,p_vhd_information12 => p_vhd_information12
154 ,p_vhd_information13 => p_vhd_information13
155 ,p_vhd_information14 => p_vhd_information14
156 ,p_vhd_information15 => p_vhd_information15
157 ,p_vhd_information16 => p_vhd_information16
158 ,p_vhd_information17 => p_vhd_information17
159 ,p_vhd_information18 => p_vhd_information18
160 ,p_vhd_information19 => p_vhd_information19
161 ,p_vhd_information20 => p_vhd_information20
162 ,p_vehicle_details_id => p_vehicle_details_id
163 ,p_object_version_number => p_object_version_number
164 );
165
166 -- Call After Process User Hook
167 --
168 -- When in validation only mode raise the Validate_Enabled exception
169 --
170 --if p_validate then
171 -- raise hr_api.validate_enabled;
172 --end if;
173 --
174 -- Set all output arguments
175 --
176 --p_vehicle_details_id := NULL;
177 --p_object_version_number := NULL;
178 --p_some_warning := <local_var_set_in_process_logic>
179 --
180 hr_utility.set_location(' Leaving:'||l_proc, 70);
181 exception
182 when hr_api.validate_enabled then
183 --
184 -- As the Validate_Enabled exception has been raised
185 -- we must rollback to the savepoint
186 --
187 rollback to create_vehicle_details;
188 --
189 -- Only set output warning arguments
190 -- (Any key or derived arguments must be set to null
191 -- when validation only mode is being used.)
192 --
193 --p_id := null;
194 --p_object_version_number := null;
195 --p_some_warning := <local_var_set_in_process_logic>
196 hr_utility.set_location(' Leaving:'||l_proc, 80);
197 when others then
198 --
199 -- A validation or unexpected error has occured
200 --
201 rollback to create_vehicle_details;
202 p_vehicle_details_id := null;
203 p_object_version_number := null;
204 hr_utility.set_location(' Leaving:'||l_proc, 90);
205 raise;
206 end create_vehicle_details;
207
208 -- ----------------------------------------------------------------------------
209 -- |--------------------------< UPDATE_VEHICLE_DETAILS >-----------------------|
210 -- ----------------------------------------------------------------------------
211 --
212 procedure update_vehicle_details
213 (p_effective_date in date default NULL
214 ,p_vehicle_details_id in number
215 ,p_object_version_number in out nocopy number
216 ,p_vehicle_type in varchar2 default hr_api.g_varchar2
217 ,p_registration_number in varchar2 default hr_api.g_varchar2
218 ,p_make in varchar2 default hr_api.g_varchar2
219 ,p_model in varchar2 default hr_api.g_varchar2
220 ,p_date_first_registered in date default hr_api.g_date
221 ,p_engine_capacity_in_cc in number default hr_api.g_number
222 ,p_fuel_type in varchar2 default hr_api.g_varchar2
223 ,p_fuel_card in varchar2 default hr_api.g_varchar2
224 ,p_currency_code in varchar2 default hr_api.g_varchar2
225 ,p_list_price in number default hr_api.g_number
226 ,p_business_group_id in number default hr_api.g_number
227 ,p_accessory_value_at_startdate in number default hr_api.g_number
228 ,p_accessory_value_added_later in number default hr_api.g_number
229 -- ,p_capital_contributions in number default hr_api.g_number
230 -- ,p_private_use_contributions in number default hr_api.g_number
231 ,p_market_value_classic_car in number default hr_api.g_number
232 ,p_co2_emissions in number default hr_api.g_number
233 ,p_vehicle_provider in varchar2 default hr_api.g_varchar2
234 ,p_vehicle_ownership in varchar2 default hr_api.g_varchar2
235 ,p_vehicle_identification_numbe in varchar2 default hr_api.g_varchar2
236 ,p_vhd_attribute_category in varchar2 default hr_api.g_varchar2
237 ,p_vhd_attribute1 in varchar2 default hr_api.g_varchar2
238 ,p_vhd_attribute2 in varchar2 default hr_api.g_varchar2
239 ,p_vhd_attribute3 in varchar2 default hr_api.g_varchar2
240 ,p_vhd_attribute4 in varchar2 default hr_api.g_varchar2
241 ,p_vhd_attribute5 in varchar2 default hr_api.g_varchar2
242 ,p_vhd_attribute6 in varchar2 default hr_api.g_varchar2
243 ,p_vhd_attribute7 in varchar2 default hr_api.g_varchar2
244 ,p_vhd_attribute8 in varchar2 default hr_api.g_varchar2
245 ,p_vhd_attribute9 in varchar2 default hr_api.g_varchar2
246 ,p_vhd_attribute10 in varchar2 default hr_api.g_varchar2
247 ,p_vhd_attribute11 in varchar2 default hr_api.g_varchar2
248 ,p_vhd_attribute12 in varchar2 default hr_api.g_varchar2
249 ,p_vhd_attribute13 in varchar2 default hr_api.g_varchar2
250 ,p_vhd_attribute14 in varchar2 default hr_api.g_varchar2
251 ,p_vhd_attribute15 in varchar2 default hr_api.g_varchar2
252 ,p_vhd_attribute16 in varchar2 default hr_api.g_varchar2
253 ,p_vhd_attribute17 in varchar2 default hr_api.g_varchar2
254 ,p_vhd_attribute18 in varchar2 default hr_api.g_varchar2
255 ,p_vhd_attribute19 in varchar2 default hr_api.g_varchar2
256 ,p_vhd_attribute20 in varchar2 default hr_api.g_varchar2
257 ,p_vhd_information_category in varchar2 default hr_api.g_varchar2
258 ,p_vhd_information1 in varchar2 default hr_api.g_varchar2
259 ,p_vhd_information2 in varchar2 default hr_api.g_varchar2
260 ,p_vhd_information3 in varchar2 default hr_api.g_varchar2
261 ,p_vhd_information4 in varchar2 default hr_api.g_varchar2
262 ,p_vhd_information5 in varchar2 default hr_api.g_varchar2
263 ,p_vhd_information6 in varchar2 default hr_api.g_varchar2
264 ,p_vhd_information7 in varchar2 default hr_api.g_varchar2
265 ,p_vhd_information8 in varchar2 default hr_api.g_varchar2
266 ,p_vhd_information9 in varchar2 default hr_api.g_varchar2
267 ,p_vhd_information10 in varchar2 default hr_api.g_varchar2
268 ,p_vhd_information11 in varchar2 default hr_api.g_varchar2
269 ,p_vhd_information12 in varchar2 default hr_api.g_varchar2
270 ,p_vhd_information13 in varchar2 default hr_api.g_varchar2
271 ,p_vhd_information14 in varchar2 default hr_api.g_varchar2
272 ,p_vhd_information15 in varchar2 default hr_api.g_varchar2
273 ,p_vhd_information16 in varchar2 default hr_api.g_varchar2
274 ,p_vhd_information17 in varchar2 default hr_api.g_varchar2
275 ,p_vhd_information18 in varchar2 default hr_api.g_varchar2
276 ,p_vhd_information19 in varchar2 default hr_api.g_varchar2
277 ,p_vhd_information20 in varchar2 default hr_api.g_varchar2
278 ) is
279 --
280 -- Declare cursors and local variables
281 --
282 l_object_version_number pqp_vehicle_details.object_version_number%TYPE;
283 l_proc varchar2(72) := g_package||'update_vehicle_details>';
284 begin
285 hr_utility.set_location('Entering:'|| l_proc, 10);
286 --
287 -- Issue a savepoint
288 --
289 savepoint update_vehicle_details;
290 --
291 -- Truncate the time portion from all IN date parameters
292 --
293 -- Call Before Process User Hook
294 --
295 -- Validation in addition to Row Handlers
296 --
297 -- Process Logic
298
299 l_object_version_number := p_object_version_number;
300
301 pqp_pvd_upd.upd
302 (p_effective_date => p_effective_date
303 ,p_vehicle_details_id => p_vehicle_details_id
304 ,p_object_version_number => p_object_version_number
305 ,p_vehicle_type => p_vehicle_type
306 ,p_registration_number => p_registration_number
307 ,p_make => p_make
308 ,p_model => p_model
309 ,p_date_first_registered => p_date_first_registered
310 ,p_engine_capacity_in_cc => p_engine_capacity_in_cc
311 ,p_fuel_type => p_fuel_type
312 ,p_fuel_card => p_fuel_card
313 ,p_currency_code => p_currency_code
314 ,p_list_price => p_list_price
315 ,p_business_group_id => p_business_group_id
316 ,p_accessory_value_at_startdate => p_accessory_value_at_startdate
317 ,p_accessory_value_added_later => p_accessory_value_added_later
318 -- ,p_capital_contributions => p_capital_contributions
319 -- ,p_private_use_contributions => p_private_use_contributions
320 ,p_market_value_classic_car => p_market_value_classic_car
321 ,p_co2_emissions => p_co2_emissions
322 ,p_vehicle_provider => p_vehicle_provider
323 ,p_vehicle_ownership => p_vehicle_ownership
324 ,p_vehicle_identification_numbe => p_vehicle_identification_numbe
325 ,p_vhd_attribute_category => p_vhd_attribute_category
326 ,p_vhd_attribute1 => p_vhd_attribute1
327 ,p_vhd_attribute2 => p_vhd_attribute2
328 ,p_vhd_attribute3 => p_vhd_attribute3
329 ,p_vhd_attribute4 => p_vhd_attribute4
330 ,p_vhd_attribute5 => p_vhd_attribute5
331 ,p_vhd_attribute6 => p_vhd_attribute6
332 ,p_vhd_attribute7 => p_vhd_attribute7
333 ,p_vhd_attribute8 => p_vhd_attribute8
334 ,p_vhd_attribute9 => p_vhd_attribute9
335 ,p_vhd_attribute10 => p_vhd_attribute10
336 ,p_vhd_attribute11 => p_vhd_attribute11
337 ,p_vhd_attribute12 => p_vhd_attribute12
338 ,p_vhd_attribute13 => p_vhd_attribute13
339 ,p_vhd_attribute14 => p_vhd_attribute14
340 ,p_vhd_attribute15 => p_vhd_attribute15
341 ,p_vhd_attribute16 => p_vhd_attribute16
342 ,p_vhd_attribute17 => p_vhd_attribute17
343 ,p_vhd_attribute18 => p_vhd_attribute18
344 ,p_vhd_attribute19 => p_vhd_attribute19
345 ,p_vhd_attribute20 => p_vhd_attribute20
346 ,p_vhd_information_category => p_vhd_information_category
347 ,p_vhd_information1 => p_vhd_information1
348 ,p_vhd_information2 => p_vhd_information2
349 ,p_vhd_information3 => p_vhd_information3
350 ,p_vhd_information4 => p_vhd_information4
351 ,p_vhd_information5 => p_vhd_information5
352 ,p_vhd_information6 => p_vhd_information6
353 ,p_vhd_information7 => p_vhd_information7
354 ,p_vhd_information8 => p_vhd_information8
355 ,p_vhd_information9 => p_vhd_information9
356 ,p_vhd_information10 => p_vhd_information10
357 ,p_vhd_information11 => p_vhd_information11
358 ,p_vhd_information12 => p_vhd_information12
359 ,p_vhd_information13 => p_vhd_information13
360 ,p_vhd_information14 => p_vhd_information14
361 ,p_vhd_information15 => p_vhd_information15
362 ,p_vhd_information16 => p_vhd_information16
363 ,p_vhd_information17 => p_vhd_information17
364 ,p_vhd_information18 => p_vhd_information18
365 ,p_vhd_information19 => p_vhd_information19
366 ,p_vhd_information20 => p_vhd_information20
367 );
368
369
370 -- Call After Process User Hook
371 --
372 -- When in validation only mode raise the Validate_Enabled exception
373 --
374 --if p_validate then
375 -- raise hr_api.validate_enabled;
376 --end if;
377 --
378 -- Set all output arguments
379 --
380 --p_object_version_number := NULL;
381 --p_some_warning := <local_var_set_in_process_logic>
382 --
383 hr_utility.set_location(' Leaving:'||l_proc, 70);
384 exception
385 when hr_api.validate_enabled then
386 --
387 -- As the Validate_Enabled exception has been raised
388 -- we must rollback to the savepoint
389 --
390 rollback to update_vehicle_details;
391 --
392 -- Only set output warning arguments
393 -- (Any key or derived arguments must be set to null
394 -- when validation only mode is being used.)
395 --
396 --p_object_version_number := null;
397 -- p_some_warning := <local_var_set_in_process_logic>
398 hr_utility.set_location(' Leaving:'||l_proc, 80);
399 when others then
400 --
401 -- A validation or unexpected error has occured
402 --
403 rollback to update_vehicle_details;
404 p_object_version_number := l_object_version_number;
405 hr_utility.set_location(' Leaving:'||l_proc, 90);
406 raise;
407 end update_vehicle_details;
408
409 -- ----------------------------------------------------------------------------
410 -- |--------------------------< DELETE_VEHICLE_DETAILS >-----------------------|
411 -- ----------------------------------------------------------------------------
412 --
413 procedure delete_vehicle_details
414 (
415 p_vehicle_details_id in number
416 ,p_object_version_number in number
417 ) is
418 --
419 -- Declare cursors and local variables
420 --
421 l_object_version_number pqp_vehicle_details.object_version_number%TYPE;
422 l_proc varchar2(72) := g_package||'delete_vehicle_details>';
423 begin
424 hr_utility.set_location('Entering:'|| l_proc, 10);
425 --
426 -- Issue a savepoint
427 --
428 savepoint delete_vehicle_details;
429 --
430 -- Truncate the time portion from all IN date parameters
431 --
432 -- Call Before Process User Hook
433 --
434 -- Validation in addition to Row Handlers
435 --
436 -- Process Logic
437
438 pqp_pvd_del.del
439 (p_vehicle_details_id => p_vehicle_details_id
440 ,p_object_version_number => p_object_version_number
441 );
442
443 -- Call After Process User Hook
444 --
445 -- When in validation only mode raise the Validate_Enabled exception
446 --
447 --if p_validate then
448 -- raise hr_api.validate_enabled;
449 --end if;
450 --
451 -- Set all output arguments
452 --
453 --p_object_version_number := NULL;
454 --p_some_warning := <local_var_set_in_process_logic>
455 --
456 hr_utility.set_location(' Leaving:'||l_proc, 70);
457 exception
458 when hr_api.validate_enabled then
459 --
460 -- As the Validate_Enabled exception has been raised
461 -- we must rollback to the savepoint
462 --
463 rollback to delete_vehicle_details;
464 --
465 -- Only set output warning arguments
466 -- (Any key or derived arguments must be set to null
467 -- when validation only mode is being used.)
468 --
469 -- p_object_version_number := null;
470 -- p_some_warning := <local_var_set_in_process_logic>
471 hr_utility.set_location(' Leaving:'||l_proc, 80);
472 when others then
473 --
474 -- A validation or unexpected error has occured
475 --
476 rollback to delete_vehicle_details;
477 hr_utility.set_location(' Leaving:'||l_proc, 90);
478 raise;
479 end delete_vehicle_details;
480 --
481 end PQP_VEHICLE_DETAILS_API;