34: IF p_commit='T' THEN
35: COMMIT WORK;
36: END IF;
37: -- Standard callto get message count and if count is 1, get message info.
38: FND_MSG_PUB.Count_And_Get
39: ( p_count => x_msg_count,
40: p_data => x_msg_data
41: );
42: EXCEPTION
43:
44: WHEN FND_API.G_EXC_ERROR THEN
45: ROLLBACK TO select_mail_count_PVT;
46: x_return_status := FND_API.G_RET_STS_ERROR ;
47: FND_MSG_PUB.Count_And_Get
48: ( p_count => x_msg_count,
49: p_data => x_msg_data
50: );
51: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
50: );
51: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
52: ROLLBACK TO select_mail_count_PVT;
53: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
54: FND_MSG_PUB.Count_And_Get
55: ( p_count => x_msg_count,
56: p_data => x_msg_data
57: );
58: WHEN OTHERS THEN
57: );
58: WHEN OTHERS THEN
59: ROLLBACK TO select_mail_count_PVT;
60: x_return_status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level
62: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
63: THEN
64: FND_MSG_PUB.Add_Exc_Msg
65: ( G_PKG_NAME ,
58: WHEN OTHERS THEN
59: ROLLBACK TO select_mail_count_PVT;
60: x_return_status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level
62: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
63: THEN
64: FND_MSG_PUB.Add_Exc_Msg
65: ( G_PKG_NAME ,
66: l_api_name
60: x_return_status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level
62: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
63: THEN
64: FND_MSG_PUB.Add_Exc_Msg
65: ( G_PKG_NAME ,
66: l_api_name
67: );
68: END IF;
65: ( G_PKG_NAME ,
66: l_api_name
67: );
68: END IF;
69: FND_MSG_PUB.Count_And_Get
70: ( p_count => x_msg_count ,
71: p_data => x_msg_data
72: );
73:
111: IF p_commit='T' THEN
112: COMMIT WORK;
113: END IF;
114: -- Standard callto get message count and if count is 1, get message info.
115: FND_MSG_PUB.Count_And_Get
116: ( p_count => x_msg_count,
117: p_data => x_msg_data
118: );
119: EXCEPTION
120:
121: WHEN FND_API.G_EXC_ERROR THEN
122: ROLLBACK TO select_mail_count_PVT;
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: );
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
129: ROLLBACK TO select_mail_count_PVT;
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
131: FND_MSG_PUB.Count_And_Get
132: ( p_count => x_msg_count,
133: p_data => x_msg_data
134: );
135: WHEN OTHERS THEN
134: );
135: WHEN OTHERS THEN
136: ROLLBACK TO select_mail_count_PVT;
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
135: WHEN OTHERS THEN
136: ROLLBACK TO select_mail_count_PVT;
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
143: l_api_name
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
143: l_api_name
144: );
145: END IF;
142: ( G_PKG_NAME ,
143: l_api_name
144: );
145: END IF;
146: FND_MSG_PUB.Count_And_Get
147: ( p_count => x_msg_count ,
148: p_data => x_msg_data
149: );
150: end GetClassLists;