952: -- The initialization of the record type formulae
953: -- and number of parameters
954: BEGIN
955: /* Reserved parameter names */
956: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
957: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
958: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
953: -- and number of parameters
954: BEGIN
955: /* Reserved parameter names */
956: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
957: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
958: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
954: BEGIN
955: /* Reserved parameter names */
956: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
957: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
958: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
962: /* Record type 1 */
955: /* Reserved parameter names */
956: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
957: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
958: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
962: /* Record type 1 */
963: pay_mag_tape.internal_prm_values(1) := 15;
956: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
957: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
958: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
962: /* Record type 1 */
963: pay_mag_tape.internal_prm_values(1) := 15;
964: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
959: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
962: /* Record type 1 */
963: pay_mag_tape.internal_prm_values(1) := 15;
964: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
965: ELSIF p_no = 2 THEN
966: /* Record type 2 */
967: pay_mag_tape.internal_prm_values(1) := 69;
960: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
961: IF p_no = 1 THEN
962: /* Record type 1 */
963: pay_mag_tape.internal_prm_values(1) := 15;
964: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
965: ELSIF p_no = 2 THEN
966: /* Record type 2 */
967: pay_mag_tape.internal_prm_values(1) := 69;
968: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
963: pay_mag_tape.internal_prm_values(1) := 15;
964: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
965: ELSIF p_no = 2 THEN
966: /* Record type 2 */
967: pay_mag_tape.internal_prm_values(1) := 69;
968: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
969: /* Reset the record index to start at the third parameter */
970: ELSIF p_no = 3 THEN
971: /* Sub-header */
964: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
965: ELSIF p_no = 2 THEN
966: /* Record type 2 */
967: pay_mag_tape.internal_prm_values(1) := 69;
968: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
969: /* Reset the record index to start at the third parameter */
970: ELSIF p_no = 3 THEN
971: /* Sub-header */
972: -- hr_utility.trace('record index is '||to_char(g_record_index));
969: /* Reset the record index to start at the third parameter */
970: ELSIF p_no = 3 THEN
971: /* Sub-header */
972: -- hr_utility.trace('record index is '||to_char(g_record_index));
973: pay_mag_tape.internal_prm_values(1) := 7;
974: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
975: ELSIF p_no = 4 THEN
976: /* Permit total */
977: -- hr_utility.trace('record index is '||to_char(g_record_index));
970: ELSIF p_no = 3 THEN
971: /* Sub-header */
972: -- hr_utility.trace('record index is '||to_char(g_record_index));
973: pay_mag_tape.internal_prm_values(1) := 7;
974: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
975: ELSIF p_no = 4 THEN
976: /* Permit total */
977: -- hr_utility.trace('record index is '||to_char(g_record_index));
978: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
974: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
975: ELSIF p_no = 4 THEN
976: /* Permit total */
977: -- hr_utility.trace('record index is '||to_char(g_record_index));
978: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
979: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
980: ELSIF p_no = 5 THEN
981: /* End of record */
982: -- hr_utility.trace('record index is '||to_char(g_record_index));
975: ELSIF p_no = 4 THEN
976: /* Permit total */
977: -- hr_utility.trace('record index is '||to_char(g_record_index));
978: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
979: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
980: ELSIF p_no = 5 THEN
981: /* End of record */
982: -- hr_utility.trace('record index is '||to_char(g_record_index));
983: pay_mag_tape.internal_prm_values(1) := 12;
979: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
980: ELSIF p_no = 5 THEN
981: /* End of record */
982: -- hr_utility.trace('record index is '||to_char(g_record_index));
983: pay_mag_tape.internal_prm_values(1) := 12;
984: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
985: ELSIF p_no = 6 THEN
986: /* Dummy record */
987: pay_mag_tape.internal_prm_values(1) := 3;
980: ELSIF p_no = 5 THEN
981: /* End of record */
982: -- hr_utility.trace('record index is '||to_char(g_record_index));
983: pay_mag_tape.internal_prm_values(1) := 12;
984: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
985: ELSIF p_no = 6 THEN
986: /* Dummy record */
987: pay_mag_tape.internal_prm_values(1) := 3;
988: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
983: pay_mag_tape.internal_prm_values(1) := 12;
984: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
985: ELSIF p_no = 6 THEN
986: /* Dummy record */
987: pay_mag_tape.internal_prm_values(1) := 3;
988: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
989: ELSIF p_no = 7 THEN
990: pay_mag_tape.internal_prm_values(1) := 6;
991: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
984: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
985: ELSIF p_no = 6 THEN
986: /* Dummy record */
987: pay_mag_tape.internal_prm_values(1) := 3;
988: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
989: ELSIF p_no = 7 THEN
990: pay_mag_tape.internal_prm_values(1) := 6;
991: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
992: END IF;
986: /* Dummy record */
987: pay_mag_tape.internal_prm_values(1) := 3;
988: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
989: ELSIF p_no = 7 THEN
990: pay_mag_tape.internal_prm_values(1) := 6;
991: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
992: END IF;
993: -- Set parameter count to start at transfer_char_errors
994: g_record_index := 6;
987: pay_mag_tape.internal_prm_values(1) := 3;
988: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
989: ELSIF p_no = 7 THEN
990: pay_mag_tape.internal_prm_values(1) := 6;
991: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
992: END IF;
993: -- Set parameter count to start at transfer_char_errors
994: g_record_index := 6;
995: END;
1005: close C_NI_NEW_TAX_YEAR;*/
1006: --8357870 end
1007:
1008: -- Reserved parameter names
1009: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1010: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1011: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1006: --8357870 end
1007:
1008: -- Reserved parameter names
1009: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1010: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1011: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1014: IF p_no = 1 THEN
1007:
1008: -- Reserved parameter names
1009: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1010: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1011: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1014: IF p_no = 1 THEN
1015: -- Permit Header
1008: -- Reserved parameter names
1009: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1010: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1011: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1014: IF p_no = 1 THEN
1015: -- Permit Header
1016: -- pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
1009: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1010: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1011: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1014: IF p_no = 1 THEN
1015: -- Permit Header
1016: -- pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
1017: /* Removed 'TAX_YEAR' input as part of 8833756
1012: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
1013: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
1014: IF p_no = 1 THEN
1015: -- Permit Header
1016: -- pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
1017: /* Removed 'TAX_YEAR' input as part of 8833756
1018: pay_mag_tape.internal_prm_values(1) := 16; -- EOY 09/10 8816832*/
1019: -- EOY Change 11/12 Included TAX_YEAR Parameter.
1020: -- pay_mag_tape.internal_prm_values(1) := 15;
1014: IF p_no = 1 THEN
1015: -- Permit Header
1016: -- pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
1017: /* Removed 'TAX_YEAR' input as part of 8833756
1018: pay_mag_tape.internal_prm_values(1) := 16; -- EOY 09/10 8816832*/
1019: -- EOY Change 11/12 Included TAX_YEAR Parameter.
1020: -- pay_mag_tape.internal_prm_values(1) := 15;
1021: pay_mag_tape.internal_prm_values(1) := 16;
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1016: -- pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
1017: /* Removed 'TAX_YEAR' input as part of 8833756
1018: pay_mag_tape.internal_prm_values(1) := 16; -- EOY 09/10 8816832*/
1019: -- EOY Change 11/12 Included TAX_YEAR Parameter.
1020: -- pay_mag_tape.internal_prm_values(1) := 15;
1021: pay_mag_tape.internal_prm_values(1) := 16;
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1023: ELSIF p_no = 2 THEN
1024: -- Employee Header
1017: /* Removed 'TAX_YEAR' input as part of 8833756
1018: pay_mag_tape.internal_prm_values(1) := 16; -- EOY 09/10 8816832*/
1019: -- EOY Change 11/12 Included TAX_YEAR Parameter.
1020: -- pay_mag_tape.internal_prm_values(1) := 15;
1021: pay_mag_tape.internal_prm_values(1) := 16;
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1023: ELSIF p_no = 2 THEN
1024: -- Employee Header
1025: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
1018: pay_mag_tape.internal_prm_values(1) := 16; -- EOY 09/10 8816832*/
1019: -- EOY Change 11/12 Included TAX_YEAR Parameter.
1020: -- pay_mag_tape.internal_prm_values(1) := 15;
1021: pay_mag_tape.internal_prm_values(1) := 16;
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1023: ELSIF p_no = 2 THEN
1024: -- Employee Header
1025: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
1026: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
1021: pay_mag_tape.internal_prm_values(1) := 16;
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1023: ELSIF p_no = 2 THEN
1024: -- Employee Header
1025: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
1026: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
1027: ELSIF p_no = 3 THEN
1028: -- Employee NI details
1029: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
1022: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
1023: ELSIF p_no = 2 THEN
1024: -- Employee Header
1025: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
1026: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
1027: ELSIF p_no = 3 THEN
1028: -- Employee NI details
1029: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
1030: --pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
1025: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
1026: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
1027: ELSIF p_no = 3 THEN
1028: -- Employee NI details
1029: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
1030: --pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
1031: /* 8357870 begin conditionally call formula. Added PAY_GB_EDI_P14_NI_DETAILS_INTERIM
1032: formula to contain new validations.
1033: 8816832 EOY 09/10 validation in PAY_GB_EDI_P14_NI_DETAILS &
1026: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
1027: ELSIF p_no = 3 THEN
1028: -- Employee NI details
1029: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
1030: --pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
1031: /* 8357870 begin conditionally call formula. Added PAY_GB_EDI_P14_NI_DETAILS_INTERIM
1032: formula to contain new validations.
1033: 8816832 EOY 09/10 validation in PAY_GB_EDI_P14_NI_DETAILS &
1034: EOY 08/09 validation in PAY_GB_EDI_P14_NI_DETAILS_INTERIM
1033: 8816832 EOY 09/10 validation in PAY_GB_EDI_P14_NI_DETAILS &
1034: EOY 08/09 validation in PAY_GB_EDI_P14_NI_DETAILS_INTERIM
1035: 8833756 EOY 09/10 changes
1036: */
1037: --pay_mag_tape.internal_prm_values(1) := 24; -- Added one more parameter for 8816832 EOY 09/10
1038: pay_mag_tape.internal_prm_values(1) := 24; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1039: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
1040: --8816832 end
1041: ELSIF p_no = 4 THEN
1034: EOY 08/09 validation in PAY_GB_EDI_P14_NI_DETAILS_INTERIM
1035: 8833756 EOY 09/10 changes
1036: */
1037: --pay_mag_tape.internal_prm_values(1) := 24; -- Added one more parameter for 8816832 EOY 09/10
1038: pay_mag_tape.internal_prm_values(1) := 24; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1039: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
1040: --8816832 end
1041: ELSIF p_no = 4 THEN
1042: -- Employee Trailer
1035: 8833756 EOY 09/10 changes
1036: */
1037: --pay_mag_tape.internal_prm_values(1) := 24; -- Added one more parameter for 8816832 EOY 09/10
1038: pay_mag_tape.internal_prm_values(1) := 24; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1039: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
1040: --8816832 end
1041: ELSIF p_no = 4 THEN
1042: -- Employee Trailer
1043: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
1039: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
1040: --8816832 end
1041: ELSIF p_no = 4 THEN
1042: -- Employee Trailer
1043: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
1044: -- pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
1045: -- EOY 2012/13
1046: -- pay_mag_tape.internal_prm_values(1) := 34; -- 8816832 EOY 09/10
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1040: --8816832 end
1041: ELSIF p_no = 4 THEN
1042: -- Employee Trailer
1043: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
1044: -- pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
1045: -- EOY 2012/13
1046: -- pay_mag_tape.internal_prm_values(1) := 34; -- 8816832 EOY 09/10
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1042: -- Employee Trailer
1043: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
1044: -- pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
1045: -- EOY 2012/13
1046: -- pay_mag_tape.internal_prm_values(1) := 34; -- 8816832 EOY 09/10
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1049: ELSIF p_no = 5 THEN
1050: -- Permit Trailer
1043: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
1044: -- pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
1045: -- EOY 2012/13
1046: -- pay_mag_tape.internal_prm_values(1) := 34; -- 8816832 EOY 09/10
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1049: ELSIF p_no = 5 THEN
1050: -- Permit Trailer
1051: pay_mag_tape.internal_prm_values(1) := 19; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1044: -- pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
1045: -- EOY 2012/13
1046: -- pay_mag_tape.internal_prm_values(1) := 34; -- 8816832 EOY 09/10
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1049: ELSIF p_no = 5 THEN
1050: -- Permit Trailer
1051: pay_mag_tape.internal_prm_values(1) := 19; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1052: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
1047: pay_mag_tape.internal_prm_values(1) := 37; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1049: ELSIF p_no = 5 THEN
1050: -- Permit Trailer
1051: pay_mag_tape.internal_prm_values(1) := 19; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1052: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
1053: ELSIF p_no = 6 THEN
1054: -- File Trailer
1055: pay_mag_tape.internal_prm_values(1) := 11;
1048: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
1049: ELSIF p_no = 5 THEN
1050: -- Permit Trailer
1051: pay_mag_tape.internal_prm_values(1) := 19; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1052: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
1053: ELSIF p_no = 6 THEN
1054: -- File Trailer
1055: pay_mag_tape.internal_prm_values(1) := 11;
1056: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
1051: pay_mag_tape.internal_prm_values(1) := 19; -- Added Tax Year, NI_NEW_TAX_YEAR input parameter. EOY 2011/12. Bug 12694562.
1052: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
1053: ELSIF p_no = 6 THEN
1054: -- File Trailer
1055: pay_mag_tape.internal_prm_values(1) := 11;
1056: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
1057: ELSIF p_no = 7 THEN
1058: -- Dummy EDI record
1059: pay_mag_tape.internal_prm_values(1) := 3;
1052: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
1053: ELSIF p_no = 6 THEN
1054: -- File Trailer
1055: pay_mag_tape.internal_prm_values(1) := 11;
1056: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
1057: ELSIF p_no = 7 THEN
1058: -- Dummy EDI record
1059: pay_mag_tape.internal_prm_values(1) := 3;
1060: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
1055: pay_mag_tape.internal_prm_values(1) := 11;
1056: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
1057: ELSIF p_no = 7 THEN
1058: -- Dummy EDI record
1059: pay_mag_tape.internal_prm_values(1) := 3;
1060: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
1061: END IF;
1062: -- Set parameter count to start at transfer_char_errors
1063: g_record_index := 6;
1056: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
1057: ELSIF p_no = 7 THEN
1058: -- Dummy EDI record
1059: pay_mag_tape.internal_prm_values(1) := 3;
1060: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
1061: END IF;
1062: -- Set parameter count to start at transfer_char_errors
1063: g_record_index := 6;
1064: END;
1065: PROCEDURE mag_tape_interface(p_name VARCHAR2
1066: ,p_values VARCHAR2) IS
1067: /* The interface to the magnetic tape writer process */
1068: BEGIN
1069: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
1070: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
1071: /* Inc the parameter table index */
1072: g_record_index := g_record_index +1;
1073: END;
1066: ,p_values VARCHAR2) IS
1067: /* The interface to the magnetic tape writer process */
1068: BEGIN
1069: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
1070: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
1071: /* Inc the parameter table index */
1072: g_record_index := g_record_index +1;
1073: END;
1074: --
1075: PROCEDURE mag_tape_interface(p_name VARCHAR2
1076: ,p_values NUMBER) IS
1077: /* The interface to the magnetic tape writer process */
1078: BEGIN
1079: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
1080: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
1081: g_record_index := g_record_index +1;
1082: END;
1083: --
1076: ,p_values NUMBER) IS
1077: /* The interface to the magnetic tape writer process */
1078: BEGIN
1079: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
1080: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
1081: g_record_index := g_record_index +1;
1082: END;
1083: --
1084: PROCEDURE p_mag_form_clear(l_tab_index NUMBER) IS
1114: mag_tape_init(1);
1115: END IF;
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1115: END IF;
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1475: BEGIN
1476: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',400);
1477: -- This loop is used to obtain all parameter values. The prerequisite to
1478: -- this functioning correctly is that rows are populated in the
1479: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1480: -- table is not found, the loop exits by means of an exception.
1481: -- Also note that if a corresponding value is missing, the loop will exit.
1482: LOOP
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1482: LOOP
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1492: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1493: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1494: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1495: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1503: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1496: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1503: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1504: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1497: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1498: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1503: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1504: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1505: End 4011263 */
1499: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1503: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1504: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1505: End 4011263 */
1506: END IF;
1507: --
1500: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1501: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1502: /* Start 4011263
1503: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1504: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1505: End 4011263 */
1506: END IF;
1507: --
1508: END LOOP;
1663: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',27);
1664: --
1665: -- First time in so clear the error type counts
1666: --
1667: pay_mag_tape.internal_prm_values(3) := 0;
1668: pay_mag_tape.internal_prm_values(4) := 0;
1669: pay_mag_tape.internal_prm_values(5) := 0;
1670: OPEN header_cur(g_payroll_action_id);
1671: END IF;
1664: --
1665: -- First time in so clear the error type counts
1666: --
1667: pay_mag_tape.internal_prm_values(3) := 0;
1668: pay_mag_tape.internal_prm_values(4) := 0;
1669: pay_mag_tape.internal_prm_values(5) := 0;
1670: OPEN header_cur(g_payroll_action_id);
1671: END IF;
1672: IF NOT(permit_change) THEN
1665: -- First time in so clear the error type counts
1666: --
1667: pay_mag_tape.internal_prm_values(3) := 0;
1668: pay_mag_tape.internal_prm_values(4) := 0;
1669: pay_mag_tape.internal_prm_values(5) := 0;
1670: OPEN header_cur(g_payroll_action_id);
1671: END IF;
1672: IF NOT(permit_change) THEN
1673: -- Get record from EOY table as next record
1683: -- Call formula to error payroll.
1684: mag_tape_init(7);
1685: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1686: hr_utility.trace('after mag tape interface calls');
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1684: mag_tape_init(7);
1685: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1686: hr_utility.trace('after mag tape interface calls');
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1685: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1686: hr_utility.trace('after mag tape interface calls');
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1693: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1686: hr_utility.trace('after mag tape interface calls');
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1693: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1694: -- No errors so fetch header info.
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1693: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1694: -- No errors so fetch header info.
1695: FETCH header_cur INTO g_new_permit_no
2616: --
2617: --
2618: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2619: p_p35_req_id => l_p35_req_id);
2620: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2621: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2622: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2623: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2624: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2617: --
2618: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2619: p_p35_req_id => l_p35_req_id);
2620: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2621: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2622: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2623: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2624: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2625: --
2618: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2619: p_p35_req_id => l_p35_req_id);
2620: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2621: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2622: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2623: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2624: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2625: --
2626: -- Check for type 1 and type 2 errors. Similar to MAG_RECORD5 checks.