[Home] [Help]
PACKAGE BODY: APPS.IEM_DIAG_EMC_SETUP_PVT
Source
1 PACKAGE BODY IEM_DIAG_EMC_SETUP_PVT AS
2 /* $Header: iemdsetb.pls 115.1 2003/10/10 00:34:26 chtang noship $ */
3
4 PROCEDURE init IS
5 BEGIN
6 null;
7 END init;
8
9
10 PROCEDURE cleanup IS
11 BEGIN
12 null;
13 END cleanup;
14
15 PROCEDURE runTest(inputs IN JTF_DIAG_INPUTTBL,
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 l_server_group_count number := 0;
25 l_db_count number := 0;
26 l_oo_count number := 0;
27 l_oraoffice_count number := 0;
28 l_apps_count number := 0;
29 l_imap_count number := 0;
30 l_smtp_count number := 0;
31 l_a_account_count number := 0;
32 l_i_account_count number := 0;
33 fixInfo VARCHAR2(4000);
34 isFatal VARCHAR2(50);
35 dummy_num NUMBER;
36 l_db_link iem_db_connections.db_link%type;
37 l_db_name iem_db_servers.db_name%type;
38 l_db_server_tbl jtf_varchar2_Table_100:=jtf_varchar2_Table_100();
39 l_count number;
40 l_link_count number;
41 l_search_dblink VARCHAR2(129);
42 l_global_name VARCHAR2(240);
43 l_cust_prof_null boolean := false;
44 l_resource_prof_null boolean := false;
45 link_not_correct EXCEPTION;
46
47 TYPE LinkCur Is REF CURSOR;
48 l_link_cur LinkCur;
49 l_statement VARCHAR2(2000);
50
51 BEGIN
52 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
53 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
54 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
55
56 errStr := '';
57 fixInfo := '';
58
59 -- Server Group
60 select count(*) into l_server_group_count from iem_server_groups;
61
62 -- Database Server
63 select count(*) into l_db_count from iem_db_servers;
64
65 -- Database Links
66 select count(*) into l_oo_count from iem_db_connections where is_admin='A';
67 select count(*) into l_oraoffice_count from iem_db_connections where is_admin='P';
68 select count(*) into l_apps_count from iem_db_connections where is_admin='O';
69
70 -- Email Servers
71 select count(*) into l_imap_count from iem_email_servers where server_type_id=10001;
72 select count(*) into l_smtp_count from iem_email_servers where server_type_id=10002;
73
74 -- Email Accounts
75 select count(*) into l_a_account_count from iem_email_accounts where account_flag = 'A';
76 select count(*) into l_i_account_count from iem_email_accounts where account_flag = 'I';
77
78 -- Check if user has entered an default customer number in Profile
79 if (FND_PROFILE.VALUE('IEM_DEFAULT_CUSTOMER_NUMBER') is null or FND_PROFILE.VALUE('IEM_DEFAULT_CUSTOMER_ID') is null) then
80 l_cust_prof_null := true;
81 end if;
82
83 -- Check if user has entered an default resource number in Profile
84 if (FND_PROFILE.VALUE('IEM_SRVR_ARES') is null or FND_PROFILE.VALUE('IEM_DEFAULT_RESOURCE_NUMBER') is null) then
85 l_resource_prof_null := true;
86 end if;
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
96 if (statusStr = 'SUCCESS') then
97 reportStr := '<font color=blue> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_SUCCESS') || ' </font><p>';
98 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
99 else
100 reportStr := '<hr>';
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
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
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') || ' ';
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
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') || ' ';
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
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') || ' ';
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
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') || ' ';
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
170 reports := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
171 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
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
181 descStr := '<ul><li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_DESC1') || ' <li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC10_DESC2') || '</ul>';
182
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
192 return JTF_DIAGNOSTIC_ADAPTUTIL.BOTH_MODE;
193 END getTestMode;
194
195 PROCEDURE getDefaultTestParams(defaultInputvalues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
196 tempInput JTF_DIAG_INPUTTBL;
197 BEGIN
198 null;
199 END getDefaultTestParams;
200
201 END;