[Home] [Help]
97: CURSOR c11 (
98: p_person_id NUMBER
99: ) IS
100: SELECT 1
101: FROM ben_le_clsn_n_rstr lct,
102: ben_per_in_ler pil
103: WHERE pil.person_id = p_person_id
104: AND pil.per_in_ler_id = lct.per_in_ler_id; /* Bug 4882374 : Perf */
105: CURSOR c27 (
598: --
599: CLOSE c7;
600:
601: --
602: -- Testing for values in BEN_LE_CLSN_N_RSTR
603: --
604: OPEN c11 (
605: p_person_id
606: );
614: 'BEN_94121_DT_CHILD_EXISTS'
615: );
616: fnd_message.set_token (
617: 'TABLE_NAME',
618: 'BEN_LE_CLSN_N_RSTR'
619: );
620: fnd_message.raise_error;
621: END IF;
622:
1622: CURSOR c28 (
1623: p_per_in_ler_id IN NUMBER
1624: ) IS
1625: SELECT bkup_tbl_id
1626: FROM ben_le_clsn_n_rstr
1627: WHERE per_in_ler_id = p_per_in_ler_id
1628: FOR UPDATE OF bkup_tbl_id;
1629:
1630: --
1915: CLOSE c27;
1916: OPEN c28 (
1917: r1.per_in_ler_id
1918: );
1919: <
1921: FETCH c28 INTO l_id;
1922: EXIT WHEN c28%NOTFOUND;
1923: DELETE FROM ben_le_clsn_n_rstr
1919: <
1920: LOOP
1921: FETCH c28 INTO l_id;
1922: EXIT WHEN c28%NOTFOUND;
1923: DELETE FROM ben_le_clsn_n_rstr
1924: WHERE CURRENT OF c28;
1925: END LOOP ben_le_clsn_n_rstr;
1926: CLOSE c28;
1927: OPEN c29 (
1921: FETCH c28 INTO l_id;
1922: EXIT WHEN c28%NOTFOUND;
1923: DELETE FROM ben_le_clsn_n_rstr
1924: WHERE CURRENT OF c28;
1925: END LOOP ben_le_clsn_n_rstr;
1926: CLOSE c28;
1927: OPEN c29 (
1928: r1.per_in_ler_id
1929: );