1062: ,p_rate_date => l_rate_date
1063: ,p_array_sql => l_array_sql);
1064:
1065: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
1066: fnd_file.put_line(fnd_file.output, '');
1067: fnd_file.put_line(fnd_file.output, '
1068:
1069: FOR i IN 1..l_array_sql.COUNT LOOP
1070: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
1063: ,p_array_sql => l_array_sql);
1064:
1065: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
1066: fnd_file.put_line(fnd_file.output, '');
1067: fnd_file.put_line(fnd_file.output, '
1069: FOR i IN 1..l_array_sql.COUNT LOOP
1070: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
1071: trace
1103: ,p_level =>C_LEVEL_EVENT
1104: ,p_module=>l_log_module);
1105: END IF;
1106:
1107: fnd_file.put_line(fnd_file.log, l_array_sql(i));
1108: fnd_file.put_line(fnd_file.log, ' ');
1109: fnd_file.put_line(fnd_file.log, '+===========================================================================+');
1110: fnd_file.put_line(fnd_file.log, ' ');
1111:
1104: ,p_module=>l_log_module);
1105: END IF;
1106:
1107: fnd_file.put_line(fnd_file.log, l_array_sql(i));
1108: fnd_file.put_line(fnd_file.log, ' ');
1109: fnd_file.put_line(fnd_file.log, '+===========================================================================+');
1110: fnd_file.put_line(fnd_file.log, ' ');
1111:
1112: IF i = 2 -- Summary query
1105: END IF;
1106:
1107: fnd_file.put_line(fnd_file.log, l_array_sql(i));
1108: fnd_file.put_line(fnd_file.log, ' ');
1109: fnd_file.put_line(fnd_file.log, '+===========================================================================+');
1110: fnd_file.put_line(fnd_file.log, ' ');
1111:
1112: IF i = 2 -- Summary query
1113:
1106:
1107: fnd_file.put_line(fnd_file.log, l_array_sql(i));
1108: fnd_file.put_line(fnd_file.log, ' ');
1109: fnd_file.put_line(fnd_file.log, '+===========================================================================+');
1110: fnd_file.put_line(fnd_file.log, ' ');
1111:
1112: IF i = 2 -- Summary query
1113:
1114: THEN
1111:
1112: IF i = 2 -- Summary query
1113:
1114: THEN
1115: fnd_file.put_line(fnd_file.output, '
1117: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1118: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_SUMMARY_ROWSET');
1119: DBMS_XMLGEN.setRowTag(l_ctx, 'G_SUMMARY_ROW');
1127:
1128: ELSIF i = 3
1129:
1130: THEN
1131: fnd_file.put_line(fnd_file.output, '
1133: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1134: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_JRNLSOURCE_ROWSET');
1135: DBMS_XMLGEN.setRowTag(l_ctx, 'G_JRNLSOURCE_ROW');
1136:
1137: ELSIF i = 4
1138:
1139: THEN
1140: fnd_file.put_line(fnd_file.output, '
1142: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1143: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_JRNLDETAILS_ROWSET');
1144: DBMS_XMLGEN.setRowTag(l_ctx, 'G_JOURNAL_ROW');
1145:
1146: ELSIF i = 5
1147:
1148: THEN
1149: fnd_file.put_line(fnd_file.output, '
1151: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1152: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_SLADETAILS_ROWSET');
1153: DBMS_XMLGEN.setRowTag(l_ctx, 'G_SLA_ROW');
1155:
1156: ELSIF i = 6
1157:
1158: THEN
1159: fnd_file.put_line(fnd_file.output, '
1161: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1162: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_JRNLSOURCE_UNMATCHED_ROWSET');
1163: DBMS_XMLGEN.setRowTag(l_ctx, 'G_JRNLSOURCE_UNMATCHED_ROW');
1163: DBMS_XMLGEN.setRowTag(l_ctx, 'G_JRNLSOURCE_UNMATCHED_ROW');
1164:
1165: ELSIF i = 7
1166: THEN
1167: fnd_file.put_line(fnd_file.output, '
1169: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1170: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_JRNLDETAILS_UNMATCHED_ROWSET');
1171: DBMS_XMLGEN.setRowTag(l_ctx, 'G_JOURNAL_UNMATCHED_ROW');
1172:
1173: ELSIF i = 8
1174:
1175: THEN
1176: fnd_file.put_line(fnd_file.output, '
1178: l_ctx := DBMS_XMLGEN.newContext(l_array_sql(i));
1179: DBMS_XMLGEN.setRowSetTag(l_ctx,'G_SLADETAILS_UNMATCHED_ROWSET');
1180: DBMS_XMLGEN.setRowTag(l_ctx, 'G_SLA_UNMATCHED_ROW');
1194: END IF;
1195:
1196: IF l_xml_clob IS NULL THEN
1197: IF i = 2 THEN
1198: fnd_file.put_line(fnd_file.output, '');
1199: ELSIF i = 3 THEN
1200: fnd_file.put_line(fnd_file.output, '');
1201: ELSIF i = 4 THEN
1202: fnd_file.put_line(fnd_file.output, '');
1196: IF l_xml_clob IS NULL THEN
1197: IF i = 2 THEN
1198: fnd_file.put_line(fnd_file.output, '');
1199: ELSIF i = 3 THEN
1200: fnd_file.put_line(fnd_file.output, '');
1201: ELSIF i = 4 THEN
1202: fnd_file.put_line(fnd_file.output, '');
1203: ELSIF i = 5 THEN
1204: fnd_file.put_line(fnd_file.output, '');
1198: fnd_file.put_line(fnd_file.output, '');
1199: ELSIF i = 3 THEN
1200: fnd_file.put_line(fnd_file.output, '');
1201: ELSIF i = 4 THEN
1202: fnd_file.put_line(fnd_file.output, '');
1203: ELSIF i = 5 THEN
1204: fnd_file.put_line(fnd_file.output, '');
1205: ELSIF i = 6 THEN
1206: fnd_file.put_line(fnd_file.output, '');
1200: fnd_file.put_line(fnd_file.output, '');
1201: ELSIF i = 4 THEN
1202: fnd_file.put_line(fnd_file.output, '');
1203: ELSIF i = 5 THEN
1204: fnd_file.put_line(fnd_file.output, '');
1205: ELSIF i = 6 THEN
1206: fnd_file.put_line(fnd_file.output, '');
1207: ELSIF i = 7 THEN
1208: fnd_file.put_line(fnd_file.output, '');
1202: fnd_file.put_line(fnd_file.output, '');
1203: ELSIF i = 5 THEN
1204: fnd_file.put_line(fnd_file.output, '');
1205: ELSIF i = 6 THEN
1206: fnd_file.put_line(fnd_file.output, '');
1207: ELSIF i = 7 THEN
1208: fnd_file.put_line(fnd_file.output, '');
1209: ELSIF i = 8 THEN
1210: fnd_file.put_line(fnd_file.output, '');
1204: fnd_file.put_line(fnd_file.output, '');
1205: ELSIF i = 6 THEN
1206: fnd_file.put_line(fnd_file.output, '');
1207: ELSIF i = 7 THEN
1208: fnd_file.put_line(fnd_file.output, '');
1209: ELSIF i = 8 THEN
1210: fnd_file.put_line(fnd_file.output, '');
1211: END IF;
1212: END IF;
1206: fnd_file.put_line(fnd_file.output, '');
1207: ELSIF i = 7 THEN
1208: fnd_file.put_line(fnd_file.output, '');
1209: ELSIF i = 8 THEN
1210: fnd_file.put_line(fnd_file.output, '');
1211: END IF;
1212: END IF;
1213:
1214: fun_recon_rpt_pkg.clob_to_file
1214: fun_recon_rpt_pkg.clob_to_file
1215: (p_xml_clob => l_xml_clob);
1216: END LOOP;
1217:
1218: fnd_file.put_line(fnd_file.output, '');
1219:
1220: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
1221: trace
1222: (p_msg =>'run_fun_report.End'
1922: l_chunk_size := 3000;
1923:
1924: WHILE (l_clob_size > 0) LOOP
1925: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
1926: fnd_file.put
1927: (which => fnd_file.output
1928: ,buff => l_chunk);
1929:
1930: l_clob_size := l_clob_size - l_chunk_size;
1923:
1924: WHILE (l_clob_size > 0) LOOP
1925: l_chunk := dbms_lob.substr (p_xml_clob, l_chunk_size, l_offset);
1926: fnd_file.put
1927: (which => fnd_file.output
1928: ,buff => l_chunk);
1929:
1930: l_clob_size := l_clob_size - l_chunk_size;
1931: l_offset := l_offset + l_chunk_size;
1930: l_clob_size := l_clob_size - l_chunk_size;
1931: l_offset := l_offset + l_chunk_size;
1932: END LOOP;
1933:
1934: fnd_file.new_line(fnd_file.output,1);
1935:
1936: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
1937: trace
1938: (p_msg => 'END of procedure CLOB_TO_FILE'