[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPDSFPARAMETERS_PUB
Source
1 PACKAGE BODY OKL_SETUPDSFPARAMETERS_PUB AS
2 /* $Header: OKLPSFRB.pls 120.2 2005/06/03 05:31:40 rirawat noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_FMLA_OPRNDS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_fprv_rec IN fprv_rec_type,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_fprv_rec OUT NOCOPY fprv_rec_type) IS
12 l_fprv_rec fprv_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16
17 l_fprv_rec := p_fprv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupdsfparameters_pvt.get_rec(p_fprv_rec => l_fprv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_fprv_rec => x_fprv_rec);
25
26 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
27 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28 END IF;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33 x_no_data_found := FALSE;
34 FND_MESSAGE.set_name(application => G_APP_NAME,
35 name => G_UNEXPECTED_ERROR);
36 x_msg_data := FND_MESSAGE.get;
37 END get_rec;
38
39 ---------------------------------------------------------------------------
40 -- PROCEDURE insert_dsfparameters
41 -- Public wrapper for insert_dsfparameters process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_dsfparameters(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
45 x_return_status OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_msg_data OUT NOCOPY VARCHAR2,
48 p_dsfv_rec IN dsfv_rec_type,
49 p_fprv_rec IN fprv_rec_type,
50 x_fprv_rec OUT NOCOPY fprv_rec_type) IS
51 l_dsfv_rec dsfv_rec_type;
52 l_fprv_rec fprv_rec_type;
53 l_data VARCHAR2(100);
54 l_api_name CONSTANT VARCHAR2(30) := 'insert_dsfparameters';
55 l_count NUMBER ;
56 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57 BEGIN
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59 SAVEPOINT sp_insert_dsfparameters;
60
61 l_dsfv_rec := p_dsfv_rec;
62 l_fprv_rec := p_fprv_rec;
63
64
65
66 -- call process api to insert function parameters
67 okl_setupdsfparameters_pvt.insert_dsfparameters(p_api_version => p_api_version,
68 p_init_msg_list => p_init_msg_list,
69 x_return_status => l_return_status,
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_dsfv_rec => l_dsfv_rec,
73 p_fprv_rec => l_fprv_rec,
74 x_fprv_rec => x_fprv_rec);
75
76 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
77 RAISE FND_API.G_EXC_ERROR;
78 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80 END IF;
81
82 /* re-assign local record structure using output record from pvt api */
83 l_fprv_rec := x_fprv_rec;
84
85
86
87 EXCEPTION
88 WHEN FND_API.G_EXC_ERROR THEN
89 ROLLBACK TO sp_insert_dsfparameters;
90 -- notify caller of an UNEXPECTED error
91 x_return_status := FND_API.G_RET_STS_ERROR;
92
93 -- store SQL error message on message stack for caller
94 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
95 p_count => x_msg_count,
96 p_data => x_msg_data);
97
98 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99 ROLLBACK TO sp_insert_dsfparameters;
100 -- notify caller of an UNEXPECTED error
101 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102
103 -- store SQL error message on message stack for caller
104 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
105 p_count => x_msg_count,
106 p_data => x_msg_data);
107
108 WHEN OTHERS THEN
109 -- notify caller of an UNEXPECTED error
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPDSFPARAMETERS_PUB','insert_dsfparameters');
112
113 -- store SQL error message on message stack for caller
114 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
115 p_count => x_msg_count,
116 p_data => x_msg_data);
117 END insert_dsfparameters;
118
119 ---------------------------------------------------------------------------
120 -- PROCEDURE update_dsfparameters
121 -- Public wrapper for update_dsfparameters process api
122 ---------------------------------------------------------------------------
123 PROCEDURE update_dsfparameters(p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2,
128 p_dsfv_rec IN dsfv_rec_type,
129 p_fprv_rec IN fprv_rec_type,
130 x_fprv_rec OUT NOCOPY fprv_rec_type) IS
131 l_dsfv_rec dsfv_rec_type;
132 l_fprv_rec fprv_rec_type;
133 l_data VARCHAR2(100);
134 l_count NUMBER ;
135 l_api_name CONSTANT VARCHAR2(30) := 'update_dsfparameters';
136 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
137 BEGIN
138 x_return_status := FND_API.G_RET_STS_SUCCESS;
139 SAVEPOINT sp_update_dsfparameters;
140
141 l_dsfv_rec := p_dsfv_rec;
142 l_fprv_rec := p_fprv_rec;
143
144
145
146 -- call process api to update function parameters
147 okl_setupdsfparameters_pvt.update_dsfparameters(p_api_version => p_api_version,
148 p_init_msg_list => p_init_msg_list,
149 x_return_status => l_return_status,
150 x_msg_count => x_msg_count,
151 x_msg_data => x_msg_data,
152 p_dsfv_rec => l_dsfv_rec,
153 p_fprv_rec => l_fprv_rec,
154 x_fprv_rec => x_fprv_rec);
155
156 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
157 RAISE FND_API.G_EXC_ERROR;
158 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160 END IF;
161
162 /* re-assign local record structure using output record from pvt api */
163 l_fprv_rec := x_fprv_rec;
164
165
166
167 EXCEPTION
168 WHEN FND_API.G_EXC_ERROR THEN
169 ROLLBACK TO sp_update_dsfparameters;
170 -- notify caller of an UNEXPECTED error
171 x_return_status := FND_API.G_RET_STS_ERROR;
172
173 -- store SQL error message on message stack for caller
174 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data);
177
178 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179 ROLLBACK TO sp_update_dsfparameters;
180 -- notify caller of an UNEXPECTED error
181 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182
183 -- store SQL error message on message stack for caller
184 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
185 p_count => x_msg_count,
186 p_data => x_msg_data);
187
188 WHEN OTHERS THEN
189 -- notify caller of an UNEXPECTED error
190 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPDSFPARAMETERS_PUB','update_dsfparameters');
192
193 -- store SQL error message on message stack for caller
194 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
195 p_count => x_msg_count,
196 p_data => x_msg_data);
197 END update_dsfparameters;
198
199 ---------------------------------------------------------------------------
200 -- PROCEDURE delete_dsfparameters
201 -- Public wrapper for delete_dsfparameters process api
202 ---------------------------------------------------------------------------
203 PROCEDURE delete_dsfparameters(p_api_version IN NUMBER,
204 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
205 x_return_status OUT NOCOPY VARCHAR2,
206 x_msg_count OUT NOCOPY NUMBER,
207 x_msg_data OUT NOCOPY VARCHAR2,
208 p_fprv_tbl IN fprv_tbl_type) IS
209 l_fprv_tbl fprv_tbl_type;
210 l_data VARCHAR2(100);
211 l_count NUMBER ;
212 l_api_name CONSTANT VARCHAR2(30) := 'delete_dsfparameters';
213 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
214 BEGIN
215 x_return_status := FND_API.G_RET_STS_SUCCESS;
216 SAVEPOINT sp_delete_dsfparameters;
217
218 l_fprv_tbl := p_fprv_tbl;
219
220
221
222 -- call process api to delete function parameters
223 okl_setupdsfparameters_pvt.delete_dsfparameters(p_api_version => p_api_version,
224 p_init_msg_list => p_init_msg_list,
225 x_return_status => l_return_status,
226 x_msg_count => x_msg_count,
227 x_msg_data => x_msg_data,
228 p_fprv_tbl => l_fprv_tbl);
229
230 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
231 RAISE FND_API.G_EXC_ERROR;
232 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
233 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234 END IF;
235
236
237
238 EXCEPTION
239 WHEN FND_API.G_EXC_ERROR THEN
240 ROLLBACK TO sp_delete_dsfparameters;
241 -- notify caller of an UNEXPECTED error
242 x_return_status := FND_API.G_RET_STS_ERROR;
243
244 -- store SQL error message on message stack for caller
245 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
246 p_count => x_msg_count,
247 p_data => x_msg_data);
248
249 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250 ROLLBACK TO sp_delete_dsfparameters;
251 -- notify caller of an UNEXPECTED error
252 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253
254 -- store SQL error message on message stack for caller
255 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
256 p_count => x_msg_count,
257 p_data => x_msg_data);
258
259 WHEN OTHERS THEN
260 -- notify caller of an UNEXPECTED error
261 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPDSFPARAMETERS_PUB','delete_dsfparameters');
263
264 -- store SQL error message on message stack for caller
265 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
266 p_count => x_msg_count,
267 p_data => x_msg_data);
268 END delete_dsfparameters;
269
270 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_FNCTN_PRMTRS_V - TBL : begin
271 ---------------------------------------------------------------------------
272 -- PROCEDURE insert_dsfparameters
273 -- Public wrapper for insert_dsfparameters process api
274 ---------------------------------------------------------------------------
275 PROCEDURE insert_dsfparameters(p_api_version IN NUMBER,
276 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
277 x_return_status OUT NOCOPY VARCHAR2,
278 x_msg_count OUT NOCOPY NUMBER,
279 x_msg_data OUT NOCOPY VARCHAR2,
280 p_dsfv_rec IN dsfv_rec_type,
281 p_fprv_tbl IN fprv_tbl_type,
282 x_fprv_tbl OUT NOCOPY fprv_tbl_type) IS
283 l_dsfv_rec dsfv_rec_type;
284 l_fprv_tbl fprv_tbl_type;
285 l_data VARCHAR2(100);
286 l_api_name CONSTANT VARCHAR2(30) := 'insert_dsfparameters';
287 l_count NUMBER ;
288 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
289 BEGIN
290 x_return_status := FND_API.G_RET_STS_SUCCESS;
291 SAVEPOINT sp_insert_dsfparameters;
292
293 l_dsfv_rec := p_dsfv_rec;
294 l_fprv_tbl := p_fprv_tbl;
295
296
297 -- call process api to insert function parameters
298 okl_setupdsfparameters_pvt.insert_dsfparameters(p_api_version => p_api_version,
299 p_init_msg_list => p_init_msg_list,
300 x_return_status => l_return_status,
301 x_msg_count => x_msg_count,
302 x_msg_data => x_msg_data,
303 p_dsfv_rec => l_dsfv_rec,
304 p_fprv_tbl => l_fprv_tbl,
305 x_fprv_tbl => x_fprv_tbl);
306
307 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
308 RAISE FND_API.G_EXC_ERROR;
309 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
310 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311 END IF;
312
313
314 EXCEPTION
315 WHEN FND_API.G_EXC_ERROR THEN
316 ROLLBACK TO sp_insert_dsfparameters;
317 -- notify caller of an UNEXPECTED error
318 x_return_status := FND_API.G_RET_STS_ERROR;
319
320 -- store SQL error message on message stack for caller
321 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
322 p_count => x_msg_count,
323 p_data => x_msg_data);
324
325 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326 ROLLBACK TO sp_insert_dsfparameters;
327 -- notify caller of an UNEXPECTED error
328 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
329
330 -- store SQL error message on message stack for caller
331 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
332 p_count => x_msg_count,
333 p_data => x_msg_data);
334
335 WHEN OTHERS THEN
336 -- notify caller of an UNEXPECTED error
337 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPDSFPARAMETERS_PUB','insert_dsfparameters');
339
340 -- store SQL error message on message stack for caller
341 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
342 p_count => x_msg_count,
343 p_data => x_msg_data);
344 END insert_dsfparameters;
345 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_FNCTN_PRMTRS_V - TBL : end
346
347 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_FNCTN_PRMTRS_V - TBL : begin
348 ---------------------------------------------------------------------------
349 -- PROCEDURE update_dsfparameters
350 -- Public wrapper for update_dsfparameters process api
351 ---------------------------------------------------------------------------
352 PROCEDURE update_dsfparameters(p_api_version IN NUMBER,
353 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
354 x_return_status OUT NOCOPY VARCHAR2,
355 x_msg_count OUT NOCOPY NUMBER,
356 x_msg_data OUT NOCOPY VARCHAR2,
357 p_dsfv_rec IN dsfv_rec_type,
358 p_fprv_tbl IN fprv_tbl_type,
359 x_fprv_tbl OUT NOCOPY fprv_tbl_type) IS
360 l_dsfv_rec dsfv_rec_type;
361 l_fprv_tbl fprv_tbl_type;
362 l_data VARCHAR2(100);
363 l_api_name CONSTANT VARCHAR2(30) := 'update_dsfparameters';
364 l_count NUMBER ;
365 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
366 BEGIN
367 x_return_status := FND_API.G_RET_STS_SUCCESS;
368 SAVEPOINT sp_update_dsfparameters;
369
370 l_dsfv_rec := p_dsfv_rec;
371 l_fprv_tbl := p_fprv_tbl;
372
373 -- call process api to update function parameters
374 okl_setupdsfparameters_pvt.update_dsfparameters(p_api_version => p_api_version,
375 p_init_msg_list => p_init_msg_list,
376 x_return_status => l_return_status,
377 x_msg_count => x_msg_count,
378 x_msg_data => x_msg_data,
379 p_dsfv_rec => l_dsfv_rec,
380 p_fprv_tbl => l_fprv_tbl,
381 x_fprv_tbl => x_fprv_tbl);
382
383 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
384 RAISE FND_API.G_EXC_ERROR;
385 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
386 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387 END IF;
388
389
390 EXCEPTION
391 WHEN FND_API.G_EXC_ERROR THEN
392 ROLLBACK TO sp_update_dsfparameters;
393 -- notify caller of an UNEXPECTED error
394 x_return_status := FND_API.G_RET_STS_ERROR;
395
396 -- store SQL error message on message stack for caller
397 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
398 p_count => x_msg_count,
399 p_data => x_msg_data);
400
401 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402 ROLLBACK TO sp_update_dsfparameters;
403 -- notify caller of an UNEXPECTED error
404 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405
406 -- store SQL error message on message stack for caller
407 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
408 p_count => x_msg_count,
409 p_data => x_msg_data);
410
411 WHEN OTHERS THEN
412 -- notify caller of an UNEXPECTED error
413 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPDSFPARAMETERS_PUB','update_dsfparameters');
415
416 -- store SQL error message on message stack for caller
417 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
418 p_count => x_msg_count,
419 p_data => x_msg_data);
420 END update_dsfparameters;
421
422 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_FNCTN_PRMTRS_V - TBL : end
423
424
425
426 END OKL_SETUPDSFPARAMETERS_PUB;