1388: SELECT DISTINCT per_in_ler_id
1389: FROM ben_per_in_ler
1390: WHERE person_id = p_person_id;
1391: --** C|c2|p_per_in_ler_id in number
1392: --** CN|c2|Fetch the prtt_prem_id from ben_prtt_prem_f associated with a per_in_ler_id.
1393: CURSOR c2 (
1394: p_per_in_ler_id IN NUMBER
1395: ) IS
1396: SELECT DISTINCT prtt_prem_id
1393: CURSOR c2 (
1394: p_per_in_ler_id IN NUMBER
1395: ) IS
1396: SELECT DISTINCT prtt_prem_id
1397: FROM ben_prtt_prem_f
1398: WHERE per_in_ler_id = p_per_in_ler_id;
1399: CURSOR c3 (
1400: p_prtt_prem_id NUMBER
1401: ) IS
1452: CURSOR c9 (
1453: p_prtt_enrt_rslt_id NUMBER
1454: ) IS
1455: SELECT prtt_prem_id
1456: FROM ben_prtt_prem_f
1457: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
1458: FOR UPDATE OF prtt_prem_id;
1459:
1460: --
1723: CLOSE c8;
1724: OPEN c9 (
1725: r4.prtt_enrt_rslt_id
1726: );
1727: <
1729: FETCH c9 INTO l_id;
1730: EXIT WHEN c9%NOTFOUND;
1731: DELETE FROM ben_prtt_prem_f
1727: <
1728: LOOP
1729: FETCH c9 INTO l_id;
1730: EXIT WHEN c9%NOTFOUND;
1731: DELETE FROM ben_prtt_prem_f
1732: WHERE CURRENT OF c9;
1733: END LOOP ben_prtt_prem_f;
1734: CLOSE c9;
1735: OPEN c10 (
1729: FETCH c9 INTO l_id;
1730: EXIT WHEN c9%NOTFOUND;
1731: DELETE FROM ben_prtt_prem_f
1732: WHERE CURRENT OF c9;
1733: END LOOP ben_prtt_prem_f;
1734: CLOSE c9;
1735: OPEN c10 (
1736: r4.prtt_enrt_rslt_id
1737: );
2018: CURSOR c6 (
2019: p_prtt_enrt_rslt_id NUMBER
2020: ) IS
2021: SELECT prtt_prem_id
2022: FROM ben_prtt_prem_f
2023: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
2024: FOR UPDATE OF prtt_prem_id;
2025:
2026: --
2090: CLOSE c5;
2091: OPEN c6 (
2092: r1.prtt_enrt_rslt_id
2093: );
2094: <
2096: FETCH c6 INTO l_id;
2097: EXIT WHEN c6%NOTFOUND;
2098: DELETE FROM ben_prtt_prem_f
2094: <
2095: LOOP
2096: FETCH c6 INTO l_id;
2097: EXIT WHEN c6%NOTFOUND;
2098: DELETE FROM ben_prtt_prem_f
2099: WHERE CURRENT OF c6;
2100: END LOOP ben_prtt_prem_f;
2101: CLOSE c6;
2102: OPEN c7 (
2096: FETCH c6 INTO l_id;
2097: EXIT WHEN c6%NOTFOUND;
2098: DELETE FROM ben_prtt_prem_f
2099: WHERE CURRENT OF c6;
2100: END LOOP ben_prtt_prem_f;
2101: CLOSE c6;
2102: OPEN c7 (
2103: r1.prtt_enrt_rslt_id
2104: );