[Home] [Help]
PACKAGE BODY: APPS.IEM_DIAG_CREATE_ACCOUNT_PVT
Source
1 PACKAGE BODY IEM_DIAG_CREATE_ACCOUNT_PVT AS
2 /* $Header: iemdactb.pls 115.3 2003/10/10 00:33:38 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 c_domain VARCHAR2(100);
23 statusStr VARCHAR2(50) := 'SUCCESS';
24 errStr VARCHAR2(4000);
25 fixInfo VARCHAR2(4000);
26 isFatal VARCHAR2(50);
27 l_accounts varchar2(5000);
28 l_db_link iem_db_connections.db_link%type;
29 l_db_name iem_db_servers.db_name%type;
30 l_db_server_tbl jtf_varchar2_Table_100:=jtf_varchar2_Table_100();
31 l_count number;
32 l_link_count number;
33
34 l_db_server_rec iem_db_servers%rowtype;
35 l_account_rec iem_diag_oes_rule_pvt.account_type;
36 Type get_account_rec is REF CURSOR ;
37 email_account_cur get_account_rec;
38 l_str VARCHAR2(5000);
39 l_ret NUMBER;
40 l_stat varchar2(10);
41 l_data varchar2(255);
42 l_im_link varchar2(200);
43 l_im_link1 varchar2(200);
44 l_ret number:=0;
45 l_ret1 BINARY_INTEGER:=0;
46 rpc_error EXCEPTION;
47 rpc_error2 EXCEPTION;
48 PRAGMA EXCEPTION_INIT(rpc_error, -28576);
49 PRAGMA EXCEPTION_INIT(rpc_error2, -28575);
50
51 BEGIN
52 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
53 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
54 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
55
56 FND_MSG_PUB.initialize;
57
58 c_userid := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM6'), inputs);
59 c_domain := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM7'), inputs);
60
61 select count(*) into l_count from iem_db_servers;
62
63 if (l_count = 0) then
64 statusStr := 'FAILURE';
65 errStr := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_ERROR1');
66 fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
67 reportStr := reportStr || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM5') || '</font><br>';
68 isFatal := 'FALSE';
69 elsif (l_count > 1) then
70 statusStr := 'FAILURE';
71 errStr := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_ERROR1');
72 reportStr := reportStr || '<font color=red> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM4') || '</font><br>';
73 fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
74 isFatal := 'FALSE';
75
76 else
77
78 select * into l_db_server_rec from iem_db_servers;
79
80 IEM_DB_CONNECTIONS_PVT.select_item(
81 p_api_version_number =>1.0,
82 p_db_server_id =>l_db_server_rec.db_server_id,
83 p_is_admin =>'A',
84 x_db_link=>l_im_link1,
85 x_return_status =>l_stat,
86 x_msg_count => l_count,
87 x_msg_data => l_data);
88
89
90 If l_im_link1 is null then
91 l_im_link:=null;
92 else
93 l_im_link:='@'||l_im_link1;
94 end if;
95
96 l_str:='begin dapls.acct_create'||l_im_link||'(:p_admin_id, :p_admin_pass, :p_oes_database, :p_domain, :p_account_id, :p_account_first, :p_account_last, :p_account_pass, :p_node, :l_ret1);end; ';
97
98 EXECUTE IMMEDIATE l_str using l_db_server_rec.admin_user, l_db_server_rec.admin_password, l_db_server_rec.sid, c_domain, c_userid, c_userid, c_userid, 'welcome', l_db_server_rec.email_node,IN OUT l_ret1;
99 if l_ret1=0 then
100 reportStr := reportStr || '<font color=blue> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUCCESS') || ' </font><br>';
101 else
102 statusStr := 'FAILURE';
103 errStr := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_ERROR') || l_ret1;
104 reportStr := reportStr || '<font color=red> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM1') || '<br>' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM2') || '<br>'
105 || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM3') || ' </font><br>';
106 fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
107 isFatal := 'FALSE';
108 end if;
109
110
111 end if; -- l_count = 0
112
113 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
114 reports := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
115 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
116
117 EXCEPTION
118 WHEN OTHERS THEN
119 statusStr := 'FAILURE';
120 isFatal := 'FALSE';
121 errStr := SQLERRM;
122 reportStr := reportStr || '<font color=red> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM1') || '<br>' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM2') || '<br>'
123 || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM3') || '<br>';
124 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
125 reports := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
126 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
127
128 END runTest;
129
130
131 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
132 BEGIN
133 name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_COMPONENT1');
134 END getComponentName;
135
136 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
137 BEGIN
138 descStr := '<ul><li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_DESC') || ' <li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_DESC1') || ' </ul>';
139 END getTestDesc;
140
141 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
142 BEGIN
143 name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TESTCASE_NAME1');
144 END getTestName;
145
146 FUNCTION getTestMode RETURN INTEGER IS
147 BEGIN
148 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
149 END getTestMode;
150
151
152 PROCEDURE getDefaultTestParams(defaultInputvalues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
153 tempInput JTF_DIAG_INPUTTBL;
154 BEGIN
155 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
156 tempInput :=
157 JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM6'),'');
158 tempInput :=
159 JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC1_SUM7'),'');
160 defaultInputValues := tempInput;
161 EXCEPTION
162 WHEN OTHERS THEN
163 defaultInputvalues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
164
165 null;
166 END getDefaultTestParams;
167
168 END;