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