3216: +-----------------------------------------------------------------------*/
3217: BEGIN
3218: -- LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3219: LOOP
3220: l_end := DBMS_LOB.INSTR (lob_loc => lob_loc, pattern => c_endline, offset => l_start, nth => 1 );
3221: --FND_FILE.put_line( FND_FILE.LOG,'l_end-->'||l_end);
3222: IF (NVL (l_end, 0) < 1) THEN
3223: EXIT;
3224: END IF;
3221: --FND_FILE.put_line( FND_FILE.LOG,'l_end-->'||l_end);
3222: IF (NVL (l_end, 0) < 1) THEN
3223: EXIT;
3224: END IF;
3225: l_one_line := DBMS_LOB.SUBSTR (lob_loc => lob_loc, amount => l_end - l_start, offset => l_start );
3226: --FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
3227: --FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
3228: l_start := l_end + c_endline_len;
3229: --FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
3546: l_xml_header_length := length(l_xml_header);
3547: tempResult := l_xml_header;
3548: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
3549:
3550: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
3551: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
3552: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
3553:
3554: writelog('End gen_xml_header_data_strategy');
3547: tempResult := l_xml_header;
3548: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
3549:
3550: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
3551: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
3552: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
3553:
3554: writelog('End gen_xml_header_data_strategy');
3555:
3548: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
3549:
3550: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
3551: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
3552: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
3553:
3554: writelog('End gen_xml_header_data_strategy');
3555:
3556: EXCEPTION
3870: l_xml_body := l_xml_body ||l_new_line||'';
3871:
3872: writelog('gen_xml_body_strategy, end of constructing body text');
3873:
3874: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
3875: l_seq_no := l_seq_no + 1;
3876:
3877: if p_strategy_status = 'CLOSE' then
3878: l_no_closed_rec := l_no_closed_rec + 1;
4022: l_mou_party_tag := l_new_line||'
4023: l_mou_party_tag := l_mou_party_tag ||l_new_line||'
4024: l_mou_party_tag := l_mou_party_tag ||l_new_line||'
4025: l_mou_party_tag := l_mou_party_tag ||l_new_line||'
4026: dbms_lob.writeAppend(tempResult, length(l_mou_party_tag), l_mou_party_tag);
4027: l_seq_no := l_seq_no + 1;
4028: ELSE -- fetch failed, so exit loop
4029: EXIT;
4030: end if;
4069: l_mou_account_tag := l_mou_account_tag ||l_new_line||'
4070: l_mou_account_tag := l_mou_account_tag ||l_new_line||'
4071: l_mou_account_tag := l_mou_account_tag ||l_new_line||'
4072: l_mou_account_tag := l_mou_account_tag ||l_new_line||'';
4073: dbms_lob.writeAppend(tempResult, length(l_mou_account_tag), l_mou_account_tag);
4074: l_seq_no := l_seq_no + 1;
4075: ELSE -- fetch failed, so exit loop
4076: EXIT;
4077: end if;
4110: l_mou_org_unreg_tag := l_new_line||'
4111: l_mou_org_unreg_tag := l_mou_org_unreg_tag ||l_new_line||'
4112: l_mou_org_unreg_tag := l_mou_org_unreg_tag ||l_new_line||'
4113: l_mou_org_unreg_tag := l_mou_org_unreg_tag ||l_new_line||'
4114: dbms_lob.writeAppend(tempResult, length(l_mou_org_unreg_tag), l_mou_org_unreg_tag);
4115:
4116: l_seq_no := l_seq_no + 1;
4117: end if;
4118:
4124: l_mou_org_tag := l_new_line||'
4125: l_mou_org_tag := l_mou_org_tag ||l_new_line||'
4126: l_mou_org_tag := l_mou_org_tag ||l_new_line||'
4127: l_mou_org_tag := l_mou_org_tag ||l_new_line||'
4128: dbms_lob.writeAppend(tempResult, length(l_mou_org_tag), l_mou_org_tag);
4129:
4130: l_seq_no := l_seq_no + 1;
4131: end if;
4132: ELSE -- fetch failed, so exit loop
4154: l_close_tag := l_close_tag ||l_new_line||'
4155: l_close_tag := l_close_tag ||l_new_line||'
4156: l_close_tag := l_close_tag ||l_new_line||''||l_new_line;
4157:
4158: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
4159: FND_FILE.put_line( FND_FILE.LOG,'Appended close tag to XML data');
4160: --Fnd_File.PUT_line(Fnd_File.OUTPUT,tempResult);
4161: print_clob(lob_loc => tempResult);
4162: FND_FILE.put_line( FND_FILE.LOG,'XML generation is success');