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
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: IF p_resource_id is not null then
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
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: );
97: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
104: WHEN OTHERS THEN
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
111: ( G_PKG_NAME ,
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
111: ( G_PKG_NAME ,
112: l_api_name
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
111: ( G_PKG_NAME ,
112: l_api_name
113: );
114: END IF;
111: ( G_PKG_NAME ,
112: l_api_name
113: );
114: END IF;
115: FND_MSG_PUB.Count_And_Get
116: ( p_count => x_msg_count ,
117: p_data => x_msg_data
118: );
119:
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
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180: IF p_resource_id is not null then
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
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: );
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
231: WHEN OTHERS THEN
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
238: ( G_PKG_NAME,
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
238: ( G_PKG_NAME,
239: l_api_name
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
238: ( G_PKG_NAME,
239: l_api_name
240: );
241: END IF;
238: ( G_PKG_NAME,
239: l_api_name
240: );
241: END IF;
242: FND_MSG_PUB.Count_And_Get
243: ( p_count => x_msg_count,
244: p_data => x_msg_data
245: );
246:
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
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
297: IF p_resource_id is not null then
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
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: );
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
348: WHEN OTHERS THEN
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
355: ( G_PKG_NAME,
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
355: ( G_PKG_NAME,
356: l_api_name
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
355: ( G_PKG_NAME,
356: l_api_name
357: );
358: END IF;
355: ( G_PKG_NAME,
356: l_api_name
357: );
358: END IF;
359: FND_MSG_PUB.Count_And_Get
360: ( p_count => x_msg_count,
361: p_data => x_msg_data
362: );
363:
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
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: );
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
581: WHEN OTHERS THEN
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
588: ( G_PKG_NAME,
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
588: ( G_PKG_NAME,
589: l_api_name
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
588: ( G_PKG_NAME,
589: l_api_name
590: );
591: END IF;
588: ( G_PKG_NAME,
589: l_api_name
590: );
591: END IF;
592: FND_MSG_PUB.Count_And_Get
593: ( p_count => x_msg_count,
594: p_data => x_msg_data
595: );
596:
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
644: x_return_status := FND_API.G_RET_STS_SUCCESS;
645: IF p_email_account_id is not null then
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
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: );
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
686: WHEN OTHERS THEN
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
693: ( G_PKG_NAME,
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
693: ( G_PKG_NAME,
694: l_api_name
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
693: ( G_PKG_NAME,
694: l_api_name
695: );
696: END IF;
693: ( G_PKG_NAME,
694: l_api_name
695: );
696: END IF;
697: FND_MSG_PUB.Count_And_Get
698: ( p_count => x_msg_count,
699: p_data => x_msg_data
700: );
701: