60: NULL from 91382 to 91832
61: 06-APR-00 pbodla 115.22 - Bug 3294/1096790 When formula called
62: in write_ctfn enrt_ctfn_typ_cd passed
63: as context. To access DBI's on
64: ben_elctbl_chc_ctfn.
65: 09-May-00 lmcdonal 115.23 If a choice already has the ctfn type
66: attached, don't write another one.
67: 14-May-00 gperry 115.24 Replaced header wiped by previous
68: version.
134: l_write_ctfn boolean := false;
135:
136: cursor c1 is
137: select 'x'
138: from ben_elctbl_chc_ctfn
139: where elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id
140: and enrt_ctfn_typ_cd = p_enrt_ctfn_typ_cd
141: and nvl(enrt_bnft_id,-1) = nvl(p_enrt_bnft_id,-1);
142: l_dummy varchar2(1);
917: select distinct epe.pgm_id,
918: epe.pl_typ_id,
919: epe.pl_id,
920: ecc.enrt_ctfn_typ_cd
921: from ben_elctbl_chc_ctfn ecc,
922: ben_elig_per_elctbl_chc epe
923: where epe.per_in_ler_id = p_per_in_ler_id
924: and epe.elctbl_flag = 'Y'
925: and epe.ctfn_rqd_flag = 'Y'
1005: ecc.enrt_ctfn_typ_cd,
1006: ecc.elctbl_chc_ctfn_id,
1007: ecc.object_version_number,
1008: ecc.business_group_id
1009: from ben_elctbl_chc_ctfn ecc,
1010: ben_elig_per_elctbl_chc epe
1011: where epe.per_in_ler_id = p_per_in_ler_id
1012: and epe.pl_id = p_pl_id
1013: and epe.elctbl_flag = 'Y'
1028: ecc.enrt_ctfn_typ_cd,
1029: ecc.elctbl_chc_ctfn_id,
1030: ecc.object_version_number,
1031: ecc.business_group_id
1032: from ben_elctbl_chc_ctfn ecc,
1033: ben_elig_per_elctbl_chc epe
1034: where epe.per_in_ler_id = p_per_in_ler_id
1035: and epe.pl_id = p_pl_id
1036: and epe.elctbl_flag = 'Y'