[Home] [Help]
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 (
106: p_person_id NUMBER
129: CURSOR c12 (
130: p_person_id NUMBER
131: ) IS
132: SELECT 1
133: FROM ben_per_in_ler
134: WHERE person_id = p_person_id;
135: CURSOR c9 (
136: p_person_id NUMBER
137: ) IS
723: --
724: CLOSE c8;
725:
726: --
727: -- Testing for values in BEN_PER_IN_LER
728: --
729: OPEN c12 (
730: p_person_id
731: );
739: 'BEN_94121_DT_CHILD_EXISTS'
740: );
741: fnd_message.set_token (
742: 'TABLE_NAME',
743: 'BEN_PER_IN_LER'
744: );
745: fnd_message.raise_error;
746: END IF;
747:
1382: p_person_id IN NUMBER
1383: ) IS
1384: l_proc varchar2(100):= g_package||'delete_life_events';
1385: --** C|c1
1386: --** CN|c1|Fetch the per_in_ler_id from ben_per_in_ler associated with a person_id.
1387: CURSOR c1 IS
1388: SELECT DISTINCT per_in_ler_id
1389: FROM ben_per_in_ler
1390: WHERE person_id = p_person_id;
1385: --** C|c1
1386: --** CN|c1|Fetch the per_in_ler_id from ben_per_in_ler associated with a person_id.
1387: CURSOR c1 IS
1388: SELECT DISTINCT per_in_ler_id
1389: FROM ben_per_in_ler
1390: WHERE person_id = p_person_id;
1391: --** C|c2|p_per_in_ler_id in number
1392: --** CN|c2|Fetch the prtt_prem_id from ben_prtt_prem_f associated with a per_in_ler_id.
1393: CURSOR c2 (
2471: CURSOR c41 (
2472: p_person_id NUMBER
2473: ) IS
2474: SELECT per_in_ler_id
2475: FROM ben_per_in_ler
2476: WHERE person_id = p_person_id
2477: FOR UPDATE OF per_in_ler_id;
2478:
2479: --
2844: CLOSE c40;
2845: OPEN c41 (
2846: p_person_id
2847: );
2848: <
2850: FETCH c41 INTO l_id;
2851: EXIT WHEN c41%NOTFOUND;
2852: --Bug 4653271 Deletion of BEn - CWB information
2876: DELETE FROM BEN_CWB_MGR_HRCHY_RBV WHERE EMP_ELIG_PER_ELCTBL_CHC_ID = l_elig_per_elctbl_chc_id;
2877: END LOOP ben_elig_per_elctbl_chc;
2878: CLOSE c50;
2879: -- End Bug 4653271
2880: DELETE FROM ben_per_in_ler
2881: WHERE CURRENT OF c41;
2882: END LOOP ben_per_in_ler;
2883: CLOSE c41;
2884:
2878: CLOSE c50;
2879: -- End Bug 4653271
2880: DELETE FROM ben_per_in_ler
2881: WHERE CURRENT OF c41;
2882: END LOOP ben_per_in_ler;
2883: CLOSE c41;
2884:
2885: --Bug 4653271 Deletion of BEn - CWB information
2886: DELETE from BEN_CWB_PERSON_INFO where person_id = p_person_id;
2994: CURSOR c_pil( p_person_id number ,
2995: p_effective_date date
2996: ) is
2997: SELECT 'Y'
2998: FROM ben_per_in_ler pil,
2999: ben_ler_f ler
3000: WHERE pil.person_id = p_person_id
3001: AND pil.per_in_ler_stat_cd = 'STRTD'
3002: AND pil.ler_id = ler.ler_id
3053: p_effective_date date
3054: ) is
3055: SELECT 'Y'
3056: FROM ben_elig_cvrd_dpnt_f ecd,
3057: ben_per_in_ler pil,
3058: ben_ler_f ler,
3059: ben_prtt_enrt_rslt_f pen
3060: WHERE
3061: pil.person_id=p_person_id and
3077: p_effective_date date
3078: ) is
3079: SELECT 'Y'
3080: FROM ben_elig_cvrd_dpnt_f ecd,
3081: ben_per_in_ler pil,
3082: ben_ler_f ler,
3083: ben_prtt_enrt_rslt_f pen
3084: WHERE
3085: ecd.dpnt_person_id = p_person_id and
3100: p_effective_date date
3101: ) is
3102: SELECT 'Y'
3103: FROM ben_pl_bnf_f pbn,
3104: ben_per_in_ler pil,
3105: ben_ler_f ler,
3106: ben_prtt_enrt_rslt_f pen
3107: WHERE
3108: pbn.bnf_person_id = p_person_id and