1: PACKAGE BODY PAY_AE_ARCHIVE AS
2: /* $Header: pyaeparc.pkb 120.3.12000000.4 2007/07/03 06:12:27 abppradh noship $ */
3:
4: g_debug boolean := hr_utility.debug_enabled;
5:
6: TYPE element_rec IS RECORD (
7: classification_name VARCHAR2(60)
8: ,element_name VARCHAR2(60)
60: BEGIN
61: --
62:
63: IF g_debug THEN
64: hr_utility.set_location(' Entering Function GET_PARAMETER',10);
65: END IF;
66:
67: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
68: --
89: --
90: RETURN l_parameter;
91:
92: IF g_debug THEN
93: hr_utility.set_location(' Leaving Function GET_PARAMETER',20);
94: END IF;
95:
96: END;
97:
128: CLOSE csr_parameter_info;
129: --
130:
131: IF g_debug THEN
132: hr_utility.set_location(' Leaving Procedure GET_ALL_PARAMETERS',30);
133: END IF;
134: END GET_ALL_PARAMETERS;
135:
136:
249:
250: BEGIN
251:
252: IF g_debug THEN
253: hr_utility.set_location(' Entering Procedure RANGE_CODE',40);
254: END IF;
255:
256: PAY_AE_ARCHIVE.GET_ALL_PARAMETERS(p_payroll_action_id
257: ,l_business_group_id
406: AND ppa.business_group_id = ppf.business_group_id
407: ORDER BY ppf.person_id';
408:
409: IF g_debug THEN
410: hr_utility.set_location(' Leaving Procedure RANGE_CODE',50);
411: END IF;
412:
413: EXCEPTION
414: WHEN OTHERS THEN
515:
516: BEGIN
517:
518: IF g_debug THEN
519: hr_utility.set_location(' Entering Procedure ASSIGNMENT_ACTION_CODE',60);
520: END IF;
521:
522: PAY_AE_ARCHIVE.GET_ALL_PARAMETERS(p_payroll_action_id
523: ,l_business_group_id
575:
576:
577:
578: IF g_debug THEN
579: hr_utility.set_location(' Leaving Procedure ASSIGNMENT_ACTION_CODE',70);
580: END IF;
581: END ASSIGNMENT_ACTION_CODE;
582:
583:
646:
647: BEGIN
648:
649: IF g_debug THEN
650: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
651: END IF;
652:
653: /*fnd_file.put_line(fnd_file.log,'In INIT_CODE 0');*/
654:
708: p_date_earned => NULL,
709: p_archive_flag => 'N');
710:
711: IF g_debug THEN
712: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
713: END IF;
714:
715: EXCEPTION WHEN OTHERS THEN
716: g_err_num := SQLCODE;
715: EXCEPTION WHEN OTHERS THEN
716: g_err_num := SQLCODE;
717:
718: IF g_debug THEN
719: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE',180);
720: END IF;
721:
722: END INITIALIZATION_CODE;
723:
733:
734: BEGIN
735:
736: IF g_debug THEN
737: hr_utility.set_location(' Entering Procedure SETUP_ELEMENT_DEFINITIONS',100);
738: END IF;
739:
740: g_index := g_index + 1;
741:
749: g_element_table(g_index).uom := p_uom;
750: g_element_table(g_index).archive_flag := p_archive_flag;
751:
752: IF g_debug THEN
753: hr_utility.set_location(' Leaving Procedure SETUP_ELEMENT_DEFINITIONS',110);
754: END IF;
755:
756: END SETUP_ELEMENT_DEFINITIONS;
757:
763: IS
764: BEGIN
765:
766: IF g_debug THEN
767: hr_utility.set_location(' Entering Procedure SETUP_BALANCE_DEFINITIONS',120);
768: END IF;
769:
770: g_index_bal := g_index_bal + 1;
771: /* Initialize global tables that hold Other Balances details */
774: g_user_balance_table(g_index_bal).balance_type_id := p_balance_type_id;
775: g_user_balance_table(g_index_bal).uom := p_uom;
776:
777: IF g_debug THEN
778: hr_utility.set_location(' Leaving Procedure SETUP_BALANCE_DEFINITIONS',130);
779: END IF;
780:
781: END SETUP_BALANCE_DEFINITIONS;
782:
793: l_country fnd_territories_vl.territory_short_name%TYPE;
794: BEGIN
795:
796: IF g_debug THEN
797: hr_utility.set_location(' Entering Function GET_COUNTRY_NAME',140);
798: END IF;
799:
800: OPEN csr_get_territory_name(p_territory_code);
801: FETCH csr_get_territory_name into l_country;
803:
804: RETURN l_country;
805:
806: IF g_debug THEN
807: hr_utility.set_location(' Leaving Function GET_COUNTRY_NAME',150);
808: END IF;
809:
810: END GET_COUNTRY_NAME;
811:
1021:
1022: BEGIN
1023:
1024: IF g_debug THEN
1025: hr_utility.set_location(' Entering Procedure ARCHIVE_EMPLOYEE_DETAILS',160);
1026: END IF;
1027: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS');*/
1028:
1029: /* PERSON AND ADDRESS DETAILS */
1293: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 10');*/
1294: --
1295:
1296: IF g_debug THEN
1297: hr_utility.set_location(' Leaving Procedure ARCHIVE_EMPLOYEE_DETAILS',170);
1298: END IF;
1299: --
1300: EXCEPTION WHEN OTHERS THEN
1301: g_err_num := SQLCODE;
1301: g_err_num := SQLCODE;
1302:
1303: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS');*/
1304: IF g_debug THEN
1305: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS',180);
1306: END IF;
1307:
1308: END ARCHIVE_EMPLOYEE_DETAILS;
1309:
1371:
1372: BEGIN
1373:
1374: IF g_debug THEN
1375: hr_utility.set_location(' Entering Procedure ARCHIVE_ELEMENT_INFO',210);
1376: END IF;
1377:
1378: /* EARNINGS ELEMENT */
1379:
1452: END LOOP;
1453:
1454:
1455: IF g_debug THEN
1456: hr_utility.set_location(' Leaving Procedure ARCHIVE_ELEMENT_INFO',220);
1457: END IF;
1458:
1459: EXCEPTION WHEN OTHERS THEN
1460: g_err_num := SQLCODE;
1460: g_err_num := SQLCODE;
1461:
1462: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ELEMENT_INFO');*/
1463: IF g_debug THEN
1464: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'ARCHIVE_ELEMENT_INFO',230);
1465: END IF;
1466:
1467:
1468: END ARCHIVE_ELEMENT_INFO;
1559:
1560:
1561: BEGIN
1562: IF g_debug THEN
1563: hr_utility.set_location(' Entering Procedure ARCHIVE_MAIN_ELEMENTS',320);
1564: END IF;
1565:
1566: -- Archiving Earnings Elements
1567: FOR csr_rec IN csr_ear_element_info LOOP
1615: g_err_num := SQLCODE;
1616: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS');*/
1617:
1618: IF g_debug THEN
1619: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS',330);
1620: END IF;
1621: END;
1622:
1623: END LOOP;
1695: g_err_num := SQLCODE;
1696: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS');*/
1697:
1698: IF g_debug THEN
1699: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS',330);
1700: END IF;
1701: END;
1702:
1703: END LOOP;
1703: END LOOP;
1704:
1705:
1706: IF g_debug THEN
1707: hr_utility.set_location(' Leaving Procedure ARCHIVE_MAIN_ELEMENTS',340);
1708: END IF;
1709:
1710: END ARCHIVE_MAIN_ELEMENTS;
1711: ------------------------------------------------------------------------------------------------------------
1727: l_defined_balance_id ff_user_entities.user_entity_id%TYPE;
1728:
1729: BEGIN
1730: IF g_debug THEN
1731: hr_utility.set_location(' Entering Function GET_DEFINED_BALANCE_ID',240);
1732: END IF;
1733:
1734: OPEN csr_def_bal_id(p_user_name);
1735: FETCH csr_def_bal_id INTO l_defined_balance_id;
1736: CLOSE csr_def_bal_id;
1737: RETURN l_defined_balance_id;
1738:
1739: IF g_debug THEN
1740: hr_utility.set_location(' Leaving Function GET_DEFINED_BALANCE_ID',250);
1741: END IF;
1742:
1743: END GET_DEFINED_BALANCE_ID;
1744:
1842:
1843: BEGIN
1844:
1845: IF g_debug THEN
1846: hr_utility.set_location(' Entering Procedure ARCHIVE_PAYMENT_INFO',260);
1847: END IF;
1848: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 1');*/
1849:
1850:
1981: END LOOP;
1982: CLOSE csr_chk;
1983:
1984: IF g_debug THEN
1985: hr_utility.set_location(' Leaving Procedure ARCHIVE_PAYMENT_INFO',270);
1986: END IF;
1987:
1988: EXCEPTION WHEN OTHERS THEN
1989: g_err_num := SQLCODE;
1988: EXCEPTION WHEN OTHERS THEN
1989: g_err_num := SQLCODE;
1990: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO');*/
1991: IF g_debug THEN
1992: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO',280);
1993: END IF;
1994:
1995: END ARCHIVE_PAYMENT_INFO;
1996:
2055:
2056: BEGIN
2057:
2058: IF g_debug THEN
2059: hr_utility.set_location(' Entering Procedure ARCHIVE_ADD_ELEMENT',320);
2060: END IF;
2061:
2062:
2063: IF p_archive_flag = 'N' THEN
2143: EXCEPTION WHEN OTHERS THEN
2144: g_err_num := SQLCODE;
2145: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT');*/
2146: IF g_debug THEN
2147: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT',330);
2148: END IF;
2149:
2150: END;
2151:
2153:
2154: END IF;
2155:
2156: IF g_debug THEN
2157: hr_utility.set_location(' Leaving Procedure ARCHIVE_ADD_ELEMENT',340);
2158: END IF;
2159:
2160: END ARCHIVE_ADD_ELEMENT;
2161:
2212:
2213: BEGIN
2214:
2215: IF g_debug THEN
2216: hr_utility.set_location(' Entering Procedure ARCHIVE_OTH_BALANCE',350);
2217: END IF;
2218:
2219:
2220: IF p_archive_flag = 'N' THEN
2297: g_err_num := SQLCODE;
2298:
2299: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE'||SQLERRM);*/
2300: IF g_debug THEN
2301: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE',360);
2302: END IF;
2303:
2304: END ARCHIVE_OTH_BALANCE;
2305:
2383:
2384: BEGIN
2385:
2386: IF g_debug THEN
2387: hr_utility.set_location(' Entering Procedure ARCHIVE_CODE',380);
2388: END IF;
2389:
2390:
2391: OPEN csr_archive_payact(p_assignment_action_id);
2465: l_record_count := l_record_count + 1;
2466: END LOOP;
2467:
2468: IF g_debug THEN
2469: hr_utility.set_location(' Leaving Procedure ARCHIVE_CODE',390);
2470: END IF;
2471:
2472: END ARCHIVE_CODE;
2473: END PAY_AE_ARCHIVE;