eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.CREATE_GB_RTI_EPS_RECORD_13 dependencies on FND_FILE

Line 106: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name is missing.');

102: --13741983 begin
103: /*
104: if g_employers_name = ' ' or g_employers_name is null then
105: HR_UTILITY.TRACE('Error: The Employer name is missing.');
106: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name is missing.');
107: RAISE MANDATORY_VALUES_MISSING;
108: elsif PAY_GB_RTI.validate_input(g_employers_name,'EMP_NAME') > 0 then
109: HR_UTILITY.TRACE('Error: The Employer name has invalid characters.');
110: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name has invalid characters.');

Line 110: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name has invalid characters.');

106: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name is missing.');
107: RAISE MANDATORY_VALUES_MISSING;
108: elsif PAY_GB_RTI.validate_input(g_employers_name,'EMP_NAME') > 0 then
109: HR_UTILITY.TRACE('Error: The Employer name has invalid characters.');
110: fnd_file.put_line(fnd_file.LOG,'Error: The Employer name has invalid characters.');
111: RAISE MANDATORY_VALUES_MISSING;
112: end if;
113:
114: if g_acc_ref_no = ' ' or g_acc_ref_no is null then

Line 116: fnd_file.put_line(fnd_file.LOG,'Error: The Account Office Reference Number is missing.');

112: end if;
113:
114: if g_acc_ref_no = ' ' or g_acc_ref_no is null then
115: HR_UTILITY.TRACE('Error: The Account Office Reference Number is missing.');
116: fnd_file.put_line(fnd_file.LOG,'Error: The Account Office Reference Number is missing.');
117: RAISE MANDATORY_VALUES_MISSING;
118: elsif (length(g_acc_ref_no) > 13
119: OR REGEXP_INSTR(g_acc_ref_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
120: HR_UTILITY.TRACE('Error: Incorrect format entered for Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.');

Line 121: fnd_file.put_line(fnd_file.LOG,'Error: Incorrect format entered for Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.');

117: RAISE MANDATORY_VALUES_MISSING;
118: elsif (length(g_acc_ref_no) > 13
119: OR REGEXP_INSTR(g_acc_ref_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
120: HR_UTILITY.TRACE('Error: Incorrect format entered for Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.');
121: fnd_file.put_line(fnd_file.LOG,'Error: Incorrect format entered for Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.');
122: RAISE MANDATORY_VALUES_MISSING;
123: end if;
124: --13741983 End
125: */

Line 464: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

460:
461: HR_UTILITY.TRACE(' EPS record insert complete ');
462: --Write Output Information
463: l_msg_output:= ' RTI - Employer Payment Summary - Created ';
464: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
465: L_MSG_OUTPUT:= ' ';
466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
467: l_msg_output:= ' ';
468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

462: --Write Output Information
463: l_msg_output:= ' RTI - Employer Payment Summary - Created ';
464: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
465: L_MSG_OUTPUT:= ' ';
466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
467: l_msg_output:= ' ';
468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
469: L_MSG_OUTPUT:= 'PAYE Reference : '||rpad(P_PAYE_REFERENCE,20,' ') ||' Effective Date: '||FND_DATE.CANONICAL_TO_DATE(P_EFFECTIVE_DT);
470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

464: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
465: L_MSG_OUTPUT:= ' ';
466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
467: l_msg_output:= ' ';
468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
469: L_MSG_OUTPUT:= 'PAYE Reference : '||rpad(P_PAYE_REFERENCE,20,' ') ||' Effective Date: '||FND_DATE.CANONICAL_TO_DATE(P_EFFECTIVE_DT);
470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
471: L_MSG_OUTPUT:= ' ';
472: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
467: l_msg_output:= ' ';
468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
469: L_MSG_OUTPUT:= 'PAYE Reference : '||rpad(P_PAYE_REFERENCE,20,' ') ||' Effective Date: '||FND_DATE.CANONICAL_TO_DATE(P_EFFECTIVE_DT);
470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
471: L_MSG_OUTPUT:= ' ';
472: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
473: --Start of 13726549
474: IF G_SMP_RECOVERY = 'Full' THEN

