1596: CURSOR c19 (
1597: p_elig_per_elctbl_chc_id NUMBER
1598: ) IS
1599: SELECT enrt_prem_id
1600: FROM ben_enrt_prem
1601: WHERE elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id
1602: FOR UPDATE OF enrt_prem_id;
1603:
1604: --
1873: hr_utility.set_location(l_proc,60);
1874: OPEN c19 (
1875: r17.elig_per_elctbl_chc_id
1876: );
1877: <
1879: FETCH c19 INTO l_id;
1880: EXIT WHEN c19%NOTFOUND;
1881: DELETE FROM ben_enrt_prem
1877: <
1878: LOOP
1879: FETCH c19 INTO l_id;
1880: EXIT WHEN c19%NOTFOUND;
1881: DELETE FROM ben_enrt_prem
1882: WHERE CURRENT OF c19;
1883: END LOOP;
1884: CLOSE c19;
1885: --