[Home] [Help]
1: PACKAGE BODY pay_gb_eoy_magtape AS
2: /* $Header: pygbemag.pkb 120.20 2007/12/03 09:10:38 pbalu noship $ */
3: /*
4: Change List
5: -----------
917: l_result VARCHAR2(1);
918: -- 4011263: l_econ_required VARCHAR2(1) := '0';
919: BEGIN
920: -- Now start validating the record type 1
921: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
922: -- Initialise the record type 1 parameters
923: hr_utility.trace('Writing record type 1');
924: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
925: p14_edi_init(1);
953: EXCEPTION
954: WHEN VALUE_ERROR THEN
955: -- Any non-numeric characters will raise an exception
956: g_tax_district_ref := ' ';
957: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
958: END;
959: mag_tape_interface('TAX_DISTRICT_REF' ,NVL(g_tax_district_ref,' '));
960: mag_tape_interface('TAX_REF_NO',nvl(g_tax_ref_no,' '));
961: --
1014: END create_record_type1;
1015: --
1016: PROCEDURE create_sub_header IS
1017: BEGIN
1018: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',500);
1019: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1020: -- EDI process does not need sub header therefore call dummy formula to skip this step
1021: p14_edi_init(7);
1022: ELSE
1024: mag_tape_init(3);
1025: mag_tape_interface('EOY_MODE',g_eoy_mode);
1026: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
1027: END IF;
1028: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',510);
1029: END;
1030: --
1031: PROCEDURE create_record_type3 IS
1032: --
1109: mag_tape_interface('EOY_MODE',g_eoy_mode);
1110: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1111: hr_utility.trace('The employee is '||g_employee_number);
1112: --
1113: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',530);
1114: --
1115: -- Note all name validation performed in formula.
1116: --
1117: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1149: mag_tape_interface('SPP','0'); --P35/P14 EOY 2003/2004
1150: mag_tape_interface('SAP','0'); --P35/P14 EOY 2003/2004
1151: -- 4011263: mag_tape_interface('GROSS_PAY','0');
1152: mag_tape_interface('TAX_PAID','0');
1153: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',560);
1154: mag_tape_interface('TAX_REFUND',' ');
1155: mag_tape_interface('PREVIOUS_TAXABLE_PAY','0');
1156: --
1157: mag_tape_interface('PREVIOUS_TAX_PAID','0');
1163: END IF;
1164: EXCEPTION
1165: WHEN value_error THEN
1166: g_termination_date := ' ';
1167: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',570);
1168: END;
1169: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1170: /* Start 4011263
1171: mag_tape_interface('SUPERANNUATION','0');
1183: /* 4011263
1184: mag_tape_interface('PENSIONER_INDICATOR',' ');
1185: mag_tape_interface('DIRECTOR_INDICATOR',' ');
1186: 4011263 */
1187: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1188: --
1189: --
1190: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1191: hr_utility.trace('End is '||to_char(l_no_nis));
1207: ni_able_uel_tab(l_index));
1208: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1209: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1210: l_param_index := l_param_index + 1;
1211: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',590);
1212: END LOOP;
1213: p_mag_form_clear(l_param_index);
1214: -- mag_tape_interface('NI_ERS_REBATE',l_ers_rebate); --P35/P14 EOY 2003/2004
1215: -- mag_tape_interface('NIEES_REBATE',l_ees_rebate); --P35/P14 EOY 2003/2004
1220: --
1221: -- Running count of all employee records
1222: --
1223: g_tot_rec2_per := g_tot_rec2_per + 1;
1224: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',595);
1225: END;
1226: -----------------------------------------------------------------------------
1227: -- PROCEDURE: get_parameters
1228: -- DESCRIPTION: This procedure obtains all parameter values passed into this
1275: -- Default the EOY Mode to 'P'
1276: p_eoy_mode := 'P';
1277: --
1278: BEGIN
1279: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',400);
1280: -- This loop is used to obtain all parameter values. The prerequisite to
1281: -- this functioning correctly is that rows are populated in the
1282: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1283: -- table is not found, the loop exits by means of an exception.
1282: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1283: -- table is not found, the loop exits by means of an exception.
1284: -- Also note that if a corresponding value is missing, the loop will exit.
1285: LOOP
1286: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1287: l_count := l_count + 1;
1288: hr_utility.trace(to_char(l_count));
1289: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1317: hr_utility.trace('No data Found from plsql table loop');
1318: NULL;
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1322: END;
1323: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1324: p_payroll_action_id := to_number(l_payroll_action_id);
1325: --
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1322: END;
1323: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1324: p_payroll_action_id := to_number(l_payroll_action_id);
1325: --
1326: -- Obtain EOY Mode from the Payroll Action ID.
1327: --
1327: --
1328: OPEN get_action_eoy_mode(p_payroll_action_id);
1329: FETCH get_action_eoy_mode INTO p_eoy_mode;
1330: IF get_action_eoy_mode%notfound THEN
1331: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',419);
1332: RAISE no_data_found; -- means no payroll action exists.
1333: END IF;
1334: CLOSE get_action_eoy_mode;
1335: --
1332: RAISE no_data_found; -- means no payroll action exists.
1333: END IF;
1334: CLOSE get_action_eoy_mode;
1335: --
1336: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',420);
1337: --
1338: -- Added for nocopy
1339: EXCEPTION
1340: WHEN OTHERS THEN
1398: l_mar_req_id VARCHAR2(81) := '-1'; -- Chars, as passed into formula.
1399: l_p35_req_id VARCHAR2(81) := '-1';
1400: --
1401: BEGIN
1402: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',0);
1403: --
1404: -- Start checking for record type 1
1405: --
1406: IF fetch_new_header THEN
1403: --
1404: -- Start checking for record type 1
1405: --
1406: IF fetch_new_header THEN
1407: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1408: -- A Record type 1 is required
1409: IF NOT (header_cur%ISOPEN) THEN
1410: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1411: -- Get all necessary parameters. The payroll action ID
1406: IF fetch_new_header THEN
1407: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1408: -- A Record type 1 is required
1409: IF NOT (header_cur%ISOPEN) THEN
1410: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1411: -- Get all necessary parameters. The payroll action ID
1412: -- is validated.
1413: get_parameters(g_permit_no
1414: ,g_eoy_mode
1432: fnd_Date.date_to_displaydate(g_start_year));
1433: hr_utility.trace('g_end_year='||
1434: fnd_Date.date_to_displaydate(g_end_year));
1435: --
1436: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',25);
1437: --
1438: -- Check to see if the Payroll Action just retrieved has any
1439: -- errors. If not, check whether any assignment actions within the payroll
1440: -- action have errored. 1st error msg takes precedence.
1455: -- the DBI call in MAG_RECORD7.
1456: --
1457: l_errored := TRUE;
1458: end if;
1459: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',27);
1460: --
1461: -- First time in so clear the error type counts
1462: --
1463: pay_mag_tape.internal_prm_values(3) := 0;
1485: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1486: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1487: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1488: ELSE
1489: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1490: -- No errors so fetch header info.
1491: FETCH header_cur INTO g_new_permit_no
1492: ,g_new_payroll_id
1493: ,g_tax_district_ref
1516: End 4011263 */
1517: --
1518: IF header_cur%NOTFOUND THEN
1519: -- No more records found so end of run
1520: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',30);
1521: IF g_tot_rec2_per > 0 THEN
1522: -- If at least one record has been found then create
1523: -- a permit total
1524: create_record_type3;
1554: permit_change := TRUE;
1555: -- Close the type 2 cursor so it will be re-opened with
1556: -- the new parameters
1557: CLOSE emps_cur;
1558: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',40);
1559: ELSE
1560: -- No permit change so add new smp and smp values to totals
1561: /* Start 4011263
1562: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
1591: edi_process_emp_header := FALSE;
1592: edi_process_ni_details := FALSE;
1593: edi_process_emp_trailer := FALSE;
1594: END IF;
1595: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1606: g_payroll_id := g_new_payroll_id;
1607: create_record_type1;
1608: fetch_new_header := FALSE;
1609: sub_header := TRUE;
1610: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',50);
1611: END IF;
1612: END IF;
1613: END IF; -- End of Errored payroll check.
1614: ELSE
1627: -- g_tot_spp_comp := g_spp_compensation; --P35/P14 EOY 2003/2004
1628: -- g_tot_sap_comp := g_sap_compensation; --P35/P14 EOY 2003/2004
1629: /* End 4011263 */
1630:
1631: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',60);
1632: END IF;
1633: --
1634: -- Check if sub-header required
1635: --
1634: -- Check if sub-header required
1635: --
1636: ELSIF sub_header THEN
1637: create_sub_header;
1638: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',70);
1639: sub_header := FALSE;
1640: IF g_eoy_mode IN ( 'F - P14 EDI', 'P - P14 EDI') THEN
1641: process_emps := FALSE;
1642: edi_process_emp_header := TRUE;
1654: --
1655: ELSIF process_dummy THEN
1656: -- A special record type 2
1657: -- More than 4 more NI categories exist for the employee
1658: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',700);
1659: IF g_ni_total - g_last_ni > 4 THEN
1660: p_create_dummy(g_last_ni,4);
1661: g_last_ni := g_last_ni + 4;
1662: ELSE
1672: -- Check for processing record type 2
1673: --
1674: ELSIF process_emps THEN
1675: -- Record type 2 required
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1682: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1683: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1684: END IF;
1685: FETCH emps_cur INTO g_employee_number
1686: ,g_assignment_action_id
1734: --
1735: -- End of record type 2
1736: --
1737: -- Set escape from this section
1738: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
1739: /* Each call of this package must return 1 record even */
1740: /* if its only a dummy formula call to do so */
1741: mag_tape_init(6);
1742: fetch_new_header:= TRUE;
1807: ni_able_auel_tab(l_plsql_index) := 0; ---EOY 07/08
1808: employers_rebate_tab(l_plsql_index) := 0;
1809: employees_rebate_tab(l_plsql_index) := 0;
1810: END LOOP;
1811: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',150);
1812: END IF;
1813: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
1814: /* Create a type 2 record */
1815: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
1820: mag_tape_init(2);
1821: /* Now create a record type 2 */
1822: mag_tape_interface('EOY_MODE',g_eoy_mode);
1823: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1824: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
1825: --
1826: -- Note name validation performed in formula.
1827: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1828: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
1825: --
1826: -- Note name validation performed in formula.
1827: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1828: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
1829: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
1830: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
1831: mag_tape_interface('DATE_OF_BIRTH',g_date_of_birth);
1832: mag_tape_interface('GENDER',g_sex);
1833: /* 4011263
1871: mag_tape_interface('SAP',g_sap); --P35/P14 EOY 2003/2004
1872: -- 4011263: mag_tape_interface('GROSS_PAY',g_gross_pay);
1873: mag_tape_interface('TAX_PAID',ABS(g_tax_paid));
1874: g_tot_tax := g_tot_tax + g_tax_paid;
1875: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',280);
1876: --
1877: -- Tax Refund must be 'R' or blank. Formula validates this.
1878: --
1879: mag_tape_interface('TAX_REFUND',nvl(g_tax_refund,' '));
1890: END IF;
1891: EXCEPTION
1892: WHEN value_error THEN
1893: g_termination_date := ' ';
1894: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',300);
1895: END;
1896: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1897: /* 4011263: Remove superannuation from EOY
1898: --added nvl for bug fix 3614251
1919: /* 4011263
1920: mag_tape_interface('PENSIONER_INDICATOR', nvl(g_pension_indicator,' '));
1921: mag_tape_interface('DIRECTOR_INDICATOR', nvl(g_director_indicator,' '));
1922: 4011263 */
1923: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',350);
1924: --
1925: -- Now send up to 3 of the remaining contribution records to mag tape
1926: -- If they do not exist they have been defaulted
1927: --
1940: mag_tape_interface('NI_ABLE_UEL'||
1941: TO_CHAR(l_index), ni_able_uel_tab(l_index));
1942: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1943: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1944: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',360);
1945: END LOOP;
1946: --mag_tape_interface('NI_ERS_REBATE', l_ers_rebate); --P35/P14 EOY 2003/2004
1947: --mag_tape_interface('NIEES_REBATE', l_ees_rebate); --P35/P14 EOY 2003/2004
1948: mag_tape_interface('ASSIGNMENT_MESSAGE', l_asg_message);
1955: g_tot_rec2_per := g_tot_rec2_per + 1;
1956: -- Now check the number of NI categories found for this employee
1957: IF g_ni_total > 4 THEN
1958: hr_utility.trace('The employee is '||g_employee_number);
1959: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',365);
1960: -- More than four so set flags for creation of dummy record
1961: process_emps := FALSE;
1962: process_dummy := TRUE;
1963: -- Index in PL/SQL tables set to the last record selected
1962: process_dummy := TRUE;
1963: -- Index in PL/SQL tables set to the last record selected
1964: g_last_ni := 4;
1965: END IF;
1966: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',370);
1967: --
1968: END IF; /* End of create type 2 record */
1969: --
1970: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
1970: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
1971: -- trailer records instead of above Mag Tape type 2 record.
1972: ELSIF edi_process_emp_header THEN
1973: -- Need to process employee header record for EDI Process
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1980: IF NOT (emps_cur%ISOPEN) THEN
1981: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1982: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1983: END IF;
1984: --
1985: FETCH emps_cur INTO g_employee_number
2030: --
2031: IF emps_cur%NOTFOUND THEN
2032: -- End of employee details for EDI process
2033: -- Set escape from this section
2034: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
2035: -- Each call of this package must return 1 record even
2036: -- if its only a dummy formula call to do so
2037: mag_tape_init(6);
2038: fetch_new_header:= TRUE;
2049: -- Now create employee header
2050: mag_tape_interface('EOY_MODE',g_eoy_mode);
2051: mag_tape_interface('EMPLOYEE_COUNT', nvl(g_tot_rec2_per,0));
2052: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
2053: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
2054: --
2055: -- Note name validation performed in formula.
2056: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2057: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2056: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2057: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2058: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
2059: --4011263: mag_tape_interface('TITLE',NVL(g_title,' '));
2060: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
2061: mag_tape_interface('GENDER',g_sex);
2062: /* 4011263
2063: -- Order Address lines to push nulls to end, using g_full_address as
2064: -- a temporary variable.
2347: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2348: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2349: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2350: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2351: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2352: --
2353: -- Check for type 1 and type 2 errors. Similar to MAG_RECORD5 checks.
2354: --
2355: if l_type1_errors > 0 -- Type 1 errors
2360: or (g_eoy_mode in ('F','F - P14 EDI') and l_char_errors > 0) -- Full Mode with
2361: -- Illegal chars.
2362: then
2363: -- error raised, do not submit reports.
2364: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2365: NULL;
2366: else
2367: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2368: -- No errors, so submit the reports.
2363: -- error raised, do not submit reports.
2364: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2365: NULL;
2366: else
2367: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2368: -- No errors, so submit the reports.
2369: submit_reports(p_payroll_action_id => g_payroll_action_id,
2370: p_eoy_mode => g_eoy_mode,
2371: p_mar_req_id => l_mar_req_id);
2389: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
2390: IF g_eoy_mode NOT in ('F - P14 EDI', 'P - P14 EDI') THEN
2391: mag_tape_interface('END_OF_DATA','END OF DATA');
2392: END IF;
2393: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
2394: IF header_cur%ISOPEN THEN
2395: CLOSE header_cur;
2396: END IF;
2397: IF emps_cur%ISOPEN THEN
2397: IF emps_cur%ISOPEN THEN
2398: CLOSE emps_cur;
2399: END IF;
2400: END IF;
2401: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',999);
2402: END;
2403: --
2404: --------------------------------------------------------------------------
2405: -- Function: validate_input
2911: l_return_value VARCHAR2(250) := NULL;
2912: BEGIN
2913: --
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2980: close csr_get_version;
2981: return l_version;
2982: END get_payroll_version;
2983:
2984: END pay_gb_eoy_magtape;