1670: CURSOR c27 (
1671: p_per_in_ler_id IN NUMBER
1672: ) IS
1673: SELECT elig_per_opt_id
1674: FROM ben_elig_per_opt_f
1675: WHERE per_in_ler_id = p_per_in_ler_id
1676: FOR UPDATE OF elig_per_opt_id;
1677:
1678: --
1961: CLOSE c26;
1962: OPEN c27 (
1963: r1.per_in_ler_id
1964: );
1965: <
1967: FETCH c27 INTO l_id;
1968: EXIT WHEN c27%NOTFOUND;
1969: DELETE FROM ben_elig_per_opt_f
1965: <
1966: LOOP
1967: FETCH c27 INTO l_id;
1968: EXIT WHEN c27%NOTFOUND;
1969: DELETE FROM ben_elig_per_opt_f
1970: WHERE CURRENT OF c27;
1971: END LOOP ben_elig_per_opt_f;
1972: CLOSE c27;
1973: OPEN c28 (
1967: FETCH c27 INTO l_id;
1968: EXIT WHEN c27%NOTFOUND;
1969: DELETE FROM ben_elig_per_opt_f
1970: WHERE CURRENT OF c27;
1971: END LOOP ben_elig_per_opt_f;
1972: CLOSE c27;
1973: OPEN c28 (
1974: r1.per_in_ler_id
1975: );