[Home] [Help]
365: RETURN Number IS
366: param_value number;
367: BEGIN
368: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
369: IF pay_mag_tape.internal_prm_names(3) = p_param_name
370: THEN
371: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
372: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
373: THEN
367: BEGIN
368: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
369: IF pay_mag_tape.internal_prm_names(3) = p_param_name
370: THEN
371: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
372: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
373: THEN
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
368: hr_utility.set_location('pay_us_nacha_tape.get_effective_date',20);
369: IF pay_mag_tape.internal_prm_names(3) = p_param_name
370: THEN
371: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
372: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
373: THEN
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
376: THEN
370: THEN
371: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
372: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
373: THEN
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
376: THEN
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
371: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(3));
372: ELSIF pay_mag_tape.internal_prm_names(4) = p_param_name
373: THEN
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
376: THEN
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
379: THEN
373: THEN
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
376: THEN
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
379: THEN
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
374: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(4));
375: ELSIF pay_mag_tape.internal_prm_names(5) = p_param_name
376: THEN
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
379: THEN
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
382: THEN
376: THEN
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
379: THEN
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
382: THEN
383: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
384: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
377: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(5));
378: ELSIF pay_mag_tape.internal_prm_names(6) = p_param_name
379: THEN
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
382: THEN
383: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
384: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
385: THEN
379: THEN
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
382: THEN
383: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
384: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
385: THEN
386: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
387: END IF;
380: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(6));
381: ELSIF pay_mag_tape.internal_prm_names(7) = p_param_name
382: THEN
383: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
384: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
385: THEN
386: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
387: END IF;
388: RETURN param_value;
382: THEN
383: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(7));
384: ELSIF pay_mag_tape.internal_prm_names(8) = p_param_name
385: THEN
386: param_value := fnd_number.canonical_to_number(pay_mag_tape.internal_prm_values(8));
387: END IF;
388: RETURN param_value;
389: END get_transfer_param;
390: --
405:
406: hr_utility.trace('Writing File Header');
407: hr_utility.trace('.... Writing File Header Context');
408:
409: pay_mag_tape.internal_cxt_values(1) := '3';
410: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
411: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
412: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
406: hr_utility.trace('Writing File Header');
407: hr_utility.trace('.... Writing File Header Context');
408:
409: pay_mag_tape.internal_cxt_values(1) := '3';
410: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
411: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
412: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
414: --
407: hr_utility.trace('.... Writing File Header Context');
408:
409: pay_mag_tape.internal_cxt_values(1) := '3';
410: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
411: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
412: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
414: --
415: hr_utility.trace('.... Writing File Header Parameters');
408:
409: pay_mag_tape.internal_cxt_values(1) := '3';
410: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
411: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
412: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
414: --
415: hr_utility.trace('.... Writing File Header Parameters');
416:
409: pay_mag_tape.internal_cxt_values(1) := '3';
410: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
411: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
412: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
414: --
415: hr_utility.trace('.... Writing File Header Parameters');
416:
417: pay_mag_tape.internal_prm_values(1) := '6';
413: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
414: --
415: hr_utility.trace('.... Writing File Header Parameters');
416:
417: pay_mag_tape.internal_prm_values(1) := '6';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
414: --
415: hr_utility.trace('.... Writing File Header Parameters');
416:
417: pay_mag_tape.internal_prm_values(1) := '6';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
415: hr_utility.trace('.... Writing File Header Parameters');
416:
417: pay_mag_tape.internal_prm_values(1) := '6';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
416:
417: pay_mag_tape.internal_prm_values(1) := '6';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
417: pay_mag_tape.internal_prm_values(1) := '6';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
418: pay_mag_tape.internal_prm_values(2) := g_file_header;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
426: pay_mag_tape.internal_prm_values(6) := g_time;
419: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_THIRD_PARTY';
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
426: pay_mag_tape.internal_prm_values(6) := g_time;
427:
420: pay_mag_tape.internal_prm_values(3) := g_csr_org_pay_third_party;
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
426: pay_mag_tape.internal_prm_values(6) := g_time;
427:
428: hr_utility.trace('Leaving File Header');
421: pay_mag_tape.internal_prm_names(4) := 'FILE_ID_MODIFIER';
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
426: pay_mag_tape.internal_prm_values(6) := g_time;
427:
428: hr_utility.trace('Leaving File Header');
429:
422: pay_mag_tape.internal_prm_values(4) := g_file_id_modifier;
423: pay_mag_tape.internal_prm_names(5) := 'CREATION_DATE';
424: pay_mag_tape.internal_prm_values(5) := g_date;
425: pay_mag_tape.internal_prm_names(6) := 'CREATION_TIME';
426: pay_mag_tape.internal_prm_values(6) := g_time;
427:
428: hr_utility.trace('Leaving File Header');
429:
430: hr_utility.set_location('run_formula.File_head',6);
467: -- Context for NACHA_BATCH_HEADER
468: -- first context is number of contexts
469: hr_utility.trace('.... Writing Batch Header Context');
470:
471: pay_mag_tape.internal_cxt_values(1) := '4';
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
468: -- first context is number of contexts
469: hr_utility.trace('.... Writing Batch Header Context');
470:
471: pay_mag_tape.internal_cxt_values(1) := '4';
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
469: hr_utility.trace('.... Writing Batch Header Context');
470:
471: pay_mag_tape.internal_cxt_values(1) := '4';
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
477: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
470:
471: pay_mag_tape.internal_cxt_values(1) := '4';
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
477: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
478:
471: pay_mag_tape.internal_cxt_values(1) := '4';
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
477: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
478:
479: -- Parameters for NACHA_BATCH_HEADER
472: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
477: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
478:
479: -- Parameters for NACHA_BATCH_HEADER
480: -- first parameter is number of parameters
473: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
474: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
475: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
476: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
477: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
478:
479: -- Parameters for NACHA_BATCH_HEADER
480: -- first parameter is number of parameters
481: -- second parameter is formula is
480: -- first parameter is number of parameters
481: -- second parameter is formula is
482: hr_utility.trace('.... Writing Batch Header Parameters');
483:
484: pay_mag_tape.internal_prm_values(1) := '8';
485: pay_mag_tape.internal_prm_values(2) := g_batch_header;
486:
487: -- 3 TRANSFER_THIRD_PARTY
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
481: -- second parameter is formula is
482: hr_utility.trace('.... Writing Batch Header Parameters');
483:
484: pay_mag_tape.internal_prm_values(1) := '8';
485: pay_mag_tape.internal_prm_values(2) := g_batch_header;
486:
487: -- 3 TRANSFER_THIRD_PARTY
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
484: pay_mag_tape.internal_prm_values(1) := '8';
485: pay_mag_tape.internal_prm_values(2) := g_batch_header;
486:
487: -- 3 TRANSFER_THIRD_PARTY
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
485: pay_mag_tape.internal_prm_values(2) := g_batch_header;
486:
487: -- 3 TRANSFER_THIRD_PARTY
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
487: -- 3 TRANSFER_THIRD_PARTY
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
488: -- pay_mag_tape.internal_prm_names(8) := 'TRANSFER_THIRD_PARTY';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
489: -- pay_mag_tape.internal_prm_values(8) := g_csr_org_pay_third_party;
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
490:
491: pay_mag_tape.internal_prm_names(5) := 'COMPANY_DESCRIPTIVE_DATE';
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
498:
492: pay_mag_tape.internal_prm_values(5) := g_descriptive_date;
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
498:
499: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
500: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
493: pay_mag_tape.internal_prm_names(6) := 'EFFECTIVE_ENTRY_DATE';
494: pay_mag_tape.internal_prm_values(6) := nvl(g_direct_dep_date,
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
498:
499: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
500: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
501:
495: TO_CHAR(g_effective_date,'YYMMDD'));
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
498:
499: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
500: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
501:
502: -- the format type depends on whether the opm is third party or not
503: if g_csr_org_pay_third_party = 'Y' then
496: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
497: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
498:
499: pay_mag_tape.internal_prm_names(4) := 'COMPANY_ENTRY_DESCRIPTION';
500: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
501:
502: -- the format type depends on whether the opm is third party or not
503: if g_csr_org_pay_third_party = 'Y' then
504: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
500: pay_mag_tape.internal_prm_names(8) := 'FORMAT_TYPE';
501:
502: -- the format type depends on whether the opm is third party or not
503: if g_csr_org_pay_third_party = 'Y' then
504: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
505: pay_mag_tape.internal_prm_values(8) := 'CCD';
506: else
507: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
508: pay_mag_tape.internal_prm_values(8) := 'PPD';
501:
502: -- the format type depends on whether the opm is third party or not
503: if g_csr_org_pay_third_party = 'Y' then
504: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
505: pay_mag_tape.internal_prm_values(8) := 'CCD';
506: else
507: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
508: pay_mag_tape.internal_prm_values(8) := 'PPD';
509: end if;
503: if g_csr_org_pay_third_party = 'Y' then
504: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
505: pay_mag_tape.internal_prm_values(8) := 'CCD';
506: else
507: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
508: pay_mag_tape.internal_prm_values(8) := 'PPD';
509: end if;
510:
511:
504: pay_mag_tape.internal_prm_values(4) := 'CHILD SUPP';
505: pay_mag_tape.internal_prm_values(8) := 'CCD';
506: else
507: pay_mag_tape.internal_prm_values(4) := g_company_entry_desc;
508: pay_mag_tape.internal_prm_values(8) := 'PPD';
509: end if;
510:
511:
512: hr_utility.trace('Leaving Batch Header');
533: g_count := g_count + 1;
534:
535: -- Context Setup for NACHA_ENTRY_DETAIL
536: -- First context value is number of contexts
537: pay_mag_tape.internal_cxt_values(1) := '7';
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
534:
535: -- Context Setup for NACHA_ENTRY_DETAIL
536: -- First context value is number of contexts
537: pay_mag_tape.internal_cxt_values(1) := '7';
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
535: -- Context Setup for NACHA_ENTRY_DETAIL
536: -- First context value is number of contexts
537: pay_mag_tape.internal_cxt_values(1) := '7';
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
536: -- First context value is number of contexts
537: pay_mag_tape.internal_cxt_values(1) := '7';
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
537: pay_mag_tape.internal_cxt_values(1) := '7';
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
538: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
539: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
540: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
541: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
549: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
542: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
549: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
550:
543: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
549: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
550:
551: -- Parameter Setup for NACHA_ENTRY_DETAIL
544: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
549: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
550:
551: -- Parameter Setup for NACHA_ENTRY_DETAIL
552: -- First parameter value is number of parameters
545: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
546: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
547: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
548: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
549: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
550:
551: -- Parameter Setup for NACHA_ENTRY_DETAIL
552: -- First parameter value is number of parameters
553: -- second parameter value is formula id
553: -- second parameter value is formula id
554:
555: hr_utility.trace('.... Writing Entry Detail Parameters');
556:
557: pay_mag_tape.internal_prm_values(1) := '11';
558: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
559:
560: -- Parameters 3-6 are transferred from previous formula
561: -- 3 - TRANSFER_THIRD_PARTY
554:
555: hr_utility.trace('.... Writing Entry Detail Parameters');
556:
557: pay_mag_tape.internal_prm_values(1) := '11';
558: pay_mag_tape.internal_prm_values(2) := g_entry_detail;
559:
560: -- Parameters 3-6 are transferred from previous formula
561: -- 3 - TRANSFER_THIRD_PARTY
562: -- 4 - TRANSFER_ENTRY_COUNT
561: -- 3 - TRANSFER_THIRD_PARTY
562: -- 4 - TRANSFER_ENTRY_COUNT
563: -- 5 - TRANSFER_ENTRY_HASH
564: -- 6 - TRANSFER_CREDIT_AMOUNT
565: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
566: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
567:
568: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
569: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
562: -- 4 - TRANSFER_ENTRY_COUNT
563: -- 5 - TRANSFER_ENTRY_HASH
564: -- 6 - TRANSFER_CREDIT_AMOUNT
565: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
566: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
567:
568: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
569: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
570:
564: -- 6 - TRANSFER_CREDIT_AMOUNT
565: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
566: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
567:
568: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
569: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
570:
571: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
572:
565: pay_mag_tape.internal_prm_names(7) := 'TRANSFER_PAY_VALUE';
566: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(v_amount);
567:
568: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PREPAYMENT_ID';
569: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
570:
571: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
572:
573: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
569: pay_mag_tape.internal_prm_values(8) := TO_CHAR(v_prepayment_id);
570:
571: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
572:
573: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
574: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
575:
576: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
577: pay_mag_tape.internal_prm_values(11) := g_test_file;
570:
571: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
572:
573: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
574: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
575:
576: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
577: pay_mag_tape.internal_prm_values(11) := g_test_file;
578:
572:
573: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
574: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
575:
576: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
577: pay_mag_tape.internal_prm_values(11) := g_test_file;
578:
579: hr_utility.set_location('run_formula.Assignment',7);
580: IF g_temp_count = 0 THEN
573: pay_mag_tape.internal_prm_names(10) := 'TRACE_SEQUENCE_NUMBER';
574: pay_mag_tape.internal_prm_values(10) := TO_CHAR(g_count);
575:
576: pay_mag_tape.internal_prm_names(11) := 'TEST_FILE';
577: pay_mag_tape.internal_prm_values(11) := g_test_file;
578:
579: hr_utility.set_location('run_formula.Assignment',7);
580: IF g_temp_count = 0 THEN
581: -- If this is the first entry detail of a batch, reset these
579: hr_utility.set_location('run_formula.Assignment',7);
580: IF g_temp_count = 0 THEN
581: -- If this is the first entry detail of a batch, reset these
582: -- parameters.
583: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
580: IF g_temp_count = 0 THEN
581: -- If this is the first entry detail of a batch, reset these
582: -- parameters.
583: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
581: -- If this is the first entry detail of a batch, reset these
582: -- parameters.
583: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
582: -- parameters.
583: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
590: pay_mag_tape.internal_prm_values(9) := '0';
583: pay_mag_tape.internal_prm_names(4) := 'TRANSFER_ENTRY_COUNT';
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
590: pay_mag_tape.internal_prm_values(9) := '0';
591:
584: pay_mag_tape.internal_prm_values(4) := '0';
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
590: pay_mag_tape.internal_prm_values(9) := '0';
591:
592: g_temp_count := 1;
585: pay_mag_tape.internal_prm_names(5) := 'TRANSFER_ENTRY_HASH';
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
590: pay_mag_tape.internal_prm_values(9) := '0';
591:
592: g_temp_count := 1;
593: hr_utility.set_location('run_formula.Assignment',8);
586: pay_mag_tape.internal_prm_values(5) := '0';
587: pay_mag_tape.internal_prm_names(6) := 'TRANSFER_CREDIT_AMOUNT';
588: pay_mag_tape.internal_prm_values(6) := '0';
589: pay_mag_tape.internal_prm_names(9) := 'TRANSFER_ORG_PAY_TOT';
590: pay_mag_tape.internal_prm_values(9) := '0';
591:
592: g_temp_count := 1;
593: hr_utility.set_location('run_formula.Assignment',8);
594: END IF;
649:
650: -- Context Setup for NACHA_ADDENDA
651: -- First context value is number of Context Values
652:
653: pay_mag_tape.internal_cxt_values(1) := '7';
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
650: -- Context Setup for NACHA_ADDENDA
651: -- First context value is number of Context Values
652:
653: pay_mag_tape.internal_cxt_values(1) := '7';
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
651: -- First context value is number of Context Values
652:
653: pay_mag_tape.internal_cxt_values(1) := '7';
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
652:
653: pay_mag_tape.internal_cxt_values(1) := '7';
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
653: pay_mag_tape.internal_cxt_values(1) := '7';
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
654: pay_mag_tape.internal_cxt_names(2) := 'ASSIGNMENT_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
655: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_assignment_id);
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
656: pay_mag_tape.internal_cxt_names(3) := 'ASSIGNMENT_ACTION_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
657: pay_mag_tape.internal_cxt_values(3) := TO_CHAR(g_assignment_action_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
665: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
658: pay_mag_tape.internal_cxt_names(4) := 'DATE_EARNED';
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
665: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
666:
659: pay_mag_tape.internal_cxt_values(4) := fnd_date.date_to_canonical(g_effective_date);
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
665: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
666:
667: hr_utility.trace('.... Writing Addenda Parameters');
660: pay_mag_tape.internal_cxt_names(5) := 'PER_PAY_METHOD_ID';
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
665: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
666:
667: hr_utility.trace('.... Writing Addenda Parameters');
668:
661: pay_mag_tape.internal_cxt_values(5) := to_char(g_personal_payment_method_id);
662: pay_mag_tape.internal_cxt_names(6) := 'ORG_PAY_METHOD_ID';
663: pay_mag_tape.internal_cxt_values(6) := g_org_payment_method_id;
664: pay_mag_tape.internal_cxt_names(7) := 'TAX_UNIT_ID';
665: pay_mag_tape.internal_cxt_values(7) := TO_CHAR(g_legal_company_id);
666:
667: hr_utility.trace('.... Writing Addenda Parameters');
668:
669: -- Parameter Setup for NACHA_ADDENDA
667: hr_utility.trace('.... Writing Addenda Parameters');
668:
669: -- Parameter Setup for NACHA_ADDENDA
670: -- First Parameter Value is number of parameters
671: pay_mag_tape.internal_prm_values(1) := '14';
672: -- second is formula id
673: pay_mag_tape.internal_prm_values(2) := g_addenda;
674:
675: -- Parameters 3-6 are transferred from previous formula
669: -- Parameter Setup for NACHA_ADDENDA
670: -- First Parameter Value is number of parameters
671: pay_mag_tape.internal_prm_values(1) := '14';
672: -- second is formula id
673: pay_mag_tape.internal_prm_values(2) := g_addenda;
674:
675: -- Parameters 3-6 are transferred from previous formula
676: -- 3 - TRANSFER_THIRD_PARTY
677: -- 4 - TRANSFER_ENTRY_COUNT
677: -- 4 - TRANSFER_ENTRY_COUNT
678: -- 5 - TRANSFER_ENTRY_HASH
679: -- 6 - TRANSFER_CREDIT_AMOUNT
680:
681: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
682: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
683:
684: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
685:
678: -- 5 - TRANSFER_ENTRY_HASH
679: -- 6 - TRANSFER_CREDIT_AMOUNT
680:
681: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
682: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
683:
684: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
685:
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
682: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
683:
684: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
685:
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
683:
684: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
685:
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
684: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
685:
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
685:
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
686: pay_mag_tape.internal_prm_names(10) := 'FIPS_CODE';
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
687: pay_mag_tape.internal_prm_values(10) := v_fips_code;
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
695: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
688: pay_mag_tape.internal_prm_names(11) := 'MEDICAL_INDICATOR';
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
695: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
696: pay_mag_tape.internal_prm_values(14) := g_test_file;
689: pay_mag_tape.internal_prm_values(11) := v_med_ind;
690: pay_mag_tape.internal_prm_names(12) := 'REFERENCE_NUMBER';
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
695: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
696: pay_mag_tape.internal_prm_values(14) := g_test_file;
697:
691: pay_mag_tape.internal_prm_values(12) := v_attach_number;
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
695: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
696: pay_mag_tape.internal_prm_values(14) := g_test_file;
697:
698:
699: -- we do not change the count till after so we can have the same trace number
692: pay_mag_tape.internal_prm_names(13) := 'PAY_DATE';
693: pay_mag_tape.internal_prm_values(13) := to_char(v_payment_date,'YYMMDD');
694:
695: pay_mag_tape.internal_prm_names(14) := 'TEST_FILE';
696: pay_mag_tape.internal_prm_values(14) := g_test_file;
697:
698:
699: -- we do not change the count till after so we can have the same trace number
700: -- in both entry detail and addenda rec
735: -- Context Setup for NACHA_ORG_PAY_ENTRY_DETAIL
736: -- first context is number of context values
737: hr_utility.trace('.... Writing Org Entry Detail Context');
738:
739: pay_mag_tape.internal_cxt_values(1) := '3';
740: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
741: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
742: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
743: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
736: -- first context is number of context values
737: hr_utility.trace('.... Writing Org Entry Detail Context');
738:
739: pay_mag_tape.internal_cxt_values(1) := '3';
740: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
741: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
742: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
743: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
744:
737: hr_utility.trace('.... Writing Org Entry Detail Context');
738:
739: pay_mag_tape.internal_cxt_values(1) := '3';
740: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
741: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
742: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
743: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
744:
745: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
738:
739: pay_mag_tape.internal_cxt_values(1) := '3';
740: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
741: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
742: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
743: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
744:
745: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
746: -- first parameter is number of parameters
739: pay_mag_tape.internal_cxt_values(1) := '3';
740: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
741: pay_mag_tape.internal_cxt_values(2) := g_csr_org_pay_meth_id;
742: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
743: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
744:
745: -- Parameter Setup for NACHA_ORG_PAY_ENTRY_DETAIL
746: -- first parameter is number of parameters
747: -- second parameter is formula is
746: -- first parameter is number of parameters
747: -- second parameter is formula is
748: hr_utility.trace('.... Writing Org Entry Detail Parameters');
749:
750: pay_mag_tape.internal_prm_values(1) := '10';
751: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
752:
753: -- Parameters 3-6 are transferred from previous formula
754: -- 3 - TRANSFER_THIRD_PARTY
747: -- second parameter is formula is
748: hr_utility.trace('.... Writing Org Entry Detail Parameters');
749:
750: pay_mag_tape.internal_prm_values(1) := '10';
751: pay_mag_tape.internal_prm_values(2) := g_org_pay_entry_detail;
752:
753: -- Parameters 3-6 are transferred from previous formula
754: -- 3 - TRANSFER_THIRD_PARTY
755: -- 4 - TRANSFER_ENTRY_COUNT
755: -- 4 - TRANSFER_ENTRY_COUNT
756: -- 5 - TRANSFER_ENTRY_HASH
757: -- 6 - TRANSFER_CREDIT_AMOUNT
758:
759: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
760: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
761:
762: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
763:
756: -- 5 - TRANSFER_ENTRY_HASH
757: -- 6 - TRANSFER_CREDIT_AMOUNT
758:
759: pay_mag_tape.internal_prm_names(8) := 'TRACE_SEQUENCE_NUMBER';
760: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
761:
762: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
763:
764: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
760: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_count);
761:
762: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
763:
764: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
765: pay_mag_tape.internal_prm_values(10) := g_test_file;
766:
767:
768: -- Bug 3331019
761:
762: -- Parameter 9 is transferred from previous formula - TRANSFER_ORG_PAY_TOT
763:
764: pay_mag_tape.internal_prm_names(10) := 'TEST_FILE';
765: pay_mag_tape.internal_prm_values(10) := g_test_file;
766:
767:
768: -- Bug 3331019
769: if (nvl(hr_general2.get_oracle_db_version, 0) < 10.0) then
802: -- First context value is number of context values
803:
804: hr_utility.trace('.... Writing Batch Control Context');
805:
806: pay_mag_tape.internal_cxt_values(1) := '4';
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
803:
804: hr_utility.trace('.... Writing Batch Control Context');
805:
806: pay_mag_tape.internal_cxt_values(1) := '4';
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
804: hr_utility.trace('.... Writing Batch Control Context');
805:
806: pay_mag_tape.internal_cxt_values(1) := '4';
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
805:
806: pay_mag_tape.internal_cxt_values(1) := '4';
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
813:
806: pay_mag_tape.internal_cxt_values(1) := '4';
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
813:
814: -- Parameter Setup for NACHA_BATCH_CONTROL
807: pay_mag_tape.internal_cxt_names(2) := 'TAX_UNIT_ID';
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
813:
814: -- Parameter Setup for NACHA_BATCH_CONTROL
815: -- First parameter value is number of parameters
808: pay_mag_tape.internal_cxt_values(2) := TO_CHAR(g_legal_company_id);
809: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
810: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
811: pay_mag_tape.internal_cxt_names(4) := 'ORG_PAY_METHOD_ID';
812: pay_mag_tape.internal_cxt_values(4) := g_org_payment_method_id;
813:
814: -- Parameter Setup for NACHA_BATCH_CONTROL
815: -- First parameter value is number of parameters
816:
815: -- First parameter value is number of parameters
816:
817: hr_utility.trace('.... Writing Batch Control Parameters');
818:
819: pay_mag_tape.internal_prm_values(1) := '7';
820: pay_mag_tape.internal_prm_values(2) := g_batch_control;
821:
822: -- Parameters 4-7 are transferred from previous formula
823: -- 3 - TRANSFER_ENTRY_COUNT
816:
817: hr_utility.trace('.... Writing Batch Control Parameters');
818:
819: pay_mag_tape.internal_prm_values(1) := '7';
820: pay_mag_tape.internal_prm_values(2) := g_batch_control;
821:
822: -- Parameters 4-7 are transferred from previous formula
823: -- 3 - TRANSFER_ENTRY_COUNT
824: -- 4 - TRANSFER_ENTRY_HASH
824: -- 4 - TRANSFER_ENTRY_HASH
825: -- 5 - TRANSFER_CREDIT_AMOUNT
826: -- 6 - TRANSFER_THIRD_PARTY
827:
828: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
829: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
830:
831: hr_utility.set_location('run_formula.Batch_ctrl',9);
832:
825: -- 5 - TRANSFER_CREDIT_AMOUNT
826: -- 6 - TRANSFER_THIRD_PARTY
827:
828: pay_mag_tape.internal_prm_names(7) := 'BATCH_NUMBER';
829: pay_mag_tape.internal_prm_values(7) := TO_CHAR(g_batch_number);
830:
831: hr_utility.set_location('run_formula.Batch_ctrl',9);
832:
833: hr_utility.trace('Leaving Batch Control');
858:
859: hr_utility.trace('.... Writing File Control Context');
860:
861: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
862: pay_mag_tape.internal_cxt_values(1) := '3';
863: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
864: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
865: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
859: hr_utility.trace('.... Writing File Control Context');
860:
861: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
862: pay_mag_tape.internal_cxt_values(1) := '3';
863: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
864: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
865: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
867:
860:
861: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
862: pay_mag_tape.internal_cxt_values(1) := '3';
863: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
864: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
865: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
867:
868: hr_utility.trace('.... Writing File Control Parameters');
861: -- dscully - added contexts for NACHA_BALANCED_NACHA_FILE DBI
862: pay_mag_tape.internal_cxt_values(1) := '3';
863: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
864: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
865: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
867:
868: hr_utility.trace('.... Writing File Control Parameters');
869:
862: pay_mag_tape.internal_cxt_values(1) := '3';
863: pay_mag_tape.internal_cxt_names(2) := 'ORG_PAY_METHOD_ID';
864: pay_mag_tape.internal_cxt_values(2) := g_org_payment_method_id;
865: pay_mag_tape.internal_cxt_names(3) := 'DATE_EARNED';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
867:
868: hr_utility.trace('.... Writing File Control Parameters');
869:
870: pay_mag_tape.internal_prm_values(1) := '8';
866: pay_mag_tape.internal_cxt_values(3) := fnd_date.date_to_canonical(g_effective_date);
867:
868: hr_utility.trace('.... Writing File Control Parameters');
869:
870: pay_mag_tape.internal_prm_values(1) := '8';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
867:
868: hr_utility.trace('.... Writing File Control Parameters');
869:
870: pay_mag_tape.internal_prm_values(1) := '8';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
868: hr_utility.trace('.... Writing File Control Parameters');
869:
870: pay_mag_tape.internal_prm_values(1) := '8';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
869:
870: pay_mag_tape.internal_prm_values(1) := '8';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
870: pay_mag_tape.internal_prm_values(1) := '8';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
871: pay_mag_tape.internal_prm_values(2) := g_file_control;
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
872: pay_mag_tape.internal_prm_names(3) := 'BATCH_NUMBER';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
873: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_batch_number);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
874: pay_mag_tape.internal_prm_names(4) := 'BLOCK_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
875: pay_mag_tape.internal_prm_values(4) := TO_CHAR(v_block_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
883: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
876: pay_mag_tape.internal_prm_names(5) := 'FILE_ENTRY_COUNT';
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
883: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
884: --
877: pay_mag_tape.internal_prm_values(5) := TO_CHAR(g_count + g_addenda_count);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
883: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
884: --
885: hr_utility.set_location('run_formula.File_Control',11);
878: pay_mag_tape.internal_prm_names(6) := 'FILE_ENTRY_HASH';
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
883: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
884: --
885: hr_utility.set_location('run_formula.File_Control',11);
886: hr_utility.trace('Leaving File Control');
879: pay_mag_tape.internal_prm_values(6) := TO_CHAR(g_hash);
880: pay_mag_tape.internal_prm_names(7) := 'FILE_CREDIT_AMOUNT';
881: pay_mag_tape.internal_prm_values(7) := fnd_number.number_to_canonical(g_amount);
882: pay_mag_tape.internal_prm_names(8) := 'TRANSFER_PAD_COUNT';
883: pay_mag_tape.internal_prm_values(8) := TO_CHAR(g_pad_count);
884: --
885: hr_utility.set_location('run_formula.File_Control',11);
886: hr_utility.trace('Leaving File Control');
887:
902:
903: hr_utility.trace('Writing Padding');
904:
905: hr_utility.trace('.... Writing Padding Context');
906: pay_mag_tape.internal_cxt_values(1) := '1';
907:
908: hr_utility.trace('.... Writing Padding Parameters');
909:
910: pay_mag_tape.internal_prm_values(1) := '3';
906: pay_mag_tape.internal_cxt_values(1) := '1';
907:
908: hr_utility.trace('.... Writing Padding Parameters');
909:
910: pay_mag_tape.internal_prm_values(1) := '3';
911: pay_mag_tape.internal_prm_values(2) := g_padding;
912: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
913: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
914:
907:
908: hr_utility.trace('.... Writing Padding Parameters');
909:
910: pay_mag_tape.internal_prm_values(1) := '3';
911: pay_mag_tape.internal_prm_values(2) := g_padding;
912: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
913: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
914:
915: hr_utility.set_location('run_formula.padding',12);
908: hr_utility.trace('.... Writing Padding Parameters');
909:
910: pay_mag_tape.internal_prm_values(1) := '3';
911: pay_mag_tape.internal_prm_values(2) := g_padding;
912: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
913: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
914:
915: hr_utility.set_location('run_formula.padding',12);
916: IF g_pad_count = 1 THEN
909:
910: pay_mag_tape.internal_prm_values(1) := '3';
911: pay_mag_tape.internal_prm_values(2) := g_padding;
912: pay_mag_tape.internal_prm_names(3) := 'TRANSFER_PAD_COUNT';
913: pay_mag_tape.internal_prm_values(3) := TO_CHAR(g_pad_count);
914:
915: hr_utility.set_location('run_formula.padding',12);
916: IF g_pad_count = 1 THEN
917: CLOSE csr_nacha_batch;
927:
928:
929: BEGIN
930: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
931: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
932: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
933: pay_mag_tape.internal_prm_values(1) := '2';
934:
935: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
928:
929: BEGIN
930: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
931: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
932: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
933: pay_mag_tape.internal_prm_values(1) := '2';
934:
935: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
936: pay_mag_tape.internal_cxt_values(1) := '1';
929: BEGIN
930: hr_utility.trace('Entering pay_us_nacha_tape.run_formula');
931: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
932: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
933: pay_mag_tape.internal_prm_values(1) := '2';
934:
935: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
936: pay_mag_tape.internal_cxt_values(1) := '1';
937: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
931: pay_mag_tape.internal_prm_names(1) := 'NO_OF_PARAMETERS';
932: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
933: pay_mag_tape.internal_prm_values(1) := '2';
934:
935: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
936: pay_mag_tape.internal_cxt_values(1) := '1';
937: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
938:
939: hr_utility.set_location ('run_formula loop',1);
932: pay_mag_tape.internal_prm_names(2) := 'NEW_FORMULA_ID';
933: pay_mag_tape.internal_prm_values(1) := '2';
934:
935: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
936: pay_mag_tape.internal_cxt_values(1) := '1';
937: hr_utility.set_location('pay_us_nacha_tape.run_formula',1);
938:
939: hr_utility.set_location ('run_formula loop',1);
940:
943: /* main */
944:
945: hr_utility.set_location('run_formula.Init',5);
946: g_payroll_action_id := fnd_number.canonical_to_number(
947: pay_mag_tape.internal_prm_values(3));
948:
949: /* Select all the relevent information using payroll action id */
950: select ppa.business_group_id,
951: ppa.effective_date,