1 Package Body per_psp_upd as
2 /* $Header: pepsprhi.pkb 115.5 2003/11/17 13:06:07 tpapired noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_psp_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 per_psp_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 per_psp_shd.g_api_dml := true; -- Set the api dml status
67 --
68 -- Update the per_spinal_points Row
69 --
70 update per_spinal_points
71 set
72 spinal_point_id = p_rec.spinal_point_id
73 ,business_group_id = p_rec.business_group_id
74 ,parent_spine_id = p_rec.parent_spine_id
75 ,sequence = p_rec.sequence
76 ,spinal_point = p_rec.spinal_point
77 ,request_id = p_rec.request_id
78 ,program_application_id = p_rec.program_application_id
79 ,program_id = p_rec.program_id
80 ,program_update_date = p_rec.program_update_date
81 ,object_version_number = p_rec.object_version_number
82 ,information_category = p_rec.information_category
83 ,information1 = p_rec.information1
84 ,information2 = p_rec.information2
85 ,information3 = p_rec.information3
86 ,information4 = p_rec.information4
87 ,information5 = p_rec.information5
88 ,information6 = p_rec.information6
89 ,information7 = p_rec.information7
90 ,information8 = p_rec.information8
91 ,information9 = p_rec.information9
92 ,information10 = p_rec.information10
93 ,information11 = p_rec.information11
94 ,information12 = p_rec.information12
95 ,information13 = p_rec.information13
96 ,information14 = p_rec.information14
97 ,information15 = p_rec.information15
98 ,information16 = p_rec.information16
99 ,information17 = p_rec.information17
100 ,information18 = p_rec.information18
101 ,information19 = p_rec.information19
102 ,information20 = p_rec.information20
103 ,information21 = p_rec.information21
104 ,information22 = p_rec.information22
105 ,information23 = p_rec.information23
106 ,information24 = p_rec.information24
107 ,information25 = p_rec.information25
108 ,information26 = p_rec.information26
109 ,information27 = p_rec.information27
110 ,information28 = p_rec.information28
111 ,information29 = p_rec.information29
112 ,information30 = p_rec.information30
113 where spinal_point_id = p_rec.spinal_point_id;
114 --
115 per_psp_shd.g_api_dml := false; -- Unset the api dml status
116 --
117 hr_utility.set_location(' Leaving:'||l_proc, 10);
118 --
119 Exception
120 When hr_api.check_integrity_violated Then
121 -- A check constraint has been violated
122 per_psp_shd.g_api_dml := false; -- Unset the api dml status
123 per_psp_shd.constraint_error
124 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125 When hr_api.parent_integrity_violated Then
126 -- Parent integrity has been violated
127 per_psp_shd.g_api_dml := false; -- Unset the api dml status
128 per_psp_shd.constraint_error
129 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
130 When hr_api.unique_integrity_violated Then
131 -- Unique integrity has been violated
132 per_psp_shd.g_api_dml := false; -- Unset the api dml status
133 per_psp_shd.constraint_error
134 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135 When Others Then
136 per_psp_shd.g_api_dml := false; -- Unset the api dml status
137 Raise;
138 End update_dml;
139 --
140 -- ----------------------------------------------------------------------------
141 -- |------------------------------< pre_update >------------------------------|
142 -- ----------------------------------------------------------------------------
143 -- {Start Of Comments}
144 --
145 -- Description:
146 -- This private procedure contains any processing which is required before
147 -- the update dml.
148 --
149 -- Prerequisites:
150 -- This is an internal procedure which is called from the upd procedure.
151 --
152 -- In Parameters:
153 -- A Pl/Sql record structure.
154 --
155 -- Post Success:
156 -- Processing continues.
157 --
158 -- Post Failure:
159 -- If an error has occurred, an error message and exception wil be raised
160 -- but not handled.
161 --
162 -- Developer Implementation Notes:
163 -- Any pre-processing required before the update dml is issued should be
164 -- coded within this procedure. It is important to note that any 3rd party
165 -- maintenance should be reviewed before placing in this procedure.
166 --
167 -- Access Status:
168 -- Internal Row Handler Use Only.
169 --
170 -- {End Of Comments}
171 -- ----------------------------------------------------------------------------
172 Procedure pre_update
173 (p_rec in per_psp_shd.g_rec_type
174 ) is
175 --
176 l_proc varchar2(72) := g_package||'pre_update';
177 --
178 Begin
179 hr_utility.set_location('Entering:'||l_proc, 5);
180 --
181 hr_utility.set_location(' Leaving:'||l_proc, 10);
182 End pre_update;
183 --
184 -- ----------------------------------------------------------------------------
185 -- |-----------------------------< post_update >------------------------------|
186 -- ----------------------------------------------------------------------------
187 -- {Start Of Comments}
188 --
189 -- Description:
190 -- This private procedure contains any processing which is required after
191 -- the update dml.
192 --
193 -- Prerequisites:
194 -- This is an internal procedure which is called from the upd procedure.
195 --
196 -- In Parameters:
197 -- A Pl/Sql record structure.
198 --
199 -- Post Success:
200 -- Processing continues.
201 --
202 -- Post Failure:
203 -- If an error has occurred, an error message and exception will be raised
204 -- but not handled.
205 --
206 -- Developer Implementation Notes:
207 -- Any post-processing required after the update dml is issued should be
208 -- coded within this procedure. It is important to note that any 3rd party
209 -- maintenance should be reviewed before placing in this procedure.
210 --
211 -- Access Status:
212 -- Internal Row Handler Use Only.
213 --
214 -- {End Of Comments}
215 -- ----------------------------------------------------------------------------
216 Procedure post_update
217 (p_effective_date in date
218 ,p_rec in per_psp_shd.g_rec_type
219 ) is
220 --
221 l_proc varchar2(72) := g_package||'post_update';
222 --
223 Begin
224 hr_utility.set_location('Entering:'||l_proc, 5);
225 begin
226 --
227 per_psp_rku.after_update
228 (p_effective_date => p_effective_date
229 ,p_spinal_point_id
230 => p_rec.spinal_point_id
231 ,p_business_group_id
232 => p_rec.business_group_id
233 ,p_parent_spine_id
234 => p_rec.parent_spine_id
235 ,p_sequence
236 => p_rec.sequence
237 ,p_spinal_point
238 => p_rec.spinal_point
239 ,p_request_id
240 => p_rec.request_id
241 ,p_program_application_id
242 => p_rec.program_application_id
243 ,p_program_id
244 => p_rec.program_id
245 ,p_program_update_date
246 => p_rec.program_update_date
247 ,p_object_version_number
248 => p_rec.object_version_number
249 ,p_information_category
250 => p_rec.information_category
251 ,p_information1
252 => p_rec.information1
253 ,p_information2
254 => p_rec.information2
255 ,p_information3
256 => p_rec.information3
257 ,p_information4
258 => p_rec.information4
259 ,p_information5
260 => p_rec.information5
261 ,p_information6
262 => p_rec.information6
263 ,p_information7
264 => p_rec.information7
265 ,p_information8
266 => p_rec.information8
267 ,p_information9
268 => p_rec.information9
269 ,p_information10
270 => p_rec.information10
271 ,p_information11
272 => p_rec.information11
273 ,p_information12
274 => p_rec.information12
275 ,p_information13
276 => p_rec.information13
277 ,p_information14
278 => p_rec.information14
279 ,p_information15
280 => p_rec.information15
281 ,p_information16
282 => p_rec.information16
283 ,p_information17
284 => p_rec.information17
285 ,p_information18
286 => p_rec.information18
287 ,p_information19
288 => p_rec.information19
289 ,p_information20
290 => p_rec.information20
291 ,p_information21
292 => p_rec.information21
293 ,p_information22
294 => p_rec.information22
295 ,p_information23
296 => p_rec.information23
297 ,p_information24
298 => p_rec.information24
299 ,p_information25
300 => p_rec.information25
301 ,p_information26
302 => p_rec.information26
303 ,p_information27
304 => p_rec.information27
305 ,p_information28
306 => p_rec.information28
307 ,p_information29
308 => p_rec.information29
309 ,p_information30
310 => p_rec.information30
311 ,p_business_group_id_o
312 => per_psp_shd.g_old_rec.business_group_id
313 ,p_parent_spine_id_o
314 => per_psp_shd.g_old_rec.parent_spine_id
315 ,p_sequence_o
316 => per_psp_shd.g_old_rec.sequence
317 ,p_spinal_point_o
318 => per_psp_shd.g_old_rec.spinal_point
319 ,p_request_id_o
320 => per_psp_shd.g_old_rec.request_id
321 ,p_program_application_id_o
322 => per_psp_shd.g_old_rec.program_application_id
323 ,p_program_id_o
324 => per_psp_shd.g_old_rec.program_id
325 ,p_program_update_date_o
326 => per_psp_shd.g_old_rec.program_update_date
327 ,p_object_version_number_o
328 => per_psp_shd.g_old_rec.object_version_number
329 ,p_information_category_o
330 => per_psp_shd.g_old_rec.information_category
331 ,p_information1_o
332 => per_psp_shd.g_old_rec.information1
333 ,p_information2_o
334 => per_psp_shd.g_old_rec.information2
335 ,p_information3_o
336 => per_psp_shd.g_old_rec.information3
337 ,p_information4_o
338 => per_psp_shd.g_old_rec.information4
339 ,p_information5_o
340 => per_psp_shd.g_old_rec.information5
341 ,p_information6_o
342 => per_psp_shd.g_old_rec.information6
343 ,p_information7_o
344 => per_psp_shd.g_old_rec.information7
345 ,p_information8_o
346 => per_psp_shd.g_old_rec.information8
347 ,p_information9_o
348 => per_psp_shd.g_old_rec.information9
349 ,p_information10_o
350 => per_psp_shd.g_old_rec.information10
351 ,p_information11_o
352 => per_psp_shd.g_old_rec.information11
353 ,p_information12_o
354 => per_psp_shd.g_old_rec.information12
355 ,p_information13_o
356 => per_psp_shd.g_old_rec.information13
357 ,p_information14_o
358 => per_psp_shd.g_old_rec.information14
359 ,p_information15_o
360 => per_psp_shd.g_old_rec.information15
361 ,p_information16_o
362 => per_psp_shd.g_old_rec.information16
363 ,p_information17_o
364 => per_psp_shd.g_old_rec.information17
365 ,p_information18_o
366 => per_psp_shd.g_old_rec.information18
367 ,p_information19_o
368 => per_psp_shd.g_old_rec.information19
369 ,p_information20_o
370 => per_psp_shd.g_old_rec.information20
371 ,p_information21_o
372 => per_psp_shd.g_old_rec.information21
373 ,p_information22_o
374 => per_psp_shd.g_old_rec.information22
375 ,p_information23_o
376 => per_psp_shd.g_old_rec.information23
377 ,p_information24_o
378 => per_psp_shd.g_old_rec.information24
379 ,p_information25_o
380 => per_psp_shd.g_old_rec.information25
381 ,p_information26_o
382 => per_psp_shd.g_old_rec.information26
383 ,p_information27_o
384 => per_psp_shd.g_old_rec.information27
385 ,p_information28_o
386 => per_psp_shd.g_old_rec.information28
387 ,p_information29_o
388 => per_psp_shd.g_old_rec.information29
389 ,p_information30_o
390 => per_psp_shd.g_old_rec.information30
391 );
392 --
393 exception
394 --
395 when hr_api.cannot_find_prog_unit then
396 --
397 hr_api.cannot_find_prog_unit_error
398 (p_module_name => 'PER_SPINAL_POINTS'
399 ,p_hook_type => 'AU');
400 --
401 end;
402 --
403 hr_utility.set_location(' Leaving:'||l_proc, 10);
404 End post_update;
405 --
406 -- ----------------------------------------------------------------------------
407 -- |-----------------------------< convert_defs >-----------------------------|
408 -- ----------------------------------------------------------------------------
409 -- {Start Of Comments}
410 --
411 -- Description:
412 -- The Convert_Defs procedure has one very important function:
413 -- It must return the record structure for the row with all system defaulted
414 -- values converted into its corresponding parameter value for update. When
415 -- we attempt to update a row through the Upd process , certain
416 -- parameters can be defaulted which enables flexibility in the calling of
417 -- the upd process (e.g. only attributes which need to be updated need to be
418 -- specified). For the upd process to determine which attributes
419 -- have NOT been specified we need to check if the parameter has a reserved
420 -- system default value. Therefore, for all parameters which have a
421 -- corresponding reserved system default mechanism specified we need to
422 -- check if a system default is being used. If a system default is being
423 -- used then we convert the defaulted value into its corresponding attribute
424 -- value held in the g_old_rec data structure.
425 --
426 -- Prerequisites:
427 -- This private function can only be called from the upd process.
428 --
429 -- In Parameters:
430 -- A Pl/Sql record structure.
431 --
432 -- Post Success:
433 -- The record structure will be returned with all system defaulted parameter
434 -- values converted into its current row attribute value.
435 --
436 -- Post Failure:
437 -- No direct error handling is required within this function. Any possible
438 -- errors within this procedure will be a PL/SQL value error due to
439 -- conversion of datatypes or data lengths.
440 --
441 -- Developer Implementation Notes:
442 -- None.
443 --
444 -- Access Status:
445 -- Internal Row Handler Use Only.
446 --
447 -- {End Of Comments}
448 -- ----------------------------------------------------------------------------
449 Procedure convert_defs
450 (p_rec in out nocopy per_psp_shd.g_rec_type
451 ) is
452 --
453 Begin
454 --
455 -- We must now examine each argument value in the
456 -- p_rec plsql record structure
457 -- to see if a system default is being used. If a system default
458 -- is being used then we must set to the 'current' argument value.
459 --
460 If (p_rec.business_group_id = hr_api.g_number) then
461 p_rec.business_group_id :=
462 per_psp_shd.g_old_rec.business_group_id;
463 End If;
464 If (p_rec.parent_spine_id = hr_api.g_number) then
465 p_rec.parent_spine_id :=
466 per_psp_shd.g_old_rec.parent_spine_id;
467 End If;
468 If (p_rec.sequence = hr_api.g_number) then
469 p_rec.sequence :=
470 per_psp_shd.g_old_rec.sequence;
471 End If;
472 If (p_rec.spinal_point = hr_api.g_varchar2) then
473 p_rec.spinal_point :=
474 per_psp_shd.g_old_rec.spinal_point;
475 End If;
476 If (p_rec.request_id = hr_api.g_number) then
477 p_rec.request_id :=
478 per_psp_shd.g_old_rec.request_id;
479 End If;
480 If (p_rec.program_application_id = hr_api.g_number) then
481 p_rec.program_application_id :=
482 per_psp_shd.g_old_rec.program_application_id;
483 End If;
484 If (p_rec.program_id = hr_api.g_number) then
485 p_rec.program_id :=
486 per_psp_shd.g_old_rec.program_id;
487 End If;
488 If (p_rec.program_update_date = hr_api.g_date) then
489 p_rec.program_update_date :=
490 per_psp_shd.g_old_rec.program_update_date;
491 End If;
492 --
493 If (p_rec.information_category = hr_api.g_varchar2) then
494 p_rec.information_category :=
495 per_psp_shd.g_old_rec.information_category;
496 End If;
497 If (p_rec.information1 = hr_api.g_varchar2) then
498 p_rec.information1 :=
499 per_psp_shd.g_old_rec.information1;
500 End If;
501 If (p_rec.information2 = hr_api.g_varchar2) then
502 p_rec.information2 :=
503 per_psp_shd.g_old_rec.information2;
504 End If;
505 If (p_rec.information3 = hr_api.g_varchar2) then
506 p_rec.information3 :=
507 per_psp_shd.g_old_rec.information3;
508 End If;
509 If (p_rec.information4 = hr_api.g_varchar2) then
510 p_rec.information4 :=
511 per_psp_shd.g_old_rec.information4;
512 End If;
513 If (p_rec.information5 = hr_api.g_varchar2) then
514 p_rec.information5 :=
515 per_psp_shd.g_old_rec.information5;
516 End If;
517 If (p_rec.information6 = hr_api.g_varchar2) then
518 p_rec.information6 :=
519 per_psp_shd.g_old_rec.information6;
520 End If;
521 If (p_rec.information7 = hr_api.g_varchar2) then
522 p_rec.information7 :=
523 per_psp_shd.g_old_rec.information7;
524 End If;
525 If (p_rec.information8 = hr_api.g_varchar2) then
526 p_rec.information8 :=
527 per_psp_shd.g_old_rec.information8;
528 End If;
529 If (p_rec.information9 = hr_api.g_varchar2) then
530 p_rec.information9 :=
531 per_psp_shd.g_old_rec.information9;
532 End If;
533 If (p_rec.information10 = hr_api.g_varchar2) then
534 p_rec.information10 :=
535 per_psp_shd.g_old_rec.information10;
536 End If;
537 If (p_rec.information11 = hr_api.g_varchar2) then
538 p_rec.information11 :=
539 per_psp_shd.g_old_rec.information11;
540 End If;
541 If (p_rec.information12 = hr_api.g_varchar2) then
542 p_rec.information12 :=
543 per_psp_shd.g_old_rec.information12;
544 End If;
545 If (p_rec.information13 = hr_api.g_varchar2) then
546 p_rec.information13 :=
547 per_psp_shd.g_old_rec.information13;
548 End If;
549 If (p_rec.information14 = hr_api.g_varchar2) then
550 p_rec.information14 :=
551 per_psp_shd.g_old_rec.information14;
552 End If;
553 If (p_rec.information15 = hr_api.g_varchar2) then
554 p_rec.information15 :=
555 per_psp_shd.g_old_rec.information15;
556 End If;
557 If (p_rec.information16 = hr_api.g_varchar2) then
558 p_rec.information16 :=
559 per_psp_shd.g_old_rec.information16;
560 End If;
561 If (p_rec.information17 = hr_api.g_varchar2) then
562 p_rec.information17 :=
563 per_psp_shd.g_old_rec.information17;
564 End If;
565 If (p_rec.information18 = hr_api.g_varchar2) then
566 p_rec.information18 :=
567 per_psp_shd.g_old_rec.information18;
568 End If;
569 If (p_rec.information19 = hr_api.g_varchar2) then
570 p_rec.information19 :=
571 per_psp_shd.g_old_rec.information19;
572 End If;
573 If (p_rec.information20 = hr_api.g_varchar2) then
574 p_rec.information20 :=
575 per_psp_shd.g_old_rec.information20;
576 End If;
577 If (p_rec.information21 = hr_api.g_varchar2) then
578 p_rec.information21 :=
579 per_psp_shd.g_old_rec.information21;
580 End If;
581 If (p_rec.information22 = hr_api.g_varchar2) then
582 p_rec.information22 :=
583 per_psp_shd.g_old_rec.information22;
584 End If;
585 If (p_rec.information23 = hr_api.g_varchar2) then
586 p_rec.information23 :=
587 per_psp_shd.g_old_rec.information23;
588 End If;
589 If (p_rec.information24 = hr_api.g_varchar2) then
590 p_rec.information24 :=
591 per_psp_shd.g_old_rec.information24;
592 End If;
593 If (p_rec.information25 = hr_api.g_varchar2) then
594 p_rec.information25 :=
595 per_psp_shd.g_old_rec.information25;
596 End If;
597 If (p_rec.information26 = hr_api.g_varchar2) then
598 p_rec.information26 :=
599 per_psp_shd.g_old_rec.information26;
600 End If;
601 If (p_rec.information27 = hr_api.g_varchar2) then
602 p_rec.information27 :=
603 per_psp_shd.g_old_rec.information27;
604 End If;
605 If (p_rec.information28 = hr_api.g_varchar2) then
606 p_rec.information28 :=
607 per_psp_shd.g_old_rec.information28;
608 End If;
609 If (p_rec.information29 = hr_api.g_varchar2) then
610 p_rec.information29 :=
611 per_psp_shd.g_old_rec.information29;
612 End If;
613 If (p_rec.information30 = hr_api.g_varchar2) then
614 p_rec.information30 :=
615 per_psp_shd.g_old_rec.information30;
616 End If;
617 --
618 End convert_defs;
619 --
620 -- ----------------------------------------------------------------------------
621 -- |---------------------------------< upd >----------------------------------|
622 -- ----------------------------------------------------------------------------
623 Procedure upd
624 (p_effective_date in date
625 ,p_rec in out nocopy per_psp_shd.g_rec_type
626 ) is
627 --
628 l_proc varchar2(72) := g_package||'upd';
629 --
630 Begin
631 hr_utility.set_location('Entering:'||l_proc, 5);
632 --
633 -- We must lock the row which we need to update.
634 --
635 per_psp_shd.lck
636 (p_rec.spinal_point_id
637 ,p_rec.object_version_number
638 );
639 --
640 -- 1. During an update system defaults are used to determine if
641 -- arguments have been defaulted or not. We must therefore
642 -- derive the full record structure values to be updated.
643 --
644 -- 2. Call the supporting update validate operations.
645 --
646 convert_defs(p_rec);
647 per_psp_bus.update_validate
648 (p_effective_date
649 ,p_rec
650 );
651 --
652 -- Call to raise any errors on multi-message list
653 hr_multi_message.end_validation_set;
654 --
655 -- Call the supporting pre-update operation
656 --
657 per_psp_upd.pre_update(p_rec);
658 --
659 -- Update the row.
660 --
661 per_psp_upd.update_dml(p_rec);
662 --
663 -- Call the supporting post-update operation
664 --
665 per_psp_upd.post_update
666 (p_effective_date
667 ,p_rec
668 );
669 --
670 -- Call to raise any errors on multi-message list
671 hr_multi_message.end_validation_set;
672 End upd;
673 --
674 -- ----------------------------------------------------------------------------
675 -- |---------------------------------< upd >----------------------------------|
676 -- ----------------------------------------------------------------------------
677 Procedure upd
678 (p_effective_date in date
679 ,p_spinal_point_id in number
680 ,p_object_version_number in out nocopy number
681 ,p_business_group_id in number default hr_api.g_number
682 ,p_parent_spine_id in number default hr_api.g_number
683 ,p_sequence in number default hr_api.g_number
684 ,p_spinal_point in varchar2 default hr_api.g_varchar2
685 ,p_request_id in number default hr_api.g_number
686 ,p_program_application_id in number default hr_api.g_number
687 ,p_program_id in number default hr_api.g_number
688 ,p_program_update_date in date default hr_api.g_date
689 ,p_information_category in varchar2 default hr_api.g_varchar2
690 ,p_information1 in varchar2 default hr_api.g_varchar2
691 ,p_information2 in varchar2 default hr_api.g_varchar2
692 ,p_information3 in varchar2 default hr_api.g_varchar2
693 ,p_information4 in varchar2 default hr_api.g_varchar2
694 ,p_information5 in varchar2 default hr_api.g_varchar2
695 ,p_information6 in varchar2 default hr_api.g_varchar2
696 ,p_information7 in varchar2 default hr_api.g_varchar2
697 ,p_information8 in varchar2 default hr_api.g_varchar2
698 ,p_information9 in varchar2 default hr_api.g_varchar2
699 ,p_information10 in varchar2 default hr_api.g_varchar2
700 ,p_information11 in varchar2 default hr_api.g_varchar2
701 ,p_information12 in varchar2 default hr_api.g_varchar2
702 ,p_information13 in varchar2 default hr_api.g_varchar2
703 ,p_information14 in varchar2 default hr_api.g_varchar2
704 ,p_information15 in varchar2 default hr_api.g_varchar2
705 ,p_information16 in varchar2 default hr_api.g_varchar2
706 ,p_information17 in varchar2 default hr_api.g_varchar2
707 ,p_information18 in varchar2 default hr_api.g_varchar2
708 ,p_information19 in varchar2 default hr_api.g_varchar2
709 ,p_information20 in varchar2 default hr_api.g_varchar2
710 ,p_information21 in varchar2 default hr_api.g_varchar2
711 ,p_information22 in varchar2 default hr_api.g_varchar2
712 ,p_information23 in varchar2 default hr_api.g_varchar2
713 ,p_information24 in varchar2 default hr_api.g_varchar2
714 ,p_information25 in varchar2 default hr_api.g_varchar2
715 ,p_information26 in varchar2 default hr_api.g_varchar2
716 ,p_information27 in varchar2 default hr_api.g_varchar2
717 ,p_information28 in varchar2 default hr_api.g_varchar2
718 ,p_information29 in varchar2 default hr_api.g_varchar2
719 ,p_information30 in varchar2 default hr_api.g_varchar2
720 ) is
721 --
722 l_rec per_psp_shd.g_rec_type;
723 l_proc varchar2(72) := g_package||'upd';
724 --
725 Begin
726 hr_utility.set_location('Entering:'||l_proc, 5);
727 --
728 -- Call conversion function to turn arguments into the
729 -- l_rec structure.
730 --
731 l_rec :=
732 per_psp_shd.convert_args
733 (p_spinal_point_id
734 ,p_business_group_id
735 ,p_parent_spine_id
736 ,p_sequence
737 ,p_spinal_point
738 ,p_request_id
739 ,p_program_application_id
740 ,p_program_id
741 ,p_program_update_date
742 ,p_object_version_number
743 ,p_information_category
744 ,p_information1
745 ,p_information2
746 ,p_information3
747 ,p_information4
748 ,p_information5
749 ,p_information6
750 ,p_information7
751 ,p_information8
752 ,p_information9
753 ,p_information10
754 ,p_information11
755 ,p_information12
756 ,p_information13
757 ,p_information14
758 ,p_information15
759 ,p_information16
760 ,p_information17
761 ,p_information18
762 ,p_information19
763 ,p_information20
764 ,p_information21
765 ,p_information22
766 ,p_information23
767 ,p_information24
768 ,p_information25
769 ,p_information26
770 ,p_information27
771 ,p_information28
772 ,p_information29
773 ,p_information30
774 );
775 --
776 -- Having converted the arguments into the
777 -- plsql record structure we call the corresponding record
778 -- business process.
779 --
780 per_psp_upd.upd
781 (p_effective_date
782 ,l_rec
783 );
784 p_object_version_number := l_rec.object_version_number;
785 --
786 hr_utility.set_location(' Leaving:'||l_proc, 10);
787 End upd;
788 --
789 end per_psp_upd;