779: BEGIN
780:
781: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
782: -- initialize message list
783: FND_MSG_PUB.initialize;
784: END IF;
785:
786: -- Standard call to check for call compatibility.
787:
1553: RAISE FND_API.G_EXC_ERROR;
1554: END IF;
1555:
1556:
1557: fnd_msg_pub.count_and_get
1558: ( p_count => x_msg_count
1559: , p_data => x_msg_data);
1560:
1561: px_header_rec := l_header_rec;
1625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1626: FND_MESSAGE.SET_NAME('PO', 'PO_UNEXPECTED_EXEC_ERRORS');
1627: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, TRUE);
1628: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, TRUE);
1629: FND_MSG_PUB.ADD;
1630: fnd_msg_pub.count_and_get
1631: ( p_count => x_msg_count
1632: , p_data => x_msg_data);
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1626: FND_MESSAGE.SET_NAME('PO', 'PO_UNEXPECTED_EXEC_ERRORS');
1627: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, TRUE);
1628: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, TRUE);
1629: FND_MSG_PUB.ADD;
1630: fnd_msg_pub.count_and_get
1631: ( p_count => x_msg_count
1632: , p_data => x_msg_data);
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1634:
1635: WHEN OTHERS THEN
1636: FND_MESSAGE.SET_NAME('PO', 'PO_UNEXPECTED_EXEC_ERRORS');
1637: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, TRUE);
1638: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, TRUE);
1639: FND_MSG_PUB.ADD;
1640: fnd_msg_pub.count_and_get
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data);
1643: x_return_status := FND_API.G_RET_STS_ERROR;
1636: FND_MESSAGE.SET_NAME('PO', 'PO_UNEXPECTED_EXEC_ERRORS');
1637: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, TRUE);
1638: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, TRUE);
1639: FND_MSG_PUB.ADD;
1640: fnd_msg_pub.count_and_get
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data);
1643: x_return_status := FND_API.G_RET_STS_ERROR;
1644: