45: END IF;
46:
47: -- Initialize message list if p_init_msg_list is set to TRUE.
48: IF FND_API.To_Boolean( p_init_msg_list ) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: -- Initialize API return status to success
53: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: COMMIT WORK;
95: END IF;
96:
97: -- Standard call to get message count and if count is 1, get message info.
98: FND_MSG_PUB.Count_And_Get(
99: p_count => x_msg_count,
100: p_data => x_msg_data );
101:
102: EXCEPTION
103: WHEN FND_API.G_EXC_ERROR THEN
104: ROLLBACK TO INSERT_PRB;
105: x_return_status := FND_API.G_RET_STS_ERROR ;
106:
107: FND_MSG_PUB.Count_And_Get(
108: p_count => x_msg_count,
109: p_data => x_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112: ROLLBACK TO INSERT_PRB;
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
114:
115: FND_MSG_PUB.Count_And_Get(
116: p_count => x_msg_count,
117: p_data => x_msg_data );
118:
119: WHEN OTHERS THEN
119: WHEN OTHERS THEN
120: ROLLBACK TO INSERT_PRB;
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122:
123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
125: END IF;
126:
127: FND_MSG_PUB.Count_And_Get(
120: ROLLBACK TO INSERT_PRB;
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122:
123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
125: END IF;
126:
127: FND_MSG_PUB.Count_And_Get(
128: p_count => x_msg_count,
123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
125: END IF;
126:
127: FND_MSG_PUB.Count_And_Get(
128: p_count => x_msg_count,
129: p_data => x_msg_data );
130:
131: END INSERT_PRB;