[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPFMACONSTRAINTS_PUB
Source
1 PACKAGE BODY OKL_SETUPFMACONSTRAINTS_PUB AS
2 /* $Header: OKLPSFCB.pls 120.2 2005/06/03 05:29:14 rirawat noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.SETUP.FORMULAS';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10 ---------------------------------------------------------------------------
11 -- PROCEDURE get_rec for: OKL_FMLA_OPRNDS_V
12 ---------------------------------------------------------------------------
13 PROCEDURE get_rec(p_fodv_rec IN fodv_rec_type,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 x_no_data_found OUT NOCOPY BOOLEAN,
17 x_fodv_rec OUT NOCOPY fodv_rec_type) IS
18 l_fodv_rec fodv_rec_type;
19 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
20 l_no_data_found BOOLEAN;
21 BEGIN
22
23 l_fodv_rec := p_fodv_rec;
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25 x_no_data_found := TRUE;
26
27 -- Start of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.get_rec
28 IF(L_DEBUG_ENABLED='Y') THEN
29 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
30 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
31 END IF;
32 IF(IS_DEBUG_PROCEDURE_ON) THEN
33 BEGIN
34 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.get_rec ');
35 END;
36 END IF;
37 okl_setupfmaconstraints_pvt.get_rec(p_fodv_rec => l_fodv_rec,
38 x_return_status => l_return_status,
39 x_no_data_found => l_no_data_found,
40 x_fodv_rec => x_fodv_rec);
41 IF(IS_DEBUG_PROCEDURE_ON) THEN
42 BEGIN
43 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.get_rec ');
44 END;
45 END IF;
46 -- End of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.get_rec
47
48 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
55 x_no_data_found := FALSE;
56 FND_MESSAGE.set_name(application => G_APP_NAME,
57 name => G_UNEXPECTED_ERROR);
58 x_msg_data := FND_MESSAGE.get;
59 END get_rec;
60
61 ---------------------------------------------------------------------------
62 -- PROCEDURE insert_fmaconstraints
63 -- Public wrapper for insert_fmaconstraints process api
64 ---------------------------------------------------------------------------
65 PROCEDURE insert_fmaconstraints(p_api_version IN NUMBER,
66 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
67 x_return_status OUT NOCOPY VARCHAR2,
68 x_msg_count OUT NOCOPY NUMBER,
69 x_msg_data OUT NOCOPY VARCHAR2,
70 p_fmav_rec IN fmav_rec_type,
71 p_fodv_rec IN fodv_rec_type,
72 x_fodv_rec OUT NOCOPY fodv_rec_type) IS
73 l_fmav_rec fmav_rec_type;
74 l_fodv_rec fodv_rec_type;
75 l_data VARCHAR2(100);
76 l_api_name CONSTANT VARCHAR2(30) := 'insert_fmaconstraints';
77 l_count NUMBER ;
78 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
79 BEGIN
80 x_return_status := FND_API.G_RET_STS_SUCCESS;
81 SAVEPOINT sp_insert_fmaconstraints;
82
83 l_fmav_rec := p_fmav_rec;
84 l_fodv_rec := p_fodv_rec;
85
86
87
88 -- call process api to insert formula operands
89 -- Start of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.insert_fmaconstraints
90 IF(L_DEBUG_ENABLED='Y') THEN
91 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
92 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
93 END IF;
94 IF(IS_DEBUG_PROCEDURE_ON) THEN
95 BEGIN
96 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.insert_fmaconstraints ');
97 END;
98 END IF;
99 okl_setupfmaconstraints_pvt.insert_fmaconstraints(p_api_version => p_api_version,
100 p_init_msg_list => p_init_msg_list,
101 x_return_status => l_return_status,
102 x_msg_count => x_msg_count,
103 x_msg_data => x_msg_data,
104 p_fmav_rec => l_fmav_rec,
105 p_fodv_rec => l_fodv_rec,
106 x_fodv_rec => x_fodv_rec);
107 IF(IS_DEBUG_PROCEDURE_ON) THEN
108 BEGIN
109 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.insert_fmaconstraints ');
110 END;
111 END IF;
112 -- End of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.insert_fmaconstraints
113
114 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
115 RAISE FND_API.G_EXC_ERROR;
116 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
117 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
118 END IF;
119
120 /* re-assign local record structure using output record from pvt api */
121 l_fodv_rec := x_fodv_rec;
122
123
124
125 EXCEPTION
126 WHEN FND_API.G_EXC_ERROR THEN
127 ROLLBACK TO sp_insert_fmaconstraints;
128 -- notify caller of an UNEXPECTED error
129 x_return_status := FND_API.G_RET_STS_ERROR;
130
131 -- store SQL error message on message stack for caller
132 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
133 p_count => x_msg_count,
134 p_data => x_msg_data);
135
136 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137 ROLLBACK TO sp_insert_fmaconstraints;
138 -- notify caller of an UNEXPECTED error
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140
141 -- store SQL error message on message stack for caller
142 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
143 p_count => x_msg_count,
144 p_data => x_msg_data);
145
146 WHEN OTHERS THEN
147 -- notify caller of an UNEXPECTED error
148 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFMACONSTRAINTS_PUB','insert_fmaconstraints');
150
151 -- store SQL error message on message stack for caller
152 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
153 p_count => x_msg_count,
154 p_data => x_msg_data);
155 END insert_fmaconstraints;
156
157 ---------------------------------------------------------------------------
158 -- PROCEDURE update_fmaconstraints
159 -- Public wrapper for update_fmaconstraints process api
160 ---------------------------------------------------------------------------
161 PROCEDURE update_fmaconstraints(p_api_version IN NUMBER,
162 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
163 x_return_status OUT NOCOPY VARCHAR2,
164 x_msg_count OUT NOCOPY NUMBER,
165 x_msg_data OUT NOCOPY VARCHAR2,
166 p_fmav_rec IN fmav_rec_type,
167 p_fodv_rec IN fodv_rec_type,
168 x_fodv_rec OUT NOCOPY fodv_rec_type) IS
169 l_fmav_rec fmav_rec_type;
170 l_fodv_rec fodv_rec_type;
171 l_data VARCHAR2(100);
172 l_count NUMBER ;
173 l_api_name CONSTANT VARCHAR2(30) := 'update_fmaconstraints';
174 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
175 BEGIN
176 x_return_status := FND_API.G_RET_STS_SUCCESS;
177 SAVEPOINT sp_update_fmaconstraints;
178
179 l_fmav_rec := p_fmav_rec;
180 l_fodv_rec := p_fodv_rec;
181
182
183
184 -- call process api to update formula operands
185 -- Start of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.update_fmaconstraints
186 IF(L_DEBUG_ENABLED='Y') THEN
187 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
188 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
189 END IF;
190 IF(IS_DEBUG_PROCEDURE_ON) THEN
191 BEGIN
192 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.update_fmaconstraints ');
193 END;
194 END IF;
195 okl_setupfmaconstraints_pvt.update_fmaconstraints(p_api_version => p_api_version,
196 p_init_msg_list => p_init_msg_list,
197 x_return_status => l_return_status,
198 x_msg_count => x_msg_count,
199 x_msg_data => x_msg_data,
200 p_fmav_rec => l_fmav_rec,
201 p_fodv_rec => l_fodv_rec,
202 x_fodv_rec => x_fodv_rec);
203 IF(IS_DEBUG_PROCEDURE_ON) THEN
204 BEGIN
205 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.update_fmaconstraints ');
206 END;
207 END IF;
208 -- End of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.update_fmaconstraints
209
210 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
211 RAISE FND_API.G_EXC_ERROR;
212 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
213 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214 END IF;
215
216 /* re-assign local record structure using output record from pvt api */
217 l_fodv_rec := x_fodv_rec;
218
219
220
221 EXCEPTION
222 WHEN FND_API.G_EXC_ERROR THEN
223 ROLLBACK TO sp_update_fmaconstraints;
224 -- notify caller of an UNEXPECTED error
225 x_return_status := FND_API.G_RET_STS_ERROR;
226
227 -- store SQL error message on message stack for caller
228 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
229 p_count => x_msg_count,
230 p_data => x_msg_data);
231
232 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233 ROLLBACK TO sp_update_fmaconstraints;
234 -- notify caller of an UNEXPECTED error
235 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236
237 -- store SQL error message on message stack for caller
238 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
239 p_count => x_msg_count,
240 p_data => x_msg_data);
241
242 WHEN OTHERS THEN
243 -- notify caller of an UNEXPECTED error
244 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFMACONSTRAINTS_PUB','update_fmaconstraints');
246
247 -- store SQL error message on message stack for caller
248 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
249 p_count => x_msg_count,
250 p_data => x_msg_data);
251 END update_fmaconstraints;
252
253 ---------------------------------------------------------------------------
254 -- PROCEDURE delete_fmaconstraints
255 -- Public wrapper for delete_fmaconstraints process api
256 ---------------------------------------------------------------------------
257 PROCEDURE delete_fmaconstraints(p_api_version IN NUMBER,
258 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
259 x_return_status OUT NOCOPY VARCHAR2,
260 x_msg_count OUT NOCOPY NUMBER,
261 x_msg_data OUT NOCOPY VARCHAR2,
262 p_fodv_tbl IN fodv_tbl_type) IS
263 l_fodv_tbl fodv_tbl_type;
264 l_data VARCHAR2(100);
265 l_count NUMBER ;
266 l_api_name CONSTANT VARCHAR2(30) := 'delete_fmaconstraints';
267 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
268 BEGIN
269 x_return_status := FND_API.G_RET_STS_SUCCESS;
270 SAVEPOINT sp_delete_fmaconstraints;
271
272 l_fodv_tbl := p_fodv_tbl;
273
274
275
276 -- call process api to delete formula operands
277 -- Start of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.delete_fmaconstraints
278 IF(L_DEBUG_ENABLED='Y') THEN
279 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
280 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
281 END IF;
282 IF(IS_DEBUG_PROCEDURE_ON) THEN
283 BEGIN
284 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.delete_fmaconstraints ');
285 END;
286 END IF;
287 okl_setupfmaconstraints_pvt.delete_fmaconstraints(p_api_version => p_api_version,
288 p_init_msg_list => p_init_msg_list,
289 x_return_status => l_return_status,
290 x_msg_count => x_msg_count,
291 x_msg_data => x_msg_data,
292 p_fodv_tbl => l_fodv_tbl);
293 IF(IS_DEBUG_PROCEDURE_ON) THEN
294 BEGIN
295 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.delete_fmaconstraints ');
296 END;
297 END IF;
298 -- End of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.delete_fmaconstraints
299
300 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
301 RAISE FND_API.G_EXC_ERROR;
302 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
303 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304 END IF;
305
306
307
308 EXCEPTION
309 WHEN FND_API.G_EXC_ERROR THEN
310 ROLLBACK TO sp_delete_fmaconstraints;
311 -- notify caller of an UNEXPECTED error
312 x_return_status := FND_API.G_RET_STS_ERROR;
313
314 -- store SQL error message on message stack for caller
315 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
316 p_count => x_msg_count,
317 p_data => x_msg_data);
318
319 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320 ROLLBACK TO sp_delete_fmaconstraints;
321 -- notify caller of an UNEXPECTED error
322 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323
324 -- store SQL error message on message stack for caller
325 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
326 p_count => x_msg_count,
327 p_data => x_msg_data);
328
329 WHEN OTHERS THEN
330 -- notify caller of an UNEXPECTED error
331 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFMACONSTRAINTS_PUB','delete_fmaconstraints');
333
334 -- store SQL error message on message stack for caller
335 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
336 p_count => x_msg_count,
337 p_data => x_msg_data);
338 END delete_fmaconstraints;
339
340 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_FMLA_OPRNDS - TBL : begin
341 ---------------------------------------------------------------------------
342 -- PROCEDURE insert_fmaconstraints
343 -- Public wrapper for insert_fmaconstraints process api
344 ---------------------------------------------------------------------------
345 PROCEDURE insert_fmaconstraints(p_api_version IN NUMBER,
346 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
347 x_return_status OUT NOCOPY VARCHAR2,
348 x_msg_count OUT NOCOPY NUMBER,
349 x_msg_data OUT NOCOPY VARCHAR2,
350 p_fmav_rec IN fmav_rec_type,
351 p_fodv_tbl IN fodv_tbl_type,
352 x_fodv_tbl OUT NOCOPY fodv_tbl_type) IS
353 l_fmav_rec fmav_rec_type;
354 l_fodv_tbl fodv_tbl_type;
355 l_data VARCHAR2(100);
356 l_api_name CONSTANT VARCHAR2(30) := 'insert_fmaconstraints';
357 l_count NUMBER ;
358 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
359 BEGIN
360 x_return_status := FND_API.G_RET_STS_SUCCESS;
361 SAVEPOINT sp_insert_fmaconstraints;
362
363 l_fmav_rec := p_fmav_rec;
364 l_fodv_tbl := p_fodv_tbl;
365
366 -- call process api to insert formula operands
367 -- Start of wraper code generated automatically by Debug code generator for okl_setupfmaconstr_t_pvt.insert_fmaconstraints
368 IF(L_DEBUG_ENABLED='Y') THEN
369 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
370 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
371 END IF;
372 IF(IS_DEBUG_PROCEDURE_ON) THEN
373 BEGIN
374 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.insert_fmaconstraints ');
375 END;
376 END IF;
377 okl_setupfmaconstraints_pvt.insert_fmaconstraints(p_api_version => p_api_version,
378 p_init_msg_list => p_init_msg_list,
379 x_return_status => l_return_status,
380 x_msg_count => x_msg_count,
381 x_msg_data => x_msg_data,
382 p_fmav_rec => l_fmav_rec,
383 p_fodv_tbl => l_fodv_tbl,
384 x_fodv_tbl => x_fodv_tbl);
385 IF(IS_DEBUG_PROCEDURE_ON) THEN
386 BEGIN
387 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.insert_fmaconstraints ');
388 END;
389 END IF;
390 -- End of wraper code generated automatically by Debug code generator for okl_setupfmaconstraints_pvt.insert_fmaconstraints
391
392 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
393 RAISE FND_API.G_EXC_ERROR;
394 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
395 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
396 END IF;
397
398 /* re-assign local record structure using output record from pvt api */
399 l_fodv_tbl := x_fodv_tbl;
400
401
402
403 EXCEPTION
404 WHEN FND_API.G_EXC_ERROR THEN
405 ROLLBACK TO sp_insert_fmaconstraints;
406 -- notify caller of an UNEXPECTED error
407 x_return_status := FND_API.G_RET_STS_ERROR;
408
409 -- store SQL error message on message stack for caller
410 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
411 p_count => x_msg_count,
412 p_data => x_msg_data);
413
414 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
415 ROLLBACK TO sp_insert_fmaconstraints;
416 -- notify caller of an UNEXPECTED error
417 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418
419 -- store SQL error message on message stack for caller
420 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
421 p_count => x_msg_count,
422 p_data => x_msg_data);
423
424 WHEN OTHERS THEN
425 -- notify caller of an UNEXPECTED error
426 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFMACONSTRAINTS_PUB','insert_fmaconstraints');
428
429 -- store SQL error message on message stack for caller
430 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
431 p_count => x_msg_count,
432 p_data => x_msg_data);
433 END insert_fmaconstraints;
434 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_FMLA_OPRNDS - TBL : end
435
436 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_FMLA_OPRNDS - TBL : begin
437 ---------------------------------------------------------------------------
438 -- PROCEDURE update_fmaconstraints
439 -- Public wrapper for update_fmaconstraints process api
440 ---------------------------------------------------------------------------
441 PROCEDURE update_fmaconstraints(p_api_version IN NUMBER,
442 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
443 x_return_status OUT NOCOPY VARCHAR2,
444 x_msg_count OUT NOCOPY NUMBER,
445 x_msg_data OUT NOCOPY VARCHAR2,
446 p_fmav_rec IN fmav_rec_type,
447 p_fodv_tbl IN fodv_tbl_type,
448 x_fodv_tbl OUT NOCOPY fodv_tbl_type) IS
449 l_fmav_rec fmav_rec_type;
450 l_fodv_tbl fodv_tbl_type;
451 l_data VARCHAR2(100);
452 l_api_name CONSTANT VARCHAR2(30) := 'update_fmaconstraints';
453 l_count NUMBER ;
454 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
455 BEGIN
456 x_return_status := FND_API.G_RET_STS_SUCCESS;
457 SAVEPOINT sp_update_fmaconstraints;
458
459 l_fmav_rec := p_fmav_rec;
460 l_fodv_tbl := p_fodv_tbl;
461
462 -- call process api to update formula operands
463
464 IF(L_DEBUG_ENABLED='Y') THEN
465 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
466 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
467 END IF;
468 IF(IS_DEBUG_PROCEDURE_ON) THEN
469 BEGIN
470 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.update_fmaconstraints ');
471 END;
472 END IF;
473 okl_setupfmaconstraints_pvt.update_fmaconstraints(p_api_version => p_api_version,
474 p_init_msg_list => p_init_msg_list,
475 x_return_status => l_return_status,
476 x_msg_count => x_msg_count,
477 x_msg_data => x_msg_data,
478 p_fmav_rec => l_fmav_rec,
479 p_fodv_tbl => l_fodv_tbl,
480 x_fodv_tbl => x_fodv_tbl);
481 IF(IS_DEBUG_PROCEDURE_ON) THEN
482 BEGIN
483 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSFCB.pls call okl_setupfmaconstraints_pvt.update_fmaconstraints ');
484 END;
485 END IF;
486
487
488 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
489 RAISE FND_API.G_EXC_ERROR;
490 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
491 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492 END IF;
493
494 /* re-assign local record structure using output record from pvt api */
495 l_fodv_tbl := x_fodv_tbl;
496
497
498 EXCEPTION
499 WHEN FND_API.G_EXC_ERROR THEN
500 ROLLBACK TO sp_update_fmaconstraints;
501 -- notify caller of an UNEXPECTED error
502 x_return_status := FND_API.G_RET_STS_ERROR;
503
504 -- store SQL error message on message stack for caller
505 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
506 p_count => x_msg_count,
507 p_data => x_msg_data);
508
509 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510 ROLLBACK TO sp_update_fmaconstraints;
511 -- notify caller of an UNEXPECTED error
512 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513
514 -- store SQL error message on message stack for caller
515 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
516 p_count => x_msg_count,
517 p_data => x_msg_data);
518
519 WHEN OTHERS THEN
520 -- notify caller of an UNEXPECTED error
521 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
522 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFMACONSTRAINTS_PUB','update_fmaconstraints');
523
524 -- store SQL error message on message stack for caller
525 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
526 p_count => x_msg_count,
527 p_data => x_msg_data);
528 END update_fmaconstraints;
529
530 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_FMLA_OPRNDS - TBL : end
531
532
533 END OKL_SETUPFMACONSTRAINTS_PUB;