DBA Data[Home] [Help]

PACKAGE BODY: APPS.PER_PST_UPD

Source


1 Package Body per_pst_upd as
2 /* $Header: pepstrhi.pkb 115.6 2002/12/04 17:14:16 eumenyio noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := '  per_pst_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_pst_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_pst_shd.g_api_dml := true;  -- Set the api dml status
67   --
68   -- Update the per_position_structures Row
69   --
70   update per_position_structures
71     set
72      position_structure_id           = p_rec.position_structure_id
73     ,business_group_id               = p_rec.business_group_id
74     ,name                            = p_rec.name
75     ,comments                        = p_rec.comments
76     ,primary_position_flag           = p_rec.primary_position_flag
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     ,attribute_category              = p_rec.attribute_category
82     ,attribute1                      = p_rec.attribute1
83     ,attribute2                      = p_rec.attribute2
84     ,attribute3                      = p_rec.attribute3
85     ,attribute4                      = p_rec.attribute4
86     ,attribute5                      = p_rec.attribute5
87     ,attribute6                      = p_rec.attribute6
88     ,attribute7                      = p_rec.attribute7
89     ,attribute8                      = p_rec.attribute8
90     ,attribute9                      = p_rec.attribute9
91     ,attribute10                     = p_rec.attribute10
92     ,attribute11                     = p_rec.attribute11
93     ,attribute12                     = p_rec.attribute12
94     ,attribute13                     = p_rec.attribute13
95     ,attribute14                     = p_rec.attribute14
96     ,attribute15                     = p_rec.attribute15
97     ,attribute16                     = p_rec.attribute16
98     ,attribute17                     = p_rec.attribute17
99     ,attribute18                     = p_rec.attribute18
100     ,attribute19                     = p_rec.attribute19
101     ,attribute20                     = p_rec.attribute20
102     ,object_version_number           = p_rec.object_version_number
103     where position_structure_id = p_rec.position_structure_id;
104   --
105   per_pst_shd.g_api_dml := false;   -- Unset the api dml status
106   --
107   hr_utility.set_location(' Leaving:'||l_proc, 10);
108 --
109 Exception
110   When hr_api.check_integrity_violated Then
111     -- A check constraint has been violated
112     per_pst_shd.g_api_dml := false;   -- Unset the api dml status
113     per_pst_shd.constraint_error
114       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115   When hr_api.parent_integrity_violated Then
116     -- Parent integrity has been violated
117     per_pst_shd.g_api_dml := false;   -- Unset the api dml status
118     per_pst_shd.constraint_error
119       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120   When hr_api.unique_integrity_violated Then
121     -- Unique integrity has been violated
122     per_pst_shd.g_api_dml := false;   -- Unset the api dml status
123     per_pst_shd.constraint_error
124       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125   When Others Then
126     per_pst_shd.g_api_dml := false;   -- Unset the api dml status
127     Raise;
128 End update_dml;
129 --
130 -- ----------------------------------------------------------------------------
131 -- |------------------------------< pre_update >------------------------------|
132 -- ----------------------------------------------------------------------------
133 -- {Start Of Comments}
134 --
135 -- Description:
136 --   This private procedure contains any processing which is required before
137 --   the update dml.
138 --
139 -- Prerequisites:
140 --   This is an internal procedure which is called from the upd procedure.
141 --
142 -- In Parameters:
143 --   A Pl/Sql record structure.
144 --
145 -- Post Success:
146 --   Processing continues.
147 --
148 -- Post Failure:
149 --   If an error has occurred, an error message and exception wil be raised
150 --   but not handled.
151 --
152 -- Developer Implementation Notes:
153 --   Any pre-processing required before the update dml is issued should be
154 --   coded within this procedure. It is important to note that any 3rd party
155 --   maintenance should be reviewed before placing in this procedure.
156 --
157 -- Access Status:
158 --   Internal Row Handler Use Only.
159 --
160 -- {End Of Comments}
161 -- ----------------------------------------------------------------------------
162 Procedure pre_update
163   (p_rec in per_pst_shd.g_rec_type
164   ) is
165 --
166   l_proc  varchar2(72) := g_package||'pre_update';
167 --
168 Begin
169   hr_utility.set_location('Entering:'||l_proc, 5);
170   --
171   hr_utility.set_location(' Leaving:'||l_proc, 10);
172 End pre_update;
173 --
174 -- ----------------------------------------------------------------------------
175 -- |-----------------------------< post_update >------------------------------|
176 -- ----------------------------------------------------------------------------
177 -- {Start Of Comments}
178 --
179 -- Description:
180 --   This private procedure contains any processing which is required after
181 --   the update dml.
182 --
183 -- Prerequisites:
184 --   This is an internal procedure which is called from the upd procedure.
185 --
186 -- In Parameters:
187 --   A Pl/Sql record structure.
188 --
189 -- Post Success:
190 --   Processing continues.
191 --
192 -- Post Failure:
193 --   If an error has occurred, an error message and exception will be raised
194 --   but not handled.
195 --
196 -- Developer Implementation Notes:
197 --   Any post-processing required after the update dml is issued should be
198 --   coded within this procedure. It is important to note that any 3rd party
199 --   maintenance should be reviewed before placing in this procedure.
200 --
201 -- Access Status:
202 --   Internal Row Handler Use Only.
203 --
204 -- {End Of Comments}
205 -- ----------------------------------------------------------------------------
206 Procedure post_update
207   (p_effective_date               in date
208   ,p_rec                          in per_pst_shd.g_rec_type
209   ) is
210 --
211   l_proc  varchar2(72) := g_package||'post_update';
212 --
213 Begin
214   hr_utility.set_location('Entering:'||l_proc, 5);
215   begin
216     --
217     per_pst_rku.after_update
218       (p_effective_date              => p_effective_date
219       ,p_position_structure_id
220       => p_rec.position_structure_id
221       ,p_business_group_id
222       => p_rec.business_group_id
223       ,p_name
224       => p_rec.name
225       ,p_comments
226       => p_rec.comments
227       ,p_primary_position_flag
228       => p_rec.primary_position_flag
229       ,p_request_id
230       => p_rec.request_id
231       ,p_program_application_id
232       => p_rec.program_application_id
233       ,p_program_id
234       => p_rec.program_id
235       ,p_program_update_date
236       => p_rec.program_update_date
237       ,p_attribute_category
238       => p_rec.attribute_category
239       ,p_attribute1
240       => p_rec.attribute1
241       ,p_attribute2
242       => p_rec.attribute2
243       ,p_attribute3
244       => p_rec.attribute3
245       ,p_attribute4
246       => p_rec.attribute4
247       ,p_attribute5
248       => p_rec.attribute5
249       ,p_attribute6
250       => p_rec.attribute6
251       ,p_attribute7
252       => p_rec.attribute7
253       ,p_attribute8
254       => p_rec.attribute8
255       ,p_attribute9
256       => p_rec.attribute9
257       ,p_attribute10
258       => p_rec.attribute10
259       ,p_attribute11
260       => p_rec.attribute11
261       ,p_attribute12
262       => p_rec.attribute12
263       ,p_attribute13
264       => p_rec.attribute13
265       ,p_attribute14
266       => p_rec.attribute14
267       ,p_attribute15
268       => p_rec.attribute15
269       ,p_attribute16
270       => p_rec.attribute16
271       ,p_attribute17
272       => p_rec.attribute17
273       ,p_attribute18
274       => p_rec.attribute18
275       ,p_attribute19
276       => p_rec.attribute19
277       ,p_attribute20
278       => p_rec.attribute20
279       ,p_object_version_number
280       => p_rec.object_version_number
281       ,p_business_group_id_o
282       => per_pst_shd.g_old_rec.business_group_id
283       ,p_name_o
284       => per_pst_shd.g_old_rec.name
285       ,p_comments_o
286       => per_pst_shd.g_old_rec.comments
287       ,p_primary_position_flag_o
288       => per_pst_shd.g_old_rec.primary_position_flag
289       ,p_request_id_o
290       => per_pst_shd.g_old_rec.request_id
291       ,p_program_application_id_o
292       => per_pst_shd.g_old_rec.program_application_id
293       ,p_program_id_o
294       => per_pst_shd.g_old_rec.program_id
295       ,p_program_update_date_o
296       => per_pst_shd.g_old_rec.program_update_date
297       ,p_attribute_category_o
298       => per_pst_shd.g_old_rec.attribute_category
299       ,p_attribute1_o
300       => per_pst_shd.g_old_rec.attribute1
301       ,p_attribute2_o
302       => per_pst_shd.g_old_rec.attribute2
303       ,p_attribute3_o
304       => per_pst_shd.g_old_rec.attribute3
305       ,p_attribute4_o
306       => per_pst_shd.g_old_rec.attribute4
307       ,p_attribute5_o
308       => per_pst_shd.g_old_rec.attribute5
309       ,p_attribute6_o
310       => per_pst_shd.g_old_rec.attribute6
311       ,p_attribute7_o
312       => per_pst_shd.g_old_rec.attribute7
313       ,p_attribute8_o
314       => per_pst_shd.g_old_rec.attribute8
315       ,p_attribute9_o
316       => per_pst_shd.g_old_rec.attribute9
317       ,p_attribute10_o
318       => per_pst_shd.g_old_rec.attribute10
319       ,p_attribute11_o
320       => per_pst_shd.g_old_rec.attribute11
321       ,p_attribute12_o
322       => per_pst_shd.g_old_rec.attribute12
323       ,p_attribute13_o
324       => per_pst_shd.g_old_rec.attribute13
325       ,p_attribute14_o
326       => per_pst_shd.g_old_rec.attribute14
327       ,p_attribute15_o
328       => per_pst_shd.g_old_rec.attribute15
329       ,p_attribute16_o
330       => per_pst_shd.g_old_rec.attribute16
331       ,p_attribute17_o
332       => per_pst_shd.g_old_rec.attribute17
333       ,p_attribute18_o
334       => per_pst_shd.g_old_rec.attribute18
335       ,p_attribute19_o
336       => per_pst_shd.g_old_rec.attribute19
337       ,p_attribute20_o
338       => per_pst_shd.g_old_rec.attribute20
339       ,p_object_version_number_o
340       => per_pst_shd.g_old_rec.object_version_number
341       );
342     --
343   exception
344     --
345     when hr_api.cannot_find_prog_unit then
346       --
347       hr_api.cannot_find_prog_unit_error
348         (p_module_name => 'PER_POSITION_STRUCTURES'
349         ,p_hook_type   => 'AU');
350       --
351   end;
352   --
353   hr_utility.set_location(' Leaving:'||l_proc, 10);
354 End post_update;
355 --
356 -- ----------------------------------------------------------------------------
357 -- |-----------------------------< convert_defs >-----------------------------|
361 -- Description:
358 -- ----------------------------------------------------------------------------
359 -- {Start Of Comments}
360 --
362 --   The Convert_Defs procedure has one very important function:
363 --   It must return the record structure for the row with all system defaulted
364 --   values converted into its corresponding parameter value for update. When
365 --   we attempt to update a row through the Upd process , certain
366 --   parameters can be defaulted which enables flexibility in the calling of
367 --   the upd process (e.g. only attributes which need to be updated need to be
368 --   specified). For the upd process to determine which attributes
369 --   have NOT been specified we need to check if the parameter has a reserved
370 --   system default value. Therefore, for all parameters which have a
371 --   corresponding reserved system default mechanism specified we need to
372 --   check if a system default is being used. If a system default is being
373 --   used then we convert the defaulted value into its corresponding attribute
374 --   value held in the g_old_rec data structure.
375 --
376 -- Prerequisites:
377 --   This private function can only be called from the upd process.
378 --
379 -- In Parameters:
380 --   A Pl/Sql record structure.
381 --
382 -- Post Success:
383 --   The record structure will be returned with all system defaulted parameter
384 --   values converted into its current row attribute value.
385 --
386 -- Post Failure:
387 --   No direct error handling is required within this function. Any possible
388 --   errors within this procedure will be a PL/SQL value error due to
389 --   conversion of datatypes or data lengths.
390 --
391 -- Developer Implementation Notes:
392 --   None.
393 --
394 -- Access Status:
395 --   Internal Row Handler Use Only.
396 --
397 -- {End Of Comments}
398 -- ----------------------------------------------------------------------------
399 Procedure convert_defs
400   (p_rec in out nocopy per_pst_shd.g_rec_type
401   ) is
402 --
403 Begin
404   --
405   -- We must now examine each argument value in the
406   -- p_rec plsql record structure
407   -- to see if a system default is being used. If a system default
408   -- is being used then we must set to the 'current' argument value.
409   --
410   If (p_rec.business_group_id = hr_api.g_number) then
411     p_rec.business_group_id :=
412     per_pst_shd.g_old_rec.business_group_id;
413   End If;
414   If (p_rec.name = hr_api.g_varchar2) then
415     p_rec.name :=
416     per_pst_shd.g_old_rec.name;
417   End If;
418   If (p_rec.comments = hr_api.g_varchar2) then
419     p_rec.comments :=
420     per_pst_shd.g_old_rec.comments;
421   End If;
422   If (p_rec.primary_position_flag = hr_api.g_varchar2) then
423     p_rec.primary_position_flag :=
424     per_pst_shd.g_old_rec.primary_position_flag;
425   End If;
426   If (p_rec.request_id = hr_api.g_number) then
427     p_rec.request_id :=
428     per_pst_shd.g_old_rec.request_id;
429   End If;
430   If (p_rec.program_application_id = hr_api.g_number) then
431     p_rec.program_application_id :=
432     per_pst_shd.g_old_rec.program_application_id;
433   End If;
434   If (p_rec.program_id = hr_api.g_number) then
435     p_rec.program_id :=
436     per_pst_shd.g_old_rec.program_id;
437   End If;
438   If (p_rec.program_update_date = hr_api.g_date) then
439     p_rec.program_update_date :=
440     per_pst_shd.g_old_rec.program_update_date;
441   End If;
442   If (p_rec.attribute_category = hr_api.g_varchar2) then
443     p_rec.attribute_category :=
444     per_pst_shd.g_old_rec.attribute_category;
445   End If;
446   If (p_rec.attribute1 = hr_api.g_varchar2) then
447     p_rec.attribute1 :=
448     per_pst_shd.g_old_rec.attribute1;
449   End If;
450   If (p_rec.attribute2 = hr_api.g_varchar2) then
451     p_rec.attribute2 :=
452     per_pst_shd.g_old_rec.attribute2;
453   End If;
454   If (p_rec.attribute3 = hr_api.g_varchar2) then
455     p_rec.attribute3 :=
456     per_pst_shd.g_old_rec.attribute3;
457   End If;
458   If (p_rec.attribute4 = hr_api.g_varchar2) then
459     p_rec.attribute4 :=
460     per_pst_shd.g_old_rec.attribute4;
461   End If;
462   If (p_rec.attribute5 = hr_api.g_varchar2) then
463     p_rec.attribute5 :=
464     per_pst_shd.g_old_rec.attribute5;
465   End If;
466   If (p_rec.attribute6 = hr_api.g_varchar2) then
467     p_rec.attribute6 :=
468     per_pst_shd.g_old_rec.attribute6;
469   End If;
470   If (p_rec.attribute7 = hr_api.g_varchar2) then
471     p_rec.attribute7 :=
472     per_pst_shd.g_old_rec.attribute7;
473   End If;
474   If (p_rec.attribute8 = hr_api.g_varchar2) then
475     p_rec.attribute8 :=
476     per_pst_shd.g_old_rec.attribute8;
477   End If;
478   If (p_rec.attribute9 = hr_api.g_varchar2) then
479     p_rec.attribute9 :=
480     per_pst_shd.g_old_rec.attribute9;
481   End If;
482   If (p_rec.attribute10 = hr_api.g_varchar2) then
483     p_rec.attribute10 :=
484     per_pst_shd.g_old_rec.attribute10;
485   End If;
486   If (p_rec.attribute11 = hr_api.g_varchar2) then
487     p_rec.attribute11 :=
488     per_pst_shd.g_old_rec.attribute11;
489   End If;
490   If (p_rec.attribute12 = hr_api.g_varchar2) then
494   If (p_rec.attribute13 = hr_api.g_varchar2) then
491     p_rec.attribute12 :=
492     per_pst_shd.g_old_rec.attribute12;
493   End If;
495     p_rec.attribute13 :=
496     per_pst_shd.g_old_rec.attribute13;
497   End If;
498   If (p_rec.attribute14 = hr_api.g_varchar2) then
499     p_rec.attribute14 :=
500     per_pst_shd.g_old_rec.attribute14;
501   End If;
502   If (p_rec.attribute15 = hr_api.g_varchar2) then
503     p_rec.attribute15 :=
504     per_pst_shd.g_old_rec.attribute15;
505   End If;
506   If (p_rec.attribute16 = hr_api.g_varchar2) then
507     p_rec.attribute16 :=
508     per_pst_shd.g_old_rec.attribute16;
509   End If;
510   If (p_rec.attribute17 = hr_api.g_varchar2) then
511     p_rec.attribute17 :=
512     per_pst_shd.g_old_rec.attribute17;
513   End If;
514   If (p_rec.attribute18 = hr_api.g_varchar2) then
515     p_rec.attribute18 :=
516     per_pst_shd.g_old_rec.attribute18;
517   End If;
518   If (p_rec.attribute19 = hr_api.g_varchar2) then
519     p_rec.attribute19 :=
520     per_pst_shd.g_old_rec.attribute19;
521   End If;
522   If (p_rec.attribute20 = hr_api.g_varchar2) then
523     p_rec.attribute20 :=
524     per_pst_shd.g_old_rec.attribute20;
525   End If;
526   --
527 End convert_defs;
528 --
529 -- ----------------------------------------------------------------------------
530 -- |---------------------------------< upd >----------------------------------|
531 -- ----------------------------------------------------------------------------
532 Procedure upd
533   (p_effective_date               in date
534   ,p_rec                          in out nocopy per_pst_shd.g_rec_type
535   ) is
536 --
537   l_proc  varchar2(72) := g_package||'upd';
538 --
539 Begin
540   hr_utility.set_location('Entering:'||l_proc, 5);
541   --
542   -- We must lock the row which we need to update.
543   --
544   per_pst_shd.lck
545     (p_rec.position_structure_id
546     ,p_rec.object_version_number
547     );
548   --
549   -- 1. During an update system defaults are used to determine if
550   --    arguments have been defaulted or not. We must therefore
551   --    derive the full record structure values to be updated.
552   --
553   -- 2. Call the supporting update validate operations.
554   --
555   convert_defs(p_rec);
556   per_pst_bus.update_validate
557      (p_effective_date
558      ,p_rec
559      );
560   --
561   -- Call the supporting pre-update operation
562   --
563   per_pst_upd.pre_update(p_rec);
564   --
565   -- Update the row.
566   --
567   per_pst_upd.update_dml(p_rec);
568   --
569   -- Call the supporting post-update operation
570   --
571   per_pst_upd.post_update
572      (p_effective_date
573      ,p_rec
574      );
575 End upd;
576 --
577 -- ----------------------------------------------------------------------------
578 -- |---------------------------------< upd >----------------------------------|
579 -- ----------------------------------------------------------------------------
580 Procedure upd
581   (p_effective_date               in     date
582   ,p_position_structure_id        in     number
583   ,p_object_version_number        in out nocopy number
584   ,p_business_group_id            in     number    default hr_api.g_number
585   ,p_name                         in     varchar2  default hr_api.g_varchar2
586   ,p_comments                     in     varchar2  default hr_api.g_varchar2
587   ,p_primary_position_flag        in     varchar2  default hr_api.g_varchar2
588   ,p_request_id                   in     number    default hr_api.g_number
589   ,p_program_application_id       in     number    default hr_api.g_number
590   ,p_program_id                   in     number    default hr_api.g_number
591   ,p_program_update_date          in     date      default hr_api.g_date
592   ,p_attribute_category           in     varchar2  default hr_api.g_varchar2
593   ,p_attribute1                   in     varchar2  default hr_api.g_varchar2
594   ,p_attribute2                   in     varchar2  default hr_api.g_varchar2
595   ,p_attribute3                   in     varchar2  default hr_api.g_varchar2
596   ,p_attribute4                   in     varchar2  default hr_api.g_varchar2
597   ,p_attribute5                   in     varchar2  default hr_api.g_varchar2
598   ,p_attribute6                   in     varchar2  default hr_api.g_varchar2
599   ,p_attribute7                   in     varchar2  default hr_api.g_varchar2
600   ,p_attribute8                   in     varchar2  default hr_api.g_varchar2
601   ,p_attribute9                   in     varchar2  default hr_api.g_varchar2
602   ,p_attribute10                  in     varchar2  default hr_api.g_varchar2
603   ,p_attribute11                  in     varchar2  default hr_api.g_varchar2
604   ,p_attribute12                  in     varchar2  default hr_api.g_varchar2
605   ,p_attribute13                  in     varchar2  default hr_api.g_varchar2
606   ,p_attribute14                  in     varchar2  default hr_api.g_varchar2
607   ,p_attribute15                  in     varchar2  default hr_api.g_varchar2
608   ,p_attribute16                  in     varchar2  default hr_api.g_varchar2
609   ,p_attribute17                  in     varchar2  default hr_api.g_varchar2
610   ,p_attribute18                  in     varchar2  default hr_api.g_varchar2
611   ,p_attribute19                  in     varchar2  default hr_api.g_varchar2
615   l_rec   per_pst_shd.g_rec_type;
612   ,p_attribute20                  in     varchar2  default hr_api.g_varchar2
613   ) is
614 --
616   l_proc  varchar2(72) := g_package||'upd';
617 --
618 Begin
619   hr_utility.set_location('Entering:'||l_proc, 5);
620   --
621   -- Call conversion function to turn arguments into the
622   -- l_rec structure.
623   --
624   l_rec :=
625   per_pst_shd.convert_args
626   (p_position_structure_id
627   ,p_business_group_id
628   ,p_name
629   ,p_comments
630   ,p_primary_position_flag
631   ,p_request_id
632   ,p_program_application_id
633   ,p_program_id
634   ,p_program_update_date
635   ,p_attribute_category
636   ,p_attribute1
637   ,p_attribute2
638   ,p_attribute3
639   ,p_attribute4
640   ,p_attribute5
641   ,p_attribute6
642   ,p_attribute7
643   ,p_attribute8
644   ,p_attribute9
645   ,p_attribute10
646   ,p_attribute11
647   ,p_attribute12
648   ,p_attribute13
649   ,p_attribute14
650   ,p_attribute15
651   ,p_attribute16
652   ,p_attribute17
653   ,p_attribute18
654   ,p_attribute19
655   ,p_attribute20
656   ,p_object_version_number
657   );
658   --
659   -- Having converted the arguments into the
660   -- plsql record structure we call the corresponding record
661   -- business process.
662   --
663   per_pst_upd.upd
664      (p_effective_date
665      ,l_rec
666      );
667   p_object_version_number := l_rec.object_version_number;
668   --
669   hr_utility.set_location(' Leaving:'||l_proc, 10);
670 End upd;
671 --
672 end per_pst_upd;