286: End If;
287: Exception
288: When E_Request1_Submit_Error Then
289: fnd_message.retrieve(l_message);
290: fnd_file.put_line(fnd_file.log, l_message);
291: Raise;
292: When E_Request2_Submit_Error Then
293: fnd_message.retrieve(l_message);
294: fnd_file.put_line(fnd_file.log, l_message);
290: fnd_file.put_line(fnd_file.log, l_message);
291: Raise;
292: When E_Request2_Submit_Error Then
293: fnd_message.retrieve(l_message);
294: fnd_file.put_line(fnd_file.log, l_message);
295: Raise;
296: When E_Request1_Wait_Error Then
297: fnd_message.retrieve(l_message);
298: fnd_file.put_line(fnd_file.log, l_message);
294: fnd_file.put_line(fnd_file.log, l_message);
295: Raise;
296: When E_Request1_Wait_Error Then
297: fnd_message.retrieve(l_message);
298: fnd_file.put_line(fnd_file.log, l_message);
299: Raise;
300: When E_Request2_Wait_Error Then
301: fnd_message.retrieve(l_message);
302: fnd_file.put_line(fnd_file.log, l_message);
298: fnd_file.put_line(fnd_file.log, l_message);
299: Raise;
300: When E_Request2_Wait_Error Then
301: fnd_message.retrieve(l_message);
302: fnd_file.put_line(fnd_file.log, l_message);
303: Raise;
304: When E_Loader1_Failure Then
305: fnd_message.set_name('IGI', 'IGIPCDUP_NOT_NORM_COMPLETE');
306: fnd_message.set_token('FILE_NAME', l_data_file_name);
304: When E_Loader1_Failure Then
305: fnd_message.set_name('IGI', 'IGIPCDUP_NOT_NORM_COMPLETE');
306: fnd_message.set_token('FILE_NAME', l_data_file_name);
307: l_message := fnd_message.get;
308: fnd_file.put_line(fnd_file.log, l_message);
309: Raise;
310: When E_Loader2_Failure Then
311: fnd_message.set_name('IGI', 'IGIPSDUP_NOT_NORM_COMPLETE');
312: fnd_message.set_token('FILE_NAME', l_data_file_name);
310: When E_Loader2_Failure Then
311: fnd_message.set_name('IGI', 'IGIPSDUP_NOT_NORM_COMPLETE');
312: fnd_message.set_token('FILE_NAME', l_data_file_name);
313: l_message := fnd_message.get;
314: fnd_file.put_line(fnd_file.log, l_message);
315: Raise;
316: When Others Then
317: fnd_message.retrieve(l_message);
318: fnd_file.put_line(fnd_file.log, l_message);
314: fnd_file.put_line(fnd_file.log, l_message);
315: Raise;
316: When Others Then
317: fnd_message.retrieve(l_message);
318: fnd_file.put_line(fnd_file.log, l_message);
319: Raise;
320: END Spawn_Loader;
321:
322: Procedure Match_And_Update(P_Upl_Option IN Varchar2) IS
432: End LooP;
433: Exception
434: When Others Then
435: fnd_message.retrieve(l_message);
436: fnd_file.put_line(fnd_file.log, l_message);
437: Raise;
438: End Match_And_Update;
439:
440: Procedure Generate_Report(p_upl_option IN Varchar2) Is
502: And inv.vendor_site_id(+) = atr.vendor_site_id
503: Order by pvs.vendor_site_code, atr.tax_name;
504: l_rec_count Number;
505: Begin
506: fnd_file.put_line(fnd_file.output, '');
507: If (p_upl_option = 'U') Then
508: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Matched and Updated');
509: fnd_file.put_line(fnd_file.output,'---------------------------------');
510: Else
504: l_rec_count Number;
505: Begin
506: fnd_file.put_line(fnd_file.output, '');
507: If (p_upl_option = 'U') Then
508: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Matched and Updated');
509: fnd_file.put_line(fnd_file.output,'---------------------------------');
510: Else
511: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Matched');
512: fnd_file.put_line(fnd_file.output, '---------------------');
505: Begin
506: fnd_file.put_line(fnd_file.output, '');
507: If (p_upl_option = 'U') Then
508: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Matched and Updated');
509: fnd_file.put_line(fnd_file.output,'---------------------------------');
510: Else
511: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Matched');
512: fnd_file.put_line(fnd_file.output, '---------------------');
513: End If;
507: If (p_upl_option = 'U') Then
508: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Matched and Updated');
509: fnd_file.put_line(fnd_file.output,'---------------------------------');
510: Else
511: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Matched');
512: fnd_file.put_line(fnd_file.output, '---------------------');
513: End If;
514:
515: For C_Cdrom_Matched_Vendors_Rec IN C_Cdrom_Matched_Vendors Loop
508: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Matched and Updated');
509: fnd_file.put_line(fnd_file.output,'---------------------------------');
510: Else
511: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Matched');
512: fnd_file.put_line(fnd_file.output, '---------------------');
513: End If;
514:
515: For C_Cdrom_Matched_Vendors_Rec IN C_Cdrom_Matched_Vendors Loop
516: fnd_file.put_line(fnd_file.output,'');
512: fnd_file.put_line(fnd_file.output, '---------------------');
513: End If;
514:
515: For C_Cdrom_Matched_Vendors_Rec IN C_Cdrom_Matched_Vendors Loop
516: fnd_file.put_line(fnd_file.output,'');
517: fnd_file.put_line(fnd_file.output,
518: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
519: fnd_file.put_line(fnd_file.output,
520: '----------------- ---------------------------- ----------- ------------------- -------------');
513: End If;
514:
515: For C_Cdrom_Matched_Vendors_Rec IN C_Cdrom_Matched_Vendors Loop
516: fnd_file.put_line(fnd_file.output,'');
517: fnd_file.put_line(fnd_file.output,
518: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
519: fnd_file.put_line(fnd_file.output,
520: '----------------- ---------------------------- ----------- ------------------- -------------');
521: fnd_file.put_line(fnd_file.output,
515: For C_Cdrom_Matched_Vendors_Rec IN C_Cdrom_Matched_Vendors Loop
516: fnd_file.put_line(fnd_file.output,'');
517: fnd_file.put_line(fnd_file.output,
518: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
519: fnd_file.put_line(fnd_file.output,
520: '----------------- ---------------------------- ----------- ------------------- -------------');
521: fnd_file.put_line(fnd_file.output,
522: rpad(nvl(to_char(C_Cdrom_Matched_Vendors_Rec.subcontractor_utr),' '),17) || ' ' ||
523: rpad(nvl(C_Cdrom_Matched_Vendors_Rec.subcontractor_name,' '),28) || ' ' ||
517: fnd_file.put_line(fnd_file.output,
518: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
519: fnd_file.put_line(fnd_file.output,
520: '----------------- ---------------------------- ----------- ------------------- -------------');
521: fnd_file.put_line(fnd_file.output,
522: rpad(nvl(to_char(C_Cdrom_Matched_Vendors_Rec.subcontractor_utr),' '),17) || ' ' ||
523: rpad(nvl(C_Cdrom_Matched_Vendors_Rec.subcontractor_name,' '),28) || ' ' ||
524: rpad(nvl(C_Cdrom_Matched_Vendors_Rec.subcontractor_ref_id,' '),11) || ' ' ||
525: rpad(nvl(to_char(C_Cdrom_Matched_Vendors_Rec.tax_month_last_paid),' '),19) || ' ' ||
527: l_rec_count := 0;
528: For C_Site_Invoice_Count_Rec in C_Site_Invoice_Count(
529: C_Cdrom_Matched_Vendors_Rec.subcontractor_utr) Loop
530: If l_rec_count = 0 Then
531: fnd_file.put_line(fnd_file.output,'');
532: fnd_file.put_line(fnd_file.output,
533: 'Current Withholding Tax Certificate Details for ' ||
534: C_Cdrom_Matched_Vendors_Rec.subcontractor_name);
535: fnd_file.put_line(fnd_file.output,
528: For C_Site_Invoice_Count_Rec in C_Site_Invoice_Count(
529: C_Cdrom_Matched_Vendors_Rec.subcontractor_utr) Loop
530: If l_rec_count = 0 Then
531: fnd_file.put_line(fnd_file.output,'');
532: fnd_file.put_line(fnd_file.output,
533: 'Current Withholding Tax Certificate Details for ' ||
534: C_Cdrom_Matched_Vendors_Rec.subcontractor_name);
535: fnd_file.put_line(fnd_file.output,
536: '-----------------------------------------------');
531: fnd_file.put_line(fnd_file.output,'');
532: fnd_file.put_line(fnd_file.output,
533: 'Current Withholding Tax Certificate Details for ' ||
534: C_Cdrom_Matched_Vendors_Rec.subcontractor_name);
535: fnd_file.put_line(fnd_file.output,
536: '-----------------------------------------------');
537: fnd_file.put_line(fnd_file.output,
538: 'Site Tax Code Tax Rate Number of Open Invoices For the Site');
539: fnd_file.put_line(fnd_file.output,
533: 'Current Withholding Tax Certificate Details for ' ||
534: C_Cdrom_Matched_Vendors_Rec.subcontractor_name);
535: fnd_file.put_line(fnd_file.output,
536: '-----------------------------------------------');
537: fnd_file.put_line(fnd_file.output,
538: 'Site Tax Code Tax Rate Number of Open Invoices For the Site');
539: fnd_file.put_line(fnd_file.output,
540: '--------------- --------------- --------------- ------------------------------------');
541: End If;
535: fnd_file.put_line(fnd_file.output,
536: '-----------------------------------------------');
537: fnd_file.put_line(fnd_file.output,
538: 'Site Tax Code Tax Rate Number of Open Invoices For the Site');
539: fnd_file.put_line(fnd_file.output,
540: '--------------- --------------- --------------- ------------------------------------');
541: End If;
542: fnd_file.put_line(fnd_file.output,
543: rpad(nvl(C_Site_Invoice_Count_Rec.site_code,' '),15) || ' ' ||
538: 'Site Tax Code Tax Rate Number of Open Invoices For the Site');
539: fnd_file.put_line(fnd_file.output,
540: '--------------- --------------- --------------- ------------------------------------');
541: End If;
542: fnd_file.put_line(fnd_file.output,
543: rpad(nvl(C_Site_Invoice_Count_Rec.site_code,' '),15) || ' ' ||
544: rpad(nvl(C_Site_Invoice_Count_Rec.tax_name,' '),15) || ' ' ||
545: rpad(nvl(to_char(C_Site_Invoice_Count_Rec.tax_rate),' '),15) || ' ' ||
546: rpad(nvl(to_char(C_Site_Invoice_Count_Rec.inv_count),' '),15));
547: l_rec_count := l_rec_count + 1;
548: End Loop;
549: End Loop;
550:
551: fnd_file.put_line(fnd_file.output, '');
552: fnd_file.put_line(fnd_file.output,'');
553:
554: If (p_upl_option = 'U') Then
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
548: End Loop;
549: End Loop;
550:
551: fnd_file.put_line(fnd_file.output, '');
552: fnd_file.put_line(fnd_file.output,'');
553:
554: If (p_upl_option = 'U') Then
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
556: fnd_file.put_line(fnd_file.output,'---------------------------------------');
551: fnd_file.put_line(fnd_file.output, '');
552: fnd_file.put_line(fnd_file.output,'');
553:
554: If (p_upl_option = 'U') Then
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
556: fnd_file.put_line(fnd_file.output,'---------------------------------------');
557: Else
558: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Unmatched');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
552: fnd_file.put_line(fnd_file.output,'');
553:
554: If (p_upl_option = 'U') Then
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
556: fnd_file.put_line(fnd_file.output,'---------------------------------------');
557: Else
558: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Unmatched');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
560: End If;
554: If (p_upl_option = 'U') Then
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
556: fnd_file.put_line(fnd_file.output,'---------------------------------------');
557: Else
558: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Unmatched');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
560: End If;
561:
562: fnd_file.put_line(fnd_file.output,'');
555: fnd_file.put_line(fnd_file.output,'CD-ROM Data : Unmatched and Not Updated');
556: fnd_file.put_line(fnd_file.output,'---------------------------------------');
557: Else
558: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Unmatched');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
560: End If;
561:
562: fnd_file.put_line(fnd_file.output,'');
563: fnd_file.put_line(fnd_file.output,
558: fnd_file.put_line(fnd_file.output, 'CD-ROM Data : Unmatched');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
560: End If;
561:
562: fnd_file.put_line(fnd_file.output,'');
563: fnd_file.put_line(fnd_file.output,
564: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
565: fnd_file.put_line(fnd_file.output,
566: '----------------- ---------------------------- ----------- ------------------- -------------');
559: fnd_file.put_line(fnd_file.output, '-----------------------');
560: End If;
561:
562: fnd_file.put_line(fnd_file.output,'');
563: fnd_file.put_line(fnd_file.output,
564: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
565: fnd_file.put_line(fnd_file.output,
566: '----------------- ---------------------------- ----------- ------------------- -------------');
567:
561:
562: fnd_file.put_line(fnd_file.output,'');
563: fnd_file.put_line(fnd_file.output,
564: 'Subcontractor UTR Subcontractor Name NINO or CRN Tax month last paid Tax treatment');
565: fnd_file.put_line(fnd_file.output,
566: '----------------- ---------------------------- ----------- ------------------- -------------');
567:
568: For C_Cdrom_Unmatched_Vendors_Rec IN C_Cdrom_Unmatched_Vendors Loop
569: fnd_file.put_line(fnd_file.output,
565: fnd_file.put_line(fnd_file.output,
566: '----------------- ---------------------------- ----------- ------------------- -------------');
567:
568: For C_Cdrom_Unmatched_Vendors_Rec IN C_Cdrom_Unmatched_Vendors Loop
569: fnd_file.put_line(fnd_file.output,
570: rpad(nvl(to_char(C_Cdrom_Unmatched_Vendors_Rec.subcontractor_utr),' '),17) || ' ' ||
571: rpad(nvl(C_Cdrom_Unmatched_Vendors_Rec.subcontractor_name,' '),28) || ' ' ||
572: rpad(nvl(C_Cdrom_Unmatched_Vendors_Rec.subcontractor_ref_id,' '),11) || ' ' ||
573: rpad(nvl(to_char(C_Cdrom_Unmatched_Vendors_Rec.tax_month_last_paid),' '),19) || ' ' ||
573: rpad(nvl(to_char(C_Cdrom_Unmatched_Vendors_Rec.tax_month_last_paid),' '),19) || ' ' ||
574: C_Cdrom_Unmatched_Vendors_Rec.tax_treatment);
575: End Loop;
576:
577: fnd_file.put_line(fnd_file.output,'');
578: fnd_file.put_line(fnd_file.output,'');
579: fnd_file.put_line(fnd_file.output,
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
574: C_Cdrom_Unmatched_Vendors_Rec.tax_treatment);
575: End Loop;
576:
577: fnd_file.put_line(fnd_file.output,'');
578: fnd_file.put_line(fnd_file.output,'');
579: fnd_file.put_line(fnd_file.output,
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
582: '---------------------------------------------------------------------------');
575: End Loop;
576:
577: fnd_file.put_line(fnd_file.output,'');
578: fnd_file.put_line(fnd_file.output,'');
579: fnd_file.put_line(fnd_file.output,
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
582: '---------------------------------------------------------------------------');
583: fnd_file.put_line(fnd_file.output,'');
577: fnd_file.put_line(fnd_file.output,'');
578: fnd_file.put_line(fnd_file.output,'');
579: fnd_file.put_line(fnd_file.output,
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
582: '---------------------------------------------------------------------------');
583: fnd_file.put_line(fnd_file.output,'');
584: fnd_file.put_line(fnd_file.output,
585: 'Vendor Name Subcontractor UTR Partnership UTR NINO CRN ');
579: fnd_file.put_line(fnd_file.output,
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
582: '---------------------------------------------------------------------------');
583: fnd_file.put_line(fnd_file.output,'');
584: fnd_file.put_line(fnd_file.output,
585: 'Vendor Name Subcontractor UTR Partnership UTR NINO CRN ');
586: fnd_file.put_line(fnd_file.output,
587: '----------------------------- ----------------- --------------- ---------- --------- ');
580: 'CIS Enabled Subcontractors not found in the CD-ROM data received from HMRC.');
581: fnd_file.put_line(fnd_file.output,
582: '---------------------------------------------------------------------------');
583: fnd_file.put_line(fnd_file.output,'');
584: fnd_file.put_line(fnd_file.output,
585: 'Vendor Name Subcontractor UTR Partnership UTR NINO CRN ');
586: fnd_file.put_line(fnd_file.output,
587: '----------------------------- ----------------- --------------- ---------- --------- ');
588:
582: '---------------------------------------------------------------------------');
583: fnd_file.put_line(fnd_file.output,'');
584: fnd_file.put_line(fnd_file.output,
585: 'Vendor Name Subcontractor UTR Partnership UTR NINO CRN ');
586: fnd_file.put_line(fnd_file.output,
587: '----------------------------- ----------------- --------------- ---------- --------- ');
588:
589: For C_Vendor_Not_Found_Rec IN C_Vendor_Not_Found Loop
590: fnd_file.put_line(fnd_file.output,
586: fnd_file.put_line(fnd_file.output,
587: '----------------------------- ----------------- --------------- ---------- --------- ');
588:
589: For C_Vendor_Not_Found_Rec IN C_Vendor_Not_Found Loop
590: fnd_file.put_line(fnd_file.output,
591: rpad(nvl(C_Vendor_Not_Found_Rec.vendor_name,' '),29) || ' ' ||
592: rpad(nvl(to_char(C_Vendor_Not_Found_Rec.unique_tax_reference_num),' '),17) || ' ' ||
593: rpad(nvl(to_char(C_Vendor_Not_Found_Rec.partnership_utr),' '),15) || ' ' ||
594: rpad(nvl(C_Vendor_Not_Found_Rec.national_insurance_number,' '),10) || ' ' ||
596: End Loop;
597: Exception
598: When Others Then
599: fnd_message.retrieve(l_message);
600: fnd_file.put_line(fnd_file.log, l_message);
601: Raise;
602: End Generate_Report;
603:
604: Procedure Cis_Duplicate_Data Is
627: l_dup_rec := 'Y';
628: End Loop;
629:
630: If l_dup_rec = 'Y' Then
631: fnd_file.put_line(fnd_file.output, '');
632: fnd_file.put_line(fnd_file.output,
633: 'The CD-ROM Data Upload Process found duplicate values in the system.');
634: fnd_file.put_line(fnd_file.output,
635: 'These duplicate values could lead to potential data corruption.');
628: End Loop;
629:
630: If l_dup_rec = 'Y' Then
631: fnd_file.put_line(fnd_file.output, '');
632: fnd_file.put_line(fnd_file.output,
633: 'The CD-ROM Data Upload Process found duplicate values in the system.');
634: fnd_file.put_line(fnd_file.output,
635: 'These duplicate values could lead to potential data corruption.');
636: fnd_file.put_line(fnd_file.output,
630: If l_dup_rec = 'Y' Then
631: fnd_file.put_line(fnd_file.output, '');
632: fnd_file.put_line(fnd_file.output,
633: 'The CD-ROM Data Upload Process found duplicate values in the system.');
634: fnd_file.put_line(fnd_file.output,
635: 'These duplicate values could lead to potential data corruption.');
636: fnd_file.put_line(fnd_file.output,
637: 'CD-ROM records matching to duplicate records in the system would not be uploaded');
638: fnd_file.put_line(fnd_file.output,
632: fnd_file.put_line(fnd_file.output,
633: 'The CD-ROM Data Upload Process found duplicate values in the system.');
634: fnd_file.put_line(fnd_file.output,
635: 'These duplicate values could lead to potential data corruption.');
636: fnd_file.put_line(fnd_file.output,
637: 'CD-ROM records matching to duplicate records in the system would not be uploaded');
638: fnd_file.put_line(fnd_file.output,
639: 'Please rectify the duplicate data in your system and then submit the CD-ROM Upload Process again.');
640: l_count := 0;
634: fnd_file.put_line(fnd_file.output,
635: 'These duplicate values could lead to potential data corruption.');
636: fnd_file.put_line(fnd_file.output,
637: 'CD-ROM records matching to duplicate records in the system would not be uploaded');
638: fnd_file.put_line(fnd_file.output,
639: 'Please rectify the duplicate data in your system and then submit the CD-ROM Upload Process again.');
640: l_count := 0;
641: For C_Partnership_UTR_Rec in C_Partnership_UTR Loop
642: If l_count = 0 Then
639: 'Please rectify the duplicate data in your system and then submit the CD-ROM Upload Process again.');
640: l_count := 0;
641: For C_Partnership_UTR_Rec in C_Partnership_UTR Loop
642: If l_count = 0 Then
643: fnd_file.put_line(fnd_file.output, '');
644: fnd_file.put_line(fnd_file.output,
645: 'Duplicate Partnership Unique Taxpayer Reference found in the system');
646: fnd_file.put_line(fnd_file.output,
647: '-------------------------------------------------------------------');
640: l_count := 0;
641: For C_Partnership_UTR_Rec in C_Partnership_UTR Loop
642: If l_count = 0 Then
643: fnd_file.put_line(fnd_file.output, '');
644: fnd_file.put_line(fnd_file.output,
645: 'Duplicate Partnership Unique Taxpayer Reference found in the system');
646: fnd_file.put_line(fnd_file.output,
647: '-------------------------------------------------------------------');
648: End If;
642: If l_count = 0 Then
643: fnd_file.put_line(fnd_file.output, '');
644: fnd_file.put_line(fnd_file.output,
645: 'Duplicate Partnership Unique Taxpayer Reference found in the system');
646: fnd_file.put_line(fnd_file.output,
647: '-------------------------------------------------------------------');
648: End If;
649: fnd_file.put_line(fnd_file.output, C_Partnership_UTR_Rec.PARTNERSHIP_UTR);
650: l_count := l_count + 1;
645: 'Duplicate Partnership Unique Taxpayer Reference found in the system');
646: fnd_file.put_line(fnd_file.output,
647: '-------------------------------------------------------------------');
648: End If;
649: fnd_file.put_line(fnd_file.output, C_Partnership_UTR_Rec.PARTNERSHIP_UTR);
650: l_count := l_count + 1;
651: End loop;
652:
653: l_count := 0;
652:
653: l_count := 0;
654: For C_Subcontractor_UTR_Rec in C_Subcontractor_UTR Loop
655: If l_count = 0 Then
656: fnd_file.put_line(fnd_file.output, '');
657: fnd_file.put_line(fnd_file.output,
658: 'Duplicate Subcontractor Unique Taxpayer Reference found in the system');
659: fnd_file.put_line(fnd_file.output,
660: '---------------------------------------------------------------------');
653: l_count := 0;
654: For C_Subcontractor_UTR_Rec in C_Subcontractor_UTR Loop
655: If l_count = 0 Then
656: fnd_file.put_line(fnd_file.output, '');
657: fnd_file.put_line(fnd_file.output,
658: 'Duplicate Subcontractor Unique Taxpayer Reference found in the system');
659: fnd_file.put_line(fnd_file.output,
660: '---------------------------------------------------------------------');
661: End If;
655: If l_count = 0 Then
656: fnd_file.put_line(fnd_file.output, '');
657: fnd_file.put_line(fnd_file.output,
658: 'Duplicate Subcontractor Unique Taxpayer Reference found in the system');
659: fnd_file.put_line(fnd_file.output,
660: '---------------------------------------------------------------------');
661: End If;
662: fnd_file.put_line(fnd_file.output, C_Subcontractor_UTR_Rec.UNIQUE_TAX_REFERENCE_NUM);
663: l_count := l_count + 1;
658: 'Duplicate Subcontractor Unique Taxpayer Reference found in the system');
659: fnd_file.put_line(fnd_file.output,
660: '---------------------------------------------------------------------');
661: End If;
662: fnd_file.put_line(fnd_file.output, C_Subcontractor_UTR_Rec.UNIQUE_TAX_REFERENCE_NUM);
663: l_count := l_count + 1;
664: End Loop;
665: End If;
666: End Cis_Duplicate_Data;
679: l_dup_rec := 'Y';
680: End Loop;
681:
682: If l_dup_rec = 'Y' Then
683: fnd_file.put_line(fnd_file.output, '');
684: fnd_file.put_line(fnd_file.output,
685: 'The CD-ROM Data Upload Process found duplicate values in the CD-ROM data received from HMRC.');
686: fnd_file.put_line(fnd_file.output,
687: 'These Duplicate values could lead to potential data corruption.');
680: End Loop;
681:
682: If l_dup_rec = 'Y' Then
683: fnd_file.put_line(fnd_file.output, '');
684: fnd_file.put_line(fnd_file.output,
685: 'The CD-ROM Data Upload Process found duplicate values in the CD-ROM data received from HMRC.');
686: fnd_file.put_line(fnd_file.output,
687: 'These Duplicate values could lead to potential data corruption.');
688: fnd_file.put_line(fnd_file.output,
682: If l_dup_rec = 'Y' Then
683: fnd_file.put_line(fnd_file.output, '');
684: fnd_file.put_line(fnd_file.output,
685: 'The CD-ROM Data Upload Process found duplicate values in the CD-ROM data received from HMRC.');
686: fnd_file.put_line(fnd_file.output,
687: 'These Duplicate values could lead to potential data corruption.');
688: fnd_file.put_line(fnd_file.output,
689: 'Duplicate CD-ROM records would not be uploaded');
690: fnd_file.put_line(fnd_file.output,
684: fnd_file.put_line(fnd_file.output,
685: 'The CD-ROM Data Upload Process found duplicate values in the CD-ROM data received from HMRC.');
686: fnd_file.put_line(fnd_file.output,
687: 'These Duplicate values could lead to potential data corruption.');
688: fnd_file.put_line(fnd_file.output,
689: 'Duplicate CD-ROM records would not be uploaded');
690: fnd_file.put_line(fnd_file.output,
691: 'Please rectify the CD-ROM data and then submit the CD-ROM Upload Process again.');
692: l_count := 0;
686: fnd_file.put_line(fnd_file.output,
687: 'These Duplicate values could lead to potential data corruption.');
688: fnd_file.put_line(fnd_file.output,
689: 'Duplicate CD-ROM records would not be uploaded');
690: fnd_file.put_line(fnd_file.output,
691: 'Please rectify the CD-ROM data and then submit the CD-ROM Upload Process again.');
692: l_count := 0;
693: For C_Subcontractor_UTR_Rec in C_Subcontractor_UTR Loop
694: If l_count = 0 Then
691: 'Please rectify the CD-ROM data and then submit the CD-ROM Upload Process again.');
692: l_count := 0;
693: For C_Subcontractor_UTR_Rec in C_Subcontractor_UTR Loop
694: If l_count = 0 Then
695: fnd_file.put_line(fnd_file.output, '');
696: fnd_file.put_line(fnd_file.output,
697: 'Duplicate Subcontractor Unique Taxpayer Reference found in the CD-ROM data');
698: fnd_file.put_line(fnd_file.output,
699: '--------------------------------------------------------------------------');
692: l_count := 0;
693: For C_Subcontractor_UTR_Rec in C_Subcontractor_UTR Loop
694: If l_count = 0 Then
695: fnd_file.put_line(fnd_file.output, '');
696: fnd_file.put_line(fnd_file.output,
697: 'Duplicate Subcontractor Unique Taxpayer Reference found in the CD-ROM data');
698: fnd_file.put_line(fnd_file.output,
699: '--------------------------------------------------------------------------');
700: End If;
694: If l_count = 0 Then
695: fnd_file.put_line(fnd_file.output, '');
696: fnd_file.put_line(fnd_file.output,
697: 'Duplicate Subcontractor Unique Taxpayer Reference found in the CD-ROM data');
698: fnd_file.put_line(fnd_file.output,
699: '--------------------------------------------------------------------------');
700: End If;
701: fnd_file.put_line(fnd_file.output, C_Subcontractor_UTR_Rec.SUBCONTRACTOR_UTR);
702: l_count := l_count + 1;
697: 'Duplicate Subcontractor Unique Taxpayer Reference found in the CD-ROM data');
698: fnd_file.put_line(fnd_file.output,
699: '--------------------------------------------------------------------------');
700: End If;
701: fnd_file.put_line(fnd_file.output, C_Subcontractor_UTR_Rec.SUBCONTRACTOR_UTR);
702: l_count := l_count + 1;
703: End Loop;
704: End If;
705: End Cdrom_Duplicate_Data;
718: From Igi_lookups
719: Where Lookup_type = 'IGI_CIS2007_CDROM_OPTION'
720: and lookup_code = 'U';
721: Begin
722: fnd_file.put_line(fnd_file.output, 'Date : ' || SYSDATE);
723: fnd_file.put_line(fnd_file.output,
724: 'Construction Industry Scheme : CD-ROM Data Upload Process Report');
725: fnd_file.put_line(fnd_file.output,
726: '----------------------------------------------------------------');
719: Where Lookup_type = 'IGI_CIS2007_CDROM_OPTION'
720: and lookup_code = 'U';
721: Begin
722: fnd_file.put_line(fnd_file.output, 'Date : ' || SYSDATE);
723: fnd_file.put_line(fnd_file.output,
724: 'Construction Industry Scheme : CD-ROM Data Upload Process Report');
725: fnd_file.put_line(fnd_file.output,
726: '----------------------------------------------------------------');
727: fnd_file.put_line(fnd_file.output,'');
721: Begin
722: fnd_file.put_line(fnd_file.output, 'Date : ' || SYSDATE);
723: fnd_file.put_line(fnd_file.output,
724: 'Construction Industry Scheme : CD-ROM Data Upload Process Report');
725: fnd_file.put_line(fnd_file.output,
726: '----------------------------------------------------------------');
727: fnd_file.put_line(fnd_file.output,'');
728: l_csv_file_name := fnd_profile.VALUE('IGI_CIS2007_CDROM_DATA_PATH');
729: fnd_file.put_line(fnd_file.log, 'Upload Option: ' || p_upl_option);
723: fnd_file.put_line(fnd_file.output,
724: 'Construction Industry Scheme : CD-ROM Data Upload Process Report');
725: fnd_file.put_line(fnd_file.output,
726: '----------------------------------------------------------------');
727: fnd_file.put_line(fnd_file.output,'');
728: l_csv_file_name := fnd_profile.VALUE('IGI_CIS2007_CDROM_DATA_PATH');
729: fnd_file.put_line(fnd_file.log, 'Upload Option: ' || p_upl_option);
730: fnd_file.put_line(fnd_file.log, 'CD-ROM csv file: ' || l_csv_file_name);
731: fnd_file.put_line(fnd_file.log, '');
725: fnd_file.put_line(fnd_file.output,
726: '----------------------------------------------------------------');
727: fnd_file.put_line(fnd_file.output,'');
728: l_csv_file_name := fnd_profile.VALUE('IGI_CIS2007_CDROM_DATA_PATH');
729: fnd_file.put_line(fnd_file.log, 'Upload Option: ' || p_upl_option);
730: fnd_file.put_line(fnd_file.log, 'CD-ROM csv file: ' || l_csv_file_name);
731: fnd_file.put_line(fnd_file.log, '');
732:
733: If P_Upl_Option = 'U' Then
726: '----------------------------------------------------------------');
727: fnd_file.put_line(fnd_file.output,'');
728: l_csv_file_name := fnd_profile.VALUE('IGI_CIS2007_CDROM_DATA_PATH');
729: fnd_file.put_line(fnd_file.log, 'Upload Option: ' || p_upl_option);
730: fnd_file.put_line(fnd_file.log, 'CD-ROM csv file: ' || l_csv_file_name);
731: fnd_file.put_line(fnd_file.log, '');
732:
733: If P_Upl_Option = 'U' Then
734: If Trunc(sysdate) < trunc(to_date(fnd_profile.value('IGI_CIS2007_LIB_DATE'),'DD-MM-YYYY')) Then
727: fnd_file.put_line(fnd_file.output,'');
728: l_csv_file_name := fnd_profile.VALUE('IGI_CIS2007_CDROM_DATA_PATH');
729: fnd_file.put_line(fnd_file.log, 'Upload Option: ' || p_upl_option);
730: fnd_file.put_line(fnd_file.log, 'CD-ROM csv file: ' || l_csv_file_name);
731: fnd_file.put_line(fnd_file.log, '');
732:
733: If P_Upl_Option = 'U' Then
734: If Trunc(sysdate) < trunc(to_date(fnd_profile.value('IGI_CIS2007_LIB_DATE'),'DD-MM-YYYY')) Then
735: For C_Upl_Meaning_Rec in C_Upl_Meaning Loop
734: If Trunc(sysdate) < trunc(to_date(fnd_profile.value('IGI_CIS2007_LIB_DATE'),'DD-MM-YYYY')) Then
735: For C_Upl_Meaning_Rec in C_Upl_Meaning Loop
736: l_meaning := C_Upl_Meaning_Rec.Meaning;
737: End Loop;
738: fnd_file.put_line(fnd_file.output,
739: 'The ' || l_meaning || ' Option of the CD-ROM Data Upload Process ' ||
740: 'cannot be run before ' || to_char(to_date(fnd_profile.value('IGI_CIS2007_LIB_DATE'),
741: 'DD-MM-YYYY'), 'DD-MON-YYYY'));
742: Raise E_Update_Not_Allowed;
758: When E_No_Csv_File_Error Then
759: fnd_message.set_name('IGI', 'IGI_CDROM_NO_FILES_TO_IMPORT');
760: fnd_message.set_token('FILE_NAME', l_csv_file_name);
761: l_message := fnd_message.get;
762: fnd_file.put_line(fnd_file.log, l_message);
763: retcode := 2;
764: errbuf := l_message;
765: WHEN Others Then
766: fnd_message.retrieve(l_message);
763: retcode := 2;
764: errbuf := l_message;
765: WHEN Others Then
766: fnd_message.retrieve(l_message);
767: fnd_file.put_line(fnd_file.log, l_message);
768: retcode := 2;
769: errbuf := l_message;
770: End Import_Cdrom_Data_Process;
771: