258: CURSOR c34 (
259: p_person_id NUMBER
260: ) IS
261: SELECT 1
262: FROM ben_cbr_quald_bnf
263: WHERE cvrd_emp_person_id = p_person_id;
264: -- 3511450
265: CURSOR c35 (
266: p_person_id NUMBER
1091:
1092: --
1093: CLOSE c33;
1094: --
1095: -- Testing for values in BEN_CBR_QUALD_BNF
1096: --
1097: OPEN c34 (
1098: p_person_id
1099: );
1107: 'BEN_94121_DT_CHILD_EXISTS'
1108: );
1109: fnd_message.set_token (
1110: 'TABLE_NAME',
1111: 'BEN_CBR_QUALD_BNF'
1112: );
1113: fnd_message.raise_error;
1114: END IF;
1115:
2483: CURSOR c31 (
2484: p_person_id NUMBER
2485: ) IS
2486: SELECT cbr_quald_bnf_id
2487: FROM ben_cbr_quald_bnf
2488: WHERE cvrd_emp_person_id = p_person_id
2489: FOR UPDATE OF cbr_quald_bnf_id;
2490:
2491: --
2858: if(p_per_in_ler_id is NULL) then
2859: OPEN c31 (
2860: p_person_id
2861: );
2862: <
2864: FETCH c31 INTO l_id;
2865: EXIT WHEN c31%NOTFOUND;
2866: DELETE FROM ben_cbr_quald_bnf
2862: <
2863: LOOP
2864: FETCH c31 INTO l_id;
2865: EXIT WHEN c31%NOTFOUND;
2866: DELETE FROM ben_cbr_quald_bnf
2867: WHERE CURRENT OF c31;
2868: END LOOP ben_cbr_quald_bnf;
2869: CLOSE c31;
2870: end if;
2864: FETCH c31 INTO l_id;
2865: EXIT WHEN c31%NOTFOUND;
2866: DELETE FROM ben_cbr_quald_bnf
2867: WHERE CURRENT OF c31;
2868: END LOOP ben_cbr_quald_bnf;
2869: CLOSE c31;
2870: end if;
2871: if(p_per_in_ler_id is NULL) then
2872: OPEN c32 (