[Home] [Help]
PACKAGE BODY: APPS.BEN_CTP_UPD
Source
1 Package Body ben_ctp_upd as
2 /* $Header: bectprhi.pkb 120.0.12020000.2 2012/07/03 12:06:46 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_ctp_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_ctp_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_ptip_f',
78 p_base_key_column => 'ptip_id',
79 p_base_key_value => p_rec.ptip_id);
80 --
81 ben_ctp_shd.g_api_dml := true; -- Set the api dml status
82 --
83 -- Update the ben_ptip_f Row
84 --
85 update ben_ptip_f
86 set
87 ptip_id = p_rec.ptip_id,
88 business_group_id = p_rec.business_group_id,
89 pgm_id = p_rec.pgm_id,
90 cmbn_ptip_id = p_rec.cmbn_ptip_id,
91 cmbn_ptip_opt_id = p_rec.cmbn_ptip_opt_id,
92 acrs_ptip_cvg_id = p_rec.acrs_ptip_cvg_id,
93 pl_typ_id = p_rec.pl_typ_id,
94 coord_cvg_for_all_pls_flag = p_rec.coord_cvg_for_all_pls_flag,
95 dpnt_dsgn_cd = p_rec.dpnt_dsgn_cd,
96 dpnt_cvg_strt_dt_rl = p_rec.dpnt_cvg_strt_dt_rl,
97 dpnt_cvg_end_dt_rl = p_rec.dpnt_cvg_end_dt_rl,
98 postelcn_edit_rl = p_rec.postelcn_edit_rl,
99 rt_end_dt_rl = p_rec.rt_end_dt_rl,
100 rt_strt_dt_rl = p_rec.rt_strt_dt_rl,
101 enrt_cvg_end_dt_rl = p_rec.enrt_cvg_end_dt_rl,
102 enrt_cvg_strt_dt_rl = p_rec.enrt_cvg_strt_dt_rl,
103 rqd_perd_enrt_nenrt_rl = p_rec.rqd_perd_enrt_nenrt_rl,
104 auto_enrt_mthd_rl = p_rec.auto_enrt_mthd_rl,
105 enrt_mthd_cd = p_rec.enrt_mthd_cd,
106 enrt_cd = p_rec.enrt_cd,
107 enrt_rl = p_rec.enrt_rl,
108 dflt_enrt_cd = p_rec.dflt_enrt_cd,
109 dflt_enrt_det_rl = p_rec.dflt_enrt_det_rl,
110 drvbl_fctr_apls_rts_flag = p_rec.drvbl_fctr_apls_rts_flag,
111 drvbl_fctr_prtn_elig_flag = p_rec.drvbl_fctr_prtn_elig_flag,
112 elig_apls_flag = p_rec.elig_apls_flag,
113 prtn_elig_ovrid_alwd_flag = p_rec.prtn_elig_ovrid_alwd_flag,
114 trk_inelig_per_flag = p_rec.trk_inelig_per_flag,
115 dpnt_cvg_strt_dt_cd = p_rec.dpnt_cvg_strt_dt_cd,
116 rt_end_dt_cd = p_rec.rt_end_dt_cd,
117 rt_strt_dt_cd = p_rec.rt_strt_dt_cd,
118 enrt_cvg_end_dt_cd = p_rec.enrt_cvg_end_dt_cd,
119 enrt_cvg_strt_dt_cd = p_rec.enrt_cvg_strt_dt_cd,
120 dpnt_cvg_end_dt_cd = p_rec.dpnt_cvg_end_dt_cd,
121 crs_this_pl_typ_only_flag = p_rec.crs_this_pl_typ_only_flag,
122 ptip_stat_cd = p_rec.ptip_stat_cd,
123 mx_cvg_alwd_amt = p_rec.mx_cvg_alwd_amt,
124 mx_enrd_alwd_ovrid_num = p_rec.mx_enrd_alwd_ovrid_num,
125 mn_enrd_rqd_ovrid_num = p_rec.mn_enrd_rqd_ovrid_num,
126 no_mx_pl_typ_ovrid_flag = p_rec.no_mx_pl_typ_ovrid_flag,
127 ordr_num = p_rec.ordr_num,
128 prvds_cr_flag = p_rec.prvds_cr_flag,
129 rqd_perd_enrt_nenrt_val = p_rec.rqd_perd_enrt_nenrt_val,
130 rqd_perd_enrt_nenrt_tm_uom = p_rec.rqd_perd_enrt_nenrt_tm_uom,
131 wvbl_flag = p_rec.wvbl_flag,
132 dpnt_adrs_rqd_flag = p_rec.dpnt_adrs_rqd_flag,
133 dpnt_cvg_no_ctfn_rqd_flag = p_rec.dpnt_cvg_no_ctfn_rqd_flag,
134 dpnt_dob_rqd_flag = p_rec.dpnt_dob_rqd_flag,
135 dpnt_legv_id_rqd_flag = p_rec.dpnt_legv_id_rqd_flag,
136 susp_if_dpnt_ssn_nt_prv_cd = p_rec.susp_if_dpnt_ssn_nt_prv_cd,
137 susp_if_dpnt_dob_nt_prv_cd = p_rec.susp_if_dpnt_dob_nt_prv_cd,
138 susp_if_dpnt_adr_nt_prv_cd = p_rec.susp_if_dpnt_adr_nt_prv_cd,
139 susp_if_ctfn_not_dpnt_flag = p_rec.susp_if_ctfn_not_dpnt_flag,
140 dpnt_ctfn_determine_cd = p_rec.dpnt_ctfn_determine_cd,
141 drvd_fctr_dpnt_cvg_flag = p_rec.drvd_fctr_dpnt_cvg_flag,
142 no_mn_pl_typ_overid_flag = p_rec.no_mn_pl_typ_overid_flag,
143 sbj_to_sps_lf_ins_mx_flag = p_rec.sbj_to_sps_lf_ins_mx_flag,
144 sbj_to_dpnt_lf_ins_mx_flag = p_rec.sbj_to_dpnt_lf_ins_mx_flag,
145 use_to_sum_ee_lf_ins_flag = p_rec.use_to_sum_ee_lf_ins_flag,
146 per_cvrd_cd = p_rec.per_cvrd_cd,
147 short_name = p_rec.short_name,
148 short_code = p_rec.short_code,
149 legislation_code = p_rec.legislation_code,
150 legislation_subgroup = p_rec.legislation_subgroup,
151 vrfy_fmly_mmbr_cd = p_rec.vrfy_fmly_mmbr_cd,
152 vrfy_fmly_mmbr_rl = p_rec.vrfy_fmly_mmbr_rl,
153 ivr_ident = p_rec.ivr_ident,
154 url_ref_name = p_rec.url_ref_name,
155 rqd_enrt_perd_tco_cd = p_rec.rqd_enrt_perd_tco_cd,
156 ctp_attribute_category = p_rec.ctp_attribute_category,
157 ctp_attribute1 = p_rec.ctp_attribute1,
158 ctp_attribute2 = p_rec.ctp_attribute2,
159 ctp_attribute3 = p_rec.ctp_attribute3,
160 ctp_attribute4 = p_rec.ctp_attribute4,
161 ctp_attribute5 = p_rec.ctp_attribute5,
162 ctp_attribute6 = p_rec.ctp_attribute6,
163 ctp_attribute7 = p_rec.ctp_attribute7,
164 ctp_attribute8 = p_rec.ctp_attribute8,
165 ctp_attribute9 = p_rec.ctp_attribute9,
166 ctp_attribute10 = p_rec.ctp_attribute10,
167 ctp_attribute11 = p_rec.ctp_attribute11,
168 ctp_attribute12 = p_rec.ctp_attribute12,
169 ctp_attribute13 = p_rec.ctp_attribute13,
170 ctp_attribute14 = p_rec.ctp_attribute14,
171 ctp_attribute15 = p_rec.ctp_attribute15,
172 ctp_attribute16 = p_rec.ctp_attribute16,
173 ctp_attribute17 = p_rec.ctp_attribute17,
174 ctp_attribute18 = p_rec.ctp_attribute18,
175 ctp_attribute19 = p_rec.ctp_attribute19,
176 ctp_attribute20 = p_rec.ctp_attribute20,
177 ctp_attribute21 = p_rec.ctp_attribute21,
178 ctp_attribute22 = p_rec.ctp_attribute22,
179 ctp_attribute23 = p_rec.ctp_attribute23,
180 ctp_attribute24 = p_rec.ctp_attribute24,
181 ctp_attribute25 = p_rec.ctp_attribute25,
182 ctp_attribute26 = p_rec.ctp_attribute26,
183 ctp_attribute27 = p_rec.ctp_attribute27,
184 ctp_attribute28 = p_rec.ctp_attribute28,
185 ctp_attribute29 = p_rec.ctp_attribute29,
186 ctp_attribute30 = p_rec.ctp_attribute30,
187 object_version_number = p_rec.object_version_number ,
188 all_inelig = p_rec.all_inelig
189 where ptip_id = p_rec.ptip_id
190 and effective_start_date = p_validation_start_date
191 and effective_end_date = p_validation_end_date;
192 --
193 ben_ctp_shd.g_api_dml := false; -- Unset the api dml status
194 --
195 -- Set the effective start and end dates
196 --
197 p_rec.effective_start_date := p_validation_start_date;
198 p_rec.effective_end_date := p_validation_end_date;
199 End If;
200 --
201 hr_utility.set_location(' Leaving:'||l_proc, 15);
202 Exception
203 When hr_api.check_integrity_violated Then
204 -- A check constraint has been violated
205 ben_ctp_shd.g_api_dml := false; -- Unset the api dml status
206 ben_ctp_shd.constraint_error
207 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
208 When hr_api.unique_integrity_violated Then
209 -- Unique integrity has been violated
210 ben_ctp_shd.g_api_dml := false; -- Unset the api dml status
211 ben_ctp_shd.constraint_error
212 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
213 When Others Then
214 ben_ctp_shd.g_api_dml := false; -- Unset the api dml status
215 Raise;
216 End dt_update_dml;
217 --
218 -- ----------------------------------------------------------------------------
219 -- |------------------------------< update_dml >------------------------------|
220 -- ----------------------------------------------------------------------------
221 -- {Start Of Comments}
222 --
223 -- Description:
224 -- This procedure calls the dt_update_dml control logic which handles
225 -- the actual datetrack dml.
226 --
227 -- Prerequisites:
228 -- This is an internal private procedure which must be called from the upd
229 -- procedure.
230 --
231 -- In Parameters:
232 -- A Pl/Sql record structre.
233 --
234 -- Post Success:
235 -- Processing contines.
236 --
237 -- Post Failure:
238 -- No specific error handling is required within this procedure.
239 --
240 -- Developer Implementation Notes:
241 -- The update 'set' arguments list should be modified if any of your
242 -- attributes are not updateable.
243 --
244 -- Access Status:
245 -- Internal Row Handler Use Only.
246 --
247 -- {End Of Comments}
248 -- ----------------------------------------------------------------------------
249 Procedure update_dml
250 (p_rec in out nocopy ben_ctp_shd.g_rec_type,
251 p_effective_date in date,
252 p_datetrack_mode in varchar2,
253 p_validation_start_date in date,
254 p_validation_end_date in date) is
255 --
256 l_proc varchar2(72) := g_package||'update_dml';
257 --
258 Begin
259 hr_utility.set_location('Entering:'||l_proc, 5);
260 --
261 dt_update_dml(p_rec => p_rec,
262 p_effective_date => p_effective_date,
263 p_datetrack_mode => p_datetrack_mode,
264 p_validation_start_date => p_validation_start_date,
265 p_validation_end_date => p_validation_end_date);
266 --
267 hr_utility.set_location(' Leaving:'||l_proc, 10);
268 End update_dml;
269 --
270 -- ----------------------------------------------------------------------------
271 -- |----------------------------< dt_pre_update >-----------------------------|
272 -- ----------------------------------------------------------------------------
273 -- {Start Of Comments}
274 --
275 -- Description:
276 -- The dt_pre_update procedure controls the execution
277 -- of dml for the datetrack modes of: UPDATE, UPDATE_OVERRIDE
278 -- and UPDATE_CHANGE_INSERT only. The execution required is as
279 -- follows:
280 --
281 -- 1) Providing the datetrack update mode is not 'CORRECTION'
282 -- then set the effective end date of the current row (this
283 -- will be the validation_start_date - 1).
284 -- 2) If the datetrack mode is 'UPDATE_OVERRIDE' then call the
285 -- corresponding delete_dml process to delete any future rows
286 -- where the effective_start_date is greater than or equal to
287 -- the validation_start_date.
288 -- 3) Call the insert_dml process to insert the new updated row
289 -- details..
290 --
291 -- Prerequisites:
292 -- This is an internal procedure which is called from the
293 -- pre_update procedure.
294 --
295 -- In Parameters:
296 --
297 -- Post Success:
298 -- Processing continues.
299 --
300 -- Post Failure:
301 -- If an error has occurred, an error message and exception will be raised
302 -- but not handled.
303 --
304 -- Developer Implementation Notes:
305 -- This is an internal procedure which is required by Datetrack. Don't
306 -- remove or modify.
307 --
308 -- Access Status:
309 -- Internal Row Handler Use Only.
310 --
311 -- {End Of Comments}
312 -- ----------------------------------------------------------------------------
313 Procedure dt_pre_update
314 (p_rec in out nocopy ben_ctp_shd.g_rec_type,
315 p_effective_date in date,
316 p_datetrack_mode in varchar2,
317 p_validation_start_date in date,
318 p_validation_end_date in date) is
319 --
320 l_proc varchar2(72) := g_package||'dt_pre_update';
321 l_dummy_version_number number;
322 --
323 Begin
324 hr_utility.set_location('Entering:'||l_proc, 5);
325 If (p_datetrack_mode <> 'CORRECTION') then
326 hr_utility.set_location(l_proc, 10);
327 --
328 -- Update the current effective end date
329 --
330 ben_ctp_shd.upd_effective_end_date
331 (p_effective_date => p_effective_date,
332 p_base_key_value => p_rec.ptip_id,
333 p_new_effective_end_date => (p_validation_start_date - 1),
334 p_validation_start_date => p_validation_start_date,
335 p_validation_end_date => p_validation_end_date,
336 p_object_version_number => l_dummy_version_number);
337 --
338 If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
339 hr_utility.set_location(l_proc, 15);
340 --
341 -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
342 -- delete any future rows
343 --
344 ben_ctp_del.delete_dml
345 (p_rec => p_rec,
346 p_effective_date => p_effective_date,
347 p_datetrack_mode => p_datetrack_mode,
348 p_validation_start_date => p_validation_start_date,
349 p_validation_end_date => p_validation_end_date);
350 End If;
351 hr_utility.set_location(l_proc, 20);
352 --
353 -- We must now insert the updated row
354 --
355 ben_ctp_ins.insert_dml
356 (p_rec => p_rec,
357 p_effective_date => p_effective_date,
358 p_datetrack_mode => p_datetrack_mode,
359 p_validation_start_date => p_validation_start_date,
360 p_validation_end_date => p_validation_end_date);
361 End If;
362 hr_utility.set_location(' Leaving:'||l_proc, 20);
363 End dt_pre_update;
364 --
365 -- ----------------------------------------------------------------------------
366 -- |------------------------------< pre_update >------------------------------|
367 -- ----------------------------------------------------------------------------
368 -- {Start Of Comments}
369 --
370 -- Description:
371 -- This private procedure contains any processing which is required before
372 -- the update dml.
373 --
374 -- Prerequisites:
375 -- This is an internal procedure which is called from the upd procedure.
376 --
377 -- In Parameters:
378 -- A Pl/Sql record structre.
379 --
380 -- Post Success:
381 -- Processing continues.
382 --
383 -- Post Failure:
384 -- If an error has occurred, an error message and exception will be raised
385 -- but not handled.
386 --
387 -- Developer Implementation Notes:
388 -- Any pre-processing required before the update dml is issued should be
389 -- coded within this procedure. It is important to note that any 3rd party
390 -- maintenance should be reviewed before placing in this procedure. The call
391 -- to the dt_update_dml procedure should NOT be removed.
392 --
393 -- Access Status:
394 -- Internal Row Handler Use Only.
395 --
396 -- {End Of Comments}
397 -- ----------------------------------------------------------------------------
398 Procedure pre_update
399 (p_rec in out nocopy ben_ctp_shd.g_rec_type,
400 p_effective_date in date,
401 p_datetrack_mode in varchar2,
402 p_validation_start_date in date,
403 p_validation_end_date in date) is
404 --
405 l_proc varchar2(72) := g_package||'pre_update';
406 --
407 Begin
408 hr_utility.set_location('Entering:'||l_proc, 5);
409 --
410 --
411 --
412 dt_pre_update
413 (p_rec => p_rec,
414 p_effective_date => p_effective_date,
415 p_datetrack_mode => p_datetrack_mode,
416 p_validation_start_date => p_validation_start_date,
417 p_validation_end_date => p_validation_end_date);
418 --
419 hr_utility.set_location(' Leaving:'||l_proc, 10);
420 End pre_update;
421 --
422 -- ----------------------------------------------------------------------------
423 -- |-----------------------------< post_update >------------------------------|
424 -- ----------------------------------------------------------------------------
425 -- {Start Of Comments}
426 --
427 -- Description:
428 -- This private procedure contains any processing which is required after the
429 -- update dml.
430 --
431 -- Prerequisites:
432 -- This is an internal procedure which is called from the upd procedure.
433 --
434 -- In Parameters:
435 -- A Pl/Sql record structre.
436 --
437 -- Post Success:
438 -- Processing continues.
439 --
440 -- Post Failure:
441 -- If an error has occurred, an error message and exception will be raised
442 -- but not handled.
443 --
444 -- Developer Implementation Notes:
445 -- Any post-processing required after the update dml is issued should be
446 -- coded within this procedure. It is important to note that any 3rd party
447 -- maintenance should be reviewed before placing in this procedure.
448 --
449 -- Access Status:
450 -- Internal Row Handler Use Only.
451 --
452 -- {End Of Comments}
453 -- ----------------------------------------------------------------------------
454 Procedure post_update
455 (p_rec in ben_ctp_shd.g_rec_type,
456 p_effective_date in date,
457 p_datetrack_mode in varchar2,
458 p_validation_start_date in date,
459 p_validation_end_date in date) is
460 --
461 l_proc varchar2(72) := g_package||'post_update';
462 --
463 Begin
464 hr_utility.set_location('Entering:'||l_proc, 5);
465 --
466 --
467 -- Start of API User Hook for post_update.
468 --
469 begin
470 --
471 ben_ctp_rku.after_update
472 (
473 p_ptip_id =>p_rec.ptip_id
474 ,p_effective_start_date =>p_rec.effective_start_date
475 ,p_effective_end_date =>p_rec.effective_end_date
476 ,p_business_group_id =>p_rec.business_group_id
477 ,p_pgm_id =>p_rec.pgm_id
478 ,p_cmbn_ptip_id =>p_rec.cmbn_ptip_id
479 ,p_cmbn_ptip_opt_id =>p_rec.cmbn_ptip_opt_id
480 ,p_acrs_ptip_cvg_id =>p_rec.acrs_ptip_cvg_id
481 ,p_pl_typ_id =>p_rec.pl_typ_id
482 ,p_coord_cvg_for_all_pls_flag =>p_rec.coord_cvg_for_all_pls_flag
483 ,p_dpnt_dsgn_cd =>p_rec.dpnt_dsgn_cd
484 ,p_dpnt_cvg_strt_dt_rl =>p_rec.dpnt_cvg_strt_dt_rl
485 ,p_dpnt_cvg_end_dt_rl =>p_rec.dpnt_cvg_end_dt_rl
486 ,p_postelcn_edit_rl =>p_rec.postelcn_edit_rl
487 ,p_rt_end_dt_rl =>p_rec.rt_end_dt_rl
488 ,p_rt_strt_dt_rl =>p_rec.rt_strt_dt_rl
489 ,p_enrt_cvg_end_dt_rl =>p_rec.enrt_cvg_end_dt_rl
490 ,p_enrt_cvg_strt_dt_rl =>p_rec.enrt_cvg_strt_dt_rl
491 ,p_rqd_perd_enrt_nenrt_rl =>p_rec.rqd_perd_enrt_nenrt_rl
492 ,p_auto_enrt_mthd_rl =>p_rec.auto_enrt_mthd_rl
493 ,p_enrt_mthd_cd =>p_rec.enrt_mthd_cd
494 ,p_enrt_cd =>p_rec.enrt_cd
495 ,p_enrt_rl =>p_rec.enrt_rl
496 ,p_dflt_enrt_cd =>p_rec.dflt_enrt_cd
497 ,p_dflt_enrt_det_rl =>p_rec.dflt_enrt_det_rl
498 ,p_drvbl_fctr_apls_rts_flag =>p_rec.drvbl_fctr_apls_rts_flag
499 ,p_drvbl_fctr_prtn_elig_flag =>p_rec.drvbl_fctr_prtn_elig_flag
500 ,p_elig_apls_flag =>p_rec.elig_apls_flag
501 ,p_prtn_elig_ovrid_alwd_flag =>p_rec.prtn_elig_ovrid_alwd_flag
502 ,p_trk_inelig_per_flag =>p_rec.trk_inelig_per_flag
503 ,p_dpnt_cvg_strt_dt_cd =>p_rec.dpnt_cvg_strt_dt_cd
504 ,p_rt_end_dt_cd =>p_rec.rt_end_dt_cd
505 ,p_rt_strt_dt_cd =>p_rec.rt_strt_dt_cd
506 ,p_enrt_cvg_end_dt_cd =>p_rec.enrt_cvg_end_dt_cd
507 ,p_enrt_cvg_strt_dt_cd =>p_rec.enrt_cvg_strt_dt_cd
508 ,p_dpnt_cvg_end_dt_cd =>p_rec.dpnt_cvg_end_dt_cd
509 ,p_crs_this_pl_typ_only_flag =>p_rec.crs_this_pl_typ_only_flag
510 ,p_ptip_stat_cd =>p_rec.ptip_stat_cd
511 ,p_mx_cvg_alwd_amt =>p_rec.mx_cvg_alwd_amt
512 ,p_mx_enrd_alwd_ovrid_num =>p_rec.mx_enrd_alwd_ovrid_num
513 ,p_mn_enrd_rqd_ovrid_num =>p_rec.mn_enrd_rqd_ovrid_num
514 ,p_no_mx_pl_typ_ovrid_flag =>p_rec.no_mx_pl_typ_ovrid_flag
515 ,p_ordr_num =>p_rec.ordr_num
516 ,p_prvds_cr_flag =>p_rec.prvds_cr_flag
517 ,p_rqd_perd_enrt_nenrt_val =>p_rec.rqd_perd_enrt_nenrt_val
518 ,p_rqd_perd_enrt_nenrt_tm_uom =>p_rec.rqd_perd_enrt_nenrt_tm_uom
519 ,p_wvbl_flag =>p_rec.wvbl_flag
520 ,p_dpnt_adrs_rqd_flag =>p_rec.dpnt_adrs_rqd_flag
521 ,p_dpnt_cvg_no_ctfn_rqd_flag =>p_rec.dpnt_cvg_no_ctfn_rqd_flag
522 ,p_dpnt_dob_rqd_flag =>p_rec.dpnt_dob_rqd_flag
523 ,p_dpnt_legv_id_rqd_flag =>p_rec.dpnt_legv_id_rqd_flag
524 ,p_susp_if_dpnt_ssn_nt_prv_cd =>p_rec.susp_if_dpnt_ssn_nt_prv_cd
525 ,p_susp_if_dpnt_dob_nt_prv_cd =>p_rec.susp_if_dpnt_dob_nt_prv_cd
526 ,p_susp_if_dpnt_adr_nt_prv_cd =>p_rec.susp_if_dpnt_adr_nt_prv_cd
527 ,p_susp_if_ctfn_not_dpnt_flag =>p_rec.susp_if_ctfn_not_dpnt_flag
528 ,p_dpnt_ctfn_determine_cd =>p_rec.dpnt_ctfn_determine_cd
529 ,p_drvd_fctr_dpnt_cvg_flag =>p_rec.drvd_fctr_dpnt_cvg_flag
530 ,p_no_mn_pl_typ_overid_flag =>p_rec.no_mn_pl_typ_overid_flag
531 ,p_sbj_to_sps_lf_ins_mx_flag =>p_rec.sbj_to_sps_lf_ins_mx_flag
532 ,p_sbj_to_dpnt_lf_ins_mx_flag =>p_rec.sbj_to_dpnt_lf_ins_mx_flag
533 ,p_use_to_sum_ee_lf_ins_flag =>p_rec.use_to_sum_ee_lf_ins_flag
534 ,p_per_cvrd_cd =>p_rec.per_cvrd_cd
535 ,p_short_name =>p_rec.short_name
536 ,p_short_code =>p_rec.short_code
537 ,p_legislation_code =>p_rec.legislation_code
538 ,p_legislation_subgroup =>p_rec.legislation_subgroup
539 ,p_vrfy_fmly_mmbr_cd =>p_rec.vrfy_fmly_mmbr_cd
540 ,p_vrfy_fmly_mmbr_rl =>p_rec.vrfy_fmly_mmbr_rl
541 ,p_ivr_ident =>p_rec.ivr_ident
542 ,p_url_ref_name =>p_rec.url_ref_name
543 ,p_rqd_enrt_perd_tco_cd =>p_rec.rqd_enrt_perd_tco_cd
544 ,p_ctp_attribute_category =>p_rec.ctp_attribute_category
545 ,p_ctp_attribute1 =>p_rec.ctp_attribute1
546 ,p_ctp_attribute2 =>p_rec.ctp_attribute2
547 ,p_ctp_attribute3 =>p_rec.ctp_attribute3
548 ,p_ctp_attribute4 =>p_rec.ctp_attribute4
549 ,p_ctp_attribute5 =>p_rec.ctp_attribute5
550 ,p_ctp_attribute6 =>p_rec.ctp_attribute6
551 ,p_ctp_attribute7 =>p_rec.ctp_attribute7
552 ,p_ctp_attribute8 =>p_rec.ctp_attribute8
553 ,p_ctp_attribute9 =>p_rec.ctp_attribute9
554 ,p_ctp_attribute10 =>p_rec.ctp_attribute10
555 ,p_ctp_attribute11 =>p_rec.ctp_attribute11
556 ,p_ctp_attribute12 =>p_rec.ctp_attribute12
557 ,p_ctp_attribute13 =>p_rec.ctp_attribute13
558 ,p_ctp_attribute14 =>p_rec.ctp_attribute14
559 ,p_ctp_attribute15 =>p_rec.ctp_attribute15
560 ,p_ctp_attribute16 =>p_rec.ctp_attribute16
561 ,p_ctp_attribute17 =>p_rec.ctp_attribute17
562 ,p_ctp_attribute18 =>p_rec.ctp_attribute18
563 ,p_ctp_attribute19 =>p_rec.ctp_attribute19
564 ,p_ctp_attribute20 =>p_rec.ctp_attribute20
565 ,p_ctp_attribute21 =>p_rec.ctp_attribute21
566 ,p_ctp_attribute22 =>p_rec.ctp_attribute22
567 ,p_ctp_attribute23 =>p_rec.ctp_attribute23
568 ,p_ctp_attribute24 =>p_rec.ctp_attribute24
569 ,p_ctp_attribute25 =>p_rec.ctp_attribute25
570 ,p_ctp_attribute26 =>p_rec.ctp_attribute26
571 ,p_ctp_attribute27 =>p_rec.ctp_attribute27
572 ,p_ctp_attribute28 =>p_rec.ctp_attribute28
573 ,p_ctp_attribute29 =>p_rec.ctp_attribute29
574 ,p_ctp_attribute30 =>p_rec.ctp_attribute30
575 ,p_all_inelig =>p_rec.all_inelig
576 ,p_object_version_number =>p_rec.object_version_number
577 ,p_effective_date =>p_effective_date
578 ,p_datetrack_mode =>p_datetrack_mode
579 ,p_validation_start_date =>p_validation_start_date
580 ,p_validation_end_date =>p_validation_end_date
581 ,p_effective_start_date_o =>ben_ctp_shd.g_old_rec.effective_start_date
582 ,p_effective_end_date_o =>ben_ctp_shd.g_old_rec.effective_end_date
583 ,p_business_group_id_o =>ben_ctp_shd.g_old_rec.business_group_id
584 ,p_pgm_id_o =>ben_ctp_shd.g_old_rec.pgm_id
585 ,p_cmbn_ptip_id_o =>ben_ctp_shd.g_old_rec.cmbn_ptip_id
586 ,p_cmbn_ptip_opt_id_o =>ben_ctp_shd.g_old_rec.cmbn_ptip_opt_id
587 ,p_acrs_ptip_cvg_id_o =>ben_ctp_shd.g_old_rec.acrs_ptip_cvg_id
588 ,p_pl_typ_id_o =>ben_ctp_shd.g_old_rec.pl_typ_id
589 ,p_coord_cvg_for_all_pls_flag_o =>ben_ctp_shd.g_old_rec.coord_cvg_for_all_pls_flag
590 ,p_dpnt_dsgn_cd_o =>ben_ctp_shd.g_old_rec.dpnt_dsgn_cd
591 ,p_dpnt_cvg_strt_dt_rl_o =>ben_ctp_shd.g_old_rec.dpnt_cvg_strt_dt_rl
592 ,p_dpnt_cvg_end_dt_rl_o =>ben_ctp_shd.g_old_rec.dpnt_cvg_end_dt_rl
593 ,p_postelcn_edit_rl_o =>ben_ctp_shd.g_old_rec.postelcn_edit_rl
594 ,p_rt_end_dt_rl_o =>ben_ctp_shd.g_old_rec.rt_end_dt_rl
595 ,p_rt_strt_dt_rl_o =>ben_ctp_shd.g_old_rec.rt_strt_dt_rl
596 ,p_enrt_cvg_end_dt_rl_o =>ben_ctp_shd.g_old_rec.enrt_cvg_end_dt_rl
597 ,p_enrt_cvg_strt_dt_rl_o =>ben_ctp_shd.g_old_rec.enrt_cvg_strt_dt_rl
598 ,p_rqd_perd_enrt_nenrt_rl_o =>ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_rl
599 ,p_auto_enrt_mthd_rl_o =>ben_ctp_shd.g_old_rec.auto_enrt_mthd_rl
600 ,p_enrt_mthd_cd_o =>ben_ctp_shd.g_old_rec.enrt_mthd_cd
601 ,p_enrt_cd_o =>ben_ctp_shd.g_old_rec.enrt_cd
602 ,p_enrt_rl_o =>ben_ctp_shd.g_old_rec.enrt_rl
603 ,p_dflt_enrt_cd_o =>ben_ctp_shd.g_old_rec.dflt_enrt_cd
604 ,p_dflt_enrt_det_rl_o =>ben_ctp_shd.g_old_rec.dflt_enrt_det_rl
605 ,p_drvbl_fctr_apls_rts_flag_o =>ben_ctp_shd.g_old_rec.drvbl_fctr_apls_rts_flag
606 ,p_drvbl_fctr_prtn_elig_flag_o =>ben_ctp_shd.g_old_rec.drvbl_fctr_prtn_elig_flag
607 ,p_elig_apls_flag_o =>ben_ctp_shd.g_old_rec.elig_apls_flag
608 ,p_prtn_elig_ovrid_alwd_flag_o =>ben_ctp_shd.g_old_rec.prtn_elig_ovrid_alwd_flag
609 ,p_trk_inelig_per_flag_o =>ben_ctp_shd.g_old_rec.trk_inelig_per_flag
610 ,p_dpnt_cvg_strt_dt_cd_o =>ben_ctp_shd.g_old_rec.dpnt_cvg_strt_dt_cd
611 ,p_rt_end_dt_cd_o =>ben_ctp_shd.g_old_rec.rt_end_dt_cd
612 ,p_rt_strt_dt_cd_o =>ben_ctp_shd.g_old_rec.rt_strt_dt_cd
613 ,p_enrt_cvg_end_dt_cd_o =>ben_ctp_shd.g_old_rec.enrt_cvg_end_dt_cd
614 ,p_enrt_cvg_strt_dt_cd_o =>ben_ctp_shd.g_old_rec.enrt_cvg_strt_dt_cd
615 ,p_dpnt_cvg_end_dt_cd_o =>ben_ctp_shd.g_old_rec.dpnt_cvg_end_dt_cd
616 ,p_crs_this_pl_typ_only_flag_o =>ben_ctp_shd.g_old_rec.crs_this_pl_typ_only_flag
617 ,p_ptip_stat_cd_o =>ben_ctp_shd.g_old_rec.ptip_stat_cd
618 ,p_mx_cvg_alwd_amt_o =>ben_ctp_shd.g_old_rec.mx_cvg_alwd_amt
619 ,p_mx_enrd_alwd_ovrid_num_o =>ben_ctp_shd.g_old_rec.mx_enrd_alwd_ovrid_num
620 ,p_mn_enrd_rqd_ovrid_num_o =>ben_ctp_shd.g_old_rec.mn_enrd_rqd_ovrid_num
621 ,p_no_mx_pl_typ_ovrid_flag_o =>ben_ctp_shd.g_old_rec.no_mx_pl_typ_ovrid_flag
622 ,p_ordr_num_o =>ben_ctp_shd.g_old_rec.ordr_num
623 ,p_prvds_cr_flag_o =>ben_ctp_shd.g_old_rec.prvds_cr_flag
624 ,p_rqd_perd_enrt_nenrt_val_o =>ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_val
625 ,p_rqd_perd_enrt_nenrt_tm_uom_o =>ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_tm_uom
626 ,p_wvbl_flag_o =>ben_ctp_shd.g_old_rec.wvbl_flag
627 ,p_dpnt_adrs_rqd_flag_o =>ben_ctp_shd.g_old_rec.dpnt_adrs_rqd_flag
628 ,p_dpnt_cvg_no_ctfn_rqd_flag_o =>ben_ctp_shd.g_old_rec.dpnt_cvg_no_ctfn_rqd_flag
629 ,p_dpnt_dob_rqd_flag_o =>ben_ctp_shd.g_old_rec.dpnt_dob_rqd_flag
630 ,p_dpnt_legv_id_rqd_flag_o =>ben_ctp_shd.g_old_rec.dpnt_legv_id_rqd_flag
631 ,p_susp_if_dpnt_ssn_nt_prv_cd_o =>ben_ctp_shd.g_old_rec.susp_if_dpnt_ssn_nt_prv_cd
632 ,p_susp_if_dpnt_dob_nt_prv_cd_o =>ben_ctp_shd.g_old_rec.susp_if_dpnt_dob_nt_prv_cd
633 ,p_susp_if_dpnt_adr_nt_prv_cd_o =>ben_ctp_shd.g_old_rec.susp_if_dpnt_adr_nt_prv_cd
634 ,p_susp_if_ctfn_not_dpnt_flag_o =>ben_ctp_shd.g_old_rec.susp_if_ctfn_not_dpnt_flag
635 ,p_dpnt_ctfn_determine_cd_o =>ben_ctp_shd.g_old_rec.dpnt_ctfn_determine_cd
636 ,p_drvd_fctr_dpnt_cvg_flag_o =>ben_ctp_shd.g_old_rec.drvd_fctr_dpnt_cvg_flag
637 ,p_no_mn_pl_typ_overid_flag_o =>ben_ctp_shd.g_old_rec.no_mn_pl_typ_overid_flag
638 ,p_sbj_to_sps_lf_ins_mx_flag_o =>ben_ctp_shd.g_old_rec.sbj_to_sps_lf_ins_mx_flag
639 ,p_sbj_to_dpnt_lf_ins_mx_flag_o =>ben_ctp_shd.g_old_rec.sbj_to_dpnt_lf_ins_mx_flag
640 ,p_use_to_sum_ee_lf_ins_flag_o =>ben_ctp_shd.g_old_rec.use_to_sum_ee_lf_ins_flag
641 ,p_per_cvrd_cd_o =>ben_ctp_shd.g_old_rec.per_cvrd_cd
642 ,p_short_name_o =>ben_ctp_shd.g_old_rec.short_name
643 ,p_short_code_o =>ben_ctp_shd.g_old_rec.short_code
644 ,p_legislation_code_o =>ben_ctp_shd.g_old_rec.legislation_code
645 ,p_legislation_subgroup_o =>ben_ctp_shd.g_old_rec.legislation_subgroup
646 ,p_vrfy_fmly_mmbr_cd_o =>ben_ctp_shd.g_old_rec.vrfy_fmly_mmbr_cd
647 ,p_vrfy_fmly_mmbr_rl_o =>ben_ctp_shd.g_old_rec.vrfy_fmly_mmbr_rl
648 ,p_ivr_ident_o =>ben_ctp_shd.g_old_rec.ivr_ident
649 ,p_url_ref_name_o =>ben_ctp_shd.g_old_rec.url_ref_name
650 ,p_rqd_enrt_perd_tco_cd_o =>ben_ctp_shd.g_old_rec.rqd_enrt_perd_tco_cd
651 ,p_ctp_attribute_category_o =>ben_ctp_shd.g_old_rec.ctp_attribute_category
652 ,p_ctp_attribute1_o =>ben_ctp_shd.g_old_rec.ctp_attribute1
653 ,p_ctp_attribute2_o =>ben_ctp_shd.g_old_rec.ctp_attribute2
654 ,p_ctp_attribute3_o =>ben_ctp_shd.g_old_rec.ctp_attribute3
655 ,p_ctp_attribute4_o =>ben_ctp_shd.g_old_rec.ctp_attribute4
656 ,p_ctp_attribute5_o =>ben_ctp_shd.g_old_rec.ctp_attribute5
657 ,p_ctp_attribute6_o =>ben_ctp_shd.g_old_rec.ctp_attribute6
658 ,p_ctp_attribute7_o =>ben_ctp_shd.g_old_rec.ctp_attribute7
659 ,p_ctp_attribute8_o =>ben_ctp_shd.g_old_rec.ctp_attribute8
660 ,p_ctp_attribute9_o =>ben_ctp_shd.g_old_rec.ctp_attribute9
661 ,p_ctp_attribute10_o =>ben_ctp_shd.g_old_rec.ctp_attribute10
662 ,p_ctp_attribute11_o =>ben_ctp_shd.g_old_rec.ctp_attribute11
663 ,p_ctp_attribute12_o =>ben_ctp_shd.g_old_rec.ctp_attribute12
664 ,p_ctp_attribute13_o =>ben_ctp_shd.g_old_rec.ctp_attribute13
665 ,p_ctp_attribute14_o =>ben_ctp_shd.g_old_rec.ctp_attribute14
666 ,p_ctp_attribute15_o =>ben_ctp_shd.g_old_rec.ctp_attribute15
667 ,p_ctp_attribute16_o =>ben_ctp_shd.g_old_rec.ctp_attribute16
668 ,p_ctp_attribute17_o =>ben_ctp_shd.g_old_rec.ctp_attribute17
669 ,p_ctp_attribute18_o =>ben_ctp_shd.g_old_rec.ctp_attribute18
670 ,p_ctp_attribute19_o =>ben_ctp_shd.g_old_rec.ctp_attribute19
671 ,p_ctp_attribute20_o =>ben_ctp_shd.g_old_rec.ctp_attribute20
672 ,p_ctp_attribute21_o =>ben_ctp_shd.g_old_rec.ctp_attribute21
673 ,p_ctp_attribute22_o =>ben_ctp_shd.g_old_rec.ctp_attribute22
674 ,p_ctp_attribute23_o =>ben_ctp_shd.g_old_rec.ctp_attribute23
675 ,p_ctp_attribute24_o =>ben_ctp_shd.g_old_rec.ctp_attribute24
676 ,p_ctp_attribute25_o =>ben_ctp_shd.g_old_rec.ctp_attribute25
677 ,p_ctp_attribute26_o =>ben_ctp_shd.g_old_rec.ctp_attribute26
678 ,p_ctp_attribute27_o =>ben_ctp_shd.g_old_rec.ctp_attribute27
679 ,p_ctp_attribute28_o =>ben_ctp_shd.g_old_rec.ctp_attribute28
680 ,p_ctp_attribute29_o =>ben_ctp_shd.g_old_rec.ctp_attribute29
681 ,p_ctp_attribute30_o =>ben_ctp_shd.g_old_rec.ctp_attribute30
682 ,p_all_inelig_o =>ben_ctp_shd.g_old_rec.all_inelig
683 ,p_object_version_number_o =>ben_ctp_shd.g_old_rec.object_version_number
684 );
685 --
686 exception
687 --
688 when hr_api.cannot_find_prog_unit then
689 --
690 hr_api.cannot_find_prog_unit_error
691 (p_module_name => 'ben_ptip_f'
692 ,p_hook_type => 'AU');
693 --
694 end;
695 --
696 -- End of API User Hook for post_update.
697 --
698 --
699 hr_utility.set_location(' Leaving:'||l_proc, 10);
700 End post_update;
701 --
702 -- ----------------------------------------------------------------------------
703 -- |-----------------------------< convert_defs >-----------------------------|
704 -- ----------------------------------------------------------------------------
705 -- {Start Of Comments}
706 --
707 -- Description:
708 -- The Convert_Defs procedure has one very important function:
709 -- It must return the record structure for the row with all system defaulted
710 -- values converted into its corresponding parameter value for update. When
711 -- we attempt to update a row through the Upd process , certain
712 -- parameters can be defaulted which enables flexibility in the calling of
713 -- the upd process (e.g. only attributes which need to be updated need to be
714 -- specified). For the upd process to determine which attributes
715 -- have NOT been specified we need to check if the parameter has a reserved
716 -- system default value. Therefore, for all parameters which have a
717 -- corresponding reserved system default mechanism specified we need to
718 -- check if a system default is being used. If a system default is being
719 -- used then we convert the defaulted value into its corresponding attribute
720 -- value held in the g_old_rec data structure.
721 --
722 -- Prerequisites:
723 -- This private function can only be called from the upd process.
724 --
725 -- In Parameters:
726 -- A Pl/Sql record structre.
727 --
728 -- Post Success:
729 -- The record structure will be returned with all system defaulted parameter
730 -- values converted into its current row attribute value.
731 --
732 -- Post Failure:
733 -- No direct error handling is required within this function. Any possible
734 -- errors within this procedure will be a PL/SQL value error due to conversion
735 -- of datatypes or data lengths.
736 --
737 -- Developer Implementation Notes:
738 -- None.
739 --
740 -- Access Status:
741 -- Internal Row Handler Use Only.
742 --
743 -- {End Of Comments}
744 -- ----------------------------------------------------------------------------
745 Procedure convert_defs(p_rec in out nocopy ben_ctp_shd.g_rec_type) is
746 --
747 l_proc varchar2(72) := g_package||'convert_defs';
748 --
749 Begin
750 --
751 hr_utility.set_location('Entering:'||l_proc, 5);
752 --
753 -- We must now examine each argument value in the
754 -- p_rec plsql record structure
755 -- to see if a system default is being used. If a system default
756 -- is being used then we must set to the 'current' argument value.
757 --
758 If (p_rec.business_group_id = hr_api.g_number) then
759 p_rec.business_group_id :=
760 ben_ctp_shd.g_old_rec.business_group_id;
761 End If;
762 If (p_rec.pgm_id = hr_api.g_number) then
763 p_rec.pgm_id :=
764 ben_ctp_shd.g_old_rec.pgm_id;
765 End If;
766 If (p_rec.cmbn_ptip_id = hr_api.g_number) then
767 p_rec.cmbn_ptip_id :=
768 ben_ctp_shd.g_old_rec.cmbn_ptip_id;
769 End If;
770 If (p_rec.cmbn_ptip_opt_id = hr_api.g_number) then
771 p_rec.cmbn_ptip_opt_id :=
772 ben_ctp_shd.g_old_rec.cmbn_ptip_opt_id;
773 End If;
774 If (p_rec.acrs_ptip_cvg_id = hr_api.g_number) then
775 p_rec.acrs_ptip_cvg_id :=
776 ben_ctp_shd.g_old_rec.acrs_ptip_cvg_id;
777 End If;
778 If (p_rec.pl_typ_id = hr_api.g_number) then
779 p_rec.pl_typ_id :=
780 ben_ctp_shd.g_old_rec.pl_typ_id;
781 End If;
782 If (p_rec.coord_cvg_for_all_pls_flag = hr_api.g_varchar2) then
783 p_rec.coord_cvg_for_all_pls_flag :=
784 ben_ctp_shd.g_old_rec.coord_cvg_for_all_pls_flag;
785 End If;
786 If (p_rec.dpnt_dsgn_cd = hr_api.g_varchar2) then
787 p_rec.dpnt_dsgn_cd :=
788 ben_ctp_shd.g_old_rec.dpnt_dsgn_cd;
789 End If;
790 If (p_rec.dpnt_cvg_strt_dt_rl = hr_api.g_number) then
791 p_rec.dpnt_cvg_strt_dt_rl :=
792 ben_ctp_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
793 End If;
794 If (p_rec.postelcn_edit_rl = hr_api.g_number) then
795 p_rec.postelcn_edit_rl :=
796 ben_ctp_shd.g_old_rec.postelcn_edit_rl;
797 End If;
798 If (p_rec.rt_end_dt_rl = hr_api.g_number) then
799 p_rec.rt_end_dt_rl :=
800 ben_ctp_shd.g_old_rec.rt_end_dt_rl;
801 End If;
802 If (p_rec.rt_strt_dt_rl = hr_api.g_number) then
803 p_rec.rt_strt_dt_rl :=
804 ben_ctp_shd.g_old_rec.rt_strt_dt_rl;
805 End If;
806 If (p_rec.enrt_cvg_end_dt_rl = hr_api.g_number) then
807 p_rec.enrt_cvg_end_dt_rl :=
808 ben_ctp_shd.g_old_rec.enrt_cvg_end_dt_rl;
809 End If;
810 If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_number) then
811 p_rec.enrt_cvg_strt_dt_rl :=
812 ben_ctp_shd.g_old_rec.enrt_cvg_strt_dt_rl;
813 End If;
814 If (p_rec.rqd_perd_enrt_nenrt_rl = hr_api.g_number) then
815 p_rec.rqd_perd_enrt_nenrt_rl :=
816 ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_rl;
817 End If;
818 If (p_rec.auto_enrt_mthd_rl = hr_api.g_number) then
819 p_rec.auto_enrt_mthd_rl :=
820 ben_ctp_shd.g_old_rec.auto_enrt_mthd_rl;
821 End If;
822 If (p_rec.enrt_mthd_cd = hr_api.g_varchar2) then
823 p_rec.enrt_mthd_cd :=
824 ben_ctp_shd.g_old_rec.enrt_mthd_cd;
825 End If;
826 If (p_rec.enrt_cd = hr_api.g_varchar2) then
827 p_rec.enrt_cd :=
828 ben_ctp_shd.g_old_rec.enrt_cd;
829 End If;
830 If (p_rec.enrt_rl = hr_api.g_number) then
831 p_rec.enrt_rl :=
832 ben_ctp_shd.g_old_rec.enrt_rl;
833 End If;
834 If (p_rec.dflt_enrt_cd = hr_api.g_varchar2) then
835 p_rec.dflt_enrt_cd :=
836 ben_ctp_shd.g_old_rec.dflt_enrt_cd;
837 End If;
838 If (p_rec.dflt_enrt_det_rl = hr_api.g_number) then
839 p_rec.dflt_enrt_det_rl :=
840 ben_ctp_shd.g_old_rec.dflt_enrt_det_rl;
841 End If;
842 If (p_rec.drvbl_fctr_apls_rts_flag = hr_api.g_varchar2) then
843 p_rec.drvbl_fctr_apls_rts_flag :=
844 ben_ctp_shd.g_old_rec.drvbl_fctr_apls_rts_flag;
845 End If;
846 If (p_rec.drvbl_fctr_prtn_elig_flag = hr_api.g_varchar2) then
847 p_rec.drvbl_fctr_prtn_elig_flag :=
848 ben_ctp_shd.g_old_rec.drvbl_fctr_prtn_elig_flag;
849 End If;
850 If (p_rec.elig_apls_flag = hr_api.g_varchar2) then
851 p_rec.elig_apls_flag :=
852 ben_ctp_shd.g_old_rec.elig_apls_flag;
853 End If;
854 If (p_rec.prtn_elig_ovrid_alwd_flag = hr_api.g_varchar2) then
855 p_rec.prtn_elig_ovrid_alwd_flag :=
856 ben_ctp_shd.g_old_rec.prtn_elig_ovrid_alwd_flag;
857 End If;
858 If (p_rec.trk_inelig_per_flag = hr_api.g_varchar2) then
859 p_rec.trk_inelig_per_flag :=
860 ben_ctp_shd.g_old_rec.trk_inelig_per_flag;
861 End If;
862 If (p_rec.dpnt_cvg_end_dt_rl = hr_api.g_number) then
863 p_rec.dpnt_cvg_end_dt_rl :=
864 ben_ctp_shd.g_old_rec.dpnt_cvg_end_dt_rl;
865 End If;
866 If (p_rec.dpnt_cvg_strt_dt_cd = hr_api.g_varchar2) then
867 p_rec.dpnt_cvg_strt_dt_cd :=
868 ben_ctp_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
869 End If;
870 If (p_rec.rt_end_dt_cd = hr_api.g_varchar2) then
871 p_rec.rt_end_dt_cd :=
872 ben_ctp_shd.g_old_rec.rt_end_dt_cd;
873 End If;
874 If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
875 p_rec.rt_strt_dt_cd :=
876 ben_ctp_shd.g_old_rec.rt_strt_dt_cd;
877 End If;
878 If (p_rec.enrt_cvg_end_dt_cd = hr_api.g_varchar2) then
879 p_rec.enrt_cvg_end_dt_cd :=
880 ben_ctp_shd.g_old_rec.enrt_cvg_end_dt_cd;
881 End If;
882 If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
883 p_rec.enrt_cvg_strt_dt_cd :=
884 ben_ctp_shd.g_old_rec.enrt_cvg_strt_dt_cd;
885 End If;
886 If (p_rec.dpnt_cvg_end_dt_cd = hr_api.g_varchar2) then
887 p_rec.dpnt_cvg_end_dt_cd :=
888 ben_ctp_shd.g_old_rec.dpnt_cvg_end_dt_cd;
889 End If;
890 If (p_rec.crs_this_pl_typ_only_flag = hr_api.g_varchar2) then
891 p_rec.crs_this_pl_typ_only_flag :=
892 ben_ctp_shd.g_old_rec.crs_this_pl_typ_only_flag;
893 End If;
894 If (p_rec.ptip_stat_cd = hr_api.g_varchar2) then
895 p_rec.ptip_stat_cd :=
896 ben_ctp_shd.g_old_rec.ptip_stat_cd;
897 End If;
898 If (p_rec.mx_cvg_alwd_amt = hr_api.g_number) then
899 p_rec.mx_cvg_alwd_amt :=
900 ben_ctp_shd.g_old_rec.mx_cvg_alwd_amt;
901 End If;
902 If (p_rec.mx_enrd_alwd_ovrid_num = hr_api.g_number) then
903 p_rec.mx_enrd_alwd_ovrid_num :=
904 ben_ctp_shd.g_old_rec.mx_enrd_alwd_ovrid_num;
905 End If;
906 If (p_rec.mn_enrd_rqd_ovrid_num = hr_api.g_number) then
907 p_rec.mn_enrd_rqd_ovrid_num :=
908 ben_ctp_shd.g_old_rec.mn_enrd_rqd_ovrid_num;
909 End If;
910 If (p_rec.no_mx_pl_typ_ovrid_flag = hr_api.g_varchar2) then
911 p_rec.no_mx_pl_typ_ovrid_flag :=
912 ben_ctp_shd.g_old_rec.no_mx_pl_typ_ovrid_flag;
913 End If;
914 If (p_rec.ordr_num = hr_api.g_number) then
915 p_rec.ordr_num :=
916 ben_ctp_shd.g_old_rec.ordr_num;
917 End If;
918 If (p_rec.prvds_cr_flag = hr_api.g_varchar2) then
919 p_rec.prvds_cr_flag :=
920 ben_ctp_shd.g_old_rec.prvds_cr_flag;
921 End If;
922 If (p_rec.rqd_perd_enrt_nenrt_val = hr_api.g_number) then
923 p_rec.rqd_perd_enrt_nenrt_val :=
924 ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_val;
925 End If;
926 If (p_rec.rqd_perd_enrt_nenrt_tm_uom = hr_api.g_varchar2) then
927 p_rec.rqd_perd_enrt_nenrt_tm_uom :=
928 ben_ctp_shd.g_old_rec.rqd_perd_enrt_nenrt_tm_uom;
929 End If;
930 If (p_rec.wvbl_flag = hr_api.g_varchar2) then
931 p_rec.wvbl_flag :=
932 ben_ctp_shd.g_old_rec.wvbl_flag;
933 End If;
934 If (p_rec.dpnt_adrs_rqd_flag = hr_api.g_varchar2) then
935 p_rec.dpnt_adrs_rqd_flag :=
936 ben_ctp_shd.g_old_rec.dpnt_adrs_rqd_flag;
937 End If;
938 If (p_rec.dpnt_cvg_no_ctfn_rqd_flag = hr_api.g_varchar2) then
939 p_rec.dpnt_cvg_no_ctfn_rqd_flag :=
940 ben_ctp_shd.g_old_rec.dpnt_cvg_no_ctfn_rqd_flag;
941 End If;
942 If (p_rec.dpnt_dob_rqd_flag = hr_api.g_varchar2) then
943 p_rec.dpnt_dob_rqd_flag :=
944 ben_ctp_shd.g_old_rec.dpnt_dob_rqd_flag;
945 End If;
946 If (p_rec.dpnt_legv_id_rqd_flag = hr_api.g_varchar2) then
947 p_rec.dpnt_legv_id_rqd_flag :=
948 ben_ctp_shd.g_old_rec.dpnt_legv_id_rqd_flag;
949 End If;
950 If (p_rec.susp_if_dpnt_ssn_nt_prv_cd = hr_api.g_varchar2) then
951 p_rec.susp_if_dpnt_ssn_nt_prv_cd :=
952 ben_ctp_shd.g_old_rec.susp_if_dpnt_ssn_nt_prv_cd;
953 End If;
954 If (p_rec.susp_if_dpnt_dob_nt_prv_cd = hr_api.g_varchar2) then
955 p_rec.susp_if_dpnt_dob_nt_prv_cd :=
956 ben_ctp_shd.g_old_rec.susp_if_dpnt_dob_nt_prv_cd;
957 End If;
958 If (p_rec.susp_if_dpnt_adr_nt_prv_cd = hr_api.g_varchar2) then
959 p_rec.susp_if_dpnt_adr_nt_prv_cd :=
960 ben_ctp_shd.g_old_rec.susp_if_dpnt_adr_nt_prv_cd;
961 End If;
962 If (p_rec.susp_if_ctfn_not_dpnt_flag = hr_api.g_varchar2) then
963 p_rec.susp_if_ctfn_not_dpnt_flag :=
964 ben_ctp_shd.g_old_rec.susp_if_ctfn_not_dpnt_flag;
965 End If;
966 If (p_rec.dpnt_ctfn_determine_cd = hr_api.g_varchar2) then
967 p_rec.dpnt_ctfn_determine_cd :=
968 ben_ctp_shd.g_old_rec.dpnt_ctfn_determine_cd;
969 End If;
970 If (p_rec.drvd_fctr_dpnt_cvg_flag = hr_api.g_varchar2) then
971 p_rec.drvd_fctr_dpnt_cvg_flag :=
972 ben_ctp_shd.g_old_rec.drvd_fctr_dpnt_cvg_flag;
973 End If;
974 If (p_rec.no_mn_pl_typ_overid_flag = hr_api.g_varchar2) then
975 p_rec.no_mn_pl_typ_overid_flag :=
976 ben_ctp_shd.g_old_rec.no_mn_pl_typ_overid_flag;
977 End If;
978 If (p_rec.sbj_to_sps_lf_ins_mx_flag = hr_api.g_varchar2) then
979 p_rec.sbj_to_sps_lf_ins_mx_flag :=
980 ben_ctp_shd.g_old_rec.sbj_to_sps_lf_ins_mx_flag ;
981 End If;
982 If (p_rec.sbj_to_dpnt_lf_ins_mx_flag = hr_api.g_varchar2) then
983 p_rec.sbj_to_dpnt_lf_ins_mx_flag :=
984 ben_ctp_shd.g_old_rec.sbj_to_dpnt_lf_ins_mx_flag ;
985 End If;
986 If (p_rec.use_to_sum_ee_lf_ins_flag = hr_api.g_varchar2) then
987 p_rec.use_to_sum_ee_lf_ins_flag :=
988 ben_ctp_shd.g_old_rec.use_to_sum_ee_lf_ins_flag;
989 End If;
990 If (p_rec.legislation_code= hr_api.g_varchar2) then
991 p_rec.legislation_code :=
992 ben_ctp_shd.g_old_rec.legislation_code;
993 End If;
994 If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
995 p_rec.legislation_subgroup :=
996 ben_ctp_shd.g_old_rec.legislation_subgroup;
997 End If;
998 If (p_rec.ivr_ident = hr_api.g_varchar2) then
999 p_rec.ivr_ident :=
1000 ben_ctp_shd.g_old_rec.ivr_ident;
1001 End If;
1002 If (p_rec.url_ref_name = hr_api.g_varchar2) then
1003 p_rec.url_ref_name :=
1004 ben_ctp_shd.g_old_rec.url_ref_name;
1005 End If;
1006 If (p_rec.rqd_enrt_perd_tco_cd = hr_api.g_varchar2) then
1007 p_rec.rqd_enrt_perd_tco_cd :=
1008 ben_ctp_shd.g_old_rec.rqd_enrt_perd_tco_cd;
1009 End If;
1010 If (p_rec.ctp_attribute_category = hr_api.g_varchar2) then
1011 p_rec.ctp_attribute_category :=
1012 ben_ctp_shd.g_old_rec.ctp_attribute_category;
1013 End If;
1014 If (p_rec.ctp_attribute1 = hr_api.g_varchar2) then
1015 p_rec.ctp_attribute1 :=
1016 ben_ctp_shd.g_old_rec.ctp_attribute1;
1017 End If;
1018 If (p_rec.ctp_attribute2 = hr_api.g_varchar2) then
1019 p_rec.ctp_attribute2 :=
1020 ben_ctp_shd.g_old_rec.ctp_attribute2;
1021 End If;
1022 If (p_rec.ctp_attribute3 = hr_api.g_varchar2) then
1023 p_rec.ctp_attribute3 :=
1024 ben_ctp_shd.g_old_rec.ctp_attribute3;
1025 End If;
1026 If (p_rec.ctp_attribute4 = hr_api.g_varchar2) then
1027 p_rec.ctp_attribute4 :=
1028 ben_ctp_shd.g_old_rec.ctp_attribute4;
1029 End If;
1030 If (p_rec.ctp_attribute5 = hr_api.g_varchar2) then
1031 p_rec.ctp_attribute5 :=
1032 ben_ctp_shd.g_old_rec.ctp_attribute5;
1033 End If;
1034 If (p_rec.ctp_attribute6 = hr_api.g_varchar2) then
1035 p_rec.ctp_attribute6 :=
1036 ben_ctp_shd.g_old_rec.ctp_attribute6;
1037 End If;
1038 If (p_rec.ctp_attribute7 = hr_api.g_varchar2) then
1039 p_rec.ctp_attribute7 :=
1040 ben_ctp_shd.g_old_rec.ctp_attribute7;
1041 End If;
1042 If (p_rec.ctp_attribute8 = hr_api.g_varchar2) then
1043 p_rec.ctp_attribute8 :=
1044 ben_ctp_shd.g_old_rec.ctp_attribute8;
1045 End If;
1046 If (p_rec.ctp_attribute9 = hr_api.g_varchar2) then
1047 p_rec.ctp_attribute9 :=
1048 ben_ctp_shd.g_old_rec.ctp_attribute9;
1049 End If;
1050 If (p_rec.ctp_attribute10 = hr_api.g_varchar2) then
1051 p_rec.ctp_attribute10 :=
1052 ben_ctp_shd.g_old_rec.ctp_attribute10;
1053 End If;
1054 If (p_rec.ctp_attribute11 = hr_api.g_varchar2) then
1055 p_rec.ctp_attribute11 :=
1056 ben_ctp_shd.g_old_rec.ctp_attribute11;
1057 End If;
1058 If (p_rec.ctp_attribute12 = hr_api.g_varchar2) then
1059 p_rec.ctp_attribute12 :=
1060 ben_ctp_shd.g_old_rec.ctp_attribute12;
1061 End If;
1062 If (p_rec.ctp_attribute13 = hr_api.g_varchar2) then
1063 p_rec.ctp_attribute13 :=
1064 ben_ctp_shd.g_old_rec.ctp_attribute13;
1065 End If;
1066 If (p_rec.ctp_attribute14 = hr_api.g_varchar2) then
1067 p_rec.ctp_attribute14 :=
1068 ben_ctp_shd.g_old_rec.ctp_attribute14;
1069 End If;
1070 If (p_rec.ctp_attribute15 = hr_api.g_varchar2) then
1071 p_rec.ctp_attribute15 :=
1072 ben_ctp_shd.g_old_rec.ctp_attribute15;
1073 End If;
1074 If (p_rec.ctp_attribute16 = hr_api.g_varchar2) then
1075 p_rec.ctp_attribute16 :=
1076 ben_ctp_shd.g_old_rec.ctp_attribute16;
1077 End If;
1078 If (p_rec.ctp_attribute17 = hr_api.g_varchar2) then
1079 p_rec.ctp_attribute17 :=
1080 ben_ctp_shd.g_old_rec.ctp_attribute17;
1081 End If;
1082 If (p_rec.ctp_attribute18 = hr_api.g_varchar2) then
1083 p_rec.ctp_attribute18 :=
1084 ben_ctp_shd.g_old_rec.ctp_attribute18;
1085 End If;
1086 If (p_rec.ctp_attribute19 = hr_api.g_varchar2) then
1087 p_rec.ctp_attribute19 :=
1088 ben_ctp_shd.g_old_rec.ctp_attribute19;
1089 End If;
1090 If (p_rec.ctp_attribute20 = hr_api.g_varchar2) then
1091 p_rec.ctp_attribute20 :=
1092 ben_ctp_shd.g_old_rec.ctp_attribute20;
1093 End If;
1094 If (p_rec.ctp_attribute21 = hr_api.g_varchar2) then
1095 p_rec.ctp_attribute21 :=
1096 ben_ctp_shd.g_old_rec.ctp_attribute21;
1097 End If;
1098 If (p_rec.ctp_attribute22 = hr_api.g_varchar2) then
1099 p_rec.ctp_attribute22 :=
1100 ben_ctp_shd.g_old_rec.ctp_attribute22;
1101 End If;
1102 If (p_rec.ctp_attribute23 = hr_api.g_varchar2) then
1103 p_rec.ctp_attribute23 :=
1104 ben_ctp_shd.g_old_rec.ctp_attribute23;
1105 End If;
1106 If (p_rec.ctp_attribute24 = hr_api.g_varchar2) then
1107 p_rec.ctp_attribute24 :=
1108 ben_ctp_shd.g_old_rec.ctp_attribute24;
1109 End If;
1110 If (p_rec.ctp_attribute25 = hr_api.g_varchar2) then
1111 p_rec.ctp_attribute25 :=
1112 ben_ctp_shd.g_old_rec.ctp_attribute25;
1113 End If;
1114 If (p_rec.ctp_attribute26 = hr_api.g_varchar2) then
1115 p_rec.ctp_attribute26 :=
1116 ben_ctp_shd.g_old_rec.ctp_attribute26;
1117 End If;
1118 If (p_rec.ctp_attribute27 = hr_api.g_varchar2) then
1119 p_rec.ctp_attribute27 :=
1120 ben_ctp_shd.g_old_rec.ctp_attribute27;
1121 End If;
1122 If (p_rec.ctp_attribute28 = hr_api.g_varchar2) then
1123 p_rec.ctp_attribute28 :=
1124 ben_ctp_shd.g_old_rec.ctp_attribute28;
1125 End If;
1126 If (p_rec.ctp_attribute29 = hr_api.g_varchar2) then
1127 p_rec.ctp_attribute29 :=
1128 ben_ctp_shd.g_old_rec.ctp_attribute29;
1129 End If;
1130 If (p_rec.ctp_attribute30 = hr_api.g_varchar2) then
1131 p_rec.ctp_attribute30 :=
1132 ben_ctp_shd.g_old_rec.ctp_attribute30;
1133 End If;
1134 If (p_rec.all_inelig = hr_api.g_varchar2) then
1135 p_rec.all_inelig :=
1136 ben_ctp_shd.g_old_rec.all_inelig;
1137 End If;
1138
1139
1140 --
1141 hr_utility.set_location(' Leaving:'||l_proc, 10);
1142 --
1143 End convert_defs;
1144 --
1145 -- ----------------------------------------------------------------------------
1146 -- |---------------------------------< upd >----------------------------------|
1147 -- ----------------------------------------------------------------------------
1148 Procedure upd
1149 (
1150 p_rec in out nocopy ben_ctp_shd.g_rec_type,
1151 p_effective_date in date,
1152 p_datetrack_mode in varchar2
1153 ) is
1154 --
1155 l_proc varchar2(72) := g_package||'upd';
1156 l_validation_start_date date;
1157 l_validation_end_date date;
1158 --
1159 Begin
1160 hr_utility.set_location('Entering:'||l_proc, 5);
1161 --
1162 -- Ensure that the DateTrack update mode is valid
1163 --
1164 dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
1165 --
1166 -- We must lock the row which we need to update.
1167 --
1168 ben_ctp_shd.lck
1169 (p_effective_date => p_effective_date,
1170 p_datetrack_mode => p_datetrack_mode,
1171 p_ptip_id => p_rec.ptip_id,
1172 p_object_version_number => p_rec.object_version_number,
1173 p_validation_start_date => l_validation_start_date,
1174 p_validation_end_date => l_validation_end_date);
1175 --
1176 -- 1. During an update system defaults are used to determine if
1177 -- arguments have been defaulted or not. We must therefore
1178 -- derive the full record structure values to be updated.
1179 --
1180 -- 2. Call the supporting update validate operations.
1181 --
1182 convert_defs(p_rec);
1183 ben_ctp_bus.update_validate
1184 (p_rec => p_rec,
1185 p_effective_date => p_effective_date,
1186 p_datetrack_mode => p_datetrack_mode,
1187 p_validation_start_date => l_validation_start_date,
1188 p_validation_end_date => l_validation_end_date);
1189 --
1190 -- Call the supporting pre-update operation
1191 --
1192 pre_update
1193 (p_rec => p_rec,
1194 p_effective_date => p_effective_date,
1195 p_datetrack_mode => p_datetrack_mode,
1196 p_validation_start_date => l_validation_start_date,
1197 p_validation_end_date => l_validation_end_date);
1198 --
1199 -- Update the row.
1200 --
1201 update_dml
1202 (p_rec => p_rec,
1203 p_effective_date => p_effective_date,
1204 p_datetrack_mode => p_datetrack_mode,
1205 p_validation_start_date => l_validation_start_date,
1206 p_validation_end_date => l_validation_end_date);
1207 --
1208 -- Call the supporting post-update operation
1209 --
1210 post_update
1211 (p_rec => p_rec,
1212 p_effective_date => p_effective_date,
1213 p_datetrack_mode => p_datetrack_mode,
1214 p_validation_start_date => l_validation_start_date,
1215 p_validation_end_date => l_validation_end_date);
1216 End upd;
1217 --
1218 -- ----------------------------------------------------------------------------
1219 -- |---------------------------------< upd >----------------------------------|
1220 -- ----------------------------------------------------------------------------
1221 Procedure upd
1222 (
1223 p_ptip_id in number,
1224 p_effective_start_date out nocopy date,
1225 p_effective_end_date out nocopy date,
1226 p_coord_cvg_for_all_pls_flag in varchar2 default hr_api.g_varchar2,
1227 p_dpnt_dsgn_cd in varchar2 default hr_api.g_varchar2,
1228 p_dpnt_cvg_no_ctfn_rqd_flag in varchar2 default hr_api.g_varchar2,
1229 p_dpnt_cvg_strt_dt_cd in varchar2 default hr_api.g_varchar2,
1230 p_rt_end_dt_cd in varchar2 default hr_api.g_varchar2,
1231 p_rt_strt_dt_cd in varchar2 default hr_api.g_varchar2,
1232 p_enrt_cvg_end_dt_cd in varchar2 default hr_api.g_varchar2,
1233 p_enrt_cvg_strt_dt_cd in varchar2 default hr_api.g_varchar2,
1234 p_dpnt_cvg_strt_dt_rl in number default hr_api.g_number,
1235 p_dpnt_cvg_end_dt_cd in varchar2 default hr_api.g_varchar2,
1236 p_dpnt_cvg_end_dt_rl in number default hr_api.g_number,
1237 p_dpnt_adrs_rqd_flag in varchar2 default hr_api.g_varchar2,
1238 p_dpnt_legv_id_rqd_flag in varchar2 default hr_api.g_varchar2,
1239 p_susp_if_dpnt_ssn_nt_prv_cd in varchar2 default hr_api.g_varchar2,
1240 p_susp_if_dpnt_dob_nt_prv_cd in varchar2 default hr_api.g_varchar2,
1241 p_susp_if_dpnt_adr_nt_prv_cd in varchar2 default hr_api.g_varchar2,
1242 p_susp_if_ctfn_not_dpnt_flag in varchar2 default hr_api.g_varchar2,
1243 p_dpnt_ctfn_determine_cd in varchar2 default hr_api.g_varchar2,
1244 p_postelcn_edit_rl in number default hr_api.g_number,
1245 p_rt_end_dt_rl in number default hr_api.g_number,
1246 p_rt_strt_dt_rl in number default hr_api.g_number,
1247 p_enrt_cvg_end_dt_rl in number default hr_api.g_number,
1248 p_enrt_cvg_strt_dt_rl in number default hr_api.g_number,
1249 p_rqd_perd_enrt_nenrt_rl in number default hr_api.g_number,
1250 p_auto_enrt_mthd_rl in number default hr_api.g_number,
1251 p_enrt_mthd_cd in varchar2 default hr_api.g_varchar2,
1252 p_enrt_cd in varchar2 default hr_api.g_varchar2,
1253 p_enrt_rl in number default hr_api.g_number,
1254 p_dflt_enrt_cd in varchar2 default hr_api.g_varchar2,
1255 p_dflt_enrt_det_rl in number default hr_api.g_number,
1256 p_drvbl_fctr_apls_rts_flag in varchar2 default hr_api.g_varchar2,
1257 p_drvbl_fctr_prtn_elig_flag in varchar2 default hr_api.g_varchar2,
1258 p_elig_apls_flag in varchar2 default hr_api.g_varchar2,
1259 p_prtn_elig_ovrid_alwd_flag in varchar2 default hr_api.g_varchar2,
1260 p_trk_inelig_per_flag in varchar2 default hr_api.g_varchar2,
1261 p_dpnt_dob_rqd_flag in varchar2 default hr_api.g_varchar2,
1262 p_crs_this_pl_typ_only_flag in varchar2 default hr_api.g_varchar2,
1263 p_ptip_stat_cd in varchar2 default hr_api.g_varchar2,
1264 p_mx_cvg_alwd_amt in number default hr_api.g_number,
1265 p_mx_enrd_alwd_ovrid_num in number default hr_api.g_number,
1266 p_mn_enrd_rqd_ovrid_num in number default hr_api.g_number,
1267 p_no_mx_pl_typ_ovrid_flag in varchar2 default hr_api.g_varchar2,
1268 p_ordr_num in number default hr_api.g_number,
1269 p_prvds_cr_flag in varchar2 default hr_api.g_varchar2,
1270 p_rqd_perd_enrt_nenrt_val in number default hr_api.g_number,
1271 p_rqd_perd_enrt_nenrt_tm_uom in varchar2 default hr_api.g_varchar2,
1272 p_wvbl_flag in varchar2 default hr_api.g_varchar2,
1273 p_drvd_fctr_dpnt_cvg_flag in varchar2 default hr_api.g_varchar2,
1274 p_no_mn_pl_typ_overid_flag in varchar2 default hr_api.g_varchar2,
1275 p_sbj_to_sps_lf_ins_mx_flag in varchar2 default hr_api.g_varchar2,
1276 p_sbj_to_dpnt_lf_ins_mx_flag in varchar2 default hr_api.g_varchar2,
1277 p_use_to_sum_ee_lf_ins_flag in varchar2 default hr_api.g_varchar2,
1278 p_per_cvrd_cd in varchar2 default hr_api.g_varchar2,
1279 p_short_name in varchar2 default hr_api.g_varchar2,
1280 p_short_code in varchar2 default hr_api.g_varchar2,
1281 p_legislation_code in varchar2 default hr_api.g_varchar2,
1282 p_legislation_subgroup in varchar2 default hr_api.g_varchar2,
1283 p_vrfy_fmly_mmbr_cd in varchar2 default hr_api.g_varchar2,
1284 p_vrfy_fmly_mmbr_rl in number default hr_api.g_number,
1285 p_ivr_ident in varchar2 default hr_api.g_varchar2,
1286 p_url_ref_name in varchar2 default hr_api.g_varchar2,
1287 p_rqd_enrt_perd_tco_cd in varchar2 default hr_api.g_varchar2,
1288 p_pgm_id in number default hr_api.g_number,
1289 p_pl_typ_id in number default hr_api.g_number,
1290 p_cmbn_ptip_id in number default hr_api.g_number,
1291 p_cmbn_ptip_opt_id in number default hr_api.g_number,
1292 p_acrs_ptip_cvg_id in number default hr_api.g_number,
1293 p_business_group_id in number default hr_api.g_number,
1294 p_ctp_attribute_category in varchar2 default hr_api.g_varchar2,
1295 p_ctp_attribute1 in varchar2 default hr_api.g_varchar2,
1296 p_ctp_attribute2 in varchar2 default hr_api.g_varchar2,
1297 p_ctp_attribute3 in varchar2 default hr_api.g_varchar2,
1298 p_ctp_attribute4 in varchar2 default hr_api.g_varchar2,
1299 p_ctp_attribute5 in varchar2 default hr_api.g_varchar2,
1300 p_ctp_attribute6 in varchar2 default hr_api.g_varchar2,
1301 p_ctp_attribute7 in varchar2 default hr_api.g_varchar2,
1302 p_ctp_attribute8 in varchar2 default hr_api.g_varchar2,
1303 p_ctp_attribute9 in varchar2 default hr_api.g_varchar2,
1304 p_ctp_attribute10 in varchar2 default hr_api.g_varchar2,
1305 p_ctp_attribute11 in varchar2 default hr_api.g_varchar2,
1306 p_ctp_attribute12 in varchar2 default hr_api.g_varchar2,
1307 p_ctp_attribute13 in varchar2 default hr_api.g_varchar2,
1308 p_ctp_attribute14 in varchar2 default hr_api.g_varchar2,
1309 p_ctp_attribute15 in varchar2 default hr_api.g_varchar2,
1310 p_ctp_attribute16 in varchar2 default hr_api.g_varchar2,
1311 p_ctp_attribute17 in varchar2 default hr_api.g_varchar2,
1312 p_ctp_attribute18 in varchar2 default hr_api.g_varchar2,
1313 p_ctp_attribute19 in varchar2 default hr_api.g_varchar2,
1314 p_ctp_attribute20 in varchar2 default hr_api.g_varchar2,
1315 p_ctp_attribute21 in varchar2 default hr_api.g_varchar2,
1316 p_ctp_attribute22 in varchar2 default hr_api.g_varchar2,
1317 p_ctp_attribute23 in varchar2 default hr_api.g_varchar2,
1318 p_ctp_attribute24 in varchar2 default hr_api.g_varchar2,
1319 p_ctp_attribute25 in varchar2 default hr_api.g_varchar2,
1320 p_ctp_attribute26 in varchar2 default hr_api.g_varchar2,
1321 p_ctp_attribute27 in varchar2 default hr_api.g_varchar2,
1322 p_ctp_attribute28 in varchar2 default hr_api.g_varchar2,
1323 p_ctp_attribute29 in varchar2 default hr_api.g_varchar2,
1324 p_ctp_attribute30 in varchar2 default hr_api.g_varchar2,
1325 p_all_inelig in varchar2 default hr_api.g_varchar2,
1326 p_object_version_number in out nocopy number,
1327 p_effective_date in date,
1328 p_datetrack_mode in varchar2
1329 ) is
1330 --
1331 l_rec ben_ctp_shd.g_rec_type;
1332 l_proc varchar2(72) := g_package||'upd';
1333 --
1334 Begin
1335 hr_utility.set_location('Entering:'||l_proc, 5);
1336 --
1337 -- Call conversion function to turn arguments into the
1338 -- l_rec structure.
1339 --
1340 l_rec :=
1341 ben_ctp_shd.convert_args
1342 (
1343 p_ptip_id,
1344 null,
1345 null,
1346 p_coord_cvg_for_all_pls_flag,
1347 p_dpnt_dsgn_cd,
1348 p_dpnt_cvg_no_ctfn_rqd_flag,
1349 p_dpnt_cvg_strt_dt_cd,
1350 p_rt_end_dt_cd,
1351 p_rt_strt_dt_cd,
1352 p_enrt_cvg_end_dt_cd,
1353 p_enrt_cvg_strt_dt_cd,
1354 p_dpnt_cvg_strt_dt_rl,
1355 p_dpnt_cvg_end_dt_cd,
1356 p_dpnt_cvg_end_dt_rl,
1357 p_dpnt_adrs_rqd_flag,
1358 p_dpnt_legv_id_rqd_flag,
1359 p_susp_if_dpnt_ssn_nt_prv_cd,
1360 p_susp_if_dpnt_dob_nt_prv_cd,
1361 p_susp_if_dpnt_adr_nt_prv_cd,
1362 p_susp_if_ctfn_not_dpnt_flag,
1363 p_dpnt_ctfn_determine_cd,
1364 p_postelcn_edit_rl,
1365 p_rt_end_dt_rl,
1366 p_rt_strt_dt_rl,
1367 p_enrt_cvg_end_dt_rl,
1368 p_enrt_cvg_strt_dt_rl,
1369 p_rqd_perd_enrt_nenrt_rl,
1370 p_auto_enrt_mthd_rl,
1371 p_enrt_mthd_cd,
1372 p_enrt_cd,
1373 p_enrt_rl,
1374 p_dflt_enrt_cd,
1375 p_dflt_enrt_det_rl,
1376 p_drvbl_fctr_apls_rts_flag,
1377 p_drvbl_fctr_prtn_elig_flag,
1378 p_elig_apls_flag,
1379 p_prtn_elig_ovrid_alwd_flag,
1380 p_trk_inelig_per_flag,
1381 p_dpnt_dob_rqd_flag,
1382 p_crs_this_pl_typ_only_flag,
1383 p_ptip_stat_cd,
1384 p_mx_cvg_alwd_amt,
1385 p_mx_enrd_alwd_ovrid_num,
1386 p_mn_enrd_rqd_ovrid_num,
1387 p_no_mx_pl_typ_ovrid_flag,
1388 p_ordr_num,
1389 p_prvds_cr_flag,
1390 p_rqd_perd_enrt_nenrt_val,
1391 p_rqd_perd_enrt_nenrt_tm_uom,
1392 p_wvbl_flag,
1393 p_drvd_fctr_dpnt_cvg_flag,
1394 p_no_mn_pl_typ_overid_flag,
1395 p_sbj_to_sps_lf_ins_mx_flag,
1396 p_sbj_to_dpnt_lf_ins_mx_flag,
1397 p_use_to_sum_ee_lf_ins_flag,
1398 p_per_cvrd_cd,
1399 p_short_name,
1400 p_short_code,
1401 p_legislation_code,
1402 p_legislation_subgroup,
1403 p_vrfy_fmly_mmbr_cd,
1404 p_vrfy_fmly_mmbr_rl,
1405 p_ivr_ident,
1406 p_url_ref_name,
1407 p_rqd_enrt_perd_tco_cd,
1408 p_pgm_id,
1409 p_pl_typ_id,
1410 p_cmbn_ptip_id,
1411 p_cmbn_ptip_opt_id,
1412 p_acrs_ptip_cvg_id,
1413 p_business_group_id,
1414 p_ctp_attribute_category,
1415 p_ctp_attribute1,
1416 p_ctp_attribute2,
1417 p_ctp_attribute3,
1418 p_ctp_attribute4,
1419 p_ctp_attribute5,
1420 p_ctp_attribute6,
1421 p_ctp_attribute7,
1422 p_ctp_attribute8,
1423 p_ctp_attribute9,
1424 p_ctp_attribute10,
1425 p_ctp_attribute11,
1426 p_ctp_attribute12,
1427 p_ctp_attribute13,
1428 p_ctp_attribute14,
1429 p_ctp_attribute15,
1430 p_ctp_attribute16,
1431 p_ctp_attribute17,
1432 p_ctp_attribute18,
1433 p_ctp_attribute19,
1434 p_ctp_attribute20,
1435 p_ctp_attribute21,
1436 p_ctp_attribute22,
1437 p_ctp_attribute23,
1438 p_ctp_attribute24,
1439 p_ctp_attribute25,
1440 p_ctp_attribute26,
1441 p_ctp_attribute27,
1442 p_ctp_attribute28,
1443 p_ctp_attribute29,
1444 p_ctp_attribute30,
1445 p_all_inelig,
1446 p_object_version_number
1447 );
1448 --
1449 -- Having converted the arguments into the
1450 -- plsql record structure we call the corresponding record
1451 -- business process.
1452 --
1453 upd(l_rec, p_effective_date, p_datetrack_mode);
1454 p_object_version_number := l_rec.object_version_number;
1455 p_effective_start_date := l_rec.effective_start_date;
1456 p_effective_end_date := l_rec.effective_end_date;
1457 --
1458 --
1459 hr_utility.set_location(' Leaving:'||l_proc, 10);
1460 End upd;
1461 --
1462 end ben_ctp_upd;