113: IF p_commit='T' THEN
114: COMMIT WORK;
115: END IF;
116: -- Standard callto get message count and if count is 1, get message info.
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121: EXCEPTION
121: EXCEPTION
122: WHEN FND_API.G_EXC_ERROR THEN
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: rollback to IEM_SUGG_PVT;
125: FND_MSG_PUB.Count_And_Get
126: ( p_count => x_msg_count,
127: p_data => x_msg_data
128: );
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: );
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
131: rollback to IEM_SUGG_PVT;
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => x_msg_count,
134: p_data => x_msg_data
135: );
136: WHEN OTHERS THEN
135: );
136: WHEN OTHERS THEN
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: rollback to IEM_SUGG_PVT;
139: IF FND_MSG_PUB.Check_Msg_Level
140: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
141: THEN
142: FND_MSG_PUB.Add_Exc_Msg
143: ( G_PKG_NAME ,
136: WHEN OTHERS THEN
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: rollback to IEM_SUGG_PVT;
139: IF FND_MSG_PUB.Check_Msg_Level
140: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
141: THEN
142: FND_MSG_PUB.Add_Exc_Msg
143: ( G_PKG_NAME ,
144: l_api_name
138: rollback to IEM_SUGG_PVT;
139: IF FND_MSG_PUB.Check_Msg_Level
140: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
141: THEN
142: FND_MSG_PUB.Add_Exc_Msg
143: ( G_PKG_NAME ,
144: l_api_name
145: );
146: END IF;
143: ( G_PKG_NAME ,
144: l_api_name
145: );
146: END IF;
147: FND_MSG_PUB.Count_And_Get
148: ( p_count => x_msg_count ,
149: p_data => x_msg_data
150: );
151: