46: l_sent_date iem_arch_msgdtls.sent_date%type;
47: l_Str1 varchar2(500);
48: BEGIN
49: -- Standard call to check for call compatibility.
50: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
51: p_api_version_number,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
51: p_api_version_number,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: SAVEPOINT select_mail_count_pvt;
58: IF p_email_queue <> 'I' THEN -- Search non draft message
59:
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177: EXCEPTION
178: WHEN FND_API.G_EXC_ERROR THEN
179: ROLLBACK TO select_mail_count_pvt;
180: x_return_status := FND_API.G_RET_STS_ERROR ;
181: FND_MSG_PUB.Count_And_Get
182: ( p_count => x_msg_count,
176: );
177: EXCEPTION
178: WHEN FND_API.G_EXC_ERROR THEN
179: ROLLBACK TO select_mail_count_pvt;
180: x_return_status := FND_API.G_RET_STS_ERROR ;
181: FND_MSG_PUB.Count_And_Get
182: ( p_count => x_msg_count,
183: p_data => x_msg_data
184: );
181: FND_MSG_PUB.Count_And_Get
182: ( p_count => x_msg_count,
183: p_data => x_msg_data
184: );
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO select_mail_count_pvt;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
188: FND_MSG_PUB.Count_And_Get
189: ( p_count => x_msg_count,
183: p_data => x_msg_data
184: );
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO select_mail_count_pvt;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
188: FND_MSG_PUB.Count_And_Get
189: ( p_count => x_msg_count,
190: p_data => x_msg_data
191: );
190: p_data => x_msg_data
191: );
192: WHEN OTHERS THEN
193: ROLLBACK TO select_mail_count_pvt;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: IF FND_MSG_PUB.Check_Msg_Level
196: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
197: THEN
198: FND_MSG_PUB.Add_Exc_Msg