[Home] [Help]
37: CURSOR c23 (
38: p_person_id NUMBER
39: ) IS
40: SELECT 1
41: FROM ben_batch_elig_info
42: WHERE person_id = p_person_id;
43: CURSOR c24 (
44: p_person_id NUMBER
45: ) IS
348: --
349: CLOSE c22;
350:
351: --
352: -- Testing for values in BEN_BATCH_ELIG_INFO
353: --
354: OPEN c23 (
355: p_person_id
356: );
364: 'BEN_94121_DT_CHILD_EXISTS'
365: );
366: fnd_message.set_token (
367: 'TABLE_NAME',
368: 'BEN_BATCH_ELIG_INFO'
369: );
370: fnd_message.raise_error;
371: END IF;
372:
2323: CURSOR c25 (
2324: p_person_id NUMBER
2325: ) IS
2326: SELECT batch_elig_id
2327: FROM ben_batch_elig_info
2328: WHERE person_id = p_person_id
2329: FOR UPDATE OF batch_elig_id;
2330:
2331: --
2668: CLOSE c24;
2669: OPEN c25 (
2670: p_person_id
2671: );
2672: <
2674: FETCH c25 INTO l_id;
2675: EXIT WHEN c25%NOTFOUND;
2676: DELETE FROM ben_batch_elig_info
2672: <
2673: LOOP
2674: FETCH c25 INTO l_id;
2675: EXIT WHEN c25%NOTFOUND;
2676: DELETE FROM ben_batch_elig_info
2677: WHERE CURRENT OF c25;
2678: END LOOP ben_batch_elig_info;
2679: CLOSE c25;
2680: OPEN c26 (
2674: FETCH c25 INTO l_id;
2675: EXIT WHEN c25%NOTFOUND;
2676: DELETE FROM ben_batch_elig_info
2677: WHERE CURRENT OF c25;
2678: END LOOP ben_batch_elig_info;
2679: CLOSE c25;
2680: OPEN c26 (
2681: p_person_id
2682: );