[Home] [Help]
37: 23 Jun 98 jcarpent 115.5 Check status code for per_in_ler.
38: 08 Jul 98 Jmohapat 115.6 added batch who columns to api
39: calls(ben_prtt_enrt_result_api.
40: create/update_enrollment,
41: ben_enrt_bnft_api. updateenrt_bnft
42: 24 Jul 98 jcarpent 115.7 Fixed message removed fnd_message.get
43: 28 Jul 98 jcarpent 115.8 Added flex fields.
44: 22 SEP 98 GPERRY 115.9 Corrected error messages
45: 25 SEP 98 bbulusu 115.10 Added out nocopy parameters (warnings) at
1221: eb.cvg_mlt_cd,
1222: abr.rate_periodization_rl, --GEVITY
1223: nvl(eb.mx_wo_ctfn_flag,'N') interim_flag --BUG 5502202
1224: from ben_enrt_rt er,
1225: ben_enrt_bnft eb,
1226: ben_acty_base_rt_f abr
1227: where er.enrt_rt_id=p_enrt_rt_id
1228: and eb.enrt_bnft_id(+)=er.enrt_bnft_id
1229: and er.acty_base_rt_id=abr.acty_base_rt_id
1559: SELECT abr.entr_val_at_enrt_flag, er.rt_mlt_cd,
1560: NVL (eb.entr_val_at_enrt_flag, 'N') entr_bnft_val_flag,
1561: eb.cvg_mlt_cd
1562: FROM ben_enrt_rt er,
1563: ben_enrt_bnft eb,
1564: ben_acty_base_rt_f abr,
1565: ben_prtt_enrt_rslt_f pen
1566: WHERE eb.prtt_enrt_rslt_id = pen.prtt_enrt_rslt_id
1567: AND pen.rplcs_sspndd_rslt_id = p_prtt_enrt_rslt_id
1671: select min(ecr.rt_strt_dt) rt_strt_dt
1672: ,epe.ptip_id
1673: from ben_elig_per_elctbl_chc epe
1674: ,ben_enrt_rt ecr
1675: ,ben_enrt_bnft enb
1676: where epe.per_in_ler_id = p_per_in_ler_id
1677: and epe.business_group_id = p_business_group_id
1678: and ecr.enrt_rt_id = p_enrt_rt_id -- Bug 8300620
1679: and decode(ecr.enrt_bnft_id, null, ecr.elig_per_elctbl_chc_id,
1692: cursor c_get_ptip_id is
1693: select epe.ptip_id
1694: from ben_elig_per_elctbl_chc epe
1695: ,ben_enrt_rt ecr
1696: ,ben_enrt_bnft enb
1697: where epe.per_in_ler_id = p_per_in_ler_id
1698: and epe.business_group_id = p_business_group_id
1699: and ecr.enrt_rt_id = p_enrt_rt_id
1700: and decode(ecr.enrt_bnft_id, null, ecr.elig_per_elctbl_chc_id,
4889: enb.elig_per_elctbl_chc_id,
4890: ert.entr_ann_val_flag
4891: from ben_enrt_rt ert,
4892: ben_acty_base_rt_f abr,
4893: ben_enrt_bnft enb
4894: where enb.enrt_bnft_id = p_enrt_bnft_id
4895: and ert.enrt_bnft_id = enb.enrt_bnft_id
4896: and nvl(abr.PARNT_CHLD_CD,'PARNT') = 'PARNT'
4897: and abr.acty_base_rt_id = ert.acty_base_rt_id
4912: where epe.elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id ;
4913: --
4914: cursor c_enb_pen is
4915: select enb.prtt_enrt_rslt_id
4916: from ben_enrt_bnft enb,
4917: ben_prtt_enrt_rslt_f pen
4918: where enb.enrt_bnft_id = p_enrt_bnft_id
4919: and enb.prtt_enrt_rslt_id = pen.prtt_enrt_rslt_id
4920: and pen.effective_end_date = hr_api.g_eot
5130: ecr.rt_strt_dt_cd,
5131: ecr.rt_strt_dt_rl,
5132: nvl(ecr.elig_per_elctbl_chc_id,enb.elig_per_elctbl_chc_id) elig_per_elctbl_chc_id
5133: from ben_enrt_rt ecr,
5134: ben_enrt_bnft enb
5135: where ecr.prtt_rt_val_id = p_prtt_rt_val_id
5136: and ecr.enrt_bnft_id = enb.enrt_bnft_id (+) ;
5137: --
5138: l_ecr c_ecr%rowtype;
8088: l_proc varchar2(72) ;
8089: cursor c1 is
8090: select ebr.enrt_bnft_id,
8091: ebr.object_version_number
8092: from ben_enrt_bnft ebr,
8093: ben_elig_per_elctbl_chc epe,
8094: ben_per_in_ler pil
8095: where ebr.prtt_enrt_rslt_id = p_prtt_enrt_rslt_id and
8096: ( p_enrt_bnft_id is null OR
8120: hr_utility.set_location(l_proc, 10);
8121: end if;
8122: -- Update any enrollment benefit records that may have had the result id
8123: -- on them from previous enrollments. Set rslt id = null.
8124: ben_enrt_bnft_api.update_enrt_bnft
8125: (p_enrt_bnft_id => rec.enrt_bnft_id
8126: ,p_effective_date => p_effective_date
8127: ,p_object_version_number => rec.object_version_number
8128: ,p_business_group_id => p_business_group_id
8145: if (p_enrt_bnft_id is not NULL) then
8146: if g_debug then
8147: hr_utility.set_location(l_proc, 30);
8148: end if;
8149: ben_enrt_bnft_api.update_enrt_bnft
8150: (p_enrt_bnft_id => p_enrt_bnft_id
8151: ,p_effective_date => p_effective_date
8152: ,p_object_version_number => p_object_version_number
8153: ,p_business_group_id => p_business_group_id
8398: select enb.val val,-- nvl(enb.val, enb.dflt_val) val, Bug 4216475
8399: enb.mn_val,
8400: enb.mx_val,
8401: enb.incrmt_val
8402: from ben_enrt_bnft enb
8403: where enb.enrt_bnft_id = p_enrt_bnft_id;
8404: --
8405: -- open c_pl_opt_name cursor only if error needs to be displayed.
8406: --