1: PACKAGE BODY pay_se_income_statement AS
2: /* $Header: pyseinsr.pkb 120.8 2010/10/28 08:57:20 vijranga ship $ */
3: g_debug BOOLEAN := hr_utility.debug_enabled;
4:
5: TYPE lock_rec IS RECORD (
6: archive_assact_id NUMBER
7: );
50: BEGIN
51: --
52: IF g_debug
53: THEN
54: hr_utility.set_location (' Entering Function GET_PARAMETER', 10);
55: END IF;
56:
57: l_start_pos :=
58: INSTR (' ' || p_parameter_string, l_delimiter || p_token || '=');
93:
94: --
95: IF g_debug
96: THEN
97: hr_utility.set_location (' Leaving Function GET_PARAMETER', 20);
98: END IF;
99:
100: RETURN l_parameter;
101: END;
199: -- logger ('p_test_or_production', p_test_or_production);
200:
201: IF g_debug
202: THEN
203: hr_utility.set_location (' Leaving Procedure GET_ALL_PARAMETERS'
204: ,30);
205: END IF;
206: END get_all_parameters;
207:
422: --logger ('Range Code ', '=====> Started');
423:
424: IF g_debug
425: THEN
426: hr_utility.set_location (' Entering Procedure RANGE_CODE', 40);
427: END IF;
428:
429: p_sql :=
430: 'SELECT DISTINCT person_id
805: --END OF Insert for LE or ALL LE
806: -- *****************************************************************************
807: IF g_debug
808: THEN
809: hr_utility.set_location (' Leaving Procedure RANGE_CODE', 50);
810: END IF;
811: EXCEPTION
812: WHEN OTHERS
813: THEN
1379: --logger ('ASSIGNMENT_ACTION_CODE ', '--------------------------------- Ended');
1380:
1381: IF g_debug
1382: THEN
1383: hr_utility.set_location
1384: (' Leaving Procedure ASSIGNMENT_ACTION_CODE'
1385: ,70
1386: );
1387: END IF;
1389: WHEN OTHERS
1390: THEN
1391: IF g_debug
1392: THEN
1393: hr_utility.set_location ('error raised assignment_action_code '
1394: ,5
1395: );
1396: END IF;
1397:
1639: l_defined_balance_id ff_user_entities.user_entity_id%TYPE;
1640: BEGIN
1641: IF g_debug
1642: THEN
1643: hr_utility.set_location
1644: (' Entering Function GET_DEFINED_BALANCE_ID'
1645: ,240
1646: );
1647: END IF;
1656: RETURN l_defined_balance_id;
1657:
1658: IF g_debug
1659: THEN
1660: hr_utility.set_location (' Leaving Function GET_DEFINED_BALANCE_ID'
1661: ,250
1662: );
1663: END IF;
1664: END get_defined_balance_id;
1688: l_return_balance_value NUMBER;
1689: BEGIN
1690: IF g_debug
1691: THEN
1692: hr_utility.set_location
1693: (' Entering Function GET_DEFINED_BALANCE_VALUE'
1694: ,240
1695: );
1696: END IF;
1716: RETURN l_return_balance_value;
1717:
1718: IF g_debug
1719: THEN
1720: hr_utility.set_location
1721: (' Leaving Function GET_DEFINED_BALANCE_VALUE'
1722: ,250
1723: );
1724: END IF;
2426: -- End of place for Cursor which fetches the values to be archived
2427: BEGIN
2428: IF g_debug
2429: THEN
2430: hr_utility.set_location (' Entering Procedure ARCHIVE_CODE', 380);
2431: END IF;
2432:
2433: --logger ('ARCHIVE_CODE ', '--------------------------------Started');
2434: --logger ('p_assignment_action_id ', p_assignment_action_id);
4175: current_index PLS_INTEGER;
4176: l_iana_charset VARCHAR2 (50);
4177: BEGIN
4178: l_iana_charset := hr_se_utility.get_iana_charset;
4179: hr_utility.set_location ('Entering WritetoCLOB ', 70);
4180: l_str1 :=
4181: '
4182: || l_iana_charset
4183: || '"?>
4302: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
4303: END IF;
4304:
4305: p_xfdf_clob := l_xfdf_string;
4306: hr_utility.set_location ('Leaving WritetoCLOB ', 40);
4307: EXCEPTION
4308: WHEN OTHERS
4309: THEN
4310: hr_utility.TRACE ('sqlerrm ' || SQLERRM);
4306: hr_utility.set_location ('Leaving WritetoCLOB ', 40);
4307: EXCEPTION
4308: WHEN OTHERS
4309: THEN
4310: hr_utility.TRACE ('sqlerrm ' || SQLERRM);
4311: hr_utility.raise_error;
4312: END writetoclob;
4313: PROCEDURE get_xml_for_report (
4314: p_business_group_id IN NUMBER
4307: EXCEPTION
4308: WHEN OTHERS
4309: THEN
4310: hr_utility.TRACE ('sqlerrm ' || SQLERRM);
4311: hr_utility.raise_error;
4312: END writetoclob;
4313: PROCEDURE get_xml_for_report (
4314: p_business_group_id IN NUMBER
4315: ,p_payroll_action_id IN VARCHAR2