91: CURSOR c7 (
92: p_person_id NUMBER
93: ) IS
94: SELECT 1
95: FROM ben_ext_rslt_err
96: WHERE person_id = p_person_id;
97: CURSOR c11 (
98: p_person_id NUMBER
99: ) IS
573: --
574: CLOSE c6;
575:
576: --
577: -- Testing for values in BEN_EXT_RSLT_ERR
578: --
579: OPEN c7 (
580: p_person_id
581: );
589: 'BEN_94121_DT_CHILD_EXISTS'
590: );
591: fnd_message.set_token (
592: 'TABLE_NAME',
593: 'BEN_EXT_RSLT_ERR'
594: );
595: fnd_message.raise_error;
596: END IF;
597:
2435: CURSOR c37 (
2436: p_person_id NUMBER
2437: ) IS
2438: SELECT ext_rslt_err_id
2439: FROM ben_ext_rslt_err
2440: WHERE person_id = p_person_id
2441: FOR UPDATE OF ext_rslt_err_id;
2442:
2443: --
2800: CLOSE c36;
2801: OPEN c37 (
2802: p_person_id
2803: );
2804: <
2806: FETCH c37 INTO l_id;
2807: EXIT WHEN c37%NOTFOUND;
2808: DELETE FROM ben_ext_rslt_err
2804: <
2805: LOOP
2806: FETCH c37 INTO l_id;
2807: EXIT WHEN c37%NOTFOUND;
2808: DELETE FROM ben_ext_rslt_err
2809: WHERE CURRENT OF c37;
2810: END LOOP ben_ext_rslt_err;
2811: CLOSE c37;
2812: OPEN c38 (
2806: FETCH c37 INTO l_id;
2807: EXIT WHEN c37%NOTFOUND;
2808: DELETE FROM ben_ext_rslt_err
2809: WHERE CURRENT OF c37;
2810: END LOOP ben_ext_rslt_err;
2811: CLOSE c37;
2812: OPEN c38 (
2813: p_person_id
2814: );