87:
88: if (l_server_group_count = 0 or l_db_count = 0 or l_oo_count = 0 or l_oraoffice_count = 0 or l_apps_count = 0 or l_imap_count = 0
89: or l_smtp_count = 0 or l_a_account_count = 0 or l_i_account_count = 0 or l_cust_prof_null or l_resource_prof_null) then
90: statusStr := 'FAILURE';
91: fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
92: isFatal := 'TRUE';
93: end if; -- (l_count = 0)
94:
95:
';
93: end if; -- (l_count = 0)
94:
95:
96: if (statusStr = 'SUCCESS') then
97: reportStr := ' ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUCCESS') || '
';
98: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
99: else
100: reportStr := '
100: reportStr := '
101:
102: -- Server Group
103: if (l_server_group_count = 0) then
104: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR1') || ' ';
105: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM1') );
106: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
107: end if;
108:
109: -- Database Server
107: end if;
108:
109: -- Database Server
110: if (l_db_count = 0) then
111: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR2') || ' ';
112: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM2') );
113: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
114: end if;
115:
108:
109: -- Database Server
110: if (l_db_count = 0) then
111: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR2') || ' ';
112: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM2') );
113: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
114: end if;
115:
116: -- Database Links
114: end if;
115:
116: -- Database Links
117: if (l_oo_count = 0) then
118: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR3') || ' ';
119: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM3') );
120: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
121: end if;
122: if (l_oraoffice_count = 0) then
115:
116: -- Database Links
117: if (l_oo_count = 0) then
118: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR3') || ' ';
119: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM3') );
120: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
121: end if;
122: if (l_oraoffice_count = 0) then
123: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR4') || ' ';
119: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM3') );
120: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
121: end if;
122: if (l_oraoffice_count = 0) then
123: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR4') || ' ';
124: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM4') );
125: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
126: end if;
127: if (l_apps_count = 0) then
120: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
121: end if;
122: if (l_oraoffice_count = 0) then
123: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR4') || ' ';
124: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM4') );
125: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
126: end if;
127: if (l_apps_count = 0) then
128: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR5') || ' ';
124: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM4') );
125: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
126: end if;
127: if (l_apps_count = 0) then
128: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR5') || ' ';
129: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM5') );
130: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
131: end if;
132:
125: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
126: end if;
127: if (l_apps_count = 0) then
128: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR5') || ' ';
129: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM5') );
130: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
131: end if;
132:
133: -- Email Servers
131: end if;
132:
133: -- Email Servers
134: if (l_imap_count = 0) then
135: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR6') || ' ';
136: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM6') );
137: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
138: end if;
139: if (l_smtp_count = 0) then
132:
133: -- Email Servers
134: if (l_imap_count = 0) then
135: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR6') || ' ';
136: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM6') );
137: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
138: end if;
139: if (l_smtp_count = 0) then
140: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR7') || ' ';
136: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM6') );
137: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
138: end if;
139: if (l_smtp_count = 0) then
140: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR7') || ' ';
141: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM7') );
142: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
143: end if;
144:
137: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
138: end if;
139: if (l_smtp_count = 0) then
140: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR7') || ' ';
141: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM7') );
142: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
143: end if;
144:
145: -- Email Account
143: end if;
144:
145: -- Email Account
146: if (l_a_account_count = 0) then
147: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR8') || ' ';
148: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM8') );
149: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
150: end if;
151: if (l_i_account_count = 0) then
144:
145: -- Email Account
146: if (l_a_account_count = 0) then
147: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR8') || ' ';
148: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM8') );
149: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
150: end if;
151: if (l_i_account_count = 0) then
152: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR9') || ' ';
148: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM8') );
149: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
150: end if;
151: if (l_i_account_count = 0) then
152: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR9') || ' ';
153: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM9') );
154: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
155: end if;
156:
149: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
150: end if;
151: if (l_i_account_count = 0) then
152: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR9') || ' ';
153: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM9') );
154: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
155: end if;
156:
157: -- Profile
155: end if;
156:
157: -- Profile
158: if (l_cust_prof_null) then
159: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR10') || ' ';
160: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM10') );
161: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
162: end if;
163: if (l_resource_prof_null) then
156:
157: -- Profile
158: if (l_cust_prof_null) then
159: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR10') || ' ';
160: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM10') );
161: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
162: end if;
163: if (l_resource_prof_null) then
164: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR11') || ' ';
160: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM10') );
161: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
162: end if;
163: if (l_resource_prof_null) then
164: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR11') || ' ';
165: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM11') );
166: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
167: end if;
168: end if;
161: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
162: end if;
163: if (l_resource_prof_null) then
164: errStr := errStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_ERROR11') || ' ';
165: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint( FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUM11') );
166: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
167: end if;
168: end if;
169:
172: END runTest;
173:
174: PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
175: BEGIN
176: name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_COMPONENT5');
177: END getComponentName;
178:
179: PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
180: BEGIN
177: END getComponentName;
178:
179: PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
180: BEGIN
181: descStr := '
';
182:
183: END getTestDesc;
184:
185: PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
183: END getTestDesc;
184:
185: PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
186: BEGIN
187: name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TESTCASE_NAME10');
188: END getTestName;
189:
190: FUNCTION getTestMode RETURN INTEGER IS
191: BEGIN