[Home] [Help]
227: l_id Number;
228: l_OVN1 varchar2(240);
229: l_actn_cd varchar2(30);
230: Begin
231: hr_utility.set_location ('Entering '||l_proc,05);
232: l_actn := 'Starting...';
233: If (p_error) then
234: If (p_audit_log = 'Y') then
235: l_category := 'ERROR_C';
324: End loop;
325: End if;
326: End loop;
327: End if;
328: hr_utility.set_location ('Leaving '||l_proc,10);
329: Exception
330: When others then
331: ben_batch_utils.rpt_error(p_proc => l_proc
332: ,p_last_actn => l_actn
346: l_proc varchar2(80) := g_package||'.submit_all_reports';
347: l_actn varchar2(80);
348: l_request_id number;
349: Begin
350: hr_utility.set_location ('Entering '||l_proc,05);
351: If fnd_global.conc_request_id <> -1 then
352: l_actn := 'Calling ben_batch_utils.batch_report (BENDFAUD)...';
353: If (p_audit_log = 'Y') then
354: ben_batch_utils.batch_report
379: ,p_subtitle =>
380: 'ERROR DETAIL BY PERSON'
381: );
382: End if;
383: hr_utility.set_location ('Leaving '||l_proc,10);
384: Exception
385: When others then
386: ben_batch_utils.rpt_error(p_proc => l_proc
387: ,p_last_actn => l_actn
456: l_commit number;
457: --
458: Begin
459: --
460: hr_utility.set_location ('Entering '||l_proc,05);
461: --
462: l_effective_date := fnd_date.canonical_to_date(p_effective_date);
463: --
464: -- Put row in fnd_sessions
606: l_actn := 'Calling Log_beneadeb_statistics...';
607: ben_batch_utils.write_logfile(p_num_pers_processed => g_persons_procd
608: ,p_num_pers_errored => g_persons_errored
609: );
610: hr_utility.set_location ('Leaving '||l_proc,70);
611: Exception
612: When others then
613: ben_batch_utils.rpt_error(p_proc => l_proc
614: ,p_last_actn => l_actn
666: l_errbuf varchar2(80);
667: l_retcode number;
668: l_actn varchar2(80);
669: Begin
670: hr_utility.set_location ('Entering '||l_proc,10);
671: --
672: -- get the parameters for a previous run and do a restart
673: --
674: l_actn := 'Getting parameter data...';
705: ,p_payroll_id => l_parameters.payroll_id
706: ,p_debug_messages => l_parameters.debug_messages_flag
707: ,p_audit_log => l_parameters.audit_log_flag
708: );
709: hr_utility.set_location ('Leaving '||l_proc,70);
710: Exception
711: when others then
712: ben_batch_utils.rpt_error(p_proc => l_proc
713: ,p_last_actn => l_actn
891: l_silent_error exception;
892: --
893: Begin
894: --
895: hr_utility.set_location ('Entering '||l_proc,10);
896: -- Bug 5857493
897: if p_audit_log ='Y' then
898: ben_batch_utils.g_audit_flag := true;
899: else
1253: --
1254: l_actn := 'Calling submit_all_reports...';
1255: submit_all_reports(p_audit_log => p_audit_log);
1256: --
1257: hr_utility.set_location ('Leaving '||l_proc,70);
1258: --
1259: Exception
1260: --
1261: when l_silent_error then
1463: l_not_ovridn boolean := true ;
1464: l_global_pil_rec ben_global_enrt.g_global_pil_rec_type; -- 4684991
1465:
1466: Begin
1467: hr_utility.set_location ('Entering '|| l_proc , 5);
1468:
1469: l_actn := 'Openning c_dflt_mn_epe cursor...';
1470: hr_utility.set_location (l_actn , 10);
1471: p_susp_flag := FALSE;
1466: Begin
1467: hr_utility.set_location ('Entering '|| l_proc , 5);
1468:
1469: l_actn := 'Openning c_dflt_mn_epe cursor...';
1470: hr_utility.set_location (l_actn , 10);
1471: p_susp_flag := FALSE;
1472:
1473: -- Bug - 4684991 - Fetch pil details
1474: ben_global_enrt.get_pil
1480: --
1481: --
1482:
1483: For l_rec in c_dflt_mn_epe loop
1484: --hr_utility.set_location (l_actn , 11);
1485: If (l_prev_pgm_id = -999999) then
1486: NULL;
1487: Elsif (l_prev_pgm_id <> l_rec.pgm_id) then
1488: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1488: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1489: ,c_pl_id => l_prev_pl_id ) loop
1490: l_epe_cnt := l_epe_cnt + 1;
1491: l_epe(l_epe_cnt) := l_rec1;
1492: --hr_utility.set_location (l_actn||' First ', 12 );
1493: End loop;
1494: Elsif (l_prev_pl_id <> l_rec.pl_id) then
1495: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1496: ,c_pl_id => l_prev_pl_id ) loop
1495: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1496: ,c_pl_id => l_prev_pl_id ) loop
1497: l_epe_cnt := l_epe_cnt + 1;
1498: l_epe(l_epe_cnt) := l_rec1;
1499: --hr_utility.set_location (l_actn||' Second ', 12 );
1500: End loop;
1501: End if;
1502: --hr_utility.set_location (l_actn||'Outside ', 13);
1503: l_epe_cnt := l_epe_cnt + 1;
1498: l_epe(l_epe_cnt) := l_rec1;
1499: --hr_utility.set_location (l_actn||' Second ', 12 );
1500: End loop;
1501: End if;
1502: --hr_utility.set_location (l_actn||'Outside ', 13);
1503: l_epe_cnt := l_epe_cnt + 1;
1504: l_epe(l_epe_cnt) := l_rec;
1505: l_prev_pgm_id := l_rec.pgm_id;
1506: l_prev_pl_id := l_rec.pl_id;
1505: l_prev_pgm_id := l_rec.pgm_id;
1506: l_prev_pl_id := l_rec.pl_id;
1507: End loop;
1508: --
1509: --hr_utility.set_location ('Last loop '||l_actn , 15);
1510: -- Last loop
1511: --
1512: If l_epe_cnt > 0 then
1513: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1513: For l_rec1 in c_dflt_mn_epe_mndtry(c_pgm_id => l_prev_pgm_id
1514: ,c_pl_id => l_prev_pl_id ) loop
1515: l_epe_cnt := l_epe_cnt + 1;
1516: l_epe(l_epe_cnt) := l_rec1;
1517: --hr_utility.set_location ('l_rec1 ' , 16);
1518: End loop;
1519: End if;
1520: --
1521: --hr_utility.set_location ('Before '||l_actn , 17);
1517: --hr_utility.set_location ('l_rec1 ' , 16);
1518: End loop;
1519: End if;
1520: --
1521: --hr_utility.set_location ('Before '||l_actn , 17);
1522: For i in 1..l_epe_cnt Loop
1523: --
1524: l_not_ovridn := true ;
1525: --
1524: l_not_ovridn := true ;
1525: --
1526: If (l_epe(i).prtt_enrt_rslt_id is not NULL) then
1527: l_actn := 'Getting enrollment data from c_pen cursor...';
1528: hr_utility.set_location (l_actn , 18);
1529: open c_pen(l_epe(i).prtt_enrt_rslt_id);
1530: fetch c_pen into l_pen;
1531: If (c_pen%notfound) then
1532: Close c_pen;
1539: fnd_message.raise_error;
1540: End if;
1541: close c_pen;
1542: --
1543: hr_utility.set_location (' lf_evt_ocrd_dt '|| to_char(l_global_pil_rec.lf_evt_ocrd_dt) , 5);
1544: --
1545: -- 4684991 - Use lf_evt_ocrd_dt instead of p_effective_date
1546: if l_pen.enrt_ovridn_flag = 'Y'
1547: AND nvl(l_pen.enrt_ovrid_thru_dt,hr_api.g_eot) >
1568: l_not_ovridn then -- added flag condition so that if pending flag=Y
1569: -- election is not made
1570:
1571: l_actn := 'Openning c_bnft cursor for benefit...';
1572: hr_utility.set_location(l_actn , 20);
1573: l_bnft_id:=null;
1574: l_bnft_amt:=null;
1575: l_dflt_bnft_amt:=null;
1576: l_entr_flag:=null;
1576: l_entr_flag:=null;
1577: open c_bnft(l_epe(i).elig_per_elctbl_chc_id);
1578:
1579: fetch c_bnft into l_bnft_id, l_bnft_amt, l_dflt_bnft_amt, l_entr_flag,l_cvg_mlt_cd ;
1580: --hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,21 );
1581: --hr_utility.set_location(' l_dflt_bnft_amt '||l_dflt_bnft_amt , 22);
1582: --hr_utility.set_location(' l_entr_flag '||l_entr_flag , 23);
1583: close c_bnft;
1584: -- if the benefit amount is entered at enrollment, use the default
1577: open c_bnft(l_epe(i).elig_per_elctbl_chc_id);
1578:
1579: fetch c_bnft into l_bnft_id, l_bnft_amt, l_dflt_bnft_amt, l_entr_flag,l_cvg_mlt_cd ;
1580: --hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,21 );
1581: --hr_utility.set_location(' l_dflt_bnft_amt '||l_dflt_bnft_amt , 22);
1582: --hr_utility.set_location(' l_entr_flag '||l_entr_flag , 23);
1583: close c_bnft;
1584: -- if the benefit amount is entered at enrollment, use the default
1585: -- benefit value instead of the val field.
1578:
1579: fetch c_bnft into l_bnft_id, l_bnft_amt, l_dflt_bnft_amt, l_entr_flag,l_cvg_mlt_cd ;
1580: --hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,21 );
1581: --hr_utility.set_location(' l_dflt_bnft_amt '||l_dflt_bnft_amt , 22);
1582: --hr_utility.set_location(' l_entr_flag '||l_entr_flag , 23);
1583: close c_bnft;
1584: -- if the benefit amount is entered at enrollment, use the default
1585: -- benefit value instead of the val field.
1586: if l_entr_flag = 'Y' or l_cvg_mlt_cd = 'SAAEAR' then
1599: l_tot_rt := l_tot_rt + 1;
1600: l_rt(l_tot_rt).enrt_rt_id := Crec.enrt_rt_id;
1601: l_rt(l_tot_rt).default_val := Crec.default_val;
1602: l_rt(l_tot_rt).ann_dflt_val := Crec.ann_dflt_val;
1603: --hr_utility.set_location('l_rt(l_tot_rt).ann_dflt_val '||l_rt(l_tot_rt).ann_dflt_val ,26);
1604: --hr_utility.set_location('Crec.dflt_val '||l_rt(l_tot_rt).dflt_val , 27);
1605: End loop;
1606: l_suspend_flag := 'N';
1607: If (nvl(l_epe(i).actn_cd,'XXX') = 'UPD') then
1600: l_rt(l_tot_rt).enrt_rt_id := Crec.enrt_rt_id;
1601: l_rt(l_tot_rt).default_val := Crec.default_val;
1602: l_rt(l_tot_rt).ann_dflt_val := Crec.ann_dflt_val;
1603: --hr_utility.set_location('l_rt(l_tot_rt).ann_dflt_val '||l_rt(l_tot_rt).ann_dflt_val ,26);
1604: --hr_utility.set_location('Crec.dflt_val '||l_rt(l_tot_rt).dflt_val , 27);
1605: End loop;
1606: l_suspend_flag := 'N';
1607: If (nvl(l_epe(i).actn_cd,'XXX') = 'UPD') then
1608: If nvl(l_bnft_amt,0) = nvl(l_pen.bnft_amt,0) then
1612: --
1613: l_actn := 'Calling ben_election_information.election_information...';
1614: --
1615: /*
1616: hr_utility.set_location(l_actn , 30);
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1613: l_actn := 'Calling ben_election_information.election_information...';
1614: --
1615: /*
1616: hr_utility.set_location(l_actn , 30);
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1621: hr_utility.set_location(' p_Ann_rt_val1 '|| l_rt(1).ann_dflt_val , 31);
1614: --
1615: /*
1616: hr_utility.set_location(l_actn , 30);
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1621: hr_utility.set_location(' p_Ann_rt_val1 '|| l_rt(1).ann_dflt_val , 31);
1622: */
1615: /*
1616: hr_utility.set_location(l_actn , 30);
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1621: hr_utility.set_location(' p_Ann_rt_val1 '|| l_rt(1).ann_dflt_val , 31);
1622: */
1623: --
1616: hr_utility.set_location(l_actn , 30);
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1621: hr_utility.set_location(' p_Ann_rt_val1 '|| l_rt(1).ann_dflt_val , 31);
1622: */
1623: --
1624: Ben_election_information.election_information
1617: hr_utility.set_location(' l_bnft_id '||l_bnft_id ,30);
1618: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt ,30);
1619: hr_utility.set_location(' p_enrt_rt_id1 '||l_rt(1).enrt_rt_id ,30);
1620: hr_utility.set_location(' l_rt(1).dflt_val '||l_rt(1).dflt_val ,31);
1621: hr_utility.set_location(' p_Ann_rt_val1 '|| l_rt(1).ann_dflt_val , 31);
1622: */
1623: --
1624: Ben_election_information.election_information
1625: (p_elig_per_elctbl_chc_id => l_epe(i).elig_per_elctbl_chc_id
1816: ,p_effective_date => p_effective_date
1817: ,p_validate => FALSE
1818: ,p_cls_enrt_flag => p_cls_enrt_flag
1819: );
1820: hr_utility.set_location ('Leaving '|| l_proc,10);
1821: Exception
1822: when app_exception.application_exception then -- 6027345
1823: fnd_message.raise_error; -- 6027345
1824: When others then
1834: );
1835: raise ben_batch_utils.g_record_error ;
1836: -- Added for Bug 2370264
1837: else
1838: hr_utility.set_location ('Error in Default_Comp_obj : '|| sqlerrm , 87);
1839: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
1840: fnd_message.set_token('2',substr(sqlerrm,1,500)); -- 4695708
1841: fnd_message.raise_error;
1842: end if;
1922: l_ler_id number;
1923: l_dflt_enrt_date date;
1924: --
1925: begin
1926: -- hr_utility.trace_on(NULL,'TRC');
1927: hr_utility.set_location ('Entering '|| l_proc,10);
1928: l_actn := 'Initializing...';
1929: Savepoint process_default_enrt_savepoint;
1930: --
1923: l_dflt_enrt_date date;
1924: --
1925: begin
1926: -- hr_utility.trace_on(NULL,'TRC');
1927: hr_utility.set_location ('Entering '|| l_proc,10);
1928: l_actn := 'Initializing...';
1929: Savepoint process_default_enrt_savepoint;
1930: --
1931: -- Cache person data and write personal data into cache.
1962: THEN
1963: l_dflt_enrt_date := p_effective_date;
1964: END IF;
1965: --
1966: hr_utility.set_location ('l_Dflt_enrt_Date = ' || l_dflt_enrt_date, 9999);
1967: --
1968: Default_comp_obj
1969: (p_validate => FALSE
1970: ,p_per_in_ler_id => l_rec.per_in_ler_id
2055: benutils.write(p_rec => g_rec);
2056: --
2057: g_persons_procd := g_persons_procd + 1;
2058: benutils.write_table_and_file(p_table => TRUE, p_file => TRUE);
2059: hr_utility.set_location ('Leaving '|| l_proc,10);
2060: Exception
2061: When others then
2062: rollback to process_default_enrt_savepoint;
2063: g_persons_errored := g_persons_errored + 1;
2112: l_commit number;
2113: begin
2114: --
2115: fnd_msg_pub.initialize;
2116: hr_utility.set_location ('Entering '|| l_proc,10);
2117:
2118: if UPPER(p_validate) = 'TRUE' then
2119: l_validate := true;
2120: else
2157: p_susp_flag := 'TRUE';
2158: else
2159: p_susp_flag := 'FALSE';
2160: end if;
2161: hr_utility.set_location ('Leaving '|| l_proc,20);
2162:
2163: exception
2164: --
2165: when app_exception.application_exception then --Bug 4387247
2162:
2163: exception
2164: --
2165: when app_exception.application_exception then --Bug 4387247
2166: hr_utility.set_location ('Application Error in Default_Comp_obj_w.', 88);
2167: fnd_msg_pub.add;
2168: when others then
2169: hr_utility.set_location ('Other Error in Default_Comp_obj_w : '|| sqlerrm , 89);
2170: --Bug 4387247
2165: when app_exception.application_exception then --Bug 4387247
2166: hr_utility.set_location ('Application Error in Default_Comp_obj_w.', 88);
2167: fnd_msg_pub.add;
2168: when others then
2169: hr_utility.set_location ('Other Error in Default_Comp_obj_w : '|| sqlerrm , 89);
2170: --Bug 4387247
2171: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
2172: fnd_message.set_token('2',substr(sqlerrm,1,200));
2173: fnd_msg_pub.add;