[Home] [Help]
1: PACKAGE BODY PQP_NL_PENSION_EXTRACTS AS
2: /* $Header: pqpnlpext.pkb 120.140.12020000.2 2012/07/05 12:16:28 amnaraya ship $ */
3:
4: g_proc_name VARCHAR2(200) :='PQP_NL_Pension_Extracts.';
5: g_debug BOOLEAN := hr_utility.debug_enabled;
6:
7: -- =============================================================================
8: -- Cursor to get the extract record id's for extract definition id
9: -- =============================================================================
1273: l_proc_name Varchar2(150) := g_proc_name ||'Pension_Extract_Process';
1274:
1275: BEGIN
1276: IF g_debug THEN
1277: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
1278: END If;
1279:
1280: g_conc_request_id := Fnd_Global.conc_request_id;
1281:
1294: -- Insert into pay_us_rpt_totals so that we can refer to these parameters
1295: -- when we call the criteria formula for the pension extract.
1296: --
1297: IF g_debug THEN
1298: hr_utility.set_location('inserting into rpt totals : '||p_business_group_id,20);
1299: END IF;
1300:
1301: INSERT INTO pay_us_rpt_totals
1302: (session_id -- Session id
1339: -- Call the actual benefit extract process with the effective date as the
1340: -- extract end date along with the ext def. id and business group id.
1341: --
1342: IF g_debug THEN
1343: Hr_Utility.set_location('..Calling Benefit Ext Process'||l_proc_name, 6);
1344: END IF;
1345:
1346: Ben_Ext_Thread.process
1347: (errbuf => l_errbuff,
1351: p_effective_date => p_end_date,
1352: p_business_group_id => p_business_group_id);
1353:
1354: IF g_debug THEN
1355: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
1356: END IF;
1357:
1358: EXCEPTION
1359: WHEN Others THEN
1356: END IF;
1357:
1358: EXCEPTION
1359: WHEN Others THEN
1360: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
1361: RAISE;
1362: END Pension_Extract_Process;
1363:
1364: -- ============================================================================
1389: l_ext_dtl_rec_nc ben_ext_rslt_dtl%ROWTYPE;
1390: BEGIN
1391:
1392: IF g_debug THEN
1393: Hr_Utility.set_location('Entering :'||l_proc_name, 5);
1394: END IF;
1395: -- nocopy changes
1396: l_ext_dtl_rec_nc := p_ext_dtl_rec;
1397:
1562: p_ext_dtl_rec.val_75 := p_data_element_value;
1563: END IF;
1564:
1565: IF g_debug THEN
1566: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
1567: END IF;
1568:
1569: RETURN;
1570: EXCEPTION
1585:
1586: BEGIN -- ins_rslt_dtl
1587:
1588: IF g_debug THEN
1589: Hr_Utility.set_location('Entering :'||l_proc_name, 5);
1590: END IF;
1591: -- nocopy changes
1592: l_dtl_rec_nc := p_dtl_rec;
1593: -- Get the next sequence NUMBER to insert a record into the table
1788: ,p_dtl_rec.RCRD_SEQ_NUM
1789: );
1790:
1791: IF g_debug THEN
1792: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
1793: END IF;
1794:
1795: RETURN;
1796:
1795: RETURN;
1796:
1797: EXCEPTION
1798: WHEN Others THEN
1799: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
1800: p_dtl_rec := l_dtl_rec_nc;
1801: RAISE;
1802: END Ins_Rslt_Dtl;
1803:
1964:
1965: BEGIN
1966:
1967: IF g_debug THEN
1968: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
1969: END IF;
1970:
1971: OPEN c_get_org_id;
1972: FETCH c_get_org_id INTO l_org_id,l_bgid;
1973: CLOSE c_get_org_id;
1974:
1975:
1976: IF g_debug THEN
1977: Hr_Utility.set_location('p_ext_dtl_rcd_id: '||p_ext_dtl_rcd_id, 5);
1978: Hr_Utility.set_location('p_assignment_id: '||p_assignment_id, 5);
1979: END IF;
1980:
1981: FOR i IN csr_rule_ele( c_ext_rcd_id => p_ext_dtl_rcd_id)
1974:
1975:
1976: IF g_debug THEN
1977: Hr_Utility.set_location('p_ext_dtl_rcd_id: '||p_ext_dtl_rcd_id, 5);
1978: Hr_Utility.set_location('p_assignment_id: '||p_assignment_id, 5);
1979: END IF;
1980:
1981: FOR i IN csr_rule_ele( c_ext_rcd_id => p_ext_dtl_rcd_id)
1982: LOOP
1985: FETCH csr_ff_type INTO l_foumula_type_id;
1986: CLOSE csr_ff_type;
1987:
1988: IF g_debug THEN
1989: Hr_Utility.set_location('l_foumula_type_id: '||l_foumula_type_id, 5);
1990: END IF;
1991:
1992: IF l_foumula_type_id = -413 THEN -- person level rule
1993: l_outputs := Benutils.formula
2007: IF i.frmt_mask_lookup_cd IS NOT NULL AND
2008: l_ff_value IS NOT NULL THEN
2009: IF Substr(i.frmt_mask_lookup_cd,1,1) = 'N' THEN
2010: IF g_debug THEN
2011: Hr_Utility.set_location('..Applying NUMBER format mask
2012: :ben_ext_fmt.apply_format_mask',50);
2013: END IF;
2014: l_ff_value_fmt := Ben_Ext_Fmt.apply_format_mask(To_Number(l_ff_value), i.frmt_mask_cd);
2015: l_ff_value := l_ff_value_fmt;
2014: l_ff_value_fmt := Ben_Ext_Fmt.apply_format_mask(To_Number(l_ff_value), i.frmt_mask_cd);
2015: l_ff_value := l_ff_value_fmt;
2016: ELSIF Substr(i.frmt_mask_lookup_cd,1,1) = 'D' THEN
2017: IF g_debug THEN
2018: Hr_Utility.set_location('..Applying Date format mask
2019: :ben_ext_fmt.apply_format_mask',55);
2020: END IF;
2021: l_ff_value_fmt := Ben_Ext_Fmt.apply_format_mask(Fnd_Date.canonical_to_date(l_ff_value),
2022: i.frmt_mask_cd);
2039:
2040: Ins_Rslt_Dtl(p_dtl_rec => p_rslt_rec);
2041:
2042: IF g_debug THEN
2043: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
2044: END IF;
2045:
2046: EXCEPTION
2047: WHEN Others THEN
2044: END IF;
2045:
2046: EXCEPTION
2047: WHEN Others THEN
2048: Hr_Utility.set_location('..error',85);
2049: Hr_Utility.set_location('SQL-ERRM :'||SQLERRM,87);
2050: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2051: END Process_Ext_Rslt_Dtl_Rec;
2052:
2045:
2046: EXCEPTION
2047: WHEN Others THEN
2048: Hr_Utility.set_location('..error',85);
2049: Hr_Utility.set_location('SQL-ERRM :'||SQLERRM,87);
2050: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2051: END Process_Ext_Rslt_Dtl_Rec;
2052:
2053: -- ===============================================================================
2046: EXCEPTION
2047: WHEN Others THEN
2048: Hr_Utility.set_location('..error',85);
2049: Hr_Utility.set_location('SQL-ERRM :'||SQLERRM,87);
2050: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2051: END Process_Ext_Rslt_Dtl_Rec;
2052:
2053: -- ===============================================================================
2054: -- ~ Get_ConcProg_Information : Common function to get the concurrent program parameters
2062:
2063: BEGIN
2064:
2065: IF g_debug THEN
2066: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
2067: END IF;
2068:
2069: IF p_header_type = 'EXTRACT_NAME' THEN
2070: l_return_value := g_conc_prog_details(0).extract_name;
2083: ELSIF p_header_type = 'GRE' THEN
2084: l_return_value := g_conc_prog_details(0).grename;
2085: ELSIF p_header_type = 'PAYROLL_NAME' THEN
2086: IF g_debug THEN
2087: Hr_Utility.set_location('PAYROLL_NAME: '||g_conc_prog_details(0).payrollname, 5);
2088: END IF;
2089: l_return_value := g_conc_prog_details(0).payrollname;
2090: ELSIF p_header_type = 'CON_SET' THEN
2091: l_return_value := g_conc_prog_details(0).consolset;
2089: l_return_value := g_conc_prog_details(0).payrollname;
2090: ELSIF p_header_type = 'CON_SET' THEN
2091: l_return_value := g_conc_prog_details(0).consolset;
2092: IF g_debug THEN
2093: Hr_Utility.set_location('CON_SET: '||l_return_value, 5);
2094: END IF;
2095: END IF;
2096: IF g_debug THEN
2097: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
2093: Hr_Utility.set_location('CON_SET: '||l_return_value, 5);
2094: END IF;
2095: END IF;
2096: IF g_debug THEN
2097: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
2098: END IF;
2099:
2100: RETURN l_return_value;
2101: EXCEPTION
2100: RETURN l_return_value;
2101: EXCEPTION
2102: WHEN Others THEN
2103: p_error_message :='SQL-ERRM :'||SQLERRM;
2104: Hr_Utility.set_location('..Exception Others Raised at Get_ConcProg_Information'||p_error_message,40);
2105: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
2106: RETURN l_return_value;
2107: END Get_ConcProg_Information;
2108:
2101: EXCEPTION
2102: WHEN Others THEN
2103: p_error_message :='SQL-ERRM :'||SQLERRM;
2104: Hr_Utility.set_location('..Exception Others Raised at Get_ConcProg_Information'||p_error_message,40);
2105: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
2106: RETURN l_return_value;
2107: END Get_ConcProg_Information;
2108:
2109: -- =============================================================================
2131: BEGIN
2132:
2133: i := p_business_group_id;
2134: IF g_debug THEN
2135: Hr_Utility.set_location('Entering Get_Balance_Value function:', 5);
2136: END IF;
2137: -- Check this balance already exists in record
2138: -- If it exists then get the balance type id
2139: FOR num IN 1..g_balance_detls.Count LOOP
2185:
2186: EXCEPTION
2187: WHEN Others THEN
2188: p_error_message :='SQL-ERRM :'||SQLERRM;
2189: Hr_Utility.set_location('..'||p_error_message,85);
2190: Hr_Utility.set_location('Leaving Get_Balance_Value function:', 80);
2191: RETURN l_bal_total_amt;
2192: END Get_Balance_Value_Eff_Dt;
2193:
2186: EXCEPTION
2187: WHEN Others THEN
2188: p_error_message :='SQL-ERRM :'||SQLERRM;
2189: Hr_Utility.set_location('..'||p_error_message,85);
2190: Hr_Utility.set_location('Leaving Get_Balance_Value function:', 80);
2191: RETURN l_bal_total_amt;
2192: END Get_Balance_Value_Eff_Dt;
2193:
2194: -- =============================================================================
2209:
2210: i := p_business_group_id;
2211:
2212: IF g_debug THEN
2213: Hr_Utility.set_location('Entering Get_Balance_Value function:', 5);
2214: END IF;
2215:
2216: l_bal_total_amt := Get_Balance_Value_Eff_Dt
2217: (p_assignment_id => p_assignment_id
2226:
2227: EXCEPTION
2228: WHEN Others THEN
2229: p_error_message :='SQL-ERRM :'||SQLERRM;
2230: Hr_Utility.set_location('..'||p_error_message,85);
2231: Hr_Utility.set_location('Leaving Get_Balance_Value function:', 80);
2232: RETURN l_bal_total_amt;
2233: END Get_Balance_Value;
2234:
2227: EXCEPTION
2228: WHEN Others THEN
2229: p_error_message :='SQL-ERRM :'||SQLERRM;
2230: Hr_Utility.set_location('..'||p_error_message,85);
2231: Hr_Utility.set_location('Leaving Get_Balance_Value function:', 80);
2232: RETURN l_bal_total_amt;
2233: END Get_Balance_Value;
2234:
2235: -- ====================================================================
2275:
2276:
2277: BEGIN
2278: IF g_debug THEN
2279: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
2280: END IF;
2281:
2282: OPEN csr_ext_name( c_ext_dfn_id => p_ext_dfn_id);
2283: FETCH csr_ext_name INTO l_extract_name;
2312: g_conc_prog_details(0).orgname := l_org_name;
2313: g_conc_prog_details(0).orgid := p_org_id;
2314:
2315: IF g_debug THEN
2316: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
2317: END IF;
2318:
2319: EXCEPTION
2320: WHEN Others THEN
2317: END IF;
2318:
2319: EXCEPTION
2320: WHEN Others THEN
2321: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2322: END Set_ConcProg_Parameter_Values;
2323:
2324: -- ====================================================================
2325: -- Function to check if RR exist for an ass act/element combination
2338:
2339: BEGIN
2340:
2341: IF g_debug THEN
2342: hr_utility.set_location('Entering: '||l_proc_name,5);
2343: hr_utility.set_location('...Ass Act is : '||p_ass_act_id,10);
2344: hr_utility.set_location('...Element Type is : '||p_element_type_id,15);
2345: END IF;
2346:
2339: BEGIN
2340:
2341: IF g_debug THEN
2342: hr_utility.set_location('Entering: '||l_proc_name,5);
2343: hr_utility.set_location('...Ass Act is : '||p_ass_act_id,10);
2344: hr_utility.set_location('...Element Type is : '||p_element_type_id,15);
2345: END IF;
2346:
2347: OPEN c_ass_act;
2340:
2341: IF g_debug THEN
2342: hr_utility.set_location('Entering: '||l_proc_name,5);
2343: hr_utility.set_location('...Ass Act is : '||p_ass_act_id,10);
2344: hr_utility.set_location('...Element Type is : '||p_element_type_id,15);
2345: END IF;
2346:
2347: OPEN c_ass_act;
2348: FETCH c_ass_act INTO l_dummy;
2348: FETCH c_ass_act INTO l_dummy;
2349:
2350: IF c_ass_act%FOUND THEN
2351: IF g_debug THEN
2352: hr_utility.set_location('...Run Results found : ',20);
2353: hr_utility.set_location('Leaving : '||l_proc_name,30);
2354: END IF;
2355: CLOSE c_ass_act;
2356: RETURN TRUE;
2349:
2350: IF c_ass_act%FOUND THEN
2351: IF g_debug THEN
2352: hr_utility.set_location('...Run Results found : ',20);
2353: hr_utility.set_location('Leaving : '||l_proc_name,30);
2354: END IF;
2355: CLOSE c_ass_act;
2356: RETURN TRUE;
2357: ELSE
2355: CLOSE c_ass_act;
2356: RETURN TRUE;
2357: ELSE
2358: IF g_debug THEN
2359: hr_utility.set_location('...Run Results not found : ',20);
2360: hr_utility.set_location('Leaving : '||l_proc_name,30);
2361: END IF;
2362: CLOSE c_ass_act;
2363: RETURN FALSE;
2356: RETURN TRUE;
2357: ELSE
2358: IF g_debug THEN
2359: hr_utility.set_location('...Run Results not found : ',20);
2360: hr_utility.set_location('Leaving : '||l_proc_name,30);
2361: END IF;
2362: CLOSE c_ass_act;
2363: RETURN FALSE;
2364: END IF;
2421:
2422: l_proc_name Varchar2(150) := g_proc_name ||'Get_Asg_Seq_Num';
2423: l_asg_seq_num Varchar2(2);
2424: BEGIN
2425: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
2426: IF g_primary_assig.EXISTS(p_assignment_id) THEN
2427: l_asg_seq_num := g_primary_assig(p_assignment_id).asg_seq_num;
2428: IF To_Number(Nvl(l_asg_seq_num,'1')) < 10 THEN
2429: l_asg_seq_num := '0' ||Nvl(l_asg_seq_num,'1');
2429: l_asg_seq_num := '0' ||Nvl(l_asg_seq_num,'1');
2430: END IF;
2431: END IF;
2432: p_data_element_value := Nvl(l_asg_seq_num,'01');
2433: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
2434: RETURN 0;
2435:
2436: EXCEPTION
2437: WHEN Others THEN
2435:
2436: EXCEPTION
2437: WHEN Others THEN
2438: p_error_message :='SQL-ERRM :'||SQLERRM;
2439: Hr_Utility.set_location('..'||p_error_message,85);
2440: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2441: RETURN -1;
2442: END Get_Asg_Seq_Num;
2443:
2436: EXCEPTION
2437: WHEN Others THEN
2438: p_error_message :='SQL-ERRM :'||SQLERRM;
2439: Hr_Utility.set_location('..'||p_error_message,85);
2440: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2441: RETURN -1;
2442: END Get_Asg_Seq_Num;
2443:
2444: --============================================================================
2499: l_asg_seq VARCHAR2(2);
2500:
2501: BEGIN
2502:
2503: hr_utility.set_location('Entering : '||l_proc_name, 90);
2504: hr_utility.set_location('Assignment Id : '||p_assignment_id, 90);
2505: hr_utility.set_location('p_start_date is : '||p_start_date, 90);
2506: hr_utility.set_location('p_end_date is : '||p_end_date, 90);
2507:
2500:
2501: BEGIN
2502:
2503: hr_utility.set_location('Entering : '||l_proc_name, 90);
2504: hr_utility.set_location('Assignment Id : '||p_assignment_id, 90);
2505: hr_utility.set_location('p_start_date is : '||p_start_date, 90);
2506: hr_utility.set_location('p_end_date is : '||p_end_date, 90);
2507:
2508: --
2501: BEGIN
2502:
2503: hr_utility.set_location('Entering : '||l_proc_name, 90);
2504: hr_utility.set_location('Assignment Id : '||p_assignment_id, 90);
2505: hr_utility.set_location('p_start_date is : '||p_start_date, 90);
2506: hr_utility.set_location('p_end_date is : '||p_end_date, 90);
2507:
2508: --
2509: -- Check if the EE assignment was hired in the current extract
2502:
2503: hr_utility.set_location('Entering : '||l_proc_name, 90);
2504: hr_utility.set_location('Assignment Id : '||p_assignment_id, 90);
2505: hr_utility.set_location('p_start_date is : '||p_start_date, 90);
2506: hr_utility.set_location('p_end_date is : '||p_end_date, 90);
2507:
2508: --
2509: -- Check if the EE assignment was hired in the current extract
2510: -- start and end dates
2518: ,p_hire_date
2519: ,p_error_message
2520: ,l_asg_seq);
2521:
2522: hr_utility.set_location('p_hire_date is : '||p_hire_date, 90);
2523:
2524: IF p_hire_date BETWEEN p_start_date AND p_end_date THEN
2525: RETURN 1;
2526: END IF;
2536: FETCH c_rec05_sent INTO l_dummy;
2537: IF c_rec05_sent%NOTFOUND AND
2538: TRUNC(p_hire_date) > TO_DATE('31/12/2005','DD/MM/YYYY') THEN
2539: CLOSE c_rec05_sent;
2540: hr_utility.set_location('Rec 05 Not Sent : '||p_start_date, 90);
2541: RETURN 1;
2542: ELSE
2543: CLOSE c_rec05_sent;
2544: hr_utility.set_location('Rec 05 Sent : '||p_start_date, 90);
2540: hr_utility.set_location('Rec 05 Not Sent : '||p_start_date, 90);
2541: RETURN 1;
2542: ELSE
2543: CLOSE c_rec05_sent;
2544: hr_utility.set_location('Rec 05 Sent : '||p_start_date, 90);
2545: RETURN 0;
2546: END IF;
2547:
2548: hr_utility.set_location('Leaving : '||l_proc_name, 90);
2544: hr_utility.set_location('Rec 05 Sent : '||p_start_date, 90);
2545: RETURN 0;
2546: END IF;
2547:
2548: hr_utility.set_location('Leaving : '||l_proc_name, 90);
2549:
2550: RETURN 0 ;
2551:
2552: EXCEPTION
2552: EXCEPTION
2553:
2554: WHEN OTHERS THEN
2555: p_error_message :='SQL-ERRM :'||SQLERRM;
2556: Hr_Utility.set_location('..'||p_error_message,85);
2557: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2558: RETURN 0;
2559:
2560: END chk_new_hire_asg;
2553:
2554: WHEN OTHERS THEN
2555: p_error_message :='SQL-ERRM :'||SQLERRM;
2556: Hr_Utility.set_location('..'||p_error_message,85);
2557: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2558: RETURN 0;
2559:
2560: END chk_new_hire_asg;
2561:
2629: l_proc_name Varchar2(150) := g_proc_name ||'Get_Pen_Prin_Obj_Cd_Cur';
2630:
2631: BEGIN
2632:
2633: Hr_Utility.set_location(' Entering ' || l_proc_name , 5);
2634: OPEN c_obj_cd;
2635: FETCH c_obj_cd INTO l_obj_cd;
2636: IF c_obj_cd%FOUND THEN
2637: CLOSE c_obj_cd;
2641: p_data_element_value := ' ';
2642: END IF;
2643: l_return_value := 0;
2644:
2645: Hr_Utility.set_location(' Leaving ' || l_proc_name , 30);
2646:
2647: RETURN l_return_value;
2648:
2649: EXCEPTION
2648:
2649: EXCEPTION
2650: WHEN Others THEN
2651: p_error_message :='SQL-ERRM :'||SQLERRM;
2652: Hr_Utility.set_location('..'||p_error_message,85);
2653: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2654: RETURN -1 ;
2655: END Get_Pri_Obj_Cd_Cur;
2656:
2649: EXCEPTION
2650: WHEN Others THEN
2651: p_error_message :='SQL-ERRM :'||SQLERRM;
2652: Hr_Utility.set_location('..'||p_error_message,85);
2653: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2654: RETURN -1 ;
2655: END Get_Pri_Obj_Cd_Cur;
2656:
2657: -- =============================================================================
2675: l_ret_val NUMBER;
2676:
2677: BEGIN
2678:
2679: Hr_Utility.set_location(' Entering ' || l_proc_name , 30);
2680:
2681: IF l_rec_09_values.count > 0 THEN
2682: j := l_rec_09_values.FIRST;
2683: IF l_rec_09_values.EXISTS(j) THEN
2708: l_return_value := 0;
2709:
2710: END IF;
2711:
2712: Hr_Utility.set_location(' Leaving ' || l_proc_name , 30);
2713:
2714:
2715: RETURN l_return_value;
2716:
2716:
2717: EXCEPTION
2718: WHEN Others THEN
2719: p_error_message :='SQL-ERRM :'||SQLERRM;
2720: Hr_Utility.set_location('..'||p_error_message,85);
2721: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2722: RETURN -1 ;
2723: END Get_Pri_Obj_Cd;
2724:
2717: EXCEPTION
2718: WHEN Others THEN
2719: p_error_message :='SQL-ERRM :'||SQLERRM;
2720: Hr_Utility.set_location('..'||p_error_message,85);
2721: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2722: RETURN -1 ;
2723: END Get_Pri_Obj_Cd;
2724:
2725: -- =============================================================================
2778: l_org_struct_ver_id per_org_structure_versions_v.org_structure_version_id%TYPE;
2779: l_tax_org_flag varchar2(1);
2780: l_child_org_flag varchar2(1);
2781: BEGIN
2782: Hr_Utility.set_location(' Entering ' || l_proc_name , 30);
2783:
2784: --Get the org_structure_version_id from the hierarchy atttached to BG
2785: OPEN c_get_org_hierarchy;
2786: FETCH c_get_org_hierarchy INTO l_org_struct_ver_id;
2834:
2835: END LOOP;
2836:
2837:
2838: Hr_Utility.set_location(' Leaving ' || l_proc_name , 100);
2839: EXCEPTION
2840: WHEN Others THEN
2841: l_error_message :='SQL-ERRM :'||SQLERRM;
2842: Hr_Utility.set_location('..'||l_error_message,85);
2838: Hr_Utility.set_location(' Leaving ' || l_proc_name , 100);
2839: EXCEPTION
2840: WHEN Others THEN
2841: l_error_message :='SQL-ERRM :'||SQLERRM;
2842: Hr_Utility.set_location('..'||l_error_message,85);
2843: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2844: END Set_Er_Children;
2845:
2846: --
2839: EXCEPTION
2840: WHEN Others THEN
2841: l_error_message :='SQL-ERRM :'||SQLERRM;
2842: Hr_Utility.set_location('..'||l_error_message,85);
2843: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
2844: END Set_Er_Children;
2845:
2846: --
2847: -- Function to check if ABP Pensions element is processed for the
2893:
2894: BEGIN
2895:
2896: IF g_debug THEN
2897: Hr_Utility.set_location('Entering: '||l_proc_name,10);
2898: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
2899: Hr_Utility.set_location('...Eff Dt is : '||p_effective_date,12);
2900: END IF;
2901:
2894: BEGIN
2895:
2896: IF g_debug THEN
2897: Hr_Utility.set_location('Entering: '||l_proc_name,10);
2898: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
2899: Hr_Utility.set_location('...Eff Dt is : '||p_effective_date,12);
2900: END IF;
2901:
2902: l_payroll_id := NULL;
2895:
2896: IF g_debug THEN
2897: Hr_Utility.set_location('Entering: '||l_proc_name,10);
2898: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
2899: Hr_Utility.set_location('...Eff Dt is : '||p_effective_date,12);
2900: END IF;
2901:
2902: l_payroll_id := NULL;
2903: l_abp_ee_xst := 0;
2906: l_payroll_id := temp_rec.payroll_id;
2907: END LOOP;
2908:
2909: IF g_debug THEN
2910: Hr_Utility.set_location('...Checking if EE is part of payroll ',20);
2911: Hr_Utility.set_location('...Payroll id is '||NVL(l_payroll_id,-1),25);
2912: END IF;
2913:
2914: IF l_payroll_id IS NULL THEN
2907: END LOOP;
2908:
2909: IF g_debug THEN
2910: Hr_Utility.set_location('...Checking if EE is part of payroll ',20);
2911: Hr_Utility.set_location('...Payroll id is '||NVL(l_payroll_id,-1),25);
2912: END IF;
2913:
2914: IF l_payroll_id IS NULL THEN
2915:
2913:
2914: IF l_payroll_id IS NULL THEN
2915:
2916: IF g_debug THEN
2917: Hr_Utility.set_location('...EE is not part of payroll ',30);
2918: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2919: END IF;
2920:
2921: RETURN 0;
2914: IF l_payroll_id IS NULL THEN
2915:
2916: IF g_debug THEN
2917: Hr_Utility.set_location('...EE is not part of payroll ',30);
2918: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2919: END IF;
2920:
2921: RETURN 0;
2922: ELSE
2921: RETURN 0;
2922: ELSE
2923:
2924: IF g_debug THEN
2925: Hr_Utility.set_location('...EE is part of payroll ',40);
2926: END IF;
2927:
2928: OPEN c_abp_entry;
2929: FETCH c_abp_entry INTO l_abp_ee_xst;
2930:
2931: IF c_abp_entry%FOUND THEN
2932:
2933: IF g_debug THEN
2934: Hr_Utility.set_location('...ABP is processed ',50);
2935: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2936: END IF;
2937:
2938: CLOSE c_abp_entry;
2931: IF c_abp_entry%FOUND THEN
2932:
2933: IF g_debug THEN
2934: Hr_Utility.set_location('...ABP is processed ',50);
2935: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2936: END IF;
2937:
2938: CLOSE c_abp_entry;
2939: RETURN 1;
2940:
2941: ELSE
2942:
2943: IF g_debug THEN
2944: Hr_Utility.set_location('...ABP is not processed ',50);
2945: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2946: END IF;
2947:
2948: CLOSE c_abp_entry;
2941: ELSE
2942:
2943: IF g_debug THEN
2944: Hr_Utility.set_location('...ABP is not processed ',50);
2945: Hr_Utility.set_location('Leaving: '||l_proc_name,90);
2946: END IF;
2947:
2948: CLOSE c_abp_entry;
2949: RETURN 0;
3030:
3031: BEGIN
3032:
3033: IF g_debug THEN
3034: Hr_Utility.set_location('Entering : '||l_proc_name,10);
3035: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
3036: Hr_Utility.set_location('...Value of p_ext_st is : '||p_ext_st,12);
3037: END IF;
3038:
3031: BEGIN
3032:
3033: IF g_debug THEN
3034: Hr_Utility.set_location('Entering : '||l_proc_name,10);
3035: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
3036: Hr_Utility.set_location('...Value of p_ext_st is : '||p_ext_st,12);
3037: END IF;
3038:
3039: OPEN c_get_term_date;
3032:
3033: IF g_debug THEN
3034: Hr_Utility.set_location('Entering : '||l_proc_name,10);
3035: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
3036: Hr_Utility.set_location('...Value of p_ext_st is : '||p_ext_st,12);
3037: END IF;
3038:
3039: OPEN c_get_term_date;
3040: FETCH c_get_term_date INTO l_asg_term_dt;
3041:
3042: IF c_get_term_date%NOTFOUND THEN
3043:
3044: IF g_debug THEN
3045: Hr_Utility.set_location('...Termination Date Not found : ',13);
3046: Hr_Utility.set_location('Leaving: '||l_proc_name,17);
3047: END IF;
3048:
3049: CLOSE c_get_term_date;
3042: IF c_get_term_date%NOTFOUND THEN
3043:
3044: IF g_debug THEN
3045: Hr_Utility.set_location('...Termination Date Not found : ',13);
3046: Hr_Utility.set_location('Leaving: '||l_proc_name,17);
3047: END IF;
3048:
3049: CLOSE c_get_term_date;
3050: RETURN FALSE;
3053:
3054: CLOSE c_get_term_date;
3055:
3056: IF g_debug THEN
3057: Hr_Utility.set_location('...Termination Date found : ',14);
3058: END IF;
3059:
3060: IF TO_NUMBER(TO_CHAR(NVL(l_asg_term_dt,p_ext_st),'YYYY')) <
3061: TO_NUMBER(TO_CHAR(p_ext_st,'YYYY')) THEN
3059:
3060: IF TO_NUMBER(TO_CHAR(NVL(l_asg_term_dt,p_ext_st),'YYYY')) <
3061: TO_NUMBER(TO_CHAR(p_ext_st,'YYYY')) THEN
3062: IF g_debug THEN
3063: Hr_Utility.set_location('...Condition met return TRUE : ',15);
3064: Hr_Utility.set_location('Leaving: '||l_proc_name,18);
3065: END IF;
3066: RETURN TRUE;
3067: ELSE
3060: IF TO_NUMBER(TO_CHAR(NVL(l_asg_term_dt,p_ext_st),'YYYY')) <
3061: TO_NUMBER(TO_CHAR(p_ext_st,'YYYY')) THEN
3062: IF g_debug THEN
3063: Hr_Utility.set_location('...Condition met return TRUE : ',15);
3064: Hr_Utility.set_location('Leaving: '||l_proc_name,18);
3065: END IF;
3066: RETURN TRUE;
3067: ELSE
3068: IF g_debug THEN
3065: END IF;
3066: RETURN TRUE;
3067: ELSE
3068: IF g_debug THEN
3069: Hr_Utility.set_location('...Condition not met return FALSE : ',16);
3070: Hr_Utility.set_location('Leaving: '||l_proc_name,19);
3071: END IF;
3072: RETURN FALSE;
3073: END IF;
3066: RETURN TRUE;
3067: ELSE
3068: IF g_debug THEN
3069: Hr_Utility.set_location('...Condition not met return FALSE : ',16);
3070: Hr_Utility.set_location('Leaving: '||l_proc_name,19);
3071: END IF;
3072: RETURN FALSE;
3073: END IF;
3074:
3116:
3117: BEGIN
3118:
3119: IF g_debug THEN
3120: Hr_Utility.set_location('Entering: '||l_proc_name,10);
3121: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
3122: END IF;
3123:
3124: l_late_hire_ind := 0;
3117: BEGIN
3118:
3119: IF g_debug THEN
3120: Hr_Utility.set_location('Entering: '||l_proc_name,10);
3121: Hr_Utility.set_location('...Assignment Id is : '||p_assignment_id,11);
3122: END IF;
3123:
3124: l_late_hire_ind := 0;
3125: l_def_bal_id := -1;
3135:
3136: CLOSE csr_defined_bal;
3137:
3138: IF g_debug THEN
3139: Hr_Utility.set_location('...l_def_bal_id is : '||l_def_bal_id,12);
3140: END IF;
3141:
3142: IF l_def_bal_id <> -1 THEN
3143: --
3148: ,p_virtual_date => g_extract_params(p_business_group_id).extract_end_date);
3149: END IF;
3150:
3151: IF g_debug THEN
3152: Hr_Utility.set_location('...l_late_hire_ind is : '||l_late_hire_ind,13);
3153: END IF;
3154:
3155: IF l_late_hire_ind <> 0 THEN
3156: RETURN TRUE;
3158: RETURN FALSE;
3159: END IF;
3160:
3161: IF g_debug THEN
3162: Hr_Utility.set_location('Leaving: '||l_proc_name,10);
3163: END IF;
3164:
3165: EXCEPTION
3166: WHEN OTHERS THEN
3164:
3165: EXCEPTION
3166: WHEN OTHERS THEN
3167: IF g_debug THEN
3168: Hr_Utility.set_location(' Exception occured: '||l_proc_name,10);
3169: END IF;
3170: RETURN FALSE;
3171: END Chk_Asg_Late_Hire;
3172:
3837: END IF;
3838: CLOSE c_hire_dt_chg;
3839:
3840: --If person is not retro hired then g_retro_hires record is null
3841: Hr_Utility.set_location('c_start_date'||g_extract_params(i).extract_start_date, 15);
3842: Hr_Utility.set_location('c_end_date'||g_extract_params(i).extract_end_date, 15);
3843: Hr_Utility.set_location('l_new_start'||l_new_start, 15);
3844: Hr_Utility.set_location('l_old_date'||l_old_start, 15);
3845:
3838: CLOSE c_hire_dt_chg;
3839:
3840: --If person is not retro hired then g_retro_hires record is null
3841: Hr_Utility.set_location('c_start_date'||g_extract_params(i).extract_start_date, 15);
3842: Hr_Utility.set_location('c_end_date'||g_extract_params(i).extract_end_date, 15);
3843: Hr_Utility.set_location('l_new_start'||l_new_start, 15);
3844: Hr_Utility.set_location('l_old_date'||l_old_start, 15);
3845:
3846: -- ============================================================================
3839:
3840: --If person is not retro hired then g_retro_hires record is null
3841: Hr_Utility.set_location('c_start_date'||g_extract_params(i).extract_start_date, 15);
3842: Hr_Utility.set_location('c_end_date'||g_extract_params(i).extract_end_date, 15);
3843: Hr_Utility.set_location('l_new_start'||l_new_start, 15);
3844: Hr_Utility.set_location('l_old_date'||l_old_start, 15);
3845:
3846: -- ============================================================================
3847: -- BEGIN Populate Record 05 Retro PTP change information
3840: --If person is not retro hired then g_retro_hires record is null
3841: Hr_Utility.set_location('c_start_date'||g_extract_params(i).extract_start_date, 15);
3842: Hr_Utility.set_location('c_end_date'||g_extract_params(i).extract_end_date, 15);
3843: Hr_Utility.set_location('l_new_start'||l_new_start, 15);
3844: Hr_Utility.set_location('l_old_date'||l_old_start, 15);
3845:
3846: -- ============================================================================
3847: -- BEGIN Populate Record 05 Retro PTP change information
3848: -- ============================================================================
3906: LOOP
3907: FETCH c_ptp_log_rows INTO l_ptp_log_rows;
3908:
3909: EXIT WHEN c_ptp_log_rows%NOTFOUND;
3910: hr_utility.set_location('....Inside the loop',20);
3911: IF g_retro_ptp_count > 0 THEN
3912: --
3913: -- Check if the ptp is the same and the dates are continuous
3914: --
3916: trunc(l_ptp_log_rows.start_date) AND
3917: l_rec_05_retro_ptp(g_retro_ptp_count).part_time_perc =
3918: l_ptp_log_rows.ptp * 100 ) THEN
3919: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_ptp_log_rows.end_date;
3920: hr_utility.set_location('...Updated the date',20);
3921: ELSE
3922: g_retro_ptp_count := g_retro_ptp_count + 1;
3923: l_rec_05_retro_ptp(g_retro_ptp_count).start_date := l_ptp_log_rows.start_date;
3924: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_ptp_log_rows.end_date;
3929: l_rec_05_retro_ptp(g_retro_ptp_count).start_date := l_ptp_log_rows.start_date;
3930: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_ptp_log_rows.end_date;
3931: l_rec_05_retro_ptp(g_retro_ptp_count).part_time_perc := l_ptp_log_rows.ptp * 100;
3932: END IF;
3933: hr_utility.set_location('...start_date'||l_rec_05_retro_ptp(g_retro_ptp_count).start_date,20);
3934: hr_utility.set_location('...end_date'||l_rec_05_retro_ptp(g_retro_ptp_count).end_date,20);
3935:
3936: END LOOP;
3937: CLOSE c_ptp_log_rows;
3930: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_ptp_log_rows.end_date;
3931: l_rec_05_retro_ptp(g_retro_ptp_count).part_time_perc := l_ptp_log_rows.ptp * 100;
3932: END IF;
3933: hr_utility.set_location('...start_date'||l_rec_05_retro_ptp(g_retro_ptp_count).start_date,20);
3934: hr_utility.set_location('...end_date'||l_rec_05_retro_ptp(g_retro_ptp_count).end_date,20);
3935:
3936: END LOOP;
3937: CLOSE c_ptp_log_rows;
3938:
3965: ,c_effective_date => g_extract_params(i).extract_start_date
3966: ,c_ele_type_id => g_retro_ptp_element_id
3967: ,c_input_val_id => g_retro_pv_iv_id)
3968: LOOP
3969: hr_utility.set_location(' -- Inside the loop to fetch retro elements',-999);
3970: l_hourly_ee_avg_ptp_prev := 0;
3971: g_retro_ptp_count := g_retro_ptp_count + 1;
3972: l_rec_05_retro_ptp(g_retro_ptp_count).start_date
3973: := get_min_date(l_asg_hire_dt,retro_rec_05.start_date);
4027:
4028: --7361970
4029: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_rec_05_retro_ptp(g_retro_ptp_count).end_date + 1;
4030: --7361970
4031: hr_utility.set_location(' -- Done populating PLSQL tbl',-999);
4032: END LOOP;
4033:
4034: END IF; -- Check for regular or hourly EE's
4035:
4038: CLOSE c_ptp_chg_exist;
4039:
4040: --6501898
4041: IF l_cur_ptp = 0 AND l_hourly_salaried_code <> 'S' THEN --7555712
4042: hr_utility.set_location(' -- Inside the l_cur_ptp = 0',-999);
4043:
4044: OPEN c_ptp_chg_hrly_exist (c_asg_id => p_assignment_id
4045: ,c_effective_date => g_extract_params(i).extract_start_date
4046: ,c_ele_type_id => g_abp_ptp_ele_id
4049: FETCH c_ptp_chg_hrly_exist INTO l_ptp_chg_hrly_exist;
4050: CLOSE c_ptp_chg_hrly_exist;
4051:
4052: IF l_ptp_chg_hrly_exist.Yes = 'Y' THEN
4053: hr_utility.set_location(' -- Inside the if condition c_ptp_chg_hrly_exist FOUND ',-999);
4054:
4055: FOR non_retro_rec_05 IN c_ptp_chg_hrly_exist(c_asg_id => p_assignment_id
4056: ,c_effective_date => g_extract_params(i).extract_start_date
4057: ,c_ele_type_id => g_abp_ptp_ele_id
4056: ,c_effective_date => g_extract_params(i).extract_start_date
4057: ,c_ele_type_id => g_abp_ptp_ele_id
4058: ,c_input_val_id => g_abp_ptp_iv_id)
4059: LOOP
4060: hr_utility.set_location(' -- Inside the loop to fetch non retro elements',-999);
4061: hr_utility.set_location(' -- g_retro_ptp_count Before'||g_retro_ptp_count,-999);
4062: hr_utility.set_location(' -- p_assignment_id'||p_assignment_id,-999);
4063: hr_utility.set_location(' -- g_extract_params(i).extract_start_date'||g_extract_params(i).extract_start_date,-999);
4064: hr_utility.set_location(' -- g_abp_ptp_ele_id:'||g_abp_ptp_ele_id||' g_abp_ptp_iv_id:'||g_abp_ptp_iv_id,-999);
4057: ,c_ele_type_id => g_abp_ptp_ele_id
4058: ,c_input_val_id => g_abp_ptp_iv_id)
4059: LOOP
4060: hr_utility.set_location(' -- Inside the loop to fetch non retro elements',-999);
4061: hr_utility.set_location(' -- g_retro_ptp_count Before'||g_retro_ptp_count,-999);
4062: hr_utility.set_location(' -- p_assignment_id'||p_assignment_id,-999);
4063: hr_utility.set_location(' -- g_extract_params(i).extract_start_date'||g_extract_params(i).extract_start_date,-999);
4064: hr_utility.set_location(' -- g_abp_ptp_ele_id:'||g_abp_ptp_ele_id||' g_abp_ptp_iv_id:'||g_abp_ptp_iv_id,-999);
4065:
4058: ,c_input_val_id => g_abp_ptp_iv_id)
4059: LOOP
4060: hr_utility.set_location(' -- Inside the loop to fetch non retro elements',-999);
4061: hr_utility.set_location(' -- g_retro_ptp_count Before'||g_retro_ptp_count,-999);
4062: hr_utility.set_location(' -- p_assignment_id'||p_assignment_id,-999);
4063: hr_utility.set_location(' -- g_extract_params(i).extract_start_date'||g_extract_params(i).extract_start_date,-999);
4064: hr_utility.set_location(' -- g_abp_ptp_ele_id:'||g_abp_ptp_ele_id||' g_abp_ptp_iv_id:'||g_abp_ptp_iv_id,-999);
4065:
4066: g_retro_ptp_count := g_retro_ptp_count + 1;
4059: LOOP
4060: hr_utility.set_location(' -- Inside the loop to fetch non retro elements',-999);
4061: hr_utility.set_location(' -- g_retro_ptp_count Before'||g_retro_ptp_count,-999);
4062: hr_utility.set_location(' -- p_assignment_id'||p_assignment_id,-999);
4063: hr_utility.set_location(' -- g_extract_params(i).extract_start_date'||g_extract_params(i).extract_start_date,-999);
4064: hr_utility.set_location(' -- g_abp_ptp_ele_id:'||g_abp_ptp_ele_id||' g_abp_ptp_iv_id:'||g_abp_ptp_iv_id,-999);
4065:
4066: g_retro_ptp_count := g_retro_ptp_count + 1;
4067: l_rec_05_retro_ptp(g_retro_ptp_count).start_date
4060: hr_utility.set_location(' -- Inside the loop to fetch non retro elements',-999);
4061: hr_utility.set_location(' -- g_retro_ptp_count Before'||g_retro_ptp_count,-999);
4062: hr_utility.set_location(' -- p_assignment_id'||p_assignment_id,-999);
4063: hr_utility.set_location(' -- g_extract_params(i).extract_start_date'||g_extract_params(i).extract_start_date,-999);
4064: hr_utility.set_location(' -- g_abp_ptp_ele_id:'||g_abp_ptp_ele_id||' g_abp_ptp_iv_id:'||g_abp_ptp_iv_id,-999);
4065:
4066: g_retro_ptp_count := g_retro_ptp_count + 1;
4067: l_rec_05_retro_ptp(g_retro_ptp_count).start_date
4068: := get_min_date(l_asg_hire_dt,non_retro_rec_05.start_date);
4073: l_rec_05_retro_ptp(g_retro_ptp_count).end_date
4074: := non_retro_rec_05.end_date - 1;
4075: END IF;
4076:
4077: hr_utility.set_location(' -- g_retro_ptp_count After'||g_retro_ptp_count,-999);
4078:
4079:
4080: /*
4081: --
4118:
4119: --7361970
4120: l_rec_05_retro_ptp(g_retro_ptp_count).end_date := l_rec_05_retro_ptp(g_retro_ptp_count).end_date + 1;
4121: --7361970
4122: hr_utility.set_location(' -- Done populating PLSQL tbl for non retro late hire',-999);
4123: END LOOP;
4124:
4125: END IF;
4126: --
4155: LOOP
4156: FETCH c_current_ptp_chgs INTO l_ptp_log_rows;
4157:
4158: EXIT WHEN c_current_ptp_chgs%NOTFOUND;
4159: hr_utility.set_location('....Inside the loop',20);
4160: IF g_retro_ptp_count > 0 THEN
4161: --
4162: -- Check if the ptp is the same and the dates are continuous
4163: --
4166: l_rec_05_retro_ptp(g_retro_ptp_count).part_time_perc =
4167: l_ptp_log_rows.ptp * 100 ) THEN
4168: l_rec_05_retro_ptp(g_retro_ptp_count).end_date
4169: := l_ptp_log_rows.end_date;
4170: hr_utility.set_location('...Updated the date',20);
4171: ELSE
4172: g_retro_ptp_count := g_retro_ptp_count + 1;
4173: l_rec_05_retro_ptp(g_retro_ptp_count).start_date
4174: := l_ptp_log_rows.start_date;
4185: := l_ptp_log_rows.end_date;
4186: l_rec_05_retro_ptp(g_retro_ptp_count).part_time_perc
4187: := l_ptp_log_rows.ptp * 100;
4188: END IF;
4189: hr_utility.set_location('...start_date'
4190: ||l_rec_05_retro_ptp(g_retro_ptp_count).start_date,20);
4191: hr_utility.set_location('...end_date'
4192: ||l_rec_05_retro_ptp(g_retro_ptp_count).end_date,20);
4193:
4187: := l_ptp_log_rows.ptp * 100;
4188: END IF;
4189: hr_utility.set_location('...start_date'
4190: ||l_rec_05_retro_ptp(g_retro_ptp_count).start_date,20);
4191: hr_utility.set_location('...end_date'
4192: ||l_rec_05_retro_ptp(g_retro_ptp_count).end_date,20);
4193:
4194: END LOOP;
4195: CLOSE c_current_ptp_chgs;
4239: k := 1;
4240: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
4241: LOOP
4242: l_rr_exists := 0;
4243: hr_utility.set_location('...Current element : '
4244: ||l_rec_09(i).element_type_id,10);
4245: hr_utility.set_location('..Assignment Id : '||p_assignment_id,12);
4246: hr_utility.set_location('..Payroll id : '
4247: ||g_extract_params(p_business_group_id).payroll_id,13);
4241: LOOP
4242: l_rr_exists := 0;
4243: hr_utility.set_location('...Current element : '
4244: ||l_rec_09(i).element_type_id,10);
4245: hr_utility.set_location('..Assignment Id : '||p_assignment_id,12);
4246: hr_utility.set_location('..Payroll id : '
4247: ||g_extract_params(p_business_group_id).payroll_id,13);
4248: hr_utility.set_location('..Start date : '
4249: ||g_extract_params(p_business_group_id).extract_start_date,14);
4242: l_rr_exists := 0;
4243: hr_utility.set_location('...Current element : '
4244: ||l_rec_09(i).element_type_id,10);
4245: hr_utility.set_location('..Assignment Id : '||p_assignment_id,12);
4246: hr_utility.set_location('..Payroll id : '
4247: ||g_extract_params(p_business_group_id).payroll_id,13);
4248: hr_utility.set_location('..Start date : '
4249: ||g_extract_params(p_business_group_id).extract_start_date,14);
4250: hr_utility.set_location('..End date : '
4244: ||l_rec_09(i).element_type_id,10);
4245: hr_utility.set_location('..Assignment Id : '||p_assignment_id,12);
4246: hr_utility.set_location('..Payroll id : '
4247: ||g_extract_params(p_business_group_id).payroll_id,13);
4248: hr_utility.set_location('..Start date : '
4249: ||g_extract_params(p_business_group_id).extract_start_date,14);
4250: hr_utility.set_location('..End date : '
4251: ||g_extract_params(p_business_group_id).extract_end_date,15);
4252:
4246: hr_utility.set_location('..Payroll id : '
4247: ||g_extract_params(p_business_group_id).payroll_id,13);
4248: hr_utility.set_location('..Start date : '
4249: ||g_extract_params(p_business_group_id).extract_start_date,14);
4250: hr_utility.set_location('..End date : '
4251: ||g_extract_params(p_business_group_id).extract_end_date,15);
4252:
4253: FOR act_rec IN csr_asg_act (
4254: c_assignment_id => p_assignment_id
4256: ,c_con_set_id => NULL
4257: ,c_start_date => g_extract_params(p_business_group_id).extract_start_date
4258: ,c_end_date => g_extract_params(p_business_group_id).extract_end_date)
4259: LOOP
4260: hr_utility.set_location('..Asg act id : '||act_rec.assignment_action_id,20);
4261: --
4262: -- populate the PLSQL table with the retro basis entries
4263: -- and the start and end date of the corresponding retro paid period
4264: -- for ABP (record 09)
4269: (c_element_type_id =>
4270: fnd_number.canonical_to_number(l_rec_09(i).py_retro_element_id)
4271: ,c_assignment_action_id => act_rec.assignment_action_id)
4272: LOOP
4273: hr_utility.set_location('..Found previous year retro entries',30);
4274: --
4275: -- Fetch the input value id for ABP Employee Pension Basis input value
4276: --
4277: OPEN c_get_iv_id(c_element_type_id =>
4320: (c_element_type_id => fnd_number.canonical_to_number(
4321: l_rec_09(i).cy_retro_element_id)
4322: ,c_assignment_action_id => act_rec.assignment_action_id)
4323: LOOP
4324: hr_utility.set_location('...Found current year retro entries',30);
4325: --
4326: -- Fetch the input value id for ABP Employee Pension Basis input value
4327: --
4328: OPEN c_get_iv_id(c_element_type_id =>
4349: l_ee_age_at_retro := Get_Age(
4350: p_assignment_id
4351: ,trunc(l_retro_age_cal_dt)) ;
4352:
4353: hr_utility.set_location('...l_retro_age_cal_dt :'||l_retro_age_cal_dt,50);
4354: hr_utility.set_location('...l_ee_age_at_retro :'||l_ee_age_at_retro,50);
4355:
4356: IF l_ee_age_at_retro < 65 AND chk_subcat_disp (l_rec_09(i).code
4357: ,l_retro_age_cal_dt) THEN
4350: p_assignment_id
4351: ,trunc(l_retro_age_cal_dt)) ;
4352:
4353: hr_utility.set_location('...l_retro_age_cal_dt :'||l_retro_age_cal_dt,50);
4354: hr_utility.set_location('...l_ee_age_at_retro :'||l_ee_age_at_retro,50);
4355:
4356: IF l_ee_age_at_retro < 65 AND chk_subcat_disp (l_rec_09(i).code
4357: ,l_retro_age_cal_dt) THEN
4358: IF l_retro_ptp_value <> 0 THEN
4361: l_rec_09_values(k).processed := 'N';
4362: l_rec_09_values(k).code := l_rec_09(i).code;
4363: l_rec_09_values(k).date_earned := ' ';
4364:
4365: hr_utility.set_location('GAA-- Date Earned used :'
4366: ||l_rec_09_values(k).date_earned,50);
4367:
4368: IF l_rec_09_values(k).basis_amount < 0 THEN
4369: l_rec_09_values(k).sign_code := 'C';
4383: FOR temp_rec IN c_get_retro_entry
4384: (c_element_type_id => l_rec_09(i).py_cy_adj_retro_element_id
4385: ,c_assignment_action_id => act_rec.assignment_action_id)
4386: LOOP
4387: hr_utility.set_location('...Found Adjustment retro entries',30);
4388: --
4389: -- Fetch the input value id for ABP Employee Pension Basis input value
4390: --
4391: OPEN c_get_iv_id(c_element_type_id => l_rec_09(i).py_cy_adj_retro_element_id);
4411: l_ee_age_at_retro := Get_Age(
4412: p_assignment_id
4413: ,trunc(l_retro_age_cal_dt)) ;
4414:
4415: hr_utility.set_location('...l_retro_age_cal_dt :'||l_retro_age_cal_dt,50);
4416: hr_utility.set_location('...l_ee_age_at_retro :'||l_ee_age_at_retro,50);
4417:
4418: IF l_ee_age_at_retro < 65 AND chk_subcat_disp (l_rec_09(i).code
4419: ,l_retro_age_cal_dt) THEN
4412: p_assignment_id
4413: ,trunc(l_retro_age_cal_dt)) ;
4414:
4415: hr_utility.set_location('...l_retro_age_cal_dt :'||l_retro_age_cal_dt,50);
4416: hr_utility.set_location('...l_ee_age_at_retro :'||l_ee_age_at_retro,50);
4417:
4418: IF l_ee_age_at_retro < 65 AND chk_subcat_disp (l_rec_09(i).code
4419: ,l_retro_age_cal_dt) THEN
4420: IF l_retro_ptp_value <> 0 THEN
4423: l_rec_09_values(k).processed := 'N';
4424: l_rec_09_values(k).code := l_rec_09(i).code;
4425: l_rec_09_values(k).date_earned := ' ';
4426:
4427: hr_utility.set_location('GAA-- Date Earned used :'
4428: ||l_rec_09_values(k).date_earned,50);
4429:
4430: IF l_rec_09_values(k).basis_amount < 0 THEN
4431: l_rec_09_values(k).sign_code := 'C';
4457: --
4458: IF chk_rr_exist (p_ass_act_id => act_rec.assignment_action_id
4459: ,p_element_type_id => l_rec_09(i).element_type_id ) THEN
4460: -- Call pay_balance_pkg
4461: hr_utility.set_location('Run results exist for current period',40);
4462:
4463: IF l_rec_09(i).defined_bal_id <> -1 THEN
4464:
4465: l_rec_09_values(k).basis_amount :=
4465: l_rec_09_values(k).basis_amount :=
4466: Pay_Balance_Pkg.get_value
4467: (p_defined_balance_id => l_rec_09(i).defined_bal_id
4468: ,p_assignment_action_id => act_rec.assignment_action_id);
4469: hr_utility.set_location('Defined bal id used :'
4470: ||l_rec_09(i).defined_bal_id,50);
4471: l_rec_09_disp := 'Y';
4472: l_rec_09_values(k).processed := 'N';
4473: l_rec_09_values(k).code := l_rec_09(i).code;
4522: IF l_rec_09.count > 0 THEN
4523: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
4524: LOOP
4525: l_rr_exists := 0;
4526: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4527: hr_utility.set_location('asg id : '||p_assignment_id,12);
4528: hr_utility.set_location('start date : ',14);
4529: hr_utility.set_location('end date : ',15);
4530: FOR act_rec IN csr_asg_act (
4523: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
4524: LOOP
4525: l_rr_exists := 0;
4526: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4527: hr_utility.set_location('asg id : '||p_assignment_id,12);
4528: hr_utility.set_location('start date : ',14);
4529: hr_utility.set_location('end date : ',15);
4530: FOR act_rec IN csr_asg_act (
4531: c_assignment_id => p_assignment_id
4524: LOOP
4525: l_rr_exists := 0;
4526: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4527: hr_utility.set_location('asg id : '||p_assignment_id,12);
4528: hr_utility.set_location('start date : ',14);
4529: hr_utility.set_location('end date : ',15);
4530: FOR act_rec IN csr_asg_act (
4531: c_assignment_id => p_assignment_id
4532: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
4525: l_rr_exists := 0;
4526: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4527: hr_utility.set_location('asg id : '||p_assignment_id,12);
4528: hr_utility.set_location('start date : ',14);
4529: hr_utility.set_location('end date : ',15);
4530: FOR act_rec IN csr_asg_act (
4531: c_assignment_id => p_assignment_id
4532: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
4533: ,c_con_set_id => NULL
4542: -- Check if Run Results exist for this element/ass act
4543: IF chk_rr_exist (p_ass_act_id => act_rec.assignment_action_id
4544: ,p_element_type_id => l_rec_09(i).element_type_id ) THEN
4545: -- Call pay_balance_pkg
4546: hr_utility.set_location('run results exist for current period',40);
4547: IF l_rec_09(i).defined_bal_id <> -1 THEN
4548: l_rec_09_values(k).basis_amount :=
4549: Pay_Balance_Pkg.get_value
4550: (p_defined_balance_id => l_rec_09(i).defined_bal_id
4548: l_rec_09_values(k).basis_amount :=
4549: Pay_Balance_Pkg.get_value
4550: (p_defined_balance_id => l_rec_09(i).defined_bal_id
4551: ,p_assignment_action_id => act_rec.assignment_action_id);
4552: hr_utility.set_location('defined bal id used :'||l_rec_09(i).defined_bal_id,50);
4553: l_rec_09_disp := 'Y';
4554: l_rec_09_values(k).processed := 'N';
4555: l_rec_09_values(k).code := l_rec_09(i).code;
4556: l_rec_09_values(k).date_earned := ' ';
4594: IF l_rec_09.count > 0 THEN
4595: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
4596: LOOP
4597: l_rr_exists := 0;
4598: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4599: hr_utility.set_location('asg id : '||p_assignment_id,12);
4600: hr_utility.set_location('start date : ',14);
4601: hr_utility.set_location('end date : ',15);
4602: FOR act_rec IN csr_asg_act (
4595: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
4596: LOOP
4597: l_rr_exists := 0;
4598: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4599: hr_utility.set_location('asg id : '||p_assignment_id,12);
4600: hr_utility.set_location('start date : ',14);
4601: hr_utility.set_location('end date : ',15);
4602: FOR act_rec IN csr_asg_act (
4603: c_assignment_id => p_assignment_id
4596: LOOP
4597: l_rr_exists := 0;
4598: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4599: hr_utility.set_location('asg id : '||p_assignment_id,12);
4600: hr_utility.set_location('start date : ',14);
4601: hr_utility.set_location('end date : ',15);
4602: FOR act_rec IN csr_asg_act (
4603: c_assignment_id => p_assignment_id
4604: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
4597: l_rr_exists := 0;
4598: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
4599: hr_utility.set_location('asg id : '||p_assignment_id,12);
4600: hr_utility.set_location('start date : ',14);
4601: hr_utility.set_location('end date : ',15);
4602: FOR act_rec IN csr_asg_act (
4603: c_assignment_id => p_assignment_id
4604: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
4605: ,c_con_set_id => NULL
4614: -- Check if Run Results exist for this element/ass act
4615: IF chk_rr_exist (p_ass_act_id => act_rec.assignment_action_id
4616: ,p_element_type_id => l_rec_09(i).element_type_id ) THEN
4617: -- Call pay_balance_pkg
4618: hr_utility.set_location('run results exist for current period',40);
4619: IF l_rec_09(i).defined_bal_id <> -1 THEN
4620: l_rec_09_values(k).basis_amount :=
4621: Pay_Balance_Pkg.get_value
4622: (p_defined_balance_id => l_rec_09(i).defined_bal_id
4620: l_rec_09_values(k).basis_amount :=
4621: Pay_Balance_Pkg.get_value
4622: (p_defined_balance_id => l_rec_09(i).defined_bal_id
4623: ,p_assignment_action_id => act_rec.assignment_action_id);
4624: hr_utility.set_location('defined bal id used :'||l_rec_09(i).defined_bal_id,50);
4625: l_rec_09_disp := 'Y';
4626: l_rec_09_values(k).processed := 'N';
4627: l_rec_09_values(k).code := l_rec_09(i).code;
4628: l_rec_09_values(k).date_earned :=
5013: rec12_act_rec.date_earned --9902953
5014: ,c_asg_id => p_assignment_id
5015: )
5016: LOOP
5017: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5018: hr_utility.set_location('chking code : '||temp_rec.code,10);
5019: --if the amount is -999999 then fetch the balance value
5020: IF temp_rec.amount = -999999 THEN
5021: l_rec12_amt := 0;
5014: ,c_asg_id => p_assignment_id
5015: )
5016: LOOP
5017: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5018: hr_utility.set_location('chking code : '||temp_rec.code,10);
5019: --if the amount is -999999 then fetch the balance value
5020: IF temp_rec.amount = -999999 THEN
5021: l_rec12_amt := 0;
5022: OPEN csr_defined_bal1(c_balance_type_id => temp_rec.ee_contribution_bal_type_id
5047: ELSE
5048: CLOSE csr_defined_bal1;
5049: END IF;
5050:
5051: hr_utility.set_location('chking amt : '||l_rec12_amt,10);
5052:
5053: IF l_rec12_amt <> 0 THEN
5054: l_rec_12_values(i_12).contrib_amount := l_rec12_amt;
5055: l_rec_12_values(i_12).date_earned := ' ';
5065: i_12 := i_12 + 1;
5066: l_rec_12_disp := 'Y';
5067: END IF;
5068: END IF;
5069: hr_utility.set_location('asg : '||p_assignment_id,10);
5070: hr_utility.set_location('amt : '||temp_rec.amount,11);
5071: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5072: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5073: END LOOP;
5066: l_rec_12_disp := 'Y';
5067: END IF;
5068: END IF;
5069: hr_utility.set_location('asg : '||p_assignment_id,10);
5070: hr_utility.set_location('amt : '||temp_rec.amount,11);
5071: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5072: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5073: END LOOP;
5074: END LOOP;
5067: END IF;
5068: END IF;
5069: hr_utility.set_location('asg : '||p_assignment_id,10);
5070: hr_utility.set_location('amt : '||temp_rec.amount,11);
5071: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5072: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5073: END LOOP;
5074: END LOOP;
5075:
5068: END IF;
5069: hr_utility.set_location('asg : '||p_assignment_id,10);
5070: hr_utility.set_location('amt : '||temp_rec.amount,11);
5071: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5072: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5073: END LOOP;
5074: END LOOP;
5075:
5076: i_41 := 1;
5128: i_41 := i_41 + 1;
5129: l_contrib_rec_41_disp := 'Y';
5130: END IF;
5131: END IF;
5132: hr_utility.set_location('amt : '||temp_rec.amount,11);
5133: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5134: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5135: END LOOP;
5136:
5129: l_contrib_rec_41_disp := 'Y';
5130: END IF;
5131: END IF;
5132: hr_utility.set_location('amt : '||temp_rec.amount,11);
5133: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5134: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5135: END LOOP;
5136:
5137: ELSE
5130: END IF;
5131: END IF;
5132: hr_utility.set_location('amt : '||temp_rec.amount,11);
5133: hr_utility.set_location('date : '||temp_rec.date_earned,11);
5134: hr_utility.set_location('cdoe : '||temp_rec.code,11);
5135: END LOOP;
5136:
5137: ELSE
5138: CLOSE csr_asg_act1;
5184: FOR temp_rec IN c_rec_12_ele(c_bg_id => p_business_group_id
5185: ,c_effective_date => l_end_new_st
5186: ,c_asg_id => p_assignment_id)
5187: LOOP
5188: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5189: hr_utility.set_location('chking code : '||temp_rec.code,10);
5190: --if the amount is -999999 then fetch the balance value
5191: IF temp_rec.amount = -999999 THEN
5192: l_rec12_amt := 0;
5185: ,c_effective_date => l_end_new_st
5186: ,c_asg_id => p_assignment_id)
5187: LOOP
5188: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5189: hr_utility.set_location('chking code : '||temp_rec.code,10);
5190: --if the amount is -999999 then fetch the balance value
5191: IF temp_rec.amount = -999999 THEN
5192: l_rec12_amt := 0;
5193: OPEN csr_defined_bal1(c_balance_type_id => temp_rec.ee_contribution_bal_type_id
5215: ELSE
5216: CLOSE csr_defined_bal1;
5217: END IF;
5218:
5219: hr_utility.set_location('chking amt : '||l_rec12_amt,10);
5220:
5221: IF l_rec12_amt <> 0 THEN
5222: l_rec_12_values(i_12).contrib_amount := l_rec12_amt;
5223: l_rec_12_values(i_12).date_earned := ' ';
5255: --
5256: WHILE trunc(l_beg_new_st) < l_loop_end_date
5257: LOOP
5258: l_end_new_st := add_months(trunc(l_beg_new_st),1) -1;
5259: hr_utility.set_location('l_beg_new_st is '||l_beg_new_st,10);
5260: hr_utility.set_location('l_end_new_st is '||l_end_new_st,10);
5261: --
5262: -- First fetch the maximum assignment action id
5263: --
5256: WHILE trunc(l_beg_new_st) < l_loop_end_date
5257: LOOP
5258: l_end_new_st := add_months(trunc(l_beg_new_st),1) -1;
5259: hr_utility.set_location('l_beg_new_st is '||l_beg_new_st,10);
5260: hr_utility.set_location('l_end_new_st is '||l_end_new_st,10);
5261: --
5262: -- First fetch the maximum assignment action id
5263: --
5264: OPEN csr_asg_act1 (
5277: FOR temp_rec IN c_rec_12_ele(c_bg_id => p_business_group_id
5278: ,c_effective_date => l_end_new_st
5279: ,c_asg_id => p_assignment_id)
5280: LOOP
5281: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5282: hr_utility.set_location('chking code : '||temp_rec.code,10);
5283: --if the amount is -999999 then fetch the balance value
5284: IF temp_rec.amount = -999999 THEN
5285: l_rec12_amt := 0;
5278: ,c_effective_date => l_end_new_st
5279: ,c_asg_id => p_assignment_id)
5280: LOOP
5281: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5282: hr_utility.set_location('chking code : '||temp_rec.code,10);
5283: --if the amount is -999999 then fetch the balance value
5284: IF temp_rec.amount = -999999 THEN
5285: l_rec12_amt := 0;
5286: OPEN csr_defined_bal1(c_balance_type_id => temp_rec.ee_contribution_bal_type_id
5308: ELSE
5309: CLOSE csr_defined_bal1;
5310: END IF;
5311:
5312: hr_utility.set_location('chking amt : '||l_rec12_amt,10);
5313:
5314: IF l_rec12_amt <> 0 THEN
5315: l_rec_12_values(i_12).contrib_amount := l_rec12_amt;
5316: l_rec_12_values(i_12).date_earned := substr(fnd_date.date_to_canonical(l_end_new_st),1,10);
5325: FETCH c_12_abp_data INTO l_rec_12_amt_sent_prev;
5326: IF c_12_abp_data%FOUND THEN
5327: l_rec_12_values(i_12).contrib_amount := l_rec_12_values(i_12).contrib_amount
5328: - l_rec_12_amt_sent_prev;
5329: hr_utility.set_location('l_rec_12_amt_sent_prev : '||l_rec_12_amt_sent_prev,10);
5330: END IF;
5331: CLOSE c_12_abp_data;
5332: i_12 := i_12 + 1;
5333: l_rec_12_disp := 'Y';
5337: END LOOP;
5338:
5339: ELSIF l_asg_act_id IS NULL THEN
5340:
5341: hr_utility.set_location('ass act is null fetching data freom sent is '||l_end_new_st,10);
5342: FOR temp_rec IN c_rec_12_ele(c_bg_id => p_business_group_id
5343: ,c_effective_date => l_end_new_st
5344: ,c_asg_id => p_assignment_id)
5345: LOOP
5342: FOR temp_rec IN c_rec_12_ele(c_bg_id => p_business_group_id
5343: ,c_effective_date => l_end_new_st
5344: ,c_asg_id => p_assignment_id)
5345: LOOP
5346: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5347: hr_utility.set_location('chking code : '||temp_rec.code,10);
5348: --if the amount is -999999 then fetch the balance value
5349: IF temp_rec.amount = -999999 THEN
5350: hr_utility.set_location('GXXXXX entrred the if condition for -9999: '||l_rec_12_amt_sent_prev,10);
5343: ,c_effective_date => l_end_new_st
5344: ,c_asg_id => p_assignment_id)
5345: LOOP
5346: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5347: hr_utility.set_location('chking code : '||temp_rec.code,10);
5348: --if the amount is -999999 then fetch the balance value
5349: IF temp_rec.amount = -999999 THEN
5350: hr_utility.set_location('GXXXXX entrred the if condition for -9999: '||l_rec_12_amt_sent_prev,10);
5351: hr_utility.set_location('GXXXXX l_end_new_st : '||l_end_new_st,10);
5346: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5347: hr_utility.set_location('chking code : '||temp_rec.code,10);
5348: --if the amount is -999999 then fetch the balance value
5349: IF temp_rec.amount = -999999 THEN
5350: hr_utility.set_location('GXXXXX entrred the if condition for -9999: '||l_rec_12_amt_sent_prev,10);
5351: hr_utility.set_location('GXXXXX l_end_new_st : '||l_end_new_st,10);
5352: hr_utility.set_location('GXXXXX temp_rec.code : '||temp_rec.code,10);
5353: IF length(temp_rec.code) = 1 THEN
5354: l_gxx_code := '0'||temp_rec.code;
5347: hr_utility.set_location('chking code : '||temp_rec.code,10);
5348: --if the amount is -999999 then fetch the balance value
5349: IF temp_rec.amount = -999999 THEN
5350: hr_utility.set_location('GXXXXX entrred the if condition for -9999: '||l_rec_12_amt_sent_prev,10);
5351: hr_utility.set_location('GXXXXX l_end_new_st : '||l_end_new_st,10);
5352: hr_utility.set_location('GXXXXX temp_rec.code : '||temp_rec.code,10);
5353: IF length(temp_rec.code) = 1 THEN
5354: l_gxx_code := '0'||temp_rec.code;
5355: ELSE
5348: --if the amount is -999999 then fetch the balance value
5349: IF temp_rec.amount = -999999 THEN
5350: hr_utility.set_location('GXXXXX entrred the if condition for -9999: '||l_rec_12_amt_sent_prev,10);
5351: hr_utility.set_location('GXXXXX l_end_new_st : '||l_end_new_st,10);
5352: hr_utility.set_location('GXXXXX temp_rec.code : '||temp_rec.code,10);
5353: IF length(temp_rec.code) = 1 THEN
5354: l_gxx_code := '0'||temp_rec.code;
5355: ELSE
5356: l_gxx_code := temp_rec.code;
5357: END IF;
5358: OPEN c_12_abp_data (l_end_new_st,l_gxx_code);
5359: FETCH c_12_abp_data INTO l_rec_12_amt_sent_prev;
5360: IF c_12_abp_data%FOUND THEN
5361: hr_utility.set_location('GXXXXX the amount is asg : '||l_rec_12_amt_sent_prev,10);
5362: l_rec_12_values(i_12).contrib_amount := -1 * l_rec_12_amt_sent_prev;
5363: l_rec_12_values(i_12).date_earned := substr(fnd_date.date_to_canonical(l_end_new_st),1,10);
5364: l_rec_12_values(i_12).code := temp_rec.code;
5365: i_12 := i_12 + 1;
5420: ,l_term_log_id_XX
5421: ,l_term_pos_id_XX;
5422:
5423: IF c_get_term_rows%FOUND THEN
5424: hr_utility.set_location('....c_get_term_rows Found : ',30);
5425: CLOSE c_get_term_rows;
5426:
5427: OPEN c_get_revt_rows (p_business_group_id
5428: ,p_effective_date
5428: ,p_effective_date
5429: ,p_assignment_id);
5430: FETCH c_get_revt_rows INTO l_old_date2_XX,l_new_date2_XX,l_revt_log_id_XX;
5431: IF c_get_revt_rows%FOUND THEN
5432: hr_utility.set_location('....c_get_revt_rows found : ',34);
5433: CLOSE c_get_revt_rows;
5434: IF l_term_log_id_XX > l_revt_log_id_XX THEN
5435: l_normal_term := 1;
5436: END IF;
5435: l_normal_term := 1;
5436: END IF;
5437: ELSE
5438: CLOSE c_get_revt_rows;
5439: hr_utility.set_location('....Regular values being fetched : ',38);
5440: l_normal_term := 1;
5441: END IF;
5442: ELSE
5443: CLOSE c_get_term_rows;
5445: ,p_effective_date
5446: ,p_assignment_id);
5447: FETCH c_get_revt_rows INTO l_old_date2_XX,l_new_date2_XX,l_revt_log_id_XX;
5448: IF c_get_revt_rows%FOUND THEN
5449: hr_utility.set_location('....c_get_revt_rows Found: ',40);
5450: CLOSE c_get_revt_rows;
5451: l_reversal_term := 1;
5452: ELSE
5453: CLOSE c_get_revt_rows;
5479: IF l_rec_09.count > 0 THEN
5480: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
5481: LOOP
5482: l_rr_exists := 0;
5483: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
5484: hr_utility.set_location('asg id : '||p_assignment_id,12);
5485: hr_utility.set_location('start date : ',14);
5486: hr_utility.set_location('end date : ',15);
5487: FOR act_rec IN csr_asg_act (
5480: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
5481: LOOP
5482: l_rr_exists := 0;
5483: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
5484: hr_utility.set_location('asg id : '||p_assignment_id,12);
5485: hr_utility.set_location('start date : ',14);
5486: hr_utility.set_location('end date : ',15);
5487: FOR act_rec IN csr_asg_act (
5488: c_assignment_id => p_assignment_id
5481: LOOP
5482: l_rr_exists := 0;
5483: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
5484: hr_utility.set_location('asg id : '||p_assignment_id,12);
5485: hr_utility.set_location('start date : ',14);
5486: hr_utility.set_location('end date : ',15);
5487: FOR act_rec IN csr_asg_act (
5488: c_assignment_id => p_assignment_id
5489: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
5482: l_rr_exists := 0;
5483: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
5484: hr_utility.set_location('asg id : '||p_assignment_id,12);
5485: hr_utility.set_location('start date : ',14);
5486: hr_utility.set_location('end date : ',15);
5487: FOR act_rec IN csr_asg_act (
5488: c_assignment_id => p_assignment_id
5489: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
5490: ,c_con_set_id => NULL
5499: -- Check if Run Results exist for this element/ass act
5500: IF chk_rr_exist (p_ass_act_id => act_rec.assignment_action_id
5501: ,p_element_type_id => l_rec_09(i).element_type_id ) THEN
5502: -- Call pay_balance_pkg
5503: hr_utility.set_location('run results exist for current period',40);
5504: IF l_rec_09(i).defined_bal_id <> -1 THEN
5505: l_rec_09_values(k).basis_amount :=
5506: Pay_Balance_Pkg.get_value
5507: (p_defined_balance_id => l_rec_09(i).defined_bal_id
5505: l_rec_09_values(k).basis_amount :=
5506: Pay_Balance_Pkg.get_value
5507: (p_defined_balance_id => l_rec_09(i).defined_bal_id
5508: ,p_assignment_action_id => act_rec.assignment_action_id);
5509: hr_utility.set_location('defined bal id used :'||l_rec_09(i).defined_bal_id,50);
5510: l_rec_09_disp := 'Y';
5511: l_rec_09_values(k).processed := 'N';
5512: l_rec_09_values(k).code := l_rec_09(i).code;
5513: l_rec_09_values(k).date_earned :=
5551:
5552: WHILE trunc(l_beg_new_st) < l_loop_end_date
5553: LOOP
5554: l_end_new_st := add_months(trunc(l_beg_new_st),1) -1;
5555: hr_utility.set_location('l_beg_new_st is '||l_beg_new_st,10);
5556: hr_utility.set_location('l_end_new_st is '||l_end_new_st,10);
5557: OPEN c_sent_to_abp(l_end_new_st);
5558: FETCH c_sent_to_abp INTO l_sent_to_abp;
5559: IF c_sent_to_abp%NOTFOUND THEN
5552: WHILE trunc(l_beg_new_st) < l_loop_end_date
5553: LOOP
5554: l_end_new_st := add_months(trunc(l_beg_new_st),1) -1;
5555: hr_utility.set_location('l_beg_new_st is '||l_beg_new_st,10);
5556: hr_utility.set_location('l_end_new_st is '||l_end_new_st,10);
5557: OPEN c_sent_to_abp(l_end_new_st);
5558: FETCH c_sent_to_abp INTO l_sent_to_abp;
5559: IF c_sent_to_abp%NOTFOUND THEN
5560: --
5576: FOR temp_rec IN c_rec_12_ele(c_bg_id => p_business_group_id
5577: ,c_effective_date => l_end_new_st
5578: ,c_asg_id => p_assignment_id)
5579: LOOP
5580: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5581: hr_utility.set_location('chking code : '||temp_rec.code,10);
5582: --if the amount is -999999 then fetch the balance value
5583: IF temp_rec.amount = -999999 THEN
5584: l_rec12_amt := 0;
5577: ,c_effective_date => l_end_new_st
5578: ,c_asg_id => p_assignment_id)
5579: LOOP
5580: hr_utility.set_location('chking asg : '||p_assignment_id,10);
5581: hr_utility.set_location('chking code : '||temp_rec.code,10);
5582: --if the amount is -999999 then fetch the balance value
5583: IF temp_rec.amount = -999999 THEN
5584: l_rec12_amt := 0;
5585: OPEN csr_defined_bal1(c_balance_type_id => temp_rec.ee_contribution_bal_type_id
5607: ELSE
5608: CLOSE csr_defined_bal1;
5609: END IF;
5610:
5611: hr_utility.set_location('chking amt : '||l_rec12_amt,10);
5612:
5613: IF l_rec12_amt <> 0 THEN
5614: l_rec_12_values(i_12).contrib_amount := l_rec12_amt;
5615: l_rec_12_values(i_12).date_earned := substr(fnd_date.date_to_canonical(l_end_new_st),1,10);
5893: l_org_index NUMBER;
5894:
5895: BEGIN
5896:
5897: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
5898: i := p_business_group_id;
5899: l_ext_rslt_id := Ben_Ext_Thread.g_ext_rslt_id;
5900: l_ext_dfn_id := Ben_Ext_Thread.g_ext_dfn_id;
5901:
5899: l_ext_rslt_id := Ben_Ext_Thread.g_ext_rslt_id;
5900: l_ext_dfn_id := Ben_Ext_Thread.g_ext_dfn_id;
5901:
5902: IF NOT g_extract_params.EXISTS(i) THEN
5903: Hr_Utility.set_location('..Exract Params PL/SQL not populated ', 7);
5904: -- Get the extract type, Changes extract or Full Profile
5905: OPEN csr_ext_attr(c_ext_dfn_id=> l_ext_dfn_id);
5906: FETCH csr_ext_attr INTO l_ext_dfn_type;
5907: CLOSE csr_ext_attr;
5904: -- Get the extract type, Changes extract or Full Profile
5905: OPEN csr_ext_attr(c_ext_dfn_id=> l_ext_dfn_id);
5906: FETCH csr_ext_attr INTO l_ext_dfn_type;
5907: CLOSE csr_ext_attr;
5908: Hr_Utility.set_location('..After cursor csr_ext_attr',9);
5909: -- Get the Conc. request id to get the params
5910: OPEN csr_req_id(c_ext_rslt_id => l_ext_rslt_id
5911: ,c_ext_dfn_id => l_ext_dfn_id
5912: ,c_business_group_id => p_business_group_id);
5911: ,c_ext_dfn_id => l_ext_dfn_id
5912: ,c_business_group_id => p_business_group_id);
5913: FETCH csr_req_id INTO l_conc_reqest_id;
5914: CLOSE csr_req_id;
5915: Hr_Utility.set_location('..After Conc.Request id cursor csr_req_id',11);
5916: -- Get the params. based on the conc. request id.
5917: OPEN csr_ext_params (c_request_id => l_conc_reqest_id
5918: ,c_ext_dfn_id => l_ext_dfn_id
5919: ,c_business_group_id => p_business_group_id);
5940: g_extract_params(i).currency_code;
5941: CLOSE csr_leg_code;
5942: g_legislation_code := g_extract_params(i).legislation_code;
5943: g_business_group_id := p_business_group_id;
5944: Hr_Utility.set_location('..Stored the extract parameters in PL/SQL table', 15);
5945:
5946: -- Set the meaning for concurrent program parameters
5947: Set_ConcProg_Parameter_Values
5948: (p_ext_dfn_id => g_extract_params(i).ext_dfn_id
5951: ,p_payroll_id => g_extract_params(i).payroll_id
5952: ,p_con_set => g_extract_params(i).con_set_id
5953: ,p_org_id => g_extract_params(i).org_id
5954: );
5955: Hr_Utility.set_location('..Stored the Conc. Program parameters', 17);
5956: -- Store all record ids in a PL/SQL tbl
5957: FOR rcd_rec IN csr_rcd_ids
5958: LOOP
5959: g_ext_rcds(rcd_rec.ext_rcd_id) := rcd_rec;
5989: FETCH csr_tax_org INTO l_tax_org_flag;
5990: --If employer then add org in employer list
5991: IF csr_tax_org%FOUND THEN
5992: g_employer_list(g_org_list(l_org_index).org_id).gre_org_id:=g_org_list(l_org_index).org_id;
5993: Hr_Utility.set_location('Employer '||l_org_index||g_employer_list(g_org_list(l_org_index).org_id).gre_org_id, 10);
5994: END IF;
5995: CLOSE csr_tax_org;
5996: l_org_index:=g_org_list.NEXT(l_org_index);
5997: END LOOP;
6036: -- Derive the effective date
6037: l_effective_date := Least(g_extract_params(i).extract_end_date,
6038: p_effective_date);
6039:
6040: Hr_Utility.set_location('..Processing Assig Id : '||p_assignment_id, 17);
6041: Hr_Utility.set_location('..Processing Person Id : '||g_person_id, 17);
6042: Hr_Utility.set_location('..Processing Eff.Date : '||p_effective_date, 17);
6043: -- Get the list of employers (HR Orgs) in the current hierarchy.
6044: -- Store this value in a PL/SQL Table.
6037: l_effective_date := Least(g_extract_params(i).extract_end_date,
6038: p_effective_date);
6039:
6040: Hr_Utility.set_location('..Processing Assig Id : '||p_assignment_id, 17);
6041: Hr_Utility.set_location('..Processing Person Id : '||g_person_id, 17);
6042: Hr_Utility.set_location('..Processing Eff.Date : '||p_effective_date, 17);
6043: -- Get the list of employers (HR Orgs) in the current hierarchy.
6044: -- Store this value in a PL/SQL Table.
6045: -- Check if the assignments need to be processed. Assignments are
6038: p_effective_date);
6039:
6040: Hr_Utility.set_location('..Processing Assig Id : '||p_assignment_id, 17);
6041: Hr_Utility.set_location('..Processing Person Id : '||g_person_id, 17);
6042: Hr_Utility.set_location('..Processing Eff.Date : '||p_effective_date, 17);
6043: -- Get the list of employers (HR Orgs) in the current hierarchy.
6044: -- Store this value in a PL/SQL Table.
6045: -- Check if the assignments need to be processed. Assignments are
6046: -- processed if
6243: ELSE
6244: CLOSE csr_asg_act;
6245: p_error_message := 'Payroll or QuickPay is not processed for this assignment.';
6246: END IF;
6247: Hr_Utility.set_location('..Valid Assig Id : '||p_assignment_id, 79);
6248:
6249: IF l_assig_rec.primary_flag = 'Y' THEN
6250: --
6251: -- Populate the PL/SQL structures with data like contribution
6261:
6262:
6263: END IF; -- if l_return_value = 'Y'
6264:
6265: Hr_Utility.set_location('l_return_value : '||l_return_value, 79);
6266: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
6267: RETURN l_return_value;
6268:
6269: END Pension_Criteria_Full_Profile;
6262:
6263: END IF; -- if l_return_value = 'Y'
6264:
6265: Hr_Utility.set_location('l_return_value : '||l_return_value, 79);
6266: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
6267: RETURN l_return_value;
6268:
6269: END Pension_Criteria_Full_Profile;
6270:
6290: l_asg_type per_all_assignments_f.assignment_type%TYPE;
6291: l_person_id per_all_people_f.person_id%TYPE;
6292: l_assignment_id per_all_assignments_f.assignment_id%TYPE;
6293: BEGIN
6294: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6295: i := p_business_group_id;
6296:
6297: IF NOT g_primary_assig.EXISTS(p_assignment_id) THEN
6298: l_return_value := 'NOTFOUND';
6295: i := p_business_group_id;
6296:
6297: IF NOT g_primary_assig.EXISTS(p_assignment_id) THEN
6298: l_return_value := 'NOTFOUND';
6299: Hr_Utility.set_location('..Not a Valid assignment: '||p_assignment_id, 6);
6300: RETURN l_return_value;
6301: ELSIF g_primary_assig(p_assignment_id).assignment_type IN ('B','E') THEN
6302: Hr_Utility.set_location('..Valid Assignment Type B : '||p_assignment_id, 6);
6303: l_person_id := g_primary_assig(p_assignment_id).person_id;
6298: l_return_value := 'NOTFOUND';
6299: Hr_Utility.set_location('..Not a Valid assignment: '||p_assignment_id, 6);
6300: RETURN l_return_value;
6301: ELSIF g_primary_assig(p_assignment_id).assignment_type IN ('B','E') THEN
6302: Hr_Utility.set_location('..Valid Assignment Type B : '||p_assignment_id, 6);
6303: l_person_id := g_primary_assig(p_assignment_id).person_id;
6304: l_asg_type := g_primary_assig(p_assignment_id).assignment_type;
6305: -- Check if there are any other assignments which might be active within the
6306: -- specified extract date range
6314: l_sec_assg_rec := sec_asg_rec;
6315: l_criteria_value := 'N';
6316: l_effective_date := Least(g_extract_params(i).extract_end_date,
6317: l_sec_assg_rec.effective_end_date);
6318: Hr_Utility.set_location('..Checking for assignment id: '||
6319: l_sec_assg_rec.assignment_id, 7);
6320: Hr_Utility.set_location('..p_effective_date : '||l_effective_date, 7);
6321: -- Call the main criteria function for this assignment to check if its a
6322: -- valid assignment that can be reported based on the criteria specified.
6316: l_effective_date := Least(g_extract_params(i).extract_end_date,
6317: l_sec_assg_rec.effective_end_date);
6318: Hr_Utility.set_location('..Checking for assignment id: '||
6319: l_sec_assg_rec.assignment_id, 7);
6320: Hr_Utility.set_location('..p_effective_date : '||l_effective_date, 7);
6321: -- Call the main criteria function for this assignment to check if its a
6322: -- valid assignment that can be reported based on the criteria specified.
6323: l_criteria_value := Pension_Criteria_Full_Profile
6324: (p_assignment_id => l_sec_assg_rec.assignment_id
6331: l_return_value := 'FOUND';
6332: END IF;
6333: END LOOP; -- FOR sec_asg_rec
6334: END IF;
6335: Hr_Utility.set_location('..Assignment Count : '||g_primary_assig.Count, 7);
6336: Hr_Utility.set_location('..l_person_id : '||l_person_id, 7);
6337: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6338: RETURN l_return_value;
6339: EXCEPTION
6332: END IF;
6333: END LOOP; -- FOR sec_asg_rec
6334: END IF;
6335: Hr_Utility.set_location('..Assignment Count : '||g_primary_assig.Count, 7);
6336: Hr_Utility.set_location('..l_person_id : '||l_person_id, 7);
6337: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6338: RETURN l_return_value;
6339: EXCEPTION
6340: WHEN Others THEN
6333: END LOOP; -- FOR sec_asg_rec
6334: END IF;
6335: Hr_Utility.set_location('..Assignment Count : '||g_primary_assig.Count, 7);
6336: Hr_Utility.set_location('..l_person_id : '||l_person_id, 7);
6337: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6338: RETURN l_return_value;
6339: EXCEPTION
6340: WHEN Others THEN
6341: p_error_message :='SQL-ERRM :'||SQLERRM;
6338: RETURN l_return_value;
6339: EXCEPTION
6340: WHEN Others THEN
6341: p_error_message :='SQL-ERRM :'||SQLERRM;
6342: Hr_Utility.set_location('..'||p_error_message,85);
6343: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6344: RETURN l_return_value;
6345: END Check_Addl_Assigs;
6346:
6339: EXCEPTION
6340: WHEN Others THEN
6341: p_error_message :='SQL-ERRM :'||SQLERRM;
6342: Hr_Utility.set_location('..'||p_error_message,85);
6343: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6344: RETURN l_return_value;
6345: END Check_Addl_Assigs;
6346:
6347: -- ====================================================================
6489: l_hire_dt DATE;
6490:
6491: BEGIN
6492:
6493: hr_utility.set_location('Entering: '||l_proc_name, 5);
6494:
6495: p_data_element_value := ' ';
6496: --
6497: -- Check if the EE assignment is a new hire
6505: ELSE
6506: p_data_element_value := 'W';
6507: END IF;
6508:
6509: hr_utility.set_location('p_data_element_value: '||p_data_element_value, 5);
6510: hr_utility.set_location('Leaving: '||l_proc_name, 5);
6511:
6512: RETURN 0 ;
6513:
6506: p_data_element_value := 'W';
6507: END IF;
6508:
6509: hr_utility.set_location('p_data_element_value: '||p_data_element_value, 5);
6510: hr_utility.set_location('Leaving: '||l_proc_name, 5);
6511:
6512: RETURN 0 ;
6513:
6514: EXCEPTION
6514: EXCEPTION
6515:
6516: WHEN OTHERS THEN
6517: p_error_message :='SQL-ERRM :'||SQLERRM;
6518: Hr_Utility.set_location('..'||p_error_message,85);
6519: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6520: RETURN -1;
6521:
6522: END GET_CHANGE_CD_PER;
6515:
6516: WHEN OTHERS THEN
6517: p_error_message :='SQL-ERRM :'||SQLERRM;
6518: Hr_Utility.set_location('..'||p_error_message,85);
6519: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6520: RETURN -1;
6521:
6522: END GET_CHANGE_CD_PER;
6523:
6546: l_return_value Number :=0;
6547:
6548: BEGIN
6549:
6550: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6551:
6552: OPEN cur_get_initials(g_person_id,p_date_earned);
6553: FETCH cur_get_initials INTO l_initials;
6554: CLOSE cur_get_initials;
6553: FETCH cur_get_initials INTO l_initials;
6554: CLOSE cur_get_initials;
6555:
6556: p_data_element_value := l_initials;
6557: Hr_Utility.set_location('Leaving: '||l_proc_name, 10);
6558: RETURN l_return_value;
6559:
6560: EXCEPTION
6561: WHEN Others THEN
6559:
6560: EXCEPTION
6561: WHEN Others THEN
6562: p_error_message :='SQL-ERRM :'||SQLERRM;
6563: Hr_Utility.set_location('..'||p_error_message,7);
6564: Hr_Utility.set_location('Leaving: '||l_proc_name, 9);
6565: l_return_value := -1;
6566: RETURN l_return_value;
6567: END Get_Person_Initials;
6560: EXCEPTION
6561: WHEN Others THEN
6562: p_error_message :='SQL-ERRM :'||SQLERRM;
6563: Hr_Utility.set_location('..'||p_error_message,7);
6564: Hr_Utility.set_location('Leaving: '||l_proc_name, 9);
6565: l_return_value := -1;
6566: RETURN l_return_value;
6567: END Get_Person_Initials;
6568:
6602: l_proc_name Varchar2(150) := g_proc_name ||'Get_Partner_Last_Name';
6603: l_return_value Number :=-1;
6604:
6605: BEGIN
6606: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6607:
6608: OPEN cur_last_partner_name(g_person_id,p_effective_date);
6609: FETCH cur_last_partner_name INTO l_last_partner_name;
6610: CLOSE cur_last_partner_name;
6610: CLOSE cur_last_partner_name;
6611:
6612: p_data_element_value := Upper(l_last_partner_name);
6613:
6614: Hr_Utility.set_location('Leaving: '||l_proc_name, 10);
6615: l_return_value :=0;
6616:
6617: RETURN l_return_value;
6618:
6618:
6619: EXCEPTION
6620: WHEN Others THEN
6621: p_error_message :='SQL-ERRM :'||SQLERRM;
6622: Hr_Utility.set_location('..'||p_error_message,7);
6623: Hr_Utility.set_location('Leaving: '||l_proc_name, 9);
6624: RETURN l_return_value;
6625: END Get_Partner_Last_Name;
6626:
6619: EXCEPTION
6620: WHEN Others THEN
6621: p_error_message :='SQL-ERRM :'||SQLERRM;
6622: Hr_Utility.set_location('..'||p_error_message,7);
6623: Hr_Utility.set_location('Leaving: '||l_proc_name, 9);
6624: RETURN l_return_value;
6625: END Get_Partner_Last_Name;
6626:
6627: -- =============================================================================
6647: l_gender Varchar2(2);
6648: l_return_value Number;
6649:
6650: BEGIN
6651: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6652: OPEN cur_get_gender(p_effective_date,p_business_group_id);
6653: FETCH cur_get_gender INTO l_gender;
6654: CLOSE cur_get_gender;
6655: p_data_element_value := l_gender;
6653: FETCH cur_get_gender INTO l_gender;
6654: CLOSE cur_get_gender;
6655: p_data_element_value := l_gender;
6656:
6657: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6658: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6659:
6660: l_return_value := 0;
6661: RETURN l_return_value;
6654: CLOSE cur_get_gender;
6655: p_data_element_value := l_gender;
6656:
6657: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6658: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6659:
6660: l_return_value := 0;
6661: RETURN l_return_value;
6662:
6662:
6663: EXCEPTION
6664: WHEN Others THEN
6665: p_error_message :='SQL-ERRM :'||SQLERRM;
6666: Hr_Utility.set_location('..'||p_error_message,85);
6667: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6668: l_return_value := -1;
6669: RETURN l_return_value;
6670: END Get_Gender;
6663: EXCEPTION
6664: WHEN Others THEN
6665: p_error_message :='SQL-ERRM :'||SQLERRM;
6666: Hr_Utility.set_location('..'||p_error_message,85);
6667: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6668: l_return_value := -1;
6669: RETURN l_return_value;
6670: END Get_Gender;
6671:
6706: l_return_value Number;
6707:
6708:
6709: BEGIN
6710: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6711: OPEN cur_partner_prefix(p_effective_date);
6712: FETCH cur_partner_prefix INTO l_partner_prefix;
6713: CLOSE cur_partner_prefix;
6714:
6712: FETCH cur_partner_prefix INTO l_partner_prefix;
6713: CLOSE cur_partner_prefix;
6714:
6715: p_data_element_value := Upper(l_partner_prefix);
6716: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6717: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6718: l_return_value := 0;
6719: RETURN l_return_value;
6720: EXCEPTION
6713: CLOSE cur_partner_prefix;
6714:
6715: p_data_element_value := Upper(l_partner_prefix);
6716: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6717: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6718: l_return_value := 0;
6719: RETURN l_return_value;
6720: EXCEPTION
6721: WHEN Others THEN
6719: RETURN l_return_value;
6720: EXCEPTION
6721: WHEN Others THEN
6722: p_error_message :='SQL-ERRM :'||SQLERRM;
6723: Hr_Utility.set_location('..'||p_error_message,85);
6724: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6725: l_return_value := -1;
6726: RETURN l_return_value;
6727: END Get_Partner_Prefix;
6720: EXCEPTION
6721: WHEN Others THEN
6722: p_error_message :='SQL-ERRM :'||SQLERRM;
6723: Hr_Utility.set_location('..'||p_error_message,85);
6724: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6725: l_return_value := -1;
6726: RETURN l_return_value;
6727: END Get_Partner_Prefix;
6728:
6748:
6749: l_proc_name Varchar2(150) := g_proc_name ||'Get_Add_Fem_EE';
6750:
6751: BEGIN
6752: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6753: p_data_element_value := ' ';
6754: FOR temp_rec IN cur_add_fem
6755: LOOP
6756: p_data_element_value := temp_rec.per_information13;
6754: FOR temp_rec IN cur_add_fem
6755: LOOP
6756: p_data_element_value := temp_rec.per_information13;
6757: END LOOP;
6758: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6759: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6760:
6761: RETURN 0;
6762:
6755: LOOP
6756: p_data_element_value := temp_rec.per_information13;
6757: END LOOP;
6758: Hr_Utility.set_location('p_data_element_value:'||p_data_element_value, 5);
6759: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6760:
6761: RETURN 0;
6762:
6763: EXCEPTION
6762:
6763: EXCEPTION
6764: WHEN Others THEN
6765: p_error_message :='SQL-ERRM :'||SQLERRM;
6766: Hr_Utility.set_location('..'||p_error_message,85);
6767: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6768: RETURN -1 ;
6769: END Get_Add_Fem_EE;
6770:
6763: EXCEPTION
6764: WHEN Others THEN
6765: p_error_message :='SQL-ERRM :'||SQLERRM;
6766: Hr_Utility.set_location('..'||p_error_message,85);
6767: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6768: RETURN -1 ;
6769: END Get_Add_Fem_EE;
6770:
6771: -- =============================================================================
6781:
6782: l_proc_name Varchar2(150) := g_proc_name ||'Get_EE_Num';
6783: l_per_ee_num per_all_people_f.employee_number%TYPE;
6784: BEGIN
6785: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6786: IF g_primary_assig.EXISTS(p_assignment_id) THEN
6787: l_per_ee_num := g_primary_assig(p_assignment_id).ee_num;
6788: END IF;
6789: p_data_element_value := Nvl(l_per_ee_num,'000000000000000');
6786: IF g_primary_assig.EXISTS(p_assignment_id) THEN
6787: l_per_ee_num := g_primary_assig(p_assignment_id).ee_num;
6788: END IF;
6789: p_data_element_value := Nvl(l_per_ee_num,'000000000000000');
6790: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6791: RETURN 0;
6792:
6793: EXCEPTION
6794: WHEN Others THEN
6792:
6793: EXCEPTION
6794: WHEN Others THEN
6795: p_error_message :='SQL-ERRM :'||SQLERRM;
6796: Hr_Utility.set_location('..'||p_error_message,85);
6797: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6798: RETURN -1;
6799: END Get_EE_Num;
6800:
6793: EXCEPTION
6794: WHEN Others THEN
6795: p_error_message :='SQL-ERRM :'||SQLERRM;
6796: Hr_Utility.set_location('..'||p_error_message,85);
6797: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6798: RETURN -1;
6799: END Get_EE_Num;
6800:
6801: -- =============================================================================
6819: l_old_asg_seq_num VARCHAR2(2);
6820:
6821: BEGIN
6822:
6823: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6824:
6825: OPEN c_get_old_num;
6826: FETCH c_get_old_num INTO l_old_asg_seq_num;
6827: CLOSE c_get_old_num;
6827: CLOSE c_get_old_num;
6828:
6829: p_data_element_value := UPPER(Nvl(l_old_asg_seq_num,'00'));
6830:
6831: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
6832:
6833: RETURN 0;
6834:
6835: EXCEPTION
6834:
6835: EXCEPTION
6836: WHEN Others THEN
6837: p_error_message :='SQL-ERRM :'||SQLERRM;
6838: Hr_Utility.set_location('..'||p_error_message,85);
6839: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6840: RETURN -1;
6841: END Get_Old_Asg_Seq_Num;
6842:
6835: EXCEPTION
6836: WHEN Others THEN
6837: p_error_message :='SQL-ERRM :'||SQLERRM;
6838: Hr_Utility.set_location('..'||p_error_message,85);
6839: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
6840: RETURN -1;
6841: END Get_Old_Asg_Seq_Num;
6842:
6843: -- =============================================================================
6924:
6925:
6926: BEGIN
6927:
6928: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
6929:
6930: OPEN csr_get_org_id;
6931: FETCH csr_get_org_id INTO l_org_id;
6932: CLOSE csr_get_org_id ;
6930: OPEN csr_get_org_id;
6931: FETCH csr_get_org_id INTO l_org_id;
6932: CLOSE csr_get_org_id ;
6933:
6934: Hr_Utility.set_location('l_org_id: '||l_org_id, 5);
6935:
6936: --
6937: -- Fetch the values for old and new ER nums
6938: --
6962: --
6963: -- Value not found at this org level,traverse up the
6964: -- org hierarchy to find a value at the parent level
6965: --
6966: hr_utility.set_location('....No value found at HR org level,searching up the tree',40);
6967: --
6968: -- Check to see if a named hierarchy exists for the BG
6969: --
6970: OPEN c_find_named_hierarchy;
7008: FETCH c_find_ver_frm_bg INTO l_version_id;
7009: CLOSE c_find_ver_frm_bg;
7010: END IF; -- end of if named hierarchy found
7011:
7012: hr_utility.set_location(' l_version_id '||l_version_id,50);
7013:
7014: IF l_version_id IS NULL THEN
7015: --
7016: -- No hierarchy has been defined, so return 00000
7014: IF l_version_id IS NULL THEN
7015: --
7016: -- No hierarchy has been defined, so return 00000
7017: --
7018: hr_utility.set_location('No hierarchy found,hence returning 0',60);
7019: hr_utility.set_location('Leaving get_abp_er_num',65);
7020: p_data_element_value := '';
7021: RETURN 0;
7022: END IF;
7015: --
7016: -- No hierarchy has been defined, so return 00000
7017: --
7018: hr_utility.set_location('No hierarchy found,hence returning 0',60);
7019: hr_utility.set_location('Leaving get_abp_er_num',65);
7020: p_data_element_value := '';
7021: RETURN 0;
7022: END IF;
7023: --
7032: --
7033: OPEN c_find_parent_id(l_org_id,l_version_id);
7034: FETCH c_find_parent_id INTO l_org_id;
7035: IF c_find_parent_id%FOUND THEN
7036: hr_utility.set_location('searching at parent : '||l_org_id,70);
7037: CLOSE c_find_parent_id;
7038: OPEN csr_get_er_num(l_org_id);
7039: FETCH csr_get_er_num INTO l_old_er_num,l_new_er_num;
7040: IF csr_get_er_num%FOUND THEN
7061: --
7062: -- No parent found, so return 0
7063: --
7064: CLOSE c_find_parent_id;
7065: hr_utility.set_location('no parents found,returning 0',90);
7066: p_data_element_value := '';
7067: l_loop_again := 0;
7068: l_ret_val := 0;
7069: END IF;
7069: END IF;
7070: END LOOP;
7071: END IF;
7072:
7073: Hr_Utility.set_location('....Old ER Num : '||l_old_er_num,10);
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7070: END LOOP;
7071: END IF;
7072:
7073: Hr_Utility.set_location('....Old ER Num : '||l_old_er_num,10);
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7078: Hr_Utility.set_location(' Leaving: '||l_proc_name,50);
7071: END IF;
7072:
7073: Hr_Utility.set_location('....Old ER Num : '||l_old_er_num,10);
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7078: Hr_Utility.set_location(' Leaving: '||l_proc_name,50);
7079:
7072:
7073: Hr_Utility.set_location('....Old ER Num : '||l_old_er_num,10);
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7078: Hr_Utility.set_location(' Leaving: '||l_proc_name,50);
7079:
7080: RETURN l_ret_val;
7073: Hr_Utility.set_location('....Old ER Num : '||l_old_er_num,10);
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7078: Hr_Utility.set_location(' Leaving: '||l_proc_name,50);
7079:
7080: RETURN l_ret_val;
7081:
7074: Hr_Utility.set_location('....New ER Num : '||l_new_er_num,15);
7075: Hr_Utility.set_location('...p_data_element_value '||p_data_element_value,20);
7076: Hr_Utility.set_location('...p_error_message '||p_error_message,25);
7077: Hr_Utility.set_location('...l_ret_val '||l_ret_val ,30);
7078: Hr_Utility.set_location(' Leaving: '||l_proc_name,50);
7079:
7080: RETURN l_ret_val;
7081:
7082: EXCEPTION
7081:
7082: EXCEPTION
7083: WHEN OTHERS THEN
7084: p_error_message :='SQL-ERRM :'||SQLERRM;
7085: Hr_Utility.set_location('..'||p_error_message,85);
7086: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7087: RETURN l_ret_val;
7088: END GET_ABP_ER_NUM;
7089:
7082: EXCEPTION
7083: WHEN OTHERS THEN
7084: p_error_message :='SQL-ERRM :'||SQLERRM;
7085: Hr_Utility.set_location('..'||p_error_message,85);
7086: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7087: RETURN l_ret_val;
7088: END GET_ABP_ER_NUM;
7089:
7090: -- =============================================================================
7112: l_ret_val NUMBER := 0;
7113:
7114:
7115: BEGIN
7116: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7117:
7118: --
7119: -- get the values for old EE num
7120: --
7125: p_data_element_value := UPPER(NVL(l_old_ee_num,'000000000000000'));
7126:
7127: l_ret_val := 0;
7128:
7129: Hr_Utility.set_location(' p_data_element_value ' || p_data_element_value , 20);
7130: Hr_Utility.set_location('Leaving: '||l_proc_name, 50);
7131:
7132: RETURN l_ret_val;
7133:
7126:
7127: l_ret_val := 0;
7128:
7129: Hr_Utility.set_location(' p_data_element_value ' || p_data_element_value , 20);
7130: Hr_Utility.set_location('Leaving: '||l_proc_name, 50);
7131:
7132: RETURN l_ret_val;
7133:
7134: EXCEPTION
7134: EXCEPTION
7135:
7136: WHEN Others THEN
7137: p_error_message :='SQL-ERRM :'||SQLERRM;
7138: Hr_Utility.set_location('..'||p_error_message,85);
7139: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7140: RETURN -1;
7141:
7142: END GET_OLD_EE_NUM;
7135:
7136: WHEN Others THEN
7137: p_error_message :='SQL-ERRM :'||SQLERRM;
7138: Hr_Utility.set_location('..'||p_error_message,85);
7139: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7140: RETURN -1;
7141:
7142: END GET_OLD_EE_NUM;
7143:
7157: l_hire_dt DATE;
7158:
7159: BEGIN
7160:
7161: hr_utility.set_location('Entering: '||l_proc_name, 5);
7162:
7163: p_data_element_value := ' ';
7164:
7165: --
7173: ELSE
7174: p_data_element_value := 'W';
7175: END IF;
7176:
7177: hr_utility.set_location('p_data_element_value: '||p_data_element_value, 5);
7178: hr_utility.set_location('Leaving: '||l_proc_name, 5);
7179:
7180: RETURN 0 ;
7181:
7174: p_data_element_value := 'W';
7175: END IF;
7176:
7177: hr_utility.set_location('p_data_element_value: '||p_data_element_value, 5);
7178: hr_utility.set_location('Leaving: '||l_proc_name, 5);
7179:
7180: RETURN 0 ;
7181:
7182: EXCEPTION
7181:
7182: EXCEPTION
7183: WHEN OTHERS THEN
7184: p_error_message :='SQL-ERRM :'||SQLERRM;
7185: hr_utility.set_location('..'||p_error_message,85);
7186: hr_utility.set_location('Leaving: '||l_proc_name, 90);
7187: RETURN -1 ;
7188: END Get_Change_CD_Addr;
7189:
7182: EXCEPTION
7183: WHEN OTHERS THEN
7184: p_error_message :='SQL-ERRM :'||SQLERRM;
7185: hr_utility.set_location('..'||p_error_message,85);
7186: hr_utility.set_location('Leaving: '||l_proc_name, 90);
7187: RETURN -1 ;
7188: END Get_Change_CD_Addr;
7189:
7190: -- =============================================================================
7219: l_street per_addresses_v.region_1%TYPE;
7220: l_proc_name Varchar2(150) := g_proc_name ||'Get_Street';
7221:
7222: BEGIN
7223: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7224:
7225: OPEN cur_get_street(g_person_id);
7226: FETCH cur_get_street INTO l_street;
7227: CLOSE cur_get_street;
7226: FETCH cur_get_street INTO l_street;
7227: CLOSE cur_get_street;
7228:
7229: p_data_element_value := Upper(l_street);
7230: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7231: RETURN 0;
7232:
7233: EXCEPTION
7234: WHEN Others THEN
7232:
7233: EXCEPTION
7234: WHEN Others THEN
7235: p_error_message :='SQL-ERRM :'||SQLERRM;
7236: Hr_Utility.set_location('..'||p_error_message,85);
7237: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7238: RETURN -1;
7239: END Get_Street;
7240:
7233: EXCEPTION
7234: WHEN Others THEN
7235: p_error_message :='SQL-ERRM :'||SQLERRM;
7236: Hr_Utility.set_location('..'||p_error_message,85);
7237: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7238: RETURN -1;
7239: END Get_Street;
7240:
7241: -- =============================================================================
7271: l_ret_val Number := -1;
7272:
7273: BEGIN
7274:
7275: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7276:
7277: OPEN cur_get_house_num(g_person_id);
7278: FETCH cur_get_house_num INTO l_house_num;
7279: CLOSE cur_get_house_num;
7280:
7281: p_data_element_value := Upper(l_house_num);
7282: l_ret_val :=0;
7283:
7284: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7285: RETURN l_ret_val;
7286:
7287: EXCEPTION
7288: WHEN Others THEN
7286:
7287: EXCEPTION
7288: WHEN Others THEN
7289: p_error_message :='SQL-ERRM :'||SQLERRM;
7290: Hr_Utility.set_location('..'||p_error_message,85);
7291: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7292: RETURN l_ret_val;
7293: END Get_House_Num;
7294:
7287: EXCEPTION
7288: WHEN Others THEN
7289: p_error_message :='SQL-ERRM :'||SQLERRM;
7290: Hr_Utility.set_location('..'||p_error_message,85);
7291: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7292: RETURN l_ret_val;
7293: END Get_House_Num;
7294:
7295: -- =============================================================================
7326: l_ret_val Number := -1;
7327:
7328: BEGIN
7329:
7330: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7331:
7332: OPEN cur_get_addl_house_num(g_person_id);
7333: FETCH cur_get_addl_house_num INTO l_addl_house_num;
7334: CLOSE cur_get_addl_house_num;
7335:
7336: p_data_element_value := Upper(l_addl_house_num);
7337: l_ret_val :=0;
7338:
7339: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7340: RETURN l_ret_val;
7341:
7342: EXCEPTION
7343: WHEN Others THEN
7341:
7342: EXCEPTION
7343: WHEN Others THEN
7344: p_error_message :='SQL-ERRM :'||SQLERRM;
7345: Hr_Utility.set_location('..'||p_error_message,85);
7346: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7347: RETURN l_ret_val;
7348: END Get_Addnl_House_Num;
7349:
7342: EXCEPTION
7343: WHEN Others THEN
7344: p_error_message :='SQL-ERRM :'||SQLERRM;
7345: Hr_Utility.set_location('..'||p_error_message,85);
7346: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7347: RETURN l_ret_val;
7348: END Get_Addnl_House_Num;
7349:
7350: -- =============================================================================
7375: l_proc_name Varchar2(150) := g_proc_name ||'Get_Postal_Code';
7376: l_ret_val Number := -1;
7377:
7378: BEGIN
7379: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7380: OPEN cur_get_postal_code(g_person_id);
7381: FETCH cur_get_postal_code INTO l_postal_code;
7382: IF cur_get_postal_code%FOUND THEN
7383: CLOSE cur_get_postal_code;
7395: CLOSE cur_get_postal_code;
7396: p_data_element_value := '';
7397: END IF;
7398: l_ret_val :=0;
7399: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7400: RETURN l_ret_val;
7401:
7402: EXCEPTION
7403: WHEN Others THEN
7401:
7402: EXCEPTION
7403: WHEN Others THEN
7404: p_error_message :='SQL-ERRM :'||SQLERRM;
7405: Hr_Utility.set_location('..'||p_error_message,85);
7406: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7407: RETURN l_ret_val;
7408: END Get_Postal_Code;
7409:
7402: EXCEPTION
7403: WHEN Others THEN
7404: p_error_message :='SQL-ERRM :'||SQLERRM;
7405: Hr_Utility.set_location('..'||p_error_message,85);
7406: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7407: RETURN l_ret_val;
7408: END Get_Postal_Code;
7409:
7410: -- =============================================================================
7453: l_proc_name Varchar2(150) := g_proc_name ||'Get_Postal_Code';
7454: l_ret_val Number := -1;
7455:
7456: BEGIN
7457: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7458:
7459: OPEN cur_get_city(g_person_id);
7460: FETCH cur_get_city INTO l_city;
7461: CLOSE cur_get_city;
7479: END IF;
7480:
7481: l_ret_val :=0;
7482:
7483: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7484: RETURN l_ret_val;
7485:
7486: EXCEPTION
7487: WHEN Others THEN
7485:
7486: EXCEPTION
7487: WHEN Others THEN
7488: p_error_message :='SQL-ERRM :'||SQLERRM;
7489: Hr_Utility.set_location('..'||p_error_message,85);
7490: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7491: RETURN l_ret_val;
7492: END Get_City;
7493:
7486: EXCEPTION
7487: WHEN Others THEN
7488: p_error_message :='SQL-ERRM :'||SQLERRM;
7489: Hr_Utility.set_location('..'||p_error_message,85);
7490: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7491: RETURN l_ret_val;
7492: END Get_City;
7493:
7494: -- =============================================================================
7515: l_proc_name Varchar2(150) := g_proc_name ||'Get_Foreign_Country';
7516: l_ret_val Number := 0;
7517:
7518: BEGIN
7519: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7520: OPEN cur_get_foreign_coun(g_person_id);
7521: FETCH cur_get_foreign_coun INTO l_country;
7522: CLOSE cur_get_foreign_coun;
7523:
7522: CLOSE cur_get_foreign_coun;
7523:
7524: p_data_element_value := l_country;
7525: l_ret_val :=0;
7526: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7527: RETURN l_ret_val;
7528:
7529: EXCEPTION
7530: WHEN Others THEN
7528:
7529: EXCEPTION
7530: WHEN Others THEN
7531: p_error_message :='SQL-ERRM :'||SQLERRM;
7532: Hr_Utility.set_location('..'||p_error_message,85);
7533: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7534: RETURN -1 ;
7535: END Get_Foreign_Country;
7536:
7529: EXCEPTION
7530: WHEN Others THEN
7531: p_error_message :='SQL-ERRM :'||SQLERRM;
7532: Hr_Utility.set_location('..'||p_error_message,85);
7533: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7534: RETURN -1 ;
7535: END Get_Foreign_Country;
7536:
7537: -- =============================================================================
7576: l_proc_name VARCHAR2(150) := g_proc_name ||'Get_Marital_Status';
7577: l_ret_val NUMBER := -1;
7578:
7579: BEGIN
7580: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
7581:
7582: OPEN cur_get_foreign_coun(g_person_id);
7583: FETCH cur_get_foreign_coun INTO l_native;
7584: CLOSE cur_get_foreign_coun;
7592: p_data_element_value := ' ';
7593: END IF;
7594:
7595: l_ret_val :=0;
7596: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
7597:
7598: RETURN l_ret_val;
7599:
7600: EXCEPTION
7599:
7600: EXCEPTION
7601: WHEN Others THEN
7602: p_error_message :='SQL-ERRM :'||SQLERRM;
7603: Hr_Utility.set_location('..'||p_error_message,85);
7604: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7605: RETURN l_ret_val;
7606: END Get_Marital_Status;
7607:
7600: EXCEPTION
7601: WHEN Others THEN
7602: p_error_message :='SQL-ERRM :'||SQLERRM;
7603: Hr_Utility.set_location('..'||p_error_message,85);
7604: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7605: RETURN l_ret_val;
7606: END Get_Marital_Status;
7607:
7608: -- =============================================================================
7643: l_dim_name VARCHAR2(100);
7644:
7645: BEGIN
7646:
7647: Hr_Utility.set_location(' Entering ' || l_proc_name,5);
7648: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id,6);
7649: Hr_Utility.set_location(' p_balance_name ' || p_balance_name,7);
7650: Hr_Utility.set_location(' p_effective_date ' || p_effective_date,7);
7651: Hr_Utility.set_location(' p_asg_act ' || p_asg_act,7);
7644:
7645: BEGIN
7646:
7647: Hr_Utility.set_location(' Entering ' || l_proc_name,5);
7648: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id,6);
7649: Hr_Utility.set_location(' p_balance_name ' || p_balance_name,7);
7650: Hr_Utility.set_location(' p_effective_date ' || p_effective_date,7);
7651: Hr_Utility.set_location(' p_asg_act ' || p_asg_act,7);
7652:
7645: BEGIN
7646:
7647: Hr_Utility.set_location(' Entering ' || l_proc_name,5);
7648: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id,6);
7649: Hr_Utility.set_location(' p_balance_name ' || p_balance_name,7);
7650: Hr_Utility.set_location(' p_effective_date ' || p_effective_date,7);
7651: Hr_Utility.set_location(' p_asg_act ' || p_asg_act,7);
7652:
7653: --
7646:
7647: Hr_Utility.set_location(' Entering ' || l_proc_name,5);
7648: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id,6);
7649: Hr_Utility.set_location(' p_balance_name ' || p_balance_name,7);
7650: Hr_Utility.set_location(' p_effective_date ' || p_effective_date,7);
7651: Hr_Utility.set_location(' p_asg_act ' || p_asg_act,7);
7652:
7653: --
7654: -- Fetch the overridden value if there is any override at the ASG EIT
7647: Hr_Utility.set_location(' Entering ' || l_proc_name,5);
7648: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id,6);
7649: Hr_Utility.set_location(' p_balance_name ' || p_balance_name,7);
7650: Hr_Utility.set_location(' p_effective_date ' || p_effective_date,7);
7651: Hr_Utility.set_location(' p_asg_act ' || p_asg_act,7);
7652:
7653: --
7654: -- Fetch the overridden value if there is any override at the ASG EIT
7655: --
7656: OPEN c_get_override_salary;
7657: FETCH c_get_override_salary INTO l_override_value,l_eff_dt;
7658: IF c_get_override_salary%FOUND THEN
7659: CLOSE c_get_override_salary;
7660: hr_utility.set_location(' Found Override at ASG Level ', 25);
7661: p_data_element_value := l_override_value;
7662: RETURN 0;
7663: ELSE
7664: CLOSE c_get_override_salary;
7669: --
7670: IF Chk_Asg_Late_Hire (p_assignment_id => p_assignment_id
7671: ,p_business_group_id => p_business_group_id) THEN
7672: l_dim_name := 'NL Assignment ABP Year To Date Dimension';
7673: hr_utility.set_location(' Asg is late hire ', 25);
7674: ELSE
7675: l_dim_name := 'Assignment Year To Date';
7676: hr_utility.set_location(' Asg is not a late hire ', 25);
7677: END IF;
7672: l_dim_name := 'NL Assignment ABP Year To Date Dimension';
7673: hr_utility.set_location(' Asg is late hire ', 25);
7674: ELSE
7675: l_dim_name := 'Assignment Year To Date';
7676: hr_utility.set_location(' Asg is not a late hire ', 25);
7677: END IF;
7678:
7679: OPEN csr_defined_bal(p_balance_name
7680: ,l_dim_name
7681: ,p_business_group_id);
7682: FETCH csr_defined_bal INTO l_balance_id;
7683: CLOSE csr_defined_bal;
7684:
7685: Hr_Utility.set_location(' l_balance_id ' || l_balance_id , 15);
7686:
7687: IF l_balance_id IS NOT NULL THEN
7688:
7689: IF p_asg_act <> - 1 THEN
7689: IF p_asg_act <> - 1 THEN
7690: l_balance_amount := Pay_Balance_Pkg.get_value
7691: (p_defined_balance_id => l_balance_id
7692: ,p_assignment_action_id => p_asg_act);
7693: Hr_Utility.set_location(' l_balance_amount ' || l_balance_amount , 25);
7694: l_balance_amount := NVL(l_balance_amount,0);
7695: p_data_element_value :=
7696: Fnd_Number.number_to_canonical(l_balance_amount);
7697: l_ret_val := 0;
7696: Fnd_Number.number_to_canonical(l_balance_amount);
7697: l_ret_val := 0;
7698: ELSIF p_asg_act = - 1 THEN
7699:
7700: Hr_Utility.set_location(' l_asg_action_id ' || l_asg_action_id , 20);
7701: Hr_Utility.set_location(' l_eff_dt ' || l_eff_dt , 22);
7702: OPEN csr_asg_act1 (
7703: c_assignment_id => p_assignment_id
7704: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
7697: l_ret_val := 0;
7698: ELSIF p_asg_act = - 1 THEN
7699:
7700: Hr_Utility.set_location(' l_asg_action_id ' || l_asg_action_id , 20);
7701: Hr_Utility.set_location(' l_eff_dt ' || l_eff_dt , 22);
7702: OPEN csr_asg_act1 (
7703: c_assignment_id => p_assignment_id
7704: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
7705: ,c_con_set_id => NULL
7711: IF l_asg_action_id IS NOT NULL THEN
7712: l_balance_amount := Pay_Balance_Pkg.get_value
7713: (p_defined_balance_id => l_balance_id
7714: ,p_assignment_action_id => l_asg_action_id);
7715: Hr_Utility.set_location(' l_balance_amount ' || l_balance_amount , 25);
7716: l_balance_amount := NVL(l_balance_amount,0);
7717: p_data_element_value :=
7718: Fnd_Number.number_to_canonical(l_balance_amount);
7719: l_ret_val := 0;
7721:
7722: END IF;
7723: END IF;
7724:
7725: Hr_Utility.set_location(' p_data_element_value ' || p_data_element_value , 30);
7726: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 40);
7727: Hr_Utility.set_location(' Leaving ' || l_proc_name , 50);
7728:
7729: RETURN l_ret_val;
7722: END IF;
7723: END IF;
7724:
7725: Hr_Utility.set_location(' p_data_element_value ' || p_data_element_value , 30);
7726: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 40);
7727: Hr_Utility.set_location(' Leaving ' || l_proc_name , 50);
7728:
7729: RETURN l_ret_val;
7730:
7723: END IF;
7724:
7725: Hr_Utility.set_location(' p_data_element_value ' || p_data_element_value , 30);
7726: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 40);
7727: Hr_Utility.set_location(' Leaving ' || l_proc_name , 50);
7728:
7729: RETURN l_ret_val;
7730:
7731: EXCEPTION WHEN Others THEN
7729: RETURN l_ret_val;
7730:
7731: EXCEPTION WHEN Others THEN
7732: p_error_message :='SQL-ERRM :'||SQLERRM;
7733: Hr_Utility.set_location('..'||p_error_message,85);
7734: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7735: RETURN l_ret_val;
7736:
7737: END Get_Pension_Salary;
7730:
7731: EXCEPTION WHEN Others THEN
7732: p_error_message :='SQL-ERRM :'||SQLERRM;
7733: Hr_Utility.set_location('..'||p_error_message,85);
7734: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7735: RETURN l_ret_val;
7736:
7737: END Get_Pension_Salary;
7738:
7751: j Number;
7752:
7753: BEGIN
7754:
7755: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
7756: IF p_record_number = 12 THEN
7757: IF l_rec_12_values.count > 0 THEN
7758: j := l_rec_12_values.FIRST;
7759: IF l_rec_12_values.EXISTS(j) THEN
7771: END IF;
7772: END IF;
7773: RETURN 0;
7774:
7775: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7776: EXCEPTION
7777: WHEN Others THEN
7778: p_error_message :='SQL-ERRM :'||SQLERRM;
7779: Hr_Utility.set_location('..'||p_error_message,85);
7775: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7776: EXCEPTION
7777: WHEN Others THEN
7778: p_error_message :='SQL-ERRM :'||SQLERRM;
7779: Hr_Utility.set_location('..'||p_error_message,85);
7780: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7781: RETURN -1 ;
7782: END Get_Contribution_Amount;
7783:
7776: EXCEPTION
7777: WHEN Others THEN
7778: p_error_message :='SQL-ERRM :'||SQLERRM;
7779: Hr_Utility.set_location('..'||p_error_message,85);
7780: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7781: RETURN -1 ;
7782: END Get_Contribution_Amount;
7783:
7784: -- =============================================================================
7797: l_proc_name Varchar2(150) := g_proc_name ||'Get_Sub_Cat_12';
7798: j Number;
7799:
7800: BEGIN
7801: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
7802: IF l_rec_12_values.count > 0 THEN
7803: j := l_rec_12_values.FIRST;
7804: p_data_element_value := lpad(l_rec_12_values(j).code,2,'0');
7805: END IF;
7805: END IF;
7806:
7807: RETURN 0;
7808:
7809: Hr_Utility.set_location(' Leaving ' || l_proc_name , 80);
7810:
7811: EXCEPTION
7812: WHEN Others THEN
7813: p_error_message :='SQL-ERRM :'||SQLERRM;
7810:
7811: EXCEPTION
7812: WHEN Others THEN
7813: p_error_message :='SQL-ERRM :'||SQLERRM;
7814: Hr_Utility.set_location('..'||p_error_message,85);
7815: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7816: RETURN -1;
7817: END Get_Sub_Cat_12;
7818:
7811: EXCEPTION
7812: WHEN Others THEN
7813: p_error_message :='SQL-ERRM :'||SQLERRM;
7814: Hr_Utility.set_location('..'||p_error_message,85);
7815: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7816: RETURN -1;
7817: END Get_Sub_Cat_12;
7818:
7819: -- =============================================================================
7866: l_pen_part_start_dt DATE;
7867:
7868: BEGIN
7869:
7870: Hr_Utility.set_location(' Entering ' || l_proc_name , 5);
7871: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 6);
7872:
7873: OPEN cur_get_yr(p_effective_date);
7874: FETCH cur_get_yr INTO l_start_date_yr;
7867:
7868: BEGIN
7869:
7870: Hr_Utility.set_location(' Entering ' || l_proc_name , 5);
7871: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 6);
7872:
7873: OPEN cur_get_yr(p_effective_date);
7874: FETCH cur_get_yr INTO l_start_date_yr;
7875: CLOSE cur_get_yr;
7882: FETCH c_get_override_start_date INTO l_pen_part_start_dt;
7883:
7884: IF c_get_override_start_date%FOUND THEN
7885: CLOSE c_get_override_start_date;
7886: Hr_Utility.set_location(' l_pen_part_start_dt ' || l_pen_part_start_dt , 10);
7887: Hr_Utility.set_location('l_start_date_yr'||l_start_date_yr , 40);
7888:
7889: IF (l_pen_part_start_dt IS NOT NULL AND l_start_date_yr IS NOT NULL) THEN
7890:
7883:
7884: IF c_get_override_start_date%FOUND THEN
7885: CLOSE c_get_override_start_date;
7886: Hr_Utility.set_location(' l_pen_part_start_dt ' || l_pen_part_start_dt , 10);
7887: Hr_Utility.set_location('l_start_date_yr'||l_start_date_yr , 40);
7888:
7889: IF (l_pen_part_start_dt IS NOT NULL AND l_start_date_yr IS NOT NULL) THEN
7890:
7891: IF ( l_pen_part_start_dt > l_start_date_yr ) THEN
7894: ELSE
7895: p_data_element_value := Ben_Ext_Fmt.apply_format_mask
7896: (l_start_date_yr,'YYYYMMDD');
7897: END IF;
7898: Hr_Utility.set_location('p_data_element_value'||p_data_element_value,50);
7899: l_ret_val := 0;
7900: END IF;
7901:
7902: ELSE
7914:
7915: END IF;
7916: END IF;
7917:
7918: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 60);
7919: Hr_Utility.set_location(' p_data_element_value'||p_data_element_value , 70);
7920: Hr_Utility.set_location(' Leaving: '||l_proc_name, 80);
7921:
7922: RETURN l_ret_val ;
7915: END IF;
7916: END IF;
7917:
7918: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 60);
7919: Hr_Utility.set_location(' p_data_element_value'||p_data_element_value , 70);
7920: Hr_Utility.set_location(' Leaving: '||l_proc_name, 80);
7921:
7922: RETURN l_ret_val ;
7923:
7916: END IF;
7917:
7918: Hr_Utility.set_location(' l_ret_val ' || l_ret_val , 60);
7919: Hr_Utility.set_location(' p_data_element_value'||p_data_element_value , 70);
7920: Hr_Utility.set_location(' Leaving: '||l_proc_name, 80);
7921:
7922: RETURN l_ret_val ;
7923:
7924: EXCEPTION
7923:
7924: EXCEPTION
7925: WHEN OTHERS THEN
7926: p_error_message :='SQL-ERRM :'||SQLERRM;
7927: Hr_Utility.set_location('..'||p_error_message,85);
7928: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7929: RETURN l_ret_val;
7930: END Get_Pension_Start_Year;
7931:
7924: EXCEPTION
7925: WHEN OTHERS THEN
7926: p_error_message :='SQL-ERRM :'||SQLERRM;
7927: Hr_Utility.set_location('..'||p_error_message,85);
7928: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7929: RETURN l_ret_val;
7930: END Get_Pension_Start_Year;
7931:
7932:
7943: j number;
7944:
7945: BEGIN
7946:
7947: Hr_Utility.set_location(' Entering ' || l_proc_name , 05);
7948: IF p_record_number = 9 THEN
7949: IF l_rec_09_values.count > 0 THEN
7950: j := l_rec_09_values.FIRST;
7951: IF l_rec_09_values.EXISTS(j) THEN
7974: 'YYYY');
7975: ELSE
7976: p_data_element_value := '0000';
7977: END IF;
7978: Hr_Utility.set_location(' Leaving ' || l_proc_name , 25);
7979:
7980: RETURN 0;
7981:
7982: EXCEPTION
7981:
7982: EXCEPTION
7983: WHEN Others THEN
7984: p_error_message :='SQL-ERRM :'||SQLERRM;
7985: Hr_Utility.set_location('..'||p_error_message,85);
7986: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7987: RETURN -1;
7988: END Get_Pension_Basis_Year;
7989:
7982: EXCEPTION
7983: WHEN Others THEN
7984: p_error_message :='SQL-ERRM :'||SQLERRM;
7985: Hr_Utility.set_location('..'||p_error_message,85);
7986: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
7987: RETURN -1;
7988: END Get_Pension_Basis_Year;
7989:
7990: FUNCTION Get_Month_Contribution_Base
8000: j number;
8001:
8002: BEGIN
8003:
8004: Hr_Utility.set_location(' Entering ' || l_proc_name , 05);
8005: IF p_record_number = 9 THEN
8006: IF l_rec_09_values.count > 0 THEN
8007: j := l_rec_09_values.FIRST;
8008: IF l_rec_09_values.EXISTS(j) THEN
8033: 'MM');
8034: ELSE
8035: p_data_element_value := '00';
8036: END IF;
8037: Hr_Utility.set_location(' Leaving ' || l_proc_name , 25);
8038:
8039: RETURN 0;
8040:
8041: EXCEPTION
8040:
8041: EXCEPTION
8042: WHEN Others THEN
8043: p_error_message :='SQL-ERRM :'||SQLERRM;
8044: Hr_Utility.set_location('..'||p_error_message,85);
8045: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8046: RETURN -1;
8047:
8048: END Get_Month_Contribution_Base;
8041: EXCEPTION
8042: WHEN Others THEN
8043: p_error_message :='SQL-ERRM :'||SQLERRM;
8044: Hr_Utility.set_location('..'||p_error_message,85);
8045: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8046: RETURN -1;
8047:
8048: END Get_Month_Contribution_Base;
8049:
8060: j number;
8061:
8062: BEGIN
8063:
8064: Hr_Utility.set_location(' Entering ' || l_proc_name , 05);
8065: IF p_record_number = 12 THEN
8066: IF l_rec_12_values.count > 0 THEN
8067: j := l_rec_12_values.FIRST;
8068: IF l_rec_12_values.EXISTS(j) THEN
8090: END IF;
8091: END IF;
8092: END IF;
8093: END IF;
8094: Hr_Utility.set_location(' Leaving ' || l_proc_name , 25);
8095:
8096: RETURN 0;
8097:
8098: EXCEPTION
8097:
8098: EXCEPTION
8099: WHEN Others THEN
8100: p_error_message :='SQL-ERRM :'||SQLERRM;
8101: Hr_Utility.set_location('..'||p_error_message,85);
8102: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8103: RETURN -1;
8104: END Get_Year_Contribution_Amt;
8105:
8098: EXCEPTION
8099: WHEN Others THEN
8100: p_error_message :='SQL-ERRM :'||SQLERRM;
8101: Hr_Utility.set_location('..'||p_error_message,85);
8102: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8103: RETURN -1;
8104: END Get_Year_Contribution_Amt;
8105:
8106: FUNCTION Get_Month_Contribution_Amt
8116: j number;
8117:
8118: BEGIN
8119:
8120: Hr_Utility.set_location(' Entering ' || l_proc_name , 05);
8121: IF p_record_number = 12 THEN
8122: IF l_rec_12_values.count > 0 THEN
8123: j := l_rec_12_values.FIRST;
8124: IF l_rec_12_values.EXISTS(j) THEN
8148: l_rec_41_contrib_values.DELETE(j);
8149: END IF;
8150: END IF;
8151: END IF;
8152: Hr_Utility.set_location(' Leaving ' || l_proc_name , 25);
8153:
8154: RETURN 0;
8155:
8156: EXCEPTION
8155:
8156: EXCEPTION
8157: WHEN Others THEN
8158: p_error_message :='SQL-ERRM :'||SQLERRM;
8159: Hr_Utility.set_location('..'||p_error_message,85);
8160: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8161: RETURN -1;
8162:
8163: END Get_Month_Contribution_Amt;
8156: EXCEPTION
8157: WHEN Others THEN
8158: p_error_message :='SQL-ERRM :'||SQLERRM;
8159: Hr_Utility.set_location('..'||p_error_message,85);
8160: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8161: RETURN -1;
8162:
8163: END Get_Month_Contribution_Amt;
8164:
8184: l_data_ent NUMBER := 0;
8185:
8186: BEGIN
8187:
8188: hr_utility.set_location('Entering...'||l_proc_name,10);
8189: --
8190: -- Check if the assignment is attached to a payroll
8191: -- Check if ABP Pensions is processed
8192: --
8200: -- for this assignment. If the details are not
8201: -- entered, this is a new hire employee and the
8202: -- record does not have to be displayed
8203: --
8204: hr_utility.set_location('....Checking old EE info entry',50);
8205:
8206: OPEN c_data_entered;
8207: FETCH c_data_entered INTO l_data_ent;
8208: IF c_data_entered%FOUND THEN
8206: OPEN c_data_entered;
8207: FETCH c_data_entered INTO l_data_ent;
8208: IF c_data_entered%FOUND THEN
8209: l_data_ent := 1;
8210: hr_utility.set_location('....c_data_entered %FOUND',60);
8211: ELSIF c_data_entered%NOTFOUND THEN
8212: hr_utility.set_location('....c_data_entered %NOTFOUND',70);
8213: l_data_ent := 0;
8214: END IF;
8208: IF c_data_entered%FOUND THEN
8209: l_data_ent := 1;
8210: hr_utility.set_location('....c_data_entered %FOUND',60);
8211: ELSIF c_data_entered%NOTFOUND THEN
8212: hr_utility.set_location('....c_data_entered %NOTFOUND',70);
8213: l_data_ent := 0;
8214: END IF;
8215: CLOSE c_data_entered;
8216:
8213: l_data_ent := 0;
8214: END IF;
8215: CLOSE c_data_entered;
8216:
8217: hr_utility.set_location('....After Checking old EE entry',80);
8218: hr_utility.set_location('....Value of l_data_ent is -- '||l_data_ent,90);
8219:
8220: IF NVL(g_extract_params(p_business_group_id).extract_rec_01,'N') = 'Y'
8221: AND l_data_ent = 1 THEN
8214: END IF;
8215: CLOSE c_data_entered;
8216:
8217: hr_utility.set_location('....After Checking old EE entry',80);
8218: hr_utility.set_location('....Value of l_data_ent is -- '||l_data_ent,90);
8219:
8220: IF NVL(g_extract_params(p_business_group_id).extract_rec_01,'N') = 'Y'
8221: AND l_data_ent = 1 THEN
8222: p_data_element_value := 'Y';
8223: ELSE
8224: p_data_element_value := 'N';
8225: END IF;
8226:
8227: hr_utility.set_location('....Value of p_data_element_value is '
8228: ||p_data_element_value,100);
8229: hr_utility.set_location('Leaving: '||l_proc_name,110);
8230:
8231: l_return_value := 0;
8225: END IF;
8226:
8227: hr_utility.set_location('....Value of p_data_element_value is '
8228: ||p_data_element_value,100);
8229: hr_utility.set_location('Leaving: '||l_proc_name,110);
8230:
8231: l_return_value := 0;
8232:
8233: RETURN l_return_value;
8235: EXCEPTION
8236: WHEN OTHERS THEN
8237: p_error_message :='SQL-ERRM :'||SQLERRM;
8238: p_data_element_value := 'N';
8239: hr_utility.set_location('..WHEN OTHERS EXCEPTION ',120);
8240: hr_utility.set_location('..'||p_error_message,130);
8241: hr_utility.set_location('Leaving: '||l_proc_name,140);
8242: RETURN l_return_value;
8243:
8236: WHEN OTHERS THEN
8237: p_error_message :='SQL-ERRM :'||SQLERRM;
8238: p_data_element_value := 'N';
8239: hr_utility.set_location('..WHEN OTHERS EXCEPTION ',120);
8240: hr_utility.set_location('..'||p_error_message,130);
8241: hr_utility.set_location('Leaving: '||l_proc_name,140);
8242: RETURN l_return_value;
8243:
8244: END Record01_Display_Criteria;
8237: p_error_message :='SQL-ERRM :'||SQLERRM;
8238: p_data_element_value := 'N';
8239: hr_utility.set_location('..WHEN OTHERS EXCEPTION ',120);
8240: hr_utility.set_location('..'||p_error_message,130);
8241: hr_utility.set_location('Leaving: '||l_proc_name,140);
8242: RETURN l_return_value;
8243:
8244: END Record01_Display_Criteria;
8245:
8332: l_rec_02_sent NUMBER;
8333:
8334: BEGIN
8335:
8336: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
8337: --
8338: -- Check if the assignment is attached to a payroll
8339: -- Check if ABP Pensions is processed for the asg
8340: --
8368: FETCH csr_chk_log INTO l_Chg_Evt_Exists;
8369:
8370: IF csr_chk_log%FOUND THEN
8371: p_data_element_value := 'Y';
8372: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
8373: CLOSE csr_chk_log;
8374: RETURN 0;
8375: ELSE
8376: p_data_element_value := 'N';
8426: ELSE
8427: p_data_element_value := 'N';
8428: END IF;
8429:
8430: hr_Utility.set_location('Leaving: '||l_proc_name, 5);
8431:
8432: l_return_value := 0;
8433: RETURN l_return_value;
8434:
8436:
8437: WHEN OTHERS THEN
8438: p_error_message :='SQL-ERRM :'||SQLERRM;
8439: p_data_element_value := 'N';
8440: Hr_Utility.set_location('..'||p_error_message,85);
8441: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8442: RETURN l_return_value;
8443:
8444: END Record02_Display_Criteria;
8437: WHEN OTHERS THEN
8438: p_error_message :='SQL-ERRM :'||SQLERRM;
8439: p_data_element_value := 'N';
8440: Hr_Utility.set_location('..'||p_error_message,85);
8441: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
8442: RETURN l_return_value;
8443:
8444: END Record02_Display_Criteria;
8445:
8613:
8614: BEGIN
8615:
8616: IF g_debug THEN
8617: Hr_Utility.set_location('Entering: '||l_proc_name,10);
8618: Hr_Utility.set_location('... Checking if EE is a New Hire ',20);
8619: END IF;
8620: --
8621: -- Check if the assignment is attached to a payroll
8614: BEGIN
8615:
8616: IF g_debug THEN
8617: Hr_Utility.set_location('Entering: '||l_proc_name,10);
8618: Hr_Utility.set_location('... Checking if EE is a New Hire ',20);
8619: END IF;
8620: --
8621: -- Check if the assignment is attached to a payroll
8622: -- Check if ABP Pensions is processed
8634:
8635: IF l_new_hire = 1 THEN
8636: p_data_element_value := 'Y';
8637: IF g_debug THEN
8638: Hr_Utility.set_location('... EE is a New Hire ',30);
8639: END IF;
8640: RETURN 0;
8641: ELSE
8642: p_data_element_value := 'N';
8640: RETURN 0;
8641: ELSE
8642: p_data_element_value := 'N';
8643: IF g_debug THEN
8644: Hr_Utility.set_location('... EE is not a New Hire ',40);
8645: END IF;
8646: END IF;
8647:
8648: --
8648: --
8649: --Checking the ben event log for any foreign address changes
8650: --
8651: IF g_debug THEN
8652: Hr_Utility.set_location('... Checking for Foreign Address Changes ',50);
8653: END IF;
8654:
8655: OPEN c_non_nl_chg
8656: (c_person_id => g_person_id
8662:
8663: IF c_non_nl_chg%FOUND THEN
8664: p_data_element_value := 'Y';
8665: IF g_debug THEN
8666: Hr_Utility.set_location('...Foreign Address Changes Found',60);
8667: END IF;
8668: CLOSE c_non_nl_chg;
8669: RETURN 0;
8670: ELSE
8669: RETURN 0;
8670: ELSE
8671: p_data_element_value := 'N';
8672: IF g_debug THEN
8673: Hr_Utility.set_location('...Foreign Address Changes Not Found',70);
8674: END IF;
8675: CLOSE c_non_nl_chg;
8676: END IF;
8677:
8679: --
8680: --Checking the ben event log for any changes from Foreign Country to NL
8681: --
8682: IF g_debug THEN
8683: Hr_Utility.set_location('... Checking for Changes from a foreign Country to NL ',50);
8684: END IF;
8685:
8686: OPEN c_to_nl_chg
8687: (c_person_id => g_person_id
8693:
8694: IF c_to_nl_chg%FOUND THEN
8695: p_data_element_value := 'Y';
8696: IF g_debug THEN
8697: Hr_Utility.set_location('...EE Moved to NL',60);
8698: END IF;
8699: CLOSE c_to_nl_chg;
8700: RETURN 0;
8701: ELSE
8700: RETURN 0;
8701: ELSE
8702: p_data_element_value := 'N';
8703: IF g_debug THEN
8704: Hr_Utility.set_location('...EE Did not move to NL',70);
8705: END IF;
8706: CLOSE c_to_nl_chg;
8707: END IF;
8708:
8706: CLOSE c_to_nl_chg;
8707: END IF;
8708:
8709: IF g_debug THEN
8710: Hr_Utility.set_location('... Checking for Country Code Changes ',50);
8711: END IF;
8712:
8713: OPEN c_cntry_chg
8714: (c_person_id => g_person_id
8719: FETCH c_cntry_chg INTO l_chg_addr_id,l_cc_code;
8720:
8721: IF c_cntry_chg%FOUND THEN
8722: IF g_debug THEN
8723: Hr_Utility.set_location('...Country Code Changes Found',60);
8724: END IF;
8725: CLOSE c_cntry_chg;
8726: --
8727: -- Check if the change was made for the current address
8738: END IF;
8739: ELSE
8740: p_data_element_value := 'N';
8741: IF g_debug THEN
8742: Hr_Utility.set_location('...Country Code Changes Not Found',70);
8743: END IF;
8744: CLOSE c_cntry_chg;
8745: END IF;
8746:
8749: -- Marital status changes are to be reported only if the EE resides
8750: -- in a foreign country
8751: --
8752: IF g_debug THEN
8753: Hr_Utility.set_location('... Checking for Marital Status Changes ',90);
8754: END IF;
8755:
8756: OPEN cur_get_foreign_coun(g_person_id);
8757: FETCH cur_get_foreign_coun INTO l_foreign_country;
8757: FETCH cur_get_foreign_coun INTO l_foreign_country;
8758: CLOSE cur_get_foreign_coun;
8759:
8760: IF g_debug THEN
8761: Hr_Utility.set_location('...Value of l_foreign_country is ',80);
8762: END IF;
8763:
8764: OPEN csr_chk_log_com
8765: (c_person_id => g_person_id
8771:
8772: IF csr_chk_log_com%FOUND AND l_foreign_country = 'J' THEN
8773: p_data_element_value := 'Y';
8774: IF g_debug THEN
8775: Hr_Utility.set_location('...Marital Status Changes Found',100);
8776: Hr_Utility.set_location('...EE Resides in a Foreign Country',100);
8777: END IF;
8778: CLOSE csr_chk_log_com;
8779: RETURN 0;
8772: IF csr_chk_log_com%FOUND AND l_foreign_country = 'J' THEN
8773: p_data_element_value := 'Y';
8774: IF g_debug THEN
8775: Hr_Utility.set_location('...Marital Status Changes Found',100);
8776: Hr_Utility.set_location('...EE Resides in a Foreign Country',100);
8777: END IF;
8778: CLOSE csr_chk_log_com;
8779: RETURN 0;
8780: ELSE
8779: RETURN 0;
8780: ELSE
8781: p_data_element_value := 'N';
8782: IF g_debug THEN
8783: Hr_Utility.set_location('...Marital Status Changes Not Found',110);
8784: Hr_Utility.set_location('...Alternatively EE Resides in NL',110);
8785: END IF;
8786: CLOSE csr_chk_log_com;
8787: END IF;
8780: ELSE
8781: p_data_element_value := 'N';
8782: IF g_debug THEN
8783: Hr_Utility.set_location('...Marital Status Changes Not Found',110);
8784: Hr_Utility.set_location('...Alternatively EE Resides in NL',110);
8785: END IF;
8786: CLOSE csr_chk_log_com;
8787: END IF;
8788:
8800:
8801: IF l_chk_hire_dt_chg = 1 THEN
8802:
8803: IF g_debug THEN
8804: Hr_Utility.set_location('...EE is a late Hire ',120);
8805: END IF;
8806:
8807: l_ret_val_asg := Get_Asg_Seq_Num(p_assignment_id
8808: ,p_business_group_id
8814: IF c_rec_04_sent%NOTFOUND THEN
8815: CLOSE c_rec_04_sent ;
8816: p_data_element_value := 'Y';
8817: IF g_debug THEN
8818: Hr_Utility.set_location('...EE Record 04 never sent to ABP ',130);
8819: END IF;
8820: RETURN 0;
8821: ELSIF c_rec_04_sent%FOUND THEN
8822: CLOSE c_rec_04_sent ;
8820: RETURN 0;
8821: ELSIF c_rec_04_sent%FOUND THEN
8822: CLOSE c_rec_04_sent ;
8823: IF g_debug THEN
8824: Hr_Utility.set_location('...EE Record 04 sent to ABP earlier',140);
8825: END IF;
8826: p_data_element_value := 'N';
8827: END IF;
8828:
8827: END IF;
8828:
8829: ELSE
8830: IF g_debug THEN
8831: Hr_Utility.set_location('...EE is a not a late Hire ',150);
8832: END IF;
8833: p_data_element_value := 'N';
8834: END IF;
8835:
8833: p_data_element_value := 'N';
8834: END IF;
8835:
8836: IF g_debug THEN
8837: Hr_Utility.set_location('... Value of p_data_element_value is '
8838: ||p_data_element_value,160);
8839: Hr_Utility.set_location('Leaving: '||l_proc_name, 170);
8840: END IF;
8841:
8835:
8836: IF g_debug THEN
8837: Hr_Utility.set_location('... Value of p_data_element_value is '
8838: ||p_data_element_value,160);
8839: Hr_Utility.set_location('Leaving: '||l_proc_name, 170);
8840: END IF;
8841:
8842: l_return_value := 0;
8843:
8846: EXCEPTION
8847: WHEN OTHERS THEN
8848: p_error_message :='SQL-ERRM :'||SQLERRM;
8849: p_data_element_value := 'N';
8850: Hr_Utility.set_location('... WHEN OTHERS EXCEPTION',180);
8851: Hr_Utility.set_location('..'||p_error_message,190);
8852: Hr_Utility.set_location('Leaving: '||l_proc_name,200);
8853: RETURN l_return_value;
8854: END Record04_Display_Criteria;
8847: WHEN OTHERS THEN
8848: p_error_message :='SQL-ERRM :'||SQLERRM;
8849: p_data_element_value := 'N';
8850: Hr_Utility.set_location('... WHEN OTHERS EXCEPTION',180);
8851: Hr_Utility.set_location('..'||p_error_message,190);
8852: Hr_Utility.set_location('Leaving: '||l_proc_name,200);
8853: RETURN l_return_value;
8854: END Record04_Display_Criteria;
8855:
8848: p_error_message :='SQL-ERRM :'||SQLERRM;
8849: p_data_element_value := 'N';
8850: Hr_Utility.set_location('... WHEN OTHERS EXCEPTION',180);
8851: Hr_Utility.set_location('..'||p_error_message,190);
8852: Hr_Utility.set_location('Leaving: '||l_proc_name,200);
8853: RETURN l_return_value;
8854: END Record04_Display_Criteria;
8855:
8856: --============================================================================
8934: l_seq_num VARCHAR2(2);
8935:
8936: BEGIN
8937:
8938: Hr_Utility.set_location('Entering: '||l_proc_name,10);
8939:
8940: --
8941: -- Check if the assignment is attached to a payroll
8942: -- Check if ABP Pensions is processed
8955: p_data_element_value := 'N';
8956: RETURN 0;
8957: END IF;
8958:
8959: Hr_Utility.set_location('...Deriving def bal id ',20);
8960:
8961: OPEN csr_defined_bal('ABP Pension Salary'
8962: ,'Assignment Year To Date'
8963: ,p_business_group_id);
8963: ,p_business_group_id);
8964: FETCH csr_defined_bal INTO l_balance_id;
8965: CLOSE csr_defined_bal;
8966:
8967: Hr_Utility.set_location('... Value of def bal id is'||l_balance_id,30);
8968: Hr_Utility.set_location('...Deriving ass act id ',40);
8969:
8970: IF l_balance_id IS NOT NULL THEN
8971:
8964: FETCH csr_defined_bal INTO l_balance_id;
8965: CLOSE csr_defined_bal;
8966:
8967: Hr_Utility.set_location('... Value of def bal id is'||l_balance_id,30);
8968: Hr_Utility.set_location('...Deriving ass act id ',40);
8969:
8970: IF l_balance_id IS NOT NULL THEN
8971:
8972: OPEN csr_asg_act1 (
8975: ,c_con_set_id => NULL
8976: ,c_start_date => g_extract_params(p_business_group_id).extract_start_date
8977: ,c_end_date => g_extract_params(p_business_group_id).extract_end_date);
8978: FETCH csr_asg_act1 INTO l_asg_action_id;
8979: Hr_Utility.set_location('... Value of ass act id is'||l_asg_action_id,45);
8980: CLOSE csr_asg_act1;
8981:
8982: IF l_asg_action_id IS NOT NULL THEN
8983: Hr_Utility.set_location('...Deriving balance value ',50);
8979: Hr_Utility.set_location('... Value of ass act id is'||l_asg_action_id,45);
8980: CLOSE csr_asg_act1;
8981:
8982: IF l_asg_action_id IS NOT NULL THEN
8983: Hr_Utility.set_location('...Deriving balance value ',50);
8984: l_balance_amount := pay_balance_pkg.get_value
8985: (p_defined_balance_id => l_balance_id
8986: ,p_assignment_action_id => l_asg_action_id);
8987: Hr_Utility.set_location('...Value of l_balance_amount is:'
8983: Hr_Utility.set_location('...Deriving balance value ',50);
8984: l_balance_amount := pay_balance_pkg.get_value
8985: (p_defined_balance_id => l_balance_id
8986: ,p_assignment_action_id => l_asg_action_id);
8987: Hr_Utility.set_location('...Value of l_balance_amount is:'
8988: ||l_balance_amount, 25);
8989: l_balance_amount := NVL(l_balance_amount,0);
8990: END IF;
8991:
8990: END IF;
8991:
8992: END IF;
8993:
8994: Hr_Utility.set_location('...Checking of Ext is running for Jan ',60);
8995: --
8996: -- Check to see if the extract is being run for JAN,
8997: -- If it is JAN, we need to report the pension salary
8998: --
9000: FETCH c_get_month INTO l_month;
9001: CLOSE c_get_month;
9002:
9003: IF l_month = '01' AND NVL(l_balance_amount,0) <> 0 THEN
9004: Hr_Utility.set_location('...Ext is running for Jan ',70);
9005: p_data_element_value := 'Y';
9006: RETURN 0;
9007: ELSE
9008: Hr_Utility.set_location('...Ext is not running for Jan ',80);
9004: Hr_Utility.set_location('...Ext is running for Jan ',70);
9005: p_data_element_value := 'Y';
9006: RETURN 0;
9007: ELSE
9008: Hr_Utility.set_location('...Ext is not running for Jan ',80);
9009: p_data_element_value := 'N';
9010: END IF;
9011:
9012: --
9012: --
9013: -- Fetch the overridden value if there is any override changes in
9014: -- the ASG EIT
9015: --
9016: Hr_Utility.set_location('...Checking for ABP Pension Salary Override ',90);
9017:
9018: OPEN c_get_override_salary;
9019: FETCH c_get_override_salary INTO l_override_value;
9020: IF c_get_override_salary%FOUND THEN
9020: IF c_get_override_salary%FOUND THEN
9021: CLOSE c_get_override_salary;
9022: IF nvl(l_override_value,0) <> 0 THEN
9023: p_data_element_value := 'Y';
9024: Hr_Utility.set_location('...ABP Pension Salary Override Found ',100);
9025: RETURN 0;
9026: ELSE
9027: Hr_Utility.set_location('...ABP Pension Salary Override Not Found ',110);
9028: p_data_element_value := 'N';
9023: p_data_element_value := 'Y';
9024: Hr_Utility.set_location('...ABP Pension Salary Override Found ',100);
9025: RETURN 0;
9026: ELSE
9027: Hr_Utility.set_location('...ABP Pension Salary Override Not Found ',110);
9028: p_data_element_value := 'N';
9029: END IF;
9030: ELSE
9031: CLOSE c_get_override_salary;
9033:
9034: --
9035: -- Check if the EE assignment is a new hire and needs to be reported.
9036: --
9037: Hr_Utility.set_location('... Checking if EE is a New Hire ',20);
9038:
9039: l_new_hire := g_new_hire_asg;
9040: l_hire_dt := g_hire_date;
9041:
9040: l_hire_dt := g_hire_date;
9041:
9042: IF l_new_hire = 1 AND NVL(l_balance_amount,0) <> 0 THEN
9043: p_data_element_value := 'Y';
9044: Hr_Utility.set_location('... EE is a New Hire ',120);
9045: RETURN 0;
9046: ELSE
9047: p_data_element_value := 'N';
9048: Hr_Utility.set_location('... EE is not a New Hire ',130);
9044: Hr_Utility.set_location('... EE is a New Hire ',120);
9045: RETURN 0;
9046: ELSE
9047: p_data_element_value := 'N';
9048: Hr_Utility.set_location('... EE is not a New Hire ',130);
9049: END IF;
9050:
9051: l_ret_val_asg := Get_Asg_Seq_Num(p_assignment_id
9052: ,p_business_group_id
9059: ,l_seq_num);
9060: FETCH c_rec_08_sent INTO l_08_sent;
9061: IF c_rec_08_sent%NOTFOUND AND NVL(l_balance_amount,0) <> 0 THEN
9062: p_data_element_value := 'Y';
9063: Hr_Utility.set_location('... Data never sent ',120);
9064: CLOSE c_rec_08_sent;
9065: RETURN 0;
9066: ELSE
9067: CLOSE c_rec_08_sent;
9065: RETURN 0;
9066: ELSE
9067: CLOSE c_rec_08_sent;
9068: p_data_element_value := 'N';
9069: Hr_Utility.set_location('... Data Was sent ',130);
9070: END IF;
9071:
9072: hr_utility.set_location('Leaving: '||l_proc_name,140);
9073: l_return_value := 0;
9068: p_data_element_value := 'N';
9069: Hr_Utility.set_location('... Data Was sent ',130);
9070: END IF;
9071:
9072: hr_utility.set_location('Leaving: '||l_proc_name,140);
9073: l_return_value := 0;
9074:
9075: RETURN l_return_value;
9076:
9077: EXCEPTION
9078: WHEN OTHERS THEN
9079: p_error_message :='SQL-ERRM :'||SQLERRM;
9080: p_data_element_value := 'N';
9081: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',150);
9082: Hr_Utility.set_location('..'||p_error_message,160);
9083: Hr_Utility.set_location('Leaving: '||l_proc_name,170);
9084: RETURN l_return_value;
9085: END Record08_Display_Criteria;
9078: WHEN OTHERS THEN
9079: p_error_message :='SQL-ERRM :'||SQLERRM;
9080: p_data_element_value := 'N';
9081: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',150);
9082: Hr_Utility.set_location('..'||p_error_message,160);
9083: Hr_Utility.set_location('Leaving: '||l_proc_name,170);
9084: RETURN l_return_value;
9085: END Record08_Display_Criteria;
9086:
9079: p_error_message :='SQL-ERRM :'||SQLERRM;
9080: p_data_element_value := 'N';
9081: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',150);
9082: Hr_Utility.set_location('..'||p_error_message,160);
9083: Hr_Utility.set_location('Leaving: '||l_proc_name,170);
9084: RETURN l_return_value;
9085: END Record08_Display_Criteria;
9086:
9087: --=============================================================================
9098: l_proc_name VARCHAR2(150) := g_proc_name ||'Record09_Display_Criteria';
9099:
9100: BEGIN
9101:
9102: Hr_Utility.set_location('Entering: '||l_proc_name,10);
9103: --
9104: -- Derive the value of Record 09 display criteria based on the
9105: -- value set to the global variable in full profile criteria
9106: --
9109: ELSE
9110: p_data_element_value := 'N';
9111: END IF;
9112:
9113: Hr_Utility.set_location('Value of p_data_element_value is : '
9114: ||p_data_element_value,20);
9115: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
9116:
9117: RETURN 0;
9111: END IF;
9112:
9113: Hr_Utility.set_location('Value of p_data_element_value is : '
9114: ||p_data_element_value,20);
9115: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
9116:
9117: RETURN 0;
9118:
9119: END Record09_Display_Criteria;
9131:
9132: l_proc_name VARCHAR2(150) := g_proc_name ||'Record12_Display_Criteria';
9133:
9134: BEGIN
9135: Hr_Utility.set_location('Entering : '||l_proc_name,10);
9136: --
9137: -- Derive the value of Record 12 display criteria based on the
9138: -- value set to the global variable in full profile criteria
9139: --
9142: ELSE
9143: p_data_element_value := 'N';
9144: END IF;
9145:
9146: Hr_Utility.set_location('Value of p_data_element_value is: '
9147: ||p_data_element_value,20);
9148: Hr_Utility.set_location('Leaving: '||l_proc_name,30);
9149:
9150: RETURN 0;
9144: END IF;
9145:
9146: Hr_Utility.set_location('Value of p_data_element_value is: '
9147: ||p_data_element_value,20);
9148: Hr_Utility.set_location('Leaving: '||l_proc_name,30);
9149:
9150: RETURN 0;
9151:
9152: END Record12_Display_Criteria;
9235: l_proc_name VARCHAR2(150) := 'Record05_Display_Criteria';
9236:
9237: BEGIN
9238:
9239: Hr_Utility.set_location('Entering: '||l_proc_name, 10);
9240:
9241: --
9242: -- Always display record 05 as this causes issues with the
9243: -- secondary assignments. Unnecessary records are later deleted as part of
9245: --
9246:
9247: p_data_element_value := 'Y';
9248:
9249: Hr_Utility.set_location('... The data element value is : '
9250: ||p_data_element_value,20);
9251:
9252: Hr_Utility.set_location('Leaving: '||l_proc_name, 30);
9253:
9248:
9249: Hr_Utility.set_location('... The data element value is : '
9250: ||p_data_element_value,20);
9251:
9252: Hr_Utility.set_location('Leaving: '||l_proc_name, 30);
9253:
9254: l_return_value := 0;
9255:
9256: RETURN l_return_value;
9257:
9258: EXCEPTION
9259: WHEN OTHERS THEN
9260: p_error_message :='SQL-ERRM :'||SQLERRM;
9261: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',40);
9262: p_data_element_value := 'N';
9263: Hr_Utility.set_location('...'||p_error_message,50);
9264: Hr_Utility.set_location('Leaving: '||l_proc_name,60);
9265: l_return_value := 1;
9259: WHEN OTHERS THEN
9260: p_error_message :='SQL-ERRM :'||SQLERRM;
9261: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',40);
9262: p_data_element_value := 'N';
9263: Hr_Utility.set_location('...'||p_error_message,50);
9264: Hr_Utility.set_location('Leaving: '||l_proc_name,60);
9265: l_return_value := 1;
9266: RETURN l_return_value;
9267:
9260: p_error_message :='SQL-ERRM :'||SQLERRM;
9261: Hr_Utility.set_location('...WHEN OTHERS EXCEPTION',40);
9262: p_data_element_value := 'N';
9263: Hr_Utility.set_location('...'||p_error_message,50);
9264: Hr_Utility.set_location('Leaving: '||l_proc_name,60);
9265: l_return_value := 1;
9266: RETURN l_return_value;
9267:
9268: END Record05_Display_Criteria;
9430: l_pt Number;
9431: l_hired Number := 0;
9432:
9433: BEGIN
9434: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
9435: Hr_Utility.set_location('sub category : '||p_sub_cat,10);
9436:
9437: OPEN c_hire_dt;
9438: FETCH c_hire_dt INTO l_hire_date;
9431: l_hired Number := 0;
9432:
9433: BEGIN
9434: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
9435: Hr_Utility.set_location('sub category : '||p_sub_cat,10);
9436:
9437: OPEN c_hire_dt;
9438: FETCH c_hire_dt INTO l_hire_date;
9439: CLOSE c_hire_dt;
9445: OPEN c_asg_rows_exist;
9446: FETCH c_asg_rows_exist INTO l_asg_rows_exist;
9447: IF c_asg_rows_exist%FOUND THEN
9448: CLOSE c_asg_rows_exist;
9449: Hr_Utility.set_location('found rows at the assignment eit level',15);
9450: OPEN c_get_asg_rows;
9451: FETCH c_get_asg_rows INTO l_rows_exist;
9452: CLOSE c_get_asg_rows;
9453: ELSE
9492: l_loop_again := 1;
9493: WHILE (l_loop_again = 1)
9494:
9495: LOOP
9496: Hr_Utility.set_location('searching at org level : '||l_org_id,25);
9497: OPEN c_org_rows_exist(l_org_id);
9498: FETCH c_org_rows_exist INTO l_org_rows_exist;
9499: IF c_org_rows_exist%FOUND THEN
9500: CLOSE c_org_rows_exist;
9528: CLOSE c_run_results_exist;
9529: END IF;
9530: END IF;
9531: END IF;
9532: Hr_Utility.set_location('rows exist : '||l_rows_exist,30);
9533: IF l_rows_exist = 1 THEN
9534: IF p_sub_cat = 'IPAP' THEN
9535: p_data_element_value := 'Y';
9536: l_return_value := 0;
9550: ELSE
9551: p_data_element_value := 'N';
9552: l_return_value := 0;
9553: END IF;
9554: Hr_Utility.set_location('data element value : '||p_data_element_value,35);
9555: Hr_Utility.set_location('Leaving: '||l_proc_name, 40);
9556: RETURN l_return_value;
9557: EXCEPTION
9558: WHEN Others THEN
9551: p_data_element_value := 'N';
9552: l_return_value := 0;
9553: END IF;
9554: Hr_Utility.set_location('data element value : '||p_data_element_value,35);
9555: Hr_Utility.set_location('Leaving: '||l_proc_name, 40);
9556: RETURN l_return_value;
9557: EXCEPTION
9558: WHEN Others THEN
9559: p_error_message :='SQL-ERRM :'||SQLERRM;
9557: EXCEPTION
9558: WHEN Others THEN
9559: p_error_message :='SQL-ERRM :'||SQLERRM;
9560: p_data_element_value := 'N';
9561: Hr_Utility.set_location('..'||p_error_message,85);
9562: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
9563: l_return_value := 1;
9564: RETURN l_return_value;
9565: END Record30_40_Display_Criteria;
9558: WHEN Others THEN
9559: p_error_message :='SQL-ERRM :'||SQLERRM;
9560: p_data_element_value := 'N';
9561: Hr_Utility.set_location('..'||p_error_message,85);
9562: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
9563: l_return_value := 1;
9564: RETURN l_return_value;
9565: END Record30_40_Display_Criteria;
9566:
9580: l_return_value Number := 1;
9581: l_age Number;
9582:
9583: BEGIN
9584: Hr_Utility.set_location('Entering -------- : '||l_proc_name,10);
9585: IF p_record_number = 31 THEN
9586: IF l_rec_31_disp = 'Y' THEN
9587: p_data_element_value := 'Y';
9588: l_return_value := 0;
9622: EXCEPTION
9623: WHEN Others THEN
9624: p_error_message :='SQL-ERRM :'||SQLERRM;
9625: p_data_element_value := 'N';
9626: Hr_Utility.set_location('..'||p_error_message,85);
9627: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
9628: l_return_value := 1;
9629: RETURN l_return_value;
9630: END Record31_41_Display_Criteria;
9623: WHEN Others THEN
9624: p_error_message :='SQL-ERRM :'||SQLERRM;
9625: p_data_element_value := 'N';
9626: Hr_Utility.set_location('..'||p_error_message,85);
9627: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
9628: l_return_value := 1;
9629: RETURN l_return_value;
9630: END Record31_41_Display_Criteria;
9631:
9757: -- then return that org info id
9758: OPEN c_get_valid_org_info(l_org_id);
9759: FETCH c_get_valid_org_info INTO l_org_info_id;
9760: IF c_get_valid_org_info%FOUND THEN
9761: Hr_Utility.set_location('found row @ org info level'||l_org_id,20);
9762: l_loop_again := 0;
9763: CLOSE c_get_valid_org_info;
9764: -- fetch the participation end date from the org info row
9765: OPEN c_get_org_info(l_org_id);
9956: l_end_date Date;
9957:
9958:
9959: BEGIN
9960: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
9961: --check the index and the code and calculate the value accordingly
9962: Hr_Utility.set_location('value of g_index : '||g_index_fur,7);
9963: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
9964: IF g_index_fur = 0 AND p_fetch_code = 'NEW_ST' THEN
9958:
9959: BEGIN
9960: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
9961: --check the index and the code and calculate the value accordingly
9962: Hr_Utility.set_location('value of g_index : '||g_index_fur,7);
9963: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
9964: IF g_index_fur = 0 AND p_fetch_code = 'NEW_ST' THEN
9965: g_count_fur := 0;
9966:
9959: BEGIN
9960: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
9961: --check the index and the code and calculate the value accordingly
9962: Hr_Utility.set_location('value of g_index : '||g_index_fur,7);
9963: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
9964: IF g_index_fur = 0 AND p_fetch_code = 'NEW_ST' THEN
9965: g_count_fur := 0;
9966:
9967: OPEN c_hire_dt;
9975: OPEN c_asg_rows_exist;
9976: FETCH c_asg_rows_exist INTO l_asg_rows_exist;
9977: IF c_asg_rows_exist%FOUND THEN
9978: CLOSE c_asg_rows_exist;
9979: Hr_Utility.set_location('found rows at the assignment eit level',15);
9980: --now fetch the rows from the log table
9981: FOR asg_rec IN c_get_asg_rows
9982: LOOP
9983:
10015:
10016: i := i + 1;
10017: END LOOP; -- FOR asg_rec IN c_get_asg_rows
10018: g_count_fur := i;
10019: Hr_Utility.set_location('count of rows : '||g_count_fur,20);
10020: ELSE
10021: CLOSE c_asg_rows_exist;
10022: --go up the org hierarchy to find the rows at some org eit level
10023: -- find the org the assignment is attached to
10059: l_loop_again := 1;
10060: WHILE (l_loop_again = 1)
10061:
10062: LOOP
10063: Hr_Utility.set_location('searching at org level : '||l_org_id,25);
10064: OPEN c_org_rows_exist(l_org_id);
10065: FETCH c_org_rows_exist INTO l_org_rows_exist;
10066: IF c_org_rows_exist%FOUND THEN
10067: CLOSE c_org_rows_exist;
10097: g_fur_dates(i).old_end := '';
10098: g_fur_dates(i).new_end := '';
10099: END IF;
10100: IF l_hired = 1 THEN
10101: Hr_Utility.set_location('hire date : '||l_hire_date,99);
10102: Hr_Utility.set_location('new date : '||g_fur_dates(i).new_start,100);
10103: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
10104: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start))),101);
10105: IF g_fur_dates(i).new_start IS NOT NULL THEN
10098: g_fur_dates(i).new_end := '';
10099: END IF;
10100: IF l_hired = 1 THEN
10101: Hr_Utility.set_location('hire date : '||l_hire_date,99);
10102: Hr_Utility.set_location('new date : '||g_fur_dates(i).new_start,100);
10103: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
10104: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start))),101);
10105: IF g_fur_dates(i).new_start IS NOT NULL THEN
10106: Hr_Utility.set_location('chking the new start date',102);
10099: END IF;
10100: IF l_hired = 1 THEN
10101: Hr_Utility.set_location('hire date : '||l_hire_date,99);
10102: Hr_Utility.set_location('new date : '||g_fur_dates(i).new_start,100);
10103: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
10104: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start))),101);
10105: IF g_fur_dates(i).new_start IS NOT NULL THEN
10106: Hr_Utility.set_location('chking the new start date',102);
10107: g_fur_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
10102: Hr_Utility.set_location('new date : '||g_fur_dates(i).new_start,100);
10103: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
10104: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start))),101);
10105: IF g_fur_dates(i).new_start IS NOT NULL THEN
10106: Hr_Utility.set_location('chking the new start date',102);
10107: g_fur_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
10108: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start)));
10109: Hr_Utility.set_location('new start date is : '||g_fur_dates(i).new_start,103);
10110: END IF;
10105: IF g_fur_dates(i).new_start IS NOT NULL THEN
10106: Hr_Utility.set_location('chking the new start date',102);
10107: g_fur_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
10108: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).new_start)));
10109: Hr_Utility.set_location('new start date is : '||g_fur_dates(i).new_start,103);
10110: END IF;
10111: IF g_fur_dates(i).old_start IS NOT NULL THEN
10112: g_fur_dates(i).old_start := Fnd_Date.date_to_canonical(Greatest(
10113: l_hire_date,Fnd_Date.canonical_to_date(g_fur_dates(i).old_start)));
10118: END IF;
10119: i := i + 1;
10120: END LOOP;
10121: g_count_fur := i;
10122: Hr_Utility.set_location('value for g count : '||g_count_fur,30);
10123: l_loop_again := 0;
10124: ELSE
10125: --search at the parent level next
10126: CLOSE c_org_rows_exist;
10170: END IF;
10171: END IF;
10172:
10173: IF g_count_fur > 0 THEN
10174: Hr_Utility.set_location('old st date : '||g_fur_dates(g_index_fur).old_start,40);
10175: Hr_Utility.set_location('new st date : '||g_fur_dates(g_index_fur).new_start,45);
10176: Hr_Utility.set_location('old ed date : '||g_fur_dates(g_index_fur).old_end,50);
10177: Hr_Utility.set_location('new ed date : '||g_fur_dates(g_index_fur).new_end,55);
10178: l_return_value := 0;
10171: END IF;
10172:
10173: IF g_count_fur > 0 THEN
10174: Hr_Utility.set_location('old st date : '||g_fur_dates(g_index_fur).old_start,40);
10175: Hr_Utility.set_location('new st date : '||g_fur_dates(g_index_fur).new_start,45);
10176: Hr_Utility.set_location('old ed date : '||g_fur_dates(g_index_fur).old_end,50);
10177: Hr_Utility.set_location('new ed date : '||g_fur_dates(g_index_fur).new_end,55);
10178: l_return_value := 0;
10179: --depending on the fetch code ,set the data element value
10172:
10173: IF g_count_fur > 0 THEN
10174: Hr_Utility.set_location('old st date : '||g_fur_dates(g_index_fur).old_start,40);
10175: Hr_Utility.set_location('new st date : '||g_fur_dates(g_index_fur).new_start,45);
10176: Hr_Utility.set_location('old ed date : '||g_fur_dates(g_index_fur).old_end,50);
10177: Hr_Utility.set_location('new ed date : '||g_fur_dates(g_index_fur).new_end,55);
10178: l_return_value := 0;
10179: --depending on the fetch code ,set the data element value
10180: IF p_fetch_code = 'NEW_ST' THEN
10173: IF g_count_fur > 0 THEN
10174: Hr_Utility.set_location('old st date : '||g_fur_dates(g_index_fur).old_start,40);
10175: Hr_Utility.set_location('new st date : '||g_fur_dates(g_index_fur).new_start,45);
10176: Hr_Utility.set_location('old ed date : '||g_fur_dates(g_index_fur).old_end,50);
10177: Hr_Utility.set_location('new ed date : '||g_fur_dates(g_index_fur).new_end,55);
10178: l_return_value := 0;
10179: --depending on the fetch code ,set the data element value
10180: IF p_fetch_code = 'NEW_ST' THEN
10181: p_data_element_value := g_fur_dates(g_index_fur).new_start;
10196: p_data_element_value := '';
10197: l_return_value := 0;
10198: END IF;
10199:
10200: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 70);
10201: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
10202:
10203: l_return_value :=0;
10204: RETURN l_return_value;
10197: l_return_value := 0;
10198: END IF;
10199:
10200: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 70);
10201: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
10202:
10203: l_return_value :=0;
10204: RETURN l_return_value;
10205: EXCEPTION
10204: RETURN l_return_value;
10205: EXCEPTION
10206: WHEN Others THEN
10207: p_error_message :='SQL-ERRM :'||SQLERRM;
10208: Hr_Utility.set_location('..'||p_error_message,85);
10209: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
10210: RETURN l_return_value;
10211: END get_fur_participation_dates;
10212:
10205: EXCEPTION
10206: WHEN Others THEN
10207: p_error_message :='SQL-ERRM :'||SQLERRM;
10208: Hr_Utility.set_location('..'||p_error_message,85);
10209: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
10210: RETURN l_return_value;
10211: END get_fur_participation_dates;
10212:
10213: --============================================================================
10320: fnd_date.date_to_canonical(hr_api.g_eot)));
10321:
10322:
10323: BEGIN
10324: Hr_Utility.set_location('Entering ------ : '||l_proc_name,10);
10325: --
10326: -- Check if the value being fetched is the current one(for the extract date range).
10327: --
10328: IF p_current = 'Y' THEN
10325: --
10326: -- Check if the value being fetched is the current one(for the extract date range).
10327: --
10328: IF p_current = 'Y' THEN
10329: Hr_Utility.set_location('... Current PPP Flag derived',15);
10330: OPEN c_ppp_asg1;
10331: FETCH c_ppp_asg1 INTO l_asg_exist;
10332: IF c_ppp_asg1%FOUND THEN
10333: Hr_Utility.set_location('... Current PPP Flag derived',16);
10329: Hr_Utility.set_location('... Current PPP Flag derived',15);
10330: OPEN c_ppp_asg1;
10331: FETCH c_ppp_asg1 INTO l_asg_exist;
10332: IF c_ppp_asg1%FOUND THEN
10333: Hr_Utility.set_location('... Current PPP Flag derived',16);
10334: l_ppp_flag := '1';
10335: ELSE
10336: OPEN c_rr_cur;
10337: FETCH c_rr_cur INTO l_rr_exist;
10336: OPEN c_rr_cur;
10337: FETCH c_rr_cur INTO l_rr_exist;
10338: IF c_rr_cur%FOUND THEN
10339: l_ppp_flag := '1';
10340: Hr_Utility.set_location('... RR exist value is 1',20);
10341: ELSE
10342: l_ppp_flag := '0';
10343: Hr_Utility.set_location('... RR do not exist value is 0',30);
10344: END IF;
10339: l_ppp_flag := '1';
10340: Hr_Utility.set_location('... RR exist value is 1',20);
10341: ELSE
10342: l_ppp_flag := '0';
10343: Hr_Utility.set_location('... RR do not exist value is 0',30);
10344: END IF;
10345: CLOSE c_rr_cur;
10346: END IF;
10347: CLOSE c_ppp_asg1;
10350: FOR ppp_org_rec IN c_ppp_org
10351: LOOP
10352: l_org_id := ppp_org_rec.organization_id;
10353: END LOOP;
10354: Hr_Utility.set_location('...Org Id for the Asg: '||l_org_id,20);
10355:
10356: p_data_element_value := l_ppp_flag;
10357: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10358: RETURN 0;
10353: END LOOP;
10354: Hr_Utility.set_location('...Org Id for the Asg: '||l_org_id,20);
10355:
10356: p_data_element_value := l_ppp_flag;
10357: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10358: RETURN 0;
10359:
10360: EXCEPTION
10361: WHEN Others THEN
10360: EXCEPTION
10361: WHEN Others THEN
10362: p_error_message :='SQL-ERRM :'||SQLERRM;
10363: p_data_element_value := ' ';
10364: Hr_Utility.set_location('..'||p_error_message,10);
10365: Hr_Utility.set_location('Leaving:-------- '||l_proc_name,20);
10366: RETURN -1;
10367:
10368: END Get_PPP_Kind;
10361: WHEN Others THEN
10362: p_error_message :='SQL-ERRM :'||SQLERRM;
10363: p_data_element_value := ' ';
10364: Hr_Utility.set_location('..'||p_error_message,10);
10365: Hr_Utility.set_location('Leaving:-------- '||l_proc_name,20);
10366: RETURN -1;
10367:
10368: END Get_PPP_Kind;
10369:
10517: fnd_date.date_to_canonical(hr_api.g_eot))));
10518:
10519: BEGIN
10520:
10521: Hr_Utility.set_location('Entering ------ : '||l_proc_name,5);
10522:
10523: FOR fpu_rec IN c_fpu_asg
10524: LOOP
10525: IF l_kind_of_contrib = 'G' THEN
10538: END IF;
10539: END LOOP;
10540: END IF;
10541:
10542: Hr_Utility.set_location('...Kind of FPU : '||l_kind_of_contrib,10);
10543:
10544: p_data_element_value := l_kind_of_contrib;
10545:
10546: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10542: Hr_Utility.set_location('...Kind of FPU : '||l_kind_of_contrib,10);
10543:
10544: p_data_element_value := l_kind_of_contrib;
10545:
10546: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10547:
10548: RETURN 0;
10549:
10550: EXCEPTION
10549:
10550: EXCEPTION
10551: WHEN OTHERS THEN
10552: p_error_message :='SQL-ERRM :'||SQLERRM;
10553: Hr_Utility.set_location('..'||p_error_message,15);
10554: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10555: RETURN -1;
10556:
10557: END Get_Fpu_Kind;
10550: EXCEPTION
10551: WHEN OTHERS THEN
10552: p_error_message :='SQL-ERRM :'||SQLERRM;
10553: Hr_Utility.set_location('..'||p_error_message,15);
10554: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10555: RETURN -1;
10556:
10557: END Get_Fpu_Kind;
10558:
10581: AND information_type = 'NL_ABP_RI';
10582:
10583: BEGIN
10584:
10585: Hr_Utility.set_location('Entering ------ : '||l_proc_name,5);
10586: OPEN c_get_contrib_kind;
10587: FETCH c_get_contrib_kind INTO l_kind_of_contrib;
10588: CLOSE c_get_contrib_kind;
10589: Hr_Utility.set_location('value of kind of opnp : '||l_kind_of_contrib,10);
10585: Hr_Utility.set_location('Entering ------ : '||l_proc_name,5);
10586: OPEN c_get_contrib_kind;
10587: FETCH c_get_contrib_kind INTO l_kind_of_contrib;
10588: CLOSE c_get_contrib_kind;
10589: Hr_Utility.set_location('value of kind of opnp : '||l_kind_of_contrib,10);
10590: p_data_element_value := l_kind_of_contrib;
10591: RETURN 0;
10592:
10593: EXCEPTION
10592:
10593: EXCEPTION
10594: WHEN Others THEN
10595: p_error_message :='SQL-ERRM :'||SQLERRM;
10596: Hr_Utility.set_location('..'||p_error_message,15);
10597: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10598: RETURN -1;
10599:
10600: END Get_Opnp_Kind;
10593: EXCEPTION
10594: WHEN Others THEN
10595: p_error_message :='SQL-ERRM :'||SQLERRM;
10596: Hr_Utility.set_location('..'||p_error_message,15);
10597: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
10598: RETURN -1;
10599:
10600: END Get_Opnp_Kind;
10601:
10895: IF l_rec_09.count > 0 THEN
10896: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
10897: LOOP
10898: l_rr_exists := 0;
10899: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
10900: hr_utility.set_location('asg id : '||p_assignment_id,12);
10901: hr_utility.set_location('start date : ',14);
10902: hr_utility.set_location('end date : ',15);
10903: FOR act_rec IN csr_asg_act (
10896: FOR i IN l_rec_09.FIRST..l_rec_09.LAST
10897: LOOP
10898: l_rr_exists := 0;
10899: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
10900: hr_utility.set_location('asg id : '||p_assignment_id,12);
10901: hr_utility.set_location('start date : ',14);
10902: hr_utility.set_location('end date : ',15);
10903: FOR act_rec IN csr_asg_act (
10904: c_assignment_id => p_assignment_id
10897: LOOP
10898: l_rr_exists := 0;
10899: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
10900: hr_utility.set_location('asg id : '||p_assignment_id,12);
10901: hr_utility.set_location('start date : ',14);
10902: hr_utility.set_location('end date : ',15);
10903: FOR act_rec IN csr_asg_act (
10904: c_assignment_id => p_assignment_id
10905: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
10898: l_rr_exists := 0;
10899: hr_utility.set_location('current element : '||l_rec_09(i).element_type_id,10);
10900: hr_utility.set_location('asg id : '||p_assignment_id,12);
10901: hr_utility.set_location('start date : ',14);
10902: hr_utility.set_location('end date : ',15);
10903: FOR act_rec IN csr_asg_act (
10904: c_assignment_id => p_assignment_id
10905: ,c_payroll_id => g_extract_params(p_business_group_id).payroll_id
10906: ,c_con_set_id => NULL
10915: -- Check if Run Results exist for this element/ass act
10916: IF chk_rr_exist (p_ass_act_id => act_rec.assignment_action_id
10917: ,p_element_type_id => l_rec_09(i).element_type_id ) THEN
10918: -- Call pay_balance_pkg
10919: hr_utility.set_location('run results exist for current period',40);
10920: IF l_rec_09(i).defined_bal_id <> -1 THEN
10921: l_rec_09_values(k).basis_amount :=
10922: Pay_Balance_Pkg.get_value
10923: (p_defined_balance_id => l_rec_09(i).defined_bal_id
10921: l_rec_09_values(k).basis_amount :=
10922: Pay_Balance_Pkg.get_value
10923: (p_defined_balance_id => l_rec_09(i).defined_bal_id
10924: ,p_assignment_action_id => act_rec.assignment_action_id);
10925: hr_utility.set_location('defined bal id used :'||l_rec_09(i).defined_bal_id,50);
10926: l_rec_09_disp := 'Y';
10927: l_rec_09_values(k).processed := 'N';
10928: l_rec_09_values(k).code := l_rec_09(i).code;
10929: l_rec_09_values(k).date_earned :=
11330: l_ele_exists VARCHAR2(1); --13571541
11331:
11332: BEGIN
11333:
11334: Hr_Utility.set_location('Entering:------'||l_proc_name, 2);
11335: Hr_Utility.set_location('....Value of assignment id : '||p_assignment_id,4);
11336: Hr_Utility.set_location('....Value of g_index : '||g_index_05,6);
11337: Hr_Utility.set_location('....Value of g_count : '||g_count_05,8);
11338: Hr_Utility.set_location('....Value of fetch code : '||p_fetch_code ,10);
11331:
11332: BEGIN
11333:
11334: Hr_Utility.set_location('Entering:------'||l_proc_name, 2);
11335: Hr_Utility.set_location('....Value of assignment id : '||p_assignment_id,4);
11336: Hr_Utility.set_location('....Value of g_index : '||g_index_05,6);
11337: Hr_Utility.set_location('....Value of g_count : '||g_count_05,8);
11338: Hr_Utility.set_location('....Value of fetch code : '||p_fetch_code ,10);
11339:
11332: BEGIN
11333:
11334: Hr_Utility.set_location('Entering:------'||l_proc_name, 2);
11335: Hr_Utility.set_location('....Value of assignment id : '||p_assignment_id,4);
11336: Hr_Utility.set_location('....Value of g_index : '||g_index_05,6);
11337: Hr_Utility.set_location('....Value of g_count : '||g_count_05,8);
11338: Hr_Utility.set_location('....Value of fetch code : '||p_fetch_code ,10);
11339:
11340: --
11333:
11334: Hr_Utility.set_location('Entering:------'||l_proc_name, 2);
11335: Hr_Utility.set_location('....Value of assignment id : '||p_assignment_id,4);
11336: Hr_Utility.set_location('....Value of g_index : '||g_index_05,6);
11337: Hr_Utility.set_location('....Value of g_count : '||g_count_05,8);
11338: Hr_Utility.set_location('....Value of fetch code : '||p_fetch_code ,10);
11339:
11340: --
11341: -- Derive the age of the employee
11334: Hr_Utility.set_location('Entering:------'||l_proc_name, 2);
11335: Hr_Utility.set_location('....Value of assignment id : '||p_assignment_id,4);
11336: Hr_Utility.set_location('....Value of g_index : '||g_index_05,6);
11337: Hr_Utility.set_location('....Value of g_count : '||g_count_05,8);
11338: Hr_Utility.set_location('....Value of fetch code : '||p_fetch_code ,10);
11339:
11340: --
11341: -- Derive the age of the employee
11342: --
11341: -- Derive the age of the employee
11342: --
11343: l_age := Get_Age(p_assignment_id,p_effective_date);
11344:
11345: Hr_Utility.set_location('....Value of l_age : '||l_age ,12);
11346:
11347: IF g_index_05 = 0
11348: AND p_fetch_code = 'NEW_ST'
11349: AND g_abp_processed_flag = 1 THEN
11347: IF g_index_05 = 0
11348: AND p_fetch_code = 'NEW_ST'
11349: AND g_abp_processed_flag = 1 THEN
11350:
11351: Hr_Utility.set_location('....Populating the PLSQL Table for the first time : ',12);
11352:
11353: g_count_05 := 0;
11354: l_rec_05_disp := 'N';
11355:
11366: l_value_num := fnd_number.canonical_to_number(l_value);
11367: l_value_num := l_value_num * 100;
11368: l_value := fnd_number.number_to_canonical(l_value_num);
11369:
11370: Hr_Utility.set_location('....Value of l_value : '||l_value ,14);
11371: Hr_Utility.set_location('....Value of l_kind : '||l_kind ,16);
11372:
11373: --
11374: -- Check if the EE assignment is a new hire and to be reported.
11367: l_value_num := l_value_num * 100;
11368: l_value := fnd_number.number_to_canonical(l_value_num);
11369:
11370: Hr_Utility.set_location('....Value of l_value : '||l_value ,14);
11371: Hr_Utility.set_location('....Value of l_kind : '||l_kind ,16);
11372:
11373: --
11374: -- Check if the EE assignment is a new hire and to be reported.
11375: --
11389:
11390: FETCH c_cur_ptp INTO l_ptp;
11391: IF c_cur_ptp%FOUND THEN
11392: l_ptp := l_ptp * 100;
11393: hr_utility.set_location('....Found PTP : '||l_ptp,28);
11394: ELSE
11395: l_ptp := 0;
11396: hr_utility.set_location('....Did not find PTP : '||l_ptp,28);
11397: END IF;
11392: l_ptp := l_ptp * 100;
11393: hr_utility.set_location('....Found PTP : '||l_ptp,28);
11394: ELSE
11395: l_ptp := 0;
11396: hr_utility.set_location('....Did not find PTP : '||l_ptp,28);
11397: END IF;
11398: CLOSE c_cur_ptp;
11399:
11400: -- 6501898 : For declarant new hires, check if PTP is entered in the current period
11440: --
11441: END IF;*/
11442: -- End of 6501898
11443:
11444: hr_utility.set_location('....Value of PTP is : '||l_ptp,28);
11445:
11446: END IF;
11447:
11448: Hr_Utility.set_location('....New hire flag is l_hired : '||l_hired ,18);
11444: hr_utility.set_location('....Value of PTP is : '||l_ptp,28);
11445:
11446: END IF;
11447:
11448: Hr_Utility.set_location('....New hire flag is l_hired : '||l_hired ,18);
11449:
11450: -- ==========================================================================
11451: -- BEGIN NEW HIRE PARTICIPATION REPORTING SECTION
11452: -- ==========================================================================
11593: -- Section 16 should contain the part time percentage.
11594: --
11595: IF g_retro_ptp_count > 0 THEN
11596:
11597: hr_utility.set_location('....Found retro entries for PTP elements: ',24);
11598: hr_utility.set_location('....Value of g_retro_ptp_count is : '||g_retro_ptp_count,22);
11599:
11600: --13571541
11601: OPEN c_rec05_curr_ptp_end_date;
11594: --
11595: IF g_retro_ptp_count > 0 THEN
11596:
11597: hr_utility.set_location('....Found retro entries for PTP elements: ',24);
11598: hr_utility.set_location('....Value of g_retro_ptp_count is : '||g_retro_ptp_count,22);
11599:
11600: --13571541
11601: OPEN c_rec05_curr_ptp_end_date;
11602: FETCH c_rec05_curr_ptp_end_date into l_ele_exists;
11602: FETCH c_rec05_curr_ptp_end_date into l_ele_exists;
11603: CLOSE c_rec05_curr_ptp_end_date;
11604: --13571541
11605:
11606: hr_utility.set_location('....Value of l_ele_exists is : '||l_ele_exists,20);
11607:
11608: FOR l_retro_ptp_index IN 1..g_retro_ptp_count
11609: LOOP
11610: hr_utility.set_location('....Looping through retro PTP entries : '||i,24);
11606: hr_utility.set_location('....Value of l_ele_exists is : '||l_ele_exists,20);
11607:
11608: FOR l_retro_ptp_index IN 1..g_retro_ptp_count
11609: LOOP
11610: hr_utility.set_location('....Looping through retro PTP entries : '||i,24);
11611: g_rec05_rows(i).partn_kind := ' ';
11612: g_rec05_rows(i).partn_value := ' ';
11613: g_rec05_rows(i).end_reason := ' ';
11614: g_rec05_rows(i).ppp_kind := ' ';
11619: g_rec05_rows(i).new_start := NULL;
11620: g_rec05_rows(i).new_end := NULL;
11621: g_rec05_rows(i).dt_chg := fnd_date.date_to_canonical
11622: (l_rec_05_retro_ptp(l_retro_ptp_index).start_date);
11623: hr_utility.set_location('....Change date st : '||g_rec05_rows(i).dt_chg,24);
11624: IF l_rec_05_retro_ptp(l_retro_ptp_index).end_date >=
11625: trunc(g_extract_params(p_business_group_id).extract_end_date) THEN
11626: g_rec05_rows(i).eddt_chg := NULL;
11627:
11634: ELSE
11635: g_rec05_rows(i).eddt_chg := fnd_date.date_to_canonical(l_rec_05_retro_ptp(l_retro_ptp_index).end_date);
11636: END IF;
11637:
11638: hr_utility.set_location('....Change date End : '||g_rec05_rows(i).eddt_chg,24);
11639: g_rec05_rows(i).part_time_perc := l_rec_05_retro_ptp(l_retro_ptp_index).part_time_perc;
11640: hr_utility.set_location('....Changed PTP : '||g_rec05_rows(i).part_time_perc,24);
11641:
11642: i := i + 1;
11636: END IF;
11637:
11638: hr_utility.set_location('....Change date End : '||g_rec05_rows(i).eddt_chg,24);
11639: g_rec05_rows(i).part_time_perc := l_rec_05_retro_ptp(l_retro_ptp_index).part_time_perc;
11640: hr_utility.set_location('....Changed PTP : '||g_rec05_rows(i).part_time_perc,24);
11641:
11642: i := i + 1;
11643:
11644: END LOOP;
11647: l_rec_05_retro_ptp.DELETE;
11648:
11649: END IF; -- Check if there are retro ptp chanegs to be reported
11650:
11651: hr_utility.set_location('....Completed Rec 05 Retro PTP Changes : ',24);
11652: -- ==========================================================================
11653: -- END RETRO CHANGE IN PART TIME PERCENTAGE SECTION
11654: -- ==========================================================================
11655:
11989:
11990: FOR hire_ptp_rec IN c_hire_ptp_chg (p_assignment_id) LOOP
11991:
11992: IF hire_ptp_rec.start_date > l_hire_date THEN
11993: hr_utility.set_location('....Start Date > Hire Date : ',24);
11994:
11995: IF hire_ptp_rec.ptp <> l_prior_ptp THEN
11996: hr_utility.set_location('....Inserting Rec 05 as PTP has changed : ',24);
11997: g_rec05_rows(i).partn_kind := ' ';
11992: IF hire_ptp_rec.start_date > l_hire_date THEN
11993: hr_utility.set_location('....Start Date > Hire Date : ',24);
11994:
11995: IF hire_ptp_rec.ptp <> l_prior_ptp THEN
11996: hr_utility.set_location('....Inserting Rec 05 as PTP has changed : ',24);
11997: g_rec05_rows(i).partn_kind := ' ';
11998: g_rec05_rows(i).partn_value := ' ';
11999: g_rec05_rows(i).end_reason := ' ';
12000: g_rec05_rows(i).ppp_kind := ' ';
12005: g_rec05_rows(i).new_start := NULL;
12006: g_rec05_rows(i).new_end := NULL;
12007: g_rec05_rows(i).dt_chg := fnd_date.date_to_canonical
12008: (hire_ptp_rec.start_date);
12009: hr_utility.set_location('....Start Date is : '||hire_ptp_rec.start_date,24);
12010: hr_utility.set_location('....End Date is : '||hire_ptp_rec.end_date,24);
12011:
12012: IF hire_ptp_rec.end_date >=
12013: trunc(g_extract_params(p_business_group_id).extract_end_date) THEN
12006: g_rec05_rows(i).new_end := NULL;
12007: g_rec05_rows(i).dt_chg := fnd_date.date_to_canonical
12008: (hire_ptp_rec.start_date);
12009: hr_utility.set_location('....Start Date is : '||hire_ptp_rec.start_date,24);
12010: hr_utility.set_location('....End Date is : '||hire_ptp_rec.end_date,24);
12011:
12012: IF hire_ptp_rec.end_date >=
12013: trunc(g_extract_params(p_business_group_id).extract_end_date) THEN
12014: g_rec05_rows(i).eddt_chg := NULL;
12016: g_rec05_rows(i).eddt_chg := fnd_date.date_to_canonical
12017: (hire_ptp_rec.end_date);
12018: END IF;
12019:
12020: hr_utility.set_location('....PTP is : '||hire_ptp_rec.ptp,24);
12021: g_rec05_rows(i).part_time_perc := hire_ptp_rec.ptp * 100;
12022: i := i + 1;
12023: g_count_05 := i;
12024: l_ptp_row_ins := 1;
12021: g_rec05_rows(i).part_time_perc := hire_ptp_rec.ptp * 100;
12022: i := i + 1;
12023: g_count_05 := i;
12024: l_ptp_row_ins := 1;
12025: hr_utility.set_location('....Value of i is : '||i,24);
12026: hr_utility.set_location('....Value of g_count_05 is : '||g_count_05,24);
12027:
12028: ELSIF hire_ptp_rec.ptp = l_prior_ptp AND l_ptp_row_ins = 1 THEN
12029: -- Assign the new end date to the prior row
12022: i := i + 1;
12023: g_count_05 := i;
12024: l_ptp_row_ins := 1;
12025: hr_utility.set_location('....Value of i is : '||i,24);
12026: hr_utility.set_location('....Value of g_count_05 is : '||g_count_05,24);
12027:
12028: ELSIF hire_ptp_rec.ptp = l_prior_ptp AND l_ptp_row_ins = 1 THEN
12029: -- Assign the new end date to the prior row
12030: hr_utility.set_location('....Inside the IF condition to update the end date: ',24);
12026: hr_utility.set_location('....Value of g_count_05 is : '||g_count_05,24);
12027:
12028: ELSIF hire_ptp_rec.ptp = l_prior_ptp AND l_ptp_row_ins = 1 THEN
12029: -- Assign the new end date to the prior row
12030: hr_utility.set_location('....Inside the IF condition to update the end date: ',24);
12031: hr_utility.set_location('....Ed Dt is : '||hire_ptp_rec.end_date,24);
12032:
12033: IF hire_ptp_rec.end_date >=
12034: trunc(g_extract_params(p_business_group_id).extract_end_date) THEN
12027:
12028: ELSIF hire_ptp_rec.ptp = l_prior_ptp AND l_ptp_row_ins = 1 THEN
12029: -- Assign the new end date to the prior row
12030: hr_utility.set_location('....Inside the IF condition to update the end date: ',24);
12031: hr_utility.set_location('....Ed Dt is : '||hire_ptp_rec.end_date,24);
12032:
12033: IF hire_ptp_rec.end_date >=
12034: trunc(g_extract_params(p_business_group_id).extract_end_date) THEN
12035: g_rec05_rows(i-1).eddt_chg := NULL;
12041: END IF;
12042:
12043: END IF;
12044: l_prior_ptp := hire_ptp_rec.ptp;
12045: hr_utility.set_location('....Value of l_prior_ptp is : '||l_prior_ptp,24);
12046:
12047: END LOOP;
12048:
12049: END IF; -- Check if the EE is a new hire
12056:
12057: IF g_count_05 > 0 THEN
12058:
12059: l_rec_05_disp := 'Y';
12060: Hr_Utility.set_location('----Old start date is : '||g_rec05_rows(g_index_05).old_start,88);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12057: IF g_count_05 > 0 THEN
12058:
12059: l_rec_05_disp := 'Y';
12060: Hr_Utility.set_location('----Old start date is : '||g_rec05_rows(g_index_05).old_start,88);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12058:
12059: l_rec_05_disp := 'Y';
12060: Hr_Utility.set_location('----Old start date is : '||g_rec05_rows(g_index_05).old_start,88);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12059: l_rec_05_disp := 'Y';
12060: Hr_Utility.set_location('----Old start date is : '||g_rec05_rows(g_index_05).old_start,88);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12060: Hr_Utility.set_location('----Old start date is : '||g_rec05_rows(g_index_05).old_start,88);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12061: Hr_Utility.set_location('----New start date is : '||g_rec05_rows(g_index_05).new_start,90);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12069: Hr_Utility.set_location('----Part Time Percent is : '||g_rec05_rows(g_index_05).part_time_perc,106);
12062: Hr_Utility.set_location('----Old end date is : '||g_rec05_rows(g_index_05).old_end,92);
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12069: Hr_Utility.set_location('----Part Time Percent is : '||g_rec05_rows(g_index_05).part_time_perc,106);
12070:
12063: Hr_Utility.set_location('----New end date is : '||g_rec05_rows(g_index_05).new_end,94);
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12069: Hr_Utility.set_location('----Part Time Percent is : '||g_rec05_rows(g_index_05).part_time_perc,106);
12070:
12071: l_return_value := 0;
12064: Hr_Utility.set_location('----Kind of participation is : '||g_rec05_rows(g_index_05).partn_kind,96);
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12069: Hr_Utility.set_location('----Part Time Percent is : '||g_rec05_rows(g_index_05).part_time_perc,106);
12070:
12071: l_return_value := 0;
12072:
12065: Hr_Utility.set_location('----Value of participation is : '||g_rec05_rows(g_index_05).partn_value,98);
12066: Hr_Utility.set_location('----Change start date is : '||g_rec05_rows(g_index_05).dt_chg,100);
12067: Hr_Utility.set_location('----Change end date is : '||g_rec05_rows(g_index_05).eddt_chg,102);
12068: Hr_Utility.set_location('----End reason is : '||g_rec05_rows(g_index_05).end_reason,104);
12069: Hr_Utility.set_location('----Part Time Percent is : '||g_rec05_rows(g_index_05).part_time_perc,106);
12070:
12071: l_return_value := 0;
12072:
12073: --
12104: ELSIF p_fetch_code = 'P_KIND' THEN
12105: p_data_element_value := g_rec05_rows(g_index_05).partn_kind;
12106: ELSIF p_fetch_code = 'P_VALUE' THEN
12107: IF g_rec05_rows(g_index_05).partn_kind = 'WVP' THEN
12108: hr_utility.set_location('.... political leave',110);
12109: p_data_element_value := '0';
12110: ELSIF l_age >= 65 THEN
12111: hr_utility.set_location('....age => 65 ',110);
12112: IF g_rec05_rows(g_index_05).partn_value <> ' ' THEN
12107: IF g_rec05_rows(g_index_05).partn_kind = 'WVP' THEN
12108: hr_utility.set_location('.... political leave',110);
12109: p_data_element_value := '0';
12110: ELSIF l_age >= 65 THEN
12111: hr_utility.set_location('....age => 65 ',110);
12112: IF g_rec05_rows(g_index_05).partn_value <> ' ' THEN
12113: p_data_element_value := '0';
12114: ELSE
12115: p_data_element_value := ' ';
12115: p_data_element_value := ' ';
12116: END IF;
12117: ELSE
12118: p_data_element_value := g_rec05_rows(g_index_05).partn_value;
12119: hr_utility.set_location('....age < 65 and not on political leave',112);
12120: END IF;
12121: ELSIF p_fetch_code = 'DT_CHG' THEN
12122: p_data_element_value := g_rec05_rows(g_index_05).dt_chg;
12123: p_data_element_value := Ben_Ext_Fmt.apply_format_mask
12167: l_rec_05_disp := 'N';
12168: l_return_value := 0;
12169: END IF;
12170:
12171: Hr_Utility.set_location('....Final value of p_data_element_value is : '||p_data_element_value, 114);
12172: Hr_Utility.set_location('Leaving: '||l_proc_name, 116);
12173: Hr_Utility.set_location(' ', 118);
12174: l_return_value :=0;
12175:
12168: l_return_value := 0;
12169: END IF;
12170:
12171: Hr_Utility.set_location('....Final value of p_data_element_value is : '||p_data_element_value, 114);
12172: Hr_Utility.set_location('Leaving: '||l_proc_name, 116);
12173: Hr_Utility.set_location(' ', 118);
12174: l_return_value :=0;
12175:
12176: RETURN l_return_value;
12169: END IF;
12170:
12171: Hr_Utility.set_location('....Final value of p_data_element_value is : '||p_data_element_value, 114);
12172: Hr_Utility.set_location('Leaving: '||l_proc_name, 116);
12173: Hr_Utility.set_location(' ', 118);
12174: l_return_value :=0;
12175:
12176: RETURN l_return_value;
12177: EXCEPTION
12176: RETURN l_return_value;
12177: EXCEPTION
12178: WHEN Others THEN
12179: p_error_message :='SQL-ERRM :'||SQLERRM;
12180: Hr_Utility.set_location('..'||p_error_message,85);
12181: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12182: RETURN l_return_value;
12183: END Get_Rec05_Participation;
12184:
12177: EXCEPTION
12178: WHEN Others THEN
12179: p_error_message :='SQL-ERRM :'||SQLERRM;
12180: Hr_Utility.set_location('..'||p_error_message,85);
12181: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12182: RETURN l_return_value;
12183: END Get_Rec05_Participation;
12184:
12185: --============================================================================
12346: l_end_date Date;
12347:
12348:
12349: BEGIN
12350: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
12351: --check the index and the code and calculate the value accordingly
12352: Hr_Utility.set_location('value of g_index : '||g_index_ipap,7);
12353: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
12354: IF g_index_ipap = 0 AND p_fetch_code = 'NEW_ST' THEN
12348:
12349: BEGIN
12350: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
12351: --check the index and the code and calculate the value accordingly
12352: Hr_Utility.set_location('value of g_index : '||g_index_ipap,7);
12353: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
12354: IF g_index_ipap = 0 AND p_fetch_code = 'NEW_ST' THEN
12355: g_count_ipap := 0;
12356:
12349: BEGIN
12350: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
12351: --check the index and the code and calculate the value accordingly
12352: Hr_Utility.set_location('value of g_index : '||g_index_ipap,7);
12353: Hr_Utility.set_location('value of fetch code : '||p_fetch_code ,10);
12354: IF g_index_ipap = 0 AND p_fetch_code = 'NEW_ST' THEN
12355: g_count_ipap := 0;
12356:
12357: OPEN c_hire_dt;
12365: OPEN c_asg_rows_exist;
12366: FETCH c_asg_rows_exist INTO l_asg_rows_exist;
12367: IF c_asg_rows_exist%FOUND THEN
12368: CLOSE c_asg_rows_exist;
12369: Hr_Utility.set_location('found rows at the assignment eit level',15);
12370: --now fetch the rows from the log table
12371: FOR asg_rec IN c_get_asg_rows
12372: LOOP
12373: IF asg_rec.old_val1 IS NOT NULL THEN
12402: END IF;
12403: i := i + 1;
12404: END LOOP;
12405: g_count_ipap := i;
12406: Hr_Utility.set_location('count of rows : '||g_count_ipap,20);
12407: ELSE
12408: CLOSE c_asg_rows_exist;
12409: --go up the org hierarchy to find the rows at some org eit level
12410: -- find the org the assignment is attached to
12446: l_loop_again := 1;
12447: WHILE (l_loop_again = 1)
12448:
12449: LOOP
12450: Hr_Utility.set_location('searching at org level : '||l_org_id,25);
12451: OPEN c_org_rows_exist(l_org_id);
12452: FETCH c_org_rows_exist INTO l_org_rows_exist;
12453: IF c_org_rows_exist%FOUND THEN
12454: CLOSE c_org_rows_exist;
12484: g_ipap_dates(i).old_end := '';
12485: g_ipap_dates(i).new_end := '';
12486: END IF;
12487: IF l_hired = 1 THEN
12488: Hr_Utility.set_location('hire date : '||l_hire_date,99);
12489: Hr_Utility.set_location('new date : '||g_ipap_dates(i).new_start,100);
12490: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
12491: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start))),101);
12492: IF g_ipap_dates(i).new_start IS NOT NULL THEN
12485: g_ipap_dates(i).new_end := '';
12486: END IF;
12487: IF l_hired = 1 THEN
12488: Hr_Utility.set_location('hire date : '||l_hire_date,99);
12489: Hr_Utility.set_location('new date : '||g_ipap_dates(i).new_start,100);
12490: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
12491: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start))),101);
12492: IF g_ipap_dates(i).new_start IS NOT NULL THEN
12493: Hr_Utility.set_location('chking the new start date',102);
12486: END IF;
12487: IF l_hired = 1 THEN
12488: Hr_Utility.set_location('hire date : '||l_hire_date,99);
12489: Hr_Utility.set_location('new date : '||g_ipap_dates(i).new_start,100);
12490: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
12491: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start))),101);
12492: IF g_ipap_dates(i).new_start IS NOT NULL THEN
12493: Hr_Utility.set_location('chking the new start date',102);
12494: g_ipap_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
12489: Hr_Utility.set_location('new date : '||g_ipap_dates(i).new_start,100);
12490: Hr_Utility.set_location('greater date : '||Fnd_Date.date_to_canonical(Greatest(
12491: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start))),101);
12492: IF g_ipap_dates(i).new_start IS NOT NULL THEN
12493: Hr_Utility.set_location('chking the new start date',102);
12494: g_ipap_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
12495: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start)));
12496: Hr_Utility.set_location('new start date is : '||g_ipap_dates(i).new_start,103);
12497: END IF;
12492: IF g_ipap_dates(i).new_start IS NOT NULL THEN
12493: Hr_Utility.set_location('chking the new start date',102);
12494: g_ipap_dates(i).new_start := Fnd_Date.date_to_canonical(Greatest(
12495: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).new_start)));
12496: Hr_Utility.set_location('new start date is : '||g_ipap_dates(i).new_start,103);
12497: END IF;
12498: IF g_ipap_dates(i).old_start IS NOT NULL THEN
12499: g_ipap_dates(i).old_start := Fnd_Date.date_to_canonical(Greatest(
12500: l_hire_date,Fnd_Date.canonical_to_date(g_ipap_dates(i).old_start)));
12506:
12507: i := i + 1;
12508: END LOOP;
12509: g_count_ipap := i;
12510: Hr_Utility.set_location('value for g count : '||g_count_ipap,30);
12511: l_loop_again := 0;
12512: ELSE
12513: --search at the parent level next
12514: CLOSE c_org_rows_exist;
12558: END IF;
12559: END IF;
12560:
12561: IF g_count_ipap > 0 THEN
12562: Hr_Utility.set_location('old st date : '||g_ipap_dates(g_index_ipap).old_start,40);
12563: Hr_Utility.set_location('new st date : '||g_ipap_dates(g_index_ipap).new_start,45);
12564: Hr_Utility.set_location('old ed date : '||g_ipap_dates(g_index_ipap).old_end,50);
12565: Hr_Utility.set_location('new ed date : '||g_ipap_dates(g_index_ipap).new_end,55);
12566: l_return_value := 0;
12559: END IF;
12560:
12561: IF g_count_ipap > 0 THEN
12562: Hr_Utility.set_location('old st date : '||g_ipap_dates(g_index_ipap).old_start,40);
12563: Hr_Utility.set_location('new st date : '||g_ipap_dates(g_index_ipap).new_start,45);
12564: Hr_Utility.set_location('old ed date : '||g_ipap_dates(g_index_ipap).old_end,50);
12565: Hr_Utility.set_location('new ed date : '||g_ipap_dates(g_index_ipap).new_end,55);
12566: l_return_value := 0;
12567: --depending on the fetch code ,set the data element value
12560:
12561: IF g_count_ipap > 0 THEN
12562: Hr_Utility.set_location('old st date : '||g_ipap_dates(g_index_ipap).old_start,40);
12563: Hr_Utility.set_location('new st date : '||g_ipap_dates(g_index_ipap).new_start,45);
12564: Hr_Utility.set_location('old ed date : '||g_ipap_dates(g_index_ipap).old_end,50);
12565: Hr_Utility.set_location('new ed date : '||g_ipap_dates(g_index_ipap).new_end,55);
12566: l_return_value := 0;
12567: --depending on the fetch code ,set the data element value
12568: IF p_fetch_code = 'NEW_ST' THEN
12561: IF g_count_ipap > 0 THEN
12562: Hr_Utility.set_location('old st date : '||g_ipap_dates(g_index_ipap).old_start,40);
12563: Hr_Utility.set_location('new st date : '||g_ipap_dates(g_index_ipap).new_start,45);
12564: Hr_Utility.set_location('old ed date : '||g_ipap_dates(g_index_ipap).old_end,50);
12565: Hr_Utility.set_location('new ed date : '||g_ipap_dates(g_index_ipap).new_end,55);
12566: l_return_value := 0;
12567: --depending on the fetch code ,set the data element value
12568: IF p_fetch_code = 'NEW_ST' THEN
12569: p_data_element_value := g_ipap_dates(g_index_ipap).new_start;
12584: p_data_element_value := '';
12585: l_return_value := 1;
12586: END IF;
12587:
12588: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 70);
12589: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
12590:
12591: l_return_value :=0;
12592: RETURN l_return_value;
12585: l_return_value := 1;
12586: END IF;
12587:
12588: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 70);
12589: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
12590:
12591: l_return_value :=0;
12592: RETURN l_return_value;
12593: EXCEPTION
12592: RETURN l_return_value;
12593: EXCEPTION
12594: WHEN Others THEN
12595: p_error_message :='SQL-ERRM :'||SQLERRM;
12596: Hr_Utility.set_location('..'||p_error_message,85);
12597: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12598: RETURN l_return_value;
12599: END get_ipap_participation_dates;
12600:
12593: EXCEPTION
12594: WHEN Others THEN
12595: p_error_message :='SQL-ERRM :'||SQLERRM;
12596: Hr_Utility.set_location('..'||p_error_message,85);
12597: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12598: RETURN l_return_value;
12599: END get_ipap_participation_dates;
12600:
12601: -- =============================================================================
12614: l_return_value Number :=0;
12615: l_data_element_value Varchar2(2);
12616:
12617: BEGIN
12618: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
12619: Hr_Utility.set_location('..p_record_num : '||p_record_num , 6);
12620: IF p_record_num = '01' THEN
12621: l_return_value := Record01_Display_Criteria
12622: (p_assignment_id => p_assignment_id
12615: l_data_element_value Varchar2(2);
12616:
12617: BEGIN
12618: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
12619: Hr_Utility.set_location('..p_record_num : '||p_record_num , 6);
12620: IF p_record_num = '01' THEN
12621: l_return_value := Record01_Display_Criteria
12622: (p_assignment_id => p_assignment_id
12623: ,p_business_group_id => p_business_group_id
12736:
12737: ELSE
12738: l_data_element_value := 'N';
12739: END IF;
12740: Hr_Utility.set_location('..l_data_element_value: '||l_data_element_value,45);
12741: Hr_Utility.set_location('Leaving: '||l_proc_name, 50);
12742: RETURN l_data_element_value;
12743: EXCEPTION
12744: WHEN Others THEN
12737: ELSE
12738: l_data_element_value := 'N';
12739: END IF;
12740: Hr_Utility.set_location('..l_data_element_value: '||l_data_element_value,45);
12741: Hr_Utility.set_location('Leaving: '||l_proc_name, 50);
12742: RETURN l_data_element_value;
12743: EXCEPTION
12744: WHEN Others THEN
12745: p_error_message :='SQL-ERRM :'||SQLERRM;
12742: RETURN l_data_element_value;
12743: EXCEPTION
12744: WHEN Others THEN
12745: p_error_message :='SQL-ERRM :'||SQLERRM;
12746: Hr_Utility.set_location('..'||p_error_message,85);
12747: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12748: RETURN l_return_value;
12749:
12750: END Chk_If_Req_ToExtract;
12743: EXCEPTION
12744: WHEN Others THEN
12745: p_error_message :='SQL-ERRM :'||SQLERRM;
12746: Hr_Utility.set_location('..'||p_error_message,85);
12747: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
12748: RETURN l_return_value;
12749:
12750: END Chk_If_Req_ToExtract;
12751:
12815:
12816: EXCEPTION
12817: WHEN Others THEN
12818: p_error_message :='SQL-ERRM :'||SQLERRM;
12819: Hr_Utility.set_location('..'||p_error_message,85);
12820: RETURN l_return_value;
12821: END Process_Mult_Rec05;
12822:
12823: --=============================================================================
12894: l_seq_num VARCHAR2(2);
12895:
12896: BEGIN
12897:
12898: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
12899: --
12900: -- Create Record 08 for an EE assignment if the assignment
12901: -- is a late hire across years. For e.g. hired in 2006 but
12902: -- the first payroll is processed in 2007
13082: FETCH c_hire_dt_chg INTO l_old_date_can,l_new_date_can;
13083: IF c_hire_dt_chg%FOUND THEN
13084: l_old_hire_dt := to_nl_date(l_old_date_can,'DD-MM-RRRR');
13085: l_new_hire_dt := to_nl_date(l_new_date_can,'DD-MM-RRRR');
13086: Hr_Utility.set_location(' Change in hire date found ' || l_proc_name , 10);
13087:
13088: IF to_number(to_char(l_new_hire_dt,'YYYY'))
13089: < to_number(to_char(l_old_hire_dt,'YYYY')) THEN
13090: Hr_Utility.set_location(' Years are different ' || l_proc_name , 10);
13086: Hr_Utility.set_location(' Change in hire date found ' || l_proc_name , 10);
13087:
13088: IF to_number(to_char(l_new_hire_dt,'YYYY'))
13089: < to_number(to_char(l_old_hire_dt,'YYYY')) THEN
13090: Hr_Utility.set_location(' Years are different ' || l_proc_name , 10);
13091:
13092: OPEN or_pen_sal (l_new_hire_dt);
13093: FETCH or_pen_sal INTO l_or_pen_sal;
13094: IF or_pen_sal%FOUND THEN
13091:
13092: OPEN or_pen_sal (l_new_hire_dt);
13093: FETCH or_pen_sal INTO l_or_pen_sal;
13094: IF or_pen_sal%FOUND THEN
13095: Hr_Utility.set_location(' Pension sal found are diff ' || l_proc_name , 10);
13096: OPEN c_get_rcd_id(7);
13097: FETCH c_get_rcd_id INTO l_rcd_id;
13098: CLOSE c_get_rcd_id;
13099:
13178: END IF;
13179:
13180: CLOSE c_hire_dt_chg;
13181:
13182: Hr_Utility.set_location(' Leaving '||l_proc_name , 15);
13183:
13184: RETURN l_ret_val;
13185:
13186: EXCEPTION
13185:
13186: EXCEPTION
13187: WHEN Others THEN
13188: p_error_message :='SQL-ERRM :'||SQLERRM;
13189: Hr_Utility.set_location('..'||p_error_message,85);
13190: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13191: RETURN -1;
13192: END Process_Mult_Rec08;
13193:
13186: EXCEPTION
13187: WHEN Others THEN
13188: p_error_message :='SQL-ERRM :'||SQLERRM;
13189: Hr_Utility.set_location('..'||p_error_message,85);
13190: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13191: RETURN -1;
13192: END Process_Mult_Rec08;
13193:
13194: -- =============================================================================
13210: l_main_rec csr_rslt_dtl%ROWTYPE;
13211: l_new_rec csr_rslt_dtl%ROWTYPE;
13212:
13213: BEGIN
13214: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
13215:
13216: IF l_rec_09_values.Count > 0 THEN
13217:
13218: --Fetch the record id from the sequence number
13248: END IF;
13249: l_rec_09_disp := 'N';
13250: l_ret_val := 0;
13251:
13252: Hr_Utility.set_location(' Leaving '||l_proc_name , 15);
13253:
13254: RETURN l_ret_val;
13255: EXCEPTION
13256: WHEN Others THEN
13254: RETURN l_ret_val;
13255: EXCEPTION
13256: WHEN Others THEN
13257: p_error_message :='SQL-ERRM :'||SQLERRM;
13258: Hr_Utility.set_location('..'||p_error_message,85);
13259: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13260: RETURN -1;
13261: END Process_Mult_Rec09;
13262:
13255: EXCEPTION
13256: WHEN Others THEN
13257: p_error_message :='SQL-ERRM :'||SQLERRM;
13258: Hr_Utility.set_location('..'||p_error_message,85);
13259: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13260: RETURN -1;
13261: END Process_Mult_Rec09;
13262:
13263: -- =============================================================================
13282: l_new_rec csr_rslt_dtl%ROWTYPE;
13283:
13284: BEGIN
13285:
13286: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
13287: hr_utility.set_location('asg : '||p_assignment_id||'count : '||l_rec_12_values.Count,12);
13288:
13289: IF l_rec_12_values.Count > 0 THEN
13290: --fetch the record id from the sequence number
13283:
13284: BEGIN
13285:
13286: Hr_Utility.set_location(' Entering ' || l_proc_name , 10);
13287: hr_utility.set_location('asg : '||p_assignment_id||'count : '||l_rec_12_values.Count,12);
13288:
13289: IF l_rec_12_values.Count > 0 THEN
13290: --fetch the record id from the sequence number
13291: OPEN c_get_rcd_id(10);
13305: l_new_rec := l_main_rec;
13306: l_index := l_rec_12_values.LAST;
13307: FOR i IN 1..l_index
13308: LOOP
13309: hr_utility.set_location('counts : '||i||'----'||l_index,15);
13310: IF l_rec_12_values.EXISTS(i) THEN
13311: Process_Ext_Rslt_Dtl_Rec
13312: (p_assignment_id => p_assignment_id
13313: ,p_effective_date => p_effective_date
13321: END IF;
13322: l_rec_12_disp := 'N';
13323: l_ret_val := 0;
13324:
13325: Hr_Utility.set_location(' Leaving '||l_proc_name , 15);
13326:
13327: RETURN l_ret_val;
13328:
13329: EXCEPTION
13328:
13329: EXCEPTION
13330: WHEN Others THEN
13331: p_error_message :='SQL-ERRM :'||SQLERRM;
13332: Hr_Utility.set_location('..'||p_error_message,85);
13333: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13334: RETURN l_ret_val;
13335: END Process_Mult_Rec12;
13336:
13329: EXCEPTION
13330: WHEN Others THEN
13331: p_error_message :='SQL-ERRM :'||SQLERRM;
13332: Hr_Utility.set_location('..'||p_error_message,85);
13333: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13334: RETURN l_ret_val;
13335: END Process_Mult_Rec12;
13336:
13337: --============================================================================
13354: RETURN l_return_value;
13355: EXCEPTION
13356: WHEN Others THEN
13357: p_error_message :='SQL-ERRM :'||SQLERRM;
13358: Hr_Utility.set_location('..'||p_error_message,85);
13359: RETURN l_return_value;
13360: END Process_Mult_Rec20;
13361:
13362: ---------------------------------------------------------------------------
13376:
13377: EXCEPTION
13378: WHEN Others THEN
13379: p_error_message :='SQL-ERRM :'||SQLERRM;
13380: Hr_Utility.set_location('..'||p_error_message,85);
13381: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
13382: RETURN -1;
13383: END Process_Mult_Rec21;
13384:
13377: EXCEPTION
13378: WHEN Others THEN
13379: p_error_message :='SQL-ERRM :'||SQLERRM;
13380: Hr_Utility.set_location('..'||p_error_message,85);
13381: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
13382: RETURN -1;
13383: END Process_Mult_Rec21;
13384:
13385: ---------------------------------------------------------------------------
13393: l_return_value Number := 0;
13394: l_proc_name Varchar2(80) := 'Process_Mult_Rec22';
13395:
13396: BEGIN
13397: Hr_Utility.set_location('Entering: '||l_proc_name, 15);
13398: RETURN 0;
13399: Hr_Utility.set_location('Leaving: '||l_proc_name, 15);
13400:
13401: EXCEPTION
13395:
13396: BEGIN
13397: Hr_Utility.set_location('Entering: '||l_proc_name, 15);
13398: RETURN 0;
13399: Hr_Utility.set_location('Leaving: '||l_proc_name, 15);
13400:
13401: EXCEPTION
13402: WHEN Others THEN
13403: p_error_message :='SQL-ERRM :'||SQLERRM;
13400:
13401: EXCEPTION
13402: WHEN Others THEN
13403: p_error_message :='SQL-ERRM :'||SQLERRM;
13404: Hr_Utility.set_location('..'||p_error_message,85);
13405: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
13406: RETURN -1;
13407: END Process_Mult_Rec22;
13408:
13401: EXCEPTION
13402: WHEN Others THEN
13403: p_error_message :='SQL-ERRM :'||SQLERRM;
13404: Hr_Utility.set_location('..'||p_error_message,85);
13405: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
13406: RETURN -1;
13407: END Process_Mult_Rec22;
13408:
13409: --============================================================================
13461: RETURN l_return_value;
13462: EXCEPTION
13463: WHEN Others THEN
13464: p_error_message :='SQL-ERRM :'||SQLERRM;
13465: Hr_Utility.set_location('..'||p_error_message,85);
13466: -- hr_utility.set_location('Leaving: '||l_proc_name, 90);
13467: RETURN l_return_value;
13468: END Process_Mult_Rec30;
13469:
13462: EXCEPTION
13463: WHEN Others THEN
13464: p_error_message :='SQL-ERRM :'||SQLERRM;
13465: Hr_Utility.set_location('..'||p_error_message,85);
13466: -- hr_utility.set_location('Leaving: '||l_proc_name, 90);
13467: RETURN l_return_value;
13468: END Process_Mult_Rec30;
13469:
13470: --=============================================================================
13524: END IF;
13525: l_rec_31_disp := 'N';
13526: l_ret_val := 0;
13527:
13528: Hr_Utility.set_location(' Leaving '||l_proc_name , 15);
13529:
13530: RETURN l_ret_val;
13531:
13532: END Process_Mult_Rec31;
13595: RETURN l_return_value;
13596: EXCEPTION
13597: WHEN Others THEN
13598: p_error_message :='SQL-ERRM :'||SQLERRM;
13599: Hr_Utility.set_location('..'||p_error_message,85);
13600: -- hr_utility.set_location('Leaving: '||l_proc_name, 90);
13601: RETURN l_return_value;
13602: END Process_Mult_Rec40;
13603:
13596: EXCEPTION
13597: WHEN Others THEN
13598: p_error_message :='SQL-ERRM :'||SQLERRM;
13599: Hr_Utility.set_location('..'||p_error_message,85);
13600: -- hr_utility.set_location('Leaving: '||l_proc_name, 90);
13601: RETURN l_return_value;
13602: END Process_Mult_Rec40;
13603:
13604: --=============================================================================
13700: l_ret_val := 0;
13701:
13702: END IF;
13703:
13704: Hr_Utility.set_location(' Leaving '||l_proc_name , 15);
13705:
13706: RETURN l_ret_val;
13707:
13708: END Process_Mult_Rec41;
13747:
13748: BEGIN
13749:
13750: --find the defined balance id for the FUR Standard EE Contribution for the _ASG_PTD dimension
13751: Hr_Utility.set_location('Entering : '||l_proc,10);
13752: OPEN csr_defined_bal(c_balance_name => 'FUR Standard EE Contribution'
13753: ,c_dimension_name => 'Assignment Period To Date'
13754: ,c_business_group_id => p_business_group_id
13755: );
13755: );
13756: FETCH csr_defined_bal INTO l_defined_balance_id;
13757: IF csr_defined_bal%FOUND THEN
13758: CLOSE csr_defined_bal;
13759: Hr_Utility.set_location('found defined balance id : '||l_defined_balance_id,20);
13760: --Find the assignment action of the payroll run if any FUR Pensions has been processed and
13761: --if the date earned for that payroll run , is between the extract start and end dates
13762: OPEN c_run_results_exist;
13763: FETCH c_run_results_exist INTO l_asg_act_id;
13764: IF c_run_results_exist%FOUND THEN
13765: --assignment action id has been found, now find the value for the EE contribution
13766: --from the dimension _ASG_PTD
13767: CLOSE c_run_results_exist;
13768: Hr_Utility.set_location('found asg action id : '||l_asg_act_id,30);
13769: --from the assignment action id,and defined balance id fetched above , find the balance value
13770: p_data_element_value := Fnd_Number.number_to_canonical(
13771: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
13772: ,p_assignment_action_id => l_asg_act_id
13770: p_data_element_value := Fnd_Number.number_to_canonical(
13771: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
13772: ,p_assignment_action_id => l_asg_act_id
13773: ));
13774: Hr_Utility.set_location('found value for the contribution as : '||p_data_element_value,40);
13775: g_fur_contribution := Fnd_Number.canonical_to_number(p_data_element_value);
13776: RETURN 0;
13777: ELSE
13778: CLOSE c_run_results_exist;
13775: g_fur_contribution := Fnd_Number.canonical_to_number(p_data_element_value);
13776: RETURN 0;
13777: ELSE
13778: CLOSE c_run_results_exist;
13779: Hr_Utility.set_location('could not find the asg action id',50);
13780: p_data_element_value := '';
13781: p_error_message := 'Could not find a value for the Contribution amount towards FUR Pensions.';
13782: RETURN 1;
13783: END IF;
13782: RETURN 1;
13783: END IF;
13784: ELSE
13785: CLOSE csr_defined_bal;
13786: Hr_Utility.set_location('could not find the defined balance id',60);
13787: p_data_element_value := '';
13788: p_error_message := 'Could not find the defined balance id for the contribution balance.';
13789: RETURN 1;
13790: END IF;
13791:
13792: EXCEPTION
13793: WHEN Others THEN
13794: p_error_message :='SQL-ERRM :'||SQLERRM;
13795: Hr_Utility.set_location('..'||p_error_message,70);
13796: RETURN 1;
13797: END get_fur_contribution_amt;
13798:
13799: --============================================================================
13836:
13837:
13838: BEGIN
13839:
13840: Hr_Utility.set_location('sub category is : '||p_sub_cat,10);
13841: OPEN c_run_results_exist;
13842: FETCH c_run_results_exist INTO l_asg_act_id,l_scheme_prefix;
13843: IF c_run_results_exist%FOUND THEN
13844: CLOSE c_run_results_exist;
13842: FETCH c_run_results_exist INTO l_asg_act_id,l_scheme_prefix;
13843: IF c_run_results_exist%FOUND THEN
13844: CLOSE c_run_results_exist;
13845: --find the defined balance id for the Pension Basis balance for the _ASG_RUN dimension
13846: Hr_Utility.set_location('Entering : '||l_proc,10);
13847: Hr_Utility.set_location('asg act id : '||l_asg_act_id,15);
13848: Hr_Utility.set_location('scheme prefix : '||l_scheme_prefix,20);
13849: OPEN csr_defined_bal(c_balance_name => l_scheme_prefix||' Employee Pension Basis'
13850: ,c_dimension_name => 'Assignment Run'
13843: IF c_run_results_exist%FOUND THEN
13844: CLOSE c_run_results_exist;
13845: --find the defined balance id for the Pension Basis balance for the _ASG_RUN dimension
13846: Hr_Utility.set_location('Entering : '||l_proc,10);
13847: Hr_Utility.set_location('asg act id : '||l_asg_act_id,15);
13848: Hr_Utility.set_location('scheme prefix : '||l_scheme_prefix,20);
13849: OPEN csr_defined_bal(c_balance_name => l_scheme_prefix||' Employee Pension Basis'
13850: ,c_dimension_name => 'Assignment Run'
13851: ,c_business_group_id => p_business_group_id
13844: CLOSE c_run_results_exist;
13845: --find the defined balance id for the Pension Basis balance for the _ASG_RUN dimension
13846: Hr_Utility.set_location('Entering : '||l_proc,10);
13847: Hr_Utility.set_location('asg act id : '||l_asg_act_id,15);
13848: Hr_Utility.set_location('scheme prefix : '||l_scheme_prefix,20);
13849: OPEN csr_defined_bal(c_balance_name => l_scheme_prefix||' Employee Pension Basis'
13850: ,c_dimension_name => 'Assignment Run'
13851: ,c_business_group_id => p_business_group_id
13852: );
13852: );
13853: FETCH csr_defined_bal INTO l_defined_balance_id;
13854: IF csr_defined_bal%FOUND THEN
13855: CLOSE csr_defined_bal;
13856: Hr_Utility.set_location('found defined balance id : '||l_defined_balance_id,20);
13857: --from the assignment action id,and defined balance id fetched above , find the balance value
13858: p_data_element_value := Fnd_Number.number_to_canonical(
13859: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
13860: ,p_assignment_action_id => l_asg_act_id
13858: p_data_element_value := Fnd_Number.number_to_canonical(
13859: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
13860: ,p_assignment_action_id => l_asg_act_id
13861: ));
13862: Hr_Utility.set_location('found value for the contribution as : '||p_data_element_value,40);
13863: IF p_sub_cat = 'FUR_S' THEN
13864: g_fur_contribution := Fnd_Number.canonical_to_number(p_data_element_value);
13865: RETURN 0;
13866: ELSIF p_sub_cat = 'IPAP' THEN
13868: RETURN 0;
13869: END IF;
13870: ELSE
13871: CLOSE csr_defined_bal;
13872: Hr_Utility.set_location('could not find the defined balance id',60);
13873: p_data_element_value := '';
13874: p_error_message := 'Could not find the defined balance id for the contribution balance.';
13875: RETURN 1;
13876: END IF;
13875: RETURN 1;
13876: END IF;
13877: ELSE
13878: CLOSE c_run_results_exist;
13879: Hr_Utility.set_location('Employee does not contribute towards pensions ',65);
13880: p_data_element_value := '';
13881: p_error_message := 'Could not find run results.';
13882: RETURN 1;
13883: END IF;
13884:
13885: EXCEPTION
13886: WHEN Others THEN
13887: p_error_message :='SQL-ERRM :'||SQLERRM;
13888: Hr_Utility.set_location('..'||p_error_message,70);
13889: RETURN 1;
13890: END get_contribution_basis;
13891:
13892: -- =============================================================================
13907: j Number ;
13908:
13909: BEGIN
13910:
13911: Hr_Utility.set_location(' Entering : ' || l_proc_name , 10);
13912: IF p_record_number = 9 THEN
13913: IF l_rec_09_values.count > 0 THEN
13914: j := l_rec_09_values.FIRST;
13915: IF l_rec_09_values.EXISTS(j) THEN
13934: END IF;
13935: END IF;
13936: END IF;
13937:
13938: Hr_Utility.set_location(' Leaving : ' || l_proc_name , 80);
13939:
13940: RETURN 0 ;
13941:
13942: EXCEPTION
13941:
13942: EXCEPTION
13943: WHEN Others THEN
13944: p_error_message :='SQL-ERRM :'||SQLERRM;
13945: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13946: RETURN -1 ;
13947: END Get_Basis_Amt;
13948:
13949: -- =============================================================================
13962: j Number ;
13963:
13964: BEGIN
13965:
13966: Hr_Utility.set_location(' Entering : ' || l_proc_name , 10);
13967: IF l_rec_09_values.count > 0 THEN
13968: j := l_rec_09_values.FIRST;
13969: IF l_rec_09_values.EXISTS(j) THEN
13970: p_data_element_value := l_rec_09_values(j).code;
13970: p_data_element_value := l_rec_09_values(j).code;
13971: END IF;
13972: END IF;
13973:
13974: Hr_Utility.set_location(' Leaving : ' || l_proc_name , 80);
13975:
13976: RETURN 0 ;
13977:
13978: EXCEPTION
13977:
13978: EXCEPTION
13979: WHEN Others THEN
13980: p_error_message :='SQL-ERRM :'||SQLERRM;
13981: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
13982: RETURN -1 ;
13983: END Get_Sub_Cat_09;
13984:
13985: -- =============================================================================
13999: j Number ;
14000:
14001: BEGIN
14002:
14003: Hr_Utility.set_location(' Entering : ' || l_proc_name , 10);
14004: IF p_record_number = 9 THEN
14005: IF l_rec_09_values.count > 0 THEN
14006: j := l_rec_09_values.FIRST;
14007: IF l_rec_09_values.EXISTS(j) THEN
14023: END IF;
14024: END IF;
14025: END IF;
14026:
14027: Hr_Utility.set_location(' Leaving : ' || l_proc_name , 80);
14028:
14029: RETURN 0 ;
14030:
14031: EXCEPTION
14030:
14031: EXCEPTION
14032: WHEN Others THEN
14033: p_error_message :='SQL-ERRM :'||SQLERRM;
14034: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
14035: RETURN -1 ;
14036: END Get_Basis_Amt_Code;
14037:
14038: -- =============================================================================
14052: j Number ;
14053:
14054: BEGIN
14055:
14056: Hr_Utility.set_location(' Entering : ' || l_proc_name , 10);
14057: IF p_record_number = 12 THEN
14058: IF l_rec_12_values.count > 0 THEN
14059: j := l_rec_12_values.FIRST;
14060: IF l_rec_12_values.EXISTS(j) THEN
14077: END IF;
14078: END IF;
14079: END IF;
14080:
14081: Hr_Utility.set_location(' Leaving : ' || l_proc_name , 80);
14082:
14083: RETURN 0 ;
14084:
14085: EXCEPTION
14084:
14085: EXCEPTION
14086: WHEN Others THEN
14087: p_error_message :='SQL-ERRM :'||SQLERRM;
14088: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
14089: RETURN -1 ;
14090: END Get_Contrib_Amt_Code;
14091:
14092:
14129:
14130: BEGIN
14131:
14132: --find the defined balance id for the IPAP Standard EE Contribution for the _ASG_PTD dimension
14133: Hr_Utility.set_location('Entering : '||l_proc,10);
14134: OPEN csr_defined_bal(c_balance_name => 'IPAP EE Contribution'
14135: ,c_dimension_name => 'Assignment Period To Date'
14136: ,c_business_group_id => p_business_group_id
14137: );
14137: );
14138: FETCH csr_defined_bal INTO l_defined_balance_id;
14139: IF csr_defined_bal%FOUND THEN
14140: CLOSE csr_defined_bal;
14141: Hr_Utility.set_location('found defined balance id : '||l_defined_balance_id,20);
14142: --Find the assignment action of the payroll run if any IPAP Pensions has been processed and
14143: --if the date earned for that payroll run , is between the extract start and end dates
14144: OPEN c_run_results_exist;
14145: FETCH c_run_results_exist INTO l_asg_act_id;
14146: IF c_run_results_exist%FOUND THEN
14147: --assignment action id has been found, now find the value for the EE contribution
14148: --from the dimension _ASG_PTD
14149: CLOSE c_run_results_exist;
14150: Hr_Utility.set_location('found asg action id : '||l_asg_act_id,30);
14151: --from the assignment action id,and defined balance id fetched above , find the balance value
14152: p_data_element_value := Fnd_Number.number_to_canonical(
14153: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
14154: ,p_assignment_action_id => l_asg_act_id
14152: p_data_element_value := Fnd_Number.number_to_canonical(
14153: Pay_Balance_Pkg.get_value(p_defined_balance_id => l_defined_balance_id
14154: ,p_assignment_action_id => l_asg_act_id
14155: ));
14156: Hr_Utility.set_location('found value for the contribution as : '||p_data_element_value,40);
14157: g_ipap_contribution := Fnd_Number.canonical_to_number(p_data_element_value);
14158: RETURN 0;
14159: ELSE
14160: CLOSE c_run_results_exist;
14157: g_ipap_contribution := Fnd_Number.canonical_to_number(p_data_element_value);
14158: RETURN 0;
14159: ELSE
14160: CLOSE c_run_results_exist;
14161: Hr_Utility.set_location('could not find the asg action id',50);
14162: p_data_element_value := '';
14163: p_error_message := 'Could not find a value for the Contribution amount towards IPAP Pensions.';
14164: RETURN 1;
14165: END IF;
14164: RETURN 1;
14165: END IF;
14166: ELSE
14167: CLOSE csr_defined_bal;
14168: Hr_Utility.set_location('could not find the defined balance id',60);
14169: p_data_element_value := '';
14170: p_error_message := 'Could not find the defined balance id for the contribution balance.';
14171: RETURN 1;
14172: END IF;
14173:
14174: EXCEPTION
14175: WHEN Others THEN
14176: p_error_message :='SQL-ERRM :'||SQLERRM;
14177: Hr_Utility.set_location('..'||p_error_message,70);
14178: RETURN 1;
14179: END get_ipap_contribution_amt;
14180:
14181: --============================================================================
14194: l_proc_name Varchar2(30) := 'Get_Amt_Code';
14195:
14196: BEGIN
14197:
14198: Hr_Utility.set_location('Entering : -----------'||l_proc_name,5);
14199: IF p_sub_cat = 'FUR_S' THEN
14200: IF g_fur_contribution >= 0 THEN
14201: p_data_element_value := ' ';
14202: RETURN 0;
14216:
14217: EXCEPTION
14218: WHEN Others THEN
14219: p_error_message :='SQL-ERRM :'||SQLERRM;
14220: Hr_Utility.set_location('..'||p_error_message,10);
14221: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
14222: RETURN -1;
14223:
14224: END Get_Amt_Code;
14217: EXCEPTION
14218: WHEN Others THEN
14219: p_error_message :='SQL-ERRM :'||SQLERRM;
14220: Hr_Utility.set_location('..'||p_error_message,10);
14221: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
14222: RETURN -1;
14223:
14224: END Get_Amt_Code;
14225:
14242: SELECT To_Char(p_effective_date,'MM')
14243: FROM dual;
14244:
14245: BEGIN
14246: Hr_Utility.set_location('Entering:-------- '||l_proc_name, 5);
14247: OPEN c_get_amt_month;
14248: FETCH c_get_amt_month INTO l_month;
14249: CLOSE c_get_amt_month;
14250: Hr_Utility.set_location('month of amt is : '||l_month,7);
14246: Hr_Utility.set_location('Entering:-------- '||l_proc_name, 5);
14247: OPEN c_get_amt_month;
14248: FETCH c_get_amt_month INTO l_month;
14249: CLOSE c_get_amt_month;
14250: Hr_Utility.set_location('month of amt is : '||l_month,7);
14251: p_data_element_value := l_month;
14252: RETURN 0;
14253:
14254: EXCEPTION
14253:
14254: EXCEPTION
14255: WHEN Others THEN
14256: p_error_message :='SQL-ERRM :'||SQLERRM;
14257: Hr_Utility.set_location('..'||p_error_message,10);
14258: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
14259: RETURN -1;
14260:
14261: END Get_Amt_Month;
14254: EXCEPTION
14255: WHEN Others THEN
14256: p_error_message :='SQL-ERRM :'||SQLERRM;
14257: Hr_Utility.set_location('..'||p_error_message,10);
14258: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 15);
14259: RETURN -1;
14260:
14261: END Get_Amt_Month;
14262:
14282: FROM dual;
14283:
14284: BEGIN
14285:
14286: hr_utility.set_location('Entering :------- '||l_proc_name,5);
14287:
14288: OPEN c_get_amt_year;
14289: FETCH c_get_amt_year INTO l_year;
14290: CLOSE c_get_amt_year;
14290: CLOSE c_get_amt_year;
14291:
14292: p_data_element_value := l_year;
14293:
14294: hr_utility.set_location('Year is :------- '||l_year,10);
14295: hr_utility.set_location('Leaving :------- '||l_proc_name,15);
14296:
14297: RETURN 0;
14298:
14291:
14292: p_data_element_value := l_year;
14293:
14294: hr_utility.set_location('Year is :------- '||l_year,10);
14295: hr_utility.set_location('Leaving :------- '||l_proc_name,15);
14296:
14297: RETURN 0;
14298:
14299: EXCEPTION
14298:
14299: EXCEPTION
14300: WHEN OTHERS THEN
14301: p_error_message :='SQL-ERRM :'||SQLERRM;
14302: hr_utility.set_location('..ERROR'||p_error_message,10);
14303: hr_utility.set_location('Leaving:-------- '||l_proc_name, 15);
14304: RETURN -1;
14305:
14306: END Get_Amt_Year;
14299: EXCEPTION
14300: WHEN OTHERS THEN
14301: p_error_message :='SQL-ERRM :'||SQLERRM;
14302: hr_utility.set_location('..ERROR'||p_error_message,10);
14303: hr_utility.set_location('Leaving:-------- '||l_proc_name, 15);
14304: RETURN -1;
14305:
14306: END Get_Amt_Year;
14307:
14330: AND information_type = 'NL_ABP_RI';
14331:
14332: BEGIN
14333:
14334: Hr_Utility.set_location('Entering ------ : '||l_proc_name,5);
14335: OPEN c_get_contrib_kind;
14336: FETCH c_get_contrib_kind INTO l_kind_of_contrib;
14337: IF c_get_contrib_kind%FOUND THEN
14338: CLOSE c_get_contrib_kind;
14340: CLOSE c_get_contrib_kind;
14341: l_kind_of_contrib := 'D';
14342: END IF;
14343:
14344: Hr_Utility.set_location('value of kind of contribution : '||l_kind_of_contrib,10);
14345: p_data_element_value := l_kind_of_contrib;
14346: g_fur_contrib_kind := l_kind_of_contrib;
14347: RETURN 0;
14348:
14348:
14349: EXCEPTION
14350: WHEN Others THEN
14351: p_error_message :='SQL-ERRM :'||SQLERRM;
14352: Hr_Utility.set_location('..'||p_error_message,15);
14353: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14354: RETURN -1;
14355:
14356: END Get_Fur_Contribution_Kind;
14349: EXCEPTION
14350: WHEN Others THEN
14351: p_error_message :='SQL-ERRM :'||SQLERRM;
14352: Hr_Utility.set_location('..'||p_error_message,15);
14353: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14354: RETURN -1;
14355:
14356: END Get_Fur_Contribution_Kind;
14357:
14369: l_proc_name Varchar2(30) := 'Get_Ins_Cd_Anw_Ipap';
14370: j number;
14371:
14372: BEGIN
14373: Hr_Utility.set_location('Entering : '||l_proc_name,10);
14374:
14375: j := l_rec_31_values.FIRST;
14376: IF l_rec_31_values.EXISTS(j) THEN
14377: p_data_element_value := l_rec_31_values(j).code;
14376: IF l_rec_31_values.EXISTS(j) THEN
14377: p_data_element_value := l_rec_31_values(j).code;
14378: g_ins_cd_anw_ipap := l_rec_31_values(j).code;
14379: END IF;
14380: Hr_Utility.set_location('Leaving : '||l_proc_name,20);
14381: RETURN 0;
14382:
14383: EXCEPTION
14384: WHEN Others THEN
14382:
14383: EXCEPTION
14384: WHEN Others THEN
14385: p_error_message :='SQL-ERRM :'||SQLERRM;
14386: Hr_Utility.set_location('..'||p_error_message,15);
14387: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14388: RETURN -1;
14389: END Get_Ins_Cd_Anw_Ipap;
14390:
14383: EXCEPTION
14384: WHEN Others THEN
14385: p_error_message :='SQL-ERRM :'||SQLERRM;
14386: Hr_Utility.set_location('..'||p_error_message,15);
14387: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14388: RETURN -1;
14389: END Get_Ins_Cd_Anw_Ipap;
14390:
14391: --============================================================================
14415: l_ipap_type Varchar2(2) := '01';
14416:
14417: BEGIN
14418:
14419: Hr_Utility.set_location('Entering : '||l_proc_name,10);
14420: OPEN c_get_ins_type;
14421: FETCH c_get_ins_type INTO l_anw_type,l_ipap_type;
14422: CLOSE c_get_ins_type;
14423: Hr_Utility.set_location('anw ins type : '||l_anw_type,15);
14419: Hr_Utility.set_location('Entering : '||l_proc_name,10);
14420: OPEN c_get_ins_type;
14421: FETCH c_get_ins_type INTO l_anw_type,l_ipap_type;
14422: CLOSE c_get_ins_type;
14423: Hr_Utility.set_location('anw ins type : '||l_anw_type,15);
14424: Hr_Utility.set_location('ipap ins type : '||l_ipap_type,17);
14425: Hr_Utility.set_location('ins cd : '||g_ins_cd_anw_ipap,19);
14426:
14427: IF g_ins_cd_anw_ipap = '01' THEN
14420: OPEN c_get_ins_type;
14421: FETCH c_get_ins_type INTO l_anw_type,l_ipap_type;
14422: CLOSE c_get_ins_type;
14423: Hr_Utility.set_location('anw ins type : '||l_anw_type,15);
14424: Hr_Utility.set_location('ipap ins type : '||l_ipap_type,17);
14425: Hr_Utility.set_location('ins cd : '||g_ins_cd_anw_ipap,19);
14426:
14427: IF g_ins_cd_anw_ipap = '01' THEN
14428: p_data_element_value := l_anw_type;
14421: FETCH c_get_ins_type INTO l_anw_type,l_ipap_type;
14422: CLOSE c_get_ins_type;
14423: Hr_Utility.set_location('anw ins type : '||l_anw_type,15);
14424: Hr_Utility.set_location('ipap ins type : '||l_ipap_type,17);
14425: Hr_Utility.set_location('ins cd : '||g_ins_cd_anw_ipap,19);
14426:
14427: IF g_ins_cd_anw_ipap = '01' THEN
14428: p_data_element_value := l_anw_type;
14429: ELSIF g_ins_cd_anw_ipap = '02' THEN
14430: p_data_element_value := l_ipap_type;
14431: END IF;
14432: RETURN 0;
14433:
14434: Hr_Utility.set_location('leaving --------------: '||l_proc_name,20);
14435:
14436: EXCEPTION
14437: WHEN Others THEN
14438: p_error_message :='SQL-ERRM :'||SQLERRM;
14435:
14436: EXCEPTION
14437: WHEN Others THEN
14438: p_error_message :='SQL-ERRM :'||SQLERRM;
14439: Hr_Utility.set_location('..'||p_error_message,15);
14440: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14441: RETURN -1;
14442:
14443: END Get_Ins_Typ_Anw_Ipap;
14436: EXCEPTION
14437: WHEN Others THEN
14438: p_error_message :='SQL-ERRM :'||SQLERRM;
14439: Hr_Utility.set_location('..'||p_error_message,15);
14440: Hr_Utility.set_location('Leaving:-------- '||l_proc_name, 20);
14441: RETURN -1;
14442:
14443: END Get_Ins_Typ_Anw_Ipap;
14444:
14509: l_proc_name Varchar2(150) := 'Get_Employment_Kind';
14510:
14511: BEGIN
14512:
14513: Hr_Utility.set_location('Entering : '||l_proc_name,10);
14514: --first fetch the employment code from the soft coding keyflex
14515: OPEN c_get_emp_code;
14516: FETCH c_get_emp_code INTO l_emp_code;
14517: IF c_get_emp_code%FOUND THEN
14515: OPEN c_get_emp_code;
14516: FETCH c_get_emp_code INTO l_emp_code;
14517: IF c_get_emp_code%FOUND THEN
14518: CLOSE c_get_emp_code;
14519: Hr_Utility.set_location('found the code as : '||l_emp_code,20);
14520: --now from the employment code,fetch the udt data for the value (as 1,2,3 etc)
14521: l_emp_kind := Hruserdt.get_table_value
14522: (p_bus_group_id => p_business_group_id
14523: ,p_table_name => 'NL_EMP_SUB_TYPE_CIB_KOA'
14526: ,p_effective_date => p_effective_date
14527: );
14528:
14529: IF l_emp_kind IS NOT NULL THEN
14530: Hr_Utility.set_location('employment kind is : '||l_emp_kind,30);
14531: p_data_element_value := l_emp_kind;
14532: ELSE
14533: p_data_element_value := '';
14534: END IF;
14535: ELSE
14536: CLOSE c_get_emp_code;
14537: p_data_element_value := '';
14538: END IF;
14539: Hr_Utility.set_location('data element value is : '||p_data_element_value,40);
14540: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14541: RETURN 0;
14542:
14543: EXCEPTION
14536: CLOSE c_get_emp_code;
14537: p_data_element_value := '';
14538: END IF;
14539: Hr_Utility.set_location('data element value is : '||p_data_element_value,40);
14540: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14541: RETURN 0;
14542:
14543: EXCEPTION
14544:
14547: RETURN 0;
14548:
14549: WHEN Others THEN
14550: p_error_message := SQLERRM;
14551: Hr_Utility.set_location('error message : '||SQLERRM,10);
14552: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14553: p_data_element_value := '';
14554: RETURN 1;
14555:
14548:
14549: WHEN Others THEN
14550: p_error_message := SQLERRM;
14551: Hr_Utility.set_location('error message : '||SQLERRM,10);
14552: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14553: p_data_element_value := '';
14554: RETURN 1;
14555:
14556: END Get_Employment_Kind;
14579:
14580:
14581: BEGIN
14582:
14583: Hr_Utility.set_location('Entering : '||l_proc_name,10);
14584:
14585: OPEN csr_get_dt(p_assignment_id);
14586: FETCH csr_get_dt INTO l_eff_dt;
14587: CLOSE csr_get_dt;
14589: p_data_element_value := Upper(nvl(TO_CHAR(l_eff_dt,'YYYYMMDD'),'00000000'));
14590:
14591: l_return_value := 0 ;
14592:
14593: Hr_Utility.set_location('l_return_value : '||l_return_value,30);
14594: Hr_Utility.set_location('p_data_element_value : '||p_data_element_value,40);
14595: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14596:
14597: RETURN l_return_value;
14590:
14591: l_return_value := 0 ;
14592:
14593: Hr_Utility.set_location('l_return_value : '||l_return_value,30);
14594: Hr_Utility.set_location('p_data_element_value : '||p_data_element_value,40);
14595: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14596:
14597: RETURN l_return_value;
14598:
14591: l_return_value := 0 ;
14592:
14593: Hr_Utility.set_location('l_return_value : '||l_return_value,30);
14594: Hr_Utility.set_location('p_data_element_value : '||p_data_element_value,40);
14595: Hr_Utility.set_location('Leaving : '||l_proc_name,50);
14596:
14597: RETURN l_return_value;
14598:
14599: END Get_Change_Date;
14618: l_employer_number Number;
14619: l_asg_seq_num Varchar2(2);
14620:
14621: BEGIN
14622: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
14623: -- Get the orgId for assigntment ID
14624: l_return_value := Get_ABP_ER_Num(p_assignment_id
14625: ,p_business_group_id
14626: ,p_effective_date
14635: --l_employee_number := substr(g_primary_assig(p_assignment_id).ee_num,2); --9278285
14636: l_employee_number := NVL(substr(g_primary_assig(p_assignment_id).ee_num, g_sort_position), g_primary_assig(p_assignment_id).ee_num) ; --9278285
14637: END IF;
14638:
14639: Hr_Utility.set_location('l_employee_number: '||l_employee_number, 5);
14640: l_employer_number := Lpad(l_employer_number,9,0);
14641: l_employee_number := Lpad(l_employee_number,10,0);
14642: l_asg_seq_num := g_primary_assig(p_assignment_id).asg_seq_num;
14643: IF To_Number(Nvl(l_asg_seq_num,'1')) < 10 THEN
14655: l_asg_seq_num ||
14656: p_generator_record;
14657: --9278285
14658:
14659: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 5);
14660: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
14661: l_return_value := 0;
14662:
14663: RETURN l_return_value;
14656: p_generator_record;
14657: --9278285
14658:
14659: Hr_Utility.set_location('p_data_element_value: '||p_data_element_value, 5);
14660: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
14661: l_return_value := 0;
14662:
14663: RETURN l_return_value;
14664: EXCEPTION
14663: RETURN l_return_value;
14664: EXCEPTION
14665: WHEN Others THEN
14666: p_error_message :='SQL-ERRM :'||SQLERRM;
14667: Hr_Utility.set_location('..'||p_error_message,85);
14668: RETURN l_return_value;
14669: END Sort_Id_Generator;
14670:
14671: -- =============================================================================
14685: l_return_value Number := -1;
14686:
14687:
14688: BEGIN
14689: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
14690:
14691: -- rpinjala
14692: IF g_primary_assig.EXISTS(p_assignment_id) THEN
14693: p_data_element_value := g_primary_assig(p_assignment_id).organization_id;
14693: p_data_element_value := g_primary_assig(p_assignment_id).organization_id;
14694: END IF;
14695:
14696: l_return_value := 0;
14697: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
14698: RETURN l_return_value;
14699: EXCEPTION
14700: WHEN Others THEN
14701: p_error_message :='SQL-ERRM :'||SQLERRM;
14698: RETURN l_return_value;
14699: EXCEPTION
14700: WHEN Others THEN
14701: p_error_message :='SQL-ERRM :'||SQLERRM;
14702: Hr_Utility.set_location('..'||p_error_message,85);
14703: RETURN l_return_value;
14704: END Org_Id_DataElement;
14705:
14706: -- =============================================================================
14743: AND g_extract_params(p_business_group_id).extract_end_date
14744: BETWEEN effective_start_date AND effective_end_date ;
14745:
14746: BEGIN
14747: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
14748: i := p_business_group_id;
14749:
14750: FOR csr_rcd_rec IN csr_ext_rcd_id_hidden
14751: (c_rcd_type_cd => 'D')-- D=Detail, T=Total, H-Header
14751: (c_rcd_type_cd => 'D')-- D=Detail, T=Total, H-Header
14752: LOOP
14753: l_ext_rcd_id := csr_rcd_rec.ext_rcd_id;
14754:
14755: Hr_Utility.set_location('l_ext_rcd_id: '||l_ext_rcd_id, 5);
14756:
14757: --These are single processing reoords
14758: IF g_ext_rcds(l_ext_rcd_id).record_number IN
14759: ('01','02','04','05','08','09','12','20',
14833: END IF; -- IF l_return_value = 'Y'
14834: END IF;
14835: END LOOP;
14836:
14837: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
14838: END Create_Addl_Assignments;
14839:
14840: -- =============================================================================
14841: -- Process_Addl_Assigs: Process all the assigs in the PL/SQL table for the
14866: l_assignment_id per_all_assignments_f.assignment_id%TYPE;
14867: l_mutli_assig Varchar2(150);
14868: BEGIN
14869:
14870: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
14871:
14872: l_mutli_assig := Check_Addl_Assigs
14873: (p_assignment_id => p_assignment_id
14874: ,p_business_group_id => p_business_group_id
14885: -- created and re-calculate the person level based fast-formulas.
14886: l_assignment_id := g_primary_assig.FIRST;
14887: WHILE l_assignment_id IS NOT NULL
14888: LOOP
14889: Hr_Utility.set_location('..Checking for assignment : '||l_assignment_id, 7);
14890: IF g_primary_assig(l_assignment_id).person_id = l_person_id AND
14891: l_assignment_id <> p_assignment_id AND
14892: g_primary_assig(l_assignment_id).Assignment_Type = 'E' THEN
14893:
14890: IF g_primary_assig(l_assignment_id).person_id = l_person_id AND
14891: l_assignment_id <> p_assignment_id AND
14892: g_primary_assig(l_assignment_id).Assignment_Type = 'E' THEN
14893:
14894: Hr_Utility.set_location('..Valid Assignment : '||l_assignment_id, 8);
14895: Hr_Utility.set_location('..l_no_asg_action : '||l_no_asg_action, 8);
14896:
14897: l_rec_09_values.delete;
14898:
14891: l_assignment_id <> p_assignment_id AND
14892: g_primary_assig(l_assignment_id).Assignment_Type = 'E' THEN
14893:
14894: Hr_Utility.set_location('..Valid Assignment : '||l_assignment_id, 8);
14895: Hr_Utility.set_location('..l_no_asg_action : '||l_no_asg_action, 8);
14896:
14897: l_rec_09_values.delete;
14898:
14899: Populate_Record_Structures
14977: END IF;
14978: l_assignment_id := g_primary_assig.NEXT(l_assignment_id);
14979: END LOOP;
14980:
14981: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
14982: RETURN 0;
14983:
14984: EXCEPTION
14985: WHEN Others THEN
14983:
14984: EXCEPTION
14985: WHEN Others THEN
14986: p_error_message :='SQL-ERRM :'||SQLERRM;
14987: Hr_Utility.set_location('..'||p_error_message,85);
14988: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
14989: RETURN -1;
14990: END Process_Addl_Assigs;
14991:
14984: EXCEPTION
14985: WHEN Others THEN
14986: p_error_message :='SQL-ERRM :'||SQLERRM;
14987: Hr_Utility.set_location('..'||p_error_message,85);
14988: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
14989: RETURN -1;
14990: END Process_Addl_Assigs;
14991:
14992: FUNCTION Process_Retro_Hire
15006:
15007: EXCEPTION
15008: WHEN Others THEN
15009: p_error_message :='SQL-ERRM :'||SQLERRM;
15010: Hr_Utility.set_location('..'||p_error_message,85);
15011: RETURN -1;
15012: END Process_Retro_Hire;
15013:
15014: -- =============================================================================
15030: l_error_flag Boolean;
15031: l_ret_val Number := 0;
15032:
15033: BEGIN
15034: Hr_Utility.set_location('Entering: '||l_proc_name, 4);
15035:
15036: -- Process Multiple Records for Record 05
15037: BEGIN
15038: l_ret_val := Process_Mult_Rec05
15041: ,p_effective_date => p_effective_date
15042: ,p_error_message => p_error_message
15043: ,p_data_element_value => l_data_element_value);
15044: g_rec05_rows.delete;
15045: Hr_Utility.set_location('..Processed Multi Recds for 05 : '||l_proc_name, 5);
15046: EXCEPTION
15047: WHEN Others THEN
15048: Hr_Utility.set_location('..Error in Multi Recds for 05 : '||l_proc_name, 5);
15049: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15044: g_rec05_rows.delete;
15045: Hr_Utility.set_location('..Processed Multi Recds for 05 : '||l_proc_name, 5);
15046: EXCEPTION
15047: WHEN Others THEN
15048: Hr_Utility.set_location('..Error in Multi Recds for 05 : '||l_proc_name, 5);
15049: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15050: l_error_flag := TRUE;
15051: END;
15052: IF l_ret_val <> 0 THEN
15062: ,p_business_group_id => p_business_group_id
15063: ,p_effective_date => p_effective_date
15064: ,p_error_message => p_error_message
15065: ,p_data_element_value => l_data_element_value);
15066: Hr_Utility.set_location('..Processed Multi Recds for 08 : '||l_proc_name, 9);
15067: EXCEPTION
15068: WHEN Others THEN
15069: Hr_Utility.set_location('..Error in Multi Recds for 08 : '||l_proc_name, 9);
15070: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15065: ,p_data_element_value => l_data_element_value);
15066: Hr_Utility.set_location('..Processed Multi Recds for 08 : '||l_proc_name, 9);
15067: EXCEPTION
15068: WHEN Others THEN
15069: Hr_Utility.set_location('..Error in Multi Recds for 08 : '||l_proc_name, 9);
15070: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15071: l_error_flag := TRUE;
15072: END;
15073: IF l_ret_val <> 0 THEN
15085: ,p_error_message => p_error_message
15086: ,p_data_element_value => l_data_element_value);
15087: l_rec_09_values.delete;
15088:
15089: Hr_Utility.set_location('..Processed Multi Recds for 09 : '||l_proc_name, 9);
15090: EXCEPTION
15091: WHEN Others THEN
15092: Hr_Utility.set_location('..Error in Multi Recds for 09 : '||l_proc_name, 9);
15093: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15088:
15089: Hr_Utility.set_location('..Processed Multi Recds for 09 : '||l_proc_name, 9);
15090: EXCEPTION
15091: WHEN Others THEN
15092: Hr_Utility.set_location('..Error in Multi Recds for 09 : '||l_proc_name, 9);
15093: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15094: l_error_flag := TRUE;
15095: END;
15096: IF l_ret_val <> 0 THEN
15108: ,p_effective_date => p_effective_date
15109: ,p_error_message => p_error_message
15110: ,p_data_element_value => l_data_element_value);
15111: l_rec_12_values.delete;
15112: Hr_Utility.set_location('..Processed Multi Recds for 12 : '||l_proc_name, 12);
15113: EXCEPTION
15114: WHEN Others THEN
15115: Hr_Utility.set_location('..Error in Multi Recds for 12 : '||l_proc_name, 12);
15116: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15111: l_rec_12_values.delete;
15112: Hr_Utility.set_location('..Processed Multi Recds for 12 : '||l_proc_name, 12);
15113: EXCEPTION
15114: WHEN Others THEN
15115: Hr_Utility.set_location('..Error in Multi Recds for 12 : '||l_proc_name, 12);
15116: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15117: l_error_flag := TRUE;
15118: END;
15119: IF l_ret_val <> 0 THEN
15130: ,p_business_group_id => p_business_group_id
15131: ,p_effective_date => p_effective_date
15132: ,p_error_message => p_error_message
15133: ,p_data_element_value => l_data_element_value);
15134: Hr_Utility.set_location('..Processed Multi Recds for 30 : '||l_proc_name, 30);
15135: EXCEPTION
15136: WHEN Others THEN
15137: Hr_Utility.set_location('..Error in Multi Recds for 30 : '||l_proc_name, 30);
15138: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15133: ,p_data_element_value => l_data_element_value);
15134: Hr_Utility.set_location('..Processed Multi Recds for 30 : '||l_proc_name, 30);
15135: EXCEPTION
15136: WHEN Others THEN
15137: Hr_Utility.set_location('..Error in Multi Recds for 30 : '||l_proc_name, 30);
15138: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15139: l_error_flag := TRUE;
15140: END;
15141: IF l_ret_val <> 0 THEN
15152: ,p_business_group_id => p_business_group_id
15153: ,p_effective_date => p_effective_date
15154: ,p_error_message => p_error_message
15155: ,p_data_element_value => l_data_element_value);
15156: Hr_Utility.set_location('..Processed Multi Recds for 31 : '||l_proc_name, 31);
15157: EXCEPTION
15158: WHEN Others THEN
15159: Hr_Utility.set_location('..Error in Multi Recds for 31 : '||l_proc_name, 31);
15160: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15155: ,p_data_element_value => l_data_element_value);
15156: Hr_Utility.set_location('..Processed Multi Recds for 31 : '||l_proc_name, 31);
15157: EXCEPTION
15158: WHEN Others THEN
15159: Hr_Utility.set_location('..Error in Multi Recds for 31 : '||l_proc_name, 31);
15160: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15161: l_error_flag := TRUE;
15162: END;
15163: IF l_ret_val <> 0 THEN
15174: ,p_business_group_id => p_business_group_id
15175: ,p_effective_date => p_effective_date
15176: ,p_error_message => p_error_message
15177: ,p_data_element_value => l_data_element_value);
15178: Hr_Utility.set_location('..Processed Multi Recds for 40 : '||l_proc_name, 40);
15179: EXCEPTION
15180: WHEN Others THEN
15181: Hr_Utility.set_location('..Error in Multi Recds for 40 : '||l_proc_name, 40);
15182: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15177: ,p_data_element_value => l_data_element_value);
15178: Hr_Utility.set_location('..Processed Multi Recds for 40 : '||l_proc_name, 40);
15179: EXCEPTION
15180: WHEN Others THEN
15181: Hr_Utility.set_location('..Error in Multi Recds for 40 : '||l_proc_name, 40);
15182: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15183: l_error_flag := TRUE;
15184: END;
15185: IF l_ret_val <> 0 THEN
15196: ,p_business_group_id => p_business_group_id
15197: ,p_effective_date => p_effective_date
15198: ,p_error_message => p_error_message
15199: ,p_data_element_value => l_data_element_value);
15200: Hr_Utility.set_location('..Processed Multi Recds for 41 : '||l_proc_name, 41);
15201: EXCEPTION
15202: WHEN Others THEN
15203: Hr_Utility.set_location('..Error in Multi Recds for 41 : '||l_proc_name, 41);
15204: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15199: ,p_data_element_value => l_data_element_value);
15200: Hr_Utility.set_location('..Processed Multi Recds for 41 : '||l_proc_name, 41);
15201: EXCEPTION
15202: WHEN Others THEN
15203: Hr_Utility.set_location('..Error in Multi Recds for 41 : '||l_proc_name, 41);
15204: l_error_message := Substr('SQL-ERRM :'||SQLERRM,1,2000);
15205: l_error_flag := TRUE;
15206: END;
15207: IF l_ret_val <> 0 THEN
15210: 'Assignment Id :'||p_assignment_id ;
15211: l_error_flag := TRUE;
15212: END IF;
15213:
15214: Hr_Utility.set_location('Leaving: '||l_proc_name, 80);
15215: IF l_error_flag THEN
15216: p_error_message := l_error_message;
15217: RETURN -1;
15218: ELSE
15221:
15222: EXCEPTION
15223: WHEN Others THEN
15224: p_error_message :='SQL-ERRM :'||SQLERRM;
15225: Hr_Utility.set_location('..'||p_error_message,85);
15226: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
15227: RETURN -1;
15228:
15229: END Process_Mult_Records;
15222: EXCEPTION
15223: WHEN Others THEN
15224: p_error_message :='SQL-ERRM :'||SQLERRM;
15225: Hr_Utility.set_location('..'||p_error_message,85);
15226: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
15227: RETURN -1;
15228:
15229: END Process_Mult_Records;
15230:
15249: BEGIN
15250:
15251: l_ret_val := 0;
15252:
15253: Hr_Utility.set_location(' Entering : ' || l_proc_name , 5);
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15250:
15251: l_ret_val := 0;
15252:
15253: Hr_Utility.set_location(' Entering : ' || l_proc_name , 5);
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15258: Hr_Utility.set_location(' g_person_id ' || g_person_id , 30);
15251: l_ret_val := 0;
15252:
15253: Hr_Utility.set_location(' Entering : ' || l_proc_name , 5);
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15258: Hr_Utility.set_location(' g_person_id ' || g_person_id , 30);
15259:
15252:
15253: Hr_Utility.set_location(' Entering : ' || l_proc_name , 5);
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15258: Hr_Utility.set_location(' g_person_id ' || g_person_id , 30);
15259:
15260: IF (p_data_element_cd = 'ABP_ER_NUM') THEN
15253: Hr_Utility.set_location(' Entering : ' || l_proc_name , 5);
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15258: Hr_Utility.set_location(' g_person_id ' || g_person_id , 30);
15259:
15260: IF (p_data_element_cd = 'ABP_ER_NUM') THEN
15261:
15254: Hr_Utility.set_location(' p_assignment_id ' || p_assignment_id , 10);
15255: Hr_Utility.set_location(' p_bg_id is ' || p_business_group_id ,15);
15256: Hr_Utility.set_location(' p_date_earned ' || p_date_earned,20 );
15257: Hr_Utility.set_location(' p_data_ele_cd ' || p_data_element_cd ,25);
15258: Hr_Utility.set_location(' g_person_id ' || g_person_id , 30);
15259:
15260: IF (p_data_element_cd = 'ABP_ER_NUM') THEN
15261:
15262: l_ret_val := Get_ABP_ER_Num(p_assignment_id
16449:
16450: EXCEPTION
16451: WHEN Others THEN
16452: p_error_message :='SQL-ERRM :'||SQLERRM;
16453: Hr_Utility.set_location('..'||p_error_message,85);
16454: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
16455: RETURN l_ret_val;
16456: END PQP_NL_GET_DATA_ELEMENT_VALUE;
16457:
16450: EXCEPTION
16451: WHEN Others THEN
16452: p_error_message :='SQL-ERRM :'||SQLERRM;
16453: Hr_Utility.set_location('..'||p_error_message,85);
16454: Hr_Utility.set_location('Leaving: '||l_proc_name, 90);
16455: RETURN l_ret_val;
16456: END PQP_NL_GET_DATA_ELEMENT_VALUE;
16457:
16458: -- ===============================================================================
16477: l_new_er_num VARCHAR(7) := '0';
16478:
16479: BEGIN
16480:
16481: hr_utility.set_location('Entering: '||l_proc_name, 5);
16482:
16483: OPEN csr_get_new_er_num(p_org_id,p_effective_date);
16484: FETCH csr_get_new_er_num INTO l_new_er_num;
16485: CLOSE csr_get_new_er_num;
16483: OPEN csr_get_new_er_num(p_org_id,p_effective_date);
16484: FETCH csr_get_new_er_num INTO l_new_er_num;
16485: CLOSE csr_get_new_er_num;
16486:
16487: hr_utility.set_location('Leaving: '||l_proc_name, 45);
16488:
16489: RETURN l_new_er_num;
16490:
16491: EXCEPTION
16489: RETURN l_new_er_num;
16490:
16491: EXCEPTION
16492: WHEN Others THEN
16493: hr_utility.set_location('Exception Others Raised at Get_Header_Information',40);
16494: hr_utility.set_location('Leaving: '||l_proc_name, 45);
16495: RETURN -1;
16496: END Get_Header_EMR_Number;
16497:
16490:
16491: EXCEPTION
16492: WHEN Others THEN
16493: hr_utility.set_location('Exception Others Raised at Get_Header_Information',40);
16494: hr_utility.set_location('Leaving: '||l_proc_name, 45);
16495: RETURN -1;
16496: END Get_Header_EMR_Number;
16497:
16498: -- ===============================================================================
16511:
16512: l_proc_name Varchar2(150) := g_proc_name ||'.Get_Header_Submit_Code';
16513: l_submit_code Varchar(4) := '';
16514: BEGIN
16515: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16516:
16517: OPEN csr_get_submit_code;
16518: FETCH csr_get_submit_code INTO l_submit_code;
16519: CLOSE csr_get_submit_code;
16517: OPEN csr_get_submit_code;
16518: FETCH csr_get_submit_code INTO l_submit_code;
16519: CLOSE csr_get_submit_code;
16520:
16521: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16522: RETURN l_submit_code;
16523: EXCEPTION
16524: WHEN Others THEN
16525: Hr_Utility.set_location('Exception Others Raised at Get_Submitter_code',40);
16521: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16522: RETURN l_submit_code;
16523: EXCEPTION
16524: WHEN Others THEN
16525: Hr_Utility.set_location('Exception Others Raised at Get_Submitter_code',40);
16526: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16527: RETURN -1;
16528: END Get_Header_Submit_Code;
16529:
16522: RETURN l_submit_code;
16523: EXCEPTION
16524: WHEN Others THEN
16525: Hr_Utility.set_location('Exception Others Raised at Get_Submitter_code',40);
16526: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16527: RETURN -1;
16528: END Get_Header_Submit_Code;
16529:
16530: -- ===============================================================================
16540:
16541:
16542: BEGIN
16543:
16544: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16545: IF p_header_type = 'HEADER_FILE_SUB_PERIOD' THEN
16546: l_return_value := To_Char(Fnd_Date.canonical_to_date(Fnd_Date.date_to_canonical(g_conc_prog_details(0).beginningdt)),'YYYYMM');
16547: ELSIF p_header_type = 'HEADER_SUB_IDEN' THEN
16548: l_return_value := g_conc_prog_details(0).orgname;
16556: END IF;
16557:
16558: END IF;
16559:
16560: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16561:
16562: RETURN l_return_value;
16563: EXCEPTION
16564: WHEN Others THEN
16562: RETURN l_return_value;
16563: EXCEPTION
16564: WHEN Others THEN
16565: p_error_message :='SQL-ERRM :'||SQLERRM;
16566: Hr_Utility.set_location('..Exception Others Raised at Get_Header_Information'||p_error_message,40);
16567: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16568: RETURN l_return_value;
16569: END Get_Header_Information;
16570:
16563: EXCEPTION
16564: WHEN Others THEN
16565: p_error_message :='SQL-ERRM :'||SQLERRM;
16566: Hr_Utility.set_location('..Exception Others Raised at Get_Header_Information'||p_error_message,40);
16567: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16568: RETURN l_return_value;
16569: END Get_Header_Information;
16570:
16571:
16584: l_sing_number Number := 0;
16585: l_temp Number;
16586:
16587: BEGIN
16588: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16589: IF p_amount IS NOT NULL THEN
16590: OPEN csr_get_sign(p_amount);
16591: FETCH csr_get_sign INTO l_temp;
16592: CLOSE csr_get_sign;
16595: ELSE
16596: RETURN ' ';
16597: END IF;
16598: END IF;
16599: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16600: RETURN ' ';
16601: EXCEPTION
16602: WHEN Others THEN
16603: Hr_Utility.set_location('Exception Others Raised at Get_Header_Information',40);
16599: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16600: RETURN ' ';
16601: EXCEPTION
16602: WHEN Others THEN
16603: Hr_Utility.set_location('Exception Others Raised at Get_Header_Information',40);
16604: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16605: RETURN ' ';
16606: END Get_Trailer_Amount_Sign;
16607:
16600: RETURN ' ';
16601: EXCEPTION
16602: WHEN Others THEN
16603: Hr_Utility.set_location('Exception Others Raised at Get_Header_Information',40);
16604: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16605: RETURN ' ';
16606: END Get_Trailer_Amount_Sign;
16607:
16608: -- ===============================================================================
16626: l_record_count NUMBER := 0;
16627:
16628: BEGIN
16629:
16630: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16631:
16632: OPEN csr_get_a_record_count(p_rcd_1,p_rcd_2,p_emr_id);
16633: FETCH csr_get_a_record_count INTO l_record_count;
16634: CLOSE csr_get_a_record_count;
16632: OPEN csr_get_a_record_count(p_rcd_1,p_rcd_2,p_emr_id);
16633: FETCH csr_get_a_record_count INTO l_record_count;
16634: CLOSE csr_get_a_record_count;
16635:
16636: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16637:
16638: RETURN l_record_count;
16639:
16640: EXCEPTION
16638: RETURN l_record_count;
16639:
16640: EXCEPTION
16641: WHEN OTHERS THEN
16642: Hr_Utility.set_location('Exception Others Raised at Get_Header_Information',40);
16643: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16644: RETURN -1;
16645: END Get_All_Records_Count;
16646:
16639:
16640: EXCEPTION
16641: WHEN OTHERS THEN
16642: Hr_Utility.set_location('Exception Others Raised at Get_Header_Information',40);
16643: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16644: RETURN -1;
16645: END Get_All_Records_Count;
16646:
16647: -- ===============================================================================
16666:
16667: l_proc_name Varchar2(150) := g_proc_name ||'.Get_Trailer_Record_Count';
16668: l_record_count Number := 0;
16669: BEGIN
16670: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16671: OPEN csr_get_record_count(p_rcd_1,p_rcd_2,p_rcd_3,p_emr_id);
16672: FETCH csr_get_record_count INTO l_record_count;
16673: CLOSE csr_get_record_count;
16674: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16670: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
16671: OPEN csr_get_record_count(p_rcd_1,p_rcd_2,p_rcd_3,p_emr_id);
16672: FETCH csr_get_record_count INTO l_record_count;
16673: CLOSE csr_get_record_count;
16674: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16675: RETURN l_record_count;
16676: EXCEPTION
16677: WHEN Others THEN
16678: Hr_Utility.set_location('Exception Others Raised at Get_Trailer_Record_Count',40);
16674: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16675: RETURN l_record_count;
16676: EXCEPTION
16677: WHEN Others THEN
16678: Hr_Utility.set_location('Exception Others Raised at Get_Trailer_Record_Count',40);
16679: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16680: RETURN -1;
16681: END Get_Trailer_Record_Count;
16682:
16675: RETURN l_record_count;
16676: EXCEPTION
16677: WHEN Others THEN
16678: Hr_Utility.set_location('Exception Others Raised at Get_Trailer_Record_Count',40);
16679: Hr_Utility.set_location('Leaving: '||l_proc_name, 45);
16680: RETURN -1;
16681: END Get_Trailer_Record_Count;
16682:
16683: -- ================================================================================
16873: l_DEST VARCHAR2(4000);
16874: --10136155
16875:
16876: BEGIN
16877: Hr_Utility.set_location('Entering :---------'||l_proc_name, 5);
16878: -- Delete all the hidden Records
16879: FOR csr_rcd_rec IN csr_ext_rcd_id
16880: (c_hide_flag => 'Y' -- N=No Y=Yes
16881: ,c_rcd_type_cd => 'D')-- D=Detail, T=Total, H-Header
16904: --the sort value
16905: FOR val IN csr_get_rslt1
16906: (c_ext_rslt_id => Ben_Ext_Thread.g_ext_rslt_id )
16907: LOOP
16908: hr_utility.set_location('val 26 : '||val.val_26,10);
16909: IF g_org_list.EXISTS(val.val_25) THEN
16910: IF NOT g_ord_details1.EXISTS(val.val_25) THEN
16911: hr_utility.set_location('l_org_index : '||l_org_index,20);
16912: hr_utility.set_location('org : '||val.val_25,30);
16907: LOOP
16908: hr_utility.set_location('val 26 : '||val.val_26,10);
16909: IF g_org_list.EXISTS(val.val_25) THEN
16910: IF NOT g_ord_details1.EXISTS(val.val_25) THEN
16911: hr_utility.set_location('l_org_index : '||l_org_index,20);
16912: hr_utility.set_location('org : '||val.val_25,30);
16913: g_ord_details(l_org_index).gre_org_id := val.val_25;
16914: g_ord_details1(to_number(val.val_25)).gre_org_id := val.val_25;
16915: l_org_index := l_org_index + 1;
16908: hr_utility.set_location('val 26 : '||val.val_26,10);
16909: IF g_org_list.EXISTS(val.val_25) THEN
16910: IF NOT g_ord_details1.EXISTS(val.val_25) THEN
16911: hr_utility.set_location('l_org_index : '||l_org_index,20);
16912: hr_utility.set_location('org : '||val.val_25,30);
16913: g_ord_details(l_org_index).gre_org_id := val.val_25;
16914: g_ord_details1(to_number(val.val_25)).gre_org_id := val.val_25;
16915: l_org_index := l_org_index + 1;
16916: END IF;
17014: -- loop through all employers
17015: l_employer_count:=g_employer_list.COUNT;
17016: l_employer_index:=g_employer_list.FIRST;
17017: l_er_index:=0;
17018: Hr_Utility.set_location('l_employer_count --'||l_employer_count,20);
17019:
17020: /* --9278285 Commented Do Not Create trailer record per group
17021: WHILE l_employer_index IS NOT NULL
17022: LOOP
17026: l_org_grp_index:=0;
17027: */
17028: -- for all orgs in the groups
17029: /* --9278285 Commented Do Not divide records into groups
17030: Hr_Utility.set_location('Grp count '||g_org_grp_list_cnt(l_employer_index).org_grp_count ,23);
17031: FOR l_org_count IN 1..g_org_grp_list_cnt(l_employer_index).org_grp_count
17032: LOOP
17033: l_group_org_index:=l_er_index * 1000 + l_org_grp_index;
17034: Hr_Utility.set_location('Current Org Id:---------'||g_employer_child_list(l_group_org_index).gre_org_id, 25);
17030: Hr_Utility.set_location('Grp count '||g_org_grp_list_cnt(l_employer_index).org_grp_count ,23);
17031: FOR l_org_count IN 1..g_org_grp_list_cnt(l_employer_index).org_grp_count
17032: LOOP
17033: l_group_org_index:=l_er_index * 1000 + l_org_grp_index;
17034: Hr_Utility.set_location('Current Org Id:---------'||g_employer_child_list(l_group_org_index).gre_org_id, 25);
17035: -- Get all rows/persons for this orgid
17036: */
17037:
17038: /* --9278285 Cursor Modified, picking all employee records in correct order and storing.
17044: FOR val IN csr_get_rslt
17045: (c_ext_rslt_id => Ben_Ext_Thread.g_ext_rslt_id )
17046: --9278285
17047: LOOP
17048: --Hr_Utility.set_location('val'||val.EXT_RSLT_DTL_ID ,26);
17049: -- Get the individual row using sortid key
17050: -- So we will get only one record related data per person
17051: FOR ind_dtl IN csr_rslt_dtl_sort
17052: (c_val_26 => val.val_26
17153: IF l_new_rec.ext_rcd_id = g_rcd_dtls(8).ext_rcd_id AND
17154: l_new_rec.val_01 = '08'
17155: THEN
17156: -- Calculating Pension Salary ABP USZO(seq05)
17157: Hr_Utility.set_location('inside 99 prcesssing' ,26);
17158: --Hr_Utility.set_location('val'||val.EXT_RSLT_DTL_ID,26);
17159: Hr_Utility.set_location('l_R99_Yearly_Amount :'||To_Number(l_new_rec.val_05),12);
17160: l_R99_Yearly_Amount := l_R99_Yearly_Amount+Nvl(To_Number(l_new_rec.val_05),0);
17161: END IF;
17154: l_new_rec.val_01 = '08'
17155: THEN
17156: -- Calculating Pension Salary ABP USZO(seq05)
17157: Hr_Utility.set_location('inside 99 prcesssing' ,26);
17158: --Hr_Utility.set_location('val'||val.EXT_RSLT_DTL_ID,26);
17159: Hr_Utility.set_location('l_R99_Yearly_Amount :'||To_Number(l_new_rec.val_05),12);
17160: l_R99_Yearly_Amount := l_R99_Yearly_Amount+Nvl(To_Number(l_new_rec.val_05),0);
17161: END IF;
17162: -- Record9
17155: THEN
17156: -- Calculating Pension Salary ABP USZO(seq05)
17157: Hr_Utility.set_location('inside 99 prcesssing' ,26);
17158: --Hr_Utility.set_location('val'||val.EXT_RSLT_DTL_ID,26);
17159: Hr_Utility.set_location('l_R99_Yearly_Amount :'||To_Number(l_new_rec.val_05),12);
17160: l_R99_Yearly_Amount := l_R99_Yearly_Amount+Nvl(To_Number(l_new_rec.val_05),0);
17161: END IF;
17162: -- Record9
17163: IF l_new_rec.ext_rcd_id = g_rcd_dtls(9).ext_rcd_id AND
17211: l_count:=0;
17212:
17213: l_org_grp_index:=0;
17214:
17215: Hr_Utility.set_location('Grp count '||g_org_grp_list_cnt(l_employer_index).org_grp_count ,23);
17216: FOR l_org_count IN 1..g_org_grp_list_cnt(l_employer_index).org_grp_count
17217: LOOP
17218:
17219: l_group_org_index:=l_er_index * 1000 + l_org_grp_index;
17216: FOR l_org_count IN 1..g_org_grp_list_cnt(l_employer_index).org_grp_count
17217: LOOP
17218:
17219: l_group_org_index:=l_er_index * 1000 + l_org_grp_index;
17220: Hr_Utility.set_location('Current Org Id:---------'||g_employer_child_list(l_group_org_index).gre_org_id, 25);
17221: /*9278285*/
17222:
17223: --Get the record count for 20,21 and 22
17224: l_record94_count:=l_record94_count + Get_Trailer_Record_Count(g_rcd_dtls(20).ext_rcd_id
17243: l_record97_count:=l_record97_count + Get_Trailer_Record_Count(g_rcd_dtls(12).ext_rcd_id
17244: ,NULL
17245: ,NULL
17246: ,g_employer_child_list(l_group_org_index).gre_org_id);
17247: Hr_Utility.set_location('l_record99_count --'||l_record99_count,20);
17248: Hr_Utility.set_location('g_employer_child_list(l_group_org_index).gre_org_id --'||g_employer_child_list(l_group_org_index).gre_org_id,20);
17249: l_record99_count:=l_record99_count + Get_All_Records_Count(g_rcd_dtls(0).ext_rcd_id
17250: ,g_rcd_dtls(99).ext_rcd_id
17251: ,g_employer_child_list(l_group_org_index).gre_org_id);
17244: ,NULL
17245: ,NULL
17246: ,g_employer_child_list(l_group_org_index).gre_org_id);
17247: Hr_Utility.set_location('l_record99_count --'||l_record99_count,20);
17248: Hr_Utility.set_location('g_employer_child_list(l_group_org_index).gre_org_id --'||g_employer_child_list(l_group_org_index).gre_org_id,20);
17249: l_record99_count:=l_record99_count + Get_All_Records_Count(g_rcd_dtls(0).ext_rcd_id
17250: ,g_rcd_dtls(99).ext_rcd_id
17251: ,g_employer_child_list(l_group_org_index).gre_org_id);
17252:
17507:
17508: --10136155
17509: END IF;
17510:
17511: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
17512: RETURN l_return_value;
17513:
17514: EXCEPTION
17515: WHEN Others THEN
17512: RETURN l_return_value;
17513:
17514: EXCEPTION
17515: WHEN Others THEN
17516: Hr_Utility.set_location('..Exception when others raised..', 20);
17517: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
17518: RETURN -1;
17519: END Sort_Post_Process;
17520:
17513:
17514: EXCEPTION
17515: WHEN Others THEN
17516: Hr_Utility.set_location('..Exception when others raised..', 20);
17517: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
17518: RETURN -1;
17519: END Sort_Post_Process;
17520:
17521: END Pqp_Nl_Pension_Extracts;