[Home] [Help]
10: Name:
11: Determine Coverage
12:
13: Purpose:
14: Determines proper coverages based on mlt_cd. Writes to BEN_ENRT_BNFT table.
15:
16: History:
17:
18: Date Who Version What?
24: 22 Jun 98 Ty Hayden 110.3 Added Mn,Mx,Incr,and Val edits.
25: 25 Jun 98 T Guy 110.4 Replaced all occurrences of
26: PER10 with PERTEN.
27: 11 Aug 98 Ty Hayden 110.5 Added mlt cd NSVU
28: 08 Oct 98 T Guy 115.3 Added schema changes for ben_enrt_bnft
29: Added message numbers and debugging
30: messages.
31: 12 Oct 98 T Guy 115.4 Added mlt cd SAAEAR. Added dflt_val
32: logic.
227: dschwart/cdaniels condition when the maximum amount is NULL.
228:
229: 28-Dec-01 dschwart/ 115.91 - Bug#2054078: Max Coverage without certification
230: BBurns/jcarpent was not showing up on form because it was not
231: being written to ben_enrt_bnft. Made modifications
232: to chk_bnft_ctfn_val parameters + related code to
233: fix this.
234: 26-Mar-02 kmahendr 115.92 - Bug#1833008 - Added parameter p_cal_for to the call
235: determine_compensation to handle multi-assignment.
321: 06-jun-05 nhunur 115.138 4383988 - apply fnd_number on what FF returns in numeric variable.
322: 30-Jun-05 ikasire 115.139 BUG 4449437 always setting the default flag to N for FLFXPCL
323: 19-jul-05 rgajula 115.140 Bug 4436573 Added a new parameter p_cvg_mlt_cd to the
324: ben_determine_coverage.chk_bnft_ctfn to perform few more
325: validations to set the certification required flag of ben_enrt_bnft.
326: 25-Sep-05 kmahendr 115.141 Bug#4630782 - in unrestricted mode inelig
327: process not called
328: 27-Sep-05 ikasire 115.142 Bug 4627840
329: 04-Oct-05 ikasire 115.143 Bug 4649262 ERL fix regression from 4436573
333: will return the amount as calculated by the rule or the min value in the min feild in retrictions.
334: This returned value is used in the write record for Flat Amount Calculation method as
335: max(cvg_rstrn_amount,cvg_calc_mthd_min_amnt).
336: 16-Jan-06 abparekh 115.145 Bug 4954541 : Unrestricted : If coverage does not exist, then delete
337: corresponding BEN_ENRT_BNFT record
338: 11-Apr-06 bmanyam 115.147 5105118 changes (115.146) are undone
339: This is leapfrog of 115.145.
340: 5105118 is not-a-bug.
341: May 24, 2006 rgajula 115.148 Bug 5236985 Added the l_cvg_rstn_max_with_cert not null condition
459: END;
460:
461: ---------------------------------------------------
462: --
463: -- Write ben_enrt_bnft
464: --
465: ---------------------------------------------------
466: --
467: PROCEDURE write_coverage
590: --
591: cursor c_other_oipl_cvg is
592: select enb.val
593: from ben_elig_per_elctbl_chc epe,
594: ben_enrt_bnft enb
595: where epe.pl_id=l_epe.pl_id
596: and nvl(epe.pgm_id,-1)=nvl(l_epe.pgm_id,-1)
597: and epe.per_in_ler_id=l_epe.per_in_ler_id
598: and epe.business_group_id=l_epe.business_group_id
604: --
605: cursor c_other_pl_cvg is
606: select enb.val
607: from ben_elig_per_elctbl_chc epe,
608: ben_enrt_bnft enb
609: where epe.ptip_id=l_epe.ptip_id
610: and nvl(epe.pgm_id,-1)=nvl(l_epe.pgm_id,-1)
611: and epe.per_in_ler_id=l_epe.per_in_ler_id
612: and epe.business_group_id=l_epe.business_group_id
620: select enb.val
621: from ben_elig_per_elctbl_chc epe,
622: ben_oipl_f oipl,
623: ben_oipl_f oipl2,
624: ben_enrt_bnft enb
625: where epe.ptip_id=l_epe.ptip_id
626: and nvl(epe.pgm_id,-1)=nvl(l_epe.pgm_id,-1)
627: and epe.pl_typ_id=l_epe.pl_typ_id
628: and epe.per_in_ler_id=l_epe.per_in_ler_id
1054: p_enrt_bnft_id => l_enrt_bnft_id,
1055: p_ordr_num => p_ordr_num);
1056: else
1057: --
1058: ben_enrt_bnft_api.create_enrt_bnft
1059: (p_validate => false,
1060: p_dflt_flag => p_dflt_flag,
1061: p_val_has_bn_prortd_flag => 'N', -- change when prorating
1062: p_bndry_perd_cd => p_bndry_perd_cd,
1827: select
1828: pen.bnft_amt,
1829: enb.*
1830: from ben_prtt_enrt_rslt_f pen,
1831: ben_enrt_bnft enb,
1832: ben_elig_per_elctbl_chc epe,
1833: ben_per_in_ler pil
1834: where pen.business_group_id = l_business_group_id
1835: and cv_effective_date -- FONM nvl(p_lf_evt_ocrd_dt,p_effective_date)
2178: --
2179: IF l_enrt_bnft_id is not null
2180: THEN
2181: --
2182: delete from ben_enrt_Bnft
2183: where elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id;
2184: --
2185: END IF;
2186: --
3031: p_ordr_num => 0);
3032: --
3033: else
3034: --
3035: ben_enrt_bnft_api.create_enrt_bnft
3036: (p_validate => false,
3037: p_dflt_flag => 'N',
3038: p_val_has_bn_prortd_flag => 'N', -- change when prorating
3039: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
5069: nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date))) ; -- FONM
5070: fetch c_current_enb into l_current_enb ;
5071: if c_current_enb%found and not p_calculate_only_mode then
5072: hr_utility.set_location('SAME interim row',111);
5073: ben_enrt_bnft_api.create_enrt_bnft
5074: (p_validate => false,
5075: p_dflt_flag => 'N',
5076: p_val_has_bn_prortd_flag => 'N', -- change when prorating
5077: p_bndry_perd_cd => l_current_enb.bndry_perd_cd, -- l_cvg(0).bndry_perd_cd,