1555: FROM ben_cvrd_dpnt_ctfn_prvdd_f
1556: WHERE prtt_enrt_actn_id = p_prtt_enrt_actn_id
1557: FOR UPDATE OF cvrd_dpnt_ctfn_prvdd_id;
1558: --** C|c15|p_per_in_ler_id in number
1559: --** CN|c15|Fetch the enrt_bnft_id from ben_enrt_bnft associated with a per_in_ler_id and elig_per_elctbl_chc_id.
1560: CURSOR c15 (
1561: p_per_in_ler_id IN NUMBER
1562: ) IS
1563: SELECT DISTINCT enrt_bnft_id
1560: CURSOR c15 (
1561: p_per_in_ler_id IN NUMBER
1562: ) IS
1563: SELECT DISTINCT enrt_bnft_id
1564: FROM ben_elig_per_elctbl_chc b1, ben_enrt_bnft b2
1565: WHERE b1.per_in_ler_id = p_per_in_ler_id
1566: AND b2.elig_per_elctbl_chc_id =
1567: b1.elig_per_elctbl_chc_id;
1568:
1587: CURSOR c18 (
1588: p_elig_per_elctbl_chc_id NUMBER
1589: ) IS
1590: SELECT enrt_bnft_id
1591: FROM ben_enrt_bnft
1592: WHERE elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id
1593: FOR UPDATE OF enrt_bnft_id;
1594:
1595: --
1860: ) LOOP
1861: OPEN c18 (
1862: r17.elig_per_elctbl_chc_id
1863: );
1864: <
1866: FETCH c18 INTO l_id;
1867: EXIT WHEN c18%NOTFOUND;
1868: DELETE FROM ben_enrt_bnft
1864: <
1865: LOOP
1866: FETCH c18 INTO l_id;
1867: EXIT WHEN c18%NOTFOUND;
1868: DELETE FROM ben_enrt_bnft
1869: WHERE CURRENT OF c18;
1870: END LOOP ben_enrt_bnft;
1871: CLOSE c18;
1872: --
1866: FETCH c18 INTO l_id;
1867: EXIT WHEN c18%NOTFOUND;
1868: DELETE FROM ben_enrt_bnft
1869: WHERE CURRENT OF c18;
1870: END LOOP ben_enrt_bnft;
1871: CLOSE c18;
1872: --
1873: hr_utility.set_location(l_proc,60);
1874: OPEN c19 (