DBA Data[Home] [Help]

APPS.PQP_NL_SAVINGS_TEMPLATE dependencies on HR_UTILITY

Line 5: g_debug BOOLEAN := hr_utility.debug_enabled;

1: Package Body pqp_nl_savings_template As
2: /* $Header: pqpnlsad.pkb 120.6.12010000.2 2009/07/15 12:35:04 rrajaman ship $ */
3:
4: g_proc_name VARCHAR2(80) := ' pqp_nl_savings_template.';
5: g_debug BOOLEAN := hr_utility.debug_enabled;
6:
7: -- ---------------------------------------------------------------------
8: -- |----------------------< Create_Retro_Usages >-----------------------|
9: -- ---------------------------------------------------------------------

Line 38: hr_utility.set_location('Entering: '||l_proc_name, 10);

34: BEGIN
35: l_proc_name := g_proc_name||'Create_Retro_Usages';
36:
37: IF g_debug THEN
38: hr_utility.set_location('Entering: '||l_proc_name, 10);
39: END IF;
40: --
41: IF g_creator.name = p_creator_name AND
42: g_creator.type = p_creator_type

Line 111: hr_utility.set_location('Insert Retro Comp Usgs '||l_proc_name, 20);

107: INTO l_rc_usage_id
108: FROM dual;
109: --
110: IF g_debug THEN
111: hr_utility.set_location('Insert Retro Comp Usgs '||l_proc_name, 20);
112: END IF;
113:
114: INSERT INTO pay_retro_component_usages(
115: RETRO_COMPONENT_USAGE_ID,

Line 195: hr_utility.set_location('Insert Element Span Usgs '||l_proc_name, 30);

191: INTO l_es_usage_id
192: FROM dual;
193:
194: IF g_debug THEN
195: hr_utility.set_location('Insert Element Span Usgs '||l_proc_name, 30);
196: END IF;
197:
198: INSERT INTO pay_element_span_usages(
199: ELEMENT_SPAN_USAGE_ID,

Line 229: hr_utility.set_location('Leaving '||l_proc_name, 40);

225: END;
226: END IF;
227:
228: IF g_debug THEN
229: hr_utility.set_location('Leaving '||l_proc_name, 40);
230: END IF;
231: --
232: EXCEPTION WHEN no_data_found THEN
233: NULL;

Line 260: hr_utility.set_location('Entering: '||l_proc_name, 10);

256: BEGIN
257: l_proc_name := g_proc_name||'Update_Event_Group';
258:
259: IF g_debug THEN
260: hr_utility.set_location('Entering: '||l_proc_name, 10);
261: END IF;
262:
263: --Query up the retro event group id
264: OPEN c_get_retro_evg_id;

Line 267: hr_utility.set_location('Retro EVG id found: '||l_retro_evg_id,20);

263: --Query up the retro event group id
264: OPEN c_get_retro_evg_id;
265: FETCH c_get_retro_evg_id INTO l_retro_evg_id;
266: IF c_get_retro_evg_id%FOUND THEN
267: hr_utility.set_location('Retro EVG id found: '||l_retro_evg_id,20);
268: CLOSE c_get_retro_evg_id;
269:
270: --now update the elements with this recalc event grp id
271: UPDATE pay_element_types_f

Line 277: hr_utility.set_location('Retro EVG id not found',30);

273: WHERE element_name = p_element_name
274: AND business_group_id = p_business_group_id;
275: ELSE
276: --evg id was not found
277: hr_utility.set_location('Retro EVG id not found',30);
278: CLOSE c_get_retro_evg_id;
279: END IF;
280:
281: IF g_debug THEN

Line 282: hr_utility.set_location('Leaving: '||l_proc_name, 40);

278: CLOSE c_get_retro_evg_id;
279: END IF;
280:
281: IF g_debug THEN
282: hr_utility.set_location('Leaving: '||l_proc_name, 40);
283: END IF;
284:
285: EXCEPTION WHEN OTHERS THEN
286: NULL;

Line 540: hr_utility.set_location('Entering: '||l_proc_name, 10);

536: and business_group_id is null;
537: --
538: begin
539: --
540: hr_utility.set_location('Entering: '||l_proc_name, 10);
541: --
542: l_template_name := 'Dutch Savings Deduction';
543: --
544: hr_utility.set_location(l_proc_name, 20);

Line 544: hr_utility.set_location(l_proc_name, 20);

540: hr_utility.set_location('Entering: '||l_proc_name, 10);
541: --
542: l_template_name := 'Dutch Savings Deduction';
543: --
544: hr_utility.set_location(l_proc_name, 20);
545: --
546: for csr_get_temp_id_rec in csr_get_temp_id loop
547: l_template_id := csr_get_temp_id_rec.template_id;
548: end loop;

Line 550: hr_utility.set_location('Leaving: '||l_proc_name, 30);

546: for csr_get_temp_id_rec in csr_get_temp_id loop
547: l_template_id := csr_get_temp_id_rec.template_id;
548: end loop;
549: --
550: hr_utility.set_location('Leaving: '||l_proc_name, 30);
551: --
552: return l_template_id;
553: --
554: end Get_Template_ID;

Line 590: hr_utility.set_location('Entering: '||l_proc_name, 10);

586: from pay_balance_types
587: where business_group_id = p_business_group_id
588: and balance_name in (p_scheme_prefix||' Pension Salary');
589: begin
590: hr_utility.set_location('Entering: '||l_proc_name, 10);
591: for c1_rec in c1_get_reg_earn_feeds loop
592: for c2_rec in c2_balance_type loop
593: Pay_Balance_Feeds_f_pkg.Insert_Row
594: (X_Rowid => l_row_id,

Line 610: hr_utility.set_location('Leaving: '||l_proc_name, 70);

606: l_Balance_Feed_Id := Null;
607: l_row_id := Null;
608: end loop;
609: end loop;
610: hr_utility.set_location('Leaving: '||l_proc_name, 70);
611: end Create_Pen_Sal_Bal_Feeds ;
612:
613: begin
614: -- ---------------------------------------------------------------------

Line 618: hr_utility.set_location('Entering : '||l_proc_name, 10);

614: -- ---------------------------------------------------------------------
615: -- |-------------< Main Function : Create_User_Template Body >----------|
616: -- ---------------------------------------------------------------------
617:
618: hr_utility.set_location('Entering : '||l_proc_name, 10);
619:
620: IF LENGTH(p_scheme_prefix) > 8 THEN
621:
622: -- Limit the prefix length due to DBI's

Line 631: hr_utility.set_location('Check unique scheme name : '||l_proc_name, 11);

627: END IF;
628:
629: pqp_nl_pension_template.chk_scheme_prefix(p_scheme_prefix);
630:
631: hr_utility.set_location('Check unique scheme name : '||l_proc_name, 11);
632: OPEN chk_savings_scheme_name_cur;
633: FETCH chk_savings_scheme_name_cur INTO l_scheme_dummy;
634: IF chk_savings_scheme_name_cur%FOUND THEN
635: CLOSE chk_savings_scheme_name_cur;

Line 636: hr_utility.set_location('Check unique scheme name : '||l_proc_name, 12);

632: OPEN chk_savings_scheme_name_cur;
633: FETCH chk_savings_scheme_name_cur INTO l_scheme_dummy;
634: IF chk_savings_scheme_name_cur%FOUND THEN
635: CLOSE chk_savings_scheme_name_cur;
636: hr_utility.set_location('Check unique scheme name : '||l_proc_name, 12);
637: fnd_message.set_name('PQP', 'PQP_230924_SCHEME_NAME_ERR');
638: fnd_message.raise_error;
639: ELSE
640: CLOSE chk_savings_scheme_name_cur;

Line 648: hr_utility.set_location('..Setting the Session Date', 15);

644: -- Set session date
645: -- ---------------------------------------------------------------------
646: pay_db_pay_setup.set_session_date(nvl(p_effective_start_date, sysdate));
647: --
648: hr_utility.set_location('..Setting the Session Date', 15);
649: -- ---------------------------------------------------------------------
650: -- Get Source Template ID
651: -- ---------------------------------------------------------------------
652: l_source_template_id := get_template_id

Line 657: hr_utility.set_location('..Checking all the Exclusion Rules', 20);

653: (p_legislation_code => g_template_leg_code);
654: -- ---------------------------------------------------------------------
655: -- Exclusion rules
656: -- ---------------------------------------------------------------------
657: hr_utility.set_location('..Checking all the Exclusion Rules', 20);
658:
659: -- Define the exclusion_rule based on the salary calculation
660: -- method.
661: OPEN csr_pty1 (c_pension_type_id => p_pension_type_id

Line 768: hr_utility.set_location('..Creating template User structure', 25);

764:
765: -- ---------------------------------------------------------------------
766: -- Create user structure from the template
767: -- ---------------------------------------------------------------------
768: hr_utility.set_location('..Creating template User structure', 25);
769:
770: -- for savings , change the deduction method to PE for both percentage cases
771:
772:

Line 1022: hr_utility.set_location('..Updating the scheme shadow elements', 30);

1018: := 'Element for '||p_scheme_prefix||' Tax SI Adjustment';
1019: END LOOP;
1020:
1021:
1022: hr_utility.set_location('..Updating the scheme shadow elements', 30);
1023: for i in 1..l_count
1024: loop
1025: -- Set the standard link flag only for EE and ER elements
1026: -- if the standard link is Y

Line 1230: hr_utility.set_location('..After Updating the scheme shadow elements', 50);

1226: l_shadow_element(l_count).description
1227: := 'Element for '||p_scheme_prefix||' ZVW Income Special Tax Adjustment Previous Year';
1228: END LOOP;
1229:
1230: hr_utility.set_location('..After Updating the scheme shadow elements', 50);
1231:
1232: hr_utility.set_location('Before updating the mandatory flag for the input value',52);
1233: IF p_deduction_method = 'PE' THEN
1234: for csr_rec in csr_shd_ipv (p_scheme_prefix||' Savings Deduction')

Line 1232: hr_utility.set_location('Before updating the mandatory flag for the input value',52);

1228: END LOOP;
1229:
1230: hr_utility.set_location('..After Updating the scheme shadow elements', 50);
1231:
1232: hr_utility.set_location('Before updating the mandatory flag for the input value',52);
1233: IF p_deduction_method = 'PE' THEN
1234: for csr_rec in csr_shd_ipv (p_scheme_prefix||' Savings Deduction')
1235: loop
1236: --update the mandatory flag for the Percentage input value

Line 1242: hr_utility.set_location('After updating the mandatory flag for the input value',54);

1238: SET mandatory_flag = 'Y'
1239: WHERE input_value_id = csr_rec.input_value_id;
1240: end loop;
1241: END IF;
1242: hr_utility.set_location('After updating the mandatory flag for the input value',54);
1243:
1244: -- Replace the spaces in the prefix with underscores. The formula name
1245: -- has underscores if the prefix name has spaces in it .
1246: l_scheme_prefix := upper(replace(l_scheme_prefix,' ','_'));

Line 1387: hr_utility.set_location('leaving'||l_prem_replace_string,30);

1383:
1384: l_prem_replace_string := ' ' ;
1385:
1386: END IF;
1387: hr_utility.set_location('leaving'||l_prem_replace_string,30);
1388:
1389: IF p_employer_component = 'Y' THEN
1390:
1391: l_shad_formula_id1 := pqp_nl_pension_template.Get_Formula_Id(l_scheme_prefix||'_EMPLOYER_SAVINGS_CONTRIBUTION'

Line 1393: hr_utility.set_location('leaving'||l_shad_formula_id1,40);

1389: IF p_employer_component = 'Y' THEN
1390:
1391: l_shad_formula_id1 := pqp_nl_pension_template.Get_Formula_Id(l_scheme_prefix||'_EMPLOYER_SAVINGS_CONTRIBUTION'
1392: ,p_business_group_id);
1393: hr_utility.set_location('leaving'||l_shad_formula_id1,40);
1394: OPEN csr_pty2 (c_pension_type_id => p_pension_type_id
1395: ,c_effective_date => p_effective_start_date);
1396: FETCH csr_pty2 INTO l_er_contribution_bal_type_id;
1397: hr_utility.set_location('leaving'||l_er_contribution_bal_type_id,50);

Line 1397: hr_utility.set_location('leaving'||l_er_contribution_bal_type_id,50);

1393: hr_utility.set_location('leaving'||l_shad_formula_id1,40);
1394: OPEN csr_pty2 (c_pension_type_id => p_pension_type_id
1395: ,c_effective_date => p_effective_start_date);
1396: FETCH csr_pty2 INTO l_er_contribution_bal_type_id;
1397: hr_utility.set_location('leaving'||l_er_contribution_bal_type_id,50);
1398: IF csr_pty2%notfound THEN
1399: fnd_message.set_name('PQP', 'PQP_230805_INV_PENSIONID');
1400: fnd_message.raise_error;
1401: CLOSE csr_pty2;

Line 1403: hr_utility.set_location('leaving',60);

1399: fnd_message.set_name('PQP', 'PQP_230805_INV_PENSIONID');
1400: fnd_message.raise_error;
1401: CLOSE csr_pty2;
1402: ELSE
1403: hr_utility.set_location('leaving',60);
1404: FOR temp_rec IN csr_get_formula_txt(l_shad_formula_id1)
1405: LOOP
1406: l_formula_text1 := temp_rec.formula_text;
1407: END LOOP;

Line 1414: hr_utility.set_location('leaving',70);

1410: LOOP
1411: l_dbi_user_name := temp_rec.user_name;
1412: l_formula_text1 := replace(l_formula_text1,'REPLACE_PT_ER_BAL_PER_YTD',
1413: l_dbi_user_name);
1414: hr_utility.set_location('leaving',70);
1415: l_formula_text1 := replace(l_formula_text1,'REPLACE_PREM_AMT_FORMULA_TEXT',
1416: l_prem_replace_string);
1417: hr_utility.set_location('leaving',80);
1418:

Line 1417: hr_utility.set_location('leaving',80);

1413: l_dbi_user_name);
1414: hr_utility.set_location('leaving',70);
1415: l_formula_text1 := replace(l_formula_text1,'REPLACE_PREM_AMT_FORMULA_TEXT',
1416: l_prem_replace_string);
1417: hr_utility.set_location('leaving',80);
1418:
1419: update pay_shadow_formulas
1420: set formula_text = l_formula_text1
1421: where formula_id = l_shad_formula_id1

Line 1423: hr_utility.set_location('leaving',90);

1419: update pay_shadow_formulas
1420: set formula_text = l_formula_text1
1421: where formula_id = l_shad_formula_id1
1422: and business_group_id = p_business_group_id;
1423: hr_utility.set_location('leaving',90);
1424: END LOOP;
1425: END IF;
1426: -- hr_utility.trace_off;
1427: CLOSE csr_pty2;

Line 1426: -- hr_utility.trace_off;

1422: and business_group_id = p_business_group_id;
1423: hr_utility.set_location('leaving',90);
1424: END LOOP;
1425: END IF;
1426: -- hr_utility.trace_off;
1427: CLOSE csr_pty2;
1428: END IF;
1429:
1430: -----------------------------------------------------

Line 1496: hr_utility.set_location('Done replacing Tax SI string in the formula', 51);

1492:
1493:
1494:
1495: IF g_debug THEN
1496: hr_utility.set_location('Done replacing Tax SI string in the formula', 51);
1497: hr_utility.set_location('Generating Core objects : Part - 1', 50);
1498: END IF;
1499:
1500:

Line 1497: hr_utility.set_location('Generating Core objects : Part - 1', 50);

1493:
1494:
1495: IF g_debug THEN
1496: hr_utility.set_location('Done replacing Tax SI string in the formula', 51);
1497: hr_utility.set_location('Generating Core objects : Part - 1', 50);
1498: END IF;
1499:
1500:
1501: -- ---------------------------------------------------------------------

Line 1511: hr_utility.set_location('..After Generating Core objects : Part - 1', 50);

1507: ,p_hr_only => false
1508: ,p_hr_to_payroll => false
1509: ,p_template_id => l_template_id);
1510: --
1511: hr_utility.set_location('..After Generating Core objects : Part - 1', 50);
1512: --
1513: pay_element_template_api.generate_part2
1514: (p_validate => false
1515: ,p_effective_date => p_effective_start_date

Line 1518: hr_utility.set_location('..After Generating Core objects : Part - 2', 50);

1514: (p_validate => false
1515: ,p_effective_date => p_effective_start_date
1516: ,p_template_id => l_template_id);
1517: --
1518: hr_utility.set_location('..After Generating Core objects : Part - 2', 50);
1519:
1520: -- Update some of the input values on the main element
1521:
1522: pqp_nl_pension_template.Update_Ipval_Defval( p_scheme_prefix||' Savings Deduction'

Line 1621: hr_utility.set_location('..After Creating element extra information', 50);

1617: ,p_eei_information20 => null
1618: ,p_element_type_extra_info_id => l_eei_info_id
1619: ,p_object_version_number => l_ovn_eei);
1620:
1621: hr_utility.set_location('..After Creating element extra information', 50);
1622:
1623: -- ---------------------------------------------------------------------
1624: -- The base element's Pay Value should feed the EE Contribution balance
1625: -- for the pension scheme created.

Line 1662: hr_utility.set_location('..After creating the balance feed for the base, Pay Value', 50);

1658: l_row_id := null;
1659:
1660: end loop;
1661:
1662: hr_utility.set_location('..After creating the balance feed for the base, Pay Value', 50);
1663:
1664: -- ---------------------------------------------------------------------
1665: -- The ER base element's Pay Value should feed the ER Contribution balance
1666: -- for the savings scheme created.

Line 1705: hr_utility.set_location('..After creating the balance feed for the ER base, Pay Value', 51);

1701: end loop;
1702:
1703: END IF;
1704:
1705: hr_utility.set_location('..After creating the balance feed for the ER base, Pay Value', 51);
1706:
1707:
1708: Create_Retro_Usages
1709: (p_creator_name => p_scheme_prefix||' Savings Deduction'

Line 1865: hr_utility.set_location('Done Creating Retro Comp Usgs', 50);

1861:
1862:
1863:
1864: IF g_debug THEN
1865: hr_utility.set_location('Done Creating Retro Comp Usgs', 50);
1866: END IF;
1867:
1868: IF g_debug THEN
1869: hr_utility.set_location('Adding Event Group',60);

Line 1869: hr_utility.set_location('Adding Event Group',60);

1865: hr_utility.set_location('Done Creating Retro Comp Usgs', 50);
1866: END IF;
1867:
1868: IF g_debug THEN
1869: hr_utility.set_location('Adding Event Group',60);
1870: END IF;
1871:
1872: Update_Event_Group
1873: (p_element_name => p_scheme_prefix||' Savings Deduction'

Line 1883: hr_utility.set_location('Done Adding the Event Group', 60);

1879:
1880:
1881:
1882: IF g_debug THEN
1883: hr_utility.set_location('Done Adding the Event Group', 60);
1884: END IF;
1885:
1886: -- Compile the base element's standard formula
1887: -- ---------------------------------------------------------------------

Line 1911: hr_utility.set_location('Leaving :'||l_proc_name, 190);

1907:
1908: END IF;
1909:
1910:
1911: hr_utility.set_location('Leaving :'||l_proc_name, 190);
1912:
1913: return l_base_element_type_id;
1914:
1915: end Create_User_Template;

Line 1957: hr_utility.set_location(' Entering:' || l_proc,10);

1953: -- Other variables
1954: l_return_status varchar2(1);
1955: l_proc varchar2(72) := 'Create_User_Template_Swi';
1956: Begin
1957: hr_utility.set_location(' Entering:' || l_proc,10);
1958: l_element_type_id := -1;
1959: --
1960: -- Issue a savepoint
1961: --

Line 2018: hr_utility.set_location(' Leaving:' || l_proc,20);

2014: -- messages of any type exist in the Multiple Message List.
2015: -- Also disable Multiple Message Detection.
2016: --
2017: l_return_status := hr_multi_message.get_return_status_disable;
2018: hr_utility.set_location(' Leaving:' || l_proc,20);
2019: return l_element_type_id;
2020:
2021: --
2022: exception

Line 2034: hr_utility.set_location(' Leaving:' || l_proc, 30);

2030: --
2031: -- Reset IN OUT parameters and set OUT parameters
2032: --
2033: return l_element_type_id;
2034: hr_utility.set_location(' Leaving:' || l_proc, 30);
2035:
2036: when others then
2037: --
2038: -- When Multiple Message Detection is enabled catch

Line 2046: hr_utility.set_location(' Leaving:' || l_proc,40);

2042: -- error.
2043: --
2044: rollback to Create_User_Template_Swi;
2045: if hr_multi_message.unexpected_error_add(l_proc) then
2046: hr_utility.set_location(' Leaving:' || l_proc,40);
2047: raise;
2048: end if;
2049: --
2050: -- Reset IN OUT and set OUT parameters

Line 2054: hr_utility.set_location(' Leaving:' || l_proc,50);

2050: -- Reset IN OUT and set OUT parameters
2051: --
2052: l_return_status := hr_multi_message.get_return_status_disable;
2053: return l_element_type_id;
2054: hr_utility.set_location(' Leaving:' || l_proc,50);
2055:
2056:
2057: END create_user_template_swi;
2058:

Line 2091: hr_utility.set_location('Entering :'||l_proc, 10);

2087: l_template_id Number(9);
2088: l_proc Varchar2(60) := g_proc_name||'Delete_User_Template';
2089:
2090: begin
2091: hr_utility.set_location('Entering :'||l_proc, 10);
2092: --
2093: for c1_rec in c1 loop
2094: l_template_id := c1_rec.template_id;
2095: end loop;

Line 2114: hr_utility.set_location('Leaving :'||l_proc, 50);

2110: (p_element_type_extra_info_id => temp_rec.element_type_extra_info_id
2111: ,p_object_version_number => temp_rec.object_version_number);
2112: END LOOP;
2113:
2114: hr_utility.set_location('Leaving :'||l_proc, 50);
2115: end Delete_User_Template;
2116: --
2117:
2118: -- ---------------------------------------------------------------------

Line 2143: hr_utility.set_location(' Entering:' || l_proc,10);

2139: l_proc varchar2(72) := 'Delete_User_Template_Swi';
2140:
2141: Begin
2142:
2143: hr_utility.set_location(' Entering:' || l_proc,10);
2144: --
2145: -- Issue a savepoint
2146: --
2147: savepoint Delete_User_Template_Swi;

Line 2188: hr_utility.set_location(' Leaving:' || l_proc,20);

2184: -- messages of any type exist in the Multiple Message List.
2185: -- Also disable Multiple Message Detection.
2186: --
2187: l_return_status := hr_multi_message.get_return_status_disable;
2188: hr_utility.set_location(' Leaving:' || l_proc,20);
2189:
2190: --
2191: exception
2192: when hr_multi_message.error_message_exist then

Line 2202: hr_utility.set_location(' Leaving:' || l_proc, 30);

2198: rollback to Delete_User_Template_Swi;
2199: --
2200: -- Reset IN OUT parameters and set OUT parameters
2201: --
2202: hr_utility.set_location(' Leaving:' || l_proc, 30);
2203:
2204: when others then
2205: --
2206: -- When Multiple Message Detection is enabled catch

Line 2214: hr_utility.set_location(' Leaving:' || l_proc,40);

2210: -- error.
2211: --
2212: rollback to Delete_User_Template_Swi;
2213: if hr_multi_message.unexpected_error_add(l_proc) then
2214: hr_utility.set_location(' Leaving:' || l_proc,40);
2215: raise;
2216: end if;
2217: --
2218: -- Reset IN OUT and set OUT parameters

Line 2221: hr_utility.set_location(' Leaving:' || l_proc,50);

2217: --
2218: -- Reset IN OUT and set OUT parameters
2219: --
2220: l_return_status := hr_multi_message.get_return_status_disable;
2221: hr_utility.set_location(' Leaving:' || l_proc,50);
2222:
2223: END delete_user_template_swi;
2224:
2225: end pqp_nl_savings_template;