DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_CLP_UPD

Source


1 Package Body ben_clp_upd as
2 /* $Header: beclprhi.pkb 120.0.12010000.2 2008/08/05 14:17:49 ubhat ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  ben_clp_upd.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |----------------------------< dt_update_dml >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 --   This procedure controls the execution of dml from the datetrack mode
17 --   of CORRECTION only. It is important to note that the object version
18 --   number is only increment by 1 because the datetrack correction is
19 --   soley for one datetracked row.
20 --   This procedure controls the actual dml update logic. The functions of this
21 --   procedure are as follows:
22 --   1) Get the next object_version_number.
23 --   2) To set and unset the g_api_dml status as required (as we are about to
24 --      perform dml).
25 --   3) To update the specified row in the schema using the primary key in
26 --      the predicates.
27 --   4) To trap any constraint violations that may have occurred.
28 --   5) To raise any other errors.
29 --
30 -- Prerequisites:
31 --   This is an internal private procedure which must be called from the
32 --   update_dml procedure.
33 --
34 -- In Parameters:
35 --   A Pl/Sql record structre.
36 --
37 -- Post Success:
38 --   The specified row will be updated in the schema.
39 --
40 -- Post Failure:
41 --   On the update dml failure it is important to note that we always reset the
42 --   g_api_dml status to false.
43 --   If a check or unique integrity constraint violation is raised the
44 --   constraint_error procedure will be called.
45 --   If any other error is reported, the error will be raised after the
46 --   g_api_dml status is reset.
47 --
48 -- Developer Implementation Notes:
49 --   The update 'set' arguments list should be modified if any of your
50 --   attributes are not updateable.
51 --
52 -- Access Status:
53 --   Internal Row Handler Use Only.
54 --
55 -- {End Of Comments}
56 -- ----------------------------------------------------------------------------
57 Procedure dt_update_dml
58 	(p_rec 			 in out nocopy ben_clp_shd.g_rec_type,
59 	 p_effective_date	 in	date,
60 	 p_datetrack_mode	 in	varchar2,
61 	 p_validation_start_date in	date,
62 	 p_validation_end_date	 in	date) is
63 --
64   l_proc	varchar2(72) := g_package||'dt_update_dml';
65 --
66 Begin
67   hr_utility.set_location('Entering:'||l_proc, 5);
68   --
69   If (p_datetrack_mode = 'CORRECTION') then
70     hr_utility.set_location(l_proc, 10);
71     --
72     -- Because we are updating a row we must get the next object
73     -- version number.
74     --
75     p_rec.object_version_number :=
76       dt_api.get_object_version_number
77 	  (p_base_table_name	=> 'ben_clpse_lf_evt_f',
78 	   p_base_key_column	=> 'clpse_lf_evt_id',
79 	   p_base_key_value	=> p_rec.clpse_lf_evt_id);
80     --
81     ben_clp_shd.g_api_dml := true;  -- Set the api dml status
82     --
83     -- Update the ben_clpse_lf_evt_f Row
84     --
85     update  ben_clpse_lf_evt_f
86     set
87     clpse_lf_evt_id                 = p_rec.clpse_lf_evt_id,
88     business_group_id               = p_rec.business_group_id,
89     seq                             = p_rec.seq,
90     ler1_id                         = p_rec.ler1_id,
91     bool1_cd                        = p_rec.bool1_cd,
92     ler2_id                         = p_rec.ler2_id,
93     bool2_cd                        = p_rec.bool2_cd,
94     ler3_id                         = p_rec.ler3_id,
95     bool3_cd                        = p_rec.bool3_cd,
96     ler4_id                         = p_rec.ler4_id,
97     bool4_cd                        = p_rec.bool4_cd,
98     ler5_id                         = p_rec.ler5_id,
99     bool5_cd                        = p_rec.bool5_cd,
100     ler6_id                         = p_rec.ler6_id,
101     bool6_cd                        = p_rec.bool6_cd,
102     ler7_id                         = p_rec.ler7_id,
103     bool7_cd                        = p_rec.bool7_cd,
104     ler8_id                         = p_rec.ler8_id,
105     bool8_cd                        = p_rec.bool8_cd,
106     ler9_id                         = p_rec.ler9_id,
107     bool9_cd                        = p_rec.bool9_cd,
108     ler10_id                        = p_rec.ler10_id,
109     eval_cd                         = p_rec.eval_cd,
110     eval_rl                         = p_rec.eval_rl,
111     tlrnc_dys_num                   = p_rec.tlrnc_dys_num,
112     eval_ler_id                     = p_rec.eval_ler_id,
113     eval_ler_det_cd                 = p_rec.eval_ler_det_cd,
114     eval_ler_det_rl                 = p_rec.eval_ler_det_rl,
115     clp_attribute_category          = p_rec.clp_attribute_category,
116     clp_attribute1                  = p_rec.clp_attribute1,
117     clp_attribute2                  = p_rec.clp_attribute2,
118     clp_attribute3                  = p_rec.clp_attribute3,
119     clp_attribute4                  = p_rec.clp_attribute4,
120     clp_attribute5                  = p_rec.clp_attribute5,
121     clp_attribute6                  = p_rec.clp_attribute6,
122     clp_attribute7                  = p_rec.clp_attribute7,
123     clp_attribute8                  = p_rec.clp_attribute8,
124     clp_attribute9                  = p_rec.clp_attribute9,
125     clp_attribute10                 = p_rec.clp_attribute10,
126     clp_attribute11                 = p_rec.clp_attribute11,
127     clp_attribute12                 = p_rec.clp_attribute12,
128     clp_attribute13                 = p_rec.clp_attribute13,
129     clp_attribute14                 = p_rec.clp_attribute14,
130     clp_attribute15                 = p_rec.clp_attribute15,
131     clp_attribute16                 = p_rec.clp_attribute16,
132     clp_attribute17                 = p_rec.clp_attribute17,
133     clp_attribute18                 = p_rec.clp_attribute18,
134     clp_attribute19                 = p_rec.clp_attribute19,
135     clp_attribute20                 = p_rec.clp_attribute20,
136     clp_attribute21                 = p_rec.clp_attribute21,
137     clp_attribute22                 = p_rec.clp_attribute22,
138     clp_attribute23                 = p_rec.clp_attribute23,
139     clp_attribute24                 = p_rec.clp_attribute24,
140     clp_attribute25                 = p_rec.clp_attribute25,
141     clp_attribute26                 = p_rec.clp_attribute26,
142     clp_attribute27                 = p_rec.clp_attribute27,
143     clp_attribute28                 = p_rec.clp_attribute28,
144     clp_attribute29                 = p_rec.clp_attribute29,
145     clp_attribute30                 = p_rec.clp_attribute30,
146     object_version_number           = p_rec.object_version_number
147     where   clpse_lf_evt_id = p_rec.clpse_lf_evt_id
148     and     effective_start_date = p_validation_start_date
149     and     effective_end_date   = p_validation_end_date;
150     --
151     ben_clp_shd.g_api_dml := false;   -- Unset the api dml status
152     --
153     -- Set the effective start and end dates
154     --
155     p_rec.effective_start_date := p_validation_start_date;
156     p_rec.effective_end_date   := p_validation_end_date;
157   End If;
158 --
159 hr_utility.set_location(' Leaving:'||l_proc, 15);
160 Exception
161   When hr_api.check_integrity_violated Then
162     -- A check constraint has been violated
163     ben_clp_shd.g_api_dml := false;   -- Unset the api dml status
164     ben_clp_shd.constraint_error
165       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166   When hr_api.unique_integrity_violated Then
167     -- Unique integrity has been violated
168     ben_clp_shd.g_api_dml := false;   -- Unset the api dml status
169     ben_clp_shd.constraint_error
170       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171   When Others Then
172     ben_clp_shd.g_api_dml := false;   -- Unset the api dml status
173     Raise;
174 End dt_update_dml;
175 --
176 -- ----------------------------------------------------------------------------
177 -- |------------------------------< update_dml >------------------------------|
178 -- ----------------------------------------------------------------------------
179 -- {Start Of Comments}
180 --
181 -- Description:
182 --   This procedure calls the dt_update_dml control logic which handles
183 --   the actual datetrack dml.
184 --
185 -- Prerequisites:
186 --   This is an internal private procedure which must be called from the upd
187 --   procedure.
188 --
189 -- In Parameters:
190 --   A Pl/Sql record structre.
191 --
192 -- Post Success:
193 --   Processing contines.
194 --
195 -- Post Failure:
196 --   No specific error handling is required within this procedure.
197 --
198 -- Developer Implementation Notes:
199 --   The update 'set' arguments list should be modified if any of your
200 --   attributes are not updateable.
201 --
202 -- Access Status:
203 --   Internal Row Handler Use Only.
204 --
205 -- {End Of Comments}
206 -- ----------------------------------------------------------------------------
207 Procedure update_dml
208 	(p_rec 			 in out nocopy ben_clp_shd.g_rec_type,
209 	 p_effective_date	 in	date,
210 	 p_datetrack_mode	 in	varchar2,
211 	 p_validation_start_date in	date,
212 	 p_validation_end_date	 in	date) is
213 --
214   l_proc	varchar2(72) := g_package||'update_dml';
215 --
216 Begin
217   hr_utility.set_location('Entering:'||l_proc, 5);
218   --
219   dt_update_dml(p_rec			=> p_rec,
220 		p_effective_date	=> p_effective_date,
221 		p_datetrack_mode	=> p_datetrack_mode,
222        		p_validation_start_date	=> p_validation_start_date,
223 		p_validation_end_date	=> p_validation_end_date);
224   --
225   hr_utility.set_location(' Leaving:'||l_proc, 10);
226 End update_dml;
227 --
228 -- ----------------------------------------------------------------------------
229 -- |----------------------------< dt_pre_update >-----------------------------|
230 -- ----------------------------------------------------------------------------
231 -- {Start Of Comments}
232 --
233 -- Description:
234 --   The dt_pre_update procedure controls the execution
235 --   of dml for the datetrack modes of: UPDATE, UPDATE_OVERRIDE
236 --   and UPDATE_CHANGE_INSERT only. The execution required is as
237 --   follows:
238 --
239 --   1) Providing the datetrack update mode is not 'CORRECTION'
240 --      then set the effective end date of the current row (this
241 --      will be the validation_start_date - 1).
242 --   2) If the datetrack mode is 'UPDATE_OVERRIDE' then call the
243 --      corresponding delete_dml process to delete any future rows
244 --      where the effective_start_date is greater than or equal to
245 --	the validation_start_date.
246 --   3) Call the insert_dml process to insert the new updated row
247 --      details..
248 --
249 -- Prerequisites:
250 --   This is an internal procedure which is called from the
251 --   pre_update procedure.
252 --
253 -- In Parameters:
254 --
255 -- Post Success:
256 --   Processing continues.
257 --
258 -- Post Failure:
259 --   If an error has occurred, an error message and exception will be raised
260 --   but not handled.
261 --
262 -- Developer Implementation Notes:
263 --   This is an internal procedure which is required by Datetrack. Don't
264 --   remove or modify.
265 --
266 -- Access Status:
267 --   Internal Row Handler Use Only.
268 --
269 -- {End Of Comments}
270 -- ----------------------------------------------------------------------------
271 Procedure dt_pre_update
272 	(p_rec 			 in out nocopy ben_clp_shd.g_rec_type,
273 	 p_effective_date	 in	date,
274 	 p_datetrack_mode	 in	varchar2,
275 	 p_validation_start_date in	date,
276 	 p_validation_end_date	 in	date) is
277 --
278   l_proc	         varchar2(72) := g_package||'dt_pre_update';
279   l_dummy_version_number number;
280 --
281 Begin
282   hr_utility.set_location('Entering:'||l_proc, 5);
283   If (p_datetrack_mode <> 'CORRECTION') then
284     hr_utility.set_location(l_proc, 10);
285     --
286     -- Update the current effective end date
287     --
288     ben_clp_shd.upd_effective_end_date
289      (p_effective_date	       => p_effective_date,
290       p_base_key_value	       => p_rec.clpse_lf_evt_id,
291       p_new_effective_end_date => (p_validation_start_date - 1),
292       p_validation_start_date  => p_validation_start_date,
293       p_validation_end_date    => p_validation_end_date,
294       p_object_version_number  => l_dummy_version_number);
295     --
296     If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
297       hr_utility.set_location(l_proc, 15);
298       --
299       -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
300       -- delete any future rows
301       --
302       ben_clp_del.delete_dml
303         (p_rec			 => p_rec,
304 	 p_effective_date	 => p_effective_date,
305 	 p_datetrack_mode	 => p_datetrack_mode,
306 	 p_validation_start_date => p_validation_start_date,
307 	 p_validation_end_date   => p_validation_end_date);
308     End If;
309     hr_utility.set_location(l_proc, 20);
310     --
311     -- We must now insert the updated row
312     --
313     ben_clp_ins.insert_dml
314       (p_rec			=> p_rec,
315        p_effective_date		=> p_effective_date,
316        p_datetrack_mode		=> p_datetrack_mode,
317        p_validation_start_date	=> p_validation_start_date,
318        p_validation_end_date	=> p_validation_end_date);
319   End If;
320   hr_utility.set_location(' Leaving:'||l_proc, 20);
321 End dt_pre_update;
322 --
323 -- ----------------------------------------------------------------------------
324 -- |------------------------------< pre_update >------------------------------|
325 -- ----------------------------------------------------------------------------
326 -- {Start Of Comments}
327 --
328 -- Description:
329 --   This private procedure contains any processing which is required before
330 --   the update dml.
331 --
332 -- Prerequisites:
333 --   This is an internal procedure which is called from the upd procedure.
334 --
335 -- In Parameters:
336 --   A Pl/Sql record structre.
337 --
338 -- Post Success:
339 --   Processing continues.
340 --
341 -- Post Failure:
342 --   If an error has occurred, an error message and exception will be raised
343 --   but not handled.
344 --
345 -- Developer Implementation Notes:
346 --   Any pre-processing required before the update dml is issued should be
347 --   coded within this procedure. It is important to note that any 3rd party
348 --   maintenance should be reviewed before placing in this procedure. The call
349 --   to the dt_update_dml procedure should NOT be removed.
350 --
351 -- Access Status:
352 --   Internal Row Handler Use Only.
353 --
354 -- {End Of Comments}
355 -- ----------------------------------------------------------------------------
356 Procedure pre_update
357 	(p_rec 			 in out nocopy ben_clp_shd.g_rec_type,
358 	 p_effective_date	 in	date,
359 	 p_datetrack_mode	 in	varchar2,
360 	 p_validation_start_date in	date,
361 	 p_validation_end_date	 in	date) is
362 --
363   l_proc	varchar2(72) := g_package||'pre_update';
364 --
365 Begin
366   hr_utility.set_location('Entering:'||l_proc, 5);
367   --
368   --
369   --
370   dt_pre_update
371     (p_rec 		     => p_rec,
372      p_effective_date	     => p_effective_date,
373      p_datetrack_mode	     => p_datetrack_mode,
374      p_validation_start_date => p_validation_start_date,
375      p_validation_end_date   => p_validation_end_date);
376   --
377   hr_utility.set_location(' Leaving:'||l_proc, 10);
378 End pre_update;
379 --
380 -- ----------------------------------------------------------------------------
381 -- |-----------------------------< post_update >------------------------------|
382 -- ----------------------------------------------------------------------------
383 -- {Start Of Comments}
384 --
385 -- Description:
386 --   This private procedure contains any processing which is required after the
387 --   update dml.
388 --
389 -- Prerequisites:
390 --   This is an internal procedure which is called from the upd procedure.
391 --
392 -- In Parameters:
393 --   A Pl/Sql record structre.
394 --
395 -- Post Success:
396 --   Processing continues.
397 --
398 -- Post Failure:
399 --   If an error has occurred, an error message and exception will be raised
400 --   but not handled.
401 --
402 -- Developer Implementation Notes:
403 --   Any post-processing required after the update dml is issued should be
404 --   coded within this procedure. It is important to note that any 3rd party
405 --   maintenance should be reviewed before placing in this procedure.
406 --
407 -- Access Status:
408 --   Internal Row Handler Use Only.
409 --
410 -- {End Of Comments}
411 -- ----------------------------------------------------------------------------
412 Procedure post_update
413 	(p_rec 			 in ben_clp_shd.g_rec_type,
414 	 p_effective_date	 in date,
415 	 p_datetrack_mode	 in varchar2,
416 	 p_validation_start_date in date,
417 	 p_validation_end_date	 in date) is
418 --
419   l_proc	varchar2(72) := g_package||'post_update';
420 --
421 Begin
422   hr_utility.set_location('Entering:'||l_proc, 5);
423   --
424   -- Start of API User Hook for post_update.
425   --
426   begin
427     --
428     ben_clp_rku.after_update
429       (p_clpse_lf_evt_id                => p_rec.clpse_lf_evt_id
430       ,p_effective_start_date           => p_rec.effective_start_date
431       ,p_effective_end_date             => p_rec.effective_end_date
432       ,p_business_group_id              => p_rec.business_group_id
433       ,p_seq                            => p_rec.seq
434       ,p_ler1_id                        => p_rec.ler1_id
435       ,p_bool1_cd                       => p_rec.bool1_cd
436       ,p_ler2_id                        => p_rec.ler2_id
437       ,p_bool2_cd                       => p_rec.bool2_cd
438       ,p_ler3_id                        => p_rec.ler3_id
439       ,p_bool3_cd                       => p_rec.bool3_cd
440       ,p_ler4_id                        => p_rec.ler4_id
441       ,p_bool4_cd                       => p_rec.bool4_cd
442       ,p_ler5_id                        => p_rec.ler5_id
443       ,p_bool5_cd                       => p_rec.bool5_cd
444       ,p_ler6_id                        => p_rec.ler6_id
445       ,p_bool6_cd                       => p_rec.bool6_cd
446       ,p_ler7_id                        => p_rec.ler7_id
447       ,p_bool7_cd                       => p_rec.bool7_cd
448       ,p_ler8_id                        => p_rec.ler8_id
449       ,p_bool8_cd                       => p_rec.bool8_cd
450       ,p_ler9_id                        => p_rec.ler9_id
451       ,p_bool9_cd                       => p_rec.bool9_cd
452       ,p_ler10_id                       => p_rec.ler10_id
453       ,p_eval_cd                        => p_rec.eval_cd
454       ,p_eval_rl                        => p_rec.eval_rl
455       ,p_tlrnc_dys_num                  => p_Rec.tlrnc_dys_num
456       ,p_eval_ler_id                    => p_rec.eval_ler_id
457       ,p_eval_ler_det_cd                => p_rec.eval_ler_det_cd
458       ,p_eval_ler_det_rl                => p_rec.eval_ler_det_rl
459       ,p_clp_attribute_category         => p_rec.clp_attribute_category
460       ,p_clp_attribute1                 => p_rec.clp_attribute1
461       ,p_clp_attribute2                 => p_rec.clp_attribute2
462       ,p_clp_attribute3                 => p_rec.clp_attribute3
463       ,p_clp_attribute4                 => p_rec.clp_attribute4
464       ,p_clp_attribute5                 => p_rec.clp_attribute5
465       ,p_clp_attribute6                 => p_rec.clp_attribute6
466       ,p_clp_attribute7                 => p_rec.clp_attribute7
467       ,p_clp_attribute8                 => p_rec.clp_attribute8
468       ,p_clp_attribute9                 => p_rec.clp_attribute9
469       ,p_clp_attribute10                => p_rec.clp_attribute10
470       ,p_clp_attribute11                => p_rec.clp_attribute11
471       ,p_clp_attribute12                => p_rec.clp_attribute12
472       ,p_clp_attribute13                => p_rec.clp_attribute13
473       ,p_clp_attribute14                => p_rec.clp_attribute14
474       ,p_clp_attribute15                => p_rec.clp_attribute15
475       ,p_clp_attribute16                => p_rec.clp_attribute16
476       ,p_clp_attribute17                => p_rec.clp_attribute17
477       ,p_clp_attribute18                => p_rec.clp_attribute18
478       ,p_clp_attribute19                => p_rec.clp_attribute19
479       ,p_clp_attribute20                => p_rec.clp_attribute20
480       ,p_clp_attribute21                => p_rec.clp_attribute21
481       ,p_clp_attribute22                => p_rec.clp_attribute22
482       ,p_clp_attribute23                => p_rec.clp_attribute23
483       ,p_clp_attribute24                => p_rec.clp_attribute24
484       ,p_clp_attribute25                => p_rec.clp_attribute25
485       ,p_clp_attribute26                => p_rec.clp_attribute26
486       ,p_clp_attribute27                => p_rec.clp_attribute27
487       ,p_clp_attribute28                => p_rec.clp_attribute28
488       ,p_clp_attribute29                => p_rec.clp_attribute29
489       ,p_clp_attribute30                => p_rec.clp_attribute30
490       ,p_object_version_number          => p_rec.object_version_number
491       ,p_effective_date                 => p_effective_date
492       ,p_datetrack_mode                 => p_datetrack_mode
493       ,p_validation_start_date          => p_validation_start_date
494       ,p_validation_end_date            => p_validation_end_date
495       ,p_effective_start_date_o         => ben_clp_shd.g_old_rec.effective_start_date
496       ,p_effective_end_date_o           => ben_clp_shd.g_old_rec.effective_end_date
497       ,p_business_group_id_o            => ben_clp_shd.g_old_rec.business_group_id
498       ,p_seq_o                          => ben_clp_shd.g_old_rec.seq
499       ,p_ler1_id_o                      => ben_clp_shd.g_old_rec.ler1_id
500       ,p_bool1_cd_o                     => ben_clp_shd.g_old_rec.bool1_cd
501       ,p_ler2_id_o                      => ben_clp_shd.g_old_rec.ler2_id
502       ,p_bool2_cd_o                     => ben_clp_shd.g_old_rec.bool2_cd
503       ,p_ler3_id_o                      => ben_clp_shd.g_old_rec.ler3_id
504       ,p_bool3_cd_o                     => ben_clp_shd.g_old_rec.bool3_cd
505       ,p_ler4_id_o                      => ben_clp_shd.g_old_rec.ler4_id
506       ,p_bool4_cd_o                     => ben_clp_shd.g_old_rec.bool4_cd
507       ,p_ler5_id_o                      => ben_clp_shd.g_old_rec.ler5_id
508       ,p_bool5_cd_o                     => ben_clp_shd.g_old_rec.bool5_cd
509       ,p_ler6_id_o                      => ben_clp_shd.g_old_rec.ler6_id
510       ,p_bool6_cd_o                     => ben_clp_shd.g_old_rec.bool6_cd
511       ,p_ler7_id_o                      => ben_clp_shd.g_old_rec.ler7_id
512       ,p_bool7_cd_o                     => ben_clp_shd.g_old_rec.bool7_cd
513       ,p_ler8_id_o                      => ben_clp_shd.g_old_rec.ler8_id
514       ,p_bool8_cd_o                     => ben_clp_shd.g_old_rec.bool8_cd
515       ,p_ler9_id_o                      => ben_clp_shd.g_old_rec.ler9_id
516       ,p_bool9_cd_o                     => ben_clp_shd.g_old_rec.bool9_cd
517       ,p_ler10_id_o                     => ben_clp_shd.g_old_rec.ler10_id
518       ,p_eval_cd_o                      => ben_clp_shd.g_old_rec.eval_cd
519       ,p_eval_rl_o                      => ben_clp_shd.g_old_rec.eval_rl
520       ,p_tlrnc_dys_num_o                => ben_clp_shd.g_old_rec.tlrnc_dys_num
521       ,p_eval_ler_id_o                  => ben_clp_shd.g_old_rec.eval_ler_id
522       ,p_eval_ler_det_cd_o              => ben_clp_shd.g_old_rec.eval_ler_det_cd
523       ,p_eval_ler_det_rl_o              => ben_clp_shd.g_old_rec.eval_ler_det_rl
524       ,p_clp_attribute_category_o       => ben_clp_shd.g_old_rec.clp_attribute_category
525       ,p_clp_attribute1_o               => ben_clp_shd.g_old_rec.clp_attribute1
526       ,p_clp_attribute2_o               => ben_clp_shd.g_old_rec.clp_attribute2
527       ,p_clp_attribute3_o               => ben_clp_shd.g_old_rec.clp_attribute3
528       ,p_clp_attribute4_o               => ben_clp_shd.g_old_rec.clp_attribute4
529       ,p_clp_attribute5_o               => ben_clp_shd.g_old_rec.clp_attribute5
530       ,p_clp_attribute6_o               => ben_clp_shd.g_old_rec.clp_attribute6
531       ,p_clp_attribute7_o               => ben_clp_shd.g_old_rec.clp_attribute7
532       ,p_clp_attribute8_o               => ben_clp_shd.g_old_rec.clp_attribute8
533       ,p_clp_attribute9_o               => ben_clp_shd.g_old_rec.clp_attribute9
534       ,p_clp_attribute10_o              => ben_clp_shd.g_old_rec.clp_attribute10
535       ,p_clp_attribute11_o              => ben_clp_shd.g_old_rec.clp_attribute11
536       ,p_clp_attribute12_o              => ben_clp_shd.g_old_rec.clp_attribute12
537       ,p_clp_attribute13_o              => ben_clp_shd.g_old_rec.clp_attribute13
538       ,p_clp_attribute14_o              => ben_clp_shd.g_old_rec.clp_attribute14
539       ,p_clp_attribute15_o              => ben_clp_shd.g_old_rec.clp_attribute15
540       ,p_clp_attribute16_o              => ben_clp_shd.g_old_rec.clp_attribute16
541       ,p_clp_attribute17_o              => ben_clp_shd.g_old_rec.clp_attribute17
542       ,p_clp_attribute18_o              => ben_clp_shd.g_old_rec.clp_attribute18
543       ,p_clp_attribute19_o              => ben_clp_shd.g_old_rec.clp_attribute19
544       ,p_clp_attribute20_o              => ben_clp_shd.g_old_rec.clp_attribute20
545       ,p_clp_attribute21_o              => ben_clp_shd.g_old_rec.clp_attribute21
546       ,p_clp_attribute22_o              => ben_clp_shd.g_old_rec.clp_attribute22
547       ,p_clp_attribute23_o              => ben_clp_shd.g_old_rec.clp_attribute23
548       ,p_clp_attribute24_o              => ben_clp_shd.g_old_rec.clp_attribute24
549       ,p_clp_attribute25_o              => ben_clp_shd.g_old_rec.clp_attribute25
550       ,p_clp_attribute26_o              => ben_clp_shd.g_old_rec.clp_attribute26
551       ,p_clp_attribute27_o              => ben_clp_shd.g_old_rec.clp_attribute27
552       ,p_clp_attribute28_o              => ben_clp_shd.g_old_rec.clp_attribute28
553       ,p_clp_attribute29_o              => ben_clp_shd.g_old_rec.clp_attribute29
554       ,p_clp_attribute30_o              => ben_clp_shd.g_old_rec.clp_attribute30
555       ,p_object_version_number_o        => ben_clp_shd.g_old_rec.object_version_number);
556     --
557   exception
558     --
559     when hr_api.cannot_find_prog_unit then
560       --
561       hr_api.cannot_find_prog_unit_error
562         (p_module_name => 'ben_clpse_lf_evt_f'
563         ,p_hook_type   => 'AU');
564       --
565   end;
566   --
567   -- End of API User Hook for post_update.
568   --
569   hr_utility.set_location(' Leaving:'||l_proc, 10);
570   --
571 End post_update;
572 --
573 -- ----------------------------------------------------------------------------
574 -- |-----------------------------< convert_defs >-----------------------------|
575 -- ----------------------------------------------------------------------------
576 -- {Start Of Comments}
577 --
578 -- Description:
579 --   The Convert_Defs procedure has one very important function:
580 --   It must return the record structure for the row with all system defaulted
581 --   values converted into its corresponding parameter value for update. When
582 --   we attempt to update a row through the Upd process , certain
583 --   parameters can be defaulted which enables flexibility in the calling of
584 --   the upd process (e.g. only attributes which need to be updated need to be
585 --   specified). For the upd process to determine which attributes
586 --   have NOT been specified we need to check if the parameter has a reserved
587 --   system default value. Therefore, for all parameters which have a
588 --   corresponding reserved system default mechanism specified we need to
589 --   check if a system default is being used. If a system default is being
590 --   used then we convert the defaulted value into its corresponding attribute
591 --   value held in the g_old_rec data structure.
592 --
593 -- Prerequisites:
594 --   This private function can only be called from the upd process.
595 --
596 -- In Parameters:
597 --   A Pl/Sql record structre.
598 --
599 -- Post Success:
600 --   The record structure will be returned with all system defaulted parameter
601 --   values converted into its current row attribute value.
602 --
603 -- Post Failure:
604 --   No direct error handling is required within this function. Any possible
605 --   errors within this procedure will be a PL/SQL value error due to conversion
606 
607 --   of datatypes or data lengths.
608 --
609 -- Developer Implementation Notes:
610 --   None.
611 --
612 -- Access Status:
613 --   Internal Row Handler Use Only.
614 --
615 -- {End Of Comments}
616 -- ----------------------------------------------------------------------------
617 Procedure convert_defs(p_rec in out nocopy ben_clp_shd.g_rec_type) is
618 --
619   l_proc  varchar2(72) := g_package||'convert_defs';
620 --
621 Begin
622   --
623   hr_utility.set_location('Entering:'||l_proc, 5);
624   --
625   -- We must now examine each argument value in the
626   -- p_rec plsql record structure
627   -- to see if a system default is being used. If a system default
628   -- is being used then we must set to the 'current' argument value.
629   --
630   If (p_rec.business_group_id = hr_api.g_number) then
631     p_rec.business_group_id :=
632     ben_clp_shd.g_old_rec.business_group_id;
633   End If;
634   If (p_rec.seq = hr_api.g_number) then
635     p_rec.seq :=
636     ben_clp_shd.g_old_rec.seq;
637   End If;
638   If (p_rec.ler1_id = hr_api.g_number) then
639     p_rec.ler1_id :=
640     ben_clp_shd.g_old_rec.ler1_id;
641   End If;
642   If (p_rec.bool1_cd = hr_api.g_varchar2) then
643     p_rec.bool1_cd :=
644     ben_clp_shd.g_old_rec.bool1_cd;
645   End If;
646   If (p_rec.ler2_id = hr_api.g_number) then
647     p_rec.ler2_id :=
648     ben_clp_shd.g_old_rec.ler2_id;
649   End If;
650   If (p_rec.bool2_cd = hr_api.g_varchar2) then
651     p_rec.bool2_cd :=
652     ben_clp_shd.g_old_rec.bool2_cd;
653   End If;
654   If (p_rec.ler3_id = hr_api.g_number) then
655     p_rec.ler3_id :=
656     ben_clp_shd.g_old_rec.ler3_id;
657   End If;
658   If (p_rec.bool3_cd = hr_api.g_varchar2) then
659     p_rec.bool3_cd :=
660     ben_clp_shd.g_old_rec.bool3_cd;
661   End If;
662   If (p_rec.ler4_id = hr_api.g_number) then
663     p_rec.ler4_id :=
664     ben_clp_shd.g_old_rec.ler4_id;
665   End If;
666   If (p_rec.bool4_cd = hr_api.g_varchar2) then
667     p_rec.bool4_cd :=
668     ben_clp_shd.g_old_rec.bool4_cd;
669   End If;
670   If (p_rec.ler5_id = hr_api.g_number) then
671     p_rec.ler5_id :=
672     ben_clp_shd.g_old_rec.ler5_id;
673   End If;
674   If (p_rec.bool5_cd = hr_api.g_varchar2) then
675     p_rec.bool5_cd :=
676     ben_clp_shd.g_old_rec.bool5_cd;
677   End If;
678   If (p_rec.ler6_id = hr_api.g_number) then
679     p_rec.ler6_id :=
680     ben_clp_shd.g_old_rec.ler6_id;
681   End If;
682   If (p_rec.bool6_cd = hr_api.g_varchar2) then
683     p_rec.bool6_cd :=
684     ben_clp_shd.g_old_rec.bool6_cd;
685   End If;
686   If (p_rec.ler7_id = hr_api.g_number) then
687     p_rec.ler7_id :=
688     ben_clp_shd.g_old_rec.ler7_id;
689   End If;
690   If (p_rec.bool7_cd = hr_api.g_varchar2) then
691     p_rec.bool7_cd :=
692     ben_clp_shd.g_old_rec.bool7_cd;
693   End If;
694   If (p_rec.ler8_id = hr_api.g_number) then
695     p_rec.ler8_id :=
696     ben_clp_shd.g_old_rec.ler8_id;
697   End If;
698   If (p_rec.bool8_cd = hr_api.g_varchar2) then
699     p_rec.bool8_cd :=
700     ben_clp_shd.g_old_rec.bool8_cd;
701   End If;
702   If (p_rec.ler9_id = hr_api.g_number) then
703     p_rec.ler9_id :=
704     ben_clp_shd.g_old_rec.ler9_id;
705   End If;
706   If (p_rec.bool9_cd = hr_api.g_varchar2) then
707     p_rec.bool9_cd :=
708     ben_clp_shd.g_old_rec.bool9_cd;
709   End If;
710   If (p_rec.ler10_id = hr_api.g_number) then
711     p_rec.ler10_id :=
712     ben_clp_shd.g_old_rec.ler10_id;
713   End If;
714   If (p_rec.eval_cd = hr_api.g_varchar2) then
715     p_rec.eval_cd :=
716     ben_clp_shd.g_old_rec.eval_cd;
717   End If;
718   If (p_rec.eval_rl = hr_api.g_number) then
719     p_rec.eval_rl :=
720     ben_clp_shd.g_old_rec.eval_rl;
721   End If;
722   If (p_rec.tlrnc_dys_num = hr_api.g_number) then
723     p_rec.tlrnc_dys_num :=
724     ben_clp_shd.g_old_rec.tlrnc_dys_num;
725   End If;
726   If (p_rec.eval_ler_id = hr_api.g_number) then
727     p_rec.eval_ler_id :=
728     ben_clp_shd.g_old_rec.eval_ler_id;
729   End If;
730   If (p_rec.eval_ler_det_cd = hr_api.g_varchar2) then
731     p_rec.eval_ler_det_cd :=
732     ben_clp_shd.g_old_rec.eval_ler_det_cd;
733   End If;
734   If (p_rec.eval_ler_det_rl = hr_api.g_number) then
735     p_rec.eval_ler_det_rl :=
736     ben_clp_shd.g_old_rec.eval_ler_det_rl;
737   End If;
738   If (p_rec.clp_attribute_category = hr_api.g_varchar2) then
739     p_rec.clp_attribute_category :=
740     ben_clp_shd.g_old_rec.clp_attribute_category;
741   End If;
742   If (p_rec.clp_attribute1 = hr_api.g_varchar2) then
743     p_rec.clp_attribute1 :=
744     ben_clp_shd.g_old_rec.clp_attribute1;
745   End If;
746   If (p_rec.clp_attribute2 = hr_api.g_varchar2) then
747     p_rec.clp_attribute2 :=
748     ben_clp_shd.g_old_rec.clp_attribute2;
749   End If;
750   If (p_rec.clp_attribute3 = hr_api.g_varchar2) then
751     p_rec.clp_attribute3 :=
752     ben_clp_shd.g_old_rec.clp_attribute3;
753   End If;
754   If (p_rec.clp_attribute4 = hr_api.g_varchar2) then
755     p_rec.clp_attribute4 :=
756     ben_clp_shd.g_old_rec.clp_attribute4;
757   End If;
758   If (p_rec.clp_attribute5 = hr_api.g_varchar2) then
759     p_rec.clp_attribute5 :=
760     ben_clp_shd.g_old_rec.clp_attribute5;
761   End If;
762   If (p_rec.clp_attribute6 = hr_api.g_varchar2) then
763     p_rec.clp_attribute6 :=
764     ben_clp_shd.g_old_rec.clp_attribute6;
765   End If;
766   If (p_rec.clp_attribute7 = hr_api.g_varchar2) then
767     p_rec.clp_attribute7 :=
768     ben_clp_shd.g_old_rec.clp_attribute7;
769   End If;
770   If (p_rec.clp_attribute8 = hr_api.g_varchar2) then
771     p_rec.clp_attribute8 :=
772     ben_clp_shd.g_old_rec.clp_attribute8;
773   End If;
774   If (p_rec.clp_attribute9 = hr_api.g_varchar2) then
775     p_rec.clp_attribute9 :=
776     ben_clp_shd.g_old_rec.clp_attribute9;
777   End If;
778   If (p_rec.clp_attribute10 = hr_api.g_varchar2) then
779     p_rec.clp_attribute10 :=
780     ben_clp_shd.g_old_rec.clp_attribute10;
781   End If;
782   If (p_rec.clp_attribute11 = hr_api.g_varchar2) then
783     p_rec.clp_attribute11 :=
784     ben_clp_shd.g_old_rec.clp_attribute11;
785   End If;
786   If (p_rec.clp_attribute12 = hr_api.g_varchar2) then
787     p_rec.clp_attribute12 :=
788     ben_clp_shd.g_old_rec.clp_attribute12;
789   End If;
790   If (p_rec.clp_attribute13 = hr_api.g_varchar2) then
791     p_rec.clp_attribute13 :=
792     ben_clp_shd.g_old_rec.clp_attribute13;
793   End If;
794   If (p_rec.clp_attribute14 = hr_api.g_varchar2) then
795     p_rec.clp_attribute14 :=
796     ben_clp_shd.g_old_rec.clp_attribute14;
797   End If;
798   If (p_rec.clp_attribute15 = hr_api.g_varchar2) then
799     p_rec.clp_attribute15 :=
800     ben_clp_shd.g_old_rec.clp_attribute15;
801   End If;
802   If (p_rec.clp_attribute16 = hr_api.g_varchar2) then
803     p_rec.clp_attribute16 :=
804     ben_clp_shd.g_old_rec.clp_attribute16;
805   End If;
806   If (p_rec.clp_attribute17 = hr_api.g_varchar2) then
807     p_rec.clp_attribute17 :=
808     ben_clp_shd.g_old_rec.clp_attribute17;
809   End If;
810   If (p_rec.clp_attribute18 = hr_api.g_varchar2) then
811     p_rec.clp_attribute18 :=
812     ben_clp_shd.g_old_rec.clp_attribute18;
813   End If;
814   If (p_rec.clp_attribute19 = hr_api.g_varchar2) then
815     p_rec.clp_attribute19 :=
816     ben_clp_shd.g_old_rec.clp_attribute19;
817   End If;
818   If (p_rec.clp_attribute20 = hr_api.g_varchar2) then
819     p_rec.clp_attribute20 :=
820     ben_clp_shd.g_old_rec.clp_attribute20;
821   End If;
822   If (p_rec.clp_attribute21 = hr_api.g_varchar2) then
823     p_rec.clp_attribute21 :=
824     ben_clp_shd.g_old_rec.clp_attribute21;
825   End If;
826   If (p_rec.clp_attribute22 = hr_api.g_varchar2) then
827     p_rec.clp_attribute22 :=
828     ben_clp_shd.g_old_rec.clp_attribute22;
829   End If;
830   If (p_rec.clp_attribute23 = hr_api.g_varchar2) then
831     p_rec.clp_attribute23 :=
832     ben_clp_shd.g_old_rec.clp_attribute23;
833   End If;
834   If (p_rec.clp_attribute24 = hr_api.g_varchar2) then
835     p_rec.clp_attribute24 :=
836     ben_clp_shd.g_old_rec.clp_attribute24;
837   End If;
838   If (p_rec.clp_attribute25 = hr_api.g_varchar2) then
839     p_rec.clp_attribute25 :=
840     ben_clp_shd.g_old_rec.clp_attribute25;
841   End If;
842   If (p_rec.clp_attribute26 = hr_api.g_varchar2) then
843     p_rec.clp_attribute26 :=
844     ben_clp_shd.g_old_rec.clp_attribute26;
845   End If;
846   If (p_rec.clp_attribute27 = hr_api.g_varchar2) then
847     p_rec.clp_attribute27 :=
848     ben_clp_shd.g_old_rec.clp_attribute27;
849   End If;
850   If (p_rec.clp_attribute28 = hr_api.g_varchar2) then
851     p_rec.clp_attribute28 :=
852     ben_clp_shd.g_old_rec.clp_attribute28;
853   End If;
854   If (p_rec.clp_attribute29 = hr_api.g_varchar2) then
855     p_rec.clp_attribute29 :=
856     ben_clp_shd.g_old_rec.clp_attribute29;
857   End If;
858   If (p_rec.clp_attribute30 = hr_api.g_varchar2) then
859     p_rec.clp_attribute30 :=
860     ben_clp_shd.g_old_rec.clp_attribute30;
861   End If;
862   --
863   hr_utility.set_location(' Leaving:'||l_proc, 10);
864 --
865 End convert_defs;
866 --
867 -- ----------------------------------------------------------------------------
868 -- |---------------------------------< upd >----------------------------------|
869 -- ----------------------------------------------------------------------------
870 Procedure upd
871   (
872   p_rec			in out nocopy 	ben_clp_shd.g_rec_type,
873   p_effective_date	in 	date,
874   p_datetrack_mode	in 	varchar2
875   ) is
876 --
877   l_proc			varchar2(72) := g_package||'upd';
878   l_validation_start_date	date;
879   l_validation_end_date		date;
880 --
881 Begin
882   hr_utility.set_location('Entering:'||l_proc, 5);
883   --
884   -- Ensure that the DateTrack update mode is valid
885   --
886   dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
887   --
888   -- We must lock the row which we need to update.
889   --
890   ben_clp_shd.lck
891 	(p_effective_date	 => p_effective_date,
892       	 p_datetrack_mode	 => p_datetrack_mode,
893       	 p_clpse_lf_evt_id	 => p_rec.clpse_lf_evt_id,
894       	 p_object_version_number => p_rec.object_version_number,
895       	 p_validation_start_date => l_validation_start_date,
896       	 p_validation_end_date	 => l_validation_end_date);
897   --
898   -- 1. During an update system defaults are used to determine if
899   --    arguments have been defaulted or not. We must therefore
900   --    derive the full record structure values to be updated.
901   --
902   -- 2. Call the supporting update validate operations.
903   --
904   convert_defs(p_rec);
905   ben_clp_bus.update_validate
906 	(p_rec			 => p_rec,
907 	 p_effective_date	 => p_effective_date,
908 	 p_datetrack_mode  	 => p_datetrack_mode,
909 	 p_validation_start_date => l_validation_start_date,
910 	 p_validation_end_date	 => l_validation_end_date);
911   --
912   -- Call the supporting pre-update operation
913   --
914   pre_update
915 	(p_rec			 => p_rec,
916 	 p_effective_date	 => p_effective_date,
917 	 p_datetrack_mode	 => p_datetrack_mode,
918 	 p_validation_start_date => l_validation_start_date,
919 	 p_validation_end_date	 => l_validation_end_date);
920   --
921   -- Update the row.
922   --
923   update_dml
924 	(p_rec			 => p_rec,
925 	 p_effective_date	 => p_effective_date,
926 	 p_datetrack_mode	 => p_datetrack_mode,
927 	 p_validation_start_date => l_validation_start_date,
928 	 p_validation_end_date	 => l_validation_end_date);
929   --
930   -- Call the supporting post-update operation
931   --
932   post_update
933 	(p_rec			 => p_rec,
934 	 p_effective_date	 => p_effective_date,
935 	 p_datetrack_mode	 => p_datetrack_mode,
936 	 p_validation_start_date => l_validation_start_date,
937 	 p_validation_end_date	 => l_validation_end_date);
938 End upd;
939 --
940 -- ----------------------------------------------------------------------------
941 -- |---------------------------------< upd >----------------------------------|
942 -- ----------------------------------------------------------------------------
943 Procedure upd
944   (
945   p_clpse_lf_evt_id              in number,
946   p_effective_start_date         out nocopy date,
947   p_effective_end_date           out nocopy date,
948   p_business_group_id            in number           default hr_api.g_number,
949   p_seq                          in number           default hr_api.g_number,
950   p_ler1_id                      in number           default hr_api.g_number,
951   p_bool1_cd                     in varchar2         default hr_api.g_varchar2,
952   p_ler2_id                      in number           default hr_api.g_number,
953   p_bool2_cd                     in varchar2         default hr_api.g_varchar2,
954   p_ler3_id                      in number           default hr_api.g_number,
955   p_bool3_cd                     in varchar2         default hr_api.g_varchar2,
956   p_ler4_id                      in number           default hr_api.g_number,
957   p_bool4_cd                     in varchar2         default hr_api.g_varchar2,
958   p_ler5_id                      in number           default hr_api.g_number,
959   p_bool5_cd                     in varchar2         default hr_api.g_varchar2,
960   p_ler6_id                      in number           default hr_api.g_number,
961   p_bool6_cd                     in varchar2         default hr_api.g_varchar2,
962   p_ler7_id                      in number           default hr_api.g_number,
963   p_bool7_cd                     in varchar2         default hr_api.g_varchar2,
964   p_ler8_id                      in number           default hr_api.g_number,
965   p_bool8_cd                     in varchar2         default hr_api.g_varchar2,
966   p_ler9_id                      in number           default hr_api.g_number,
967   p_bool9_cd                     in varchar2         default hr_api.g_varchar2,
968   p_ler10_id                     in number           default hr_api.g_number,
969   p_eval_cd                      in varchar2         default hr_api.g_varchar2,
970   p_eval_rl                      in number           default hr_api.g_number,
971   p_tlrnc_dys_num                in number           default hr_api.g_number,
972   p_eval_ler_id                  in number           default hr_api.g_number,
973   p_eval_ler_det_cd              in varchar2         default hr_api.g_varchar2,
974   p_eval_ler_det_rl              in number           default hr_api.g_number,
975   p_clp_attribute_category       in varchar2         default hr_api.g_varchar2,
976   p_clp_attribute1               in varchar2         default hr_api.g_varchar2,
977   p_clp_attribute2               in varchar2         default hr_api.g_varchar2,
978   p_clp_attribute3               in varchar2         default hr_api.g_varchar2,
979   p_clp_attribute4               in varchar2         default hr_api.g_varchar2,
980   p_clp_attribute5               in varchar2         default hr_api.g_varchar2,
981   p_clp_attribute6               in varchar2         default hr_api.g_varchar2,
982   p_clp_attribute7               in varchar2         default hr_api.g_varchar2,
983   p_clp_attribute8               in varchar2         default hr_api.g_varchar2,
984   p_clp_attribute9               in varchar2         default hr_api.g_varchar2,
985   p_clp_attribute10              in varchar2         default hr_api.g_varchar2,
986   p_clp_attribute11              in varchar2         default hr_api.g_varchar2,
987   p_clp_attribute12              in varchar2         default hr_api.g_varchar2,
988   p_clp_attribute13              in varchar2         default hr_api.g_varchar2,
989   p_clp_attribute14              in varchar2         default hr_api.g_varchar2,
990   p_clp_attribute15              in varchar2         default hr_api.g_varchar2,
991   p_clp_attribute16              in varchar2         default hr_api.g_varchar2,
992   p_clp_attribute17              in varchar2         default hr_api.g_varchar2,
993   p_clp_attribute18              in varchar2         default hr_api.g_varchar2,
994   p_clp_attribute19              in varchar2         default hr_api.g_varchar2,
995   p_clp_attribute20              in varchar2         default hr_api.g_varchar2,
996   p_clp_attribute21              in varchar2         default hr_api.g_varchar2,
997   p_clp_attribute22              in varchar2         default hr_api.g_varchar2,
998   p_clp_attribute23              in varchar2         default hr_api.g_varchar2,
999   p_clp_attribute24              in varchar2         default hr_api.g_varchar2,
1000   p_clp_attribute25              in varchar2         default hr_api.g_varchar2,
1001   p_clp_attribute26              in varchar2         default hr_api.g_varchar2,
1002   p_clp_attribute27              in varchar2         default hr_api.g_varchar2,
1003   p_clp_attribute28              in varchar2         default hr_api.g_varchar2,
1004   p_clp_attribute29              in varchar2         default hr_api.g_varchar2,
1005   p_clp_attribute30              in varchar2         default hr_api.g_varchar2,
1006   p_object_version_number        in out nocopy number,
1007   p_effective_date		 in date,
1008   p_datetrack_mode		 in varchar2
1009   ) is
1010 --
1011   l_rec		ben_clp_shd.g_rec_type;
1012   l_proc	varchar2(72) := g_package||'upd';
1013 --
1014 Begin
1015   hr_utility.set_location('Entering:'||l_proc, 5);
1016   --
1017   -- Call conversion function to turn arguments into the
1018   -- l_rec structure.
1019   --
1020   l_rec :=
1021   ben_clp_shd.convert_args
1022   (
1023   p_clpse_lf_evt_id,
1024   null,
1025   null,
1026   p_business_group_id,
1027   p_seq,
1028   p_ler1_id,
1029   p_bool1_cd,
1030   p_ler2_id,
1031   p_bool2_cd,
1032   p_ler3_id,
1033   p_bool3_cd,
1034   p_ler4_id,
1035   p_bool4_cd,
1036   p_ler5_id,
1037   p_bool5_cd,
1038   p_ler6_id,
1039   p_bool6_cd,
1040   p_ler7_id,
1041   p_bool7_cd,
1042   p_ler8_id,
1043   p_bool8_cd,
1044   p_ler9_id,
1045   p_bool9_cd,
1046   p_ler10_id,
1047   p_eval_cd,
1048   p_eval_rl,
1049   p_tlrnc_dys_num,
1050   p_eval_ler_id,
1051   p_eval_ler_det_cd,
1052   p_eval_ler_det_rl,
1053   p_clp_attribute_category,
1054   p_clp_attribute1,
1055   p_clp_attribute2,
1056   p_clp_attribute3,
1057   p_clp_attribute4,
1058   p_clp_attribute5,
1059   p_clp_attribute6,
1060   p_clp_attribute7,
1061   p_clp_attribute8,
1062   p_clp_attribute9,
1063   p_clp_attribute10,
1064   p_clp_attribute11,
1065   p_clp_attribute12,
1066   p_clp_attribute13,
1067   p_clp_attribute14,
1068   p_clp_attribute15,
1069   p_clp_attribute16,
1070   p_clp_attribute17,
1071   p_clp_attribute18,
1072   p_clp_attribute19,
1073   p_clp_attribute20,
1074   p_clp_attribute21,
1075   p_clp_attribute22,
1076   p_clp_attribute23,
1077   p_clp_attribute24,
1078   p_clp_attribute25,
1079   p_clp_attribute26,
1080   p_clp_attribute27,
1081   p_clp_attribute28,
1082   p_clp_attribute29,
1083   p_clp_attribute30,
1084   p_object_version_number
1085   );
1086   --
1087   -- Having converted the arguments into the
1088   -- plsql record structure we call the corresponding record
1089   -- business process.
1090   --
1091   upd(l_rec, p_effective_date, p_datetrack_mode);
1092   p_object_version_number       := l_rec.object_version_number;
1093   p_effective_start_date        := l_rec.effective_start_date;
1094   p_effective_end_date          := l_rec.effective_end_date;
1095   --
1096   --
1097   hr_utility.set_location(' Leaving:'||l_proc, 10);
1098 End upd;
1099 --
1100 end ben_clp_upd;