Line 47: if ((nvl(g_use_utl_file, 'N')='Y') and (l_app_short_name is null)) then
43: END IF;
44:
45: -- Get schema
46: l_app_short_name := FND_GLOBAL.APPLICATION_SHORT_NAME; 47: if ((nvl(g_use_utl_file, 'N')='Y') and (l_app_short_name is null)) then 48: l_app_short_name :='OFA';
49: end if;
50: if not (fnd_installation.get_app_info (
51: application_short_name => l_app_short_name,
1043: --
1044: -- writes output to out file.
1045: --
1046: PROCEDURE save_output(p_calling_prog IN VARCHAR2, 1047: p_use_utl_file IN VARCHAR2, 1048: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
1049:
1050: utl_file_dir VARCHAR2(2000);
1051: outfile UTL_FILE.FILE_TYPE;
Line 1050: utl_file_dir VARCHAR2(2000);
1046: PROCEDURE save_output(p_calling_prog IN VARCHAR2,
1047: p_use_utl_file IN VARCHAR2,
1048: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
1049: 1050: utl_file_dir VARCHAR2(2000); 1051: outfile UTL_FILE.FILE_TYPE;
1052: l_filename VARCHAR2(30);
1053: l_position NUMBER(10);
1054: l_length NUMBER(10);
Line 1051: outfile UTL_FILE.FILE_TYPE;
1047: p_use_utl_file IN VARCHAR2,
1048: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
1049:
1050: utl_file_dir VARCHAR2(2000); 1051: outfile UTL_FILE.FILE_TYPE; 1052: l_filename VARCHAR2(30);
1053: l_position NUMBER(10);
1054: l_length NUMBER(10);
1055: l_cursor c_stmt;
Line 1092: if (p_use_utl_file = 'Y') then
1088:
1089:
'||l_title||'
1090:
';
1091: 1092: if (p_use_utl_file = 'Y') then 1093: if (substr(p_calling_prog,1,7)='FATRACE') then
1094: --this is being called by the sla subrequest
1095: --if p_calling_prog is changed, change above condition
1096: l_filename := 'GTUSLA_'||replace(ltrim(rtrim(l_primary_col)),' ','_') || '_' || replace(l_sec_col,' ','_') ||'.html';
Line 1107: if (p_use_utl_file = 'Y') then
1103: end if;
1104:
1105: l_header := l_header||g_temp_head; --add banner area content.
1106: 1107: if (p_use_utl_file = 'Y') then 1108: UTL_FILE.PUT_LINE(g_outfile, l_header);
1109: else
1110: fnd_file.put(FND_FILE.OUTPUT, l_header);
1111: end if;
Line 1108: UTL_FILE.PUT_LINE(g_outfile, l_header);
1104:
1105: l_header := l_header||g_temp_head; --add banner area content.
1106:
1107: if (p_use_utl_file = 'Y') then 1108: UTL_FILE.PUT_LINE(g_outfile, l_header); 1109: else
1110: fnd_file.put(FND_FILE.OUTPUT, l_header);
1111: end if;
1112:
Line 1117: if (p_use_utl_file = 'Y') then
1113: build_anchors(g_anchor_tbl);
1114:
1115: l_cnt := g_output_tbl.first + 1; --do this to control the spot for table anchors
1116: 1117: if (p_use_utl_file = 'Y') then 1118: UTL_FILE.PUT_LINE(g_outfile,g_anchor);
1119: FOR i IN g_output_tbl.first .. g_output_tbl.last LOOP
1120: UTL_FILE.PUT_LINE(g_outfile,g_output_tbl(i));
1121: --UTL_FILE.NEW_LINE(g_outfile,1);
Line 1118: UTL_FILE.PUT_LINE(g_outfile,g_anchor);
1114:
1115: l_cnt := g_output_tbl.first + 1; --do this to control the spot for table anchors
1116:
1117: if (p_use_utl_file = 'Y') then 1118: UTL_FILE.PUT_LINE(g_outfile,g_anchor); 1119: FOR i IN g_output_tbl.first .. g_output_tbl.last LOOP
1120: UTL_FILE.PUT_LINE(g_outfile,g_output_tbl(i));
1121: --UTL_FILE.NEW_LINE(g_outfile,1);
1122: END LOOP;
Line 1120: UTL_FILE.PUT_LINE(g_outfile,g_output_tbl(i));
1116:
1117: if (p_use_utl_file = 'Y') then
1118: UTL_FILE.PUT_LINE(g_outfile,g_anchor);
1119: FOR i IN g_output_tbl.first .. g_output_tbl.last LOOP 1120: UTL_FILE.PUT_LINE(g_outfile,g_output_tbl(i)); 1121: --UTL_FILE.NEW_LINE(g_outfile,1);
1122: END LOOP;
1123: else
1124: fnd_file.put(FND_FILE.OUTPUT,g_anchor);
Line 1121: --UTL_FILE.NEW_LINE(g_outfile,1);
1117: if (p_use_utl_file = 'Y') then
1118: UTL_FILE.PUT_LINE(g_outfile,g_anchor);
1119: FOR i IN g_output_tbl.first .. g_output_tbl.last LOOP
1120: UTL_FILE.PUT_LINE(g_outfile,g_output_tbl(i)); 1121: --UTL_FILE.NEW_LINE(g_outfile,1); 1122: END LOOP;
1123: else
1124: fnd_file.put(FND_FILE.OUTPUT,g_anchor);
1125: FOR i IN g_output_tbl.first .. g_output_tbl.last LOOP
Line 1140: if p_use_utl_file = 'Y' then
1136: l_tmp_tbl:=g_no_rec_tbl(i);
1137: END IF;
1138: END LOOP;
1139: l_no_rec := substr(l_no_rec, 1, length(l_no_rec) -4)||'
'; 1140: if p_use_utl_file = 'Y' then 1141: UTL_FILE.PUT_LINE(g_outfile,l_no_rec);
1142: else
1143: fnd_file.put(FND_FILE.OUTPUT,l_no_rec);
1144: end if;
Line 1141: UTL_FILE.PUT_LINE(g_outfile,l_no_rec);
1137: END IF;
1138: END LOOP;
1139: l_no_rec := substr(l_no_rec, 1, length(l_no_rec) -4)||'';
1140: if p_use_utl_file = 'Y' then 1141: UTL_FILE.PUT_LINE(g_outfile,l_no_rec); 1142: else
1143: fnd_file.put(FND_FILE.OUTPUT,l_no_rec);
1144: end if;
1145:
Line 1148: if (p_use_utl_file = 'Y') then
1144: end if;
1145:
1146: END IF;
1147: 1148: if (p_use_utl_file = 'Y') then 1149: UTL_FILE.PUT_LINE(g_outfile,'