3:
4: G_PKG_NAME CONSTANT varchar2(30) :='IEM_UTILS_PUB';
5:
6: PROCEDURE show_all_accounts (p_api_version_number IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: x_email_account_tbl OUT NOCOPY iem_utils_pub.email_account_tbl,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
4: G_PKG_NAME CONSTANT varchar2(30) :='IEM_UTILS_PUB';
5:
6: PROCEDURE show_all_accounts (p_api_version_number IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: x_email_account_tbl OUT NOCOPY iem_utils_pub.email_account_tbl,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2)
22: BEGIN
23: -- Standard Start of API savepoint
24: SAVEPOINT showAccount;
25: -- Standard call to check for call compatibility.
26: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
27: p_api_version_number,
28: l_api_name,
29: G_PKG_NAME)
30: THEN
27: p_api_version_number,
28: l_api_name,
29: G_PKG_NAME)
30: THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF FND_API.to_Boolean( p_init_msg_list )
35: THEN
30: THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF FND_API.to_Boolean( p_init_msg_list )
35: THEN
36: FND_MSG_PUB.initialize;
37: END IF;
38: -- Initialize API return status to SUCCESS
35: THEN
36: FND_MSG_PUB.initialize;
37: END IF;
38: -- Initialize API return status to SUCCESS
39: x_return_status := FND_API.G_RET_STS_SUCCESS;
40:
41: select email_account_id, account_name, email_user, domain bulk collect into l_account_id_tbl, l_account_name_tbl, l_email_user_tbl, l_domain_tbl from iem_email_accounts
42: where upper(email_user)<>upper('intent') and upper(email_user)<>upper('acknowledgements') order by upper(email_user) ||'@'||upper(domain) asc;
43:
48: x_email_account_tbl(l_index).domain:=l_domain_tbl(l_index);
49: end loop;
50:
51: -- Standard Check Of p_commit.
52: IF FND_API.To_Boolean(p_commit) THEN
53: COMMIT WORK;
54: END IF;
55: -- Standard callto get message count and if count is 1, get message info.
56: FND_MSG_PUB.Count_And_Get
57: ( p_count => x_msg_count,
58: p_data => x_msg_data
59: );
60: EXCEPTION
61: WHEN FND_API.G_EXC_ERROR THEN
62: ROLLBACK TO update_item_PVT;
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: FND_MSG_PUB.Count_And_Get
65: ( p_count => x_msg_count,
59: );
60: EXCEPTION
61: WHEN FND_API.G_EXC_ERROR THEN
62: ROLLBACK TO update_item_PVT;
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: FND_MSG_PUB.Count_And_Get
65: ( p_count => x_msg_count,
66: p_data => x_msg_data
67: );
64: FND_MSG_PUB.Count_And_Get
65: ( p_count => x_msg_count,
66: p_data => x_msg_data
67: );
68: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
69: ROLLBACK TO update_item_PVT;
70: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
71: FND_MSG_PUB.Count_And_Get
72: ( p_count => x_msg_count,
66: p_data => x_msg_data
67: );
68: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
69: ROLLBACK TO update_item_PVT;
70: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
71: FND_MSG_PUB.Count_And_Get
72: ( p_count => x_msg_count,
73: p_data => x_msg_data
74: );
73: p_data => x_msg_data
74: );
75: WHEN OTHERS THEN
76: ROLLBACK TO update_item_PVT;
77: x_return_status := FND_API.G_RET_STS_ERROR;
78: IF FND_MSG_PUB.Check_Msg_Level
79: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80: THEN
81: FND_MSG_PUB.Add_Exc_Msg
113: l_api_version_number number:=1.0;
114: l_time date;
115: BEGIN
116: -- Standard call to check for call compatibility.
117: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
118: p_api_version_number,
119: l_api_name,
120: G_PKG_NAME)
121: THEN
118: p_api_version_number,
119: l_api_name,
120: G_PKG_NAME)
121: THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124: SAVEPOINT select_mail_count_pvt;
125: x_return_status := FND_API.G_RET_STS_SUCCESS;
126: l_counter:=1;
121: THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124: SAVEPOINT select_mail_count_pvt;
125: x_return_status := FND_API.G_RET_STS_SUCCESS;
126: l_counter:=1;
127: IF p_resource_id=0 THEN -- for ALL resources
128: for v1 in c1 loop
129: l_new_count:=0;
176: x_email_count(l_counter).new_count:=l_new_count;
177: x_email_count(l_counter).read_count:=l_read_count;
178: END IF;
179: EXCEPTION
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO select_mail_count_PVT;
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183: FND_MSG_PUB.Count_And_Get
184: ( p_count => x_msg_count,
178: END IF;
179: EXCEPTION
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO select_mail_count_PVT;
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183: FND_MSG_PUB.Count_And_Get
184: ( p_count => x_msg_count,
185: p_data => x_msg_data
186: );
183: FND_MSG_PUB.Count_And_Get
184: ( p_count => x_msg_count,
185: p_data => x_msg_data
186: );
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO select_mail_count_PVT;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190: FND_MSG_PUB.Count_And_Get
191: ( p_count => x_msg_count,
185: p_data => x_msg_data
186: );
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO select_mail_count_PVT;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190: FND_MSG_PUB.Count_And_Get
191: ( p_count => x_msg_count,
192: p_data => x_msg_data
193: );
192: p_data => x_msg_data
193: );
194: WHEN OTHERS THEN
195: ROLLBACK TO select_mail_count_PVT;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: IF FND_MSG_PUB.Check_Msg_Level
198: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
199: THEN
200: FND_MSG_PUB.Add_Exc_Msg
230: cursor c1 is select distinct resource_id from iem_rt_proc_emails
231: where resource_id>0;
232: BEGIN
233: -- Standard call to check for call compatibility.
234: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
235: p_api_version_number,
236: l_api_name,
237: G_PKG_NAME)
238: THEN
235: p_api_version_number,
236: l_api_name,
237: G_PKG_NAME)
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241: SAVEPOINT select_mail_count_pvt;
242: x_return_status := FND_API.G_RET_STS_SUCCESS;
243:
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241: SAVEPOINT select_mail_count_pvt;
242: x_return_status := FND_API.G_RET_STS_SUCCESS;
243:
244:
245:
246: FOR j in p_tbl.FIRST..p_tbl.LAST LOOP
277: x_email_count(l_counter).resource_id:=p_resource_id;
278: x_email_count(l_counter).count:=l_new_count_1;
279: END IF;
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: ROLLBACK TO select_mail_count_PVT;
283: x_return_status := FND_API.G_RET_STS_ERROR ;
284: FND_MSG_PUB.Count_And_Get
285: ( p_count => x_msg_count,
279: END IF;
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: ROLLBACK TO select_mail_count_PVT;
283: x_return_status := FND_API.G_RET_STS_ERROR ;
284: FND_MSG_PUB.Count_And_Get
285: ( p_count => x_msg_count,
286: p_data => x_msg_data
287: );
284: FND_MSG_PUB.Count_And_Get
285: ( p_count => x_msg_count,
286: p_data => x_msg_data
287: );
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: ROLLBACK TO select_mail_count_PVT;
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: FND_MSG_PUB.Count_And_Get
292: ( p_count => x_msg_count,
286: p_data => x_msg_data
287: );
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: ROLLBACK TO select_mail_count_PVT;
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: FND_MSG_PUB.Count_And_Get
292: ( p_count => x_msg_count,
293: p_data => x_msg_data
294: );
293: p_data => x_msg_data
294: );
295: WHEN OTHERS THEN
296: ROLLBACK TO select_mail_count_PVT;
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: IF FND_MSG_PUB.Check_Msg_Level
299: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
300: THEN
301: FND_MSG_PUB.Add_Exc_Msg