[Home] [Help]
PACKAGE BODY: APPS.PQP_VRI_UPD
Source
1 Package Body pqp_vri_upd as
2 /* $Header: pqvrirhi.pkb 120.0.12010000.2 2008/08/08 07:24:11 ubhat ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqp_vri_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55 (p_rec in out nocopy pqp_vri_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61 hr_utility.set_location('Entering:'||l_proc, 5);
62 --
63 -- Increment the object version
64 p_rec.object_version_number := p_rec.object_version_number + 1;
65 --
66 pqp_vri_shd.g_api_dml := true; -- Set the api dml status
67 --
68 -- Update the pqp_veh_repos_extra_info Row
69 --
70 update pqp_veh_repos_extra_info
71 set
72 veh_repos_extra_info_id = p_rec.veh_repos_extra_info_id
73 ,vehicle_repository_id = p_rec.vehicle_repository_id
74 ,information_type = p_rec.information_type
75 ,vrei_attribute_category = p_rec.vrei_attribute_category
76 ,vrei_attribute1 = p_rec.vrei_attribute1
77 ,vrei_attribute2 = p_rec.vrei_attribute2
78 ,vrei_attribute3 = p_rec.vrei_attribute3
79 ,vrei_attribute4 = p_rec.vrei_attribute4
80 ,vrei_attribute5 = p_rec.vrei_attribute5
81 ,vrei_attribute6 = p_rec.vrei_attribute6
82 ,vrei_attribute7 = p_rec.vrei_attribute7
83 ,vrei_attribute8 = p_rec.vrei_attribute8
84 ,vrei_attribute9 = p_rec.vrei_attribute9
85 ,vrei_attribute10 = p_rec.vrei_attribute10
86 ,vrei_attribute11 = p_rec.vrei_attribute11
87 ,vrei_attribute12 = p_rec.vrei_attribute12
88 ,vrei_attribute13 = p_rec.vrei_attribute13
89 ,vrei_attribute14 = p_rec.vrei_attribute14
90 ,vrei_attribute15 = p_rec.vrei_attribute15
91 ,vrei_attribute16 = p_rec.vrei_attribute16
92 ,vrei_attribute17 = p_rec.vrei_attribute17
93 ,vrei_attribute18 = p_rec.vrei_attribute18
94 ,vrei_attribute19 = p_rec.vrei_attribute19
95 ,vrei_attribute20 = p_rec.vrei_attribute20
96 ,vrei_information_category = p_rec.vrei_information_category
97 ,vrei_information1 = p_rec.vrei_information1
98 ,vrei_information2 = p_rec.vrei_information2
99 ,vrei_information3 = p_rec.vrei_information3
100 ,vrei_information4 = p_rec.vrei_information4
101 ,vrei_information5 = p_rec.vrei_information5
102 ,vrei_information6 = p_rec.vrei_information6
103 ,vrei_information7 = p_rec.vrei_information7
104 ,vrei_information8 = p_rec.vrei_information8
105 ,vrei_information9 = p_rec.vrei_information9
106 ,vrei_information10 = p_rec.vrei_information10
107 ,vrei_information11 = p_rec.vrei_information11
108 ,vrei_information12 = p_rec.vrei_information12
109 ,vrei_information13 = p_rec.vrei_information13
110 ,vrei_information14 = p_rec.vrei_information14
111 ,vrei_information15 = p_rec.vrei_information15
112 ,vrei_information16 = p_rec.vrei_information16
113 ,vrei_information17 = p_rec.vrei_information17
114 ,vrei_information18 = p_rec.vrei_information18
115 ,vrei_information19 = p_rec.vrei_information19
116 ,vrei_information20 = p_rec.vrei_information20
117 ,vrei_information21 = p_rec.vrei_information21
118 ,vrei_information22 = p_rec.vrei_information22
119 ,vrei_information23 = p_rec.vrei_information23
120 ,vrei_information24 = p_rec.vrei_information24
121 ,vrei_information25 = p_rec.vrei_information25
122 ,vrei_information26 = p_rec.vrei_information26
123 ,vrei_information27 = p_rec.vrei_information27
124 ,vrei_information28 = p_rec.vrei_information28
125 ,vrei_information29 = p_rec.vrei_information29
126 ,vrei_information30 = p_rec.vrei_information30
127 ,object_version_number = p_rec.object_version_number
128 ,request_id = p_rec.request_id
129 ,program_application_id = p_rec.program_application_id
130 ,program_id = p_rec.program_id
131 ,program_update_date = p_rec.program_update_date
132 where veh_repos_extra_info_id = p_rec.veh_repos_extra_info_id;
133 --
134 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
135 --
136 hr_utility.set_location(' Leaving:'||l_proc, 10);
137 --
138 Exception
139 When hr_api.check_integrity_violated Then
140 -- A check constraint has been violated
141 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
142 pqp_vri_shd.constraint_error
143 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144 When hr_api.parent_integrity_violated Then
145 -- Parent integrity has been violated
146 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
147 pqp_vri_shd.constraint_error
148 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149 When hr_api.unique_integrity_violated Then
150 -- Unique integrity has been violated
151 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
152 pqp_vri_shd.constraint_error
153 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154 When Others Then
155 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
156 Raise;
157 End update_dml;
158 --
159 -- ----------------------------------------------------------------------------
160 -- |------------------------------< pre_update >------------------------------|
161 -- ----------------------------------------------------------------------------
162 -- {Start Of Comments}
163 --
164 -- Description:
165 -- This private procedure contains any processing which is required before
166 -- the update dml.
167 --
168 -- Prerequisites:
169 -- This is an internal procedure which is called from the upd procedure.
170 --
171 -- In Parameters:
172 -- A Pl/Sql record structure.
173 --
174 -- Post Success:
175 -- Processing continues.
176 --
177 -- Post Failure:
178 -- If an error has occurred, an error message and exception wil be raised
179 -- but not handled.
180 --
181 -- Developer Implementation Notes:
182 -- Any pre-processing required before the update dml is issued should be
183 -- coded within this procedure. It is important to note that any 3rd party
184 -- maintenance should be reviewed before placing in this procedure.
185 --
186 -- Access Status:
187 -- Internal Row Handler Use Only.
188 --
189 -- {End Of Comments}
190 -- ----------------------------------------------------------------------------
191 Procedure pre_update
192 (p_rec in pqp_vri_shd.g_rec_type
193 ) is
194 --
195 l_proc varchar2(72) := g_package||'pre_update';
196 --
197 Begin
198 hr_utility.set_location('Entering:'||l_proc, 5);
199 --
200 hr_utility.set_location(' Leaving:'||l_proc, 10);
201 End pre_update;
202 --
203 -- ----------------------------------------------------------------------------
204 -- |-----------------------------< post_update >------------------------------|
205 -- ----------------------------------------------------------------------------
206 -- {Start Of Comments}
207 --
208 -- Description:
209 -- This private procedure contains any processing which is required after
210 -- the update dml.
211 --
212 -- Prerequisites:
213 -- This is an internal procedure which is called from the upd procedure.
214 --
215 -- In Parameters:
216 -- A Pl/Sql record structure.
217 --
218 -- Post Success:
219 -- Processing continues.
220 --
221 -- Post Failure:
222 -- If an error has occurred, an error message and exception will be raised
223 -- but not handled.
224 --
225 -- Developer Implementation Notes:
226 -- Any post-processing required after the update dml is issued should be
227 -- coded within this procedure. It is important to note that any 3rd party
228 -- maintenance should be reviewed before placing in this procedure.
229 --
230 -- Access Status:
231 -- Internal Row Handler Use Only.
232 --
233 -- {End Of Comments}
234 -- ----------------------------------------------------------------------------
235 Procedure post_update
236 (p_rec in pqp_vri_shd.g_rec_type
237 ) is
238 --
239 l_proc varchar2(72) := g_package||'post_update';
240 --
241 Begin
242 hr_utility.set_location('Entering:'||l_proc, 5);
243 begin
244 --
245 pqp_vri_rku.after_update
246 (p_veh_repos_extra_info_id
247 => p_rec.veh_repos_extra_info_id
248 ,p_vehicle_repository_id
249 => p_rec.vehicle_repository_id
250 ,p_information_type
251 => p_rec.information_type
252 ,p_vrei_attribute_category
253 => p_rec.vrei_attribute_category
254 ,p_vrei_attribute1
255 => p_rec.vrei_attribute1
256 ,p_vrei_attribute2
257 => p_rec.vrei_attribute2
258 ,p_vrei_attribute3
259 => p_rec.vrei_attribute3
260 ,p_vrei_attribute4
261 => p_rec.vrei_attribute4
262 ,p_vrei_attribute5
263 => p_rec.vrei_attribute5
264 ,p_vrei_attribute6
265 => p_rec.vrei_attribute6
266 ,p_vrei_attribute7
267 => p_rec.vrei_attribute7
268 ,p_vrei_attribute8
269 => p_rec.vrei_attribute8
270 ,p_vrei_attribute9
271 => p_rec.vrei_attribute9
272 ,p_vrei_attribute10
273 => p_rec.vrei_attribute10
274 ,p_vrei_attribute11
275 => p_rec.vrei_attribute11
276 ,p_vrei_attribute12
277 => p_rec.vrei_attribute12
278 ,p_vrei_attribute13
279 => p_rec.vrei_attribute13
280 ,p_vrei_attribute14
281 => p_rec.vrei_attribute14
282 ,p_vrei_attribute15
283 => p_rec.vrei_attribute15
284 ,p_vrei_attribute16
285 => p_rec.vrei_attribute16
286 ,p_vrei_attribute17
287 => p_rec.vrei_attribute17
288 ,p_vrei_attribute18
289 => p_rec.vrei_attribute18
290 ,p_vrei_attribute19
291 => p_rec.vrei_attribute19
292 ,p_vrei_attribute20
293 => p_rec.vrei_attribute20
294 ,p_vrei_information_category
295 => p_rec.vrei_information_category
296 ,p_vrei_information1
297 => p_rec.vrei_information1
298 ,p_vrei_information2
299 => p_rec.vrei_information2
300 ,p_vrei_information3
301 => p_rec.vrei_information3
302 ,p_vrei_information4
303 => p_rec.vrei_information4
304 ,p_vrei_information5
305 => p_rec.vrei_information5
306 ,p_vrei_information6
307 => p_rec.vrei_information6
308 ,p_vrei_information7
309 => p_rec.vrei_information7
310 ,p_vrei_information8
311 => p_rec.vrei_information8
312 ,p_vrei_information9
313 => p_rec.vrei_information9
314 ,p_vrei_information10
315 => p_rec.vrei_information10
316 ,p_vrei_information11
317 => p_rec.vrei_information11
318 ,p_vrei_information12
319 => p_rec.vrei_information12
320 ,p_vrei_information13
321 => p_rec.vrei_information13
322 ,p_vrei_information14
323 => p_rec.vrei_information14
324 ,p_vrei_information15
325 => p_rec.vrei_information15
326 ,p_vrei_information16
327 => p_rec.vrei_information16
328 ,p_vrei_information17
329 => p_rec.vrei_information17
330 ,p_vrei_information18
331 => p_rec.vrei_information18
332 ,p_vrei_information19
333 => p_rec.vrei_information19
334 ,p_vrei_information20
335 => p_rec.vrei_information20
336 ,p_vrei_information21
337 => p_rec.vrei_information21
338 ,p_vrei_information22
339 => p_rec.vrei_information22
340 ,p_vrei_information23
341 => p_rec.vrei_information23
342 ,p_vrei_information24
343 => p_rec.vrei_information24
344 ,p_vrei_information25
345 => p_rec.vrei_information25
346 ,p_vrei_information26
347 => p_rec.vrei_information26
348 ,p_vrei_information27
349 => p_rec.vrei_information27
350 ,p_vrei_information28
351 => p_rec.vrei_information28
352 ,p_vrei_information29
353 => p_rec.vrei_information29
354 ,p_vrei_information30
355 => p_rec.vrei_information30
356 ,p_object_version_number
357 => p_rec.object_version_number
358 ,p_request_id
359 => p_rec.request_id
360 ,p_program_application_id
361 => p_rec.program_application_id
362 ,p_program_id
363 => p_rec.program_id
364 ,p_program_update_date
365 => p_rec.program_update_date
366 ,p_vehicle_repository_id_o
367 => pqp_vri_shd.g_old_rec.vehicle_repository_id
368 ,p_information_type_o
369 => pqp_vri_shd.g_old_rec.information_type
370 ,p_vrei_attribute_category_o
371 => pqp_vri_shd.g_old_rec.vrei_attribute_category
372 ,p_vrei_attribute1_o
373 => pqp_vri_shd.g_old_rec.vrei_attribute1
374 ,p_vrei_attribute2_o
375 => pqp_vri_shd.g_old_rec.vrei_attribute2
376 ,p_vrei_attribute3_o
377 => pqp_vri_shd.g_old_rec.vrei_attribute3
378 ,p_vrei_attribute4_o
379 => pqp_vri_shd.g_old_rec.vrei_attribute4
380 ,p_vrei_attribute5_o
381 => pqp_vri_shd.g_old_rec.vrei_attribute5
382 ,p_vrei_attribute6_o
383 => pqp_vri_shd.g_old_rec.vrei_attribute6
384 ,p_vrei_attribute7_o
385 => pqp_vri_shd.g_old_rec.vrei_attribute7
386 ,p_vrei_attribute8_o
387 => pqp_vri_shd.g_old_rec.vrei_attribute8
388 ,p_vrei_attribute9_o
389 => pqp_vri_shd.g_old_rec.vrei_attribute9
390 ,p_vrei_attribute10_o
391 => pqp_vri_shd.g_old_rec.vrei_attribute10
392 ,p_vrei_attribute11_o
393 => pqp_vri_shd.g_old_rec.vrei_attribute11
394 ,p_vrei_attribute12_o
395 => pqp_vri_shd.g_old_rec.vrei_attribute12
396 ,p_vrei_attribute13_o
397 => pqp_vri_shd.g_old_rec.vrei_attribute13
398 ,p_vrei_attribute14_o
399 => pqp_vri_shd.g_old_rec.vrei_attribute14
400 ,p_vrei_attribute15_o
401 => pqp_vri_shd.g_old_rec.vrei_attribute15
402 ,p_vrei_attribute16_o
403 => pqp_vri_shd.g_old_rec.vrei_attribute16
404 ,p_vrei_attribute17_o
405 => pqp_vri_shd.g_old_rec.vrei_attribute17
406 ,p_vrei_attribute18_o
407 => pqp_vri_shd.g_old_rec.vrei_attribute18
408 ,p_vrei_attribute19_o
409 => pqp_vri_shd.g_old_rec.vrei_attribute19
410 ,p_vrei_attribute20_o
411 => pqp_vri_shd.g_old_rec.vrei_attribute20
412 ,p_vrei_information_category_o
413 => pqp_vri_shd.g_old_rec.vrei_information_category
414 ,p_vrei_information1_o
415 => pqp_vri_shd.g_old_rec.vrei_information1
416 ,p_vrei_information2_o
417 => pqp_vri_shd.g_old_rec.vrei_information2
418 ,p_vrei_information3_o
419 => pqp_vri_shd.g_old_rec.vrei_information3
420 ,p_vrei_information4_o
421 => pqp_vri_shd.g_old_rec.vrei_information4
422 ,p_vrei_information5_o
423 => pqp_vri_shd.g_old_rec.vrei_information5
424 ,p_vrei_information6_o
425 => pqp_vri_shd.g_old_rec.vrei_information6
426 ,p_vrei_information7_o
427 => pqp_vri_shd.g_old_rec.vrei_information7
428 ,p_vrei_information8_o
429 => pqp_vri_shd.g_old_rec.vrei_information8
430 ,p_vrei_information9_o
431 => pqp_vri_shd.g_old_rec.vrei_information9
432 ,p_vrei_information10_o
433 => pqp_vri_shd.g_old_rec.vrei_information10
434 ,p_vrei_information11_o
435 => pqp_vri_shd.g_old_rec.vrei_information11
436 ,p_vrei_information12_o
437 => pqp_vri_shd.g_old_rec.vrei_information12
438 ,p_vrei_information13_o
439 => pqp_vri_shd.g_old_rec.vrei_information13
440 ,p_vrei_information14_o
441 => pqp_vri_shd.g_old_rec.vrei_information14
442 ,p_vrei_information15_o
443 => pqp_vri_shd.g_old_rec.vrei_information15
444 ,p_vrei_information16_o
445 => pqp_vri_shd.g_old_rec.vrei_information16
446 ,p_vrei_information17_o
447 => pqp_vri_shd.g_old_rec.vrei_information17
448 ,p_vrei_information18_o
449 => pqp_vri_shd.g_old_rec.vrei_information18
450 ,p_vrei_information19_o
451 => pqp_vri_shd.g_old_rec.vrei_information19
452 ,p_vrei_information20_o
453 => pqp_vri_shd.g_old_rec.vrei_information20
454 ,p_vrei_information21_o
455 => pqp_vri_shd.g_old_rec.vrei_information21
456 ,p_vrei_information22_o
457 => pqp_vri_shd.g_old_rec.vrei_information22
458 ,p_vrei_information23_o
459 => pqp_vri_shd.g_old_rec.vrei_information23
460 ,p_vrei_information24_o
461 => pqp_vri_shd.g_old_rec.vrei_information24
462 ,p_vrei_information25_o
463 => pqp_vri_shd.g_old_rec.vrei_information25
464 ,p_vrei_information26_o
465 => pqp_vri_shd.g_old_rec.vrei_information26
466 ,p_vrei_information27_o
467 => pqp_vri_shd.g_old_rec.vrei_information27
468 ,p_vrei_information28_o
469 => pqp_vri_shd.g_old_rec.vrei_information28
470 ,p_vrei_information29_o
471 => pqp_vri_shd.g_old_rec.vrei_information29
472 ,p_vrei_information30_o
473 => pqp_vri_shd.g_old_rec.vrei_information30
474 ,p_object_version_number_o
475 => pqp_vri_shd.g_old_rec.object_version_number
476 ,p_request_id_o
477 => pqp_vri_shd.g_old_rec.request_id
478 ,p_program_application_id_o
479 => pqp_vri_shd.g_old_rec.program_application_id
480 ,p_program_id_o
481 => pqp_vri_shd.g_old_rec.program_id
482 ,p_program_update_date_o
483 => pqp_vri_shd.g_old_rec.program_update_date
484 );
485 --
486 exception
487 --
488 when hr_api.cannot_find_prog_unit then
489 --
490 hr_api.cannot_find_prog_unit_error
491 (p_module_name => 'PQP_VEH_REPOS_EXTRA_INFO'
492 ,p_hook_type => 'AU');
493 --
494 end;
495 --
496 hr_utility.set_location(' Leaving:'||l_proc, 10);
497 End post_update;
498 --
499 -- ----------------------------------------------------------------------------
500 -- |-----------------------------< convert_defs >-----------------------------|
501 -- ----------------------------------------------------------------------------
502 -- {Start Of Comments}
503 --
504 -- Description:
505 -- The Convert_Defs procedure has one very important function:
506 -- It must return the record structure for the row with all system defaulted
507 -- values converted into its corresponding parameter value for update. When
508 -- we attempt to update a row through the Upd process , certain
509 -- parameters can be defaulted which enables flexibility in the calling of
510 -- the upd process (e.g. only attributes which need to be updated need to be
511 -- specified). For the upd process to determine which attributes
512 -- have NOT been specified we need to check if the parameter has a reserved
513 -- system default value. Therefore, for all parameters which have a
514 -- corresponding reserved system default mechanism specified we need to
515 -- check if a system default is being used. If a system default is being
516 -- used then we convert the defaulted value into its corresponding attribute
517 -- value held in the g_old_rec data structure.
518 --
519 -- Prerequisites:
520 -- This private function can only be called from the upd process.
521 --
522 -- In Parameters:
523 -- A Pl/Sql record structure.
524 --
525 -- Post Success:
526 -- The record structure will be returned with all system defaulted parameter
527 -- values converted into its current row attribute value.
528 --
529 -- Post Failure:
530 -- No direct error handling is required within this function. Any possible
531 -- errors within this procedure will be a PL/SQL value error due to
532 -- conversion of datatypes or data lengths.
533 --
534 -- Developer Implementation Notes:
535 -- None.
536 --
537 -- Access Status:
538 -- Internal Row Handler Use Only.
539 --
540 -- {End Of Comments}
541 -- ----------------------------------------------------------------------------
542 Procedure convert_defs
543 (p_rec in out nocopy pqp_vri_shd.g_rec_type
544 ) is
545 --
546 Begin
547 --
548 -- We must now examine each argument value in the
549 -- p_rec plsql record structure
550 -- to see if a system default is being used. If a system default
551 -- is being used then we must set to the 'current' argument value.
552 --
553 If (p_rec.vehicle_repository_id = hr_api.g_number) then
554 p_rec.vehicle_repository_id :=
555 pqp_vri_shd.g_old_rec.vehicle_repository_id;
556 End If;
557 If (p_rec.information_type = hr_api.g_varchar2) then
558 p_rec.information_type :=
559 pqp_vri_shd.g_old_rec.information_type;
560 End If;
561 If (p_rec.vrei_attribute_category = hr_api.g_varchar2) then
562 p_rec.vrei_attribute_category :=
563 pqp_vri_shd.g_old_rec.vrei_attribute_category;
564 End If;
565 If (p_rec.vrei_attribute1 = hr_api.g_varchar2) then
566 p_rec.vrei_attribute1 :=
567 pqp_vri_shd.g_old_rec.vrei_attribute1;
568 End If;
569 If (p_rec.vrei_attribute2 = hr_api.g_varchar2) then
570 p_rec.vrei_attribute2 :=
571 pqp_vri_shd.g_old_rec.vrei_attribute2;
572 End If;
573 If (p_rec.vrei_attribute3 = hr_api.g_varchar2) then
574 p_rec.vrei_attribute3 :=
575 pqp_vri_shd.g_old_rec.vrei_attribute3;
576 End If;
577 If (p_rec.vrei_attribute4 = hr_api.g_varchar2) then
578 p_rec.vrei_attribute4 :=
579 pqp_vri_shd.g_old_rec.vrei_attribute4;
580 End If;
581 If (p_rec.vrei_attribute5 = hr_api.g_varchar2) then
582 p_rec.vrei_attribute5 :=
583 pqp_vri_shd.g_old_rec.vrei_attribute5;
584 End If;
585 If (p_rec.vrei_attribute6 = hr_api.g_varchar2) then
586 p_rec.vrei_attribute6 :=
587 pqp_vri_shd.g_old_rec.vrei_attribute6;
588 End If;
589 If (p_rec.vrei_attribute7 = hr_api.g_varchar2) then
590 p_rec.vrei_attribute7 :=
591 pqp_vri_shd.g_old_rec.vrei_attribute7;
592 End If;
593 If (p_rec.vrei_attribute8 = hr_api.g_varchar2) then
594 p_rec.vrei_attribute8 :=
595 pqp_vri_shd.g_old_rec.vrei_attribute8;
596 End If;
597 If (p_rec.vrei_attribute9 = hr_api.g_varchar2) then
598 p_rec.vrei_attribute9 :=
599 pqp_vri_shd.g_old_rec.vrei_attribute9;
600 End If;
601 If (p_rec.vrei_attribute10 = hr_api.g_varchar2) then
602 p_rec.vrei_attribute10 :=
603 pqp_vri_shd.g_old_rec.vrei_attribute10;
604 End If;
605 If (p_rec.vrei_attribute11 = hr_api.g_varchar2) then
606 p_rec.vrei_attribute11 :=
607 pqp_vri_shd.g_old_rec.vrei_attribute11;
608 End If;
609 If (p_rec.vrei_attribute12 = hr_api.g_varchar2) then
610 p_rec.vrei_attribute12 :=
611 pqp_vri_shd.g_old_rec.vrei_attribute12;
612 End If;
613 If (p_rec.vrei_attribute13 = hr_api.g_varchar2) then
614 p_rec.vrei_attribute13 :=
615 pqp_vri_shd.g_old_rec.vrei_attribute13;
616 End If;
617 If (p_rec.vrei_attribute14 = hr_api.g_varchar2) then
618 p_rec.vrei_attribute14 :=
619 pqp_vri_shd.g_old_rec.vrei_attribute14;
620 End If;
621 If (p_rec.vrei_attribute15 = hr_api.g_varchar2) then
622 p_rec.vrei_attribute15 :=
623 pqp_vri_shd.g_old_rec.vrei_attribute15;
624 End If;
625 If (p_rec.vrei_attribute16 = hr_api.g_varchar2) then
626 p_rec.vrei_attribute16 :=
627 pqp_vri_shd.g_old_rec.vrei_attribute16;
628 End If;
629 If (p_rec.vrei_attribute17 = hr_api.g_varchar2) then
630 p_rec.vrei_attribute17 :=
631 pqp_vri_shd.g_old_rec.vrei_attribute17;
632 End If;
633 If (p_rec.vrei_attribute18 = hr_api.g_varchar2) then
634 p_rec.vrei_attribute18 :=
635 pqp_vri_shd.g_old_rec.vrei_attribute18;
636 End If;
637 If (p_rec.vrei_attribute19 = hr_api.g_varchar2) then
638 p_rec.vrei_attribute19 :=
639 pqp_vri_shd.g_old_rec.vrei_attribute19;
640 End If;
641 If (p_rec.vrei_attribute20 = hr_api.g_varchar2) then
642 p_rec.vrei_attribute20 :=
643 pqp_vri_shd.g_old_rec.vrei_attribute20;
644 End If;
645 If (p_rec.vrei_information_category = hr_api.g_varchar2) then
646 p_rec.vrei_information_category :=
647 pqp_vri_shd.g_old_rec.vrei_information_category;
648 End If;
649 If (p_rec.vrei_information1 = hr_api.g_varchar2) then
650 p_rec.vrei_information1 :=
651 pqp_vri_shd.g_old_rec.vrei_information1;
652 End If;
653 If (p_rec.vrei_information2 = hr_api.g_varchar2) then
654 p_rec.vrei_information2 :=
655 pqp_vri_shd.g_old_rec.vrei_information2;
656 End If;
657 If (p_rec.vrei_information3 = hr_api.g_varchar2) then
658 p_rec.vrei_information3 :=
659 pqp_vri_shd.g_old_rec.vrei_information3;
660 End If;
661 If (p_rec.vrei_information4 = hr_api.g_varchar2) then
662 p_rec.vrei_information4 :=
663 pqp_vri_shd.g_old_rec.vrei_information4;
664 End If;
665 If (p_rec.vrei_information5 = hr_api.g_varchar2) then
666 p_rec.vrei_information5 :=
667 pqp_vri_shd.g_old_rec.vrei_information5;
668 End If;
669 If (p_rec.vrei_information6 = hr_api.g_varchar2) then
670 p_rec.vrei_information6 :=
671 pqp_vri_shd.g_old_rec.vrei_information6;
672 End If;
673 If (p_rec.vrei_information7 = hr_api.g_varchar2) then
674 p_rec.vrei_information7 :=
675 pqp_vri_shd.g_old_rec.vrei_information7;
676 End If;
677 If (p_rec.vrei_information8 = hr_api.g_varchar2) then
678 p_rec.vrei_information8 :=
679 pqp_vri_shd.g_old_rec.vrei_information8;
680 End If;
681 If (p_rec.vrei_information9 = hr_api.g_varchar2) then
682 p_rec.vrei_information9 :=
683 pqp_vri_shd.g_old_rec.vrei_information9;
684 End If;
685 If (p_rec.vrei_information10 = hr_api.g_varchar2) then
686 p_rec.vrei_information10 :=
687 pqp_vri_shd.g_old_rec.vrei_information10;
688 End If;
689 If (p_rec.vrei_information11 = hr_api.g_varchar2) then
690 p_rec.vrei_information11 :=
691 pqp_vri_shd.g_old_rec.vrei_information11;
692 End If;
693 If (p_rec.vrei_information12 = hr_api.g_varchar2) then
694 p_rec.vrei_information12 :=
695 pqp_vri_shd.g_old_rec.vrei_information12;
696 End If;
697 If (p_rec.vrei_information13 = hr_api.g_varchar2) then
698 p_rec.vrei_information13 :=
699 pqp_vri_shd.g_old_rec.vrei_information13;
700 End If;
701 If (p_rec.vrei_information14 = hr_api.g_varchar2) then
702 p_rec.vrei_information14 :=
703 pqp_vri_shd.g_old_rec.vrei_information14;
704 End If;
705 If (p_rec.vrei_information15 = hr_api.g_varchar2) then
706 p_rec.vrei_information15 :=
707 pqp_vri_shd.g_old_rec.vrei_information15;
708 End If;
709 If (p_rec.vrei_information16 = hr_api.g_varchar2) then
710 p_rec.vrei_information16 :=
711 pqp_vri_shd.g_old_rec.vrei_information16;
712 End If;
713 If (p_rec.vrei_information17 = hr_api.g_varchar2) then
714 p_rec.vrei_information17 :=
715 pqp_vri_shd.g_old_rec.vrei_information17;
716 End If;
717 If (p_rec.vrei_information18 = hr_api.g_varchar2) then
718 p_rec.vrei_information18 :=
719 pqp_vri_shd.g_old_rec.vrei_information18;
720 End If;
721 If (p_rec.vrei_information19 = hr_api.g_varchar2) then
722 p_rec.vrei_information19 :=
723 pqp_vri_shd.g_old_rec.vrei_information19;
724 End If;
725 If (p_rec.vrei_information20 = hr_api.g_varchar2) then
726 p_rec.vrei_information20 :=
727 pqp_vri_shd.g_old_rec.vrei_information20;
728 End If;
729 If (p_rec.vrei_information21 = hr_api.g_varchar2) then
730 p_rec.vrei_information21 :=
731 pqp_vri_shd.g_old_rec.vrei_information21;
732 End If;
733 If (p_rec.vrei_information22 = hr_api.g_varchar2) then
734 p_rec.vrei_information22 :=
735 pqp_vri_shd.g_old_rec.vrei_information22;
736 End If;
737 If (p_rec.vrei_information23 = hr_api.g_varchar2) then
738 p_rec.vrei_information23 :=
739 pqp_vri_shd.g_old_rec.vrei_information23;
740 End If;
741 If (p_rec.vrei_information24 = hr_api.g_varchar2) then
742 p_rec.vrei_information24 :=
743 pqp_vri_shd.g_old_rec.vrei_information24;
744 End If;
745 If (p_rec.vrei_information25 = hr_api.g_varchar2) then
746 p_rec.vrei_information25 :=
747 pqp_vri_shd.g_old_rec.vrei_information25;
748 End If;
749 If (p_rec.vrei_information26 = hr_api.g_varchar2) then
750 p_rec.vrei_information26 :=
751 pqp_vri_shd.g_old_rec.vrei_information26;
752 End If;
753 If (p_rec.vrei_information27 = hr_api.g_varchar2) then
754 p_rec.vrei_information27 :=
755 pqp_vri_shd.g_old_rec.vrei_information27;
756 End If;
757 If (p_rec.vrei_information28 = hr_api.g_varchar2) then
758 p_rec.vrei_information28 :=
759 pqp_vri_shd.g_old_rec.vrei_information28;
760 End If;
761 If (p_rec.vrei_information29 = hr_api.g_varchar2) then
762 p_rec.vrei_information29 :=
763 pqp_vri_shd.g_old_rec.vrei_information29;
764 End If;
765 If (p_rec.vrei_information30 = hr_api.g_varchar2) then
766 p_rec.vrei_information30 :=
767 pqp_vri_shd.g_old_rec.vrei_information30;
768 End If;
769 If (p_rec.request_id = hr_api.g_number) then
770 p_rec.request_id :=
771 pqp_vri_shd.g_old_rec.request_id;
772 End If;
773 If (p_rec.program_application_id = hr_api.g_number) then
774 p_rec.program_application_id :=
775 pqp_vri_shd.g_old_rec.program_application_id;
776 End If;
777 If (p_rec.program_id = hr_api.g_number) then
778 p_rec.program_id :=
779 pqp_vri_shd.g_old_rec.program_id;
780 End If;
781 If (p_rec.program_update_date = hr_api.g_date) then
782 p_rec.program_update_date :=
783 pqp_vri_shd.g_old_rec.program_update_date;
784 End If;
785 --
786 End convert_defs;
787 --
788 -- ----------------------------------------------------------------------------
789 -- |---------------------------------< upd >----------------------------------|
790 -- ----------------------------------------------------------------------------
791 Procedure upd
792 (p_rec in out nocopy pqp_vri_shd.g_rec_type
793 ) is
794 --
795 l_proc varchar2(72) := g_package||'upd';
796 --
797 Begin
798 hr_utility.set_location('Entering:'||l_proc, 5);
799 --
800 -- We must lock the row which we need to update.
801 --
802 pqp_vri_shd.lck
803 (p_rec.veh_repos_extra_info_id
804 ,p_rec.object_version_number
805 );
806 --
807 -- 1. During an update system defaults are used to determine if
808 -- arguments have been defaulted or not. We must therefore
809 -- derive the full record structure values to be updated.
810 --
811 -- 2. Call the supporting update validate operations.
812 --
813 convert_defs(p_rec);
814 pqp_vri_bus.update_validate
815 (p_rec
816 );
817 --
818 -- Call to raise any errors on multi-message list
819 hr_multi_message.end_validation_set;
820 --
821 -- Call the supporting pre-update operation
822 --
823 pqp_vri_upd.pre_update(p_rec);
824 --
825 -- Update the row.
826 --
827 pqp_vri_upd.update_dml(p_rec);
828 --
829 -- Call the supporting post-update operation
830 --
831 pqp_vri_upd.post_update
832 (p_rec
833 );
834 --
835 -- Call to raise any errors on multi-message list
836 hr_multi_message.end_validation_set;
837 End upd;
838 --
839 -- ----------------------------------------------------------------------------
840 -- |---------------------------------< upd >----------------------------------|
841 -- ----------------------------------------------------------------------------
842 Procedure upd
843 (p_veh_repos_extra_info_id in number
844 ,p_object_version_number in out nocopy number
845 ,p_vehicle_repository_id in number default hr_api.g_number
846 ,p_information_type in varchar2 default hr_api.g_varchar2
847 ,p_vrei_attribute_category in varchar2 default hr_api.g_varchar2
848 ,p_vrei_attribute1 in varchar2 default hr_api.g_varchar2
849 ,p_vrei_attribute2 in varchar2 default hr_api.g_varchar2
850 ,p_vrei_attribute3 in varchar2 default hr_api.g_varchar2
851 ,p_vrei_attribute4 in varchar2 default hr_api.g_varchar2
852 ,p_vrei_attribute5 in varchar2 default hr_api.g_varchar2
853 ,p_vrei_attribute6 in varchar2 default hr_api.g_varchar2
854 ,p_vrei_attribute7 in varchar2 default hr_api.g_varchar2
855 ,p_vrei_attribute8 in varchar2 default hr_api.g_varchar2
856 ,p_vrei_attribute9 in varchar2 default hr_api.g_varchar2
857 ,p_vrei_attribute10 in varchar2 default hr_api.g_varchar2
858 ,p_vrei_attribute11 in varchar2 default hr_api.g_varchar2
859 ,p_vrei_attribute12 in varchar2 default hr_api.g_varchar2
860 ,p_vrei_attribute13 in varchar2 default hr_api.g_varchar2
861 ,p_vrei_attribute14 in varchar2 default hr_api.g_varchar2
862 ,p_vrei_attribute15 in varchar2 default hr_api.g_varchar2
863 ,p_vrei_attribute16 in varchar2 default hr_api.g_varchar2
864 ,p_vrei_attribute17 in varchar2 default hr_api.g_varchar2
865 ,p_vrei_attribute18 in varchar2 default hr_api.g_varchar2
866 ,p_vrei_attribute19 in varchar2 default hr_api.g_varchar2
867 ,p_vrei_attribute20 in varchar2 default hr_api.g_varchar2
868 ,p_vrei_information_category in varchar2 default hr_api.g_varchar2
869 ,p_vrei_information1 in varchar2 default hr_api.g_varchar2
870 ,p_vrei_information2 in varchar2 default hr_api.g_varchar2
871 ,p_vrei_information3 in varchar2 default hr_api.g_varchar2
872 ,p_vrei_information4 in varchar2 default hr_api.g_varchar2
873 ,p_vrei_information5 in varchar2 default hr_api.g_varchar2
874 ,p_vrei_information6 in varchar2 default hr_api.g_varchar2
875 ,p_vrei_information7 in varchar2 default hr_api.g_varchar2
876 ,p_vrei_information8 in varchar2 default hr_api.g_varchar2
877 ,p_vrei_information9 in varchar2 default hr_api.g_varchar2
878 ,p_vrei_information10 in varchar2 default hr_api.g_varchar2
879 ,p_vrei_information11 in varchar2 default hr_api.g_varchar2
880 ,p_vrei_information12 in varchar2 default hr_api.g_varchar2
881 ,p_vrei_information13 in varchar2 default hr_api.g_varchar2
882 ,p_vrei_information14 in varchar2 default hr_api.g_varchar2
883 ,p_vrei_information15 in varchar2 default hr_api.g_varchar2
884 ,p_vrei_information16 in varchar2 default hr_api.g_varchar2
885 ,p_vrei_information17 in varchar2 default hr_api.g_varchar2
886 ,p_vrei_information18 in varchar2 default hr_api.g_varchar2
887 ,p_vrei_information19 in varchar2 default hr_api.g_varchar2
888 ,p_vrei_information20 in varchar2 default hr_api.g_varchar2
889 ,p_vrei_information21 in varchar2 default hr_api.g_varchar2
890 ,p_vrei_information22 in varchar2 default hr_api.g_varchar2
891 ,p_vrei_information23 in varchar2 default hr_api.g_varchar2
892 ,p_vrei_information24 in varchar2 default hr_api.g_varchar2
893 ,p_vrei_information25 in varchar2 default hr_api.g_varchar2
894 ,p_vrei_information26 in varchar2 default hr_api.g_varchar2
895 ,p_vrei_information27 in varchar2 default hr_api.g_varchar2
896 ,p_vrei_information28 in varchar2 default hr_api.g_varchar2
897 ,p_vrei_information29 in varchar2 default hr_api.g_varchar2
898 ,p_vrei_information30 in varchar2 default hr_api.g_varchar2
899 ,p_request_id in number default hr_api.g_number
900 ,p_program_application_id in number default hr_api.g_number
901 ,p_program_id in number default hr_api.g_number
902 ,p_program_update_date in date default hr_api.g_date
903 ) is
904 --
905 l_rec pqp_vri_shd.g_rec_type;
906 l_proc varchar2(72) := g_package||'upd';
907 --
908 Begin
909 hr_utility.set_location('Entering:'||l_proc, 5);
910 --
911 -- Call conversion function to turn arguments into the
912 -- l_rec structure.
913 --
914 l_rec :=
915 pqp_vri_shd.convert_args
916 (p_veh_repos_extra_info_id
917 ,p_vehicle_repository_id
918 ,p_information_type
919 ,p_vrei_attribute_category
920 ,p_vrei_attribute1
921 ,p_vrei_attribute2
922 ,p_vrei_attribute3
923 ,p_vrei_attribute4
924 ,p_vrei_attribute5
925 ,p_vrei_attribute6
926 ,p_vrei_attribute7
927 ,p_vrei_attribute8
928 ,p_vrei_attribute9
929 ,p_vrei_attribute10
930 ,p_vrei_attribute11
931 ,p_vrei_attribute12
932 ,p_vrei_attribute13
933 ,p_vrei_attribute14
934 ,p_vrei_attribute15
935 ,p_vrei_attribute16
936 ,p_vrei_attribute17
937 ,p_vrei_attribute18
938 ,p_vrei_attribute19
939 ,p_vrei_attribute20
940 ,p_vrei_information_category
941 ,p_vrei_information1
942 ,p_vrei_information2
943 ,p_vrei_information3
944 ,p_vrei_information4
945 ,p_vrei_information5
946 ,p_vrei_information6
947 ,p_vrei_information7
948 ,p_vrei_information8
949 ,p_vrei_information9
950 ,p_vrei_information10
951 ,p_vrei_information11
952 ,p_vrei_information12
953 ,p_vrei_information13
954 ,p_vrei_information14
955 ,p_vrei_information15
956 ,p_vrei_information16
957 ,p_vrei_information17
958 ,p_vrei_information18
959 ,p_vrei_information19
960 ,p_vrei_information20
961 ,p_vrei_information21
962 ,p_vrei_information22
963 ,p_vrei_information23
964 ,p_vrei_information24
965 ,p_vrei_information25
966 ,p_vrei_information26
967 ,p_vrei_information27
968 ,p_vrei_information28
969 ,p_vrei_information29
970 ,p_vrei_information30
971 ,p_object_version_number
972 ,p_request_id
973 ,p_program_application_id
974 ,p_program_id
975 ,p_program_update_date
976 );
977 --
978 -- Having converted the arguments into the
979 -- plsql record structure we call the corresponding record
980 -- business process.
981 --
982 pqp_vri_upd.upd
983 (l_rec
984 );
985 p_object_version_number := l_rec.object_version_number;
986 --
987 hr_utility.set_location(' Leaving:'||l_proc, 10);
988 End upd;
989 --
990 end pqp_vri_upd;