1131: CURSOR c2 (
1132: p_elig_cvrd_dpnt_id NUMBER
1133: ) IS
1134: SELECT elig_cvrd_dpnt_id
1135: FROM ben_prmry_care_prvdr_f
1136: WHERE elig_cvrd_dpnt_id = p_elig_cvrd_dpnt_id
1137: FOR UPDATE OF elig_cvrd_dpnt_id;
1138:
1139: --
1222: hr_utility.set_location(l_proc, 25);
1223: OPEN c2 (
1224: l_ecd.elig_cvrd_dpnt_id
1225: );
1226: <
1228: FETCH c2 INTO l_id;
1229: EXIT WHEN c2%NOTFOUND;
1230: DELETE ben_prmry_care_prvdr_f
1226: <
1227: LOOP
1228: FETCH c2 INTO l_id;
1229: EXIT WHEN c2%NOTFOUND;
1230: DELETE ben_prmry_care_prvdr_f
1231: WHERE CURRENT OF c2;
1232: END LOOP ben_prmry_care_prvdr_f;
1233: CLOSE c2;
1234: hr_utility.set_location(l_proc, 30);
1228: FETCH c2 INTO l_id;
1229: EXIT WHEN c2%NOTFOUND;
1230: DELETE ben_prmry_care_prvdr_f
1231: WHERE CURRENT OF c2;
1232: END LOOP ben_prmry_care_prvdr_f;
1233: CLOSE c2;
1234: hr_utility.set_location(l_proc, 30);
1235: OPEN c3 (
1236: l_ecd.elig_cvrd_dpnt_id
1416: CURSOR c5 (
1417: p_prtt_enrt_rslt_id NUMBER
1418: ) IS
1419: SELECT prmry_care_prvdr_id
1420: FROM ben_prmry_care_prvdr_f
1421: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
1422: FOR UPDATE OF prmry_care_prvdr_id;
1423:
1424: --
1577: CURSOR c23 (
1578: p_elig_cvrd_dpnt_id NUMBER
1579: ) IS
1580: SELECT prmry_care_prvdr_id
1581: FROM ben_prmry_care_prvdr_f
1582: WHERE elig_cvrd_dpnt_id = p_elig_cvrd_dpnt_id
1583: FOR UPDATE OF prmry_care_prvdr_id;
1584:
1585: --
1679: ) LOOP
1680: OPEN c5 (
1681: r4.prtt_enrt_rslt_id
1682: );
1683: <
1685: FETCH c5 INTO l_id;
1686: EXIT WHEN c5%NOTFOUND;
1687: DELETE FROM ben_prmry_care_prvdr_f
1683: <
1684: LOOP
1685: FETCH c5 INTO l_id;
1686: EXIT WHEN c5%NOTFOUND;
1687: DELETE FROM ben_prmry_care_prvdr_f
1688: WHERE CURRENT OF c5;
1689: END LOOP ben_prmry_care_prvdr_f;
1690: CLOSE c5;
1691: OPEN c6 (
1685: FETCH c5 INTO l_id;
1686: EXIT WHEN c5%NOTFOUND;
1687: DELETE FROM ben_prmry_care_prvdr_f
1688: WHERE CURRENT OF c5;
1689: END LOOP ben_prmry_care_prvdr_f;
1690: CLOSE c5;
1691: OPEN c6 (
1692: r4.prtt_enrt_rslt_id
1693: );
1858: ) LOOP
1859: OPEN c23 (
1860: r22.elig_cvrd_dpnt_id
1861: );
1862: <
1864: FETCH c23 INTO l_id;
1865: EXIT WHEN c23%NOTFOUND;
1866: DELETE FROM ben_prmry_care_prvdr_f
1862: <
1863: LOOP
1864: FETCH c23 INTO l_id;
1865: EXIT WHEN c23%NOTFOUND;
1866: DELETE FROM ben_prmry_care_prvdr_f
1867: WHERE CURRENT OF c23;
1868: END LOOP ben_prmry_care_prvdr_f;
1869: CLOSE c23;
1870: END LOOP;
1864: FETCH c23 INTO l_id;
1865: EXIT WHEN c23%NOTFOUND;
1866: DELETE FROM ben_prmry_care_prvdr_f
1867: WHERE CURRENT OF c23;
1868: END LOOP ben_prmry_care_prvdr_f;
1869: CLOSE c23;
1870: END LOOP;
1871: OPEN c24 (
1872: r1.per_in_ler_id
1980: CURSOR c2 (
1981: p_prtt_enrt_rslt_id NUMBER
1982: ) IS
1983: SELECT prmry_care_prvdr_id
1984: FROM ben_prmry_care_prvdr_f
1985: WHERE prtt_enrt_rslt_id = p_prtt_enrt_rslt_id
1986: FOR UPDATE OF prmry_care_prvdr_id;
1987:
1988: --
2046: ) LOOP
2047: OPEN c2 (
2048: r1.prtt_enrt_rslt_id
2049: );
2050: <
2052: FETCH c2 INTO l_id;
2053: EXIT WHEN c2%NOTFOUND;
2054: DELETE FROM ben_prmry_care_prvdr_f
2050: <
2051: LOOP
2052: FETCH c2 INTO l_id;
2053: EXIT WHEN c2%NOTFOUND;
2054: DELETE FROM ben_prmry_care_prvdr_f
2055: WHERE CURRENT OF c2;
2056: END LOOP ben_prmry_care_prvdr_f;
2057: CLOSE c2;
2058: OPEN c3 (
2052: FETCH c2 INTO l_id;
2053: EXIT WHEN c2%NOTFOUND;
2054: DELETE FROM ben_prmry_care_prvdr_f
2055: WHERE CURRENT OF c2;
2056: END LOOP ben_prmry_care_prvdr_f;
2057: CLOSE c2;
2058: OPEN c3 (
2059: r1.prtt_enrt_rslt_id
2060: );