16: reports OUT NOCOPY JTF_DIAG_REPORT,
17: reportClob OUT NOCOPY CLOB) IS
18: reportStr LONG;
19: counter NUMBER;
20: dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
21: c_userid VARCHAR2(50);
22: statusStr VARCHAR2(50) := 'SUCCESS';
23: errStr VARCHAR2(4000);
24: errOO1 VARCHAR2(4000);
47:
48: BEGIN
49: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
50: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
51: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
52:
53: select oracle_username into l_schema_owner from fnd_oracle_userid where read_only_flag = 'U';
54:
55: select db_server_id bulk collect into l_db_server_tbl from iem_db_servers;
151: reportStr := '
158:
159: if (errOO2 <> FND_API.G_MISS_CHAR) then
160: errOO2 := RTRIM(errOO2, ', ');
161: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR2') || ' (' || errOO2 || ' )' || ' ';
162: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_SUM2'));
163: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
164: end if;
165: if (errOO3 <> FND_API.G_MISS_CHAR) then
166: errOO3 := RTRIM(errOO3, ', ');
164: end if;
165: if (errOO3 <> FND_API.G_MISS_CHAR) then
166: errOO3 := RTRIM(errOO3, ', ');
167: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR5') || ' (' || errOO3 || ' )' || ' ';
168: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_SUM5'));
169: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
170: end if;
171:
172: if (errOra1 <> FND_API.G_MISS_CHAR) then
171:
172: if (errOra1 <> FND_API.G_MISS_CHAR) then
173: errOra1 := RTRIM(errOra1, ', ');
174: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR3') || ' ';
175: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_SUM3'));
176: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
177: end if;
178: if (errOra2 <> FND_API.G_MISS_CHAR) then
179: errOra2 := RTRIM(errOra2, ', ');
177: end if;
178: if (errOra2 <> FND_API.G_MISS_CHAR) then
179: errOra2 := RTRIM(errOra2, ', ');
180: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR4') || ' (' || errOra2|| ' )' || ' ';
181: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_SUM4'));
182: end if;
183: if (errOra3 <> FND_API.G_MISS_CHAR) then
184: errOra3 := RTRIM(errOra3, ', ');
185: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR6') || ' (' || errOra3|| ' )' || ' ';
182: end if;
183: if (errOra3 <> FND_API.G_MISS_CHAR) then
184: errOra3 := RTRIM(errOra3, ', ');
185: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_ERROR6') || ' (' || errOra3|| ' )' || ' ';
186: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC7_SUM6'));
187: end if;
188: end if;
189:
190: reports := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);