Line 472: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
469: L_MSG_OUTPUT:= 'PAYE Reference : '||rpad(P_PAYE_REFERENCE,20,' ') ||' Effective Date: '||FND_DATE.CANONICAL_TO_DATE(P_EFFECTIVE_DT);
470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
471: L_MSG_OUTPUT:= ' ';
472: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
473: --Start of 13726549
474: IF G_SMP_RECOVERY = 'Full' THEN
475: l_msg_output:= 'SMP/SAP/OSPP/ASPP Recovery Type: '||rpad(g_smp_recovery,20,' ')||' Recovery Percentage Used: '||(100);
476: ELSIF G_SMP_RECOVERY = 'Partial' THEN

Line 482: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

478: ELSE
479: l_msg_output:= 'SMP/SAP/OSPP/ASPP Recovery Type: '||rpad(g_smp_recovery,20,' ')||' Recovery Percentage Used: '||(0);
480: END IF;
481: --End of 13726549
482: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
483: IF G_SSP_RECOVERY = 'Full' THEN
484: L_MSG_OUTPUT:= 'SSP Recovery Type : '||rpad(G_SSP_RECOVERY,20,' ')||' Recovery Percentage Used: '||'100';
485: ELSE
486: L_MSG_OUTPUT:= 'SSP Recovery Type : '||rpad(G_SSP_RECOVERY,20,' ')||' Recovery Percentage Used: '||'0';

Line 489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

