527: p_currency OUT nocopy varchar2,
528: p_status OUT nocopy number
529: ) IS
530: --
531: L_Cur_Sal Ben_Enrt_Rt.val%type;
532: l_update_sal_cd ben_pgm_f.update_salary_cd%type;
533: --
534: l_pay_basis_id Per_All_Assignments_f.pay_basis_id%type;
535: l_pgm_id Per_All_Assignments_f.GRADE_LADDER_PGM_ID%type;
569: Cursor csr_sal is
570: Select Rate.Val Proposed_Sal,
571: Rate.Rt_Strt_Dt Sal_Chg_Dt
572: From Ben_Elig_Per_Elctbl_Chc Elct,
573: Ben_Enrt_Rt Rate
574: Where Elct.DFLT_FLAG = 'Y'
575: and Elct.Elctbl_Flag = 'Y'
576: and Elct.Per_in_ler_id = l_per_in_ler_id
577: and Elct.Enrt_Cvg_Strt_Dt is Not NULL