[Home] [Help]
PACKAGE BODY: APPS.PA_PROJ_OPP_ATTRS_PKG
Source
1 PACKAGE BODY PA_PROJ_OPP_ATTRS_PKG as
2 /* $Header: PAYOPKGB.pls 120.1 2005/08/19 17:23:36 mwasowic noship $ */
3
4 --
5 -- Procedure : Insert_row
6 -- Purpose : Create a Row in PA_PROJECT_OPP_ATTRS.
7 --
8 --
9 PROCEDURE insert_row
10 ( p_project_id IN NUMBER,
11 p_opportunity_value IN NUMBER,
12 p_opp_value_currency_code IN VARCHAR2,
13 p_projfunc_opp_value IN NUMBER,
14 p_projfunc_opp_rate_type IN VARCHAR2,
15 p_projfunc_opp_rate_date IN DATE,
16 p_project_opp_value IN NUMBER,
17 p_project_opp_rate_type IN VARCHAR2,
18 p_project_opp_rate_date IN DATE,
19 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
20 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
21 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
22 IS
23
24 BEGIN
25 x_return_status := FND_API.G_RET_STS_SUCCESS;
26
27 INSERT INTO pa_project_opp_attrs
28 ( project_id ,
29 opportunity_value ,
30 opp_value_currency_code ,
31 projfunc_opp_value ,
32 projfunc_opp_rate_type ,
33 projfunc_opp_rate_date ,
34 project_opp_value ,
35 project_opp_rate_type ,
36 project_opp_rate_date ,
37 creation_date ,
38 created_by ,
39 last_update_date ,
40 last_updated_by ,
41 last_update_login )
42 VALUES
43 ( p_project_id ,
44 p_opportunity_value ,
45 p_opp_value_currency_code ,
46 p_projfunc_opp_value ,
47 p_projfunc_opp_rate_type ,
48 p_projfunc_opp_rate_date ,
49 p_project_opp_value ,
50 p_project_opp_rate_type ,
51 p_project_opp_rate_date ,
52 sysdate ,
53 fnd_global.user_id ,
54 sysdate ,
55 fnd_global.user_id ,
56 fnd_global.login_id );
57
58 EXCEPTION
59 WHEN OTHERS THEN
60 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
61 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_OPP_ATTRS_PKG',
62 p_procedure_name => 'insert_row');
63 raise;
64
65 END insert_row;
66
67
68 --
69 -- Procedure : delete_row
70 -- Purpose : Delete a row in pa_project_opp_attrs.
71 --
72 --
73 PROCEDURE delete_row
74 ( p_project_id IN NUMBER ,
75 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
76 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
77 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
78 IS
79
80 BEGIN
81 x_return_status := FND_API.G_RET_STS_SUCCESS;
82
83 DELETE FROM pa_project_opp_attrs
84 WHERE project_id = p_project_id;
85
86 EXCEPTION
87 WHEN OTHERS THEN
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_OPP_ATTRS_PKG',
90 p_procedure_name => 'delete_row');
91 raise;
92
93 END delete_row;
94
95
96 --
97 -- Procedure : update_row
98 -- Purpose : Update a row in pa_project_opp_attrs.
99 --
100 --
101 PROCEDURE update_row
102 ( p_project_id IN NUMBER ,
103 p_opportunity_value IN NUMBER,
104 p_opp_value_currency_code IN VARCHAR2,
105 p_projfunc_opp_value IN NUMBER,
106 p_projfunc_opp_rate_type IN VARCHAR2,
107 p_projfunc_opp_rate_date IN DATE,
108 p_project_opp_value IN NUMBER,
109 p_project_opp_rate_type IN VARCHAR2,
110 p_project_opp_rate_date IN DATE,
111 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
112 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
113 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
114 IS
115
116 BEGIN
117 x_return_status := FND_API.G_RET_STS_SUCCESS;
118
119 UPDATE pa_project_opp_attrs
120 SET
121 opportunity_value = p_opportunity_value,
122 opp_value_currency_code = p_opp_value_currency_code,
123 projfunc_opp_value = p_projfunc_opp_value,
124 projfunc_opp_rate_type = p_projfunc_opp_rate_type,
125 projfunc_opp_rate_date = p_projfunc_opp_rate_date,
126 project_opp_value = p_project_opp_value,
127 project_opp_rate_type = p_project_opp_rate_type,
128 project_opp_rate_date = p_project_opp_rate_date
129 WHERE
130 project_id = p_project_id;
131
132 -- Update pa_projects_all.project_value = p_projfunc_opp_value.
133 UPDATE PA_PROJECTS_ALL
134 SET project_value = p_projfunc_opp_value
135 WHERE project_id = p_project_id;
136
137 EXCEPTION
138 WHEN OTHERS THEN
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_OPP_ATTRS_PKG',
141 p_procedure_name => 'update_row');
142 raise;
143
144 END update_row;
145
146
147 END PA_PROJ_OPP_ATTRS_PKG;