2: /* $Header: iempactb.pls 120.9 2006/05/03 15:30:44 rtripath ship $ */
3: G_PKG_NAME CONSTANT varchar2(30) :='IEM_EMAILACCOUNT_PUB ';
4:
5: PROCEDURE Get_EmailAccount_List (p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8: p_RESOURCE_ID IN NUMBER:=null,
9: x_return_status OUT NOCOPY VARCHAR2,
10: x_msg_count OUT NOCOPY NUMBER,
3: G_PKG_NAME CONSTANT varchar2(30) :='IEM_EMAILACCOUNT_PUB ';
4:
5: PROCEDURE Get_EmailAccount_List (p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8: p_RESOURCE_ID IN NUMBER:=null,
9: x_return_status OUT NOCOPY VARCHAR2,
10: x_msg_count OUT NOCOPY NUMBER,
11: x_msg_data OUT NOCOPY VARCHAR2,
35: BEGIN
36: -- Standard Start of API savepoint
37: SAVEPOINT Get_EmailAccount_List_PUB;
38: -- Standard call to check for call compatibility.
39: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
40: p_api_version_number,
41: l_api_name,
42: G_PKG_NAME)
43: THEN
40: p_api_version_number,
41: l_api_name,
42: G_PKG_NAME)
43: THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: END IF;
46: -- Initialize message list if p_init_msg_list is set to TRUE.
47: IF FND_API.to_Boolean( p_init_msg_list )
48: THEN
43: THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: END IF;
46: -- Initialize message list if p_init_msg_list is set to TRUE.
47: IF FND_API.to_Boolean( p_init_msg_list )
48: THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51: -- Initialize API return status to SUCCESS
48: THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51: -- Initialize API return status to SUCCESS
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: IF p_resource_id is not null then
54: FOR c_email_rec in email_details_csr
55: LOOP
56: -- x_Email_Acnt_tbl(l_email_index).server_id:=c_email_rec.mail_server_id;
77:
78: END LOOP;
79: END IF;
80: -- Standard Check Of p_commit.
81: IF FND_API.To_Boolean(p_commit) THEN
82: COMMIT WORK;
83: END IF;
84: -- Standard callto get message count and if count is 1, get message info.
85: FND_MSG_PUB.Count_And_Get
86: ( p_count => x_msg_count,
87: p_data => x_msg_data
88: );
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: ROLLBACK TO Get_EmailAccount_List_PUB;
92: x_return_status := FND_API.G_RET_STS_ERROR ;
93: FND_MSG_PUB.Count_And_Get
94: ( p_count => x_msg_count,
88: );
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: ROLLBACK TO Get_EmailAccount_List_PUB;
92: x_return_status := FND_API.G_RET_STS_ERROR ;
93: FND_MSG_PUB.Count_And_Get
94: ( p_count => x_msg_count,
95: p_data => x_msg_data
96: );
93: FND_MSG_PUB.Count_And_Get
94: ( p_count => x_msg_count,
95: p_data => x_msg_data
96: );
97: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
98: ROLLBACK TO Get_EmailAccount_List_PUB;
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
100: FND_MSG_PUB.Count_And_Get
101: ( p_count => x_msg_count,
95: p_data => x_msg_data
96: );
97: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
98: ROLLBACK TO Get_EmailAccount_List_PUB;
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
100: FND_MSG_PUB.Count_And_Get
101: ( p_count => x_msg_count,
102: p_data => x_msg_data
103: );
102: p_data => x_msg_data
103: );
104: WHEN OTHERS THEN
105: ROLLBACK TO Get_EmailAccount_List_PUB;
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: IF FND_MSG_PUB.Check_Msg_Level
108: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
109: THEN
110: FND_MSG_PUB.Add_Exc_Msg
162: BEGIN
163: -- Standard Start of API savepoint
164: SAVEPOINT ListAgentAccounts_PUB;
165: -- Standard call to check for call compatibility.
166: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
167: p_api_version_number,
168: l_api_name,
169: G_PKG_NAME)
170: THEN
167: p_api_version_number,
168: l_api_name,
169: G_PKG_NAME)
170: THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173: -- Initialize message list if p_init_msg_list is set to TRUE.
174: IF FND_API.to_Boolean( p_init_msg_list )
175: THEN
170: THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173: -- Initialize message list if p_init_msg_list is set to TRUE.
174: IF FND_API.to_Boolean( p_init_msg_list )
175: THEN
176: FND_MSG_PUB.initialize;
177: END IF;
178: -- Initialize API return status to SUCCESS
175: THEN
176: FND_MSG_PUB.initialize;
177: END IF;
178: -- Initialize API return status to SUCCESS
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180: IF p_resource_id is not null then
181: FOR agent_account_rec in agent_accounts_csr
182: LOOP
183: SELECT USER_NAME, SOURCE_LAST_NAME || ', ' || SOURCE_FIRST_NAME as RESOURCE_NAME
204:
205: END LOOP;
206: END IF;
207: -- Standard Check Of p_commit.
208: IF FND_API.To_Boolean(p_commit) THEN
209: COMMIT WORK;
210: END IF;
211: -- Standard callto get message count and if count is 1, get message info.
212: FND_MSG_PUB.Count_And_Get
213: ( p_count => x_msg_count,
214: p_data => x_msg_data
215: );
216: EXCEPTION
217: WHEN FND_API.G_EXC_ERROR THEN
218: ROLLBACK TO ListAgentAccounts_PUB;
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: FND_MSG_PUB.Count_And_Get
221: ( p_count => x_msg_count,
215: );
216: EXCEPTION
217: WHEN FND_API.G_EXC_ERROR THEN
218: ROLLBACK TO ListAgentAccounts_PUB;
219: x_return_status := FND_API.G_RET_STS_ERROR ;
220: FND_MSG_PUB.Count_And_Get
221: ( p_count => x_msg_count,
222: p_data => x_msg_data
223: );
220: FND_MSG_PUB.Count_And_Get
221: ( p_count => x_msg_count,
222: p_data => x_msg_data
223: );
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: ROLLBACK TO ListAgentAccounts_PUB;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
222: p_data => x_msg_data
223: );
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: ROLLBACK TO ListAgentAccounts_PUB;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );
229: p_data => x_msg_data
230: );
231: WHEN OTHERS THEN
232: ROLLBACK TO ListAgentAccounts_PUB;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: IF FND_MSG_PUB.Check_Msg_Level
235: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
236: THEN
237: FND_MSG_PUB.Add_Exc_Msg
246:
247: END ListAgentAccounts;
248:
249: PROCEDURE ListAgentAccountDetails (p_api_version_number IN NUMBER,
250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
251: p_commit IN VARCHAR2 := FND_API.G_FALSE,
252: p_EMAIL_ACCOUNT_ID IN NUMBER,
253: p_ROLEid IN NUMBER:=-1,
254: p_Resource_id IN NUMBER:=-1,
247: END ListAgentAccounts;
248:
249: PROCEDURE ListAgentAccountDetails (p_api_version_number IN NUMBER,
250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
251: p_commit IN VARCHAR2 := FND_API.G_FALSE,
252: p_EMAIL_ACCOUNT_ID IN NUMBER,
253: p_ROLEid IN NUMBER:=-1,
254: p_Resource_id IN NUMBER:=-1,
255: p_search_criteria IN VARCHAR2:=null,
291: BEGIN
292: -- Standard Start of API savepoint
293: SAVEPOINT ListAgentAccountDetails_PUB;
294: -- Standard call to check for call compatibility.
295: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
296: p_api_version_number,
297: l_api_name,
298: G_PKG_NAME)
299: THEN
296: p_api_version_number,
297: l_api_name,
298: G_PKG_NAME)
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301: END IF;
302: SAVEPOINT ListAgentAccountDetails_pvt;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301: END IF;
302: SAVEPOINT ListAgentAccountDetails_pvt;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: l_where:=' AND agnt.email_account_id= :email_account_id';
306: IF p_search_criteria is not null THEN
307: l_where:= l_where||' and (upper(res.source_last_name) like upper(:search_criteria) or upper(res.source_first_name) like upper(:search_criteria) or upper(res.user_name) like upper(:search_criteria)) ';
436: END IF;
437: END IF;
438:
439: -- Standard Check Of p_commit.
440: IF FND_API.To_Boolean(p_commit) THEN
441: COMMIT WORK;
442: END IF;
443: -- Standard callto get message count and if count is 1, get message info.
444: FND_MSG_PUB.Count_And_Get
445: ( p_count => x_msg_count,
446: p_data => x_msg_data
447: );
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: ROLLBACK TO ListAgentAccountDetails_PUB;
451: x_return_status := FND_API.G_RET_STS_ERROR ;
452: FND_MSG_PUB.Count_And_Get
453: ( p_count => x_msg_count,
447: );
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: ROLLBACK TO ListAgentAccountDetails_PUB;
451: x_return_status := FND_API.G_RET_STS_ERROR ;
452: FND_MSG_PUB.Count_And_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
452: FND_MSG_PUB.Count_And_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: ROLLBACK TO ListAgentAccountDetails_PUB;
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
459: FND_MSG_PUB.Count_And_Get
460: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: ROLLBACK TO ListAgentAccountDetails_PUB;
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
459: FND_MSG_PUB.Count_And_Get
460: ( p_count => x_msg_count,
461: p_data => x_msg_data
462: );
461: p_data => x_msg_data
462: );
463: WHEN OTHERS THEN
464: ROLLBACK TO ListAgentAccountDetails_PUB;
465: x_return_status := FND_API.G_RET_STS_ERROR;
466: IF FND_MSG_PUB.Check_Msg_Level
467: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
468: THEN
469: FND_MSG_PUB.Add_Exc_Msg
478:
479: END ListAgentAccountDetails;
480:
481: PROCEDURE ListAccountDetails (p_api_version_number IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
483: p_commit IN VARCHAR2 := FND_API.G_FALSE,
484: p_EMAIL_ACCOUNT_ID IN NUMBER :=null,
485: x_return_status OUT NOCOPY VARCHAR2,
486: x_msg_count OUT NOCOPY NUMBER,
479: END ListAgentAccountDetails;
480:
481: PROCEDURE ListAccountDetails (p_api_version_number IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
483: p_commit IN VARCHAR2 := FND_API.G_FALSE,
484: p_EMAIL_ACCOUNT_ID IN NUMBER :=null,
485: x_return_status OUT NOCOPY VARCHAR2,
486: x_msg_count OUT NOCOPY NUMBER,
487: x_msg_data OUT NOCOPY VARCHAR2,
508: BEGIN
509: -- Standard Start of API savepoint
510: SAVEPOINT ListAccountDetails_PUB;
511: -- Standard call to check for call compatibility.
512: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
513: p_api_version_number,
514: l_api_name,
515: G_PKG_NAME)
516: THEN
513: p_api_version_number,
514: l_api_name,
515: G_PKG_NAME)
516: THEN
517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
518: END IF;
519: -- Initialize message list if p_init_msg_list is set to TRUE.
520: IF FND_API.to_Boolean( p_init_msg_list )
521: THEN
516: THEN
517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
518: END IF;
519: -- Initialize message list if p_init_msg_list is set to TRUE.
520: IF FND_API.to_Boolean( p_init_msg_list )
521: THEN
522: FND_MSG_PUB.initialize;
523: END IF;
524: -- Initialize API return status to SUCCESS
521: THEN
522: FND_MSG_PUB.initialize;
523: END IF;
524: -- Initialize API return status to SUCCESS
525: x_return_status := FND_API.G_RET_STS_SUCCESS;
526: IF p_email_account_id is not null then
527: FOR account_det_rec in account_details_csr
528: LOOP
529: x_Acnt_Details_tbl(l_email_index).account_name:=account_det_rec.from_name;
539:
540: END LOOP;
541: END IF;
542: -- Standard Check Of p_commit.
543: IF FND_API.To_Boolean(p_commit) THEN
544: COMMIT WORK;
545: END IF;
546: -- Standard callto get message count and if count is 1, get message info.
547: FND_MSG_PUB.Count_And_Get
548: ( p_count => x_msg_count,
549: p_data => x_msg_data
550: );
551: EXCEPTION
552: WHEN FND_API.G_EXC_ERROR THEN
553: ROLLBACK TO ListAccountDetails_PUB;
554: x_return_status := FND_API.G_RET_STS_ERROR ;
555: FND_MSG_PUB.Count_And_Get
556: ( p_count => x_msg_count,
550: );
551: EXCEPTION
552: WHEN FND_API.G_EXC_ERROR THEN
553: ROLLBACK TO ListAccountDetails_PUB;
554: x_return_status := FND_API.G_RET_STS_ERROR ;
555: FND_MSG_PUB.Count_And_Get
556: ( p_count => x_msg_count,
557: p_data => x_msg_data
558: );
555: FND_MSG_PUB.Count_And_Get
556: ( p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO ListAccountDetails_PUB;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
562: FND_MSG_PUB.Count_And_Get
563: ( p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO ListAccountDetails_PUB;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
562: FND_MSG_PUB.Count_And_Get
563: ( p_count => x_msg_count,
564: p_data => x_msg_data
565: );
564: p_data => x_msg_data
565: );
566: WHEN OTHERS THEN
567: ROLLBACK TO ListAccountDetails_PUB;
568: x_return_status := FND_API.G_RET_STS_ERROR;
569: IF FND_MSG_PUB.Check_Msg_Level
570: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
571: THEN
572: FND_MSG_PUB.Add_Exc_Msg