45: l_chunk_size := 3000;
46:
47: WHILE (l_clob_size > 0) LOOP
48: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
49: fnd_file.put
50: (which => fnd_file.output
51: ,buff => l_chunk);
52:
53: l_clob_size := l_clob_size - l_chunk_size;
46:
47: WHILE (l_clob_size > 0) LOOP
48: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
49: fnd_file.put
50: (which => fnd_file.output
51: ,buff => l_chunk);
52:
53: l_clob_size := l_clob_size - l_chunk_size;
54: l_offset := l_offset + l_chunk_size;
53: l_clob_size := l_clob_size - l_chunk_size;
54: l_offset := l_offset + l_chunk_size;
55: END LOOP;
56:
57: fnd_file.new_line(fnd_file.output,1);
58:
59: EXCEPTION
60: WHEN OTHERS THEN
61: APP_EXCEPTION.RAISE_EXCEPTION;
67: l_encoding varchar2(30);
68: BEGIN
69:
70: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
71: fnd_file.put_line(fnd_file.output, '');
72: fnd_file.new_line(fnd_file.output,1);
73:
74: EXCEPTION
75:
68: BEGIN
69:
70: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
71: fnd_file.put_line(fnd_file.output, '');
72: fnd_file.new_line(fnd_file.output,1);
73:
74: EXCEPTION
75:
76: WHEN OTHERS then
81:
82: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
83: BEGIN
84:
85: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
86: fnd_file.new_line(fnd_file.output,1);
87:
88: EXCEPTION
89:
82: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
83: BEGIN
84:
85: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
86: fnd_file.new_line(fnd_file.output,1);
87:
88: EXCEPTION
89:
90: WHEN OTHERS then
94:
95: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
96: BEGIN
97:
98: fnd_file.put_line(fnd_file.output, '');
99: fnd_file.new_line(fnd_file.output,1);
100:
101: EXCEPTION
102:
95: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
96: BEGIN
97:
98: fnd_file.put_line(fnd_file.output, '');
99: fnd_file.new_line(fnd_file.output,1);
100:
101: EXCEPTION
102:
103: WHEN OTHERS then
108: PROCEDURE put_element(tag_name IN VARCHAR2,
109: value IN VARCHAR2) IS
110: BEGIN
111:
112: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
113: fnd_file.put(fnd_file.output, '
114: fnd_file.put(fnd_file.output, value);
115: fnd_file.put(fnd_file.output, ']]>');
116: fnd_file.put_line(fnd_file.output, '');
109: value IN VARCHAR2) IS
110: BEGIN
111:
112: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
113: fnd_file.put(fnd_file.output, '
114: fnd_file.put(fnd_file.output, value);
115: fnd_file.put(fnd_file.output, ']]>');
116: fnd_file.put_line(fnd_file.output, '');
117:
110: BEGIN
111:
112: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
113: fnd_file.put(fnd_file.output, '
114: fnd_file.put(fnd_file.output, value);
115: fnd_file.put(fnd_file.output, ']]>');
116: fnd_file.put_line(fnd_file.output, '');
117:
118:
111:
112: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
113: fnd_file.put(fnd_file.output, '
114: fnd_file.put(fnd_file.output, value);
115: fnd_file.put(fnd_file.output, ']]>');
116: fnd_file.put_line(fnd_file.output, '');
117:
118:
119: EXCEPTION
112: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
113: fnd_file.put(fnd_file.output, '
114: fnd_file.put(fnd_file.output, value);
115: fnd_file.put(fnd_file.output, ']]>');
116: fnd_file.put_line(fnd_file.output, '');
117:
118:
119: EXCEPTION
120: