111: CURSOR c4 (
112: p_person_id NUMBER
113: ) IS
114: SELECT 1
115: FROM ben_per_bnfts_bal_f
116: WHERE person_id = p_person_id;
117: CURSOR c19 (
118: p_person_id NUMBER
119: ) IS
648: --
649: CLOSE c27;
650:
651: --
652: -- Testing for values in BEN_PER_BNFTS_BAL_F
653: --
654: OPEN c4 (
655: p_person_id
656: );
664: 'BEN_94121_DT_CHILD_EXISTS'
665: );
666: fnd_message.set_token (
667: 'TABLE_NAME',
668: 'BEN_PER_BNFTS_BAL_F'
669: );
670: fnd_message.raise_error;
671: END IF;
672:
2444: CURSOR c38 (
2445: p_person_id NUMBER
2446: ) IS
2447: SELECT per_bnfts_bal_id
2448: FROM ben_per_bnfts_bal_f
2449: WHERE person_id = p_person_id
2450: FOR UPDATE OF per_bnfts_bal_id;
2451:
2452: --
2811: CLOSE c37;
2812: OPEN c38 (
2813: p_person_id
2814: );
2815: <
2817: FETCH c38 INTO l_id;
2818: EXIT WHEN c38%NOTFOUND;
2819: DELETE FROM ben_per_bnfts_bal_f
2815: <
2816: LOOP
2817: FETCH c38 INTO l_id;
2818: EXIT WHEN c38%NOTFOUND;
2819: DELETE FROM ben_per_bnfts_bal_f
2820: WHERE CURRENT OF c38;
2821: END LOOP ben_per_bnfts_bal_f;
2822: CLOSE c38;
2823: OPEN c39 (
2817: FETCH c38 INTO l_id;
2818: EXIT WHEN c38%NOTFOUND;
2819: DELETE FROM ben_per_bnfts_bal_f
2820: WHERE CURRENT OF c38;
2821: END LOOP ben_per_bnfts_bal_f;
2822: CLOSE c38;
2823: OPEN c39 (
2824: p_person_id
2825: );