162: BEGIN
163:
164: SAVEPOINT Insert_comments_Main;
165:
166: x_return_status := FND_API.G_RET_STS_SUCCESS;
167: FND_MSG_PUB.initialize;
168:
169: IF x_pincode IS NULL THEN
170: OPEN c_org_party_id(x_party_id,x_portfolio_id);
202: x_ACCESS_TYPE_CODE => x_ACCESS_TYPE_CODE,
203: x_mode => x_mode
204: );
205: EXCEPTION
206: WHEN FND_API.G_EXC_ERROR THEN
207: ROLLBACK TO Insert_comments;
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: END;
210: FETCH c_org_party_id INTO l_org_party_id;
204: );
205: EXCEPTION
206: WHEN FND_API.G_EXC_ERROR THEN
207: ROLLBACK TO Insert_comments;
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: END;
210: FETCH c_org_party_id INTO l_org_party_id;
211: EXIT WHEN c_org_party_id%NOTFOUND;
212: END LOOP;
236:
237: EXCEPTION
238: WHEN apps_exception THEN
239: ROLLBACK TO Insert_comments_Main;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
242: p_data => x_msg_data );
243: WHEN FND_API.G_EXC_ERROR THEN
244: ROLLBACK TO Insert_comments_Main;
239: ROLLBACK TO Insert_comments_Main;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
242: p_data => x_msg_data );
243: WHEN FND_API.G_EXC_ERROR THEN
244: ROLLBACK TO Insert_comments_Main;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
247: p_data => x_msg_data );
241: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
242: p_data => x_msg_data );
243: WHEN FND_API.G_EXC_ERROR THEN
244: ROLLBACK TO Insert_comments_Main;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
247: p_data => x_msg_data );
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249: ROLLBACK TO Insert_comments_Main;
244: ROLLBACK TO Insert_comments_Main;
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
247: p_data => x_msg_data );
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249: ROLLBACK TO Insert_comments_Main;
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
252: p_data => x_msg_data );
246: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
247: p_data => x_msg_data );
248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249: ROLLBACK TO Insert_comments_Main;
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
252: p_data => x_msg_data );
253: WHEN OTHERS THEN
254: ROLLBACK TO Insert_comments_Main;
251: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
252: p_data => x_msg_data );
253: WHEN OTHERS THEN
254: ROLLBACK TO Insert_comments_Main;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
257: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
258: END IF;
259: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,