1: PACKAGE BODY PA_PROJECTS_UPDATE_PKG as
2: /* $Header: PAYRPK2B.pls 120.2 2005/08/19 17:24:19 mwasowic noship $ */
3:
4: --
5: -- Procedure : Insert_row
63: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64: x_msg_count := FND_MSG_PUB.Count_Msg;
65: x_msg_data := substr(SQLERRM,1,240);
66:
67: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECTS_UPDATE_PKG',
68: p_procedure_name => 'insert_row');
69:
70: IF x_msg_count = 1 THEN
71: pa_interface_utils_pub.get_messages
85:
86: END insert_row;
87:
88:
89: END PA_PROJECTS_UPDATE_PKG;