1: PACKAGE BODY PA_PROJECT_CTX_SEARCH_PKG
2: -- $Header: PAXPCXTB.pls 120.1 2005/08/19 17:16:25 mwasowic noship $
3: AS
4: PROCEDURE INSERT_ROW(p_project_id in NUMBER,
5: p_ctx_description in VARCHAR2,
7: )
8: IS
9: BEGIN
10:
11: INSERT INTO PA_PROJECT_CTX_SEARCH
12: (PROJECT_ID,
13: CTX_DESCRIPTION,
14: PROGRAM_REQUEST_ID,
15: PROGRAM_APPLICATION_ID,
37:
38: EXCEPTION
39: WHEN OTHERS THEN
40: -- Set the exception Message and the stack
41: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_CTX_SEARCH_PKG',
42: p_procedure_name => 'INSERT_ROW' );
43: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
44: RAISE;
45: END INSERT_ROW;
51:
52: IS
53: BEGIN
54:
55: UPDATE PA_PROJECT_CTX_SEARCH
56: SET CTX_DESCRIPTION = p_ctx_description,
57: LAST_UPDATE_DATE = sysdate,
58: LAST_UPDATED_BY = fnd_global.user_id,
59: LAST_UPDATE_LOGIN = fnd_global.login_id
63:
64: EXCEPTION
65: WHEN OTHERS THEN
66: -- Set the exception Message and the stack
67: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_CTX_SEARCH_PKG',
68: p_procedure_name => 'UPDATE_ROW' );
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE;
71: END UPDATE_ROW;
75: )
76: IS
77: BEGIN
78:
79: DELETE FROM pa_project_ctx_search
80: WHERE project_id = p_project_id;
81:
82: x_return_status := FND_API.G_RET_STS_SUCCESS;
83:
83:
84: EXCEPTION
85: WHEN OTHERS THEN
86: -- Set the exception Message and the stack
87: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_CTX_SEARCH_PKG',
88: p_procedure_name => 'DELETE_ROW' );
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: RAISE;
91: END DELETE_ROW;
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: RAISE;
91: END DELETE_ROW;
92:
93: END PA_PROJECT_CTX_SEARCH_PKG;