1: PACKAGE BODY PAY_SA_ARCHIVE AS
2: /* $Header: pysaparc.pkb 120.6.12010000.3 2008/08/06 08:17:01 ubhat ship $ */
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)
58: BEGIN
59: --
60:
61: IF g_debug THEN
62: hr_utility.set_location(' Entering Function GET_PARAMETER',10);
63: END IF;
64:
65: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
66: --
87: --
88: RETURN l_parameter;
89:
90: IF g_debug THEN
91: hr_utility.set_location(' Leaving Function GET_PARAMETER',20);
92: END IF;
93:
94: END;
95:
126: CLOSE csr_parameter_info;
127: --
128:
129: IF g_debug THEN
130: hr_utility.set_location(' Leaving Procedure GET_ALL_PARAMETERS',30);
131: END IF;
132: END GET_ALL_PARAMETERS;
133:
134:
242:
243: BEGIN
244:
245: IF g_debug THEN
246: hr_utility.set_location(' Entering Procedure RANGE_CODE',40);
247: END IF;
248:
249: PAY_SA_ARCHIVE.GET_ALL_PARAMETERS(p_payroll_action_id
250: ,l_business_group_id
397: AND ppa.business_group_id = ppf.business_group_id
398: ORDER BY ppf.person_id';
399:
400: IF g_debug THEN
401: hr_utility.set_location(' Leaving Procedure RANGE_CODE',50);
402: END IF;
403:
404: EXCEPTION
405: WHEN OTHERS THEN
506:
507: BEGIN
508:
509: IF g_debug THEN
510: hr_utility.set_location(' Entering Procedure ASSIGNMENT_ACTION_CODE',60);
511: END IF;
512:
513: PAY_SA_ARCHIVE.GET_ALL_PARAMETERS(p_payroll_action_id
514: ,l_business_group_id
566:
567:
568:
569: IF g_debug THEN
570: hr_utility.set_location(' Leaving Procedure ASSIGNMENT_ACTION_CODE',70);
571: END IF;
572: END ASSIGNMENT_ACTION_CODE;
573:
574:
637:
638: BEGIN
639:
640: IF g_debug THEN
641: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
642: END IF;
643:
644: /*fnd_file.put_line(fnd_file.log,'In INIT_CODE 0');*/
645:
699: p_date_earned => NULL,
700: p_archive_flag => 'N');
701:
702: IF g_debug THEN
703: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
704: END IF;
705:
706: EXCEPTION WHEN OTHERS THEN
707: g_err_num := SQLCODE;
707: g_err_num := SQLCODE;
708:
709: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE');*/
710: IF g_debug THEN
711: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE',180);
712: END IF;
713:
714: END INITIALIZATION_CODE;
715:
724:
725: BEGIN
726:
727: IF g_debug THEN
728: hr_utility.set_location(' Entering Procedure SETUP_ELEMENT_DEFINITIONS',100);
729: END IF;
730:
731:
732: g_index := g_index + 1;
740: g_element_table(g_index).uom := p_uom;
741: g_element_table(g_index).archive_flag := p_archive_flag;
742:
743: IF g_debug THEN
744: hr_utility.set_location(' Leaving Procedure SETUP_ELEMENT_DEFINITIONS',110);
745: END IF;
746:
747: END SETUP_ELEMENT_DEFINITIONS;
748:
753: IS
754: BEGIN
755:
756: IF g_debug THEN
757: hr_utility.set_location(' Entering Procedure SETUP_BALANCE_DEFINITIONS',120);
758: END IF;
759:
760: g_index_bal := g_index_bal + 1;
761: /* Initialize global tables that hold Other Balances details */
763: g_user_balance_table(g_index_bal).defined_balance_id := p_defined_balance_id;
764: g_user_balance_table(g_index_bal).balance_type_id := p_balance_type_id;
765:
766: IF g_debug THEN
767: hr_utility.set_location(' Leaving Procedure SETUP_BALANCE_DEFINITIONS',130);
768: END IF;
769:
770: END SETUP_BALANCE_DEFINITIONS;
771:
783: l_country fnd_territories_vl.territory_short_name%TYPE;
784: BEGIN
785:
786: IF g_debug THEN
787: hr_utility.set_location(' Entering Function GET_COUNTRY_NAME',140);
788: END IF;
789:
790: OPEN csr_get_territory_name(p_territory_code);
791: FETCH csr_get_territory_name into l_country;
793:
794: RETURN l_country;
795:
796: IF g_debug THEN
797: hr_utility.set_location(' Leaving Function GET_COUNTRY_NAME',150);
798: END IF;
799:
800: END GET_COUNTRY_NAME;
801:
1014:
1015: BEGIN
1016:
1017: IF g_debug THEN
1018: hr_utility.set_location(' Entering Procedure ARCHIVE_EMPLOYEE_DETAILS',160);
1019: END IF;
1020: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS');*/
1021:
1022: /* PERSON AND ADDRESS DETAILS */
1305: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 10');*/
1306: --
1307:
1308: IF g_debug THEN
1309: hr_utility.set_location(' Leaving Procedure ARCHIVE_EMPLOYEE_DETAILS',170);
1310: END IF;
1311: --
1312: EXCEPTION WHEN OTHERS THEN
1313: g_err_num := SQLCODE;
1313: g_err_num := SQLCODE;
1314:
1315: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS');*/
1316: IF g_debug THEN
1317: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS',180);
1318: END IF;
1319:
1320: END ARCHIVE_EMPLOYEE_DETAILS;
1321:
1386:
1387: BEGIN
1388:
1389: IF g_debug THEN
1390: hr_utility.set_location(' Entering Procedure ARCHIVE_ELEMENT_INFO',210);
1391: END IF;
1392:
1393: /* EARNINGS ELEMENT */
1394:
1467: END LOOP;
1468:
1469:
1470: IF g_debug THEN
1471: hr_utility.set_location(' Leaving Procedure ARCHIVE_ELEMENT_INFO',220);
1472: END IF;
1473:
1474: EXCEPTION WHEN OTHERS THEN
1475: g_err_num := SQLCODE;
1475: g_err_num := SQLCODE;
1476:
1477: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ELEMENT_INFO');*/
1478: IF g_debug THEN
1479: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'ARCHIVE_ELEMENT_INFO',230);
1480: END IF;
1481:
1482:
1483: END ARCHIVE_ELEMENT_INFO;
1499: l_defined_balance_id ff_user_entities.user_entity_id%TYPE;
1500:
1501: BEGIN
1502: IF g_debug THEN
1503: hr_utility.set_location(' Entering Function GET_DEFINED_BALANCE_ID',240);
1504: END IF;
1505:
1506: OPEN csr_def_bal_id(p_user_name);
1507: FETCH csr_def_bal_id INTO l_defined_balance_id;
1508: CLOSE csr_def_bal_id;
1509: RETURN l_defined_balance_id;
1510:
1511: IF g_debug THEN
1512: hr_utility.set_location(' Leaving Function GET_DEFINED_BALANCE_ID',250);
1513: END IF;
1514:
1515: END GET_DEFINED_BALANCE_ID;
1516:
1605:
1606: BEGIN
1607:
1608: IF g_debug THEN
1609: hr_utility.set_location(' Entering Procedure ARCHIVE_PAYMENT_INFO',260);
1610: END IF;
1611: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 1');*/
1612:
1613:
1739: END LOOP;
1740: CLOSE csr_chk;
1741:
1742: IF g_debug THEN
1743: hr_utility.set_location(' Leaving Procedure ARCHIVE_PAYMENT_INFO',270);
1744: END IF;
1745:
1746: EXCEPTION WHEN OTHERS THEN
1747: g_err_num := SQLCODE;
1746: EXCEPTION WHEN OTHERS THEN
1747: g_err_num := SQLCODE;
1748: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO');*/
1749: IF g_debug THEN
1750: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO',280);
1751: END IF;
1752:
1753: END ARCHIVE_PAYMENT_INFO;
1754:
1817: BEGIN
1818: --
1819:
1820: IF g_debug THEN
1821: hr_utility.set_location(' Entering Procedure ARCHIVE_ACCRUAL_PLAN',290);
1822: END IF;
1823:
1824: -- Bug 6915966
1825: -- Fetch and archive the accruals cursor in loop
1888: --
1889: END LOOP ;
1890:
1891: IF g_debug THEN
1892: hr_utility.set_location(' Leaving Procedure ARCHIVE_ACCRUAL_PLAN',300);
1893: END IF;
1894: --
1895: EXCEPTION
1896: WHEN OTHERS THEN
1903: g_err_num := SQLCODE;
1904:
1905: --fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ACCRUAL_PLAN');
1906: IF g_debug THEN
1907: hr_utility.set_location('ORA_ERR: ' || g_err_num || ' In ARCHIVE_ACCRUAL_PLAN',310);
1908: END IF;
1909: RAISE;
1910:
1911: END ARCHIVE_ACCRUAL_PLAN;
1968:
1969: BEGIN
1970:
1971: IF g_debug THEN
1972: hr_utility.set_location(' Entering Procedure ARCHIVE_ADD_ELEMENT',320);
1973: END IF;
1974:
1975:
1976: IF p_archive_flag = 'N' THEN
2059: EXCEPTION WHEN OTHERS THEN
2060: g_err_num := SQLCODE;
2061: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT');*/
2062: IF g_debug THEN
2063: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT',330);
2064: END IF;
2065:
2066: END;
2067:
2069:
2070: END IF;
2071:
2072: IF g_debug THEN
2073: hr_utility.set_location(' Leaving Procedure ARCHIVE_ADD_ELEMENT',340);
2074: END IF;
2075:
2076: END ARCHIVE_ADD_ELEMENT;
2077:
2120:
2121: BEGIN
2122:
2123: IF g_debug THEN
2124: hr_utility.set_location(' Entering Procedure ARCHIVE_OTH_BALANCE',350);
2125: END IF;
2126:
2127: /*fnd_file.put_line(fnd_file.log,'Entering In ARCHIVE_OTH_BALANCE global');*/
2128:
2201: g_err_num := SQLCODE;
2202:
2203: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE'||SQLERRM);*/
2204: IF g_debug THEN
2205: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE',360);
2206: END IF;
2207:
2208: END ARCHIVE_OTH_BALANCE;
2209:
2287:
2288: BEGIN
2289:
2290: IF g_debug THEN
2291: hr_utility.set_location(' Entering Procedure ARCHIVE_CODE',380);
2292: END IF;
2293:
2294:
2295: OPEN csr_archive_payact(p_assignment_action_id);
2373: l_record_count := l_record_count + 1;
2374: END LOOP;
2375:
2376: IF g_debug THEN
2377: hr_utility.set_location(' Leaving Procedure ARCHIVE_CODE',390);
2378: END IF;
2379:
2380: END ARCHIVE_CODE;
2381: END PAY_SA_ARCHIVE;