209: CURSOR c34 (
210: p_person_id NUMBER
211: ) IS
212: SELECT 1
213: FROM ben_cbr_quald_bnf
214: WHERE cvrd_emp_person_id = p_person_id;
215: -- 3511450
216: CURSOR c35 (
217: p_person_id NUMBER
1042:
1043: --
1044: CLOSE c33;
1045: --
1046: -- Testing for values in BEN_CBR_QUALD_BNF
1047: --
1048: OPEN c34 (
1049: p_person_id
1050: );
1058: 'BEN_94121_DT_CHILD_EXISTS'
1059: );
1060: fnd_message.set_token (
1061: 'TABLE_NAME',
1062: 'BEN_CBR_QUALD_BNF'
1063: );
1064: fnd_message.raise_error;
1065: END IF;
1066:
2379: CURSOR c31 (
2380: p_person_id NUMBER
2381: ) IS
2382: SELECT cbr_quald_bnf_id
2383: FROM ben_cbr_quald_bnf
2384: WHERE cvrd_emp_person_id = p_person_id
2385: FOR UPDATE OF cbr_quald_bnf_id;
2386:
2387: --
2734: CLOSE c30;
2735: OPEN c31 (
2736: p_person_id
2737: );
2738: <
2740: FETCH c31 INTO l_id;
2741: EXIT WHEN c31%NOTFOUND;
2742: DELETE FROM ben_cbr_quald_bnf
2738: <
2739: LOOP
2740: FETCH c31 INTO l_id;
2741: EXIT WHEN c31%NOTFOUND;
2742: DELETE FROM ben_cbr_quald_bnf
2743: WHERE CURRENT OF c31;
2744: END LOOP ben_cbr_quald_bnf;
2745: CLOSE c31;
2746: OPEN c32 (
2740: FETCH c31 INTO l_id;
2741: EXIT WHEN c31%NOTFOUND;
2742: DELETE FROM ben_cbr_quald_bnf
2743: WHERE CURRENT OF c31;
2744: END LOOP ben_cbr_quald_bnf;
2745: CLOSE c31;
2746: OPEN c32 (
2747: p_person_id
2748: );