1 Package Body ben_cpg_upd as
2 /* $Header: becpgrhi.pkb 120.0 2005/05/28 01:13 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_cpg_upd.'; -- Global package name
9 g_debug boolean := hr_utility.debug_enabled;
10 --
11 -- ----------------------------------------------------------------------------
12 -- |------------------------------< update_dml >------------------------------|
13 -- ----------------------------------------------------------------------------
14 -- {Start Of Comments}
15 --
16 -- Description:
17 -- This procedure controls the actual dml update logic. The processing of
18 -- this procedure is:
19 -- 1) Increment the object_version_number by 1 if the object_version_number
20 -- is defined as an attribute for this entity.
21 -- 2) To set and unset the g_api_dml status as required (as we are about to
22 -- perform dml).
23 -- 3) To update the specified row in the schema using the primary key in
24 -- the predicates.
25 -- 4) To trap any constraint violations that may have occurred.
26 -- 5) To raise any other errors.
27 --
28 -- Prerequisites:
29 -- This is an internal private procedure which must be called from the upd
30 -- procedure.
31 --
32 -- In Parameters:
33 -- A Pl/Sql record structre.
34 --
35 -- Post Success:
36 -- The specified row will be updated in the schema.
37 --
38 -- Post Failure:
39 -- On the update dml failure it is important to note that we always reset the
40 -- g_api_dml status to false.
41 -- If a check, unique or parent integrity constraint violation is raised the
42 -- constraint_error procedure will be called.
43 -- If any other error is reported, the error will be raised after the
44 -- g_api_dml status is reset.
45 --
46 -- Developer Implementation Notes:
47 -- The update 'set' attribute list should be modified if any of your
48 -- attributes are not updateable.
49 --
50 -- Access Status:
51 -- Internal Row Handler Use Only.
52 --
53 -- {End Of Comments}
54 -- ----------------------------------------------------------------------------
55 Procedure update_dml
56 (p_rec in out nocopy ben_cpg_shd.g_rec_type
57 ) is
58 --
59 l_proc varchar2(72) := g_package||'update_dml';
60 --
61 Begin
62 if g_debug then
63 hr_utility.set_location('Entering:'||l_proc, 5);
64 end if;
65 --
66 -- Increment the object version
67 p_rec.object_version_number := p_rec.object_version_number + 1;
68 --
69 ben_cpg_shd.g_api_dml := true; -- Set the api dml status
70 --
71 -- Update the ben_cwb_person_groups Row
72 --
73 update ben_cwb_person_groups
74 set
75 lf_evt_ocrd_dt = p_rec.lf_evt_ocrd_dt
76 ,bdgt_pop_cd = p_rec.bdgt_pop_cd
77 ,due_dt = p_rec.due_dt
78 ,access_cd = p_rec.access_cd
79 ,approval_cd = p_rec.approval_cd
80 ,approval_date = p_rec.approval_date
81 ,approval_comments = p_rec.approval_comments
82 ,submit_cd = p_rec.submit_cd
83 ,submit_date = p_rec.submit_date
84 ,submit_comments = p_rec.submit_comments
85 ,dist_bdgt_val = p_rec.dist_bdgt_val
86 ,ws_bdgt_val = p_rec.ws_bdgt_val
87 ,rsrv_val = p_rec.rsrv_val
88 ,dist_bdgt_mn_val = p_rec.dist_bdgt_mn_val
89 ,dist_bdgt_mx_val = p_rec.dist_bdgt_mx_val
90 ,dist_bdgt_incr_val = p_rec.dist_bdgt_incr_val
91 ,ws_bdgt_mn_val = p_rec.ws_bdgt_mn_val
92 ,ws_bdgt_mx_val = p_rec.ws_bdgt_mx_val
93 ,ws_bdgt_incr_val = p_rec.ws_bdgt_incr_val
94 ,rsrv_mn_val = p_rec.rsrv_mn_val
95 ,rsrv_mx_val = p_rec.rsrv_mx_val
96 ,rsrv_incr_val = p_rec.rsrv_incr_val
97 ,dist_bdgt_iss_val = p_rec.dist_bdgt_iss_val
98 ,ws_bdgt_iss_val = p_rec.ws_bdgt_iss_val
99 ,dist_bdgt_iss_date = p_rec.dist_bdgt_iss_date
100 ,ws_bdgt_iss_date = p_rec.ws_bdgt_iss_date
101 ,ws_bdgt_val_last_upd_date = p_rec.ws_bdgt_val_last_upd_date
102 ,dist_bdgt_val_last_upd_date = p_rec.dist_bdgt_val_last_upd_date
103 ,rsrv_val_last_upd_date = p_rec.rsrv_val_last_upd_date
104 ,ws_bdgt_val_last_upd_by = p_rec.ws_bdgt_val_last_upd_by
105 ,dist_bdgt_val_last_upd_by = p_rec.dist_bdgt_val_last_upd_by
106 ,rsrv_val_last_upd_by = p_rec.rsrv_val_last_upd_by
107 ,object_version_number = p_rec.object_version_number
108 where group_per_in_ler_id = p_rec.group_per_in_ler_id
109 and group_pl_id = p_rec.group_pl_id
110 and group_oipl_id = p_rec.group_oipl_id;
111 --
112 ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
113 --
114 if g_debug then
115 hr_utility.set_location(' Leaving:'||l_proc, 10);
116 end if;
117 --
118 Exception
119 When hr_api.check_integrity_violated Then
120 -- A check constraint has been violated
121 ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
122 ben_cpg_shd.constraint_error
123 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124 When hr_api.parent_integrity_violated Then
125 -- Parent integrity has been violated
126 ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
127 ben_cpg_shd.constraint_error
128 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129 When hr_api.unique_integrity_violated Then
130 -- Unique integrity has been violated
131 ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
132 ben_cpg_shd.constraint_error
133 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134 When Others Then
135 ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
136 Raise;
137 End update_dml;
138 --
139 -- ----------------------------------------------------------------------------
140 -- |------------------------------< pre_update >------------------------------|
141 -- ----------------------------------------------------------------------------
142 -- {Start Of Comments}
143 --
144 -- Description:
145 -- This private procedure contains any processing which is required before
146 -- the update dml.
147 --
148 -- Prerequisites:
149 -- This is an internal procedure which is called from the upd procedure.
150 --
151 -- In Parameters:
152 -- A Pl/Sql record structure.
153 --
154 -- Post Success:
155 -- Processing continues.
156 --
157 -- Post Failure:
158 -- If an error has occurred, an error message and exception wil be raised
159 -- but not handled.
160 --
161 -- Developer Implementation Notes:
162 -- Any pre-processing required before the update dml is issued should be
163 -- coded within this procedure. It is important to note that any 3rd party
164 -- maintenance should be reviewed before placing in this procedure.
165 --
166 -- Access Status:
167 -- Internal Row Handler Use Only.
168 --
169 -- {End Of Comments}
170 -- ----------------------------------------------------------------------------
171 Procedure pre_update
172 (p_rec in ben_cpg_shd.g_rec_type
173 ) is
174 --
175 l_proc varchar2(72) := g_package||'pre_update';
176 --
177 Begin
178 if g_debug then
179 hr_utility.set_location('Entering:'||l_proc, 5);
180 end if;
181 --
182 if g_debug then
183 hr_utility.set_location(' Leaving:'||l_proc, 10);
184 end if;
185 End pre_update;
186 --
187 -- ----------------------------------------------------------------------------
188 -- |-----------------------------< post_update >------------------------------|
189 -- ----------------------------------------------------------------------------
190 -- {Start Of Comments}
191 --
192 -- Description:
193 -- This private procedure contains any processing which is required after
194 -- the update dml.
195 --
196 -- Prerequisites:
197 -- This is an internal procedure which is called from the upd procedure.
198 --
199 -- In Parameters:
200 -- A Pl/Sql record structure.
201 --
202 -- Post Success:
203 -- Processing continues.
204 --
205 -- Post Failure:
206 -- If an error has occurred, an error message and exception will be raised
207 -- but not handled.
208 --
209 -- Developer Implementation Notes:
210 -- Any post-processing required after the update dml is issued should be
211 -- coded within this procedure. It is important to note that any 3rd party
212 -- maintenance should be reviewed before placing in this procedure.
213 --
214 -- Access Status:
215 -- Internal Row Handler Use Only.
216 --
217 -- {End Of Comments}
218 -- ----------------------------------------------------------------------------
219 Procedure post_update
220 (p_rec in ben_cpg_shd.g_rec_type
221 ) is
222 --
223 l_proc varchar2(72) := g_package||'post_update';
224 --
225 Begin
226 if g_debug then
227 hr_utility.set_location('Entering:'||l_proc, 5);
228 end if;
229 begin
230 --
231 ben_cpg_rku.after_update
232 (p_group_per_in_ler_id
233 => p_rec.group_per_in_ler_id
234 ,p_group_pl_id
235 => p_rec.group_pl_id
236 ,p_group_oipl_id
237 => p_rec.group_oipl_id
238 ,p_lf_evt_ocrd_dt
239 => p_rec.lf_evt_ocrd_dt
240 ,p_bdgt_pop_cd
241 => p_rec.bdgt_pop_cd
242 ,p_due_dt
243 => p_rec.due_dt
244 ,p_access_cd
245 => p_rec.access_cd
246 ,p_approval_cd
247 => p_rec.approval_cd
248 ,p_approval_date
249 => p_rec.approval_date
250 ,p_approval_comments
251 => p_rec.approval_comments
252 ,p_submit_cd
253 => p_rec.submit_cd
254 ,p_submit_date
255 => p_rec.submit_date
256 ,p_submit_comments
257 => p_rec.submit_comments
258 ,p_dist_bdgt_val
259 => p_rec.dist_bdgt_val
260 ,p_ws_bdgt_val
261 => p_rec.ws_bdgt_val
262 ,p_rsrv_val
263 => p_rec.rsrv_val
264 ,p_dist_bdgt_mn_val
265 => p_rec.dist_bdgt_mn_val
266 ,p_dist_bdgt_mx_val
267 => p_rec.dist_bdgt_mx_val
268 ,p_dist_bdgt_incr_val
269 => p_rec.dist_bdgt_incr_val
270 ,p_ws_bdgt_mn_val
271 => p_rec.ws_bdgt_mn_val
272 ,p_ws_bdgt_mx_val
273 => p_rec.ws_bdgt_mx_val
274 ,p_ws_bdgt_incr_val
275 => p_rec.ws_bdgt_incr_val
276 ,p_rsrv_mn_val
277 => p_rec.rsrv_mn_val
278 ,p_rsrv_mx_val
279 => p_rec.rsrv_mx_val
280 ,p_rsrv_incr_val
281 => p_rec.rsrv_incr_val
282 ,p_dist_bdgt_iss_val
283 => p_rec.dist_bdgt_iss_val
284 ,p_ws_bdgt_iss_val
285 => p_rec.ws_bdgt_iss_val
286 ,p_dist_bdgt_iss_date
287 => p_rec.dist_bdgt_iss_date
288 ,p_ws_bdgt_iss_date
289 => p_rec.ws_bdgt_iss_date
290 ,p_ws_bdgt_val_last_upd_date
291 => p_rec.ws_bdgt_val_last_upd_date
292 ,p_dist_bdgt_val_last_upd_date
293 => p_rec.dist_bdgt_val_last_upd_date
294 ,p_rsrv_val_last_upd_date
295 => p_rec.rsrv_val_last_upd_date
296 ,p_ws_bdgt_val_last_upd_by
297 => p_rec.ws_bdgt_val_last_upd_by
298 ,p_dist_bdgt_val_last_upd_by
299 => p_rec.dist_bdgt_val_last_upd_by
300 ,p_rsrv_val_last_upd_by
301 => p_rec.rsrv_val_last_upd_by
302 ,p_object_version_number
303 => p_rec.object_version_number
304 ,p_lf_evt_ocrd_dt_o
305 => ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt
306 ,p_bdgt_pop_cd_o
307 => ben_cpg_shd.g_old_rec.bdgt_pop_cd
308 ,p_due_dt_o
309 => ben_cpg_shd.g_old_rec.due_dt
310 ,p_access_cd_o
311 => ben_cpg_shd.g_old_rec.access_cd
312 ,p_approval_cd_o
313 => ben_cpg_shd.g_old_rec.approval_cd
314 ,p_approval_date_o
315 => ben_cpg_shd.g_old_rec.approval_date
316 ,p_approval_comments_o
317 => ben_cpg_shd.g_old_rec.approval_comments
318 ,p_submit_cd_o
319 => ben_cpg_shd.g_old_rec.submit_cd
320 ,p_submit_date_o
321 => ben_cpg_shd.g_old_rec.submit_date
322 ,p_submit_comments_o
323 => ben_cpg_shd.g_old_rec.submit_comments
324 ,p_dist_bdgt_val_o
325 => ben_cpg_shd.g_old_rec.dist_bdgt_val
326 ,p_ws_bdgt_val_o
327 => ben_cpg_shd.g_old_rec.ws_bdgt_val
328 ,p_rsrv_val_o
329 => ben_cpg_shd.g_old_rec.rsrv_val
330 ,p_dist_bdgt_mn_val_o
331 => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
332 ,p_dist_bdgt_mx_val_o
333 => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
334 ,p_dist_bdgt_incr_val_o
335 => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
336 ,p_ws_bdgt_mn_val_o
337 => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
338 ,p_ws_bdgt_mx_val_o
339 => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
340 ,p_ws_bdgt_incr_val_o
341 => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
342 ,p_rsrv_mn_val_o
343 => ben_cpg_shd.g_old_rec.rsrv_mn_val
344 ,p_rsrv_mx_val_o
345 => ben_cpg_shd.g_old_rec.rsrv_mx_val
346 ,p_rsrv_incr_val_o
347 => ben_cpg_shd.g_old_rec.rsrv_incr_val
348 ,p_dist_bdgt_iss_val_o
349 => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
350 ,p_ws_bdgt_iss_val_o
351 => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
352 ,p_dist_bdgt_iss_date_o
353 => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
354 ,p_ws_bdgt_iss_date_o
355 => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
356 ,p_ws_bdgt_val_last_upd_date_o
357 => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
358 ,p_dist_bdgt_val_last_upd_dat_o
359 => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
360 ,p_rsrv_val_last_upd_date_o
361 => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
362 ,p_ws_bdgt_val_last_upd_by_o
363 => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
364 ,p_dist_bdgt_val_last_upd_by_o
365 => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
366 ,p_rsrv_val_last_upd_by_o
367 => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by
368 ,p_object_version_number_o
369 => ben_cpg_shd.g_old_rec.object_version_number
370 );
371 --
372 exception
373 --
374 when hr_api.cannot_find_prog_unit then
375 --
376 hr_api.cannot_find_prog_unit_error
377 (p_module_name => 'BEN_CWB_PERSON_GROUPS'
378 ,p_hook_type => 'AU');
379 --
380 end;
381 --
382 if g_debug then
383 hr_utility.set_location(' Leaving:'||l_proc, 10);
384 end if;
385 End post_update;
386 --
387 -- ----------------------------------------------------------------------------
388 -- |-----------------------------< convert_defs >-----------------------------|
389 -- ----------------------------------------------------------------------------
390 -- {Start Of Comments}
391 --
392 -- Description:
393 -- The Convert_Defs procedure has one very important function:
394 -- It must return the record structure for the row with all system defaulted
395 -- values converted into its corresponding parameter value for update. When
396 -- we attempt to update a row through the Upd process , certain
397 -- parameters can be defaulted which enables flexibility in the calling of
398 -- the upd process (e.g. only attributes which need to be updated need to be
399 -- specified). For the upd process to determine which attributes
400 -- have NOT been specified we need to check if the parameter has a reserved
401 -- system default value. Therefore, for all parameters which have a
402 -- corresponding reserved system default mechanism specified we need to
403 -- check if a system default is being used. If a system default is being
404 -- used then we convert the defaulted value into its corresponding attribute
405 -- value held in the g_old_rec data structure.
406 --
407 -- Prerequisites:
408 -- This private function can only be called from the upd process.
409 --
410 -- In Parameters:
411 -- A Pl/Sql record structure.
412 --
413 -- Post Success:
414 -- The record structure will be returned with all system defaulted parameter
415 -- values converted into its current row attribute value.
416 --
417 -- Post Failure:
418 -- No direct error handling is required within this function. Any possible
419 -- errors within this procedure will be a PL/SQL value error due to
420 -- conversion of datatypes or data lengths.
421 --
422 -- Developer Implementation Notes:
423 -- None.
424 --
425 -- Access Status:
426 -- Internal Row Handler Use Only.
427 --
428 -- {End Of Comments}
429 -- ----------------------------------------------------------------------------
430 Procedure convert_defs
431 (p_rec in out nocopy ben_cpg_shd.g_rec_type
432 ) is
433 --
434 Begin
435 --
436 -- We must now examine each argument value in the
437 -- p_rec plsql record structure
438 -- to see if a system default is being used. If a system default
439 -- is being used then we must set to the 'current' argument value.
440 --
441 If (p_rec.lf_evt_ocrd_dt = hr_api.g_date) then
442 p_rec.lf_evt_ocrd_dt :=
443 ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt;
444 End If;
445 If (p_rec.bdgt_pop_cd = hr_api.g_varchar2) then
446 p_rec.bdgt_pop_cd :=
447 ben_cpg_shd.g_old_rec.bdgt_pop_cd;
448 End If;
449 If (p_rec.due_dt = hr_api.g_date) then
450 p_rec.due_dt :=
451 ben_cpg_shd.g_old_rec.due_dt;
452 End If;
453 If (p_rec.access_cd = hr_api.g_varchar2) then
454 p_rec.access_cd :=
455 ben_cpg_shd.g_old_rec.access_cd;
456 End If;
457 If (p_rec.approval_cd = hr_api.g_varchar2) then
458 p_rec.approval_cd :=
459 ben_cpg_shd.g_old_rec.approval_cd;
460 End If;
461 If (p_rec.approval_date = hr_api.g_date) then
462 p_rec.approval_date :=
463 ben_cpg_shd.g_old_rec.approval_date;
464 End If;
465 If (p_rec.approval_comments = hr_api.g_varchar2) then
466 p_rec.approval_comments :=
467 ben_cpg_shd.g_old_rec.approval_comments;
468 End If;
469 If (p_rec.submit_cd = hr_api.g_varchar2) then
470 p_rec.submit_cd :=
471 ben_cpg_shd.g_old_rec.submit_cd;
472 End If;
473 If (p_rec.submit_date = hr_api.g_date) then
474 p_rec.submit_date :=
475 ben_cpg_shd.g_old_rec.submit_date;
476 End If;
477 If (p_rec.submit_comments = hr_api.g_varchar2) then
478 p_rec.submit_comments :=
479 ben_cpg_shd.g_old_rec.submit_comments;
480 End If;
481 If (p_rec.dist_bdgt_val = hr_api.g_number) then
482 p_rec.dist_bdgt_val :=
483 ben_cpg_shd.g_old_rec.dist_bdgt_val;
484 End If;
485 If (p_rec.ws_bdgt_val = hr_api.g_number) then
486 p_rec.ws_bdgt_val :=
487 ben_cpg_shd.g_old_rec.ws_bdgt_val;
488 End If;
489 If (p_rec.rsrv_val = hr_api.g_number) then
490 p_rec.rsrv_val :=
491 ben_cpg_shd.g_old_rec.rsrv_val;
492 End If;
493 If (p_rec.dist_bdgt_mn_val = hr_api.g_number) then
494 p_rec.dist_bdgt_mn_val :=
495 ben_cpg_shd.g_old_rec.dist_bdgt_mn_val;
496 End If;
497 If (p_rec.dist_bdgt_mx_val = hr_api.g_number) then
498 p_rec.dist_bdgt_mx_val :=
499 ben_cpg_shd.g_old_rec.dist_bdgt_mx_val;
500 End If;
501 If (p_rec.dist_bdgt_incr_val = hr_api.g_number) then
502 p_rec.dist_bdgt_incr_val :=
503 ben_cpg_shd.g_old_rec.dist_bdgt_incr_val;
504 End If;
505 If (p_rec.ws_bdgt_mn_val = hr_api.g_number) then
506 p_rec.ws_bdgt_mn_val :=
507 ben_cpg_shd.g_old_rec.ws_bdgt_mn_val;
508 End If;
509 If (p_rec.ws_bdgt_mx_val = hr_api.g_number) then
510 p_rec.ws_bdgt_mx_val :=
511 ben_cpg_shd.g_old_rec.ws_bdgt_mx_val;
512 End If;
513 If (p_rec.ws_bdgt_incr_val = hr_api.g_number) then
514 p_rec.ws_bdgt_incr_val :=
515 ben_cpg_shd.g_old_rec.ws_bdgt_incr_val;
516 End If;
517 If (p_rec.rsrv_mn_val = hr_api.g_number) then
518 p_rec.rsrv_mn_val :=
519 ben_cpg_shd.g_old_rec.rsrv_mn_val;
520 End If;
521 If (p_rec.rsrv_mx_val = hr_api.g_number) then
522 p_rec.rsrv_mx_val :=
523 ben_cpg_shd.g_old_rec.rsrv_mx_val;
524 End If;
525 If (p_rec.rsrv_incr_val = hr_api.g_number) then
526 p_rec.rsrv_incr_val :=
527 ben_cpg_shd.g_old_rec.rsrv_incr_val;
528 End If;
529 If (p_rec.dist_bdgt_iss_val = hr_api.g_number) then
530 p_rec.dist_bdgt_iss_val :=
531 ben_cpg_shd.g_old_rec.dist_bdgt_iss_val;
532 End If;
533 If (p_rec.ws_bdgt_iss_val = hr_api.g_number) then
534 p_rec.ws_bdgt_iss_val :=
535 ben_cpg_shd.g_old_rec.ws_bdgt_iss_val;
536 End If;
537 If (p_rec.dist_bdgt_iss_date = hr_api.g_date) then
538 p_rec.dist_bdgt_iss_date :=
539 ben_cpg_shd.g_old_rec.dist_bdgt_iss_date;
540 End If;
541 If (p_rec.ws_bdgt_iss_date = hr_api.g_date) then
542 p_rec.ws_bdgt_iss_date :=
543 ben_cpg_shd.g_old_rec.ws_bdgt_iss_date;
544 End If;
545 If (p_rec.ws_bdgt_val_last_upd_date = hr_api.g_date) then
546 p_rec.ws_bdgt_val_last_upd_date :=
547 ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date;
548 End If;
549 If (p_rec.dist_bdgt_val_last_upd_date = hr_api.g_date) then
550 p_rec.dist_bdgt_val_last_upd_date :=
551 ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date;
552 End If;
553 If (p_rec.rsrv_val_last_upd_date = hr_api.g_date) then
554 p_rec.rsrv_val_last_upd_date :=
555 ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date;
556 End If;
557 If (p_rec.ws_bdgt_val_last_upd_by = hr_api.g_number) then
558 p_rec.ws_bdgt_val_last_upd_by :=
559 ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by;
560 End If;
561 If (p_rec.dist_bdgt_val_last_upd_by = hr_api.g_number) then
562 p_rec.dist_bdgt_val_last_upd_by :=
563 ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by;
564 End If;
565 If (p_rec.rsrv_val_last_upd_by = hr_api.g_number) then
566 p_rec.rsrv_val_last_upd_by :=
567 ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by;
568 End If;
569 --
570 End convert_defs;
571 --
572 -- ----------------------------------------------------------------------------
573 -- |---------------------------------< upd >----------------------------------|
574 -- ----------------------------------------------------------------------------
575 Procedure upd
576 (p_rec in out nocopy ben_cpg_shd.g_rec_type
577 ) is
578 --
579 l_proc varchar2(72) := g_package||'upd';
580 --
581 Begin
582 if g_debug then
583 hr_utility.set_location('Entering:'||l_proc, 5);
584 end if;
585 --
586 -- We must lock the row which we need to update.
587 --
588 ben_cpg_shd.lck
589 (p_rec.group_per_in_ler_id
590 ,p_rec.group_pl_id
591 ,p_rec.group_oipl_id
592 ,p_rec.object_version_number
593 );
594 --
595 -- 1. During an update system defaults are used to determine if
596 -- arguments have been defaulted or not. We must therefore
597 -- derive the full record structure values to be updated.
598 --
599 -- 2. Call the supporting update validate operations.
600 --
601 convert_defs(p_rec);
602 ben_cpg_bus.update_validate
603 (p_rec
604 );
605 --
606 -- Call to raise any errors on multi-message list
607 hr_multi_message.end_validation_set;
608 --
609 -- Call the supporting pre-update operation
610 --
611 ben_cpg_upd.pre_update(p_rec);
612 --
613 -- Update the row.
614 --
615 ben_cpg_upd.update_dml(p_rec);
616 --
617 -- Call the supporting post-update operation
618 --
619 ben_cpg_upd.post_update
620 (p_rec
621 );
622 --
623 -- Call to raise any errors on multi-message list
624 hr_multi_message.end_validation_set;
625 End upd;
626 --
627 -- ----------------------------------------------------------------------------
628 -- |---------------------------------< upd >----------------------------------|
629 -- ----------------------------------------------------------------------------
630 Procedure upd
631 (p_group_per_in_ler_id in number
632 ,p_group_pl_id in number
633 ,p_group_oipl_id in number
634 ,p_object_version_number in out nocopy number
635 ,p_lf_evt_ocrd_dt in date default hr_api.g_date
636 ,p_bdgt_pop_cd in varchar2 default hr_api.g_varchar2
637 ,p_due_dt in date default hr_api.g_date
638 ,p_access_cd in varchar2 default hr_api.g_varchar2
639 ,p_approval_cd in varchar2 default hr_api.g_varchar2
640 ,p_approval_date in date default hr_api.g_date
641 ,p_approval_comments in varchar2 default hr_api.g_varchar2
642 ,p_submit_cd in varchar2 default hr_api.g_varchar2
643 ,p_submit_date in date default hr_api.g_date
644 ,p_submit_comments in varchar2 default hr_api.g_varchar2
645 ,p_dist_bdgt_val in number default hr_api.g_number
646 ,p_ws_bdgt_val in number default hr_api.g_number
647 ,p_rsrv_val in number default hr_api.g_number
648 ,p_dist_bdgt_mn_val in number default hr_api.g_number
649 ,p_dist_bdgt_mx_val in number default hr_api.g_number
650 ,p_dist_bdgt_incr_val in number default hr_api.g_number
651 ,p_ws_bdgt_mn_val in number default hr_api.g_number
652 ,p_ws_bdgt_mx_val in number default hr_api.g_number
653 ,p_ws_bdgt_incr_val in number default hr_api.g_number
654 ,p_rsrv_mn_val in number default hr_api.g_number
655 ,p_rsrv_mx_val in number default hr_api.g_number
656 ,p_rsrv_incr_val in number default hr_api.g_number
657 ,p_dist_bdgt_iss_val in number default hr_api.g_number
658 ,p_ws_bdgt_iss_val in number default hr_api.g_number
659 ,p_dist_bdgt_iss_date in date default hr_api.g_date
660 ,p_ws_bdgt_iss_date in date default hr_api.g_date
661 ,p_ws_bdgt_val_last_upd_date in date default hr_api.g_date
662 ,p_dist_bdgt_val_last_upd_date in date default hr_api.g_date
663 ,p_rsrv_val_last_upd_date in date default hr_api.g_date
664 ,p_ws_bdgt_val_last_upd_by in number default hr_api.g_number
665 ,p_dist_bdgt_val_last_upd_by in number default hr_api.g_number
666 ,p_rsrv_val_last_upd_by in number default hr_api.g_number
667 ) is
668 --
669 l_rec ben_cpg_shd.g_rec_type;
670 l_proc varchar2(72) := g_package||'upd';
671 --
672 Begin
673 if g_debug then
674 hr_utility.set_location('Entering:'||l_proc, 5);
675 end if;
676 --
677 -- Call conversion function to turn arguments into the
678 -- l_rec structure.
679 --
680 l_rec :=
681 ben_cpg_shd.convert_args
682 (p_group_per_in_ler_id
683 ,p_group_pl_id
684 ,p_group_oipl_id
685 ,p_lf_evt_ocrd_dt
686 ,p_bdgt_pop_cd
687 ,p_due_dt
688 ,p_access_cd
689 ,p_approval_cd
690 ,p_approval_date
691 ,p_approval_comments
692 ,p_submit_cd
693 ,p_submit_date
694 ,p_submit_comments
695 ,p_dist_bdgt_val
696 ,p_ws_bdgt_val
697 ,p_rsrv_val
698 ,p_dist_bdgt_mn_val
699 ,p_dist_bdgt_mx_val
700 ,p_dist_bdgt_incr_val
701 ,p_ws_bdgt_mn_val
702 ,p_ws_bdgt_mx_val
703 ,p_ws_bdgt_incr_val
704 ,p_rsrv_mn_val
705 ,p_rsrv_mx_val
706 ,p_rsrv_incr_val
707 ,p_dist_bdgt_iss_val
708 ,p_ws_bdgt_iss_val
709 ,p_dist_bdgt_iss_date
710 ,p_ws_bdgt_iss_date
711 ,p_ws_bdgt_val_last_upd_date
712 ,p_dist_bdgt_val_last_upd_date
713 ,p_rsrv_val_last_upd_date
714 ,p_ws_bdgt_val_last_upd_by
715 ,p_dist_bdgt_val_last_upd_by
716 ,p_rsrv_val_last_upd_by
717 ,p_object_version_number
718 );
719 --
720 -- Having converted the arguments into the
721 -- plsql record structure we call the corresponding record
722 -- business process.
723 --
724 ben_cpg_upd.upd
725 (l_rec
726 );
727 p_object_version_number := l_rec.object_version_number;
728 --
729 if g_debug then
730 hr_utility.set_location(' Leaving:'||l_proc, 10);
731 end if;
732 End upd;
733 --
734 end ben_cpg_upd;
[Home] [Help]