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_UPDATE_VEHICLE

Source


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