1182: CURSOR c2 (
1183: p_elig_cvrd_dpnt_id NUMBER
1184: ) IS
1185: SELECT elig_cvrd_dpnt_id
1186: FROM ben_prmry_care_prvdr_f
1187: WHERE elig_cvrd_dpnt_id = p_elig_cvrd_dpnt_id
1188: FOR UPDATE OF elig_cvrd_dpnt_id;
1189:
1190: --
1275: hr_utility.set_location(l_proc, 25);
1276: OPEN c2 (
1277: l_ecd.elig_cvrd_dpnt_id
1278: );
1279: <
1281: FETCH c2 INTO l_id;
1282: EXIT WHEN c2%NOTFOUND;
1283: DELETE ben_prmry_care_prvdr_f
1279: <
1280: LOOP
1281: FETCH c2 INTO l_id;
1282: EXIT WHEN c2%NOTFOUND;
1283: DELETE ben_prmry_care_prvdr_f
1284: WHERE CURRENT OF c2;
1285: END LOOP ben_prmry_care_prvdr_f;
1286: CLOSE c2;
1287: hr_utility.set_location(l_proc, 30);
1281: FETCH c2 INTO l_id;
1282: EXIT WHEN c2%NOTFOUND;
1283: DELETE ben_prmry_care_prvdr_f
1284: WHERE CURRENT OF c2;
1285: END LOOP ben_prmry_care_prvdr_f;
1286: CLOSE c2;
1287: hr_utility.set_location(l_proc, 30);
1288: OPEN c3 (
1289: l_ecd.elig_cvrd_dpnt_id
1473: CURSOR c5 (
1474: p_prtt_enrt_rslt_id NUMBER
1475: ) IS
1476: SELECT prmry_care_prvdr_id
1477: FROM ben_prmry_care_prvdr_f
1478: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
1479: FOR UPDATE OF prmry_care_prvdr_id;
1480:
1481: --
1634: CURSOR c23 (
1635: p_elig_cvrd_dpnt_id NUMBER
1636: ) IS
1637: SELECT prmry_care_prvdr_id
1638: FROM ben_prmry_care_prvdr_f
1639: WHERE elig_cvrd_dpnt_id = p_elig_cvrd_dpnt_id
1640: FOR UPDATE OF prmry_care_prvdr_id;
1641:
1642: --
1736: ) LOOP
1737: OPEN c5 (
1738: r4.prtt_enrt_rslt_id
1739: );
1740: <
1742: FETCH c5 INTO l_id;
1743: EXIT WHEN c5%NOTFOUND;
1744: DELETE FROM ben_prmry_care_prvdr_f
1740: <
1741: LOOP
1742: FETCH c5 INTO l_id;
1743: EXIT WHEN c5%NOTFOUND;
1744: DELETE FROM ben_prmry_care_prvdr_f
1745: WHERE CURRENT OF c5;
1746: END LOOP ben_prmry_care_prvdr_f;
1747: CLOSE c5;
1748: OPEN c6 (
1742: FETCH c5 INTO l_id;
1743: EXIT WHEN c5%NOTFOUND;
1744: DELETE FROM ben_prmry_care_prvdr_f
1745: WHERE CURRENT OF c5;
1746: END LOOP ben_prmry_care_prvdr_f;
1747: CLOSE c5;
1748: OPEN c6 (
1749: r4.prtt_enrt_rslt_id
1750: );
1915: ) LOOP
1916: OPEN c23 (
1917: r22.elig_cvrd_dpnt_id
1918: );
1919: <
1921: FETCH c23 INTO l_id;
1922: EXIT WHEN c23%NOTFOUND;
1923: DELETE FROM ben_prmry_care_prvdr_f
1919: <
1920: LOOP
1921: FETCH c23 INTO l_id;
1922: EXIT WHEN c23%NOTFOUND;
1923: DELETE FROM ben_prmry_care_prvdr_f
1924: WHERE CURRENT OF c23;
1925: END LOOP ben_prmry_care_prvdr_f;
1926: CLOSE c23;
1927: END LOOP;
1921: FETCH c23 INTO l_id;
1922: EXIT WHEN c23%NOTFOUND;
1923: DELETE FROM ben_prmry_care_prvdr_f
1924: WHERE CURRENT OF c23;
1925: END LOOP ben_prmry_care_prvdr_f;
1926: CLOSE c23;
1927: END LOOP;
1928: OPEN c24 (
1929: r1.per_in_ler_id
2039: CURSOR c2 (
2040: p_prtt_enrt_rslt_id NUMBER
2041: ) IS
2042: SELECT prmry_care_prvdr_id
2043: FROM ben_prmry_care_prvdr_f
2044: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
2045: FOR UPDATE OF prmry_care_prvdr_id;
2046:
2047: --
2105: ) LOOP
2106: OPEN c2 (
2107: r1.prtt_enrt_rslt_id
2108: );
2109: <
2111: FETCH c2 INTO l_id;
2112: EXIT WHEN c2%NOTFOUND;
2113: DELETE FROM ben_prmry_care_prvdr_f
2109: <
2110: LOOP
2111: FETCH c2 INTO l_id;
2112: EXIT WHEN c2%NOTFOUND;
2113: DELETE FROM ben_prmry_care_prvdr_f
2114: WHERE CURRENT OF c2;
2115: END LOOP ben_prmry_care_prvdr_f;
2116: CLOSE c2;
2117: OPEN c3 (
2111: FETCH c2 INTO l_id;
2112: EXIT WHEN c2%NOTFOUND;
2113: DELETE FROM ben_prmry_care_prvdr_f
2114: WHERE CURRENT OF c2;
2115: END LOOP ben_prmry_care_prvdr_f;
2116: CLOSE c2;
2117: OPEN c3 (
2118: r1.prtt_enrt_rslt_id
2119: );