[Home] [Help]
PACKAGE BODY: APPS.PQP_PL_VEHICLE_REPOSITORY_API
Source
1 Package Body pqp_pl_vehicle_repository_api as
2 /* $Header: pqvrepli.pkb 120.0 2005/10/16 22:52:12 ssekhar noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33);
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-------------------------< create_pl_vehicle >---------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_pl_vehicle
13 ( p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_vehicle_registration_number in varchar2
16 ,p_vehicle_type in varchar2
17 ,p_vehicle_body_number in varchar2 default null
18 ,p_business_group_id in number
19 ,p_make in varchar2
20 ,p_engine_capacity_in_cc in number
21 ,p_fuel_type in varchar2
22 ,p_currency_code in varchar2
23 ,p_vehicle_status in varchar2
24 ,p_vehicle_inactivity_reason in varchar2
25 ,p_model in varchar2 default null
26 ,p_initial_registration in date default null
27 ,p_last_registration_renew_date in date default null
28 ,p_list_price in number default null
29 ,p_accessory_value_at_startdate in number default null
30 ,p_accessory_value_added_later in number default null
31 ,p_market_value_classic_car in number default null
32 ,p_fiscal_ratings in number default null
33 ,p_fiscal_ratings_uom in varchar2 default null
34 ,p_vehicle_provider in varchar2 default null
35 ,p_vehicle_ownership in varchar2 default null
36 ,p_shared_vehicle in varchar2 default null
37 ,p_asset_number in varchar2 default null
38 ,p_lease_contract_number in varchar2 default null
39 ,p_lease_contract_expiry_date in date default null
40 ,p_taxation_method in varchar2 default null
41 ,p_fleet_info in varchar2 default null
42 ,p_fleet_transfer_date in date default null
43 ,p_color in varchar2 default null
44 ,p_seating_capacity in number default null
45 ,p_weight in number default null
46 ,p_weight_uom in varchar2 default null
47 ,p_year_of_manufacture in number default null
48 ,p_insurance_number in varchar2 default null
49 ,p_insurance_expiry_date in date default null
50 ,p_comments in varchar2 default null
51 ,p_vre_attribute_category in varchar2 default null
52 ,p_vre_attribute1 in varchar2 default null
53 ,p_vre_attribute2 in varchar2 default null
54 ,p_vre_attribute3 in varchar2 default null
55 ,p_vre_attribute4 in varchar2 default null
56 ,p_vre_attribute5 in varchar2 default null
57 ,p_vre_attribute6 in varchar2 default null
58 ,p_vre_attribute7 in varchar2 default null
59 ,p_vre_attribute8 in varchar2 default null
60 ,p_vre_attribute9 in varchar2 default null
61 ,p_vre_attribute10 in varchar2 default null
62 ,p_vre_attribute11 in varchar2 default null
63 ,p_vre_attribute12 in varchar2 default null
64 ,p_vre_attribute13 in varchar2 default null
65 ,p_vre_attribute14 in varchar2 default null
66 ,p_vre_attribute15 in varchar2 default null
67 ,p_vre_attribute16 in varchar2 default null
68 ,p_vre_attribute17 in varchar2 default null
69 ,p_vre_attribute18 in varchar2 default null
70 ,p_vre_attribute19 in varchar2 default null
71 ,p_vre_attribute20 in varchar2 default null
72 ,p_vre_information_category in varchar2 default null
73 ,p_vehicle_card_id_number in varchar2 default null
74 ,p_owner in varchar2 default null
75 ,p_engine_number in varchar2 default null
76 ,p_date_of_first_inspection in varchar2 default null
77 ,p_date_of_next_inspection in varchar2 default null
78 ,p_other_technical_information in varchar2 default null
79 ,p_vehicle_repository_id out NOCOPY number
80 ,p_object_version_number out NOCOPY number
81 ,p_effective_start_date out NOCOPY date
82 ,p_effective_end_date out NOCOPY date
83 ) is
84 --
85 -- Declare cursors and local variables
86 --
87 l_proc varchar2(72);
88 l_legislation_code varchar2(2);
89 --
90 cursor csr_bg is
91 select legislation_code
92 from per_business_groups pbg
93 where pbg.business_group_id = p_business_group_id;
94 --
95 begin
96 g_package :='pqp_pl_vehicle_repository_api.';
97 l_proc := g_package||'create_pl_vehicle';
98
99 hr_utility.set_location('Entering:'|| l_proc, 5);
100 --
101 -- Validation in addition to Row Handlers
102 --
103 -- Check that the specified business group is valid.
104 --
105 open csr_bg;
106 fetch csr_bg
107 into l_legislation_code;
108 if csr_bg%notfound then
109 close csr_bg;
110 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
111 hr_utility.raise_error;
112 end if;
113 close csr_bg;
114 --
115 -- Check that the legislation of the specified business group is 'PL'.
116 --
117 if l_legislation_code <> 'PL' then
118 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
119 hr_utility.set_message_token('LEG_CODE','PL');
120 hr_utility.raise_error;
121 end if;
122
123
124 hr_utility.set_location(l_proc, 6);
125
126
127 --
128 -- Call the Vehicle business process
129 --
130 pqp_vehicle_repository_api.create_vehicle
131 (p_validate => p_validate
132 ,p_effective_date => p_effective_date
133 ,p_registration_number => p_vehicle_registration_number
134 ,p_vehicle_type => p_vehicle_type
135 ,p_vehicle_id_number => p_vehicle_body_number
136 ,p_business_group_id => p_business_group_id
137 ,p_make => p_make
138 ,p_engine_capacity_in_cc => p_engine_capacity_in_cc
139 ,p_fuel_type => p_fuel_type
140 ,p_currency_code => p_currency_code
141 ,p_vehicle_status => p_vehicle_status
142 ,p_vehicle_inactivity_reason => p_vehicle_inactivity_reason
143 ,p_model => p_model
144 ,p_initial_registration => p_initial_registration
145 ,p_last_registration_renew_date => p_last_registration_renew_date
146 ,p_list_price => p_list_price
147 ,p_accessory_value_at_startdate => p_accessory_value_at_startdate
148 ,p_accessory_value_added_later => p_accessory_value_added_later
149 ,p_market_value_classic_car => p_market_value_classic_car
150 ,p_fiscal_ratings => p_fiscal_ratings
151 ,p_fiscal_ratings_uom => p_fiscal_ratings_uom
152 ,p_vehicle_provider => p_vehicle_provider
153 ,p_vehicle_ownership => p_vehicle_ownership
154 ,p_shared_vehicle => p_shared_vehicle
155 ,p_asset_number => p_asset_number
156 ,p_lease_contract_number => p_lease_contract_number
157 ,p_lease_contract_expiry_date => p_lease_contract_expiry_date
158 ,p_taxation_method => p_taxation_method
159 ,p_fleet_info => p_fleet_info
160 ,p_fleet_transfer_date => p_fleet_transfer_date
161 ,p_color => p_color
162 ,p_seating_capacity => p_seating_capacity
163 ,p_weight => p_weight
164 ,p_weight_uom => p_weight_uom
165 ,p_model_year => p_year_of_manufacture
166 ,p_insurance_number => p_insurance_number
167 ,p_insurance_expiry_date => p_insurance_expiry_date
168 ,p_comments => p_comments
169 ,p_vre_attribute_category => p_vre_attribute_category
170 ,p_vre_attribute1 => p_vre_attribute1
171 ,p_vre_attribute2 => p_vre_attribute2
172 ,p_vre_attribute3 => p_vre_attribute3
173 ,p_vre_attribute4 => p_vre_attribute4
174 ,p_vre_attribute5 => p_vre_attribute5
175 ,p_vre_attribute6 => p_vre_attribute6
176 ,p_vre_attribute7 => p_vre_attribute7
177 ,p_vre_attribute8 => p_vre_attribute8
178 ,p_vre_attribute9 => p_vre_attribute9
179 ,p_vre_attribute10 => p_vre_attribute10
180 ,p_vre_attribute11 => p_vre_attribute11
181 ,p_vre_attribute12 => p_vre_attribute12
182 ,p_vre_attribute13 => p_vre_attribute13
183 ,p_vre_attribute14 => p_vre_attribute14
184 ,p_vre_attribute15 => p_vre_attribute15
185 ,p_vre_attribute16 => p_vre_attribute16
186 ,p_vre_attribute17 => p_vre_attribute17
187 ,p_vre_attribute18 => p_vre_attribute18
188 ,p_vre_attribute19 => p_vre_attribute19
189 ,p_vre_attribute20 => p_vre_attribute20
190 ,p_vre_information_category => p_vre_information_category
191 ,p_vre_information1 => p_vehicle_card_id_number
192 ,p_vre_information2 => p_owner
193 ,p_vre_information3 => p_engine_number
194 ,p_vre_information4 => p_date_of_first_inspection
195 ,p_vre_information5 => p_date_of_next_inspection
196 ,p_vre_information6 => p_other_technical_information
197 ,p_vre_information7 => null
198 ,p_vre_information8 => null
199 ,p_vre_information9 => null
200 ,p_vre_information10 => null
201 ,p_vre_information11 => null
202 ,p_vre_information12 => null
203 ,p_vre_information13 => null
204 ,p_vre_information14 => null
205 ,p_vre_information15 => null
206 ,p_vre_information16 => null
207 ,p_vre_information17 => null
208 ,p_vre_information18 => null
209 ,p_vre_information19 => null
210 ,p_vre_information20 => null
211 ,p_vehicle_repository_id => p_vehicle_repository_id
212 ,p_object_version_number => p_object_version_number
213 ,p_effective_start_date => p_effective_start_date
214 ,p_effective_end_date => p_effective_end_date
215 );
216 --
217 --
218 end create_pl_vehicle;
219 --
220 -- ----------------------------------------------------------------------------
221 -- |--------------------------< update_pl_vehicle >--------------------------|
222 -- ----------------------------------------------------------------------------
223 --
224 Procedure update_pl_vehicle
225 (p_validate in boolean default false
226 ,p_effective_date in date
227 ,p_datetrack_mode in varchar2
228 ,p_vehicle_repository_id in number
229 ,p_object_version_number in out NOCOPY number
230 ,p_vehicle_registration_number in varchar2 default hr_api.g_varchar2
231 ,p_vehicle_type in varchar2 default hr_api.g_varchar2
232 ,p_vehicle_body_number in varchar2 default hr_api.g_varchar2
233 ,p_business_group_id in number default hr_api.g_number
234 ,p_make in varchar2 default hr_api.g_varchar2
235 ,p_engine_capacity_in_cc in number default hr_api.g_number
236 ,p_fuel_type in varchar2 default hr_api.g_varchar2
237 ,p_currency_code in varchar2 default hr_api.g_varchar2
238 ,p_vehicle_status in varchar2 default hr_api.g_varchar2
239 ,p_vehicle_inactivity_reason in varchar2 default hr_api.g_varchar2
240 ,p_model in varchar2 default hr_api.g_varchar2
244 ,p_accessory_value_at_startdate in number default hr_api.g_number
241 ,p_initial_registration in date default hr_api.g_date
242 ,p_last_registration_renew_date in date default hr_api.g_date
243 ,p_list_price in number default hr_api.g_number
245 ,p_accessory_value_added_later in number default hr_api.g_number
246 ,p_market_value_classic_car in number default hr_api.g_number
247 ,p_fiscal_ratings in number default hr_api.g_number
248 ,p_fiscal_ratings_uom in varchar2 default hr_api.g_varchar2
249 ,p_vehicle_provider in varchar2 default hr_api.g_varchar2
250 ,p_vehicle_ownership in varchar2 default hr_api.g_varchar2
251 ,p_shared_vehicle in varchar2 default hr_api.g_varchar2
252 ,p_asset_number in varchar2 default hr_api.g_varchar2
253 ,p_lease_contract_number in varchar2 default hr_api.g_varchar2
254 ,p_lease_contract_expiry_date in date default hr_api.g_date
255 ,p_taxation_method in varchar2 default hr_api.g_varchar2
256 ,p_fleet_info in varchar2 default hr_api.g_varchar2
257 ,p_fleet_transfer_date in date default hr_api.g_date
258 ,p_color in varchar2 default hr_api.g_varchar2
259 ,p_seating_capacity in number default hr_api.g_number
260 ,p_weight in number default hr_api.g_number
261 ,p_weight_uom in varchar2 default hr_api.g_varchar2
262 ,p_year_of_manufacture in number default hr_api.g_number
263 ,p_insurance_number in varchar2 default hr_api.g_varchar2
264 ,p_insurance_expiry_date in date default hr_api.g_date
265 ,p_comments in varchar2 default hr_api.g_varchar2
266 ,p_vre_attribute_category in varchar2 default hr_api.g_varchar2
267 ,p_vre_attribute1 in varchar2 default hr_api.g_varchar2
268 ,p_vre_attribute2 in varchar2 default hr_api.g_varchar2
269 ,p_vre_attribute3 in varchar2 default hr_api.g_varchar2
270 ,p_vre_attribute4 in varchar2 default hr_api.g_varchar2
271 ,p_vre_attribute5 in varchar2 default hr_api.g_varchar2
272 ,p_vre_attribute6 in varchar2 default hr_api.g_varchar2
273 ,p_vre_attribute7 in varchar2 default hr_api.g_varchar2
274 ,p_vre_attribute8 in varchar2 default hr_api.g_varchar2
275 ,p_vre_attribute9 in varchar2 default hr_api.g_varchar2
276 ,p_vre_attribute10 in varchar2 default hr_api.g_varchar2
277 ,p_vre_attribute11 in varchar2 default hr_api.g_varchar2
278 ,p_vre_attribute12 in varchar2 default hr_api.g_varchar2
279 ,p_vre_attribute13 in varchar2 default hr_api.g_varchar2
280 ,p_vre_attribute14 in varchar2 default hr_api.g_varchar2
281 ,p_vre_attribute15 in varchar2 default hr_api.g_varchar2
282 ,p_vre_attribute16 in varchar2 default hr_api.g_varchar2
283 ,p_vre_attribute17 in varchar2 default hr_api.g_varchar2
284 ,p_vre_attribute18 in varchar2 default hr_api.g_varchar2
285 ,p_vre_attribute19 in varchar2 default hr_api.g_varchar2
286 ,p_vre_attribute20 in varchar2 default hr_api.g_varchar2
287 ,p_vre_information_category in varchar2 default hr_api.g_varchar2
288 ,p_vehicle_card_id_number in varchar2 default hr_api.g_varchar2
289 ,p_owner in varchar2 default hr_api.g_varchar2
290 ,p_engine_number in varchar2 default hr_api.g_varchar2
291 ,p_date_of_first_inspection in varchar2 default hr_api.g_varchar2
292 ,p_date_of_next_inspection in varchar2 default hr_api.g_varchar2
293 ,p_other_technical_information in varchar2 default hr_api.g_varchar2
294 ,p_effective_start_date out NOCOPY date
295 ,p_effective_end_date out NOCOPY date
296 ) is
297
298 l_proc varchar2(72);
299 l_legislation_code varchar2(2);
300 --
301 cursor csr_bg is
302 select legislation_code
303 from per_business_groups pbg
304 where pbg.business_group_id = p_business_group_id;
305 --
306 begin
307 g_package :='pqp_pl_vehicle_repository_api.';
308 l_proc := g_package||'update_pl_vehicle';
309
310 hr_utility.set_location('Entering:'|| l_proc, 5);
311 --
312 -- Validation in addition to Row Handlers
313 --
314 -- Check that the specified business group is valid.
315 --
316 open csr_bg;
317 fetch csr_bg into l_legislation_code;
318
319 if csr_bg%notfound then
320 close csr_bg;
321 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
322 hr_utility.raise_error;
323 end if;
324 close csr_bg;
325 --
326 -- Check that the legislation of the specified business group is 'PL'.
327 --
328 if l_legislation_code <> 'PL' then
329 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
330 hr_utility.set_message_token('LEG_CODE','PL');
331 hr_utility.raise_error;
332 end if;
333
334
335 hr_utility.set_location(l_proc, 6);
336 -- Call for Update Vehicle business process
337 pqp_vehicle_repository_api.update_vehicle
338 (p_validate => p_validate
339 ,p_effective_date => p_effective_date
340 ,p_datetrack_mode => p_datetrack_mode
341 ,p_vehicle_repository_id => p_vehicle_repository_id
342 ,p_object_version_number => p_object_version_number
343 ,p_registration_number => p_vehicle_registration_number
344 ,p_vehicle_type => p_vehicle_type
348 ,p_engine_capacity_in_cc => p_engine_capacity_in_cc
345 ,p_vehicle_id_number => p_vehicle_body_number
346 ,p_business_group_id => p_business_group_id
347 ,p_make => p_make
349 ,p_fuel_type => p_fuel_type
350 ,p_currency_code => p_currency_code
351 ,p_vehicle_status => p_vehicle_status
352 ,p_vehicle_inactivity_reason => p_vehicle_inactivity_reason
353 ,p_model => p_model
354 ,p_initial_registration => p_initial_registration
355 ,p_last_registration_renew_date => p_last_registration_renew_date
356 ,p_list_price => p_list_price
357 ,p_accessory_value_at_startdate => p_accessory_value_at_startdate
358 ,p_accessory_value_added_later => p_accessory_value_added_later
359 ,p_market_value_classic_car => p_market_value_classic_car
360 ,p_fiscal_ratings => p_fiscal_ratings
361 ,p_fiscal_ratings_uom => p_fiscal_ratings_uom
362 ,p_vehicle_provider => p_vehicle_provider
363 ,p_vehicle_ownership => p_vehicle_ownership
364 ,p_shared_vehicle => p_shared_vehicle
365 ,p_asset_number => p_asset_number
366 ,p_lease_contract_number => p_lease_contract_number
367 ,p_lease_contract_expiry_date => p_lease_contract_expiry_date
368 ,p_taxation_method => p_taxation_method
369 ,p_fleet_info => p_fleet_info
370 ,p_fleet_transfer_date => p_fleet_transfer_date
371 ,p_color => p_color
372 ,p_seating_capacity => p_seating_capacity
373 ,p_weight => p_weight
374 ,p_weight_uom => p_weight_uom
375 ,p_model_year => p_year_of_manufacture
376 ,p_insurance_number => p_insurance_number
377 ,p_insurance_expiry_date => p_insurance_expiry_date
378 ,p_comments => p_comments
379 ,p_vre_attribute_category => p_vre_attribute_category
380 ,p_vre_attribute1 => p_vre_attribute1
381 ,p_vre_attribute2 => p_vre_attribute2
382 ,p_vre_attribute3 => p_vre_attribute3
383 ,p_vre_attribute4 => p_vre_attribute4
384 ,p_vre_attribute5 => p_vre_attribute5
385 ,p_vre_attribute6 => p_vre_attribute6
386 ,p_vre_attribute7 => p_vre_attribute7
387 ,p_vre_attribute8 => p_vre_attribute8
388 ,p_vre_attribute9 => p_vre_attribute9
389 ,p_vre_attribute10 => p_vre_attribute10
390 ,p_vre_attribute11 => p_vre_attribute11
391 ,p_vre_attribute12 => p_vre_attribute12
392 ,p_vre_attribute13 => p_vre_attribute13
393 ,p_vre_attribute14 => p_vre_attribute14
394 ,p_vre_attribute15 => p_vre_attribute15
395 ,p_vre_attribute16 => p_vre_attribute16
396 ,p_vre_attribute17 => p_vre_attribute17
397 ,p_vre_attribute18 => p_vre_attribute18
398 ,p_vre_attribute19 => p_vre_attribute19
399 ,p_vre_attribute20 => p_vre_attribute20
400 ,p_vre_information_category => p_vre_information_category
401 ,p_vre_information1 => p_vehicle_card_id_number
402 ,p_vre_information2 => p_owner
403 ,p_vre_information3 => p_engine_number
404 ,p_vre_information4 => p_date_of_first_inspection
405 ,p_vre_information5 => p_date_of_next_inspection
406 ,p_vre_information6 => p_other_technical_information
407 ,p_vre_information7 => null
408 ,p_vre_information8 => null
409 ,p_vre_information9 => null
410 ,p_vre_information10 => null
411 ,p_vre_information11 => null
412 ,p_vre_information12 => null
413 ,p_vre_information13 => null
414 ,p_vre_information14 => null
415 ,p_vre_information15 => null
416 ,p_vre_information16 => null
417 ,p_vre_information17 => null
418 ,p_vre_information18 => null
419 ,p_vre_information19 => null
420 ,p_vre_information20 => null
421 ,p_effective_start_date => p_effective_start_date
422 ,p_effective_end_date => p_effective_end_date
423 );
424
425 End Update_pl_vehicle;
426 end pqp_pl_vehicle_repository_api;