[Home] [Help]
538: BEGIN
539: IF g_debug THEN
540: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
541: END IF;
542: /*fnd_file.put_line(fnd_file.log,'In INIT_CODE 0');*/
543: GET_ALL_PARAMETERS(p_payroll_action_id
544: ,l_business_group_id
545: ,l_start_date
546: ,l_end_date
587: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
588: END IF;
589: EXCEPTION WHEN OTHERS THEN
590: g_err_num := SQLCODE;
591: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE');*/
592: IF g_debug THEN
593: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In INITIALIZATION_CODE',180);
594: END IF;
595: END INITIALIZATION_CODE;
630: /* Initialize global tables that hold Other Balances details */
631: g_user_balance_table(g_index_bal).balance_name := p_balance_name;
632: g_user_balance_table(g_index_bal).defined_balance_id := p_defined_balance_id;
633: g_user_balance_table(g_index_bal).balance_type_id := p_balance_type_id;
634: /*fnd_file.put_line(fnd_file.log,'SETUP_BALANCE_DEFINITIONS ' ||p_balance_name); */
635: IF g_debug THEN
636: hr_utility.set_location(' Leaving Procedure SETUP_BALANCE_DEFINITIONS',130);
637: END IF;
638: END SETUP_BALANCE_DEFINITIONS;
843: BEGIN
844: IF g_debug THEN
845: hr_utility.set_location(' Entering Procedure ARCHIVE_EMPLOYEE_DETAILS',160);
846: END IF;
847: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS');*/
848: /* PERSON AND ADDRESS DETAILS */
849: OPEN csr_person_details(p_assignment_id);
850: FETCH csr_person_details INTO rec_person_details;
851: CLOSE csr_person_details;
854: CLOSE csr_primary_address;
855: OPEN csr_organization_address(rec_person_details.org_id);
856: FETCH csr_organization_address INTO rec_org_address;
857: CLOSE csr_organization_address;
858: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 2');*/
859: /* GRADE AND POSITION */
860: /* Changed IF condition construct to fix Bug 3583862 */
861: IF(rec_person_details.pos_id IS NOT NULL) THEN
862: OPEN csr_position(rec_person_details.pos_id);
867: OPEN csr_grade(rec_person_details.grade_id);
868: FETCH csr_grade INTO l_grade;
869: CLOSE csr_grade;
870: END IF;
871: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 3');*/
872: /* CURRENCY */
873: OPEN csr_bus_grp_id(rec_person_details.org_id);
874: FETCH csr_bus_grp_id INTO l_bg_id;
875: CLOSE csr_bus_grp_id;
886: FETCH csr_hire_date INTO l_hire_date;
887: CLOSE csr_hire_date;
888: /*NATIONALITY*/
889: l_nationality := hr_general.decode_lookup('NATIONALITY',rec_person_details.nationality);
890: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 4');*/
891: /*Local Unit*/
892: OPEN csr_scl_details(p_assignment_id);
893: FETCH csr_scl_details INTO l_local_unit_id;
894: CLOSE csr_scl_details;
921:
922: SELECT name INTO l_employer_name
923: FROM hr_organization_units
924: WHERE organization_id = l_legal_employer_id;
925: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 5');*/
926: IF rec_primary_address.style = 'FI' THEN
927: l_postal_code := hr_general.decode_lookup('FI_POSTAL_CODE',rec_primary_address.postal_code);
928: ELSE
929: l_postal_code := rec_primary_address.postal_code;
936: l_emp_postal_code := rec_employer_address.postal_code;
937: END IF;
938: l_emp_country:=PAY_FI_ARCHIVE_PYSA.get_country_name(rec_employer_address.country);
939: */
940: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 6');*/
941: /* INSERT PERSON DETAILS */
942: pay_action_information_api.create_action_information (
943: p_action_information_id => l_action_info_id
944: ,p_action_context_id => p_archive_assact_id
1006: ,p_action_information13 => NULL
1007: ,p_action_information14 => 'Employee Address'
1008: ,p_assignment_id => p_assignment_id);
1009: END IF;
1010: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 9');*/
1011: /* INSERT EMPLOYER'S ADDRESS (ORGANIZATION ADDRESS)*/
1012: /*
1013: BEGIN
1014: l_org_exists := 0;
1020: AND effective_date = p_effective_date
1021: AND action_information_category = 'ADDRESS DETAILS';
1022: EXCEPTION
1023: WHEN NO_DATA_FOUND THEN
1024: fnd_file.put_line(fnd_file.log,'PA Employer Address'||p_archive_assact_id);
1025: pay_action_information_api.create_action_information (
1026: p_action_information_id => l_action_info_id
1027: ,p_action_context_id => p_payroll_action_id
1028: ,p_action_context_type => 'PA'
1041: WHEN OTHERS THEN
1042: NULL;
1043: END;
1044: */
1045: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 10');*/
1046: --
1047: IF g_debug THEN
1048: hr_utility.set_location(' Leaving Procedure ARCHIVE_EMPLOYEE_DETAILS',170);
1049: END IF;
1049: END IF;
1050: --
1051: EXCEPTION WHEN OTHERS THEN
1052: g_err_num := SQLCODE;
1053: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS');*/
1054: IF g_debug THEN
1055: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_EMPLOYEE_DETAILS',180);
1056: END IF;
1057: END ARCHIVE_EMPLOYEE_DETAILS;
1191: hr_utility.set_location(' Leaving Procedure ARCHIVE_ELEMENT_INFO',220);
1192: END IF;
1193: EXCEPTION WHEN OTHERS THEN
1194: g_err_num := SQLCODE;
1195: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ELEMENT_INFO');*/
1196: IF g_debug THEN
1197: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'ARCHIVE_ELEMENT_INFO',230);
1198: END IF;
1199: END ARCHIVE_ELEMENT_INFO;
1321: FETCH csr_chk_bank INTO l_ext_acct;
1322: CLOSE csr_chk_bank;
1323: l_pay_value := to_char (rec_pers_pay.value,g_format_mask);
1324: IF (l_ext_acct IS NOT NULL) THEN
1325: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 2');*/
1326: l_bank_name := rec_pers_pay.name_id;
1327: pay_action_information_api.create_action_information (
1328: p_action_information_id => l_action_info_id
1329: ,p_action_context_id => p_archive_assact_id
1350: ,p_action_information17 => NULL
1351: ,p_action_information18 => rec_pers_pay.opm_name
1352: ,p_assignment_id => p_assignment_id);
1353: ELSE
1354: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 3');*/
1355: pay_action_information_api.create_action_information (
1356: p_action_information_id => l_action_info_id
1357: ,p_action_context_id => p_archive_assact_id
1358: ,p_action_context_type => 'AAP'
1379: ,p_action_information18 => rec_pers_pay.opm_name
1380: ,p_assignment_id => p_assignment_id);
1381: END IF;
1382: END LOOP;
1383: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 4');*/
1384: END IF;
1385: IF (rec_chk.opm_id IS NOT NULL AND rec_chk.ppm_id IS NULL) THEN
1386: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 5');*/
1387:
1382: END LOOP;
1383: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 4');*/
1384: END IF;
1385: IF (rec_chk.opm_id IS NOT NULL AND rec_chk.ppm_id IS NULL) THEN
1386: /*fnd_file.put_line(fnd_file.log,'In ARCHIVE_PAYMENT_INFO 5');*/
1387:
1388: FOR rec_org_pay IN csr_get_org_pay(p_prepay_assact_id,rec_chk.opm_id) LOOP
1389:
1390: l_pay_value := to_char (rec_org_pay.value,g_format_mask);
1423: hr_utility.set_location(' Leaving Procedure ARCHIVE_PAYMENT_INFO',270);
1424: END IF;
1425: EXCEPTION WHEN OTHERS THEN
1426: g_err_num := SQLCODE;
1427: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO');*/
1428: IF g_debug THEN
1429: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_PAYMENT_INFO',280);
1430: END IF;
1431: END ARCHIVE_PAYMENT_INFO;
1566: --
1567: END IF;
1568: --
1569: g_err_num := SQLCODE;
1570: --fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ACCRUAL_PLAN');
1571: IF g_debug THEN
1572: hr_utility.set_location('ORA_ERR: ' || g_err_num || ' In ARCHIVE_ACCRUAL_PLAN',310);
1573: END IF;
1574: RAISE;
1677: ,p_assignment_id => p_assignment_id);
1678: END IF;
1679: EXCEPTION WHEN OTHERS THEN
1680: g_err_num := SQLCODE;
1681: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT');*/
1682: IF g_debug THEN
1683: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_ADD_ELEMENT',330);
1684: END IF;
1685: END;
1732: IF g_debug THEN
1733: hr_utility.set_location(' Entering Procedure ARCHIVE_OTH_BALANCE',350);
1734: END IF;
1735:
1736: /*fnd_file.put_line(fnd_file.log,'Entering In ARCHIVE_OTH_BALANCE global');*/
1737: IF p_archive_flag = 'N' THEN
1738: ---------------------------------------------------
1739: --Check if global table has already been populated
1740: ---------------------------------------------------
1788: END IF; /* For table count check */
1789: END IF;
1790: EXCEPTION WHEN OTHERS THEN
1791: g_err_num := SQLCODE;
1792: fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE'||SQLERRM);
1793: IF g_debug THEN
1794: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_OTH_BALANCE',360);
1795: END IF;
1796: END ARCHIVE_OTH_BALANCE;
2626:
2627: PAY_BALANCE_PKG.SET_CONTEXT('TAX_UNIT_ID',l_tu_id);
2628: PAY_BALANCE_PKG.SET_CONTEXT('DATE_EARNED',fnd_date.date_to_canonical(p_effective_date));
2629:
2630: /*fnd_file.put_line(fnd_file.log,'ARCHIVE_EMPLOYEE_DETAILS');*/
2631: -------------------------------------------------------------
2632: --Archive EMPLOYEE_DETAILS, PAYMENT_INFO and BALANCES
2633: --for every prepayment assignment action id
2634: -------------------------------------------------------------
2657: p_prepay_assact_id => rec_archive_ids.prepay_assact_id,
2658: p_assignment_id => rec_archive_ids.prepay_assgt_id,
2659: p_date_earned => l_pre_date_earned,
2660: p_effective_date => p_effective_date);
2661: /*fnd_file.put_line(fnd_file.log,'ARCHIVE_OTH_BALANCE');*/
2662:
2663: ARCHIVE_OTH_BALANCE
2664: (p_archive_assact_id => p_assignment_action_id,
2665: p_assignment_action_id => rec_archive_ids.run_assact_id,
2671: p_date_earned => l_date_earned,
2672: p_archive_flag => 'Y');
2673: l_prev_prepay := rec_archive_ids.prepay_assact_id;
2674: END IF;
2675: /*fnd_file.put_line(fnd_file.log,'ARCHIVE_ACCRUAL_PLAN');*/
2676: /* ARCHIVE_ACCRUAL_PLAN (p_assignment_id => rec_archive_ids.run_assgt_id,
2677: p_date_earned => l_date_earned,
2678: p_effective_date => p_effective_date,
2679: p_archive_assact_id => p_assignment_action_id,
2679: p_archive_assact_id => p_assignment_action_id,
2680: p_run_assignment_action_id => rec_archive_ids.run_assact_id,
2681: p_period_end_date => l_end_date,
2682: p_period_start_date => l_start_date);*/
2683: /*fnd_file.put_line(fnd_file.log,'ARCHIVE_ADD_ELEMENT');*/
2684: ARCHIVE_ADD_ELEMENT
2685: (p_archive_assact_id => p_assignment_action_id,
2686: p_assignment_action_id => rec_archive_ids.run_assact_id,
2687: p_assignment_id => rec_archive_ids.run_assgt_id,
2689: p_date_earned => l_date_earned,
2690: p_effective_date => p_effective_date,
2691: p_pre_payact_id => rec_archive_ids.prepay_payact_id,
2692: p_archive_flag => 'Y');
2693: /*fnd_file.put_line(fnd_file.log,'Assact id: '|| p_assignment_action_id);*/
2694:
2695: ARCHIVE_MAIN_ELEMENTS (p_archive_assact_id => p_assignment_action_id,
2696: p_assignment_action_id => rec_archive_ids.run_assact_id,
2697: p_assignment_id => rec_archive_ids.run_assgt_id,
2839: END IF;
2840:
2841: EXCEPTION WHEN OTHERS THEN
2842: g_err_num := SQLCODE;
2843: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS');*/
2844:
2845: IF g_debug THEN
2846: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS',330);
2847: END IF;
2882: END IF;
2883:
2884: EXCEPTION WHEN OTHERS THEN
2885: g_err_num := SQLCODE;
2886: /*fnd_file.put_line(fnd_file.log,'ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS');*/
2887:
2888: IF g_debug THEN
2889: hr_utility.set_location('ORA_ERR: ' || g_err_num || 'In ARCHIVE_MAIN_ELEMENTS',330);
2890: END IF;
3027:
3028:
3029: END LOOP;
3030:
3031: /*fnd_file.put_line(fnd_file.log,'Entering Procedure ARCHIVE_EMPLOYEE_DETAILS 10');*/
3032: IF g_debug THEN
3033: hr_utility.set_location(' Leaving Procedure DEINITIALIZATION_CODE',390);
3034: END IF;
3035: