[Home] [Help]
PACKAGE BODY: APPS.PAY_PRF_INS
Source
1 Package Body pay_prf_ins as
2 /* $Header: pyprfrhi.pkb 120.0 2005/05/29 07:49 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_prf_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_range_table_id_i number default null;
14 --
15 -- ----------------------------------------------------------------------------
16 -- |------------------------< set_base_key_value >----------------------------|
17 -- ----------------------------------------------------------------------------
18 procedure set_base_key_value
19 (p_range_table_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 pay_prf_ins.g_range_table_id_i := p_range_table_id;
27 --
28 hr_utility.set_location(' Leaving:'||l_proc, 20);
29 End set_base_key_value;
30 --
31 --
32 -- ----------------------------------------------------------------------------
33 -- |-----------------------< create_app_ownerships >--------------------------|
34 -- ----------------------------------------------------------------------------
35 --
36 -- Description:
37 -- This procedure inserts a row into the HR_APPLICATION_OWNERSHIPS table
38 -- when the row handler is called in the appropriate mode.
39 --
40 -- ----------------------------------------------------------------------------
41 PROCEDURE create_app_ownerships(p_pk_column IN varchar2
42 ,p_pk_value IN varchar2) IS
43 --
44 CURSOR csr_definition IS
45 SELECT product_short_name
46 FROM hr_owner_definitions
47 WHERE session_id = hr_startup_data_api_support.g_session_id;
48 --
49 BEGIN
50 --
51 IF (hr_startup_data_api_support.return_startup_mode IN
52 ('STARTUP','GENERIC')) THEN
53 --
54 FOR c1 IN csr_definition LOOP
55 --
56 INSERT INTO hr_application_ownerships
57 (key_name
58 ,key_value
59 ,product_name
60 )
61 VALUES
62 (p_pk_column
63 ,fnd_number.number_to_canonical(p_pk_value)
64 ,c1.product_short_name
65 );
66 END LOOP;
67 END IF;
68 END create_app_ownerships;
69 --
70 -- ----------------------------------------------------------------------------
71 -- |-----------------------< create_app_ownerships >--------------------------|
72 -- ----------------------------------------------------------------------------
73 PROCEDURE create_app_ownerships(p_pk_column IN varchar2
74 ,p_pk_value IN number) IS
75 --
76 BEGIN
77 create_app_ownerships(p_pk_column, to_char(p_pk_value));
78 END create_app_ownerships;
79 --
80 -- ----------------------------------------------------------------------------
81 -- |------------------------------< insert_dml >------------------------------|
82 -- ----------------------------------------------------------------------------
83 -- {Start Of Comments}
84 --
85 -- Description:
86 -- This procedure controls the actual dml insert logic. The processing of
87 -- this procedure are as follows:
88 -- 1) Initialise the object_version_number to 1 if the object_version_number
89 -- is defined as an attribute for this entity.
90 -- 2) To set and unset the g_api_dml status as required (as we are about to
91 -- perform dml).
92 -- 3) To insert the row into the schema.
93 -- 4) To trap any constraint violations that may have occurred.
94 -- 5) To raise any other errors.
95 --
96 -- Prerequisites:
97 -- This is an internal private procedure which must be called from the ins
98 -- procedure and must have all mandatory attributes set (except the
99 -- object_version_number which is initialised within this procedure).
100 --
101 -- In Parameters:
102 -- A Pl/Sql record structre.
103 --
104 -- Post Success:
105 -- The specified row will be inserted into the schema.
106 --
107 -- Post Failure:
108 -- On the insert dml failure it is important to note that we always reset the
109 -- g_api_dml status to false.
110 -- If a check, unique or parent integrity constraint violation is raised the
111 -- constraint_error procedure will be called.
112 -- If any other error is reported, the error will be raised after the
113 -- g_api_dml status is reset.
114 --
115 -- Developer Implementation Notes:
116 -- None.
117 --
118 -- Access Status:
119 -- Internal Row Handler Use Only.
120 --
121 -- {End Of Comments}
122 -- ----------------------------------------------------------------------------
123 Procedure insert_dml
124 (p_rec in out nocopy pay_prf_shd.g_rec_type
125 ) is
126 --
127 l_proc varchar2(72) := g_package||'insert_dml';
128 --
129 Begin
130 hr_utility.set_location('Entering:'||l_proc, 5);
131 p_rec.object_version_number := 1; -- Initialise the object version
132 --
133 --
134 --
135 -- Insert the row into: pay_range_tables_f
136 --
137 insert into pay_range_tables_f
138 (range_table_id
139 ,effective_start_date
140 ,effective_end_date
141 ,range_table_number
142 ,row_value_uom
143 ,period_frequency
144 ,earnings_type
145 ,business_group_id
146 ,legislation_code
147 ,last_updated_login
148 ,created_date
149 ,object_version_number
150 ,attribute_category
151 ,attribute1
152 ,attribute2
153 ,attribute3
154 ,attribute4
155 ,attribute5
156 ,attribute6
157 ,attribute7
158 ,attribute8
159 ,attribute9
160 ,attribute10
161 ,attribute11
162 ,attribute12
163 ,attribute13
164 ,attribute14
165 ,attribute15
166 ,attribute16
167 ,attribute17
168 ,attribute18
169 ,attribute19
170 ,attribute20
171 ,attribute21
172 ,attribute22
173 ,attribute23
174 ,attribute24
175 ,attribute25
176 ,attribute26
177 ,attribute27
178 ,attribute28
179 ,attribute29
180 ,attribute30
181 ,ran_information_category
182 ,ran_information1
183 ,ran_information2
184 ,ran_information3
185 ,ran_information4
186 ,ran_information5
187 ,ran_information6
188 ,ran_information7
189 ,ran_information8
190 ,ran_information9
191 ,ran_information10
192 ,ran_information11
193 ,ran_information12
194 ,ran_information13
195 ,ran_information14
196 ,ran_information15
197 ,ran_information16
198 ,ran_information17
199 ,ran_information18
200 ,ran_information19
201 ,ran_information20
202 ,ran_information21
203 ,ran_information22
204 ,ran_information23
205 ,ran_information24
206 ,ran_information25
207 ,ran_information26
208 ,ran_information27
209 ,ran_information28
210 ,ran_information29
211 ,ran_information30
212 )
213 Values
214 (p_rec.range_table_id
215 ,p_rec.effective_start_date
216 ,p_rec.effective_end_date
217 ,p_rec.range_table_number
218 ,p_rec.row_value_uom
219 ,p_rec.period_frequency
220 ,p_rec.earnings_type
221 ,p_rec.business_group_id
222 ,p_rec.legislation_code
223 ,p_rec.last_updated_login
224 ,p_rec.created_date
225 ,p_rec.object_version_number
226 ,p_rec.attribute_category
227 ,p_rec.attribute1
228 ,p_rec.attribute2
229 ,p_rec.attribute3
230 ,p_rec.attribute4
231 ,p_rec.attribute5
232 ,p_rec.attribute6
233 ,p_rec.attribute7
234 ,p_rec.attribute8
235 ,p_rec.attribute9
236 ,p_rec.attribute10
237 ,p_rec.attribute11
238 ,p_rec.attribute12
239 ,p_rec.attribute13
240 ,p_rec.attribute14
241 ,p_rec.attribute15
242 ,p_rec.attribute16
243 ,p_rec.attribute17
244 ,p_rec.attribute18
245 ,p_rec.attribute19
246 ,p_rec.attribute20
247 ,p_rec.attribute21
248 ,p_rec.attribute22
249 ,p_rec.attribute23
250 ,p_rec.attribute24
251 ,p_rec.attribute25
252 ,p_rec.attribute26
253 ,p_rec.attribute27
254 ,p_rec.attribute28
255 ,p_rec.attribute29
256 ,p_rec.attribute30
257 ,p_rec.ran_information_category
258 ,p_rec.ran_information1
259 ,p_rec.ran_information2
260 ,p_rec.ran_information3
261 ,p_rec.ran_information4
262 ,p_rec.ran_information5
263 ,p_rec.ran_information6
264 ,p_rec.ran_information7
265 ,p_rec.ran_information8
266 ,p_rec.ran_information9
267 ,p_rec.ran_information10
268 ,p_rec.ran_information11
269 ,p_rec.ran_information12
270 ,p_rec.ran_information13
271 ,p_rec.ran_information14
272 ,p_rec.ran_information15
273 ,p_rec.ran_information16
274 ,p_rec.ran_information17
275 ,p_rec.ran_information18
276 ,p_rec.ran_information19
277 ,p_rec.ran_information20
278 ,p_rec.ran_information21
279 ,p_rec.ran_information22
280 ,p_rec.ran_information23
281 ,p_rec.ran_information24
282 ,p_rec.ran_information25
283 ,p_rec.ran_information26
284 ,p_rec.ran_information27
285 ,p_rec.ran_information28
286 ,p_rec.ran_information29
287 ,p_rec.ran_information30
288 );
289 --
290 --
291 --
292 hr_utility.set_location(' Leaving:'||l_proc, 10);
293 Exception
294 When hr_api.check_integrity_violated Then
295 -- A check constraint has been violated
296 --
297 pay_prf_shd.constraint_error
298 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
299 When hr_api.parent_integrity_violated Then
300 -- Parent integrity has been violated
301 --
302 pay_prf_shd.constraint_error
303 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
304 When hr_api.unique_integrity_violated Then
305 -- Unique integrity has been violated
306 --
307 pay_prf_shd.constraint_error
308 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
309 When Others Then
310 --
311 Raise;
312 End insert_dml;
313 --
314 -- ----------------------------------------------------------------------------
315 -- |------------------------------< pre_insert >------------------------------|
316 -- ----------------------------------------------------------------------------
317 -- {Start Of Comments}
318 --
319 -- Description:
320 -- This private procedure contains any processing which is required before
321 -- the insert dml. Presently, if the entity has a corresponding primary
322 -- key which is maintained by an associating sequence, the primary key for
323 -- the entity will be populated with the next sequence value in
324 -- preparation for the insert dml.
325 --
326 -- Prerequisites:
327 -- This is an internal procedure which is called from the ins procedure.
328 --
329 -- In Parameters:
330 -- A Pl/Sql record structure.
331 --
332 -- Post Success:
333 -- Processing continues.
334 --
335 -- Post Failure:
336 -- If an error has occurred, an error message and exception will be raised
337 -- but not handled.
338 --
339 -- Developer Implementation Notes:
340 -- Any pre-processing required before the insert dml is issued should be
341 -- coded within this procedure. As stated above, a good example is the
342 -- generation of a primary key number via a corresponding sequence.
343 -- It is important to note that any 3rd party maintenance should be reviewed
344 -- before placing in this procedure.
345 --
346 -- Access Status:
347 -- Internal Row Handler Use Only.
348 --
349 -- {End Of Comments}
350 -- ----------------------------------------------------------------------------
351 Procedure pre_insert
352 (p_rec in out nocopy pay_prf_shd.g_rec_type
353 ) is
354 --
355 Cursor C_Sel1 is select pay_range_tables_f_s.nextval from sys.dual;
356 --
357 Cursor C_Sel2 is
358 Select null
359 from pay_range_tables_f
360 where range_table_id =
361 pay_prf_ins.g_range_table_id_i;
362 --
363 l_proc varchar2(72) := g_package||'pre_insert';
364 l_exists varchar2(1);
365 --
366 Begin
367 hr_utility.set_location('Entering:'||l_proc, 5);
368 --
369 If (pay_prf_ins.g_range_table_id_i is not null) Then
370 --
371 -- Verify registered primary key values not already in use
372 --
373 Open C_Sel2;
374 Fetch C_Sel2 into l_exists;
375 If C_Sel2%found Then
376 Close C_Sel2;
377 --
378 -- The primary key values are already in use.
379 --
380 fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
381 fnd_message.set_token('TABLE_NAME','pay_range_tables_f');
382 fnd_message.raise_error;
383 End If;
384 Close C_Sel2;
385 --
386 -- Use registered key values and clear globals
387 --
388 p_rec.range_table_id :=
389 pay_prf_ins.g_range_table_id_i;
390 pay_prf_ins.g_range_table_id_i := null;
391 Else
392 --
393 -- No registerd key values, so select the next sequence number
394 --
395 --
396 -- Select the next sequence number
397 --
398 Open C_Sel1;
399 Fetch C_Sel1 Into p_rec.range_table_id;
400 Close C_Sel1;
401 End If;
402 --
403 hr_utility.set_location(' Leaving:'||l_proc, 10);
404 End pre_insert;
405 --
406 -- ----------------------------------------------------------------------------
407 -- |-----------------------------< post_insert >------------------------------|
408 -- ----------------------------------------------------------------------------
409 -- {Start Of Comments}
410 --
411 -- Description:
412 -- This private procedure contains any processing which is required after
413 -- the insert dml.
414 --
415 -- Prerequisites:
416 -- This is an internal procedure which is called from the ins procedure.
417 --
418 -- In Parameters:
419 -- A Pl/Sql record structre.
420 --
421 -- Post Success:
422 -- Processing continues.
423 --
424 -- Post Failure:
425 -- If an error has occurred, an error message and exception will be raised
426 -- but not handled.
427 --
428 -- Developer Implementation Notes:
429 -- Any post-processing required after the insert dml is issued should be
430 -- coded within this procedure. It is important to note that any 3rd party
431 -- maintenance should be reviewed before placing in this procedure.
432 --
433 -- Access Status:
434 -- Internal Row Handler Use Only.
435 --
436 -- {End Of Comments}
437 -- ----------------------------------------------------------------------------
438 Procedure post_insert
439 (p_rec in pay_prf_shd.g_rec_type
440 ) is
441 --
442 l_proc varchar2(72) := g_package||'post_insert';
443 --
444 Begin
445 hr_utility.set_location('Entering:'||l_proc, 5);
446 begin
447 --
448 -- insert ownerships if applicable
449 create_app_ownerships
450 ('RANGE_TABLE_ID', p_rec.range_table_id
451 );
452 --
453 --
454 pay_prf_rki.after_insert
455 (p_range_table_id
456 => p_rec.range_table_id
457 ,p_effective_start_date
461 ,p_range_table_number
458 => p_rec.effective_start_date
459 ,p_effective_end_date
460 => p_rec.effective_end_date
462 => p_rec.range_table_number
463 ,p_row_value_uom
464 => p_rec.row_value_uom
465 ,p_period_frequency
466 => p_rec.period_frequency
467 ,p_earnings_type
468 => p_rec.earnings_type
469 ,p_business_group_id
470 => p_rec.business_group_id
471 ,p_legislation_code
472 => p_rec.legislation_code
473 ,p_last_updated_login
474 => p_rec.last_updated_login
475 ,p_created_date
476 => p_rec.created_date
477 ,p_object_version_number
478 => p_rec.object_version_number
479 ,p_attribute_category
480 => p_rec.attribute_category
481 ,p_attribute1
482 => p_rec.attribute1
483 ,p_attribute2
484 => p_rec.attribute2
485 ,p_attribute3
486 => p_rec.attribute3
487 ,p_attribute4
488 => p_rec.attribute4
489 ,p_attribute5
490 => p_rec.attribute5
491 ,p_attribute6
492 => p_rec.attribute6
493 ,p_attribute7
494 => p_rec.attribute7
495 ,p_attribute8
496 => p_rec.attribute8
497 ,p_attribute9
498 => p_rec.attribute9
499 ,p_attribute10
500 => p_rec.attribute10
501 ,p_attribute11
502 => p_rec.attribute11
503 ,p_attribute12
504 => p_rec.attribute12
505 ,p_attribute13
506 => p_rec.attribute13
507 ,p_attribute14
508 => p_rec.attribute14
509 ,p_attribute15
510 => p_rec.attribute15
511 ,p_attribute16
512 => p_rec.attribute16
513 ,p_attribute17
514 => p_rec.attribute17
515 ,p_attribute18
516 => p_rec.attribute18
517 ,p_attribute19
518 => p_rec.attribute19
519 ,p_attribute20
520 => p_rec.attribute20
521 ,p_attribute21
522 => p_rec.attribute21
523 ,p_attribute22
524 => p_rec.attribute22
525 ,p_attribute23
526 => p_rec.attribute23
527 ,p_attribute24
528 => p_rec.attribute24
529 ,p_attribute25
530 => p_rec.attribute25
531 ,p_attribute26
532 => p_rec.attribute26
533 ,p_attribute27
534 => p_rec.attribute27
535 ,p_attribute28
536 => p_rec.attribute28
537 ,p_attribute29
538 => p_rec.attribute29
539 ,p_attribute30
540 => p_rec.attribute30
541 ,p_ran_information_category
542 => p_rec.ran_information_category
543 ,p_ran_information1
544 => p_rec.ran_information1
545 ,p_ran_information2
546 => p_rec.ran_information2
547 ,p_ran_information3
548 => p_rec.ran_information3
549 ,p_ran_information4
550 => p_rec.ran_information4
551 ,p_ran_information5
552 => p_rec.ran_information5
553 ,p_ran_information6
554 => p_rec.ran_information6
555 ,p_ran_information7
556 => p_rec.ran_information7
557 ,p_ran_information8
558 => p_rec.ran_information8
559 ,p_ran_information9
560 => p_rec.ran_information9
561 ,p_ran_information10
562 => p_rec.ran_information10
563 ,p_ran_information11
564 => p_rec.ran_information11
565 ,p_ran_information12
566 => p_rec.ran_information12
567 ,p_ran_information13
568 => p_rec.ran_information13
569 ,p_ran_information14
570 => p_rec.ran_information14
571 ,p_ran_information15
572 => p_rec.ran_information15
573 ,p_ran_information16
574 => p_rec.ran_information16
575 ,p_ran_information17
576 => p_rec.ran_information17
577 ,p_ran_information18
578 => p_rec.ran_information18
579 ,p_ran_information19
580 => p_rec.ran_information19
581 ,p_ran_information20
582 => p_rec.ran_information20
583 ,p_ran_information21
584 => p_rec.ran_information21
585 ,p_ran_information22
586 => p_rec.ran_information22
587 ,p_ran_information23
588 => p_rec.ran_information23
589 ,p_ran_information24
590 => p_rec.ran_information24
591 ,p_ran_information25
592 => p_rec.ran_information25
593 ,p_ran_information26
594 => p_rec.ran_information26
595 ,p_ran_information27
596 => p_rec.ran_information27
597 ,p_ran_information28
598 => p_rec.ran_information28
599 ,p_ran_information29
600 => p_rec.ran_information29
601 ,p_ran_information30
602 => p_rec.ran_information30
603 );
604 --
605 exception
606 --
607 when hr_api.cannot_find_prog_unit then
608 --
609 hr_api.cannot_find_prog_unit_error
610 (p_module_name => 'PAY_RANGE_TABLES_F'
611 ,p_hook_type => 'AI');
612 --
613 end;
614 --
615
616 hr_utility.set_location(' Leaving:'||l_proc, 10);
617 End post_insert;
618 --
619 -- ----------------------------------------------------------------------------
620 -- |---------------------------------< ins >----------------------------------|
621 -- ----------------------------------------------------------------------------
622 Procedure ins
623 (p_rec in out nocopy pay_prf_shd.g_rec_type
624 ) is
625 --
626 l_proc varchar2(72) := g_package||'ins';
627 --
628 Begin
629 hr_utility.set_location('Entering:'||l_proc, 5);
633 pay_prf_bus.insert_validate
630 --
631 -- Call the supporting insert validate operations
632 --
634 (p_rec
635 );
636 --
637 -- Call to raise any errors on multi-message list
638 hr_multi_message.end_validation_set;
639 --
640 -- Call the supporting pre-insert operation
641 --
642 pay_prf_ins.pre_insert(p_rec);
643 --
644 -- Insert the row
645 --
646 pay_prf_ins.insert_dml(p_rec);
647 --
648 -- Call the supporting post-insert operation
649 --
650
651 -- Commented Because not User Hook support is not provided.
652 /*
653 pay_prf_ins.post_insert
654 (p_rec
655 );
656 */
657
658 --
659 -- Call to raise any errors on multi-message list
660 hr_multi_message.end_validation_set;
661 --
662 hr_utility.set_location('Leaving:'||l_proc, 20);
663 end ins;
664 --
665 -- ----------------------------------------------------------------------------
666 -- |---------------------------------< ins >----------------------------------|
667 -- ----------------------------------------------------------------------------
668 Procedure ins
669 (p_range_table_number in number
670 ,p_period_frequency in varchar2
671 ,p_effective_start_date in date default null
672 ,p_effective_end_date in date default null
673 ,p_row_value_uom in varchar2 default null
674 ,p_earnings_type in varchar2 default null
675 ,p_business_group_id in number default null
676 ,p_legislation_code in varchar2 default null
677 ,p_last_updated_login in number default null
678 ,p_created_date in date default null
679 ,p_attribute_category in varchar2 default null
680 ,p_attribute1 in varchar2 default null
681 ,p_attribute2 in varchar2 default null
682 ,p_attribute3 in varchar2 default null
683 ,p_attribute4 in varchar2 default null
684 ,p_attribute5 in varchar2 default null
685 ,p_attribute6 in varchar2 default null
686 ,p_attribute7 in varchar2 default null
687 ,p_attribute8 in varchar2 default null
688 ,p_attribute9 in varchar2 default null
689 ,p_attribute10 in varchar2 default null
690 ,p_attribute11 in varchar2 default null
691 ,p_attribute12 in varchar2 default null
692 ,p_attribute13 in varchar2 default null
693 ,p_attribute14 in varchar2 default null
694 ,p_attribute15 in varchar2 default null
695 ,p_attribute16 in varchar2 default null
696 ,p_attribute17 in varchar2 default null
697 ,p_attribute18 in varchar2 default null
698 ,p_attribute19 in varchar2 default null
699 ,p_attribute20 in varchar2 default null
700 ,p_attribute21 in varchar2 default null
701 ,p_attribute22 in varchar2 default null
702 ,p_attribute23 in varchar2 default null
703 ,p_attribute24 in varchar2 default null
704 ,p_attribute25 in varchar2 default null
705 ,p_attribute26 in varchar2 default null
706 ,p_attribute27 in varchar2 default null
707 ,p_attribute28 in varchar2 default null
708 ,p_attribute29 in varchar2 default null
709 ,p_attribute30 in varchar2 default null
710 ,p_ran_information_category in varchar2 default null
711 ,p_ran_information1 in varchar2 default null
712 ,p_ran_information2 in varchar2 default null
713 ,p_ran_information3 in varchar2 default null
714 ,p_ran_information4 in varchar2 default null
715 ,p_ran_information5 in varchar2 default null
716 ,p_ran_information6 in varchar2 default null
717 ,p_ran_information7 in varchar2 default null
718 ,p_ran_information8 in varchar2 default null
719 ,p_ran_information9 in varchar2 default null
720 ,p_ran_information10 in varchar2 default null
721 ,p_ran_information11 in varchar2 default null
722 ,p_ran_information12 in varchar2 default null
723 ,p_ran_information13 in varchar2 default null
724 ,p_ran_information14 in varchar2 default null
725 ,p_ran_information15 in varchar2 default null
726 ,p_ran_information16 in varchar2 default null
727 ,p_ran_information17 in varchar2 default null
728 ,p_ran_information18 in varchar2 default null
729 ,p_ran_information19 in varchar2 default null
730 ,p_ran_information20 in varchar2 default null
731 ,p_ran_information21 in varchar2 default null
732 ,p_ran_information22 in varchar2 default null
733 ,p_ran_information23 in varchar2 default null
734 ,p_ran_information24 in varchar2 default null
735 ,p_ran_information25 in varchar2 default null
736 ,p_ran_information26 in varchar2 default null
737 ,p_ran_information27 in varchar2 default null
738 ,p_ran_information28 in varchar2 default null
739 ,p_ran_information29 in varchar2 default null
740 ,p_ran_information30 in varchar2 default null
744 --
741 ,p_range_table_id out nocopy number
742 ,p_object_version_number out nocopy number
743 ) is
745 l_rec pay_prf_shd.g_rec_type;
746 l_proc varchar2(72) := g_package||'ins';
747 --
748 Begin
749 hr_utility.set_location('Entering:'||l_proc, 5);
750 --
751 -- Call conversion function to turn arguments into the
752 -- p_rec structure.
753 --
754 l_rec :=
755 pay_prf_shd.convert_args
756 (null
757 ,p_effective_start_date
758 ,p_effective_end_date
759 ,p_range_table_number
760 ,p_row_value_uom
761 ,p_period_frequency
762 ,p_earnings_type
763 ,p_business_group_id
764 ,p_legislation_code
765 ,p_last_updated_login
766 ,p_created_date
767 ,null
768 ,p_attribute_category
769 ,p_attribute1
770 ,p_attribute2
771 ,p_attribute3
772 ,p_attribute4
773 ,p_attribute5
774 ,p_attribute6
775 ,p_attribute7
776 ,p_attribute8
777 ,p_attribute9
778 ,p_attribute10
779 ,p_attribute11
780 ,p_attribute12
781 ,p_attribute13
782 ,p_attribute14
783 ,p_attribute15
784 ,p_attribute16
785 ,p_attribute17
786 ,p_attribute18
787 ,p_attribute19
788 ,p_attribute20
789 ,p_attribute21
790 ,p_attribute22
791 ,p_attribute23
792 ,p_attribute24
793 ,p_attribute25
794 ,p_attribute26
795 ,p_attribute27
796 ,p_attribute28
797 ,p_attribute29
798 ,p_attribute30
799 ,p_ran_information_category
800 ,p_ran_information1
801 ,p_ran_information2
802 ,p_ran_information3
803 ,p_ran_information4
804 ,p_ran_information5
805 ,p_ran_information6
806 ,p_ran_information7
807 ,p_ran_information8
808 ,p_ran_information9
809 ,p_ran_information10
810 ,p_ran_information11
811 ,p_ran_information12
812 ,p_ran_information13
813 ,p_ran_information14
814 ,p_ran_information15
815 ,p_ran_information16
816 ,p_ran_information17
817 ,p_ran_information18
818 ,p_ran_information19
819 ,p_ran_information20
820 ,p_ran_information21
821 ,p_ran_information22
822 ,p_ran_information23
823 ,p_ran_information24
824 ,p_ran_information25
825 ,p_ran_information26
826 ,p_ran_information27
827 ,p_ran_information28
828 ,p_ran_information29
829 ,p_ran_information30
830 );
831 --
832 -- Having converted the arguments into the pay_prf_rec
833 -- plsql record structure we call the corresponding record business process.
834 --
835 pay_prf_ins.ins
836 (l_rec
837 );
838 --
839 -- As the primary key argument(s)
840 -- are specified as an OUT's we must set these values.
841 --
842 p_range_table_id := l_rec.range_table_id;
843 p_object_version_number := l_rec.object_version_number;
844 --
845 hr_utility.set_location(' Leaving:'||l_proc, 10);
846 End ins;
847 --
848 end pay_prf_ins;