153: CURSOR c14 (
154: p_person_id NUMBER
155: ) IS
156: SELECT 1
157: FROM ben_popl_org_f
158: WHERE person_id = p_person_id;
159: CURSOR c18 (
160: p_person_id NUMBER
161: ) IS
823: --
824: CLOSE c5;
825:
826: --
827: -- Testing for values in BEN_POPL_ORG_F
828: --
829: OPEN c14 (
830: p_person_id
831: );
839: 'BEN_94121_DT_CHILD_EXISTS'
840: );
841: fnd_message.set_token (
842: 'TABLE_NAME',
843: 'BEN_POPL_ORG_F'
844: );
845: fnd_message.raise_error;
846: END IF;
847:
2516: CURSOR c46 (
2517: p_person_id NUMBER
2518: ) IS
2519: SELECT popl_org_id
2520: FROM ben_popl_org_f
2521: WHERE person_id = p_person_id
2522: FOR UPDATE OF popl_org_id;
2523:
2524: --
2938: CLOSE c45;
2939: OPEN c46 (
2940: p_person_id
2941: );
2942: <
2944: FETCH c46 INTO l_id;
2945: EXIT WHEN c46%NOTFOUND;
2946: DELETE FROM ben_popl_org_f
2942: <
2943: LOOP
2944: FETCH c46 INTO l_id;
2945: EXIT WHEN c46%NOTFOUND;
2946: DELETE FROM ben_popl_org_f
2947: WHERE CURRENT OF c46;
2948: END LOOP ben_popl_org_f;
2949: CLOSE c46;
2950: OPEN c47 (
2944: FETCH c46 INTO l_id;
2945: EXIT WHEN c46%NOTFOUND;
2946: DELETE FROM ben_popl_org_f
2947: WHERE CURRENT OF c46;
2948: END LOOP ben_popl_org_f;
2949: CLOSE c46;
2950: OPEN c47 (
2951: p_person_id
2952: );