147: CURSOR c5 (
148: p_person_id NUMBER
149: ) IS
150: SELECT 1
151: FROM ben_per_pin_f
152: WHERE person_id = p_person_id;
153: CURSOR c14 (
154: p_person_id NUMBER
155: ) IS
798: --
799: CLOSE c10;
800:
801: --
802: -- Testing for values in BEN_PER_PIN_F
803: --
804: OPEN c5 (
805: p_person_id
806: );
814: 'BEN_94121_DT_CHILD_EXISTS'
815: );
816: fnd_message.set_token (
817: 'TABLE_NAME',
818: 'BEN_PER_PIN_F'
819: );
820: fnd_message.raise_error;
821: END IF;
822:
2498: CURSOR c44 (
2499: p_person_id NUMBER
2500: ) IS
2501: SELECT per_pin_id
2502: FROM ben_per_pin_f
2503: WHERE person_id = p_person_id
2504: FOR UPDATE OF per_pin_id;
2505:
2506: --
2915:
2916: OPEN c44 (
2917: p_person_id
2918: );
2919: <
2921: FETCH c44 INTO l_id;
2922: EXIT WHEN c44%NOTFOUND;
2923: DELETE FROM ben_per_pin_f
2919: <
2920: LOOP
2921: FETCH c44 INTO l_id;
2922: EXIT WHEN c44%NOTFOUND;
2923: DELETE FROM ben_per_pin_f
2924: WHERE CURRENT OF c44;
2925: END LOOP ben_per_pin_f;
2926: CLOSE c44;
2927:
2921: FETCH c44 INTO l_id;
2922: EXIT WHEN c44%NOTFOUND;
2923: DELETE FROM ben_per_pin_f
2924: WHERE CURRENT OF c44;
2925: END LOOP ben_per_pin_f;
2926: CLOSE c44;
2927:
2928: OPEN c45 (
2929: p_person_id