PACKAGE BODY: APPS.PA_PROJECT_CTX_SEARCH_PKG

Source

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,
6                      x_return_status         OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
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,
16         PROGRAM_ID,
17         PROGRAM_UPDATE_DATE,
18         CREATED_BY,
19         CREATION_DATE,
20         LAST_UPDATED_BY,
21         LAST_UPDATE_DATE,
22         LAST_UPDATE_LOGIN)
23    VALUES
24        (p_project_id,
25         p_ctx_description,
26         null,
27         null,
28         null,
29         null,
30         fnd_global.user_id,
31         sysdate,
32         fnd_global.user_id,
33         sysdate,
34         fnd_global.login_id);
35 
36   x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
46 
47 PROCEDURE UPDATE_ROW(p_project_id            IN  NUMBER,
48                      p_ctx_description       IN  VARCHAR2,
49                      x_return_status         OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
50                      )
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
60   WHERE project_id = p_project_id;
61 
62   x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
72 
73 PROCEDURE DELETE_ROW(p_project_id       IN NUMBER,
74                      x_return_status   OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
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 
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;
92 
93 END PA_PROJECT_CTX_SEARCH_PKG;