185: close c_rslt_rec;
186:
187: if l_rslt_rec.pgm_id is not null then
188: --
189: hr_utility.set_location('pgm '||l_rslt_rec.pgm_id,100);
190: open c_pgm (l_rslt_rec.pgm_id);
191: fetch c_pgm into l_acty_ref_perd_cd;
192: close c_pgm;
193: --
196: open c_acty_base_rt(p_pl_id);
197: fetch c_acty_base_rt into l_acty_base_rt;
198: close c_acty_base_rt;
199: --
200: hr_utility.set_location(' l_prtt_rt_val_id = ' || l_prtt_rt_val_id, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
197: fetch c_acty_base_rt into l_acty_base_rt;
198: close c_acty_base_rt;
199: --
200: hr_utility.set_location(' l_prtt_rt_val_id = ' || l_prtt_rt_val_id, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
198: close c_acty_base_rt;
199: --
200: hr_utility.set_location(' l_prtt_rt_val_id = ' || l_prtt_rt_val_id, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
199: --
200: hr_utility.set_location(' l_prtt_rt_val_id = ' || l_prtt_rt_val_id, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
200: hr_utility.set_location(' l_prtt_rt_val_id = ' || l_prtt_rt_val_id, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
201: hr_utility.set_location(' l_rslt_rec.per_in_ler_id = ' || l_rslt_rec.per_in_ler_id, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
202: hr_utility.set_location(' l_acty_base_rt.rt_typ_cd = ' || l_acty_base_rt.rt_typ_cd, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
203: hr_utility.set_location(' l_acty_base_rt.tx_typ_cd = ' || l_acty_base_rt.tx_typ_cd, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
204: hr_utility.set_location(' l_acty_base_rt.acty_typ_cd = ' || l_acty_base_rt.acty_typ_cd, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
205: hr_utility.set_location(' l_acty_base_rt.rt_mlt_cd = ' || l_acty_base_rt.rt_mlt_cd, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
206: hr_utility.set_location(' l_acty_ref_perd_cd = ' || l_acty_ref_perd_cd, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
207: hr_utility.set_location(' p_per_frftd_val = ' || p_per_frftd_val, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
208: hr_utility.set_location(' p_end_date = ' || p_end_date, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
209: hr_utility.set_location(' l_acty_base_rt.bnft_rt_typ_cd = ' || l_acty_base_rt.bnft_rt_typ_cd, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
210: hr_utility.set_location(' l_acty_base_rt.comp_lvl_fctr_id = ' || l_acty_base_rt.comp_lvl_fctr_id, 9999);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
211: hr_utility.set_location(' p_business_group_id = ' || p_business_group_id, 9999);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
219: hr_utility.set_location(' p_end_date = ' || p_end_date, 8888);
212: hr_utility.set_location(' l_object_version_number = ' || l_object_version_number, 9999);
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
219: hr_utility.set_location(' p_end_date = ' || p_end_date, 8888);
220: --
213: hr_utility.set_location(' l_acty_base_rt.acty_base_rt_id = ' || l_acty_base_rt.acty_base_rt_id, 9999);
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
219: hr_utility.set_location(' p_end_date = ' || p_end_date, 8888);
220: --
221: -- if prtt_rt_val exists delete it by calling
214: hr_utility.set_location(' p_person_id = ' || p_person_id, 9999);
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
219: hr_utility.set_location(' p_end_date = ' || p_end_date, 8888);
220: --
221: -- if prtt_rt_val exists delete it by calling
222: --
215: hr_utility.set_location(' l_acty_base_rt.input_value_id = ' || l_acty_base_rt.input_value_id, 9999);
216: hr_utility.set_location(' l_acty_base_rt.element_type_id = ' || l_acty_base_rt.element_type_id, 9999);
217: hr_utility.set_location(' l_prtt_enrt_rslt_id = ' || l_rslt_rec.prtt_enrt_rslt_id, 9999);
218: hr_utility.set_location(' p_start_date = ' || p_start_date, 8888);
219: hr_utility.set_location(' p_end_date = ' || p_end_date, 8888);
220: --
221: -- if prtt_rt_val exists delete it by calling
222: --
223: l_prv_rec.prtt_rt_val_id := null;
227: p_start_date, p_end_date );
228: fetch c_prv_rec into l_prv_rec;
229: close c_prv_rec;
230: --
231: hr_utility.set_location(' l_prv_rec.prtt_rt_val_id = ' || l_prv_rec.prtt_rt_val_id, 9999);
232: hr_utility.set_location(' l_prv_rec.enrt_rt_id = ' || l_prv_rec.enrt_rt_id, 9999);
233: hr_utility.set_location(' l_prv_rec.obj = ' || l_prv_rec.object_version_number, 9999);
234: if l_prv_rec.prtt_rt_val_id is not null then
235: --
228: fetch c_prv_rec into l_prv_rec;
229: close c_prv_rec;
230: --
231: hr_utility.set_location(' l_prv_rec.prtt_rt_val_id = ' || l_prv_rec.prtt_rt_val_id, 9999);
232: hr_utility.set_location(' l_prv_rec.enrt_rt_id = ' || l_prv_rec.enrt_rt_id, 9999);
233: hr_utility.set_location(' l_prv_rec.obj = ' || l_prv_rec.object_version_number, 9999);
234: if l_prv_rec.prtt_rt_val_id is not null then
235: --
236: ben_prtt_rt_val_api.delete_prtt_rt_val
229: close c_prv_rec;
230: --
231: hr_utility.set_location(' l_prv_rec.prtt_rt_val_id = ' || l_prv_rec.prtt_rt_val_id, 9999);
232: hr_utility.set_location(' l_prv_rec.enrt_rt_id = ' || l_prv_rec.enrt_rt_id, 9999);
233: hr_utility.set_location(' l_prv_rec.obj = ' || l_prv_rec.object_version_number, 9999);
234: if l_prv_rec.prtt_rt_val_id is not null then
235: --
236: ben_prtt_rt_val_api.delete_prtt_rt_val
237: (p_validate => false
292: l_proc varchar2(80) := g_package||'.submit_all_reports';
293: l_actn varchar2(80);
294: l_request_id number;
295: Begin
296: hr_utility.set_location ('Entering '||l_proc,05);
297: l_actn := 'Calling ben_batch_utils.batch_report (BENPRSUM)...';
298: ben_batch_utils.batch_report
299: (p_concurrent_request_id => fnd_global.conc_request_id
300: ,p_program_name => 'BENFRSUM'
318: ,p_program_name => 'BENERPER'
319: ,p_request_id => l_request_id
320: );
321:
322: hr_utility.set_location ('Leaving '||l_proc,10);
323: Exception
324: When others then
325: ben_batch_utils.rpt_error(p_proc => l_proc
326: ,p_last_actn => l_actn
496: l_err_message varchar2(1000) ;
497: --
498: begin
499: --
500: hr_utility.set_location ('Entering '||l_package,10);
501: --
502: savepoint process_forfeitures;
503:
504: hr_utility.set_location ('process pl_id : '||to_char(p_pl_id),10);
500: hr_utility.set_location ('Entering '||l_package,10);
501: --
502: savepoint process_forfeitures;
503:
504: hr_utility.set_location ('process pl_id : '||to_char(p_pl_id),10);
505: --
506: open c_pl_subj_frfs(p_effective_date);
507: fetch c_pl_subj_frfs into l_pl_subj_frfs;
508: close c_pl_subj_frfs;
511: --
512: l_start_date := l_pl_subj_frfs.start_date;
513: l_end_date := l_pl_subj_frfs.end_date;
514: --
515: hr_utility.set_location ('process l_start_date : '||to_char(l_start_date),15);
516: hr_utility.set_location ('process l_end_date : '||to_char(l_end_date),15);
517: hr_utility.set_location ('p_effective_date : '||to_char(p_effective_date),15);
518: --
519: open c_abr(p_effective_date, 'PRC');
512: l_start_date := l_pl_subj_frfs.start_date;
513: l_end_date := l_pl_subj_frfs.end_date;
514: --
515: hr_utility.set_location ('process l_start_date : '||to_char(l_start_date),15);
516: hr_utility.set_location ('process l_end_date : '||to_char(l_end_date),15);
517: hr_utility.set_location ('p_effective_date : '||to_char(p_effective_date),15);
518: --
519: open c_abr(p_effective_date, 'PRC');
520: fetch c_abr into l_cntr_clf;
513: l_end_date := l_pl_subj_frfs.end_date;
514: --
515: hr_utility.set_location ('process l_start_date : '||to_char(l_start_date),15);
516: hr_utility.set_location ('process l_end_date : '||to_char(l_end_date),15);
517: hr_utility.set_location ('p_effective_date : '||to_char(p_effective_date),15);
518: --
519: open c_abr(p_effective_date, 'PRC');
520: fetch c_abr into l_cntr_clf;
521: close c_abr;
530: close c_abr_temp;
531: --
532: end if;
533: -- ???? 99999 ERROR if not found what to do?
534: hr_utility.set_location ('Cntr Comp level factor id = '
535: || l_cntr_clf.comp_lvl_fctr_id, 20);
536: hr_utility.set_location ('Cntr Comp level name id = ' || l_cntr_clf.name, 22);
537: open c_abr(p_effective_date, 'PRD');
538: fetch c_abr into l_distr_clf;
532: end if;
533: -- ???? 99999 ERROR if not found what to do?
534: hr_utility.set_location ('Cntr Comp level factor id = '
535: || l_cntr_clf.comp_lvl_fctr_id, 20);
536: hr_utility.set_location ('Cntr Comp level name id = ' || l_cntr_clf.name, 22);
537: open c_abr(p_effective_date, 'PRD');
538: fetch c_abr into l_distr_clf;
539: close c_abr;
540: hr_utility.set_location ('Distr Comp level factor id = '
536: hr_utility.set_location ('Cntr Comp level name id = ' || l_cntr_clf.name, 22);
537: open c_abr(p_effective_date, 'PRD');
538: fetch c_abr into l_distr_clf;
539: close c_abr;
540: hr_utility.set_location ('Distr Comp level factor id = '
541: || l_distr_clf.comp_lvl_fctr_id, 20);
542: hr_utility.set_location ('distr Comp level name id = ' || l_distr_clf.name, 22);
543: --
544: -- ???? 99999 ERROR if not found what to do?
538: fetch c_abr into l_distr_clf;
539: close c_abr;
540: hr_utility.set_location ('Distr Comp level factor id = '
541: || l_distr_clf.comp_lvl_fctr_id, 20);
542: hr_utility.set_location ('distr Comp level name id = ' || l_distr_clf.name, 22);
543: --
544: -- ???? 99999 ERROR if not found what to do?
545: --
546: --
555: l_per_cntr_val := 0;
556: l_per_distr_val := 0;
557: l_per_frfd_val := 0;
558: --
559: hr_utility.set_location ('process person_id : '||
560: to_char(l_person_rec.person_id),30);
561: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
562: fnd_message.set_token('PROC','ben_person_object');
563: ben_person_object.get_object(p_person_id => l_person_rec.person_id,
562: fnd_message.set_token('PROC','ben_person_object');
563: ben_person_object.get_object(p_person_id => l_person_rec.person_id,
564: p_rec => l_per_rec);
565:
566: hr_utility.set_location ('process det cd ' || l_pl_subj_frfs.frfs_cntr_det_cd,30) ;
567: hr_utility.set_location ('process src cd ' || l_cntr_clf.comp_src_cd,30) ;
568:
569: if l_pl_subj_frfs.frfs_cntr_det_cd = 'USECLF' then
570: --
563: ben_person_object.get_object(p_person_id => l_person_rec.person_id,
564: p_rec => l_per_rec);
565:
566: hr_utility.set_location ('process det cd ' || l_pl_subj_frfs.frfs_cntr_det_cd,30) ;
567: hr_utility.set_location ('process src cd ' || l_cntr_clf.comp_src_cd,30) ;
568:
569: if l_pl_subj_frfs.frfs_cntr_det_cd = 'USECLF' then
570: --
571: if l_cntr_clf.comp_src_cd = 'BNFTBALTYP' THEN
585: fetch c_asg into l_assignment_id;
586: close c_asg;
587: IF l_assignment_id IS NULL THEN
588: --
589: hr_utility.set_location (' employee failed ' || l_assignment_id , 30) ;
590: open c_asg('B',l_person_rec.person_id);
591: fetch c_asg into l_assignment_id;
592: close c_asg;
593: --
594: -- 9999 Error out if assignment is not found for person.
595: --
596: END IF;
597: --
598: hr_utility.set_location (' assignent ' || l_assignment_id , 30) ;
599:
600: ben_derive_part_and_rate_facts.set_taxunit_context
601: (p_person_id => l_person_rec.person_id
602: ,p_business_group_id => p_business_group_id
634: pay_balance_pkg.get_value(l_cntr_clf.defined_balance_id
635: ,l_assignment_id
636: ,p_effective_date); -- 9999 should it be based on comp_lvl_det_cd
637: */
638: hr_utility.set_location (' value of defined ' || l_per_cntr_val , 30) ;
639: --
640: end if;
641: --
642: IF l_cntr_clf.rndg_cd IS NOT NULL
742: p_effective_date,
743: l_start_date, l_end_date );
744: fetch c_rmbrq_total into l_per_distr_val;
745: close c_rmbrq_total;
746: hr_utility.set_location(' in USERMBQ ' , 99);
747: hr_utility.set_location(' USERMBQ value '|| l_per_distr_val , 99);
748: --
749: --
750: end if;
743: l_start_date, l_end_date );
744: fetch c_rmbrq_total into l_per_distr_val;
745: close c_rmbrq_total;
746: hr_utility.set_location(' in USERMBQ ' , 99);
747: hr_utility.set_location(' USERMBQ value '|| l_per_distr_val , 99);
748: --
749: --
750: end if;
751: --
748: --
749: --
750: end if;
751: --
752: hr_utility.set_location(' det cd '|| l_pl_subj_frfs.frfs_distr_det_cd , 99);
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
749: --
750: end if;
751: --
752: hr_utility.set_location(' det cd '|| l_pl_subj_frfs.frfs_distr_det_cd , 99);
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
757: hr_utility.set_location(' effective date ' || p_effective_date , 99);
750: end if;
751: --
752: hr_utility.set_location(' det cd '|| l_pl_subj_frfs.frfs_distr_det_cd , 99);
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
757: hr_utility.set_location(' effective date ' || p_effective_date , 99);
758:
751: --
752: hr_utility.set_location(' det cd '|| l_pl_subj_frfs.frfs_distr_det_cd , 99);
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
757: hr_utility.set_location(' effective date ' || p_effective_date , 99);
758:
759:
752: hr_utility.set_location(' det cd '|| l_pl_subj_frfs.frfs_distr_det_cd , 99);
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
757: hr_utility.set_location(' effective date ' || p_effective_date , 99);
758:
759:
760: l_per_frfd_val := nvl(l_per_cntr_val, 0) - nvl(l_per_distr_val, 0) ;
753: hr_utility.set_location(' pl ' || p_pl_id , 99);
754: hr_utility.set_location(' person ' || l_person_rec.person_id , 99 );
755: hr_utility.set_location(' start date ' || l_start_date , 99 );
756: hr_utility.set_location(' end date ' || l_end_date , 99 );
757: hr_utility.set_location(' effective date ' || p_effective_date , 99);
758:
759:
760: l_per_frfd_val := nvl(l_per_cntr_val, 0) - nvl(l_per_distr_val, 0) ;
761: benutils.write(' Name : ' || l_per_rec.full_name);
762: benutils.write(' Total Contributed = ' || to_char(nvl(l_per_cntr_val, 0)) );
763: benutils.write(' Total Distributed = ' || to_char(nvl(l_per_distr_val, 0)) );
764: benutils.write(' Total Forfeited = ' || to_char(nvl(l_per_frfd_val, 0)) );
765: --
766: hr_utility.set_location(' Name : ' || l_per_rec.full_name, 9999);
767: hr_utility.set_location(' Total Contributed = '
768: || to_char(l_per_cntr_val) , 9999);
769: hr_utility.set_location(' Total Distributed = '
770: || to_char(l_per_distr_val) , 9999);
763: benutils.write(' Total Distributed = ' || to_char(nvl(l_per_distr_val, 0)) );
764: benutils.write(' Total Forfeited = ' || to_char(nvl(l_per_frfd_val, 0)) );
765: --
766: hr_utility.set_location(' Name : ' || l_per_rec.full_name, 9999);
767: hr_utility.set_location(' Total Contributed = '
768: || to_char(l_per_cntr_val) , 9999);
769: hr_utility.set_location(' Total Distributed = '
770: || to_char(l_per_distr_val) , 9999);
771: hr_utility.set_location(' Total Forfeited = '
765: --
766: hr_utility.set_location(' Name : ' || l_per_rec.full_name, 9999);
767: hr_utility.set_location(' Total Contributed = '
768: || to_char(l_per_cntr_val) , 9999);
769: hr_utility.set_location(' Total Distributed = '
770: || to_char(l_per_distr_val) , 9999);
771: hr_utility.set_location(' Total Forfeited = '
772: || to_char(l_per_frfd_val) , 9999);
773: -- 9999 if l_per_frfd_val is negative what to do?
767: hr_utility.set_location(' Total Contributed = '
768: || to_char(l_per_cntr_val) , 9999);
769: hr_utility.set_location(' Total Distributed = '
770: || to_char(l_per_distr_val) , 9999);
771: hr_utility.set_location(' Total Forfeited = '
772: || to_char(l_per_frfd_val) , 9999);
773: -- 9999 if l_per_frfd_val is negative what to do?
774: l_tot_pl_cntr_val := nvl(l_tot_pl_cntr_val, 0) + nvl(l_per_cntr_val, 0);
775: l_tot_pl_distr_val := nvl(l_tot_pl_distr_val, 0) + nvl(l_per_distr_val, 0);
811: benutils.write(' Total Contributed = ' || to_char(l_tot_pl_cntr_val) );
812: benutils.write(' Total Distributed = ' || to_char(l_tot_pl_distr_val) );
813: benutils.write(' Total Forfeited = ' || to_char(l_total_frfd_val) );
814: --
815: hr_utility.set_location(' Total Contributed = ' || to_char(l_tot_pl_cntr_val) , 9999);
816: hr_utility.set_location(' Total Distributed = ' || to_char(l_tot_pl_distr_val) , 9999);
817: hr_utility.set_location(' Total Forfeited = ' || to_char(l_total_frfd_val) , 9999);
818: --
819: -- write forfeiture for plan info to reporting table
812: benutils.write(' Total Distributed = ' || to_char(l_tot_pl_distr_val) );
813: benutils.write(' Total Forfeited = ' || to_char(l_total_frfd_val) );
814: --
815: hr_utility.set_location(' Total Contributed = ' || to_char(l_tot_pl_cntr_val) , 9999);
816: hr_utility.set_location(' Total Distributed = ' || to_char(l_tot_pl_distr_val) , 9999);
817: hr_utility.set_location(' Total Forfeited = ' || to_char(l_total_frfd_val) , 9999);
818: --
819: -- write forfeiture for plan info to reporting table
820: --
813: benutils.write(' Total Forfeited = ' || to_char(l_total_frfd_val) );
814: --
815: hr_utility.set_location(' Total Contributed = ' || to_char(l_tot_pl_cntr_val) , 9999);
816: hr_utility.set_location(' Total Distributed = ' || to_char(l_tot_pl_distr_val) , 9999);
817: hr_utility.set_location(' Total Forfeited = ' || to_char(l_total_frfd_val) , 9999);
818: --
819: -- write forfeiture for plan info to reporting table
820: --
821: g_rec.rep_typ_cd := 'FRPLVAL';
891: rollback to process_forfeitures;
892: --
893: end if;
894: --
895: hr_utility.set_location ('Leaving '||l_package,500);
896: --
897: exception
898: --
899: when others then
986: l_commit number;
987: --
988: Begin
989: --
990: hr_utility.set_location ('Entering '||l_proc,5);
991: --
992: /*
993: l_effective_date:=to_date(p_effective_date,'YYYY/MM/DD HH24:MI:SS');
994: l_effective_date:=to_date(to_char(trunc(l_effective_date),'DD/MM/RRRR'),'DD/MM/RRRR');
1070: -- 3) Put each row into the person cache.
1071: -- 4) Process the person cache
1072: -- 5) Go to number 1 again.
1073: --
1074: hr_utility.set_location('About to Loop for c_range_thread',38);
1075:
1076: Loop
1077: l_actn := 'Opening c_range thread and fetch range...';
1078: open c_range_thread;
1098: l_actn := 'Clearing g_cache_person_process cache...';
1099: g_cache_person_process.delete;
1100: open c_person_thread;
1101: l_record_number := 0;
1102: hr_utility.set_location('about to loop for c_person_thread',46);
1103: Loop
1104: --
1105: l_actn := 'Loading Plans data into g_cache_person_process cache...';
1106: --
1119: If l_record_number > 0 then
1120: --
1121: -- Process the rows from the person process cache (This is plan cache)
1122: --
1123: hr_utility.set_location('about to Loop thru forfeiture....',50);
1124: For l_cnt in 1..l_record_number loop
1125: Begin
1126: --
1127: process_forfeitures (
1156: --
1157: commit;
1158: --
1159: If (g_persons_errored > g_max_errors_allowed) then
1160: hr_utility.set_location ('Errors received exceeds max allowed',05);
1161: fnd_message.raise_error;
1162: End if;
1163: End;
1164: End loop;
1164: End loop;
1165: Else
1166: --
1167: l_actn := 'Erroring out nocopy since no plan/person is found in range...' ;
1168: hr_utility.set_location ('BEN_92452_PREM_NOT_IN_RNG',05); -- 999
1169: fnd_message.set_name('BEN','BEN_92452_PREM_NOT_IN_RNG');
1170: fnd_message.set_token('PROC', l_proc);
1171: fnd_message.raise_error;
1172: End if;
1174: -- 9999 Write only if requested by the user.
1175: benutils.write_table_and_file(p_table => TRUE, p_file => TRUE);
1176: End loop;
1177:
1178: hr_utility.set_location('End of loops',70);
1179: -- 9999 Write only if requested by the user.
1180: benutils.write_table_and_file(p_table => TRUE, p_file => TRUE);
1181: --
1182: l_actn := 'Calling Log_statistics...';
1182: l_actn := 'Calling Log_statistics...';
1183: ben_batch_utils.write_logfile(p_num_pers_processed => g_persons_processed
1184: ,p_num_pers_errored => g_persons_errored
1185: );
1186: hr_utility.set_location ('Leaving '||l_proc,70);
1187: Exception
1188: When others then
1189: ben_batch_utils.rpt_error(p_proc => l_proc
1190: ,p_last_actn => l_actn
1193: ben_batch_utils.write_logfile(p_num_pers_processed => g_persons_processed
1194: ,p_num_pers_errored => g_persons_errored
1195: );
1196: benutils.write_table_and_file(p_table => TRUE, p_file => TRUE);
1197: hr_utility.set_location ('HR_6153_ALL_PROCEDURE_FAIL',05);
1198: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
1199: fnd_message.set_token('PROCEDURE', l_proc);
1200: fnd_message.set_token('STEP',l_actn );
1201: fnd_message.raise_error;
1287: l_outputs ff_exec.outputs_t;
1288: l_return varchar2(30);
1289:
1290: Begin
1291: hr_utility.set_location ('Entering '||l_proc,10);
1292: hr_utility.set_location ('p_effective_date '||p_effective_date,10);
1293: /*
1294: l_effective_date:=to_date(p_effective_date,'YYYY/MM/DD HH24:MI:SS');
1295: l_effective_date:=to_date(to_char(trunc(l_effective_date),'DD/MM/RRRR'),'DD/MM/RRRR');
1288: l_return varchar2(30);
1289:
1290: Begin
1291: hr_utility.set_location ('Entering '||l_proc,10);
1292: hr_utility.set_location ('p_effective_date '||p_effective_date,10);
1293: /*
1294: l_effective_date:=to_date(p_effective_date,'YYYY/MM/DD HH24:MI:SS');
1295: l_effective_date:=to_date(to_char(trunc(l_effective_date),'DD/MM/RRRR'),'DD/MM/RRRR');
1296: */
1306: --
1307: l_benefit_action_id := p_benefit_action_id;
1308:
1309: If NOT(p_restart) then
1310: hr_utility.set_location('Not a Restart',14);
1311: --
1312: -- Now lets create person actions for all the people we are going to
1313: -- process in the Forfeiture Calculation run.
1314: --
1311: --
1312: -- Now lets create person actions for all the people we are going to
1313: -- process in the Forfeiture Calculation run.
1314: --
1315: hr_utility.set_location('l_effective_date ' || l_effective_date ,14);
1316: hr_utility.set_location('p_bg ' || p_business_group_id ,14);
1317: open c_pl_subj_frfs(p_effective_date => l_effective_date);
1318: l_person_cnt := 0;
1319: l_cnt := 0;
1312: -- Now lets create person actions for all the people we are going to
1313: -- process in the Forfeiture Calculation run.
1314: --
1315: hr_utility.set_location('l_effective_date ' || l_effective_date ,14);
1316: hr_utility.set_location('p_bg ' || p_business_group_id ,14);
1317: open c_pl_subj_frfs(p_effective_date => l_effective_date);
1318: l_person_cnt := 0;
1319: l_cnt := 0;
1320: l_actn := 'Loading person_actions table..';
1322: fetch c_pl_subj_frfs into l_pl_subj_frfs;
1323: Exit when c_pl_subj_frfs%notfound;
1324: l_cnt := l_cnt + 1;
1325: l_actn := 'Calling ben_batch_utils.comp_obj_selection_rule...';
1326: hr_utility.set_location('pl_id='||to_char(l_pl_subj_frfs.pl_id)||
1327: ' l_cnt='||to_char(l_cnt),18);
1328: --
1329: -- if comp_obj_selection_rule is pass, test rule.
1330: -- If the rule return 'N' then
1355: elsif p_pgm_id is not null and p_pgm_id <> l_pgm_id then
1356: rl_ret := 'N';
1357: elsif rl_ret = 'Y' and p_comp_selection_rule_id is not null then
1358: l_actn := 'found a comp object rule...';
1359: hr_utility.set_location('found a comp object rule',22);
1360: l_outputs := benutils.formula
1361: (p_formula_id => p_comp_selection_rule_id
1362: ,p_effective_date => l_effective_date
1363: ,p_pgm_id => l_pgm_id
1387: --
1388: -- Store pl_id into person actions table.
1389: --
1390: If ( not skip) then
1391: hr_utility.set_location('not skip...Inserting Ben_person_actions',28);
1392: l_actn := 'Inserting Ben_person_actions...';
1393: select ben_person_actions_s.nextval
1394: into l_person_action_id
1395: from sys.dual;
1423: --
1424: -- Create a range of data to be multithreaded.
1425: --
1426: l_actn := 'Inserting Ben_batch_ranges.......';
1427: hr_utility.set_location('Inserting Ben_batch_ranges',32);
1428: -- Select next sequence number for the range
1429: --
1430: select ben_batch_ranges_s.nextval
1431: into l_range_id
1454: End if;
1455: End loop;
1456: Close c_pl_subj_frfs;
1457: --
1458: hr_utility.set_location('l_num_row='||to_char(l_num_row),34);
1459: If (l_num_row <> 0) then
1460: l_actn := 'Inserting Final Ben_batch_ranges...';
1461: hr_utility.set_location('Inserting Final Ben_batch_ranges',38);
1462:
1457: --
1458: hr_utility.set_location('l_num_row='||to_char(l_num_row),34);
1459: If (l_num_row <> 0) then
1460: l_actn := 'Inserting Final Ben_batch_ranges...';
1461: hr_utility.set_location('Inserting Final Ben_batch_ranges',38);
1462:
1463: select ben_batch_ranges_s.nextval
1464: into l_range_id
1465: from sys.dual;
1480: 1);
1481: l_num_range := l_num_range + 1;
1482: End if;
1483: Else
1484: hr_utility.set_location('This is a RESTART',42);
1485: l_actn := 'Calling Ben_batch_utils.create_restart_person_actions...';
1486: -- 9999 What this procedure does
1487: Ben_batch_utils.create_restart_person_actions
1488: (p_benefit_action_id => p_benefit_action_id
1497: commit;
1498: --
1499: -- Now to multithread the code.
1500: --
1501: hr_utility.set_location('l_num_range '||to_char(l_num_range),46);
1502: If l_num_range > 1 then
1503: For l_count in 1..least(p_threads,l_num_range)-1 loop
1504: --
1505: l_actn := 'Submitting job to con-current manager...';
1502: If l_num_range > 1 then
1503: For l_count in 1..least(p_threads,l_num_range)-1 loop
1504: --
1505: l_actn := 'Submitting job to con-current manager...';
1506: hr_utility.set_location('Submitting BENFRCON to con-current manager ',50);
1507: -- Conncurrent manage needs the effective date in a varchar form.
1508: l_request_id := fnd_request.submit_request
1509: (application => 'BEN'
1510: ,program => 'BENFRCOM'
1524: := l_request_id;
1525: End loop;
1526: Elsif (l_num_range = 0 ) then
1527: l_actn := 'Calling Ben_batch_utils.print_parameters...';
1528: hr_utility.set_location('Calling Ben_batch_utils.print_parameters ',56);
1529: -- 9999 Add all other required params.
1530: Ben_batch_utils.print_parameters
1531: (p_thread_id => 99
1532: ,p_benefit_action_id => l_benefit_action_id
1561:
1562: if (l_num_range <> 0 ) then
1563: -- All other parameters.
1564: l_actn := 'Calling do_multithread...';
1565: hr_utility.set_location('Calling do_multithread ',60);
1566: do_multithread(errbuf => errbuf
1567: ,retcode => retcode
1568: ,p_validate => p_validate
1569: ,p_benefit_action_id => l_benefit_action_id
1572: ,p_business_group_id => p_business_group_id
1573: );
1574: l_actn := 'Calling ben_batch_utils.check_all_slaves_finished...';
1575:
1576: hr_utility.set_location('Calling ben_batch_utils.check_all_slaves_finished ',64);
1577: ben_batch_utils.check_all_slaves_finished(p_rpt_flag => TRUE);
1578: ben_batch_utils.end_process(p_benefit_action_id => l_benefit_action_id
1579: ,p_person_selected => l_person_cnt
1580: ,p_business_group_id => p_business_group_id
1579: ,p_person_selected => l_person_cnt
1580: ,p_business_group_id => p_business_group_id
1581: ,p_non_person_cd => 'FRFS'); -- used in benrptut
1582: end if;
1583: hr_utility.set_location ('Leaving '||l_proc,99);
1584: --
1585: Exception
1586: when others then
1587: ben_batch_utils.rpt_error(p_proc => l_proc
1598: ,p_person_selected => l_person_cnt
1599: ,p_business_group_id => p_business_group_id
1600: ) ;
1601: End if;
1602: hr_utility.set_location ('HR_6153_ALL_PROCEDURE_FAIL',25);
1603: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
1604: fnd_message.set_token('PROCEDURE', l_proc);
1605: fnd_message.set_token('STEP', l_actn );
1606: fnd_message.raise_error;
1656: l_retcode number;
1657: l_restart boolean;
1658:
1659: Begin
1660: hr_utility.set_location ('Entering '||l_proc,10);
1661: /*
1662: l_effective_date:=to_date(p_effective_date,'YYYY/MM/DD HH24:MI:SS');
1663: l_effective_date:=to_date(to_char(trunc(l_effective_date),'DD/MM/RRRR'),'DD/MM/RRRR');
1664: */
1663: l_effective_date:=to_date(to_char(trunc(l_effective_date),'DD/MM/RRRR'),'DD/MM/RRRR');
1664: */
1665: l_effective_date := trunc(fnd_date.canonical_to_date(p_effective_date));
1666: --
1667: hr_utility.set_location ('p_effective_date '||p_effective_date,999);
1668: hr_utility.set_location ('l_effective_date '||l_effective_date,999);
1669: --
1670: --
1671: -- Put row in fnd_sessions
1664: */
1665: l_effective_date := trunc(fnd_date.canonical_to_date(p_effective_date));
1666: --
1667: hr_utility.set_location ('p_effective_date '||p_effective_date,999);
1668: hr_utility.set_location ('l_effective_date '||l_effective_date,999);
1669: --
1670: --
1671: -- Put row in fnd_sessions
1672: --
1682: -- Check that all the mandatory input parameters
1683: -- such as p_business_group_id, p_mode, p_effective_date
1684: --
1685: l_actn := 'Checking arguments...';
1686: hr_utility.set_location('Checking arguments',12);
1687: hr_api.mandatory_arg_error(p_api_name => g_package
1688: ,p_argument => 'p_business_group_id'
1689: ,p_argument_value => p_business_group_id
1690: );
1711: -- we are doing a restart.
1712: --
1713: If(p_benefit_action_id is null) then
1714:
1715: hr_utility.set_location('p_benefit_action_id is null',14);
1716: l_restart := FALSE;
1717:
1718: ben_benefit_actions_api.create_benefit_actions
1719: (p_validate => false
1756: --
1757: -- Delete/clear ranges from ben_batch_ranges table
1758: --
1759: l_actn := 'Delete rows from ben_batch_ranges..';
1760: hr_utility.set_location('Delete rows from ben_batch_ranges',16);
1761:
1762: Delete from ben_batch_ranges
1763: Where benefit_action_id = l_benefit_action_id;
1764: --
1765: -- Future enhancements for individual person processing goes here.
1766: --
1767: Else
1768: --
1769: hr_utility.set_location('p_benefit_action_id is not null',30);
1770: l_restart := TRUE;
1771: l_benefit_action_id := p_benefit_action_id;
1772: l_actn := 'Calling Ben_batch_utils.create_restart_person_actions...';
1773: Ben_batch_utils.create_restart_person_actions
1820: ben_batch_utils.end_process(p_benefit_action_id => l_benefit_action_id
1821: ,p_person_selected => l_person_cnt
1822: ,p_business_group_id => p_business_group_id);
1823: */
1824: hr_utility.set_location ('Leaving '||l_proc,70);
1825: --
1826: Exception
1827: when others then
1828: ben_batch_utils.rpt_error(p_proc => l_proc
1841: ,p_business_group_id => p_business_group_id
1842: ) ;
1843: End if;
1844: */
1845: hr_utility.set_location ('HR_6153_ALL_PROCEDURE_FAIL',689);
1846: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
1847: fnd_message.set_token('PROCEDURE', l_proc);
1848: fnd_message.set_token('STEP', l_actn );
1849: fnd_message.raise_error;