1613: CURSOR c27 (
1614: p_per_in_ler_id IN NUMBER
1615: ) IS
1616: SELECT elig_per_opt_id
1617: FROM ben_elig_per_opt_f
1618: WHERE per_in_ler_id = p_per_in_ler_id
1619: FOR UPDATE OF elig_per_opt_id;
1620:
1621: --
1904: CLOSE c26;
1905: OPEN c27 (
1906: r1.per_in_ler_id
1907: );
1908: <
1910: FETCH c27 INTO l_id;
1911: EXIT WHEN c27%NOTFOUND;
1912: DELETE FROM ben_elig_per_opt_f
1908: <
1909: LOOP
1910: FETCH c27 INTO l_id;
1911: EXIT WHEN c27%NOTFOUND;
1912: DELETE FROM ben_elig_per_opt_f
1913: WHERE CURRENT OF c27;
1914: END LOOP ben_elig_per_opt_f;
1915: CLOSE c27;
1916: OPEN c28 (
1910: FETCH c27 INTO l_id;
1911: EXIT WHEN c27%NOTFOUND;
1912: DELETE FROM ben_elig_per_opt_f
1913: WHERE CURRENT OF c27;
1914: END LOOP ben_elig_per_opt_f;
1915: CLOSE c27;
1916: OPEN c28 (
1917: r1.per_in_ler_id
1918: );