790: -- The initialization of the record type formulae
791: -- and number of parameters
792: BEGIN
793: /* Reserved parameter names */
794: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
795: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
796: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
791: -- and number of parameters
792: BEGIN
793: /* Reserved parameter names */
794: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
795: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
796: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
792: BEGIN
793: /* Reserved parameter names */
794: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
795: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
796: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
800: /* Record type 1 */
793: /* Reserved parameter names */
794: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
795: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
796: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
800: /* Record type 1 */
801: pay_mag_tape.internal_prm_values(1) := 15;
794: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
795: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
796: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
800: /* Record type 1 */
801: pay_mag_tape.internal_prm_values(1) := 15;
802: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
797: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
800: /* Record type 1 */
801: pay_mag_tape.internal_prm_values(1) := 15;
802: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
803: ELSIF p_no = 2 THEN
804: /* Record type 2 */
805: pay_mag_tape.internal_prm_values(1) := 69;
798: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
799: IF p_no = 1 THEN
800: /* Record type 1 */
801: pay_mag_tape.internal_prm_values(1) := 15;
802: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
803: ELSIF p_no = 2 THEN
804: /* Record type 2 */
805: pay_mag_tape.internal_prm_values(1) := 69;
806: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
801: pay_mag_tape.internal_prm_values(1) := 15;
802: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
803: ELSIF p_no = 2 THEN
804: /* Record type 2 */
805: pay_mag_tape.internal_prm_values(1) := 69;
806: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
807: /* Reset the record index to start at the third parameter */
808: ELSIF p_no = 3 THEN
809: /* Sub-header */
802: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD1');
803: ELSIF p_no = 2 THEN
804: /* Record type 2 */
805: pay_mag_tape.internal_prm_values(1) := 69;
806: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
807: /* Reset the record index to start at the third parameter */
808: ELSIF p_no = 3 THEN
809: /* Sub-header */
810: -- hr_utility.trace('record index is '||to_char(g_record_index));
807: /* Reset the record index to start at the third parameter */
808: ELSIF p_no = 3 THEN
809: /* Sub-header */
810: -- hr_utility.trace('record index is '||to_char(g_record_index));
811: pay_mag_tape.internal_prm_values(1) := 7;
812: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
813: ELSIF p_no = 4 THEN
814: /* Permit total */
815: -- hr_utility.trace('record index is '||to_char(g_record_index));
808: ELSIF p_no = 3 THEN
809: /* Sub-header */
810: -- hr_utility.trace('record index is '||to_char(g_record_index));
811: pay_mag_tape.internal_prm_values(1) := 7;
812: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
813: ELSIF p_no = 4 THEN
814: /* Permit total */
815: -- hr_utility.trace('record index is '||to_char(g_record_index));
816: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
812: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
813: ELSIF p_no = 4 THEN
814: /* Permit total */
815: -- hr_utility.trace('record index is '||to_char(g_record_index));
816: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
817: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
818: ELSIF p_no = 5 THEN
819: /* End of record */
820: -- hr_utility.trace('record index is '||to_char(g_record_index));
813: ELSIF p_no = 4 THEN
814: /* Permit total */
815: -- hr_utility.trace('record index is '||to_char(g_record_index));
816: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
817: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
818: ELSIF p_no = 5 THEN
819: /* End of record */
820: -- hr_utility.trace('record index is '||to_char(g_record_index));
821: pay_mag_tape.internal_prm_values(1) := 12;
817: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
818: ELSIF p_no = 5 THEN
819: /* End of record */
820: -- hr_utility.trace('record index is '||to_char(g_record_index));
821: pay_mag_tape.internal_prm_values(1) := 12;
822: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
823: ELSIF p_no = 6 THEN
824: /* Dummy record */
825: pay_mag_tape.internal_prm_values(1) := 3;
818: ELSIF p_no = 5 THEN
819: /* End of record */
820: -- hr_utility.trace('record index is '||to_char(g_record_index));
821: pay_mag_tape.internal_prm_values(1) := 12;
822: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
823: ELSIF p_no = 6 THEN
824: /* Dummy record */
825: pay_mag_tape.internal_prm_values(1) := 3;
826: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
821: pay_mag_tape.internal_prm_values(1) := 12;
822: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
823: ELSIF p_no = 6 THEN
824: /* Dummy record */
825: pay_mag_tape.internal_prm_values(1) := 3;
826: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
827: ELSIF p_no = 7 THEN
828: pay_mag_tape.internal_prm_values(1) := 6;
829: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
822: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
823: ELSIF p_no = 6 THEN
824: /* Dummy record */
825: pay_mag_tape.internal_prm_values(1) := 3;
826: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
827: ELSIF p_no = 7 THEN
828: pay_mag_tape.internal_prm_values(1) := 6;
829: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
830: END IF;
824: /* Dummy record */
825: pay_mag_tape.internal_prm_values(1) := 3;
826: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
827: ELSIF p_no = 7 THEN
828: pay_mag_tape.internal_prm_values(1) := 6;
829: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
830: END IF;
831: -- Set parameter count to start at transfer_char_errors
832: g_record_index := 6;
825: pay_mag_tape.internal_prm_values(1) := 3;
826: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD6');
827: ELSIF p_no = 7 THEN
828: pay_mag_tape.internal_prm_values(1) := 6;
829: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD7');
830: END IF;
831: -- Set parameter count to start at transfer_char_errors
832: g_record_index := 6;
833: END;
836: -- The initialization of the P14 EDI record type formulae
837: -- and number of parameters
838: BEGIN
839: -- Reserved parameter names
840: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
841: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
842: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
837: -- and number of parameters
838: BEGIN
839: -- Reserved parameter names
840: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
841: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
842: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
838: BEGIN
839: -- Reserved parameter names
840: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
841: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
842: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
846: -- Permit Header
839: -- Reserved parameter names
840: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
841: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
842: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
846: -- Permit Header
847: pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
840: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
841: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
842: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_TYPE1_ERRORS';
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
846: -- Permit Header
847: pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
848: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
843: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_TYPE2_ERRORS';
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
846: -- Permit Header
847: pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
848: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
849: ELSIF p_no = 2 THEN
850: -- Employee Header
851: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
844: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_CHAR_ERRORS';
845: IF p_no = 1 THEN
846: -- Permit Header
847: pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
848: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
849: ELSIF p_no = 2 THEN
850: -- Employee Header
851: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
852: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
847: pay_mag_tape.internal_prm_values(1) := 15; -- Changed for 4752018
848: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
849: ELSIF p_no = 2 THEN
850: -- Employee Header
851: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
852: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
853: ELSIF p_no = 3 THEN
854: -- Employee NI details
855: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
848: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_HEADER');
849: ELSIF p_no = 2 THEN
850: -- Employee Header
851: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
852: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
853: ELSIF p_no = 3 THEN
854: -- Employee NI details
855: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
856: pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
851: pay_mag_tape.internal_prm_values(1) := 22; -- Changed for 4752018
852: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
853: ELSIF p_no = 3 THEN
854: -- Employee NI details
855: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
856: pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
857: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
852: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_HEADER');
853: ELSIF p_no = 3 THEN
854: -- Employee NI details
855: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
856: pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
857: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
860: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
853: ELSIF p_no = 3 THEN
854: -- Employee NI details
855: --pay_mag_tape.internal_prm_values(1) := 22; -- Changed for EOY 2006/7
856: pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
857: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
860: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
861: pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
856: pay_mag_tape.internal_prm_values(1) := 23; -- Added one more parameter for EOY 07/08
857: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
860: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
861: pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
862: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
863: ELSIF p_no = 5 THEN
864: -- Permit Trailer
857: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_NI_DETAILS');
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
860: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
861: pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
862: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
863: ELSIF p_no = 5 THEN
864: -- Permit Trailer
865: pay_mag_tape.internal_prm_values(1) := 16; -- Changed for 4752018
858: ELSIF p_no = 4 THEN
859: -- Employee Trailer
860: --pay_mag_tape.internal_prm_values(1) := 31; -- Changed for EOY 2006/7
861: pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
862: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
863: ELSIF p_no = 5 THEN
864: -- Permit Trailer
865: pay_mag_tape.internal_prm_values(1) := 16; -- Changed for 4752018
866: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
861: pay_mag_tape.internal_prm_values(1) := 32; -- Changed for 6281170
862: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
863: ELSIF p_no = 5 THEN
864: -- Permit Trailer
865: pay_mag_tape.internal_prm_values(1) := 16; -- Changed for 4752018
866: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
867: ELSIF p_no = 6 THEN
868: -- File Trailer
869: pay_mag_tape.internal_prm_values(1) := 11;
862: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_EMP_TRAILER');
863: ELSIF p_no = 5 THEN
864: -- Permit Trailer
865: pay_mag_tape.internal_prm_values(1) := 16; -- Changed for 4752018
866: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
867: ELSIF p_no = 6 THEN
868: -- File Trailer
869: pay_mag_tape.internal_prm_values(1) := 11;
870: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
865: pay_mag_tape.internal_prm_values(1) := 16; -- Changed for 4752018
866: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
867: ELSIF p_no = 6 THEN
868: -- File Trailer
869: pay_mag_tape.internal_prm_values(1) := 11;
870: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
871: ELSIF p_no = 7 THEN
872: -- Dummy EDI record
873: pay_mag_tape.internal_prm_values(1) := 3;
866: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_PERMIT_TRAILER');
867: ELSIF p_no = 6 THEN
868: -- File Trailer
869: pay_mag_tape.internal_prm_values(1) := 11;
870: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
871: ELSIF p_no = 7 THEN
872: -- Dummy EDI record
873: pay_mag_tape.internal_prm_values(1) := 3;
874: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
869: pay_mag_tape.internal_prm_values(1) := 11;
870: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
871: ELSIF p_no = 7 THEN
872: -- Dummy EDI record
873: pay_mag_tape.internal_prm_values(1) := 3;
874: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
875: END IF;
876: -- Set parameter count to start at transfer_char_errors
877: g_record_index := 6;
870: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_FILE_TRAILER');
871: ELSIF p_no = 7 THEN
872: -- Dummy EDI record
873: pay_mag_tape.internal_prm_values(1) := 3;
874: pay_mag_tape.internal_prm_values(2) := get_formula_id('PAY_GB_EDI_P14_DUMMY');
875: END IF;
876: -- Set parameter count to start at transfer_char_errors
877: g_record_index := 6;
878: END;
879: PROCEDURE mag_tape_interface(p_name VARCHAR2
880: ,p_values VARCHAR2) IS
881: /* The interface to the magnetic tape writer process */
882: BEGIN
883: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
884: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
885: /* Inc the parameter table index */
886: g_record_index := g_record_index +1;
887: END;
880: ,p_values VARCHAR2) IS
881: /* The interface to the magnetic tape writer process */
882: BEGIN
883: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
884: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
885: /* Inc the parameter table index */
886: g_record_index := g_record_index +1;
887: END;
888: --
889: PROCEDURE mag_tape_interface(p_name VARCHAR2
890: ,p_values NUMBER) IS
891: /* The interface to the magnetic tape writer process */
892: BEGIN
893: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
894: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
895: g_record_index := g_record_index +1;
896: END;
897: --
890: ,p_values NUMBER) IS
891: /* The interface to the magnetic tape writer process */
892: BEGIN
893: pay_mag_tape.internal_prm_names(g_record_index) := p_name;
894: pay_mag_tape.internal_prm_values(g_record_index) := p_values;
895: g_record_index := g_record_index +1;
896: END;
897: --
898: PROCEDURE p_mag_form_clear(l_tab_index NUMBER) IS
927: mag_tape_init(1);
928: END IF;
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
928: END IF;
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
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.
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);
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));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
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));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
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));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(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));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1295: -- p_permit_no := pay_mag_tape.internal_prm_values(l_count);
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1296: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'TAX_DISTRICT_REFERENCE' then
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1297: -- p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(l_count),1,3);
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1298: -- p_tax_ref_no := LTRIM(SUBSTR(pay_mag_tape.internal_prm_values(l_count),4), '/');
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1306: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1299: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'TEST' THEN
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1306: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1307: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1300: p_test_indicator := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1301: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'UNIQUE_TEST_ID' THEN
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1306: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1307: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1308: End 4011263 */
1302: p_unique_test_id := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1306: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1307: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1308: End 4011263 */
1309: END IF;
1310: --
1303: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'RETURN_TYPE' THEN
1304: p_return_type := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1305: /* Start 4011263
1306: ELSIF pay_mag_tape.internal_prm_names(l_count) = 'URGENT' THEN
1307: p_urgent_marker := nvl(pay_mag_tape.internal_prm_values(l_count),'N');
1308: End 4011263 */
1309: END IF;
1310: --
1311: END LOOP;
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;
1464: pay_mag_tape.internal_prm_values(4) := 0;
1465: pay_mag_tape.internal_prm_values(5) := 0;
1466: OPEN header_cur(g_payroll_action_id);
1467: END IF;
1460: --
1461: -- First time in so clear the error type counts
1462: --
1463: pay_mag_tape.internal_prm_values(3) := 0;
1464: pay_mag_tape.internal_prm_values(4) := 0;
1465: pay_mag_tape.internal_prm_values(5) := 0;
1466: OPEN header_cur(g_payroll_action_id);
1467: END IF;
1468: IF NOT(permit_change) THEN
1461: -- First time in so clear the error type counts
1462: --
1463: pay_mag_tape.internal_prm_values(3) := 0;
1464: pay_mag_tape.internal_prm_values(4) := 0;
1465: pay_mag_tape.internal_prm_values(5) := 0;
1466: OPEN header_cur(g_payroll_action_id);
1467: END IF;
1468: IF NOT(permit_change) THEN
1469: -- Get record from EOY table as next record
1479: -- Call formula to error payroll.
1480: mag_tape_init(7);
1481: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1482: hr_utility.trace('after mag tape interface calls');
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
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));
1480: mag_tape_init(7);
1481: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1482: hr_utility.trace('after mag tape interface calls');
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
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
1481: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1482: hr_utility.trace('after mag tape interface calls');
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
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);
1482: hr_utility.trace('after mag tape interface calls');
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
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.
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
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
2343: --
2344: --
2345: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2346: p_p35_req_id => l_p35_req_id);
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);
2344: --
2345: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2346: p_p35_req_id => l_p35_req_id);
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: --
2345: submit_recon_report(p_payroll_action_id => g_payroll_action_id,
2346: p_p35_req_id => l_p35_req_id);
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.