[Home] [Help]
PACKAGE BODY: APPS.FPA_PROCESS_RST_PVT
Source
1 PACKAGE BODY FPA_PROCESS_RST_PVT as
2 /* $Header: FPAVRSTB.pls 120.1 2005/08/18 11:48:28 appldev ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_PROCESS_RST_PVT';
5 G_APP_NAME CONSTANT VARCHAR2(3) := FPA_UTILITIES_PVT.G_APP_NAME;
6 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
7 L_API_NAME CONSTANT VARCHAR2(35) := 'PROCESS_RST';
8
9 PROCEDURE Update_Calc_Pjt_Scorecard_Aw
10 (
11 p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
13 p_commit IN VARCHAR2 := FND_API.G_FALSE,
14 p_planning_cycle_id IN NUMBER,
15 p_project_id IN NUMBER,
16 p_scorecard_tbl IN FPA_SCORECARDS_PVT.FPA_SCORECARD_TBL_TYPE,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2
20 ) IS
21
22 l_return_status VARCHAR2(1);
23 l_api_name CONSTANT VARCHAR2(30) := 'Update_Calc_Pjt_Sc';
24 l_api_version CONSTANT NUMBER := 1.0;
25 l_msg_log VARCHAR2(200) := null;
26
27 BEGIN
28
29
30 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
31 -- call START_ACTIVITY to create savepoint, check compatibility
32 -- and initialize message list
33
34 x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
35 p_api_name => l_api_name,
36 p_pkg_name => G_PKG_NAME,
37 p_init_msg_list => p_init_msg_list,
38 l_api_version => l_api_version,
39 p_api_version => p_api_version,
40 p_api_type => G_API_TYPE,
41 p_msg_log => 'Entering Fpa_Process_Pvt.Update_Calc_Pjt_Scorecard_Aw',
42 x_return_status => x_return_status);
43
44
45 -- check if activity started successfully
46 if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
47 l_msg_log := 'start_activity';
48 raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
49 elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
50 l_msg_log := 'start_activity';
51 raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
52 end if;
53
54 FPA_UTILITIES_PVT.Attach_AW
55 (p_api_version => l_api_version,
56 p_attach_mode => 'rw',
57 x_return_status => x_return_status,
58 x_msg_count => x_msg_count,
59 x_msg_data => x_msg_data);
60
61
62 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
63
64 FPA_SCORECARDS_PVT.Update_Calc_Pjt_Scorecard_Aw
65 (p_api_version => p_api_version,
66 p_init_msg_list => p_init_msg_list,
67 p_commit => p_commit,
68 p_planning_cycle_id => p_planning_cycle_id,
69 p_project_id => p_project_id,
70 p_scorecard_tbl => p_scorecard_tbl,
71 x_return_status => x_return_status,
72 x_msg_count => x_msg_count,
73 x_msg_data => x_msg_data);
74
75 -- Update and commit our changes
76 IF (p_commit = FND_API.G_TRUE) THEN
77 dbms_aw.execute('UPDATE');
78 COMMIT;
79 END IF;
80
81 FPA_UTILITIES_PVT.Detach_AW
82 (p_api_version => 1.0,
83 x_return_status => x_return_status,
84 x_msg_count => x_msg_count,
85 x_msg_data => x_msg_data);
86
87 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
88
89 FPA_UTILITIES_PVT.END_ACTIVITY(
90 p_api_name => l_api_name,
91 p_pkg_name => G_PKG_NAME,
92 p_msg_log => null,
93 x_msg_count => x_msg_count,
94 x_msg_data => x_msg_data);
95
96 EXCEPTION
97 when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
98
99 FPA_UTILITIES_PVT.Detach_AW(
100 p_api_version => l_api_version,
101 x_return_status => x_return_status,
102 x_msg_count => x_msg_count,
103 x_msg_data => x_msg_data);
104
105 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
106 p_api_name => l_api_name,
107 p_pkg_name => G_PKG_NAME,
108 p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
109 p_msg_log => l_msg_log,
110 x_msg_count => x_msg_count,
111 x_msg_data => x_msg_data,
112 p_api_type => G_API_TYPE);
113
114 when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
115
116 FPA_UTILITIES_PVT.Detach_AW(
117 p_api_version => l_api_version,
118 x_return_status => x_return_status,
119 x_msg_count => x_msg_count,
120 x_msg_data => x_msg_data);
121
122 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
123 p_api_name => l_api_name,
124 p_pkg_name => G_PKG_NAME,
125 p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
126 p_msg_log => l_msg_log,
127 x_msg_count => x_msg_count,
128 x_msg_data => x_msg_data,
129 p_api_type => G_API_TYPE);
130
131 when OTHERS then
132
133 FPA_UTILITIES_PVT.Detach_AW(
134 p_api_version => l_api_version,
135 x_return_status => x_return_status,
136 x_msg_count => x_msg_count,
137 x_msg_data => x_msg_data);
138
139 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
140 p_api_name => l_api_name,
141 p_pkg_name => G_PKG_NAME,
142 p_exc_name => 'OTHERS',
143 p_msg_log => l_msg_log||SQLERRM,
144 x_msg_count => x_msg_count,
145 x_msg_data => x_msg_data,
146 p_api_type => G_API_TYPE);
147
148 END Update_Calc_Pjt_Scorecard_Aw;
149
150 PROCEDURE Update_Calc_Scen_Scorecard_Aw
151 (
152 p_api_version IN NUMBER,
153 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
154 p_commit IN VARCHAR2 := FND_API.G_FALSE,
155 p_planning_cycle_id IN NUMBER,
156 p_scenario_id IN NUMBER,
157 p_project_id IN NUMBER,
158 p_scorecard_tbl IN FPA_SCORECARDS_PVT.FPA_SCORECARD_TBL_TYPE,
159 x_return_status OUT NOCOPY VARCHAR2,
160 x_msg_count OUT NOCOPY NUMBER,
161 x_msg_data OUT NOCOPY VARCHAR2
162 ) IS
163
164 l_return_status VARCHAR2(1);
165 l_api_name CONSTANT VARCHAR2(30) := 'Update_Calc_Scen';
166 l_api_version CONSTANT NUMBER := 1.0;
167 l_msg_log VARCHAR2(200) := null;
168
169 BEGIN
170
171 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
172 -- call START_ACTIVITY to create savepoint, check compatibility
173 -- and initialize message list
174
175 x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
176 p_api_name => l_api_name,
177 p_pkg_name => G_PKG_NAME,
178 p_init_msg_list => p_init_msg_list,
179 l_api_version => l_api_version,
180 p_api_version => p_api_version,
181 p_api_type => G_API_TYPE,
182 p_msg_log => 'Entering Fpa_Process_Pvt.Update_Calc_Scen',
183 x_return_status => x_return_status);
184
185
186 -- check if activity started successfully
187 if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
188 l_msg_log := 'start_activity';
189 raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
190 elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
191 l_msg_log := 'start_activity';
192 raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
193 end if;
194
195 FPA_UTILITIES_PVT.Attach_AW
196 (p_api_version => l_api_version,
197 p_attach_mode => 'rw',
198 x_return_status => x_return_status,
199 x_msg_count => x_msg_count,
200 x_msg_data => x_msg_data);
201
202
203 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
204
205
206 FPA_SCORECARDS_PVT.Update_Calc_Scen_Scorecard_Aw
207 (p_api_version => p_api_version,
208 p_init_msg_list => p_init_msg_list,
209 p_commit => p_commit,
210 p_planning_cycle_id => p_planning_cycle_id,
211 p_scenario_id => p_scenario_id,
212 p_project_id => p_project_id,
213 p_scorecard_tbl => p_scorecard_tbl,
214 x_return_status => x_return_status,
215 x_msg_count => x_msg_count,
216 x_msg_data => x_msg_data);
217
218 -- Update and commit our changes
219 IF (p_commit = FND_API.G_TRUE) THEN
220 dbms_aw.execute('UPDATE');
221 COMMIT;
222 END IF;
223
224 -- Detach AW Workspace
225 FPA_UTILITIES_PVT.Detach_AW
226 (p_api_version => 1.0,
227 x_return_status => x_return_status,
228 x_msg_count => x_msg_count,
229 x_msg_data => x_msg_data);
230
231 x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
232
233 FPA_UTILITIES_PVT.END_ACTIVITY(
234 p_api_name => l_api_name,
235 p_pkg_name => G_PKG_NAME,
236 p_msg_log => null,
237 x_msg_count => x_msg_count,
238 x_msg_data => x_msg_data);
239
240 EXCEPTION
241 when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
242
243 FPA_UTILITIES_PVT.Detach_AW(
244 p_api_version => l_api_version,
245 x_return_status => x_return_status,
246 x_msg_count => x_msg_count,
247 x_msg_data => x_msg_data);
248
249 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
250 p_api_name => l_api_name,
251 p_pkg_name => G_PKG_NAME,
252 p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
253 p_msg_log => l_msg_log,
254 x_msg_count => x_msg_count,
255 x_msg_data => x_msg_data,
256 p_api_type => G_API_TYPE);
257
258 when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
259
260 FPA_UTILITIES_PVT.Detach_AW(
261 p_api_version => l_api_version,
262 x_return_status => x_return_status,
263 x_msg_count => x_msg_count,
264 x_msg_data => x_msg_data);
265
266 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
267 p_api_name => l_api_name,
268 p_pkg_name => G_PKG_NAME,
269 p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
270 p_msg_log => l_msg_log,
271 x_msg_count => x_msg_count,
272 x_msg_data => x_msg_data,
273 p_api_type => G_API_TYPE);
274
275 when OTHERS then
276
277 FPA_UTILITIES_PVT.Detach_AW(
278 p_api_version => l_api_version,
279 x_return_status => x_return_status,
280 x_msg_count => x_msg_count,
281 x_msg_data => x_msg_data);
282
283 x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
284 p_api_name => l_api_name,
285 p_pkg_name => G_PKG_NAME,
286 p_exc_name => 'OTHERS',
287 p_msg_log => l_msg_log||SQLERRM,
288 x_msg_count => x_msg_count,
289 x_msg_data => x_msg_data,
290 p_api_type => G_API_TYPE);
291
292 END Update_Calc_Scen_Scorecard_Aw;
293
294
295 END FPA_PROCESS_RST_PVT;