485: ELSE
486: L_MSG_OUTPUT:= 'SSP Recovery Type : '||rpad(G_SSP_RECOVERY,20,' ')||' Recovery Percentage Used: '||'0';
487: END IF;
488:
489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
490: L_MSG_OUTPUT:= ' ';
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
492: L_MSG_OUTPUT:= 'SMP Amount Recovered : '||rpad(to_char(L_SMP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SMP : '||to_char(L_NIC_SMP/100,'FM9999999990D00');
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

487: END IF;
488:
489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
490: L_MSG_OUTPUT:= ' ';
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
492: L_MSG_OUTPUT:= 'SMP Amount Recovered : '||rpad(to_char(L_SMP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SMP : '||to_char(L_NIC_SMP/100,'FM9999999990D00');
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
494: L_MSG_OUTPUT:= 'SAP Amount Recovered : '||rpad(to_char(L_SAP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SAP : '||to_char(L_NIC_SAP/100,'FM9999999990D00');
495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
490: L_MSG_OUTPUT:= ' ';
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
492: L_MSG_OUTPUT:= 'SMP Amount Recovered : '||rpad(to_char(L_SMP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SMP : '||to_char(L_NIC_SMP/100,'FM9999999990D00');
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
494: L_MSG_OUTPUT:= 'SAP Amount Recovered : '||rpad(to_char(L_SAP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SAP : '||to_char(L_NIC_SAP/100,'FM9999999990D00');
495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
496: L_MSG_OUTPUT:= 'OSPP Amount Recovered : '||rpad(to_char(L_SPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on OSPP : '||to_char(L_NIC_SPP/100,'FM9999999990D00');
497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
492: L_MSG_OUTPUT:= 'SMP Amount Recovered : '||rpad(to_char(L_SMP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SMP : '||to_char(L_NIC_SMP/100,'FM9999999990D00');
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
494: L_MSG_OUTPUT:= 'SAP Amount Recovered : '||rpad(to_char(L_SAP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SAP : '||to_char(L_NIC_SAP/100,'FM9999999990D00');
495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
496: L_MSG_OUTPUT:= 'OSPP Amount Recovered : '||rpad(to_char(L_SPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on OSPP : '||to_char(L_NIC_SPP/100,'FM9999999990D00');
497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
498: L_MSG_OUTPUT:= 'ASPP Amount Recovered : '||rpad(to_char(L_ASPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on ASPP : '||to_char(L_NIC_ASPP/100,'FM9999999990D00');
499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
494: L_MSG_OUTPUT:= 'SAP Amount Recovered : '||rpad(to_char(L_SAP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SAP : '||to_char(L_NIC_SAP/100,'FM9999999990D00');
495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
496: L_MSG_OUTPUT:= 'OSPP Amount Recovered : '||rpad(to_char(L_SPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on OSPP : '||to_char(L_NIC_SPP/100,'FM9999999990D00');
497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
498: L_MSG_OUTPUT:= 'ASPP Amount Recovered : '||rpad(to_char(L_ASPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on ASPP : '||to_char(L_NIC_ASPP/100,'FM9999999990D00');
499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
500: L_MSG_OUTPUT:= 'SSP Amount Recovered : '||rpad(to_char(L_SSP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SSP : '||to_char(L_NIC_SSP/100,'FM9999999990D00');
501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

Line 499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

495: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
496: L_MSG_OUTPUT:= 'OSPP Amount Recovered : '||rpad(to_char(L_SPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on OSPP : '||to_char(L_NIC_SPP/100,'FM9999999990D00');
497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
498: L_MSG_OUTPUT:= 'ASPP Amount Recovered : '||rpad(to_char(L_ASPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on ASPP : '||to_char(L_NIC_ASPP/100,'FM9999999990D00');
499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
500: L_MSG_OUTPUT:= 'SSP Amount Recovered : '||rpad(to_char(L_SSP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SSP : '||to_char(L_NIC_SSP/100,'FM9999999990D00');
501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
502: HR_UTILITY.TRACE('Create_EPS_RECORD completed '||to_char(sysdate,'dd-mon-yyyy hh24:mm:ss'));
503: END IF;

Line 501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);

497: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
498: L_MSG_OUTPUT:= 'ASPP Amount Recovered : '||rpad(to_char(L_ASPP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on ASPP : '||to_char(L_NIC_ASPP/100,'FM9999999990D00');
499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
500: L_MSG_OUTPUT:= 'SSP Amount Recovered : '||rpad(to_char(L_SSP/100,'FM9999999990D00'),30,' ')||' NIC Compensation on SSP : '||to_char(L_NIC_SSP/100,'FM9999999990D00');
501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, L_MSG_OUTPUT);
502: HR_UTILITY.TRACE('Create_EPS_RECORD completed '||to_char(sysdate,'dd-mon-yyyy hh24:mm:ss'));
503: END IF;
504: EXCEPTION
505: --13741983 begin

Line 513: fnd_file.put_line(fnd_file.log,l_msg_output);

509: --13741983 end
510: WHEN Global_missing THEN
511: hr_utility.trace('Error: The globals required for processing EPS are not present. Please check ');
512: l_msg_output := 'Error: The globals required for processing EPS are not present. Please check ';
513: fnd_file.put_line(fnd_file.log,l_msg_output);
514: raise_application_error(-20001,' Globals missing');
515: WHEN EPS_ALREADY_PRESENT THEN
516: l_msg_output:= 'EPS record already created for the given parameters. Please check ';
517: hr_utility.trace('EPS record already created for the given parameters. Please check ');

Line 518: fnd_file.put_line(fnd_file.log,l_msg_output);

514: raise_application_error(-20001,' Globals missing');
515: WHEN EPS_ALREADY_PRESENT THEN
516: l_msg_output:= 'EPS record already created for the given parameters. Please check ';
517: hr_utility.trace('EPS record already created for the given parameters. Please check ');
518: fnd_file.put_line(fnd_file.log,l_msg_output);
519: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,L_MSG_OUTPUT);
520: raise_application_error(-20001,' EPS record already created for the given parameters. Please check');
521: WHEN OTHERS THEN
522: fnd_file.put_line(fnd_file.log, SUBSTR(sqlerrm(SQLCODE),1,80));

Line 519: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,L_MSG_OUTPUT);

515: WHEN EPS_ALREADY_PRESENT THEN
516: l_msg_output:= 'EPS record already created for the given parameters. Please check ';
517: hr_utility.trace('EPS record already created for the given parameters. Please check ');
518: fnd_file.put_line(fnd_file.log,l_msg_output);
519: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,L_MSG_OUTPUT);
520: raise_application_error(-20001,' EPS record already created for the given parameters. Please check');
521: WHEN OTHERS THEN
522: fnd_file.put_line(fnd_file.log, SUBSTR(sqlerrm(SQLCODE),1,80));
523: RAISE_APPLICATION_ERROR(-20001,' Error'||SQLERRM(SQLCODE));

Line 522: fnd_file.put_line(fnd_file.log, SUBSTR(sqlerrm(SQLCODE),1,80));

518: fnd_file.put_line(fnd_file.log,l_msg_output);
519: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,L_MSG_OUTPUT);
520: raise_application_error(-20001,' EPS record already created for the given parameters. Please check');
521: WHEN OTHERS THEN
522: fnd_file.put_line(fnd_file.log, SUBSTR(sqlerrm(SQLCODE),1,80));
523: RAISE_APPLICATION_ERROR(-20001,' Error'||SQLERRM(SQLCODE));
524: rollback;
525: END Create_EPS_RECORD;
526: /* This function is called from formula function: calc

Line 538: fnd_file.put_line(fnd_file.log, 'Entered calc_rec_nic_amounts');

534: p_nic_amount out NOCOPY number
535: ) return number
536: is
537: begin
538: fnd_file.put_line(fnd_file.log, 'Entered calc_rec_nic_amounts');
539: fnd_file.put_line(fnd_file.log, 'p_asg_act_id: ' || p_asg_act_id );
540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);
541: p_rec_amount := p_amount * 0.92;
542: p_nic_amount := p_amount * 1;

Line 539: fnd_file.put_line(fnd_file.log, 'p_asg_act_id: ' || p_asg_act_id );

535: ) return number
536: is
537: begin
538: fnd_file.put_line(fnd_file.log, 'Entered calc_rec_nic_amounts');
539: fnd_file.put_line(fnd_file.log, 'p_asg_act_id: ' || p_asg_act_id );
540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);
541: p_rec_amount := p_amount * 0.92;
542: p_nic_amount := p_amount * 1;
543: fnd_file.put_line(fnd_file.log, 'p_rec_amount: ' || p_rec_amount );

Line 540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);

536: is
537: begin
538: fnd_file.put_line(fnd_file.log, 'Entered calc_rec_nic_amounts');
539: fnd_file.put_line(fnd_file.log, 'p_asg_act_id: ' || p_asg_act_id );
540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);
541: p_rec_amount := p_amount * 0.92;
542: p_nic_amount := p_amount * 1;
543: fnd_file.put_line(fnd_file.log, 'p_rec_amount: ' || p_rec_amount );
544: fnd_file.put_line(fnd_file.log, 'p_nic_amount: ' || p_nic_amount);

Line 543: fnd_file.put_line(fnd_file.log, 'p_rec_amount: ' || p_rec_amount );

539: fnd_file.put_line(fnd_file.log, 'p_asg_act_id: ' || p_asg_act_id );
540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);
541: p_rec_amount := p_amount * 0.92;
542: p_nic_amount := p_amount * 1;
543: fnd_file.put_line(fnd_file.log, 'p_rec_amount: ' || p_rec_amount );
544: fnd_file.put_line(fnd_file.log, 'p_nic_amount: ' || p_nic_amount);
545: return 1;
546:
547:

Line 544: fnd_file.put_line(fnd_file.log, 'p_nic_amount: ' || p_nic_amount);

540: fnd_file.put_line(fnd_file.log, 'p_amount: ' || p_amount);
541: p_rec_amount := p_amount * 0.92;
542: p_nic_amount := p_amount * 1;
543: fnd_file.put_line(fnd_file.log, 'p_rec_amount: ' || p_rec_amount );
544: fnd_file.put_line(fnd_file.log, 'p_nic_amount: ' || p_nic_amount);
545: return 1;
546:
547:
548: end calc_rec_nic_amounts;