593:
594:
595:
596: -- Start of xml doc
597: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
598:
599: -- P30File root ELEMENT
600: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_root_start_tag);
601:
596: -- Start of xml doc
597: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
598:
599: -- P30File root ELEMENT
600: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_root_start_tag);
601:
602: -- Bug 2659864 - 'This Report' Figure calculation logic changed to
603: -- (Curr P30 YTD value - Prev P30 YTD Value)
604:
872:
873: END LOOP;
874:
875: -- Employer ELEMENT
876: FND_FILE.PUT(FND_FILE.OUTPUT,l_employer_start_tag);
877:
878: FND_FILE.PUT(FND_FILE.OUTPUT,'number="' || l_employer_paye_number ||'" ');
879: FND_FILE.PUT(FND_FILE.OUTPUT,'name="' || l_employer_name ||'" ');
880:
874:
875: -- Employer ELEMENT
876: FND_FILE.PUT(FND_FILE.OUTPUT,l_employer_start_tag);
877:
878: FND_FILE.PUT(FND_FILE.OUTPUT,'number="' || l_employer_paye_number ||'" ');
879: FND_FILE.PUT(FND_FILE.OUTPUT,'name="' || l_employer_name ||'" ');
880:
881: IF l_employer_add1 IS NOT NULL THEN
882: FND_FILE.PUT(FND_FILE.OUTPUT,'address1="' || l_employer_add1 ||'" ');
875: -- Employer ELEMENT
876: FND_FILE.PUT(FND_FILE.OUTPUT,l_employer_start_tag);
877:
878: FND_FILE.PUT(FND_FILE.OUTPUT,'number="' || l_employer_paye_number ||'" ');
879: FND_FILE.PUT(FND_FILE.OUTPUT,'name="' || l_employer_name ||'" ');
880:
881: IF l_employer_add1 IS NOT NULL THEN
882: FND_FILE.PUT(FND_FILE.OUTPUT,'address1="' || l_employer_add1 ||'" ');
883: END IF;
878: FND_FILE.PUT(FND_FILE.OUTPUT,'number="' || l_employer_paye_number ||'" ');
879: FND_FILE.PUT(FND_FILE.OUTPUT,'name="' || l_employer_name ||'" ');
880:
881: IF l_employer_add1 IS NOT NULL THEN
882: FND_FILE.PUT(FND_FILE.OUTPUT,'address1="' || l_employer_add1 ||'" ');
883: END IF;
884:
885: IF l_employer_add2 IS NOT NULL THEN
886: FND_FILE.PUT(FND_FILE.OUTPUT,'address2="' || l_employer_add2 ||'" ');
882: FND_FILE.PUT(FND_FILE.OUTPUT,'address1="' || l_employer_add1 ||'" ');
883: END IF;
884:
885: IF l_employer_add2 IS NOT NULL THEN
886: FND_FILE.PUT(FND_FILE.OUTPUT,'address2="' || l_employer_add2 ||'" ');
887: END IF;
888:
889: IF l_employer_add3 IS NOT NULL THEN
890: FND_FILE.PUT(FND_FILE.OUTPUT,'address3="' || l_employer_add3 ||'" ');
886: FND_FILE.PUT(FND_FILE.OUTPUT,'address2="' || l_employer_add2 ||'" ');
887: END IF;
888:
889: IF l_employer_add3 IS NOT NULL THEN
890: FND_FILE.PUT(FND_FILE.OUTPUT,'address3="' || l_employer_add3 ||'" ');
891: END IF;
892:
893: FND_FILE.PUT(FND_FILE.OUTPUT,'contact="' || l_employer_contact ||'" ');
894:
889: IF l_employer_add3 IS NOT NULL THEN
890: FND_FILE.PUT(FND_FILE.OUTPUT,'address3="' || l_employer_add3 ||'" ');
891: END IF;
892:
893: FND_FILE.PUT(FND_FILE.OUTPUT,'contact="' || l_employer_contact ||'" ');
894:
895: IF l_employer_phone IS NOT NULL THEN
896: FND_FILE.PUT(FND_FILE.OUTPUT,'phone="' || replace(replace(l_employer_phone,'('),')') ||'" ');
897: END IF;
892:
893: FND_FILE.PUT(FND_FILE.OUTPUT,'contact="' || l_employer_contact ||'" ');
894:
895: IF l_employer_phone IS NOT NULL THEN
896: FND_FILE.PUT(FND_FILE.OUTPUT,'phone="' || replace(replace(l_employer_phone,'('),')') ||'" ');
897: END IF;
898:
899:
900:
897: END IF;
898:
899:
900:
901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_employer_end_tag);
902:
903: -- P30 ELEMENT
904: FND_FILE.PUT(FND_FILE.OUTPUT,l_p30_start_tag);
905:
900:
901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_employer_end_tag);
902:
903: -- P30 ELEMENT
904: FND_FILE.PUT(FND_FILE.OUTPUT,l_p30_start_tag);
905:
906: -- Get Start Date
907: OPEN cur_p30_start_date(p_p30_data_lock_process);
908: FETCH cur_p30_start_date INTO l_p30_start;
919: ELSE
920: l_period_type := '1';
921: END IF;
922:
923: FND_FILE.PUT(FND_FILE.OUTPUT,'period="' || l_period_type ||'" ');
924: -- End bug 5119350
925: FND_FILE.PUT(FND_FILE.OUTPUT,'start="' || l_p30_start ||'" ');
926:
927: /* Bug 2502060 P30 XML FAILED REVENUE ON LINE VALIDATION
921: END IF;
922:
923: FND_FILE.PUT(FND_FILE.OUTPUT,'period="' || l_period_type ||'" ');
924: -- End bug 5119350
925: FND_FILE.PUT(FND_FILE.OUTPUT,'start="' || l_p30_start ||'" ');
926:
927: /* Bug 2502060 P30 XML FAILED REVENUE ON LINE VALIDATION
928: Change in requirement- Totals in PAYE and PRSI element to display
929: in whole Euros and with no ',' seperating the thousands.
927: /* Bug 2502060 P30 XML FAILED REVENUE ON LINE VALIDATION
928: Change in requirement- Totals in PAYE and PRSI element to display
929: in whole Euros and with no ',' seperating the thousands.
930:
931: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999G999G999') ||'" ');
932: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999G999G999') ||'" ');
933:
934: */
935:
928: Change in requirement- Totals in PAYE and PRSI element to display
929: in whole Euros and with no ',' seperating the thousands.
930:
931: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999G999G999') ||'" ');
932: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999G999G999') ||'" ');
933:
934: */
935:
936: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999999999') ||'" ');
932: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999G999G999') ||'" ');
933:
934: */
935:
936: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999999999') ||'" ');
937: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999999999') ||'" ');
938: FND_FILE.PUT(FND_FILE.OUTPUT,'type="' || l_p30_type ||'" ');
939:
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_p30_end_tag);
933:
934: */
935:
936: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999999999') ||'" ');
937: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999999999') ||'" ');
938: FND_FILE.PUT(FND_FILE.OUTPUT,'type="' || l_p30_type ||'" ');
939:
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_p30_end_tag);
941:
934: */
935:
936: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999999999') ||'" ');
937: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999999999') ||'" ');
938: FND_FILE.PUT(FND_FILE.OUTPUT,'type="' || l_p30_type ||'" ');
939:
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_p30_end_tag);
941:
942: -- End of ROOT P30File ELEMENT
936: FND_FILE.PUT(FND_FILE.OUTPUT,'PAYE="' || to_char(l_p30_paye,'FM999999999') ||'" ');
937: FND_FILE.PUT(FND_FILE.OUTPUT,'PRSI="' || to_char(l_p30_prsi,'FM999999999') ||'" ');
938: FND_FILE.PUT(FND_FILE.OUTPUT,'type="' || l_p30_type ||'" ');
939:
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_p30_end_tag);
941:
942: -- End of ROOT P30File ELEMENT
943: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_root_end_tag);
944:
939:
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_p30_end_tag);
941:
942: -- End of ROOT P30File ELEMENT
943: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_root_end_tag);
944:
945: END generate_xml;
946:
947: END;