228: FND_FILE.put_line( FND_FILE.LOG,'inside print_clob');
229:
230: LOOP
231: l_end :=
232: DBMS_LOB.INSTR (lob_loc => lob_loc,
233: pattern => c_endline,
234: offset => l_start,
235: nth => 1
236: );
243: EXIT;
244: END IF;
245:
246: l_one_line :=
247: DBMS_LOB.SUBSTR (lob_loc => lob_loc,
248: amount => l_end - l_start,
249: offset => l_start
250: );
251: -- FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
573: l_running_score := 0;
574: -- fnd_file.put_line(fnd_file.log,'universe size-->'||l_universe_size);
575:
576: -- l_xml_body_2:=l_new_line||'
577: -- dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
578:
579: --Begin Bug 8933776 30-Nov-2009 barathsr
580: begin
581: select score.jtf_object_code
626: l_xml_body_2:=l_xml_body_2||l_new_line||'
627: l_xml_body_2:=l_xml_body_2||l_new_line||'
628: l_xml_body_2:=l_xml_body_2||l_new_line||'
629: l_xml_body_2:=l_xml_body_2||l_new_line||'
630: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);*/
631: --Commented to fix 12711600 SNUTHALA 5/JUL/11
632: exception
633: when others then
634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in get scores in getting jtf obj details'||sqlerrm);
644: if l_object_id is not null then
645: l_xml_body_2:=l_xml_body_2||l_new_line||'
646: end if;
647: l_xml_body_2:=l_xml_body_2||l_new_line||'
648: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
649: --End fix 12711600 SNUTHALA 5/JUL/11
650:
651: --End Bug 8933776 30-Nov-2009 barathsr
652: -- fnd_file.put_line(fnd_file.log,'callin get1score');
871: l_xml_body_2:=l_new_line||'';
872: l_xml_body_2:=l_xml_body_2||l_new_line||'
873: l_xml_body_2:=l_xml_body_2||l_new_line||'';
874:
875: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
876: --End Bug 8933776 30-Nov-2009 barathsr
877:
878: -- fnd_file.put_line(fnd_file.log,'end of comp_det tag');
879:
924:
925: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the final score: ');
926: --l_xml_body_2:=l_xml_body_2||l_new_line||''||l_new_line;
927:
928: -- dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
929: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing comp_det ');
930:
931: --- Begin - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
932: if l_scorecount > 0 then -- Store the leftovers
1167: l_xml_body:= l_xml_body||l_new_line||'
1168: l_xml_body:= l_xml_body||l_new_line||'';
1169: l_xml_body:= l_xml_body||l_new_line||'';
1170: -- l_xml_body:= l_xml_body||l_new_line||'';
1171: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1172: --End Bug 8933776 30-Nov-2009 barathsr
1173: FND_MSG_PUB.Add;
1174: RAISE FND_API.G_EXC_ERROR;
1175: end if;
1329:
1330: --Begin Bug 8933776 30-Nov-2009 barathsr
1331: if l_count=1 then
1332: l_xml_body:= l_xml_body||l_new_line||'';
1333: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1334: --End Bug 8933776 30-Nov-2009 barathsr
1335: end if;
1336:
1337:
1361: --Begin Bug 8933776 30-Nov-2009 barathsr
1362: if l_count=1 then
1363: l_xml_body:= l_new_line||'
1364: -- l_xml_body:=l_xml_body||l_new_line||'
1365: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1366: end if;
1367: --End Bug 8933776 30-Nov-2009 barathsr
1368: iex_score_new_pvt.getScores(p_score_comp_tbl => l_components_tbl,
1369: t_object_ids => l_universe,
1373:
1374: --Begin Bug 8933776 30-Nov-2009 barathsr
1375: l_xml_body:=l_new_line||'';
1376: l_xml_body:= l_xml_body||l_new_line||'
1377: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1378: --End Bug 8933776 30-Nov-2009 barathsr
1379:
1380: l_bridge := l_scores_tbl(1); -- The table now contains the bridge to the next concurrent program or nothing
1381:
1501: (p_count => x_msg_count,
1502: p_data => x_msg_data);
1503: --Begin Bug 8933776 30-Nov-2009 barathsr
1504: l_xml_body:=l_new_line||''||l_new_line;
1505: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1506: --End Bug 8933776 30-Nov-2009 barathsr
1507:
1508: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***close score details body***');
1509:
1820: l_xml_header_length := length(l_xml_header);
1821: -- tempResult := l_xml_header;
1822: -- FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1823:
1824: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1825: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1827: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1828: exception
1821: -- tempResult := l_xml_header;
1822: -- FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1823:
1824: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1825: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1827: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1828: exception
1829: when others then
1822: -- FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1823:
1824: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1825: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1827: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1828: exception
1829: when others then
1830: FND_FILE.put_line( FND_FILE.LOG,'err in xml header-->'||sqlerrm);
1894: end if;
1895: end loop;
1896:
1897: FND_FILE.PUT_LINE(FND_FILE.LOG,'1');
1898: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1899: --print to the o/p file
1900: FND_FILE.PUT_LINE(FND_FILE.LOG,'2');
1901: FND_FILE.PUT_LINE(FND_FILE.LOG,'len_tempRes-->'||length(tempResult));
1902: -- FND_FILE.PUT_LINE(FND_FILE.LOG,substr(tempResult,16000,length(tempResult)));
1903: if nvl(p_show_output,'No')='Yes' then
1904: print_clob(lob_loc => tempResult);
1905: else
1906: tempResult:=l_xml_header;
1907: -- dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1908: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1909: print_clob(lob_loc => tempResult);
1910: end if;
1911: -- Fnd_File.PUT_line(FND_FILE.LOG,substr(tempResult,1,length(tempResult)));
1904: print_clob(lob_loc => tempResult);
1905: else
1906: tempResult:=l_xml_header;
1907: -- dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1908: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1909: print_clob(lob_loc => tempResult);
1910: end if;
1911: -- Fnd_File.PUT_line(FND_FILE.LOG,substr(tempResult,1,length(tempResult)));
1912: FND_FILE.PUT_LINE(FND_FILE.LOG,'3');
2934: END IF;
2935: --Begin Bug 8933776 30-Nov-2009 barathsr
2936: l_xml_body_1:=l_xml_body_1||l_new_line||'
2937: l_xml_body_1:=l_xml_body_1||l_new_line||'';
2938: dbms_lob.writeAppend(tempResult, length(l_xml_body_1), l_xml_body_1);
2939: --End Bug 8933776 30-Nov-2009 barathsr
2940:
2941: -- FND_FILE.put_line( FND_FILE.LOG,'*****end of score details************');
2942: