eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HRDPP_CREATE_VEHICLE

Source


1 package body hrdpp_CREATE_VEHICLE as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/03 23:01:46
4  * Generated for API: PQP_VEHICLE_REPOSITORY_API.CREATE_VEHICLE
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_EFFECTIVE_DATE in date
83 ,P_REGISTRATION_NUMBER in varchar2 default null
84 ,P_VEHICLE_TYPE in varchar2
85 ,P_VEHICLE_ID_NUMBER in varchar2 default null
86 ,P_MAKE in varchar2
87 ,P_ENGINE_CAPACITY_IN_CC in number default null
88 ,P_FUEL_TYPE in varchar2 default null
89 ,P_CURRENCY_CODE in varchar2 default null
90 ,P_VEHICLE_STATUS in varchar2 default null
91 ,P_VEHICLE_INACTIVITY_REASON in varchar2 default null
92 ,P_MODEL in varchar2
93 ,P_INITIAL_REGISTRATION in date default null
94 ,P_LAST_REGISTRATION_RENEW_DATE in date default null
95 ,P_LIST_PRICE in number default null
96 ,P_ACCESSORY_VALUE_AT_STARTDATE in number default null
97 ,P_ACCESSORY_VALUE_ADDED_LATER in number default null
98 ,P_MARKET_VALUE_CLASSIC_CAR in number default null
99 ,P_FISCAL_RATINGS in number default null
100 ,P_FISCAL_RATINGS_UOM in varchar2 default null
101 ,P_VEHICLE_PROVIDER in varchar2 default null
102 ,P_VEHICLE_OWNERSHIP in varchar2 default null
103 ,P_SHARED_VEHICLE in varchar2 default null
104 ,P_ASSET_NUMBER in varchar2 default null
105 ,P_LEASE_CONTRACT_NUMBER in varchar2 default null
106 ,P_LEASE_CONTRACT_EXPIRY_DATE in date default null
107 ,P_TAXATION_METHOD in varchar2 default null
108 ,P_FLEET_INFO in varchar2 default null
109 ,P_FLEET_TRANSFER_DATE in date default null
110 ,P_COLOR in varchar2 default null
111 ,P_SEATING_CAPACITY in number default null
112 ,P_WEIGHT in number default null
113 ,P_WEIGHT_UOM in varchar2 default null
114 ,P_MODEL_YEAR in number default null
115 ,P_INSURANCE_NUMBER in varchar2 default null
116 ,P_INSURANCE_EXPIRY_DATE in date default null
117 ,P_COMMENTS in varchar2 default null
118 ,P_VRE_ATTRIBUTE_CATEGORY in varchar2 default null
119 ,P_VRE_ATTRIBUTE1 in varchar2 default null
120 ,P_VRE_ATTRIBUTE2 in varchar2 default null
121 ,P_VRE_ATTRIBUTE3 in varchar2 default null
122 ,P_VRE_ATTRIBUTE4 in varchar2 default null
123 ,P_VRE_ATTRIBUTE5 in varchar2 default null
124 ,P_VRE_ATTRIBUTE6 in varchar2 default null
125 ,P_VRE_ATTRIBUTE7 in varchar2 default null
126 ,P_VRE_ATTRIBUTE8 in varchar2 default null
127 ,P_VRE_ATTRIBUTE9 in varchar2 default null
128 ,P_VRE_ATTRIBUTE10 in varchar2 default null
129 ,P_VRE_ATTRIBUTE11 in varchar2 default null
130 ,P_VRE_ATTRIBUTE12 in varchar2 default null
131 ,P_VRE_ATTRIBUTE13 in varchar2 default null
132 ,P_VRE_ATTRIBUTE14 in varchar2 default null
133 ,P_VRE_ATTRIBUTE15 in varchar2 default null
134 ,P_VRE_ATTRIBUTE16 in varchar2 default null
135 ,P_VRE_ATTRIBUTE17 in varchar2 default null
136 ,P_VRE_ATTRIBUTE18 in varchar2 default null
137 ,P_VRE_ATTRIBUTE19 in varchar2 default null
138 ,P_VRE_ATTRIBUTE20 in varchar2 default null
139 ,P_VRE_INFORMATION_CATEGORY in varchar2 default null
140 ,P_VRE_INFORMATION1 in varchar2 default null
141 ,P_VRE_INFORMATION2 in varchar2 default null
142 ,P_VRE_INFORMATION3 in varchar2 default null
143 ,P_VRE_INFORMATION4 in varchar2 default null
144 ,P_VRE_INFORMATION5 in varchar2 default null
145 ,P_VRE_INFORMATION6 in varchar2 default null
146 ,P_VRE_INFORMATION7 in varchar2 default null
147 ,P_VRE_INFORMATION8 in varchar2 default null
148 ,P_VRE_INFORMATION9 in varchar2 default null
149 ,P_VRE_INFORMATION10 in varchar2 default null
150 ,P_VRE_INFORMATION11 in varchar2 default null
151 ,P_VRE_INFORMATION12 in varchar2 default null
152 ,P_VRE_INFORMATION13 in varchar2 default null
153 ,P_VRE_INFORMATION14 in varchar2 default null
154 ,P_VRE_INFORMATION15 in varchar2 default null
155 ,P_VRE_INFORMATION16 in varchar2 default null
156 ,P_VRE_INFORMATION17 in varchar2 default null
157 ,P_VRE_INFORMATION18 in varchar2 default null
158 ,P_VRE_INFORMATION19 in varchar2 default null
159 ,P_VRE_INFORMATION20 in varchar2 default null) is
160 blid number := p_data_pump_batch_line_id;
161 begin
162 if blid is not null then
163 delete from hr_pump_batch_lines where batch_line_id = blid;
164 delete from hr_pump_batch_exceptions
165 where source_type = 'BATCH_LINE' and source_id = blid;
166 end if;
167 insert into hr_pump_batch_lines
168 (batch_id
169 ,batch_line_id
170 ,business_group_name
171 ,api_module_id
172 ,line_status
173 ,user_sequence
174 ,link_value
175 ,pval001
176 ,pval002
177 ,pval003
178 ,pval004
179 ,pval005
180 ,pval006
181 ,pval007
182 ,pval008
183 ,pval009
184 ,pval010
185 ,pval011
186 ,pval012
187 ,pval013
188 ,pval014
189 ,pval015
190 ,pval016
191 ,pval017
192 ,pval018
193 ,pval019
194 ,pval020
195 ,pval021
196 ,pval022
197 ,pval023
198 ,pval024
199 ,pval025
200 ,pval026
201 ,pval027
202 ,pval028
203 ,pval029
204 ,pval030
205 ,pval031
206 ,pval032
207 ,pval033
208 ,pval034
209 ,pval035
210 ,pval036
211 ,pval037
212 ,pval038
213 ,pval039
214 ,pval040
215 ,pval041
216 ,pval042
217 ,pval043
218 ,pval044
219 ,pval045
220 ,pval046
221 ,pval047
222 ,pval048
223 ,pval049
224 ,pval050
225 ,pval051
226 ,pval052
227 ,pval053
228 ,pval054
229 ,pval055
230 ,pval056
231 ,pval057
232 ,pval058
233 ,pval059
234 ,pval060
235 ,pval061
236 ,pval062
237 ,pval063
238 ,pval064
239 ,pval065
240 ,pval066
241 ,pval067
242 ,pval068
243 ,pval069
244 ,pval070
245 ,pval071
246 ,pval072
247 ,pval073
248 ,pval074
249 ,pval075
250 ,pval076
251 ,pval077
252 ,pval078)
253 values
254 (p_batch_id
255 ,nvl(blid,hr_pump_batch_lines_s.nextval)
256 ,p_data_pump_business_grp_name
257 ,2893
258 ,'U'
259 ,p_user_sequence
260 ,p_link_value
261 ,dc(P_EFFECTIVE_DATE)
262 ,P_REGISTRATION_NUMBER
263 ,P_VEHICLE_TYPE
264 ,P_VEHICLE_ID_NUMBER
265 ,P_MAKE
266 ,P_ENGINE_CAPACITY_IN_CC
267 ,P_FUEL_TYPE
268 ,P_CURRENCY_CODE
269 ,P_VEHICLE_STATUS
270 ,P_VEHICLE_INACTIVITY_REASON
271 ,P_MODEL
272 ,dc(P_INITIAL_REGISTRATION)
273 ,dc(P_LAST_REGISTRATION_RENEW_DATE)
274 ,P_LIST_PRICE
275 ,P_ACCESSORY_VALUE_AT_STARTDATE
276 ,P_ACCESSORY_VALUE_ADDED_LATER
277 ,P_MARKET_VALUE_CLASSIC_CAR
278 ,P_FISCAL_RATINGS
279 ,P_FISCAL_RATINGS_UOM
280 ,P_VEHICLE_PROVIDER
281 ,P_VEHICLE_OWNERSHIP
282 ,P_SHARED_VEHICLE
283 ,P_ASSET_NUMBER
284 ,P_LEASE_CONTRACT_NUMBER
285 ,dc(P_LEASE_CONTRACT_EXPIRY_DATE)
286 ,P_TAXATION_METHOD
287 ,P_FLEET_INFO
288 ,dc(P_FLEET_TRANSFER_DATE)
289 ,P_COLOR
290 ,P_SEATING_CAPACITY
291 ,P_WEIGHT
292 ,P_WEIGHT_UOM
293 ,P_MODEL_YEAR
294 ,P_INSURANCE_NUMBER
295 ,dc(P_INSURANCE_EXPIRY_DATE)
296 ,P_COMMENTS
297 ,P_VRE_ATTRIBUTE_CATEGORY
298 ,P_VRE_ATTRIBUTE1
299 ,P_VRE_ATTRIBUTE2
300 ,P_VRE_ATTRIBUTE3
301 ,P_VRE_ATTRIBUTE4
302 ,P_VRE_ATTRIBUTE5
303 ,P_VRE_ATTRIBUTE6
304 ,P_VRE_ATTRIBUTE7
305 ,P_VRE_ATTRIBUTE8
306 ,P_VRE_ATTRIBUTE9
307 ,P_VRE_ATTRIBUTE10
308 ,P_VRE_ATTRIBUTE11
309 ,P_VRE_ATTRIBUTE12
310 ,P_VRE_ATTRIBUTE13
311 ,P_VRE_ATTRIBUTE14
312 ,P_VRE_ATTRIBUTE15
313 ,P_VRE_ATTRIBUTE16
314 ,P_VRE_ATTRIBUTE17
315 ,P_VRE_ATTRIBUTE18
316 ,P_VRE_ATTRIBUTE19
317 ,P_VRE_ATTRIBUTE20
318 ,P_VRE_INFORMATION_CATEGORY
319 ,P_VRE_INFORMATION1
320 ,P_VRE_INFORMATION2
321 ,P_VRE_INFORMATION3
322 ,P_VRE_INFORMATION4
323 ,P_VRE_INFORMATION5
324 ,P_VRE_INFORMATION6
325 ,P_VRE_INFORMATION7
326 ,P_VRE_INFORMATION8
327 ,P_VRE_INFORMATION9
328 ,P_VRE_INFORMATION10
329 ,P_VRE_INFORMATION11
330 ,P_VRE_INFORMATION12
331 ,P_VRE_INFORMATION13
332 ,P_VRE_INFORMATION14
333 ,P_VRE_INFORMATION15
334 ,P_VRE_INFORMATION16
335 ,P_VRE_INFORMATION17
336 ,P_VRE_INFORMATION18
337 ,P_VRE_INFORMATION19
338 ,P_VRE_INFORMATION20);
339 end insert_batch_lines;
340 --
341 procedure call
342 (p_business_group_id in number,
343 p_batch_line_id     in number) is
344 cursor cr is
345 select l.rowid myrowid,
346 decode(l.pval001,cn,dn,d(l.pval001)) p1,
347 decode(l.pval002,cn,vn,vn,vn,l.pval002) p2,
348 l.pval002 d2,
349 decode(l.pval003,cn,vn,
350  hr_pump_get.gl(l.pval003,'PQP_VEHICLE_TYPE',d(l.pval001),vn)) p3,
351 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
352 l.pval004 d4,
353 decode(l.pval005,cn,vn,l.pval005) p5,
354 decode(l.pval006,cn,nn,vn,nn,n(l.pval006)) p6,
355 l.pval006 d6,
356 decode(l.pval007,cn,vn,vn,vn,
357  hr_pump_get.gl(l.pval007,'PQP_FUEL_TYPE',d(l.pval001),vn)) p7,
358 l.pval007 d7,
359 decode(l.pval008,cn,vn,vn,vn,l.pval008) p8,
360 l.pval008 d8,
361 decode(l.pval009,cn,vn,vn,vn,
362  hr_pump_get.gl(l.pval009,'PQP_VEHICLE_STATUS',d(l.pval001),vn)) p9,
363 l.pval009 d9,
364 decode(l.pval010,cn,vn,vn,vn,
365  hr_pump_get.gl(l.pval010,'PQP_VEHICLE_INACTIVE_REASONS',d(l.pval001),vn)) p10,
366 l.pval010 d10,
367 decode(l.pval011,cn,vn,l.pval011) p11,
368 decode(l.pval012,cn,dn,vn,dn,d(l.pval012)) p12,
369 l.pval012 d12,
370 decode(l.pval013,cn,dn,vn,dn,d(l.pval013)) p13,
371 l.pval013 d13,
372 decode(l.pval014,cn,nn,vn,nn,n(l.pval014)) p14,
373 l.pval014 d14,
374 decode(l.pval015,cn,nn,vn,nn,n(l.pval015)) p15,
375 l.pval015 d15,
376 decode(l.pval016,cn,nn,vn,nn,n(l.pval016)) p16,
377 l.pval016 d16,
378 decode(l.pval017,cn,nn,vn,nn,n(l.pval017)) p17,
379 l.pval017 d17,
380 decode(l.pval018,cn,nn,vn,nn,n(l.pval018)) p18,
381 l.pval018 d18,
382 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
383 l.pval019 d19,
384 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
385 l.pval020 d20,
386 decode(l.pval021,cn,vn,vn,vn,
387  hr_pump_get.gl(l.pval021,'PQP_VEHICLE_OWNERSHIP_TYPE',d(l.pval001),vn)) p21,
388 l.pval021 d21,
389 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
390 l.pval022 d22,
391 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
392 l.pval023 d23,
393 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
394 l.pval024 d24,
395 decode(l.pval025,cn,dn,vn,dn,d(l.pval025)) p25,
396 l.pval025 d25,
400 l.pval027 d27,
397 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
398 l.pval026 d26,
399 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
401 decode(l.pval028,cn,dn,vn,dn,d(l.pval028)) p28,
402 l.pval028 d28,
403 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
404 l.pval029 d29,
405 decode(l.pval030,cn,nn,vn,nn,n(l.pval030)) p30,
406 l.pval030 d30,
407 decode(l.pval031,cn,nn,vn,nn,n(l.pval031)) p31,
408 l.pval031 d31,
409 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
410 l.pval032 d32,
411 decode(l.pval033,cn,nn,vn,nn,n(l.pval033)) p33,
412 l.pval033 d33,
413 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
414 l.pval034 d34,
415 decode(l.pval035,cn,dn,vn,dn,d(l.pval035)) p35,
416 l.pval035 d35,
417 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
418 l.pval036 d36,
419 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
420 l.pval037 d37,
421 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
422 l.pval038 d38,
423 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
424 l.pval039 d39,
425 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
426 l.pval040 d40,
427 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
428 l.pval041 d41,
429 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
430 l.pval042 d42,
431 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
432 l.pval043 d43,
433 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
434 l.pval044 d44,
435 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
436 l.pval045 d45,
437 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
438 l.pval046 d46,
439 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
440 l.pval047 d47,
441 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
442 l.pval048 d48,
443 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
444 l.pval049 d49,
445 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
446 l.pval050 d50,
447 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
448 l.pval051 d51,
449 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
450 l.pval052 d52,
451 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
452 l.pval053 d53,
453 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
454 l.pval054 d54,
455 decode(l.pval055,cn,vn,vn,vn,l.pval055) p55,
456 l.pval055 d55,
457 decode(l.pval056,cn,vn,vn,vn,l.pval056) p56,
458 l.pval056 d56,
459 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
460 l.pval057 d57,
461 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
462 l.pval058 d58,
463 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
464 l.pval059 d59,
465 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
466 l.pval060 d60,
467 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
468 l.pval061 d61,
469 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
470 l.pval062 d62,
471 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
472 l.pval063 d63,
473 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
474 l.pval064 d64,
475 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
476 l.pval065 d65,
477 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
478 l.pval066 d66,
479 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
480 l.pval067 d67,
481 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
482 l.pval068 d68,
483 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
484 l.pval069 d69,
485 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
486 l.pval070 d70,
487 decode(l.pval071,cn,vn,vn,vn,l.pval071) p71,
488 l.pval071 d71,
489 decode(l.pval072,cn,vn,vn,vn,l.pval072) p72,
490 l.pval072 d72,
491 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
492 l.pval073 d73,
493 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
494 l.pval074 d74,
495 decode(l.pval075,cn,vn,vn,vn,l.pval075) p75,
496 l.pval075 d75,
497 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
498 l.pval076 d76,
499 decode(l.pval077,cn,vn,vn,vn,l.pval077) p77,
500 l.pval077 d77,
501 decode(l.pval078,cn,vn,vn,vn,l.pval078) p78,
502 l.pval078 d78,
503 l.pval079 p79,
504 l.pval080 p80,
505 decode(l.pval081,cn,dn,d(l.pval081)) p81,
506 decode(l.pval082,cn,dn,d(l.pval082)) p82
507 from hr_pump_batch_lines l
508 where l.batch_line_id = p_batch_line_id;
509 --
510 c cr%rowtype;
511 l_validate boolean := false;
512 --
513 begin
514 hr_data_pump.entry('call');
515 open cr;
516 fetch cr into c;
517 if cr%notfound then
518 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
519 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
520 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
521 hr_utility.set_message_token('VALUE',p_batch_line_id);
522 hr_utility.raise_error;
523 end if;
524 --
525 hr_data_pump.api_trc_on;
526 PQP_VEHICLE_REPOSITORY_API.CREATE_VEHICLE
527 (p_validate => l_validate
528 ,P_EFFECTIVE_DATE => c.p1
529 ,P_REGISTRATION_NUMBER => c.p2
530 ,P_VEHICLE_TYPE => c.p3
531 ,P_VEHICLE_ID_NUMBER => c.p4
532 ,p_business_group_id => p_business_group_id
533 ,P_MAKE => c.p5
534 ,P_ENGINE_CAPACITY_IN_CC => c.p6
535 ,P_FUEL_TYPE => c.p7
536 ,P_CURRENCY_CODE => c.p8
537 ,P_VEHICLE_STATUS => c.p9
538 ,P_VEHICLE_INACTIVITY_REASON => c.p10
539 ,P_MODEL => c.p11
540 ,P_INITIAL_REGISTRATION => c.p12
541 ,P_LAST_REGISTRATION_RENEW_DATE => c.p13
542 ,P_LIST_PRICE => c.p14
543 ,P_ACCESSORY_VALUE_AT_STARTDATE => c.p15
544 ,P_ACCESSORY_VALUE_ADDED_LATER => c.p16
545 ,P_MARKET_VALUE_CLASSIC_CAR => c.p17
546 ,P_FISCAL_RATINGS => c.p18
547 ,P_FISCAL_RATINGS_UOM => c.p19
548 ,P_VEHICLE_PROVIDER => c.p20
549 ,P_VEHICLE_OWNERSHIP => c.p21
550 ,P_SHARED_VEHICLE => c.p22
551 ,P_ASSET_NUMBER => c.p23
552 ,P_LEASE_CONTRACT_NUMBER => c.p24
553 ,P_LEASE_CONTRACT_EXPIRY_DATE => c.p25
554 ,P_TAXATION_METHOD => c.p26
555 ,P_FLEET_INFO => c.p27
556 ,P_FLEET_TRANSFER_DATE => c.p28
557 ,P_COLOR => c.p29
558 ,P_SEATING_CAPACITY => c.p30
559 ,P_WEIGHT => c.p31
560 ,P_WEIGHT_UOM => c.p32
561 ,P_MODEL_YEAR => c.p33
562 ,P_INSURANCE_NUMBER => c.p34
563 ,P_INSURANCE_EXPIRY_DATE => c.p35
564 ,P_COMMENTS => c.p36
565 ,P_VRE_ATTRIBUTE_CATEGORY => c.p37
566 ,P_VRE_ATTRIBUTE1 => c.p38
567 ,P_VRE_ATTRIBUTE2 => c.p39
568 ,P_VRE_ATTRIBUTE3 => c.p40
569 ,P_VRE_ATTRIBUTE4 => c.p41
570 ,P_VRE_ATTRIBUTE5 => c.p42
571 ,P_VRE_ATTRIBUTE6 => c.p43
572 ,P_VRE_ATTRIBUTE7 => c.p44
573 ,P_VRE_ATTRIBUTE8 => c.p45
574 ,P_VRE_ATTRIBUTE9 => c.p46
575 ,P_VRE_ATTRIBUTE10 => c.p47
576 ,P_VRE_ATTRIBUTE11 => c.p48
577 ,P_VRE_ATTRIBUTE12 => c.p49
578 ,P_VRE_ATTRIBUTE13 => c.p50
579 ,P_VRE_ATTRIBUTE14 => c.p51
580 ,P_VRE_ATTRIBUTE15 => c.p52
581 ,P_VRE_ATTRIBUTE16 => c.p53
582 ,P_VRE_ATTRIBUTE17 => c.p54
583 ,P_VRE_ATTRIBUTE18 => c.p55
584 ,P_VRE_ATTRIBUTE19 => c.p56
585 ,P_VRE_ATTRIBUTE20 => c.p57
586 ,P_VRE_INFORMATION_CATEGORY => c.p58
587 ,P_VRE_INFORMATION1 => c.p59
588 ,P_VRE_INFORMATION2 => c.p60
589 ,P_VRE_INFORMATION3 => c.p61
590 ,P_VRE_INFORMATION4 => c.p62
591 ,P_VRE_INFORMATION5 => c.p63
592 ,P_VRE_INFORMATION6 => c.p64
593 ,P_VRE_INFORMATION7 => c.p65
594 ,P_VRE_INFORMATION8 => c.p66
595 ,P_VRE_INFORMATION9 => c.p67
596 ,P_VRE_INFORMATION10 => c.p68
597 ,P_VRE_INFORMATION11 => c.p69
598 ,P_VRE_INFORMATION12 => c.p70
599 ,P_VRE_INFORMATION13 => c.p71
600 ,P_VRE_INFORMATION14 => c.p72
601 ,P_VRE_INFORMATION15 => c.p73
602 ,P_VRE_INFORMATION16 => c.p74
603 ,P_VRE_INFORMATION17 => c.p75
604 ,P_VRE_INFORMATION18 => c.p76
605 ,P_VRE_INFORMATION19 => c.p77
606 ,P_VRE_INFORMATION20 => c.p78
607 ,P_VEHICLE_REPOSITORY_ID => c.p79
608 ,P_OBJECT_VERSION_NUMBER => c.p80
609 ,P_EFFECTIVE_START_DATE => c.p81
610 ,P_EFFECTIVE_END_DATE => c.p82);
611 hr_data_pump.api_trc_off;
612 
613 --
614 update hr_pump_batch_lines l set
615 l.pval079 = decode(c.p79,null,cn,c.p79),
616 l.pval080 = decode(c.p80,null,cn,c.p80),
617 l.pval081 = decode(c.p81,null,cn,dc(c.p81)),
618 l.pval082 = decode(c.p82,null,cn,dc(c.p82))
619 where l.rowid = c.myrowid;
620 --
621 close cr;
622 --
623 hr_data_pump.exit('call');
624 exception
625  when hr_multi_message.error_message_exist then
626    if cr%isopen then
627     close cr;
628    end if;
629    hr_pump_utils.set_multi_msg_error_flag(true);
630  when others then
631  if cr%isopen then
632   close cr;
633  end if;
634  raise;
635 end call;
636 end hrdpp_CREATE_VEHICLE;