1688: CURSOR c29 (
1689: p_per_in_ler_id IN NUMBER
1690: ) IS
1691: SELECT pil_elctbl_chc_popl_id
1692: FROM ben_pil_elctbl_chc_popl
1693: WHERE per_in_ler_id = p_per_in_ler_id
1694: FOR UPDATE OF pil_elctbl_chc_popl_id;
1695:
1696: --
1983: CLOSE c28;
1984: OPEN c29 (
1985: r1.per_in_ler_id
1986: );
1987: <
1989: FETCH c29 INTO l_id;
1990: EXIT WHEN c29%NOTFOUND;
1991: DELETE FROM ben_pil_elctbl_chc_popl
1987: <
1988: LOOP
1989: FETCH c29 INTO l_id;
1990: EXIT WHEN c29%NOTFOUND;
1991: DELETE FROM ben_pil_elctbl_chc_popl
1992: WHERE CURRENT OF c29;
1993: END LOOP ben_pil_elctbl_chc_popl;
1994: CLOSE c29;
1995: OPEN c30 (
1989: FETCH c29 INTO l_id;
1990: EXIT WHEN c29%NOTFOUND;
1991: DELETE FROM ben_pil_elctbl_chc_popl
1992: WHERE CURRENT OF c29;
1993: END LOOP ben_pil_elctbl_chc_popl;
1994: CLOSE c29;
1995: OPEN c30 (
1996: r1.per_in_ler_id
1997: );
2665: CURSOR c49 (
2666: p_per_in_ler_id NUMBER
2667: ) IS
2668: SELECT PIL_ELCTBL_CHC_POPL_ID
2669: FROM ben_pil_elctbl_chc_popl
2670: WHERE per_in_ler_id = nvl(p_per_in_ler_id,per_in_ler_id)
2671: FOR UPDATE OF PIL_ELCTBL_CHC_POPL_ID;
2672:
2673:
2989:
2990: DELETE FROM BEN_CWB_PERSON_TASKS WHERE group_per_in_ler_id=l_id;
2991:
2992: OPEN c49(l_id);
2993: <
2995: FETCH c49 INTO l_pil_elctbl_chc_popl_id;
2996: EXIT WHEN c49%NOTFOUND;
2997: DELETE FROM BEN_CWB_HRCHY WHERE EMP_PIL_ELCTBL_CHC_POPL_ID = l_pil_elctbl_chc_popl_id;
2994: LOOP
2995: FETCH c49 INTO l_pil_elctbl_chc_popl_id;
2996: EXIT WHEN c49%NOTFOUND;
2997: DELETE FROM BEN_CWB_HRCHY WHERE EMP_PIL_ELCTBL_CHC_POPL_ID = l_pil_elctbl_chc_popl_id;
2998: END LOOP ben_pil_elctbl_chc_popl;
2999: CLOSE c49;
3000:
3001: OPEN c50(l_id);
3002: <