[Home] [Help]
2290: -- Cursor to retrieve the dependent designation level
2291: --
2292: cursor c_dpnt_lvl_cd (p_pgm_id number) is
2293: select pgm.dpnt_dsgn_lvl_cd
2294: from ben_pgm_f pgm
2295: where pgm.pgm_id = p_pgm_id
2296: and pgm.business_group_id = p_business_group_id
2297: and p_effective_date between
2298: pgm.effective_start_date and pgm.effective_end_date;
2300: -- Cursor to retrieve dependant required flags at the pgm level
2301: --
2302: cursor c_dpnt_pgm (p_pgm_id number) is
2303: select pgm.susp_if_ctfn_not_dpnt_flag
2304: from ben_pgm_f pgm
2305: where pgm.pgm_id = p_pgm_id
2306: and pgm.business_group_id = p_business_group_id
2307: and p_effective_date between
2308: pgm.effective_start_date and pgm.effective_end_date;
2349:
2350:
2351: l_ler_susp_if_ctfn_not_prvd varchar2(30);
2352: l_rqd_flag varchar2(30) := 'Y';
2353: l_lvl_cd ben_pgm_f.dpnt_dsgn_lvl_cd%type;
2354:
2355: --End Bug 6353069
2356:
2357:
2504:
2505: IF (p_prtt_enrt_actn_id IS NULL AND l_data_found = FALSE AND p_elig_cvrd_dpnt_id is not NULL)
2506: THEN
2507: --
2508: -- Fetch the designation level code from the ben_pgm_f table.
2509: --
2510: IF l_rslt.pgm_id IS NOT NULL
2511: THEN
2512: OPEN c_dpnt_lvl_cd (p_pgm_id => l_rslt.pgm_id);
3144: l_rslt_object_version_number number(15);
3145:
3146: --
3147: l_allws_flag varchar2(30);
3148: l_lvl_cd ben_pgm_f.dpnt_dsgn_lvl_cd%type;
3149: l_actn_typ_id number;
3150: l_rqd_data_found boolean; -- holds return value from check_xxx functions
3151: l_effective_start_date date;
3152: l_effective_end_date date;
3211: -- Cursor to retrieve the dependent designation level
3212: --
3213: cursor c_dpnt_lvl_cd (p_pgm_id number) is
3214: select pgm.dpnt_dsgn_lvl_cd
3215: from ben_pgm_f pgm
3216: where pgm.pgm_id = p_pgm_id
3217: and pgm.business_group_id = p_business_group_id
3218: and p_effective_date between
3219: pgm.effective_start_date and pgm.effective_end_date;
3226: pgm.susp_if_dpnt_adr_nt_prv_cd,
3227: pgm.susp_if_ctfn_not_dpnt_flag,
3228: pgm.dpnt_ctfn_determine_cd,
3229: pgm.dpnt_dsgn_no_ctfn_rqd_flag
3230: from ben_pgm_f pgm
3231: where pgm.pgm_id = p_pgm_id
3232: and pgm.business_group_id = p_business_group_id
3233: and p_effective_date between
3234: pgm.effective_start_date and pgm.effective_end_date;
3486: end if;
3487: */
3488:
3489: --
3490: -- Fetch the designation level code from the ben_pgm_f table.
3491: --
3492: if l_rslt.pgm_id is not null then
3493: open c_dpnt_lvl_cd(p_pgm_id => l_rslt.pgm_id);
3494: fetch c_dpnt_lvl_cd into l_lvl_cd;