19: CURSOR c20 (
20: p_person_id NUMBER
21: ) IS
22: SELECT 1
23: FROM ben_batch_commu_info
24: WHERE person_id = p_person_id;
25: CURSOR c21 (
26: p_person_id NUMBER
27: ) IS
273: --
274: CLOSE c2;
275:
276: --
277: -- Testing for values in BEN_BATCH_COMMU_INFO
278: --
279: OPEN c20 (
280: p_person_id
281: );
289: 'BEN_94121_DT_CHILD_EXISTS'
290: );
291: fnd_message.set_token (
292: 'TABLE_NAME',
293: 'BEN_BATCH_COMMU_INFO'
294: );
295: fnd_message.raise_error;
296: END IF;
297:
2296: CURSOR c22 (
2297: p_person_id NUMBER
2298: ) IS
2299: SELECT batch_commu_id
2300: FROM ben_batch_commu_info
2301: WHERE person_id = p_person_id
2302: FOR UPDATE OF batch_commu_id;
2303:
2304: --
2633: --
2634: OPEN c22 (
2635: p_person_id
2636: );
2637: <
2639: FETCH c22 INTO l_id;
2640: EXIT WHEN c22%NOTFOUND;
2641: DELETE FROM ben_batch_commu_info
2637: <
2638: LOOP
2639: FETCH c22 INTO l_id;
2640: EXIT WHEN c22%NOTFOUND;
2641: DELETE FROM ben_batch_commu_info
2642: WHERE CURRENT OF c22;
2643: END LOOP ben_batch_commu_info;
2644: CLOSE c22;
2645: --
2639: FETCH c22 INTO l_id;
2640: EXIT WHEN c22%NOTFOUND;
2641: DELETE FROM ben_batch_commu_info
2642: WHERE CURRENT OF c22;
2643: END LOOP ben_batch_commu_info;
2644: CLOSE c22;
2645: --
2646: OPEN c23 (
2647: p_person_id