2: /* $Header: iempactb.pls 120.11 2011/12/25 17:17:57 lkullamb 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
279: BEGIN
280: -- Standard Start of API savepoint
281: SAVEPOINT ListAgentCPAccounts_PUB;
282: -- Standard call to check for call compatibility.
283: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
284: p_api_version_number,
285: l_api_name,
286: G_PKG_NAME)
287: THEN
284: p_api_version_number,
285: l_api_name,
286: G_PKG_NAME)
287: THEN
288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
289: END IF;
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF FND_API.to_Boolean( p_init_msg_list )
292: THEN
287: THEN
288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
289: END IF;
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF FND_API.to_Boolean( p_init_msg_list )
292: THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295: -- Initialize API return status to SUCCESS
292: THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295: -- Initialize API return status to SUCCESS
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
297: IF p_resource_id is not null then
298: FOR agent_account_rec in agent_accounts_csr
299: LOOP
300: SELECT USER_NAME, SOURCE_LAST_NAME || ', ' || SOURCE_FIRST_NAME as RESOURCE_NAME
321:
322: END LOOP;
323: END IF;
324: -- Standard Check Of p_commit.
325: IF FND_API.To_Boolean(p_commit) THEN
326: COMMIT WORK;
327: END IF;
328: -- Standard callto get message count and if count is 1, get message info.
329: FND_MSG_PUB.Count_And_Get
330: ( p_count => x_msg_count,
331: p_data => x_msg_data
332: );
333: EXCEPTION
334: WHEN FND_API.G_EXC_ERROR THEN
335: ROLLBACK TO ListAgentCPAccounts_PUB;
336: x_return_status := FND_API.G_RET_STS_ERROR ;
337: FND_MSG_PUB.Count_And_Get
338: ( p_count => x_msg_count,
332: );
333: EXCEPTION
334: WHEN FND_API.G_EXC_ERROR THEN
335: ROLLBACK TO ListAgentCPAccounts_PUB;
336: x_return_status := FND_API.G_RET_STS_ERROR ;
337: FND_MSG_PUB.Count_And_Get
338: ( p_count => x_msg_count,
339: p_data => x_msg_data
340: );
337: FND_MSG_PUB.Count_And_Get
338: ( p_count => x_msg_count,
339: p_data => x_msg_data
340: );
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: ROLLBACK TO ListAgentCPAccounts_PUB;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
344: FND_MSG_PUB.Count_And_Get
345: ( p_count => x_msg_count,
339: p_data => x_msg_data
340: );
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: ROLLBACK TO ListAgentCPAccounts_PUB;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
344: FND_MSG_PUB.Count_And_Get
345: ( p_count => x_msg_count,
346: p_data => x_msg_data
347: );
346: p_data => x_msg_data
347: );
348: WHEN OTHERS THEN
349: ROLLBACK TO ListAgentCPAccounts_PUB;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: IF FND_MSG_PUB.Check_Msg_Level
352: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
353: THEN
354: FND_MSG_PUB.Add_Exc_Msg
364: END ListAgentCPAccounts;
365: -- 12.1.2 Development. Bug 8829918
366:
367: PROCEDURE ListAgentAccountDetails (p_api_version_number IN NUMBER,
368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
370: p_EMAIL_ACCOUNT_ID IN NUMBER,
371: p_ROLEid IN NUMBER:=-1,
372: p_Resource_id IN NUMBER:=-1,
365: -- 12.1.2 Development. Bug 8829918
366:
367: PROCEDURE ListAgentAccountDetails (p_api_version_number IN NUMBER,
368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
370: p_EMAIL_ACCOUNT_ID IN NUMBER,
371: p_ROLEid IN NUMBER:=-1,
372: p_Resource_id IN NUMBER:=-1,
373: p_search_criteria IN VARCHAR2:=null,
409: BEGIN
410: -- Standard Start of API savepoint
411: SAVEPOINT ListAgentAccountDetails_PUB;
412: -- Standard call to check for call compatibility.
413: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
414: p_api_version_number,
415: l_api_name,
416: G_PKG_NAME)
417: THEN
414: p_api_version_number,
415: l_api_name,
416: G_PKG_NAME)
417: THEN
418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: END IF;
420: SAVEPOINT ListAgentAccountDetails_pvt;
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422:
417: THEN
418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: END IF;
420: SAVEPOINT ListAgentAccountDetails_pvt;
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422:
423: l_where:=' AND agnt.email_account_id= :email_account_id';
424: IF p_search_criteria is not null THEN
425: 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)) ';
554: END IF;
555: END IF;
556:
557: -- Standard Check Of p_commit.
558: IF FND_API.To_Boolean(p_commit) THEN
559: COMMIT WORK;
560: END IF;
561: -- Standard callto get message count and if count is 1, get message info.
562: FND_MSG_PUB.Count_And_Get
563: ( p_count => x_msg_count,
564: p_data => x_msg_data
565: );
566: EXCEPTION
567: WHEN FND_API.G_EXC_ERROR THEN
568: ROLLBACK TO ListAgentAccountDetails_PUB;
569: x_return_status := FND_API.G_RET_STS_ERROR ;
570: FND_MSG_PUB.Count_And_Get
571: ( p_count => x_msg_count,
565: );
566: EXCEPTION
567: WHEN FND_API.G_EXC_ERROR THEN
568: ROLLBACK TO ListAgentAccountDetails_PUB;
569: x_return_status := FND_API.G_RET_STS_ERROR ;
570: FND_MSG_PUB.Count_And_Get
571: ( p_count => x_msg_count,
572: p_data => x_msg_data
573: );
570: FND_MSG_PUB.Count_And_Get
571: ( p_count => x_msg_count,
572: p_data => x_msg_data
573: );
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: ROLLBACK TO ListAgentAccountDetails_PUB;
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
577: FND_MSG_PUB.Count_And_Get
578: ( p_count => x_msg_count,
572: p_data => x_msg_data
573: );
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: ROLLBACK TO ListAgentAccountDetails_PUB;
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
577: FND_MSG_PUB.Count_And_Get
578: ( p_count => x_msg_count,
579: p_data => x_msg_data
580: );
579: p_data => x_msg_data
580: );
581: WHEN OTHERS THEN
582: ROLLBACK TO ListAgentAccountDetails_PUB;
583: x_return_status := FND_API.G_RET_STS_ERROR;
584: IF FND_MSG_PUB.Check_Msg_Level
585: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
586: THEN
587: FND_MSG_PUB.Add_Exc_Msg
596:
597: END ListAgentAccountDetails;
598:
599: PROCEDURE ListAccountDetails (p_api_version_number IN NUMBER,
600: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
601: p_commit IN VARCHAR2 := FND_API.G_FALSE,
602: p_EMAIL_ACCOUNT_ID IN NUMBER :=null,
603: x_return_status OUT NOCOPY VARCHAR2,
604: x_msg_count OUT NOCOPY NUMBER,
597: END ListAgentAccountDetails;
598:
599: PROCEDURE ListAccountDetails (p_api_version_number IN NUMBER,
600: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
601: p_commit IN VARCHAR2 := FND_API.G_FALSE,
602: p_EMAIL_ACCOUNT_ID IN NUMBER :=null,
603: x_return_status OUT NOCOPY VARCHAR2,
604: x_msg_count OUT NOCOPY NUMBER,
605: x_msg_data OUT NOCOPY VARCHAR2,
627: BEGIN
628: -- Standard Start of API savepoint
629: SAVEPOINT ListAccountDetails_PUB;
630: -- Standard call to check for call compatibility.
631: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
632: p_api_version_number,
633: l_api_name,
634: G_PKG_NAME)
635: THEN
632: p_api_version_number,
633: l_api_name,
634: G_PKG_NAME)
635: THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: END IF;
638: -- Initialize message list if p_init_msg_list is set to TRUE.
639: IF FND_API.to_Boolean( p_init_msg_list )
640: THEN
635: THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: END IF;
638: -- Initialize message list if p_init_msg_list is set to TRUE.
639: IF FND_API.to_Boolean( p_init_msg_list )
640: THEN
641: FND_MSG_PUB.initialize;
642: END IF;
643: -- Initialize API return status to SUCCESS
640: THEN
641: FND_MSG_PUB.initialize;
642: END IF;
643: -- Initialize API return status to SUCCESS
644: x_return_status := FND_API.G_RET_STS_SUCCESS;
645: IF p_email_account_id is not null then
646: FOR account_det_rec in account_details_csr
647: LOOP
648: x_Acnt_Details_tbl(l_email_index).account_name:=account_det_rec.from_name;
659:
660: END LOOP;
661: END IF;
662: -- Standard Check Of p_commit.
663: IF FND_API.To_Boolean(p_commit) THEN
664: COMMIT WORK;
665: END IF;
666: -- Standard callto get message count and if count is 1, get message info.
667: FND_MSG_PUB.Count_And_Get
668: ( p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO ListAccountDetails_PUB;
674: x_return_status := FND_API.G_RET_STS_ERROR ;
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count,
670: );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO ListAccountDetails_PUB;
674: x_return_status := FND_API.G_RET_STS_ERROR ;
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count,
677: p_data => x_msg_data
678: );
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count,
677: p_data => x_msg_data
678: );
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: ROLLBACK TO ListAccountDetails_PUB;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: FND_MSG_PUB.Count_And_Get
683: ( p_count => x_msg_count,
677: p_data => x_msg_data
678: );
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: ROLLBACK TO ListAccountDetails_PUB;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: FND_MSG_PUB.Count_And_Get
683: ( p_count => x_msg_count,
684: p_data => x_msg_data
685: );
684: p_data => x_msg_data
685: );
686: WHEN OTHERS THEN
687: ROLLBACK TO ListAccountDetails_PUB;
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: IF FND_MSG_PUB.Check_Msg_Level
690: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg