84: END IF;
85:
86: l_stmt_num := 10;
87: /* Initialze variables */
88: DBMS_LOB.createtemporary(l_xml_doc, TRUE);
89:
90: /*Bug 7346254: The following 3 lines of code ensures that XML data generated here uses the right encoding*/
91: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
92: l_xml_header := '';
89:
90: /*Bug 7346254: The following 3 lines of code ensures that XML data generated here uses the right encoding*/
91: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
92: l_xml_header := '';
93: DBMS_LOB.writeappend (l_xml_doc, length(l_xml_header), l_xml_header);
94:
95: DBMS_LOB.createtemporary(l_xml_temp, TRUE);
96: DBMS_LOB.writeappend (l_xml_doc, 8, '
97: FND_MSG_PUB.initialize;
91: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
92: l_xml_header := '';
93: DBMS_LOB.writeappend (l_xml_doc, length(l_xml_header), l_xml_header);
94:
95: DBMS_LOB.createtemporary(l_xml_temp, TRUE);
96: DBMS_LOB.writeappend (l_xml_doc, 8, '
97: FND_MSG_PUB.initialize;
98:
99: /* Add Parameters */
92: l_xml_header := '';
93: DBMS_LOB.writeappend (l_xml_doc, length(l_xml_header), l_xml_header);
94:
95: DBMS_LOB.createtemporary(l_xml_temp, TRUE);
96: DBMS_LOB.writeappend (l_xml_doc, 8, '
98:
99: /* Add Parameters */
100: l_stmt_num := 20;
182: l_stmt_num := 50;
183: DBMS_XMLGEN.getXML (l_ctx, l_xml_temp, DBMS_XMLGEN.none);
184:
185: IF (DBMS_XMLGEN.getNumRowsProcessed(l_ctx) > 0) THEN
186: l_offset := DBMS_LOB.instr (lob_loc => l_xml_temp,
187: pattern => '>',
188: offset => 1,
189: nth => 1);
190: DBMS_LOB.erase (l_xml_temp, l_offset, 1);
186: l_offset := DBMS_LOB.instr (lob_loc => l_xml_temp,
187: pattern => '>',
188: offset => 1,
189: nth => 1);
190: DBMS_LOB.erase (l_xml_temp, l_offset, 1);
191: DBMS_LOB.append (l_xml_doc, l_xml_temp);
192: ELSE
193: DBMS_LOB.writeappend (l_xml_doc, 10, '
194: END IF;
187: pattern => '>',
188: offset => 1,
189: nth => 1);
190: DBMS_LOB.erase (l_xml_temp, l_offset, 1);
191: DBMS_LOB.append (l_xml_doc, l_xml_temp);
192: ELSE
193: DBMS_LOB.writeappend (l_xml_doc, 10, '
194: END IF;
195:
189: nth => 1);
190: DBMS_LOB.erase (l_xml_temp, l_offset, 1);
191: DBMS_LOB.append (l_xml_doc, l_xml_temp);
192: ELSE
193: DBMS_LOB.writeappend (l_xml_doc, 10, '
194: END IF;
195:
196:
197: DBMS_LOB.writeappend (l_xml_doc, 9, '');
193: DBMS_LOB.writeappend (l_xml_doc, 10, '
194: END IF;
195:
196:
197: DBMS_LOB.writeappend (l_xml_doc, 9, '');
198:
199: /* write to output file */
200: l_stmt_num := 60;
201: l_length := nvl(DBMS_LOB.getlength(l_xml_doc), 0);
197: DBMS_LOB.writeappend (l_xml_doc, 9, '');
198:
199: /* write to output file */
200: l_stmt_num := 60;
201: l_length := nvl(DBMS_LOB.getlength(l_xml_doc), 0);
202: l_offset := 1;
203: l_amount := 16383; /*Bug 7346238*/
204:
205: LOOP
203: l_amount := 16383; /*Bug 7346238*/
204:
205: LOOP
206: EXIT WHEN l_length <= 0;
207: DBMS_LOB.read (l_xml_doc, l_amount, l_offset, l_buffer);
208: FND_FILE.PUT (FND_FILE.OUTPUT, l_buffer);
209: l_length := l_length - l_amount;
210: l_offset := l_offset + l_amount;
211: END LOOP;
216: 'Completed writing to output file');
217: END IF;
218:
219: l_stmt_num := 70;
220: DBMS_LOB.FREETEMPORARY (l_xml_doc);
221: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
222:
223: IF (l_pLog) THEN
224: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
332: -- Initialize API return status to success
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:
335: /* Initialize */
336: DBMS_LOB.createtemporary(l_xml_temp, TRUE);
337:
338: /* Get Legal Entity Name */
339: l_stmt_num := 10;
340: SELECT name
418:
419: l_stmt_num := 100;
420: /* Add the XML header as the first line of output. add data to end */
421: IF (DBMS_XMLGEN.getNumRowsProcessed(l_ctx) > 0) THEN
422: l_offset := DBMS_LOB.instr (lob_loc => l_xml_temp,
423: pattern => '>',
424: offset => 1,
425: nth => 1);
426: /*Bug 7346254*/
423: pattern => '>',
424: offset => 1,
425: nth => 1);
426: /*Bug 7346254*/
427: /*DBMS_LOB.copy (x_xml_doc, l_xml_temp, l_offset + 1);
428: DBMS_LOB.writeappend (x_xml_doc, 8, '
429: DBMS_LOB.erase(l_xml_temp, l_offset, 1);
430: DBMS_LOB.append (x_xml_doc, l_xml_temp);
431: END IF;
424: offset => 1,
425: nth => 1);
426: /*Bug 7346254*/
427: /*DBMS_LOB.copy (x_xml_doc, l_xml_temp, l_offset + 1);
428: DBMS_LOB.writeappend (x_xml_doc, 8, '
430: DBMS_LOB.append (x_xml_doc, l_xml_temp);
431: END IF;
432:
425: nth => 1);
426: /*Bug 7346254*/
427: /*DBMS_LOB.copy (x_xml_doc, l_xml_temp, l_offset + 1);
428: DBMS_LOB.writeappend (x_xml_doc, 8, '
429: DBMS_LOB.erase(l_xml_temp, l_offset, 1);
430: DBMS_LOB.append (x_xml_doc, l_xml_temp);
431: END IF;
432:
433: l_stmt_num := 110;
426: /*Bug 7346254*/
427: /*DBMS_LOB.copy (x_xml_doc, l_xml_temp, l_offset + 1);
428: DBMS_LOB.writeappend (x_xml_doc, 8, '
429: DBMS_LOB.erase(l_xml_temp, l_offset, 1);
430: DBMS_LOB.append (x_xml_doc, l_xml_temp);
431: END IF;
432:
433: l_stmt_num := 110;
434: /* close context and free memory */
433: l_stmt_num := 110;
434: /* close context and free memory */
435: DBMS_XMLGEN.closeContext(l_ctx);
436: CLOSE l_ref_cur;
437: DBMS_LOB.FREETEMPORARY (l_xml_temp);
438:
439: -- Standard call to get message count and if count is 1, get message info.
440: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
441: p_data => x_msg_data);