[Home] [Help]
PACKAGE BODY: APPS.PQP_VRI_INS
Source
1 Package Body pqp_vri_ins 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_ins.'; -- Global package name
9 --
10 -- The following global variables are only to be used by
11 -- the set_base_key_value and pre_insert procedures.
12 --
13 g_veh_repos_extra_info_id_i number default null;
14 --
15 -- ----------------------------------------------------------------------------
16 -- |------------------------< set_base_key_value >----------------------------|
17 -- ----------------------------------------------------------------------------
18 procedure set_base_key_value
19 (p_veh_repos_extra_info_id in number) is
20 --
21 l_proc varchar2(72) := g_package||'set_base_key_value';
22 --
23 Begin
24 hr_utility.set_location('Entering:'||l_proc, 10);
25 --
26 pqp_vri_ins.g_veh_repos_extra_info_id_i := p_veh_repos_extra_info_id;
27 --
28 hr_utility.set_location(' Leaving:'||l_proc, 20);
29 End set_base_key_value;
30 --
31 --
32 -- ----------------------------------------------------------------------------
33 -- |------------------------------< insert_dml >------------------------------|
34 -- ----------------------------------------------------------------------------
35 -- {Start Of Comments}
36 --
37 -- Description:
38 -- This procedure controls the actual dml insert logic. The processing of
39 -- this procedure are as follows:
40 -- 1) Initialise the object_version_number to 1 if the object_version_number
41 -- is defined as an attribute for this entity.
42 -- 2) To set and unset the g_api_dml status as required (as we are about to
43 -- perform dml).
44 -- 3) To insert the row into the schema.
45 -- 4) To trap any constraint violations that may have occurred.
46 -- 5) To raise any other errors.
47 --
48 -- Prerequisites:
49 -- This is an internal private procedure which must be called from the ins
50 -- procedure and must have all mandatory attributes set (except the
51 -- object_version_number which is initialised within this procedure).
52 --
53 -- In Parameters:
54 -- A Pl/Sql record structre.
55 --
56 -- Post Success:
57 -- The specified row will be inserted into the schema.
58 --
59 -- Post Failure:
60 -- On the insert dml failure it is important to note that we always reset the
61 -- g_api_dml status to false.
62 -- If a check, unique or parent integrity constraint violation is raised the
63 -- constraint_error procedure will be called.
64 -- If any other error is reported, the error will be raised after the
65 -- g_api_dml status is reset.
66 --
67 -- Developer Implementation Notes:
68 -- None.
69 --
70 -- Access Status:
71 -- Internal Row Handler Use Only.
72 --
73 -- {End Of Comments}
74 -- ----------------------------------------------------------------------------
75 Procedure insert_dml
76 (p_rec in out nocopy pqp_vri_shd.g_rec_type
77 ) is
78 --
79 l_proc varchar2(72) := g_package||'insert_dml';
80 --
81 Begin
82 hr_utility.set_location('Entering:'||l_proc, 5);
83 p_rec.object_version_number := 1; -- Initialise the object version
84 --
85 pqp_vri_shd.g_api_dml := true; -- Set the api dml status
86 --
87 -- Insert the row into: pqp_veh_repos_extra_info
88 --
89 insert into pqp_veh_repos_extra_info
90 (veh_repos_extra_info_id
91 ,vehicle_repository_id
92 ,information_type
93 ,vrei_attribute_category
94 ,vrei_attribute1
95 ,vrei_attribute2
96 ,vrei_attribute3
97 ,vrei_attribute4
98 ,vrei_attribute5
99 ,vrei_attribute6
100 ,vrei_attribute7
101 ,vrei_attribute8
102 ,vrei_attribute9
103 ,vrei_attribute10
104 ,vrei_attribute11
105 ,vrei_attribute12
106 ,vrei_attribute13
107 ,vrei_attribute14
108 ,vrei_attribute15
109 ,vrei_attribute16
110 ,vrei_attribute17
111 ,vrei_attribute18
112 ,vrei_attribute19
113 ,vrei_attribute20
114 ,vrei_information_category
115 ,vrei_information1
116 ,vrei_information2
117 ,vrei_information3
118 ,vrei_information4
119 ,vrei_information5
120 ,vrei_information6
121 ,vrei_information7
122 ,vrei_information8
123 ,vrei_information9
124 ,vrei_information10
125 ,vrei_information11
126 ,vrei_information12
127 ,vrei_information13
128 ,vrei_information14
129 ,vrei_information15
130 ,vrei_information16
131 ,vrei_information17
132 ,vrei_information18
133 ,vrei_information19
134 ,vrei_information20
135 ,vrei_information21
136 ,vrei_information22
137 ,vrei_information23
138 ,vrei_information24
139 ,vrei_information25
140 ,vrei_information26
141 ,vrei_information27
142 ,vrei_information28
143 ,vrei_information29
144 ,vrei_information30
145 ,object_version_number
146 ,request_id
147 ,program_application_id
148 ,program_id
149 ,program_update_date
150 )
151 Values
152 (p_rec.veh_repos_extra_info_id
153 ,p_rec.vehicle_repository_id
154 ,p_rec.information_type
155 ,p_rec.vrei_attribute_category
156 ,p_rec.vrei_attribute1
157 ,p_rec.vrei_attribute2
158 ,p_rec.vrei_attribute3
159 ,p_rec.vrei_attribute4
160 ,p_rec.vrei_attribute5
161 ,p_rec.vrei_attribute6
162 ,p_rec.vrei_attribute7
163 ,p_rec.vrei_attribute8
164 ,p_rec.vrei_attribute9
165 ,p_rec.vrei_attribute10
166 ,p_rec.vrei_attribute11
167 ,p_rec.vrei_attribute12
168 ,p_rec.vrei_attribute13
169 ,p_rec.vrei_attribute14
170 ,p_rec.vrei_attribute15
171 ,p_rec.vrei_attribute16
172 ,p_rec.vrei_attribute17
173 ,p_rec.vrei_attribute18
174 ,p_rec.vrei_attribute19
175 ,p_rec.vrei_attribute20
176 ,p_rec.vrei_information_category
177 ,p_rec.vrei_information1
178 ,p_rec.vrei_information2
179 ,p_rec.vrei_information3
180 ,p_rec.vrei_information4
181 ,p_rec.vrei_information5
182 ,p_rec.vrei_information6
183 ,p_rec.vrei_information7
184 ,p_rec.vrei_information8
185 ,p_rec.vrei_information9
186 ,p_rec.vrei_information10
187 ,p_rec.vrei_information11
188 ,p_rec.vrei_information12
189 ,p_rec.vrei_information13
190 ,p_rec.vrei_information14
191 ,p_rec.vrei_information15
192 ,p_rec.vrei_information16
193 ,p_rec.vrei_information17
194 ,p_rec.vrei_information18
195 ,p_rec.vrei_information19
196 ,p_rec.vrei_information20
197 ,p_rec.vrei_information21
198 ,p_rec.vrei_information22
199 ,p_rec.vrei_information23
200 ,p_rec.vrei_information24
201 ,p_rec.vrei_information25
202 ,p_rec.vrei_information26
203 ,p_rec.vrei_information27
204 ,p_rec.vrei_information28
205 ,p_rec.vrei_information29
206 ,p_rec.vrei_information30
207 ,p_rec.object_version_number
208 ,p_rec.request_id
209 ,p_rec.program_application_id
210 ,p_rec.program_id
211 ,p_rec.program_update_date
212 );
213 --
214 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
215 --
216 hr_utility.set_location(' Leaving:'||l_proc, 10);
217 Exception
218 When hr_api.check_integrity_violated Then
219 -- A check constraint has been violated
220 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
221 pqp_vri_shd.constraint_error
222 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
223 When hr_api.parent_integrity_violated Then
224 -- Parent integrity has been violated
225 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
226 pqp_vri_shd.constraint_error
227 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
228 When hr_api.unique_integrity_violated Then
229 -- Unique integrity has been violated
230 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
231 pqp_vri_shd.constraint_error
232 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
233 When Others Then
234 pqp_vri_shd.g_api_dml := false; -- Unset the api dml status
235 Raise;
236 End insert_dml;
237 --
238 -- ----------------------------------------------------------------------------
239 -- |------------------------------< pre_insert >------------------------------|
240 -- ----------------------------------------------------------------------------
241 -- {Start Of Comments}
242 --
243 -- Description:
244 -- This private procedure contains any processing which is required before
245 -- the insert dml. Presently, if the entity has a corresponding primary
246 -- key which is maintained by an associating sequence, the primary key for
247 -- the entity will be populated with the next sequence value in
248 -- preparation for the insert dml.
249 --
250 -- Prerequisites:
251 -- This is an internal procedure which is called from the ins procedure.
252 --
253 -- In Parameters:
254 -- A Pl/Sql record structure.
255 --
256 -- Post Success:
257 -- Processing continues.
258 --
259 -- Post Failure:
260 -- If an error has occurred, an error message and exception will be raised
261 -- but not handled.
262 --
263 -- Developer Implementation Notes:
264 -- Any pre-processing required before the insert dml is issued should be
265 -- coded within this procedure. As stated above, a good example is the
266 -- generation of a primary key number via a corresponding sequence.
267 -- It is important to note that any 3rd party maintenance should be reviewed
268 -- before placing in this procedure.
269 --
270 -- Access Status:
271 -- Internal Row Handler Use Only.
272 --
273 -- {End Of Comments}
274 -- ----------------------------------------------------------------------------
275 Procedure pre_insert
276 (p_rec in out nocopy pqp_vri_shd.g_rec_type
277 ) is
278 --
279 Cursor C_Sel1 is select pqp_veh_repos_extra_info_s.nextval from sys.dual;
280 --
281 Cursor C_Sel2 is
282 Select null
283 from pqp_veh_repos_extra_info
284 where veh_repos_extra_info_id =
285 pqp_vri_ins.g_veh_repos_extra_info_id_i;
286 --
287 l_proc varchar2(72) := g_package||'pre_insert';
288 l_exists varchar2(1);
289 --
290 Begin
291 hr_utility.set_location('Entering:'||l_proc, 5);
292 --
293 If (pqp_vri_ins.g_veh_repos_extra_info_id_i is not null) Then
294 --
295 -- Verify registered primary key values not already in use
296 --
297 Open C_Sel2;
298 Fetch C_Sel2 into l_exists;
299 If C_Sel2%found Then
300 Close C_Sel2;
301 --
302 -- The primary key values are already in use.
303 --
304 fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
305 fnd_message.set_token('TABLE_NAME','pqp_veh_repos_extra_info');
306 fnd_message.raise_error;
307 End If;
308 Close C_Sel2;
309 --
310 -- Use registered key values and clear globals
311 --
312 p_rec.veh_repos_extra_info_id :=
313 pqp_vri_ins.g_veh_repos_extra_info_id_i;
314 pqp_vri_ins.g_veh_repos_extra_info_id_i := null;
315 Else
316 --
317 -- No registerd key values, so select the next sequence number
318 --
319 --
320 -- Select the next sequence number
321 --
322 Open C_Sel1;
323 Fetch C_Sel1 Into p_rec.veh_repos_extra_info_id;
324 Close C_Sel1;
325 End If;
326 --
327 hr_utility.set_location(' Leaving:'||l_proc, 10);
328 End pre_insert;
329 --
330 -- ----------------------------------------------------------------------------
331 -- |-----------------------------< post_insert >------------------------------|
332 -- ----------------------------------------------------------------------------
333 -- {Start Of Comments}
334 --
335 -- Description:
336 -- This private procedure contains any processing which is required after
337 -- the insert dml.
338 --
339 -- Prerequisites:
340 -- This is an internal procedure which is called from the ins procedure.
341 --
342 -- In Parameters:
343 -- A Pl/Sql record structre.
344 --
345 -- Post Success:
346 -- Processing continues.
347 --
348 -- Post Failure:
349 -- If an error has occurred, an error message and exception will be raised
350 -- but not handled.
351 --
352 -- Developer Implementation Notes:
353 -- Any post-processing required after the insert dml is issued should be
354 -- coded within this procedure. It is important to note that any 3rd party
355 -- maintenance should be reviewed before placing in this procedure.
356 --
357 -- Access Status:
358 -- Internal Row Handler Use Only.
359 --
360 -- {End Of Comments}
364 ) is
361 -- ----------------------------------------------------------------------------
362 Procedure post_insert
363 (p_rec in pqp_vri_shd.g_rec_type
365 --
366 l_proc varchar2(72) := g_package||'post_insert';
367 --
368 Begin
369 hr_utility.set_location('Entering:'||l_proc, 5);
370 begin
371 --
372 pqp_vri_rki.after_insert
373 (p_veh_repos_extra_info_id
374 => p_rec.veh_repos_extra_info_id
375 ,p_vehicle_repository_id
376 => p_rec.vehicle_repository_id
377 ,p_information_type
378 => p_rec.information_type
379 ,p_vrei_attribute_category
380 => p_rec.vrei_attribute_category
381 ,p_vrei_attribute1
382 => p_rec.vrei_attribute1
383 ,p_vrei_attribute2
384 => p_rec.vrei_attribute2
385 ,p_vrei_attribute3
386 => p_rec.vrei_attribute3
387 ,p_vrei_attribute4
388 => p_rec.vrei_attribute4
389 ,p_vrei_attribute5
390 => p_rec.vrei_attribute5
391 ,p_vrei_attribute6
392 => p_rec.vrei_attribute6
393 ,p_vrei_attribute7
394 => p_rec.vrei_attribute7
395 ,p_vrei_attribute8
396 => p_rec.vrei_attribute8
397 ,p_vrei_attribute9
398 => p_rec.vrei_attribute9
399 ,p_vrei_attribute10
400 => p_rec.vrei_attribute10
401 ,p_vrei_attribute11
402 => p_rec.vrei_attribute11
403 ,p_vrei_attribute12
404 => p_rec.vrei_attribute12
405 ,p_vrei_attribute13
406 => p_rec.vrei_attribute13
407 ,p_vrei_attribute14
408 => p_rec.vrei_attribute14
409 ,p_vrei_attribute15
410 => p_rec.vrei_attribute15
411 ,p_vrei_attribute16
412 => p_rec.vrei_attribute16
413 ,p_vrei_attribute17
414 => p_rec.vrei_attribute17
415 ,p_vrei_attribute18
416 => p_rec.vrei_attribute18
417 ,p_vrei_attribute19
418 => p_rec.vrei_attribute19
419 ,p_vrei_attribute20
420 => p_rec.vrei_attribute20
421 ,p_vrei_information_category
422 => p_rec.vrei_information_category
423 ,p_vrei_information1
424 => p_rec.vrei_information1
425 ,p_vrei_information2
426 => p_rec.vrei_information2
427 ,p_vrei_information3
428 => p_rec.vrei_information3
429 ,p_vrei_information4
430 => p_rec.vrei_information4
431 ,p_vrei_information5
432 => p_rec.vrei_information5
433 ,p_vrei_information6
434 => p_rec.vrei_information6
435 ,p_vrei_information7
436 => p_rec.vrei_information7
437 ,p_vrei_information8
438 => p_rec.vrei_information8
439 ,p_vrei_information9
440 => p_rec.vrei_information9
441 ,p_vrei_information10
442 => p_rec.vrei_information10
443 ,p_vrei_information11
444 => p_rec.vrei_information11
445 ,p_vrei_information12
446 => p_rec.vrei_information12
447 ,p_vrei_information13
448 => p_rec.vrei_information13
449 ,p_vrei_information14
450 => p_rec.vrei_information14
451 ,p_vrei_information15
452 => p_rec.vrei_information15
453 ,p_vrei_information16
454 => p_rec.vrei_information16
455 ,p_vrei_information17
456 => p_rec.vrei_information17
457 ,p_vrei_information18
458 => p_rec.vrei_information18
459 ,p_vrei_information19
460 => p_rec.vrei_information19
461 ,p_vrei_information20
462 => p_rec.vrei_information20
463 ,p_vrei_information21
464 => p_rec.vrei_information21
465 ,p_vrei_information22
466 => p_rec.vrei_information22
467 ,p_vrei_information23
468 => p_rec.vrei_information23
469 ,p_vrei_information24
470 => p_rec.vrei_information24
471 ,p_vrei_information25
472 => p_rec.vrei_information25
473 ,p_vrei_information26
474 => p_rec.vrei_information26
475 ,p_vrei_information27
476 => p_rec.vrei_information27
477 ,p_vrei_information28
478 => p_rec.vrei_information28
479 ,p_vrei_information29
480 => p_rec.vrei_information29
481 ,p_vrei_information30
482 => p_rec.vrei_information30
483 ,p_object_version_number
484 => p_rec.object_version_number
485 ,p_request_id
486 => p_rec.request_id
487 ,p_program_application_id
488 => p_rec.program_application_id
489 ,p_program_id
490 => p_rec.program_id
491 ,p_program_update_date
492 => p_rec.program_update_date
493 );
494 --
495 exception
496 --
497 when hr_api.cannot_find_prog_unit then
498 --
499 hr_api.cannot_find_prog_unit_error
500 (p_module_name => 'PQP_VEH_REPOS_EXTRA_INFO'
501 ,p_hook_type => 'AI');
502 --
503 end;
504 --
505 hr_utility.set_location(' Leaving:'||l_proc, 10);
506 End post_insert;
507 --
508 -- ----------------------------------------------------------------------------
509 -- |---------------------------------< ins >----------------------------------|
510 -- ----------------------------------------------------------------------------
511 Procedure ins
512 (p_rec in out nocopy pqp_vri_shd.g_rec_type
513 ) is
514 --
515 l_proc varchar2(72) := g_package||'ins';
516 --
517 Begin
518 hr_utility.set_location('Entering:'||l_proc, 5);
519 --
520 -- Call the supporting insert validate operations
521 --
522 pqp_vri_bus.insert_validate
523 (p_rec
524 );
525 --
526 -- Call to raise any errors on multi-message list
527 hr_multi_message.end_validation_set;
528 --
529 -- Call the supporting pre-insert operation
530 --
531 pqp_vri_ins.pre_insert(p_rec);
532 --
533 -- Insert the row
534 --
535 pqp_vri_ins.insert_dml(p_rec);
536 --
537 -- Call the supporting post-insert operation
538 --
539 pqp_vri_ins.post_insert
540 (p_rec
541 );
542 --
543 -- Call to raise any errors on multi-message list
544 hr_multi_message.end_validation_set;
545 --
546 hr_utility.set_location('Leaving:'||l_proc, 20);
547 end ins;
548 --
549 -- ----------------------------------------------------------------------------
550 -- |---------------------------------< ins >----------------------------------|
551 -- ----------------------------------------------------------------------------
552 Procedure ins
553 (p_vehicle_repository_id in number
554 ,p_information_type in varchar2
555 ,p_vrei_attribute_category in varchar2 default null
556 ,p_vrei_attribute1 in varchar2 default null
557 ,p_vrei_attribute2 in varchar2 default null
558 ,p_vrei_attribute3 in varchar2 default null
559 ,p_vrei_attribute4 in varchar2 default null
560 ,p_vrei_attribute5 in varchar2 default null
561 ,p_vrei_attribute6 in varchar2 default null
562 ,p_vrei_attribute7 in varchar2 default null
563 ,p_vrei_attribute8 in varchar2 default null
564 ,p_vrei_attribute9 in varchar2 default null
565 ,p_vrei_attribute10 in varchar2 default null
566 ,p_vrei_attribute11 in varchar2 default null
567 ,p_vrei_attribute12 in varchar2 default null
568 ,p_vrei_attribute13 in varchar2 default null
569 ,p_vrei_attribute14 in varchar2 default null
570 ,p_vrei_attribute15 in varchar2 default null
571 ,p_vrei_attribute16 in varchar2 default null
572 ,p_vrei_attribute17 in varchar2 default null
573 ,p_vrei_attribute18 in varchar2 default null
574 ,p_vrei_attribute19 in varchar2 default null
575 ,p_vrei_attribute20 in varchar2 default null
576 ,p_vrei_information_category in varchar2 default null
577 ,p_vrei_information1 in varchar2 default null
578 ,p_vrei_information2 in varchar2 default null
579 ,p_vrei_information3 in varchar2 default null
580 ,p_vrei_information4 in varchar2 default null
581 ,p_vrei_information5 in varchar2 default null
582 ,p_vrei_information6 in varchar2 default null
583 ,p_vrei_information7 in varchar2 default null
584 ,p_vrei_information8 in varchar2 default null
585 ,p_vrei_information9 in varchar2 default null
586 ,p_vrei_information10 in varchar2 default null
587 ,p_vrei_information11 in varchar2 default null
588 ,p_vrei_information12 in varchar2 default null
589 ,p_vrei_information13 in varchar2 default null
590 ,p_vrei_information14 in varchar2 default null
591 ,p_vrei_information15 in varchar2 default null
592 ,p_vrei_information16 in varchar2 default null
593 ,p_vrei_information17 in varchar2 default null
594 ,p_vrei_information18 in varchar2 default null
595 ,p_vrei_information19 in varchar2 default null
596 ,p_vrei_information20 in varchar2 default null
597 ,p_vrei_information21 in varchar2 default null
598 ,p_vrei_information22 in varchar2 default null
599 ,p_vrei_information23 in varchar2 default null
600 ,p_vrei_information24 in varchar2 default null
601 ,p_vrei_information25 in varchar2 default null
602 ,p_vrei_information26 in varchar2 default null
603 ,p_vrei_information27 in varchar2 default null
604 ,p_vrei_information28 in varchar2 default null
605 ,p_vrei_information29 in varchar2 default null
606 ,p_vrei_information30 in varchar2 default null
607 ,p_request_id in number default null
608 ,p_program_application_id in number default null
609 ,p_program_id in number default null
610 ,p_program_update_date in date default null
611 ,p_veh_repos_extra_info_id out nocopy number
612 ,p_object_version_number out nocopy number
613 ) is
614 --
615 l_rec pqp_vri_shd.g_rec_type;
616 l_proc varchar2(72) := g_package||'ins';
617 --
618 Begin
619 hr_utility.set_location('Entering:'||l_proc, 5);
620 --
621 -- Call conversion function to turn arguments into the
622 -- p_rec structure.
623 --
624 l_rec :=
625 pqp_vri_shd.convert_args
626 (null
627 ,p_vehicle_repository_id
628 ,p_information_type
629 ,p_vrei_attribute_category
630 ,p_vrei_attribute1
631 ,p_vrei_attribute2
632 ,p_vrei_attribute3
633 ,p_vrei_attribute4
634 ,p_vrei_attribute5
635 ,p_vrei_attribute6
636 ,p_vrei_attribute7
637 ,p_vrei_attribute8
638 ,p_vrei_attribute9
639 ,p_vrei_attribute10
640 ,p_vrei_attribute11
641 ,p_vrei_attribute12
642 ,p_vrei_attribute13
643 ,p_vrei_attribute14
644 ,p_vrei_attribute15
645 ,p_vrei_attribute16
646 ,p_vrei_attribute17
647 ,p_vrei_attribute18
648 ,p_vrei_attribute19
649 ,p_vrei_attribute20
650 ,p_vrei_information_category
651 ,p_vrei_information1
652 ,p_vrei_information2
653 ,p_vrei_information3
654 ,p_vrei_information4
655 ,p_vrei_information5
656 ,p_vrei_information6
657 ,p_vrei_information7
658 ,p_vrei_information8
659 ,p_vrei_information9
660 ,p_vrei_information10
661 ,p_vrei_information11
662 ,p_vrei_information12
663 ,p_vrei_information13
664 ,p_vrei_information14
665 ,p_vrei_information15
666 ,p_vrei_information16
667 ,p_vrei_information17
668 ,p_vrei_information18
669 ,p_vrei_information19
670 ,p_vrei_information20
671 ,p_vrei_information21
672 ,p_vrei_information22
673 ,p_vrei_information23
674 ,p_vrei_information24
675 ,p_vrei_information25
676 ,p_vrei_information26
677 ,p_vrei_information27
678 ,p_vrei_information28
679 ,p_vrei_information29
680 ,p_vrei_information30
681 ,null
682 ,p_request_id
683 ,p_program_application_id
684 ,p_program_id
685 ,p_program_update_date
686 );
687 --
688 -- Having converted the arguments into the pqp_vri_rec
689 -- plsql record structure we call the corresponding record business process.
690 --
691 pqp_vri_ins.ins
692 (l_rec
693 );
694 --
695 -- As the primary key argument(s)
696 -- are specified as an OUT's we must set these values.
697 --
698 p_veh_repos_extra_info_id := l_rec.veh_repos_extra_info_id;
699 p_object_version_number := l_rec.object_version_number;
700 --
701 hr_utility.set_location(' Leaving:'||l_proc, 10);
702 End ins;
703 --
704 end pqp_vri_ins;