138: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
139:
140: LOOP
141: l_end :=
142: DBMS_LOB.INSTR (lob_loc => lob_loc,
143: pattern => c_endline,
144: offset => l_start,
145: nth => 1
146: );
150: EXIT;
151: END IF;
152:
153: l_one_line :=
154: DBMS_LOB.SUBSTR (lob_loc => lob_loc,
155: amount => l_end - l_start,
156: offset => l_start
157: );
158: l_start := l_end + c_endline_len;
534: END;
535: -- We are adding the LNSPORTFOLIO and PARAMETERS TAGs so we have
536: -- to offset the first line.
537: IF l_rows_processed <> 0 THEN
538: l_resultOffset := DBMS_LOB.INSTR(l_result,'>');
539: tempResult := l_result;
540: ELSE
541: l_resultOffset := 0;
542: END IF;
568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added parameters');
569:
570: l_xml_header_length := length(l_xml_header);
571: IF l_rows_processed <> 0 THEN
572: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
573: dbms_lob.copy(tempResult,l_result
574: ,dbms_lob.getlength(l_result)-l_resultOffset
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
569:
570: l_xml_header_length := length(l_xml_header);
571: IF l_rows_processed <> 0 THEN
572: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
573: dbms_lob.copy(tempResult,l_result
574: ,dbms_lob.getlength(l_result)-l_resultOffset
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
577: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
570: l_xml_header_length := length(l_xml_header);
571: IF l_rows_processed <> 0 THEN
572: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
573: dbms_lob.copy(tempResult,l_result
574: ,dbms_lob.getlength(l_result)-l_resultOffset
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
577: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
578: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
573: dbms_lob.copy(tempResult,l_result
574: ,dbms_lob.getlength(l_result)-l_resultOffset
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
577: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
578: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
579: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
580: END IF;
581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added content');
574: ,dbms_lob.getlength(l_result)-l_resultOffset
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
577: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
578: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
579: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
580: END IF;
581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added content');
582:
575: ,l_xml_header_length,l_resultOffset);
576: ELSE
577: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
578: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
579: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
580: END IF;
581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added content');
582:
583: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
579: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
580: END IF;
581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added content');
582:
583: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
584: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Added closing tag');
585:
586: print_clob(lob_loc => tempResult);
587: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1001: END;
1002: -- We are adding the LNSPORTFOLIO and PARAMETERS TAGs so we have
1003: -- to offset the first line.
1004: IF l_rows_processed <> 0 THEN
1005: l_resultOffset := DBMS_LOB.INSTR(l_result,'>');
1006: tempResult := l_result;
1007: ELSE
1008: l_resultOffset := 0;
1009: END IF;
1029: l_xml_header := l_xml_header ||l_new_line||' ';
1030: l_close_tag := l_new_line||''||l_new_line;
1031: l_xml_header_length := length(l_xml_header);
1032: IF l_rows_processed <> 0 THEN
1033: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
1034: dbms_lob.copy(tempResult,l_result
1035: ,dbms_lob.getlength(l_result)-l_resultOffset
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1030: l_close_tag := l_new_line||''||l_new_line;
1031: l_xml_header_length := length(l_xml_header);
1032: IF l_rows_processed <> 0 THEN
1033: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
1034: dbms_lob.copy(tempResult,l_result
1035: ,dbms_lob.getlength(l_result)-l_resultOffset
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1038: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1031: l_xml_header_length := length(l_xml_header);
1032: IF l_rows_processed <> 0 THEN
1033: dbms_lob.write(tempResult,l_xml_header_length,1,l_xml_header);
1034: dbms_lob.copy(tempResult,l_result
1035: ,dbms_lob.getlength(l_result)-l_resultOffset
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1038: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1039: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1034: dbms_lob.copy(tempResult,l_result
1035: ,dbms_lob.getlength(l_result)-l_resultOffset
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1038: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1039: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1040: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1041: END IF;
1042:
1035: ,dbms_lob.getlength(l_result)-l_resultOffset
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1038: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1039: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1040: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1041: END IF;
1042:
1043: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1036: ,l_xml_header_length,l_resultOffset);
1037: ELSE
1038: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1039: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1040: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1041: END IF;
1042:
1043: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1044: print_clob(lob_loc => tempResult);
1039: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1040: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1041: END IF;
1042:
1043: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1044: print_clob(lob_loc => tempResult);
1045: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1046: EXCEPTION
1047: WHEN OTHERS THEN
1826:
1827: -- We are adding the LNSAGREEMENT and PARAMETERS TAGs so we have
1828: -- to offset the first line.
1829: IF l_rows_processed <> 0 THEN
1830: l_resultOffset := DBMS_LOB.INSTR(l_result,'>');
1831: ELSE
1832: l_resultOffset := 0;
1833: END IF;
1834: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'l_resultOffset ' || l_resultOffset);
1857: l_close_tag := l_new_line||''||l_new_line;
1858: l_xml_header_length := length(l_xml_header);
1859: IF l_rows_processed <> 0 THEN
1860: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' l_xml_header_length ' || l_xml_header_length);
1861: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1862: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1858: l_xml_header_length := length(l_xml_header);
1859: IF l_rows_processed <> 0 THEN
1860: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' l_xml_header_length ' || l_xml_header_length);
1861: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1862: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1866: dbms_lob.copy(tempResult,l_result
1859: IF l_rows_processed <> 0 THEN
1860: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' l_xml_header_length ' || l_xml_header_length);
1861: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1862: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1866: dbms_lob.copy(tempResult,l_result
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1861: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1862: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1866: dbms_lob.copy(tempResult,l_result
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1862: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1866: dbms_lob.copy(tempResult,l_result
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1870: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1863: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1864:
1865: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' before dbms_lob.copy ' );
1866: dbms_lob.copy(tempResult,l_result
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1870: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1871: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1866: dbms_lob.copy(tempResult,l_result
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1870: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1871: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1872: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1873: END IF;
1874:
1867: ,dbms_lob.getlength(l_result)-l_resultOffset
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1870: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1871: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1872: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1873: END IF;
1874:
1875: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1868: ,l_xml_header_length,l_resultOffset);
1869: ELSE
1870: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1871: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1872: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1873: END IF;
1874:
1875: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1876: p_AgreementXML := tempResult;
1871: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1872: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1873: END IF;
1874:
1875: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1876: p_AgreementXML := tempResult;
1877: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1878: EXCEPTION
1879:
1895: BEGIN
1896:
1897: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1898: -- get length of internal lob and open the dest. file.
1899: l_clob_size := dbms_lob.getlength(p_clob);
1900:
1901: IF (l_clob_size = 0) THEN
1902: LogMessage(FND_LOG.LEVEL_PROCEDURE,'CLOB is empty');
1903: RETURN;
1924: WHILE (l_clob_size > 0) LOOP
1925:
1926: -- LogMessage(FND_LOG.LEVEL_PROCEDURE,'Off Set: ' || l_offset);
1927:
1928: l_chunk := dbms_lob.substr (p_clob, l_chunk_size, l_offset);
1929:
1930: --LogMessage(FND_LOG.LEVEL_PROCEDURE,'Off Set: ' || l_offset);
1931: --LogMessage(FND_LOG.LEVEL_PROCEDURE,'l_chunk ' || l_chunk);
1932: