1378: CURSOR c3 (
1379: p_per_cm_id NUMBER
1380: ) IS
1381: SELECT per_cm_trgr_id
1382: FROM ben_per_cm_trgr_f
1383: WHERE per_cm_id = p_per_cm_id
1384: FOR UPDATE OF per_cm_trgr_id;
1385:
1386: --
1408: CLOSE c2;
1409: OPEN c3 (
1410: r1.per_cm_id
1411: );
1412: <
1414: FETCH c3 INTO l_id;
1415: EXIT WHEN c3%NOTFOUND;
1416: DELETE FROM ben_per_cm_trgr_f
1412: <
1413: LOOP
1414: FETCH c3 INTO l_id;
1415: EXIT WHEN c3%NOTFOUND;
1416: DELETE FROM ben_per_cm_trgr_f
1417: WHERE CURRENT OF c3;
1418: END LOOP ben_per_cm_trgr_f;
1419: CLOSE c3;
1420: OPEN c4 (
1414: FETCH c3 INTO l_id;
1415: EXIT WHEN c3%NOTFOUND;
1416: DELETE FROM ben_per_cm_trgr_f
1417: WHERE CURRENT OF c3;
1418: END LOOP ben_per_cm_trgr_f;
1419: CLOSE c3;
1420: OPEN c4 (
1421: r1.per_cm_id
1422: );