632: RETURN Number IS
633: param_value number;
634: BEGIN
635: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
636: IF pay_mag_tape.internal_prm_names(3) = p_param_name
637: THEN
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
640: THEN
634: BEGIN
635: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
636: IF pay_mag_tape.internal_prm_names(3) = p_param_name
637: THEN
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
640: THEN
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
635: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
636: IF pay_mag_tape.internal_prm_names(3) = p_param_name
637: THEN
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
640: THEN
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
643: THEN
637: THEN
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
640: THEN
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
643: THEN
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
638: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
639: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
640: THEN
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
643: THEN
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
646: THEN
640: THEN
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
643: THEN
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
646: THEN
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
641: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
642: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
643: THEN
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
646: THEN
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
649: THEN
643: THEN
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
646: THEN
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
649: THEN
650: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
651: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
644: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
645: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
646: THEN
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
649: THEN
650: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
651: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
652: THEN
646: THEN
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
649: THEN
650: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
651: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
652: THEN
653: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
654: END IF;
647: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
648: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
649: THEN
650: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
651: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
652: THEN
653: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
654: END IF;
655: RETURN param_value;
649: THEN
650: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
651: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
652: THEN
653: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
654: END IF;
655: RETURN param_value;
656: END get_transfer_param;
657: --
672:
673: hr_utility.trace('Writing File Header');
674: hr_utility.trace('.... Writing File Header Context');
675:
676: pay_mag_tape.internal_cxt_values(1) := '3';
677: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
678: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
679: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
673: hr_utility.trace('Writing File Header');
674: hr_utility.trace('.... Writing File Header Context');
675:
676: pay_mag_tape.internal_cxt_values(1) := '3';
677: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
678: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
679: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
681: --
674: hr_utility.trace('.... Writing File Header Context');
675:
676: pay_mag_tape.internal_cxt_values(1) := '3';
677: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
678: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
679: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
681: --
682: hr_utility.trace('.... Writing File Header Parameters');
675:
676: pay_mag_tape.internal_cxt_values(1) := '3';
677: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
678: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
679: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
681: --
682: hr_utility.trace('.... Writing File Header Parameters');
683:
676: pay_mag_tape.internal_cxt_values(1) := '3';
677: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
678: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
679: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
681: --
682: hr_utility.trace('.... Writing File Header Parameters');
683:
684: pay_mag_tape.internal_prm_values(1) := '6';
680: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
681: --
682: hr_utility.trace('.... Writing File Header Parameters');
683:
684: pay_mag_tape.internal_prm_values(1) := '6';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
681: --
682: hr_utility.trace('.... Writing File Header Parameters');
683:
684: pay_mag_tape.internal_prm_values(1) := '6';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
682: hr_utility.trace('.... Writing File Header Parameters');
683:
684: pay_mag_tape.internal_prm_values(1) := '6';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
683:
684: pay_mag_tape.internal_prm_values(1) := '6';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
684: pay_mag_tape.internal_prm_values(1) := '6';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
685: pay_mag_tape.internal_prm_values(2) := g_file_header;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
693: pay_mag_tape.internal_prm_values(6) := g_time;
686: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
693: pay_mag_tape.internal_prm_values(6) := g_time;
694:
687: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
693: pay_mag_tape.internal_prm_values(6) := g_time;
694:
695: hr_utility.trace('Leaving File Header');
688: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
693: pay_mag_tape.internal_prm_values(6) := g_time;
694:
695: hr_utility.trace('Leaving File Header');
696:
689: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
690: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
691: pay_mag_tape.internal_prm_values(5) := g_date;
692: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
693: pay_mag_tape.internal_prm_values(6) := g_time;
694:
695: hr_utility.trace('Leaving File Header');
696:
697: hr_utility.set_location('run_formula.File_head',6);
734: -- Context for NACHA_BATCH_HEADER
735: -- first context is number of contexts
736: hr_utility.trace('.... Writing Batch Header Context');
737:
738: pay_mag_tape.internal_cxt_values(1) := '4';
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
735: -- first context is number of contexts
736: hr_utility.trace('.... Writing Batch Header Context');
737:
738: pay_mag_tape.internal_cxt_values(1) := '4';
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
736: hr_utility.trace('.... Writing Batch Header Context');
737:
738: pay_mag_tape.internal_cxt_values(1) := '4';
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
744: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
737:
738: pay_mag_tape.internal_cxt_values(1) := '4';
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
744: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
745:
738: pay_mag_tape.internal_cxt_values(1) := '4';
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
744: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
745:
746: -- Parameters for NACHA_BATCH_HEADER
739: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
744: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
745:
746: -- Parameters for NACHA_BATCH_HEADER
747: -- first parameter is number of parameters
740: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
741: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
742: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
743: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
744: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
745:
746: -- Parameters for NACHA_BATCH_HEADER
747: -- first parameter is number of parameters
748: -- second parameter is formula is
747: -- first parameter is number of parameters
748: -- second parameter is formula is
749: hr_utility.trace('.... Writing Batch Header Parameters');
750:
751: pay_mag_tape.internal_prm_values(1) := '8';
752: pay_mag_tape.internal_prm_values(2) := g_batch_header;
753:
754: -- 3 TRANSFER_THIRD_PARTY
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
748: -- second parameter is formula is
749: hr_utility.trace('.... Writing Batch Header Parameters');
750:
751: pay_mag_tape.internal_prm_values(1) := '8';
752: pay_mag_tape.internal_prm_values(2) := g_batch_header;
753:
754: -- 3 TRANSFER_THIRD_PARTY
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
751: pay_mag_tape.internal_prm_values(1) := '8';
752: pay_mag_tape.internal_prm_values(2) := g_batch_header;
753:
754: -- 3 TRANSFER_THIRD_PARTY
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
752: pay_mag_tape.internal_prm_values(2) := g_batch_header;
753:
754: -- 3 TRANSFER_THIRD_PARTY
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
754: -- 3 TRANSFER_THIRD_PARTY
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
755: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
756: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
757:
758: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
765:
759: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
765:
766: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
767: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
760: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
761: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
765:
766: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
767: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
768:
762: TO_CHAR(g_effective_date,'YYMMDD'));
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
765:
766: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
767: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
768:
769: -- the format type depends on whether the opm is third party or not
770: if g_csr_org_pay_third_party = 'Y' then
763: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
764: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
765:
766: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
767: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
768:
769: -- the format type depends on whether the opm is third party or not
770: if g_csr_org_pay_third_party = 'Y' then
771: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
767: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
768:
769: -- the format type depends on whether the opm is third party or not
770: if g_csr_org_pay_third_party = 'Y' then
771: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
772: pay_mag_tape.internal_prm_values(8) := 'CCD';
773: else
774: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
775: pay_mag_tape.internal_prm_values(8) := 'PPD';
768:
769: -- the format type depends on whether the opm is third party or not
770: if g_csr_org_pay_third_party = 'Y' then
771: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
772: pay_mag_tape.internal_prm_values(8) := 'CCD';
773: else
774: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
775: pay_mag_tape.internal_prm_values(8) := 'PPD';
776: end if;
770: if g_csr_org_pay_third_party = 'Y' then
771: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
772: pay_mag_tape.internal_prm_values(8) := 'CCD';
773: else
774: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
775: pay_mag_tape.internal_prm_values(8) := 'PPD';
776: end if;
777:
778:
771: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
772: pay_mag_tape.internal_prm_values(8) := 'CCD';
773: else
774: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
775: pay_mag_tape.internal_prm_values(8) := 'PPD';
776: end if;
777:
778:
779: hr_utility.trace('Leaving Batch Header');
800: g_count := g_count + 1;
801:
802: -- Context Setup for NACHA_ENTRY_DETAIL
803: -- First context value is number of contexts
804: pay_mag_tape.internal_cxt_values(1) := '7';
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
801:
802: -- Context Setup for NACHA_ENTRY_DETAIL
803: -- First context value is number of contexts
804: pay_mag_tape.internal_cxt_values(1) := '7';
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
802: -- Context Setup for NACHA_ENTRY_DETAIL
803: -- First context value is number of contexts
804: pay_mag_tape.internal_cxt_values(1) := '7';
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
803: -- First context value is number of contexts
804: pay_mag_tape.internal_cxt_values(1) := '7';
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
804: pay_mag_tape.internal_cxt_values(1) := '7';
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
805: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
806: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
807: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
816: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
816: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
817:
810: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
816: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
817:
818: -- Parameter Setup for NACHA_ENTRY_DETAIL
811: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
816: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
817:
818: -- Parameter Setup for NACHA_ENTRY_DETAIL
819: -- First parameter value is number of parameters
812: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
813: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
814: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
815: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
816: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
817:
818: -- Parameter Setup for NACHA_ENTRY_DETAIL
819: -- First parameter value is number of parameters
820: -- second parameter value is formula id
820: -- second parameter value is formula id
821:
822: hr_utility.trace('.... Writing Entry Detail Parameters');
823:
824: pay_mag_tape.internal_prm_values(1) := '11';
825: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
826:
827: -- Parameters 3-6 are transferred from previous formula
828: -- 3 - TRANSFER_THIRD_PARTY
821:
822: hr_utility.trace('.... Writing Entry Detail Parameters');
823:
824: pay_mag_tape.internal_prm_values(1) := '11';
825: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
826:
827: -- Parameters 3-6 are transferred from previous formula
828: -- 3 - TRANSFER_THIRD_PARTY
829: -- 4 - TRANSFER_ENTRY_COUNT
828: -- 3 - TRANSFER_THIRD_PARTY
829: -- 4 - TRANSFER_ENTRY_COUNT
830: -- 5 - TRANSFER_ENTRY_HASH
831: -- 6 - TRANSFER_CREDIT_AMOUNT
832: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
833: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
834:
835: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
836: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
829: -- 4 - TRANSFER_ENTRY_COUNT
830: -- 5 - TRANSFER_ENTRY_HASH
831: -- 6 - TRANSFER_CREDIT_AMOUNT
832: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
833: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
834:
835: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
836: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
837:
831: -- 6 - TRANSFER_CREDIT_AMOUNT
832: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
833: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
834:
835: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
836: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
837:
838: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
839:
832: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
833: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
834:
835: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
836: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
837:
838: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
839:
840: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
836: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
837:
838: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
839:
840: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
841: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
842:
843: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
844: pay_mag_tape.internal_prm_values(11) := g_test_file;
837:
838: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
839:
840: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
841: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
842:
843: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
844: pay_mag_tape.internal_prm_values(11) := g_test_file;
845:
839:
840: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
841: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
842:
843: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
844: pay_mag_tape.internal_prm_values(11) := g_test_file;
845:
846: hr_utility.set_location('run_formula.Assignment',7);
847: IF g_temp_count = 0 THEN
840: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
841: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
842:
843: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
844: pay_mag_tape.internal_prm_values(11) := g_test_file;
845:
846: hr_utility.set_location('run_formula.Assignment',7);
847: IF g_temp_count = 0 THEN
848: -- If this is the first entry detail of a batch, reset these
846: hr_utility.set_location('run_formula.Assignment',7);
847: IF g_temp_count = 0 THEN
848: -- If this is the first entry detail of a batch, reset these
849: -- parameters.
850: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
847: IF g_temp_count = 0 THEN
848: -- If this is the first entry detail of a batch, reset these
849: -- parameters.
850: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
848: -- If this is the first entry detail of a batch, reset these
849: -- parameters.
850: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
849: -- parameters.
850: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
857: pay_mag_tape.internal_prm_values(9) := '0';
850: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
857: pay_mag_tape.internal_prm_values(9) := '0';
858:
851: pay_mag_tape.internal_prm_values(4) := '0';
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
857: pay_mag_tape.internal_prm_values(9) := '0';
858:
859: g_temp_count := 1;
852: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
857: pay_mag_tape.internal_prm_values(9) := '0';
858:
859: g_temp_count := 1;
860: hr_utility.set_location('run_formula.Assignment',8);
853: pay_mag_tape.internal_prm_values(5) := '0';
854: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
855: pay_mag_tape.internal_prm_values(6) := '0';
856: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
857: pay_mag_tape.internal_prm_values(9) := '0';
858:
859: g_temp_count := 1;
860: hr_utility.set_location('run_formula.Assignment',8);
861: END IF;
916:
917: -- Context Setup for NACHA_ADDENDA
918: -- First context value is number of Context Values
919:
920: pay_mag_tape.internal_cxt_values(1) := '7';
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
917: -- Context Setup for NACHA_ADDENDA
918: -- First context value is number of Context Values
919:
920: pay_mag_tape.internal_cxt_values(1) := '7';
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
918: -- First context value is number of Context Values
919:
920: pay_mag_tape.internal_cxt_values(1) := '7';
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
919:
920: pay_mag_tape.internal_cxt_values(1) := '7';
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
920: pay_mag_tape.internal_cxt_values(1) := '7';
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
921: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
922: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
923: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
924: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
932: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
925: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
932: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
933:
926: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
932: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
933:
934: hr_utility.trace('.... Writing Addenda Parameters');
927: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
932: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
933:
934: hr_utility.trace('.... Writing Addenda Parameters');
935:
928: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
929: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
930: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
931: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
932: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
933:
934: hr_utility.trace('.... Writing Addenda Parameters');
935:
936: -- Parameter Setup for NACHA_ADDENDA
934: hr_utility.trace('.... Writing Addenda Parameters');
935:
936: -- Parameter Setup for NACHA_ADDENDA
937: -- First Parameter Value is number of parameters
938: pay_mag_tape.internal_prm_values(1) := '14';
939: -- second is formula id
940: pay_mag_tape.internal_prm_values(2) := g_addenda;
941:
942: -- Parameters 3-6 are transferred from previous formula
936: -- Parameter Setup for NACHA_ADDENDA
937: -- First Parameter Value is number of parameters
938: pay_mag_tape.internal_prm_values(1) := '14';
939: -- second is formula id
940: pay_mag_tape.internal_prm_values(2) := g_addenda;
941:
942: -- Parameters 3-6 are transferred from previous formula
943: -- 3 - TRANSFER_THIRD_PARTY
944: -- 4 - TRANSFER_ENTRY_COUNT
944: -- 4 - TRANSFER_ENTRY_COUNT
945: -- 5 - TRANSFER_ENTRY_HASH
946: -- 6 - TRANSFER_CREDIT_AMOUNT
947:
948: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
949: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
950:
951: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
952:
945: -- 5 - TRANSFER_ENTRY_HASH
946: -- 6 - TRANSFER_CREDIT_AMOUNT
947:
948: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
949: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
950:
951: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
952:
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
949: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
950:
951: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
952:
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
950:
951: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
952:
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
951: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
952:
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
952:
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
953: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
954: pay_mag_tape.internal_prm_values(10) := v_fips_code;
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
962: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
955: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
962: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
963: pay_mag_tape.internal_prm_values(14) := g_test_file;
956: pay_mag_tape.internal_prm_values(11) := v_med_ind;
957: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
962: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
963: pay_mag_tape.internal_prm_values(14) := g_test_file;
964:
958: pay_mag_tape.internal_prm_values(12) := v_attach_number;
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
962: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
963: pay_mag_tape.internal_prm_values(14) := g_test_file;
964:
965:
966: -- we do not change the count till after so we can have the same trace number
959: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
960: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
961:
962: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
963: pay_mag_tape.internal_prm_values(14) := g_test_file;
964:
965:
966: -- we do not change the count till after so we can have the same trace number
967: -- in both entry detail and addenda rec
1002: -- Context Setup for NACHA_ORG_PAY_ENTRY_DETAIL
1003: -- first context is number of context values
1004: hr_utility.trace('.... Writing Org Entry Detail Context');
1005:
1006: pay_mag_tape.internal_cxt_values(1) := '3';
1007: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1008: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
1009: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1010: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1003: -- first context is number of context values
1004: hr_utility.trace('.... Writing Org Entry Detail Context');
1005:
1006: pay_mag_tape.internal_cxt_values(1) := '3';
1007: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1008: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
1009: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1010: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1011:
1004: hr_utility.trace('.... Writing Org Entry Detail Context');
1005:
1006: pay_mag_tape.internal_cxt_values(1) := '3';
1007: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1008: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
1009: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1010: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1011:
1012: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
1005:
1006: pay_mag_tape.internal_cxt_values(1) := '3';
1007: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1008: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
1009: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1010: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1011:
1012: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
1013: -- first parameter is number of parameters
1006: pay_mag_tape.internal_cxt_values(1) := '3';
1007: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1008: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
1009: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1010: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1011:
1012: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
1013: -- first parameter is number of parameters
1014: -- second parameter is formula is
1013: -- first parameter is number of parameters
1014: -- second parameter is formula is
1015: hr_utility.trace('.... Writing Org Entry Detail Parameters');
1016:
1017: pay_mag_tape.internal_prm_values(1) := '10';
1018: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
1019:
1020: -- Parameters 3-6 are transferred from previous formula
1021: -- 3 - TRANSFER_THIRD_PARTY
1014: -- second parameter is formula is
1015: hr_utility.trace('.... Writing Org Entry Detail Parameters');
1016:
1017: pay_mag_tape.internal_prm_values(1) := '10';
1018: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
1019:
1020: -- Parameters 3-6 are transferred from previous formula
1021: -- 3 - TRANSFER_THIRD_PARTY
1022: -- 4 - TRANSFER_ENTRY_COUNT
1022: -- 4 - TRANSFER_ENTRY_COUNT
1023: -- 5 - TRANSFER_ENTRY_HASH
1024: -- 6 - TRANSFER_CREDIT_AMOUNT
1025:
1026: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
1027: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
1028:
1029: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
1030:
1023: -- 5 - TRANSFER_ENTRY_HASH
1024: -- 6 - TRANSFER_CREDIT_AMOUNT
1025:
1026: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
1027: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
1028:
1029: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
1030:
1031: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
1027: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
1028:
1029: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
1030:
1031: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
1032: pay_mag_tape.internal_prm_values(10) := g_test_file;
1033:
1034:
1035: -- Bug 3331019
1028:
1029: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
1030:
1031: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
1032: pay_mag_tape.internal_prm_values(10) := g_test_file;
1033:
1034:
1035: -- Bug 3331019
1036: if (nvl(hr_general2.get_oracle_db_version, 0) < 10.0) then
1069: -- First context value is number of context values
1070:
1071: hr_utility.trace('.... Writing Batch Control Context');
1072:
1073: pay_mag_tape.internal_cxt_values(1) := '4';
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1070:
1071: hr_utility.trace('.... Writing Batch Control Context');
1072:
1073: pay_mag_tape.internal_cxt_values(1) := '4';
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1071: hr_utility.trace('.... Writing Batch Control Context');
1072:
1073: pay_mag_tape.internal_cxt_values(1) := '4';
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1079: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
1072:
1073: pay_mag_tape.internal_cxt_values(1) := '4';
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1079: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
1080:
1073: pay_mag_tape.internal_cxt_values(1) := '4';
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1079: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
1080:
1081: -- Parameter Setup for NACHA_BATCH_CONTROL
1074: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1079: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
1080:
1081: -- Parameter Setup for NACHA_BATCH_CONTROL
1082: -- First parameter value is number of parameters
1075: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
1076: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1077: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1078: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
1079: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
1080:
1081: -- Parameter Setup for NACHA_BATCH_CONTROL
1082: -- First parameter value is number of parameters
1083:
1082: -- First parameter value is number of parameters
1083:
1084: hr_utility.trace('.... Writing Batch Control Parameters');
1085:
1086: pay_mag_tape.internal_prm_values(1) := '7';
1087: pay_mag_tape.internal_prm_values(2) := g_batch_control;
1088:
1089: -- Parameters 4-7 are transferred from previous formula
1090: -- 3 - TRANSFER_ENTRY_COUNT
1083:
1084: hr_utility.trace('.... Writing Batch Control Parameters');
1085:
1086: pay_mag_tape.internal_prm_values(1) := '7';
1087: pay_mag_tape.internal_prm_values(2) := g_batch_control;
1088:
1089: -- Parameters 4-7 are transferred from previous formula
1090: -- 3 - TRANSFER_ENTRY_COUNT
1091: -- 4 - TRANSFER_ENTRY_HASH
1091: -- 4 - TRANSFER_ENTRY_HASH
1092: -- 5 - TRANSFER_CREDIT_AMOUNT
1093: -- 6 - TRANSFER_THIRD_PARTY
1094:
1095: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
1096: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
1097:
1098: hr_utility.set_location('run_formula.Batch_ctrl',9);
1099:
1092: -- 5 - TRANSFER_CREDIT_AMOUNT
1093: -- 6 - TRANSFER_THIRD_PARTY
1094:
1095: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
1096: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
1097:
1098: hr_utility.set_location('run_formula.Batch_ctrl',9);
1099:
1100: hr_utility.trace('Leaving Batch Control');
1125:
1126: hr_utility.trace('.... Writing File Control Context');
1127:
1128: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
1129: pay_mag_tape.internal_cxt_values(1) := '3';
1130: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1131: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
1132: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1126: hr_utility.trace('.... Writing File Control Context');
1127:
1128: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
1129: pay_mag_tape.internal_cxt_values(1) := '3';
1130: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1131: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
1132: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1134:
1127:
1128: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
1129: pay_mag_tape.internal_cxt_values(1) := '3';
1130: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1131: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
1132: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1134:
1135: hr_utility.trace('.... Writing File Control Parameters');
1128: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
1129: pay_mag_tape.internal_cxt_values(1) := '3';
1130: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1131: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
1132: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1134:
1135: hr_utility.trace('.... Writing File Control Parameters');
1136:
1129: pay_mag_tape.internal_cxt_values(1) := '3';
1130: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
1131: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
1132: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1134:
1135: hr_utility.trace('.... Writing File Control Parameters');
1136:
1137: pay_mag_tape.internal_prm_values(1) := '8';
1133: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
1134:
1135: hr_utility.trace('.... Writing File Control Parameters');
1136:
1137: pay_mag_tape.internal_prm_values(1) := '8';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1134:
1135: hr_utility.trace('.... Writing File Control Parameters');
1136:
1137: pay_mag_tape.internal_prm_values(1) := '8';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1135: hr_utility.trace('.... Writing File Control Parameters');
1136:
1137: pay_mag_tape.internal_prm_values(1) := '8';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1136:
1137: pay_mag_tape.internal_prm_values(1) := '8';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1137: pay_mag_tape.internal_prm_values(1) := '8';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1138: pay_mag_tape.internal_prm_values(2) := g_file_control;
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1139: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1140: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1141: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1142: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1150: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
1143: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1150: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
1151: --
1144: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1150: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
1151: --
1152: hr_utility.set_location('run_formula.File_Control',11);
1145: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1150: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
1151: --
1152: hr_utility.set_location('run_formula.File_Control',11);
1153: hr_utility.trace('Leaving File Control');
1146: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
1147: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
1148: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
1149: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
1150: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
1151: --
1152: hr_utility.set_location('run_formula.File_Control',11);
1153: hr_utility.trace('Leaving File Control');
1154:
1169:
1170: hr_utility.trace('Writing Padding');
1171:
1172: hr_utility.trace('.... Writing Padding Context');
1173: pay_mag_tape.internal_cxt_values(1) := '1';
1174:
1175: hr_utility.trace('.... Writing Padding Parameters');
1176:
1177: pay_mag_tape.internal_prm_values(1) := '3';
1173: pay_mag_tape.internal_cxt_values(1) := '1';
1174:
1175: hr_utility.trace('.... Writing Padding Parameters');
1176:
1177: pay_mag_tape.internal_prm_values(1) := '3';
1178: pay_mag_tape.internal_prm_values(2) := g_padding;
1179: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
1180: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
1181:
1174:
1175: hr_utility.trace('.... Writing Padding Parameters');
1176:
1177: pay_mag_tape.internal_prm_values(1) := '3';
1178: pay_mag_tape.internal_prm_values(2) := g_padding;
1179: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
1180: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
1181:
1182: hr_utility.set_location('run_formula.padding',12);
1175: hr_utility.trace('.... Writing Padding Parameters');
1176:
1177: pay_mag_tape.internal_prm_values(1) := '3';
1178: pay_mag_tape.internal_prm_values(2) := g_padding;
1179: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
1180: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
1181:
1182: hr_utility.set_location('run_formula.padding',12);
1183: IF g_pad_count = 1 THEN
1176:
1177: pay_mag_tape.internal_prm_values(1) := '3';
1178: pay_mag_tape.internal_prm_values(2) := g_padding;
1179: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
1180: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
1181:
1182: hr_utility.set_location('run_formula.padding',12);
1183: IF g_pad_count = 1 THEN
1184: CLOSE csr_nacha_batch;
1194:
1195:
1196: BEGIN
1197: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
1198: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1195:
1196: BEGIN
1197: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
1198: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1203: pay_mag_tape.internal_cxt_values(1) := '1';
1196: BEGIN
1197: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
1198: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1203: pay_mag_tape.internal_cxt_values(1) := '1';
1204: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
1198: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1203: pay_mag_tape.internal_cxt_values(1) := '1';
1204: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
1205:
1206: hr_utility.set_location ('run_formula loop',1);
1199: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
1200: pay_mag_tape.internal_prm_values(1) := '2';
1201:
1202: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1203: pay_mag_tape.internal_cxt_values(1) := '1';
1204: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
1205:
1206: hr_utility.set_location ('run_formula loop',1);
1207:
1223: /* main */
1224:
1225: hr_utility.set_location('run_formula.Init',5);
1226: g_payroll_action_id := fnd_number.canonical_to_number(
1227: pay_mag_tape.internal_prm_values(3));
1228:
1229: /* Select all the relevent information using payroll action id */
1230: select ppa.business_group_id,
1231: ppa.effective_date,