[Home] [Help]
PACKAGE BODY: APPS.PER_PDS_INS
Source
1 Package Body per_pds_ins as
2 /* $Header: pepdsrhi.pkb 120.8.12020000.3 2013/01/30 09:27:33 srannama ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pds_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_period_of_service_id_i number default null;
14 --
15 -- ----------------------------------------------------------------------------
16 -- |------------------------< set_base_key_value >----------------------------|
17 -- ----------------------------------------------------------------------------
18 procedure set_base_key_value
19 (p_period_of_service_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 per_pds_ins.g_period_of_service_id_i := p_period_of_service_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 functions of this
39 -- 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 -- Pre Conditions:
49 -- This is an internal private procedure which must be called from the ins
50 -- procedure and must have all mandatory arguments set (except the
51 -- object_version_number which is initialised within this procedure).
52 --
53 -- In Arguments:
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 Table Handler Use Only.
72 --
73 -- {End Of Comments}
74 -- ----------------------------------------------------------------------------
75 Procedure insert_dml(p_rec in out nocopy per_pds_shd.g_rec_type) is
76 --
77 l_proc varchar2(72) := g_package||'insert_dml';
78 --
79 Begin
80 hr_utility.set_location('Entering:'||l_proc, 5);
81 p_rec.object_version_number := 1; -- Initialise the object version
82 --
83 per_pds_shd.g_api_dml := true; -- Set the api dml status
84 --
85 -- Insert the row into: per_periods_of_service
86 --
87 insert into per_periods_of_service
88 ( period_of_service_id,
89 business_group_id,
90 termination_accepted_person_id,
91 person_id,
92 date_start,
93 accepted_termination_date,
94 actual_termination_date,
95 comments,
96 final_process_date,
97 last_standard_process_date,
98 leaving_reason,
99 notified_termination_date,
100 projected_termination_date,
101 adjusted_svc_date,
102 request_id,
103 program_application_id,
104 program_id,
105 program_update_date,
106 attribute_category,
107 attribute1,
108 attribute2,
109 attribute3,
110 attribute4,
111 attribute5,
112 attribute6,
113 attribute7,
114 attribute8,
115 attribute9,
116 attribute10,
117 attribute11,
118 attribute12,
119 attribute13,
120 attribute14,
121 attribute15,
122 attribute16,
123 attribute17,
124 attribute18,
125 attribute19,
126 attribute20,
127 object_version_number,
128 prior_employment_ssp_weeks,
129 prior_employment_ssp_paid_to,
130 pds_information_category,
131 pds_information1,
132 pds_information2,
133 pds_information3,
134 pds_information4,
135 pds_information5,
136 pds_information6,
137 pds_information7,
138 pds_information8,
139 pds_information9,
140 pds_information10,
141 pds_information11,
142 pds_information12,
143 pds_information13,
144 pds_information14,
145 pds_information15,
146 pds_information16,
147 pds_information17,
148 pds_information18,
149 pds_information19,
150 pds_information20,
151 pds_information21,
152 pds_information22,
153 pds_information23,
154 pds_information24,
155 pds_information25,
156 pds_information26,
157 pds_information27,
158 pds_information28,
159 pds_information29,
160 pds_information30
161 )
162 Values
163 ( p_rec.period_of_service_id,
164 p_rec.business_group_id,
165 p_rec.termination_accepted_person_id,
166 p_rec.person_id,
167 p_rec.date_start,
168 p_rec.accepted_termination_date,
169 p_rec.actual_termination_date,
170 p_rec.comments,
171 p_rec.final_process_date,
172 p_rec.last_standard_process_date,
173 p_rec.leaving_reason,
174 p_rec.notified_termination_date,
175 p_rec.projected_termination_date,
176 p_rec.adjusted_svc_date,
177 p_rec.request_id,
178 p_rec.program_application_id,
179 p_rec.program_id,
180 p_rec.program_update_date,
181 p_rec.attribute_category,
182 p_rec.attribute1,
183 p_rec.attribute2,
184 p_rec.attribute3,
185 p_rec.attribute4,
186 p_rec.attribute5,
187 p_rec.attribute6,
188 p_rec.attribute7,
189 p_rec.attribute8,
190 p_rec.attribute9,
191 p_rec.attribute10,
192 p_rec.attribute11,
193 p_rec.attribute12,
194 p_rec.attribute13,
195 p_rec.attribute14,
196 p_rec.attribute15,
197 p_rec.attribute16,
198 p_rec.attribute17,
199 p_rec.attribute18,
200 p_rec.attribute19,
201 p_rec.attribute20,
202 p_rec.object_version_number,
203 p_rec.prior_employment_ssp_weeks,
204 p_rec.prior_employment_ssp_paid_to,
205 p_rec.pds_information_category,
206 p_rec.pds_information1,
207 p_rec.pds_information2,
208 p_rec.pds_information3,
209 p_rec.pds_information4,
210 p_rec.pds_information5,
211 p_rec.pds_information6,
212 p_rec.pds_information7,
213 p_rec.pds_information8,
214 p_rec.pds_information9,
215 p_rec.pds_information10,
216 p_rec.pds_information11,
217 p_rec.pds_information12,
218 p_rec.pds_information13,
219 p_rec.pds_information14,
220 p_rec.pds_information15,
221 p_rec.pds_information16,
222 p_rec.pds_information17,
223 p_rec.pds_information18,
224 p_rec.pds_information19,
225 p_rec.pds_information20,
226 p_rec.pds_information21,
227 p_rec.pds_information22,
228 p_rec.pds_information23,
229 p_rec.pds_information24,
230 p_rec.pds_information25,
231 p_rec.pds_information26,
232 p_rec.pds_information27,
233 p_rec.pds_information28,
234 p_rec.pds_information29,
235 p_rec.pds_information30
236 );
237 --
238 per_pds_shd.g_api_dml := false; -- Unset the api dml status
239 --
240 hr_utility.set_location(' Leaving:'||l_proc, 10);
241 Exception
242 When hr_api.check_integrity_violated Then
243 -- A check constraint has been violated
244 per_pds_shd.g_api_dml := false; -- Unset the api dml status
245 per_pds_shd.constraint_error
246 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
247 When hr_api.parent_integrity_violated Then
248 -- Parent integrity has been violated
249 per_pds_shd.g_api_dml := false; -- Unset the api dml status
250 per_pds_shd.constraint_error
251 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
252 When hr_api.unique_integrity_violated Then
253 -- Unique integrity has been violated
254 per_pds_shd.g_api_dml := false; -- Unset the api dml status
255 per_pds_shd.constraint_error
256 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
257 When Others Then
258 per_pds_shd.g_api_dml := false; -- Unset the api dml status
259 Raise;
260 End insert_dml;
261 --
262 -- ----------------------------------------------------------------------------
263 -- |------------------------------< pre_insert >------------------------------|
264 -- ----------------------------------------------------------------------------
265 -- {Start Of Comments}
266 --
267 -- Description:
268 -- This private procedure contains any processing which is required before
269 -- the insert dml. Presently, if the entity has a corresponding primary
270 -- key which is maintained by an associating sequence, the primary key for
271 -- the entity will be populated with the next sequence value in
272 -- preparation for the insert dml.
273 --
274 -- Pre Conditions:
275 -- This is an internal procedure which is called from the ins procedure.
276 --
277 -- In Arguments:
278 -- A Pl/Sql record structre.
279 --
280 -- Post Success:
281 -- Processing continues.
282 --
283 -- Post Failure:
284 -- If an error has occurred, an error message and exception will be raised
285 -- but not handled.
286 --
287 -- Developer Implementation Notes:
288 -- Any pre-processing required before the insert dml is issued should be
289 -- coded within this procedure. As stated above, a good example is the
290 -- generation of a primary key number via a corresponding sequence.
291 -- It is important to note that any 3rd party maintenance should be reviewed
292 -- before placing in this procedure.
293 --
294 -- Access Status:
295 -- Internal Table Handler Use Only.
296 --
297 -- {End Of Comments}
298 -- ----------------------------------------------------------------------------
299 Procedure pre_insert(p_rec in out nocopy per_pds_shd.g_rec_type) is
300 --
301 l_proc varchar2(72) := g_package||'pre_insert';
302 --
303 Cursor C_Sel1 is select per_periods_of_service_s.nextval from sys.dual;
304 --
305 Begin
306 hr_utility.set_location('Entering:'||l_proc, 5);
307 --
308 --
309 -- Select the next sequence number
310 --
311 Open C_Sel1;
312 Fetch C_Sel1 Into p_rec.period_of_service_id;
313 Close C_Sel1;
314 --
315 hr_utility.set_location(' Leaving:'||l_proc, 10);
316 End pre_insert;
317 --
318 -- ----------------------------------------------------------------------------
319 -- |-----------------------------< post_insert >------------------------------|
320 -- ----------------------------------------------------------------------------
321 -- {Start Of Comments}
322 --
323 -- Description:
324 -- This private procedure contains any processing which is required after the
325 -- insert dml.
326 --
327 -- Pre Conditions:
328 -- This is an internal procedure which is called from the ins procedure.
329 --
330 -- In Arguments:
331 -- A Pl/Sql record structre.
332 --
333 -- Post Success:
334 -- Processing continues.
335 --
336 -- Post Failure:
337 -- If an error has occurred, an error message and exception will be raised
338 -- but not handled.
339 --
340 -- Developer Implementation Notes:
341 -- Any post-processing required after the insert dml is issued should be
342 -- coded within this procedure. It is important to note that any 3rd party
343 -- maintenance should be reviewed before placing in this procedure.
344 --
345 -- Access Status:
346 -- Internal Table Handler Use Only.
347 --
348 -- {End Of Comments}
349 -- ----------------------------------------------------------------------------
350 Procedure post_insert(p_rec in per_pds_shd.g_rec_type,p_effective_date in date) is
351 --
352 l_proc varchar2(72) := g_package||'post_insert';
353 --
354 -- START WWBUG 1390173 fix
355 --
356 l_old ben_pps_ler.g_pps_ler_rec;
357 l_new ben_pps_ler.g_pps_ler_rec;
358 --
359 -- END WWBUG 1390173 fix
360 --
361 --
362 Begin
363 hr_utility.set_location('Entering:'||l_proc, 5);
364 --
365 -- GP
366 --
367 -- BEGIN of FIX for WWBUG 1390173
368 --
369 l_old.PERSON_ID := null;
370 l_old.BUSINESS_GROUP_ID := null;
371 l_old.DATE_START := null;
372 l_old.ACTUAL_TERMINATION_DATE := null;
373 l_old.LEAVING_REASON := null;
374 l_old.ADJUSTED_SVC_DATE := null;
375 l_old.ATTRIBUTE1 := null;
376 l_old.ATTRIBUTE2 := null;
377 l_old.ATTRIBUTE3 := null;
378 l_old.ATTRIBUTE4 := null;
379 l_old.ATTRIBUTE5 := null;
380 l_old.FINAL_PROCESS_DATE := null;
381 l_new.PERSON_ID := p_rec.person_id;
382 l_new.BUSINESS_GROUP_ID := p_rec.business_group_id;
383 l_new.DATE_START := p_rec.date_start;
384 l_new.ACTUAL_TERMINATION_DATE := p_rec.actual_termination_date;
385 l_new.LEAVING_REASON := p_rec.leaving_reason;
386 l_new.ADJUSTED_SVC_DATE := p_rec.adjusted_svc_date;
387 l_new.ATTRIBUTE1 := p_rec.attribute1;
388 l_new.ATTRIBUTE2 := p_rec.attribute2;
389 l_new.ATTRIBUTE3 := p_rec.attribute3;
390 l_new.ATTRIBUTE4 := p_rec.attribute4;
391 l_new.ATTRIBUTE5 := p_rec.attribute5;
392 l_new.FINAL_PROCESS_DATE := p_rec.FINAL_PROCESS_DATE;
393 --
394 ben_pps_ler.ler_chk(p_old => l_old
395 ,p_new => l_new
396 ,p_event => 'INSERTING'
397 ,p_effective_date => p_effective_date);
398 --
399 -- END of FIX for 1390173
400 --
401 -- Start of API User Hook for post_insert.
402 begin
403 per_pds_rki.after_insert
404 (
405 p_period_of_service_id =>p_rec.period_of_service_id
406 ,p_business_group_id =>p_rec.business_group_id
407 ,p_person_id =>p_rec.person_id
408 ,p_date_start =>p_rec.date_start
409 ,p_comments =>p_rec.comments
410 ,p_adjusted_svc_date =>p_rec.adjusted_svc_date
411 ,p_request_id =>p_rec.request_id
412 ,p_program_application_id =>p_rec.program_application_id
413 ,p_program_id =>p_rec.program_id
414 ,p_program_update_date =>p_rec.program_update_date
415 ,p_attribute_category =>p_rec.attribute_category
416 ,p_attribute1 =>p_rec.attribute1
417 ,p_attribute2 =>p_rec.attribute2
418 ,p_attribute3 =>p_rec.attribute3
419 ,p_attribute4 =>p_rec.attribute4
420 ,p_attribute5 =>p_rec.attribute5
421 ,p_attribute6 =>p_rec.attribute6
422 ,p_attribute7 =>p_rec.attribute7
423 ,p_attribute8 =>p_rec.attribute8
424 ,p_attribute9 =>p_rec.attribute9
425 ,p_attribute10 =>p_rec.attribute10
426 ,p_attribute11 =>p_rec.attribute11
427 ,p_attribute12 =>p_rec.attribute12
428 ,p_attribute13 =>p_rec.attribute13
429 ,p_attribute14 =>p_rec.attribute14
430 ,p_attribute15 =>p_rec.attribute15
431 ,p_attribute16 =>p_rec.attribute16
432 ,p_attribute17 =>p_rec.attribute17
433 ,p_attribute18 =>p_rec.attribute18
434 ,p_attribute19 =>p_rec.attribute19
435 ,p_attribute20 =>p_rec.attribute20
436 ,p_object_version_number =>p_rec.object_version_number
437 ,p_prior_employment_ssp_weeks =>p_rec.prior_employment_ssp_weeks
438 ,p_prior_employment_ssp_paid_to =>p_rec.prior_employment_ssp_paid_to
439 ,p_effective_date =>p_effective_date
440 ,p_pds_information_category =>p_rec.pds_information_category
441 ,p_pds_information1 =>p_rec.pds_information1
442 ,p_pds_information2 =>p_rec.pds_information2
443 ,p_pds_information3 =>p_rec.pds_information3
444 ,p_pds_information4 =>p_rec.pds_information4
445 ,p_pds_information5 =>p_rec.pds_information5
446 ,p_pds_information6 =>p_rec.pds_information6
447 ,p_pds_information7 =>p_rec.pds_information7
448 ,p_pds_information8 =>p_rec.pds_information8
449 ,p_pds_information9 =>p_rec.pds_information9
450 ,p_pds_information10 =>p_rec.pds_information10
451 ,p_pds_information11 =>p_rec.pds_information11
452 ,p_pds_information12 =>p_rec.pds_information12
453 ,p_pds_information13 =>p_rec.pds_information13
454 ,p_pds_information14 =>p_rec.pds_information14
455 ,p_pds_information15 =>p_rec.pds_information15
456 ,p_pds_information16 =>p_rec.pds_information16
457 ,p_pds_information17 =>p_rec.pds_information17
458 ,p_pds_information18 =>p_rec.pds_information18
459 ,p_pds_information19 =>p_rec.pds_information19
460 ,p_pds_information20 =>p_rec.pds_information20
461 ,p_pds_information21 =>p_rec.pds_information21
462 ,p_pds_information22 =>p_rec.pds_information22
463 ,p_pds_information23 =>p_rec.pds_information23
464 ,p_pds_information24 =>p_rec.pds_information24
465 ,p_pds_information25 =>p_rec.pds_information25
466 ,p_pds_information26 =>p_rec.pds_information26
467 ,p_pds_information27 =>p_rec.pds_information27
468 ,p_pds_information28 =>p_rec.pds_information28
469 ,p_pds_information29 =>p_rec.pds_information29
470 ,p_pds_information30 =>p_rec.pds_information30
471 );
472 exception
473 when hr_api.cannot_find_prog_unit then
474 hr_api.cannot_find_prog_unit_error
475 ( p_module_name => 'PER_PERIOD_OF_SERVICE',
476 p_hook_type => 'AI'
477 );
478 end;
479 -- End of API User Hook for post_insert.
480 --
481 hr_utility.set_location(' Leaving:'||l_proc, 10);
482 End post_insert;
483 --
484 -- ----------------------------------------------------------------------------
485 -- |---------------------------------< ins >----------------------------------|
486 -- ----------------------------------------------------------------------------
487 Procedure ins
488 (
489 p_rec in out nocopy per_pds_shd.g_rec_type,
490 p_effective_date in date,
491 p_validate in boolean default false,
492 p_validate_df_flex in boolean default true
493 ) is
494 --
495 l_proc varchar2(72) := g_package||'ins';
496 --
497 Begin
498 hr_utility.set_location('Entering:'||l_proc, 5);
499 --
500 -- Determine if the business process is to be validated.
501 --
502 If p_validate then
503 --
504 -- Issue the savepoint.
505 --
506 SAVEPOINT ins_per_pds;
507 End If;
508 --
509 -- Call the supporting insert validate operations
510 --
511 per_pds_bus.insert_validate(p_rec
512 ,p_effective_date
513 ,p_validate_df_flex);
514 --
515 -- Call the supporting pre-insert operation
516 --
517 pre_insert(p_rec);
518 --
519 -- Insert the row
520 --
521 insert_dml(p_rec);
522 --
523 -- Call the supporting post-insert operation
524 --
525 post_insert(p_rec, p_effective_date);
526 --
527 -- If we are validating then raise the Validate_Enabled exception
528 --
529 If p_validate then
530 Raise HR_Api.Validate_Enabled;
531 End If;
532 --
533 hr_utility.set_location(' Leaving:'||l_proc, 10);
534 Exception
535 When HR_Api.Validate_Enabled Then
536 --
537 -- As the Validate_Enabled exception has been raised
538 -- we must rollback to the savepoint
539 --
540 ROLLBACK TO ins_per_pds;
541 end ins;
542 --
543 -- ----------------------------------------------------------------------------
544 -- |---------------------------------< ins >----------------------------------|
545 -- ----------------------------------------------------------------------------
546 Procedure ins
547 (
548 --
549 -- 70.3 change a start.
550 --
551 p_period_of_service_id out nocopy number,
552 p_business_group_id in number,
553 p_person_id in number,
554 p_date_start in date,
555 p_comments in varchar2 default null,
556 p_adjusted_svc_date in date default null,
557 p_request_id in number default null,
558 p_program_application_id in number default null,
559 p_program_id in number default null,
560 p_program_update_date in date default null,
561 p_attribute_category in varchar2 default null,
562 p_attribute1 in varchar2 default null,
563 p_attribute2 in varchar2 default null,
564 p_attribute3 in varchar2 default null,
565 p_attribute4 in varchar2 default null,
566 p_attribute5 in varchar2 default null,
567 p_attribute6 in varchar2 default null,
568 p_attribute7 in varchar2 default null,
569 p_attribute8 in varchar2 default null,
570 p_attribute9 in varchar2 default null,
571 p_attribute10 in varchar2 default null,
572 p_attribute11 in varchar2 default null,
573 p_attribute12 in varchar2 default null,
574 p_attribute13 in varchar2 default null,
575 p_attribute14 in varchar2 default null,
576 p_attribute15 in varchar2 default null,
577 p_attribute16 in varchar2 default null,
578 p_attribute17 in varchar2 default null,
579 p_attribute18 in varchar2 default null,
580 p_attribute19 in varchar2 default null,
581 p_attribute20 in varchar2 default null,
582 p_object_version_number out nocopy number,
583 p_prior_employment_ssp_weeks in number default null,
584 p_prior_employment_ssp_paid_to in date default null,
585 p_pds_information_category in varchar2 default null,
586 p_pds_information1 in varchar2 default null,
587 p_pds_information2 in varchar2 default null,
588 p_pds_information3 in varchar2 default null,
589 p_pds_information4 in varchar2 default null,
590 p_pds_information5 in varchar2 default null,
591 p_pds_information6 in varchar2 default null,
592 p_pds_information7 in varchar2 default null,
593 p_pds_information8 in varchar2 default null,
594 p_pds_information9 in varchar2 default null,
595 p_pds_information10 in varchar2 default null,
596 p_pds_information11 in varchar2 default null,
597 p_pds_information12 in varchar2 default null,
598 p_pds_information13 in varchar2 default null,
599 p_pds_information14 in varchar2 default null,
600 p_pds_information15 in varchar2 default null,
601 p_pds_information16 in varchar2 default null,
602 p_pds_information17 in varchar2 default null,
603 p_pds_information18 in varchar2 default null,
604 p_pds_information19 in varchar2 default null,
605 p_pds_information20 in varchar2 default null,
606 p_pds_information21 in varchar2 default null,
607 p_pds_information22 in varchar2 default null,
608 p_pds_information23 in varchar2 default null,
609 p_pds_information24 in varchar2 default null,
610 p_pds_information25 in varchar2 default null,
611 p_pds_information26 in varchar2 default null,
612 p_pds_information27 in varchar2 default null,
613 p_pds_information28 in varchar2 default null,
614 p_pds_information29 in varchar2 default null,
615 p_pds_information30 in varchar2 default null,
616 p_effective_date in date,
617 p_validate in boolean default false,
618 p_validate_df_flex in boolean default true
619 ) is
620 --
621 l_rec per_pds_shd.g_rec_type;
622 l_proc varchar2(72) := g_package||'ins';
623 --
624 Begin
625 hr_utility.set_location('Entering:'||l_proc, 5);
626 --
627 -- Call conversion function to turn arguments into the
628 -- p_rec structure.
629 --
630 l_rec :=
631 per_pds_shd.convert_args
632 (
633 null,
634 p_business_group_id,
635 null,
636 p_person_id,
637 p_date_start,
638 null,
639 null,
640 p_comments,
641 null,
642 null,
643 null,
644 null,
645 null,
646 p_adjusted_svc_date,
647 p_request_id,
648 p_program_application_id,
649 p_program_id,
650 p_program_update_date,
651 p_attribute_category,
652 p_attribute1,
653 p_attribute2,
654 p_attribute3,
655 p_attribute4,
656 p_attribute5,
657 p_attribute6,
658 p_attribute7,
659 p_attribute8,
660 p_attribute9,
661 p_attribute10,
662 p_attribute11,
663 p_attribute12,
664 p_attribute13,
665 p_attribute14,
666 p_attribute15,
667 p_attribute16,
668 p_attribute17,
669 p_attribute18,
670 p_attribute19,
671 p_attribute20,
672 null ,
673 p_prior_employment_ssp_weeks,
674 p_prior_employment_ssp_paid_to,
675 p_pds_information_category,
676 p_pds_information1,
677 p_pds_information2,
678 p_pds_information3,
679 p_pds_information4,
680 p_pds_information5,
681 p_pds_information6,
682 p_pds_information7,
683 p_pds_information8,
684 p_pds_information9,
685 p_pds_information10,
686 p_pds_information11,
687 p_pds_information12,
688 p_pds_information13,
689 p_pds_information14,
690 p_pds_information15,
691 p_pds_information16,
692 p_pds_information17,
693 p_pds_information18,
694 p_pds_information19,
695 p_pds_information20,
696 p_pds_information21,
697 p_pds_information22,
698 p_pds_information23,
699 p_pds_information24,
700 p_pds_information25,
701 p_pds_information26,
702 p_pds_information27,
703 p_pds_information28,
704 p_pds_information29,
705 p_pds_information30
706 );
707 --
708 -- 70.3 change a end.
709 --
710 -- Having converted the arguments into the per_pds_rec
711 -- plsql record structure we call the corresponding record business process.
712 --
713 ins(l_rec, p_effective_date, p_validate, p_validate_df_flex);
714 --
715 -- As the primary key argument(s)
716 -- are specified as an OUT's we must set these values.
717 --
718 p_period_of_service_id := l_rec.period_of_service_id;
719 p_object_version_number := l_rec.object_version_number;
720 --
721 hr_utility.set_location(' Leaving:'||l_proc, 10);
722 End ins;
723 --
724 end per_pds_ins;