[Home] [Help]
PACKAGE BODY: APPS.OKL_SYSTEM_PARAMS_ALL_PUB
Source
1 PACKAGE BODY OKL_SYSTEM_PARAMS_ALL_PUB AS
2 /* $Header: OKLPSYPB.pls 120.2 2006/07/31 06:20:00 akrangan noship $ */
3 -- Start of comments
4 --
5 -- Procedure Name : insert_system_parameters
6 -- Description : procedure to insert into OKL_SYSTEM_PARAMS_ALL_V - REC
7 -- Business Rules :
8 -- Parameters :
9 -- Version : 1.0
10 -- History : RMUNJULU Created
11 --
12 -- End of comments
13 PROCEDURE insert_system_parameters(
14 p_api_version IN NUMBER,
15 p_init_msg_list IN VARCHAR2,
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 p_sypv_rec IN sypv_rec_type,
20 x_sypv_rec OUT NOCOPY sypv_rec_type) IS
21 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
22 BEGIN
23 SAVEPOINT insert_row_trx;
24 OKL_SYP_PVT.insert_row(
25 p_api_version => p_api_version,
26 p_init_msg_list => p_init_msg_list,
27 x_return_status => l_return_status,
28 x_msg_count => x_msg_count,
29 x_msg_data => x_msg_data,
30 p_sypv_rec => p_sypv_rec,
31 x_sypv_rec => x_sypv_rec);
32 -- raise exception if api returns error
33 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
34 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
35 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
36 RAISE G_EXCEPTION_ERROR;
37 END IF;
38 x_return_status := l_return_status;
39 EXCEPTION
40 WHEN G_EXCEPTION_ERROR THEN
41 ROLLBACK TO insert_row_trx;
42 x_return_status := G_RET_STS_ERROR;
43 FND_MSG_PUB.count_and_get(
44 p_count => x_msg_count
45 ,p_data => x_msg_data);
46 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
47 ROLLBACK TO insert_row_trx;
48 x_return_status := G_RET_STS_UNEXP_ERROR;
49 FND_MSG_PUB.count_and_get(
50 p_count => x_msg_count
51 ,p_data => x_msg_data);
52 WHEN OTHERS THEN
53 ROLLBACK TO insert_row_trx;
54 x_return_status := G_RET_STS_UNEXP_ERROR;
55 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','insert_system_parameters');
56 FND_MSG_PUB.count_and_get(
57 p_count => x_msg_count
58 ,p_data => x_msg_data);
59 END insert_system_parameters;
60 -- Start of comments
61 --
62 -- Procedure Name : insert_system_parameters
63 -- Description : procedure to insert into OKL_SYSTEM_PARAMS_ALL_V - TBL
64 -- Business Rules :
65 -- Parameters :
66 -- Version : 1.0
67 -- History : RMUNJULU Created
68 --
69 -- End of comments
70 PROCEDURE insert_system_parameters(
71 p_api_version IN NUMBER,
72 p_init_msg_list IN VARCHAR2,
73 x_return_status OUT NOCOPY VARCHAR2,
74 x_msg_count OUT NOCOPY NUMBER,
75 x_msg_data OUT NOCOPY VARCHAR2,
76 p_sypv_tbl IN sypv_tbl_type,
77 x_sypv_tbl OUT NOCOPY sypv_tbl_type) IS
78 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
79 BEGIN
80 SAVEPOINT insert_row_trx;
81 OKL_SYP_PVT.insert_row(
82 p_api_version => p_api_version,
83 p_init_msg_list => p_init_msg_list,
84 x_return_status => l_return_status,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_sypv_tbl => p_sypv_tbl,
88 x_sypv_tbl => x_sypv_tbl);
89 -- raise exception if api returns error
90 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
91 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
92 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
93 RAISE G_EXCEPTION_ERROR;
94 END IF;
95 x_return_status := l_return_status;
96 EXCEPTION
97 WHEN G_EXCEPTION_ERROR THEN
98 ROLLBACK TO insert_row_trx;
99 x_return_status := G_RET_STS_ERROR;
100 FND_MSG_PUB.count_and_get(
101 p_count => x_msg_count
102 ,p_data => x_msg_data);
103 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
104 ROLLBACK TO insert_row_trx;
105 x_return_status := G_RET_STS_UNEXP_ERROR;
106 FND_MSG_PUB.count_and_get(
107 p_count => x_msg_count
108 ,p_data => x_msg_data);
109 WHEN OTHERS THEN
110 ROLLBACK TO insert_row_trx;
111 x_return_status := G_RET_STS_UNEXP_ERROR;
112 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','insert_system_parameters');
113 FND_MSG_PUB.count_and_get(
114 p_count => x_msg_count
115 ,p_data => x_msg_data);
116 END insert_system_parameters;
117 -- Start of comments
118 --
119 -- Procedure Name : lock_system_parameters
120 -- Description : procedure to lock OKL_SYSTEM_PARAMS_ALL_V - REC
121 -- Business Rules :
122 -- Parameters :
123 -- Version : 1.0
124 -- History : RMUNJULU Created
125 --
126 -- End of comments
127 PROCEDURE lock_system_parameters(
128 p_api_version IN NUMBER,
129 p_init_msg_list IN VARCHAR2,
130 x_return_status OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_msg_data OUT NOCOPY VARCHAR2,
133 p_sypv_rec IN sypv_rec_type) IS
134 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
135 BEGIN
136 SAVEPOINT lock_row_trx;
137 OKL_SYP_PVT.lock_row(
138 p_api_version => p_api_version,
139 p_init_msg_list => p_init_msg_list,
140 x_return_status => l_return_status,
141 x_msg_count => x_msg_count,
142 x_msg_data => x_msg_data,
143 p_sypv_rec => p_sypv_rec);
144 -- raise exception if api returns error
145 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
146 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
147 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
148 RAISE G_EXCEPTION_ERROR;
149 END IF;
150 x_return_status := l_return_status;
151 EXCEPTION
152 WHEN G_EXCEPTION_ERROR THEN
153 ROLLBACK TO lock_row_trx;
154 x_return_status := G_RET_STS_ERROR;
155 FND_MSG_PUB.count_and_get(
156 p_count => x_msg_count
157 ,p_data => x_msg_data);
158 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
159 ROLLBACK TO lock_row_trx;
160 x_return_status := G_RET_STS_UNEXP_ERROR;
161 FND_MSG_PUB.count_and_get(
162 p_count => x_msg_count
163 ,p_data => x_msg_data);
164 WHEN OTHERS THEN
165 ROLLBACK TO lock_row_trx;
166 x_return_status := G_RET_STS_UNEXP_ERROR;
167 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','lock_system_parameters');
168 FND_MSG_PUB.count_and_get(
169 p_count => x_msg_count
170 ,p_data => x_msg_data);
171 END lock_system_parameters;
172 -- Start of comments
173 --
174 -- Procedure Name : lock_system_parameters
175 -- Description : procedure to lock OKL_SYSTEM_PARAMS_ALL_V - TBL
176 -- Business Rules :
177 -- Parameters :
178 -- Version : 1.0
179 -- History : RMUNJULU Created
180 --
181 -- End of comments
182 PROCEDURE lock_system_parameters(
183 p_api_version IN NUMBER,
184 p_init_msg_list IN VARCHAR2,
185 x_return_status OUT NOCOPY VARCHAR2,
186 x_msg_count OUT NOCOPY NUMBER,
187 x_msg_data OUT NOCOPY VARCHAR2,
188 p_sypv_tbl IN sypv_tbl_type) IS
189 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
190 BEGIN
191 SAVEPOINT lock_row_trx;
192 OKL_SYP_PVT.lock_row(
193 p_api_version => p_api_version,
194 p_init_msg_list => p_init_msg_list,
195 x_return_status => l_return_status,
196 x_msg_count => x_msg_count,
197 x_msg_data => x_msg_data,
198 p_sypv_tbl => p_sypv_tbl);
199 -- raise exception if api returns error
200 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
201 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
202 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
203 RAISE G_EXCEPTION_ERROR;
204 END IF;
205 x_return_status := l_return_status;
206 EXCEPTION
207 WHEN G_EXCEPTION_ERROR THEN
208 ROLLBACK TO lock_row_trx;
209 x_return_status := G_RET_STS_ERROR;
210 FND_MSG_PUB.count_and_get(
211 p_count => x_msg_count
212 ,p_data => x_msg_data);
213 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
214 ROLLBACK TO lock_row_trx;
215 x_return_status := G_RET_STS_UNEXP_ERROR;
216 FND_MSG_PUB.count_and_get(
217 p_count => x_msg_count
218 ,p_data => x_msg_data);
219 WHEN OTHERS THEN
220 ROLLBACK TO lock_row_trx;
221 x_return_status := G_RET_STS_UNEXP_ERROR;
222 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','lock_system_parameters');
223 FND_MSG_PUB.count_and_get(
224 p_count => x_msg_count
225 ,p_data => x_msg_data);
226 END lock_system_parameters;
227 -- Start of comments
228 --
229 -- Procedure Name : update_system_parameters
230 -- Description : procedure to update OKL_SYSTEM_PARAMS_ALL_V - REC
231 -- Business Rules :
232 -- Parameters :
233 -- Version : 1.0
234 -- History : RMUNJULU Created
235 --
236 -- End of comments
237 PROCEDURE update_system_parameters(
238 p_api_version IN NUMBER,
239 p_init_msg_list IN VARCHAR2,
240 x_return_status OUT NOCOPY VARCHAR2,
241 x_msg_count OUT NOCOPY NUMBER,
242 x_msg_data OUT NOCOPY VARCHAR2,
243 p_sypv_rec IN sypv_rec_type,
244 x_sypv_rec OUT NOCOPY sypv_rec_type) IS
245 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
246 BEGIN
247 SAVEPOINT update_row_trx;
248 OKL_SYP_PVT.update_row(
249 p_api_version => p_api_version,
250 p_init_msg_list => p_init_msg_list,
251 x_return_status => l_return_status,
252 x_msg_count => x_msg_count,
253 x_msg_data => x_msg_data,
254 p_sypv_rec => p_sypv_rec,
255 x_sypv_rec => x_sypv_rec);
256 -- raise exception if api returns error
257 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
258 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
259 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
260 RAISE G_EXCEPTION_ERROR;
261 END IF;
262 x_return_status := l_return_status;
263 EXCEPTION
264 WHEN G_EXCEPTION_ERROR THEN
265 ROLLBACK TO update_row_trx;
266 x_return_status := G_RET_STS_ERROR;
267 FND_MSG_PUB.count_and_get(
268 p_count => x_msg_count
269 ,p_data => x_msg_data);
270 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
271 ROLLBACK TO update_row_trx;
272 x_return_status := G_RET_STS_UNEXP_ERROR;
273 FND_MSG_PUB.count_and_get(
274 p_count => x_msg_count
275 ,p_data => x_msg_data);
276 WHEN OTHERS THEN
277 ROLLBACK TO update_row_trx;
278 x_return_status := G_RET_STS_UNEXP_ERROR;
279 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','update_system_parameters');
280 FND_MSG_PUB.count_and_get(
281 p_count => x_msg_count
282 ,p_data => x_msg_data);
283 END update_system_parameters;
284 -- Start of comments
285 --
286 -- Procedure Name : update_system_parameters
287 -- Description : procedure to update OKL_SYSTEM_PARAMS_ALL_V - TBL
288 -- Business Rules :
289 -- Parameters :
290 -- Version : 1.0
291 -- History : RMUNJULU Created
292 --
293 -- End of comments
294 PROCEDURE update_system_parameters(
295 p_api_version IN NUMBER,
296 p_init_msg_list IN VARCHAR2,
297 x_return_status OUT NOCOPY VARCHAR2,
298 x_msg_count OUT NOCOPY NUMBER,
299 x_msg_data OUT NOCOPY VARCHAR2,
300 p_sypv_tbl IN sypv_tbl_type,
301 x_sypv_tbl OUT NOCOPY sypv_tbl_type) IS
302 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
303 BEGIN
304 SAVEPOINT update_row_trx;
305 OKL_SYP_PVT.update_row(
306 p_api_version => p_api_version,
307 p_init_msg_list => p_init_msg_list,
308 x_return_status => l_return_status,
309 x_msg_count => x_msg_count,
310 x_msg_data => x_msg_data,
311 p_sypv_tbl => p_sypv_tbl,
312 x_sypv_tbl => x_sypv_tbl);
313 -- raise exception if api returns error
314 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
315 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
316 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
317 RAISE G_EXCEPTION_ERROR;
318 END IF;
319 x_return_status := l_return_status;
320 EXCEPTION
321 WHEN G_EXCEPTION_ERROR THEN
322 ROLLBACK TO update_row_trx;
323 x_return_status := G_RET_STS_ERROR;
324 FND_MSG_PUB.count_and_get(
325 p_count => x_msg_count
326 ,p_data => x_msg_data);
327 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
328 ROLLBACK TO update_row_trx;
329 x_return_status := G_RET_STS_UNEXP_ERROR;
330 FND_MSG_PUB.count_and_get(
331 p_count => x_msg_count
332 ,p_data => x_msg_data);
333 WHEN OTHERS THEN
334 ROLLBACK TO update_row_trx;
335 x_return_status := G_RET_STS_UNEXP_ERROR;
336 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','update_system_parameters');
337 FND_MSG_PUB.count_and_get(
338 p_count => x_msg_count
339 ,p_data => x_msg_data);
340 END update_system_parameters;
341 -- Start of comments
342 --
343 -- Procedure Name : delete_system_parameters
344 -- Description : procedure to delete from OKL_SYSTEM_PARAMS_ALL_V - REC
345 -- Business Rules :
346 -- Parameters :
347 -- Version : 1.0
348 -- History : RMUNJULU Created
349 --
350 -- End of comments
351 PROCEDURE delete_system_parameters(
352 p_api_version IN NUMBER,
353 p_init_msg_list IN VARCHAR2,
354 x_return_status OUT NOCOPY VARCHAR2,
355 x_msg_count OUT NOCOPY NUMBER,
356 x_msg_data OUT NOCOPY VARCHAR2,
357 p_sypv_rec IN sypv_rec_type) IS
358 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
359 BEGIN
360 SAVEPOINT delete_row_trx;
361 OKL_SYP_PVT.delete_row(
362 p_api_version => p_api_version,
363 p_init_msg_list => p_init_msg_list,
364 x_return_status => l_return_status,
365 x_msg_count => x_msg_count,
366 x_msg_data => x_msg_data,
367 p_sypv_rec => p_sypv_rec);
368 -- raise exception if api returns error
369 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
370 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
371 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
372 RAISE G_EXCEPTION_ERROR;
373 END IF;
374 x_return_status := l_return_status;
375 EXCEPTION
376 WHEN G_EXCEPTION_ERROR THEN
377 ROLLBACK TO delete_row_trx;
378 x_return_status := G_RET_STS_ERROR;
379 FND_MSG_PUB.count_and_get(
380 p_count => x_msg_count
381 ,p_data => x_msg_data);
382 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
383 ROLLBACK TO delete_row_trx;
384 x_return_status := G_RET_STS_UNEXP_ERROR;
385 FND_MSG_PUB.count_and_get(
386 p_count => x_msg_count
387 ,p_data => x_msg_data);
388 WHEN OTHERS THEN
389 ROLLBACK TO delete_row_trx;
390 x_return_status := G_RET_STS_UNEXP_ERROR;
391 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','delete_system_parameters');
392 FND_MSG_PUB.count_and_get(
393 p_count => x_msg_count
394 ,p_data => x_msg_data);
395 END delete_system_parameters;
396 -- Start of comments
397 --
398 -- Procedure Name : delete_system_parameters
399 -- Description : procedure to delete from OKL_SYSTEM_PARAMS_ALL_V - TBL
400 -- Business Rules :
401 -- Parameters :
402 -- Version : 1.0
403 -- History : RMUNJULU Created
404 --
405 -- End of comments
406 PROCEDURE delete_system_parameters(
407 p_api_version IN NUMBER,
408 p_init_msg_list IN VARCHAR2,
409 x_return_status OUT NOCOPY VARCHAR2,
410 x_msg_count OUT NOCOPY NUMBER,
411 x_msg_data OUT NOCOPY VARCHAR2,
412 p_sypv_tbl IN sypv_tbl_type) IS
413 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
414 BEGIN
415 SAVEPOINT delete_row_trx;
416 OKL_SYP_PVT.delete_row(
417 p_api_version => p_api_version,
418 p_init_msg_list => p_init_msg_list,
419 x_return_status => l_return_status,
420 x_msg_count => x_msg_count,
421 x_msg_data => x_msg_data,
422 p_sypv_tbl => p_sypv_tbl);
423 -- raise exception if api returns error
424 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
425 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
426 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
427 RAISE G_EXCEPTION_ERROR;
428 END IF;
429 x_return_status := l_return_status;
430 EXCEPTION
431 WHEN G_EXCEPTION_ERROR THEN
432 ROLLBACK TO delete_row_trx;
433 x_return_status := G_RET_STS_ERROR;
434 FND_MSG_PUB.count_and_get(
435 p_count => x_msg_count
436 ,p_data => x_msg_data);
437 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
438 ROLLBACK TO delete_row_trx;
439 x_return_status := G_RET_STS_UNEXP_ERROR;
440 FND_MSG_PUB.count_and_get(
441 p_count => x_msg_count
442 ,p_data => x_msg_data);
443 WHEN OTHERS THEN
444 ROLLBACK TO delete_row_trx;
445 x_return_status := G_RET_STS_UNEXP_ERROR;
446 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','delete_system_parameters');
447 FND_MSG_PUB.count_and_get(
448 p_count => x_msg_count
449 ,p_data => x_msg_data);
450 END delete_system_parameters;
451 -- Start of comments
452 --
453 -- Procedure Name : validate_system_parameters
454 -- Description : procedure to validate OKL_SYSTEM_PARAMS_ALL_V - REC
455 -- Business Rules :
456 -- Parameters :
457 -- Version : 1.0
458 -- History : RMUNJULU Created
459 --
460 -- End of comments
461 PROCEDURE validate_system_parameters(
462 p_api_version IN NUMBER,
463 p_init_msg_list IN VARCHAR2,
464 x_return_status OUT NOCOPY VARCHAR2,
465 x_msg_count OUT NOCOPY NUMBER,
466 x_msg_data OUT NOCOPY VARCHAR2,
467 p_sypv_rec IN sypv_rec_type) IS
468 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
469 BEGIN
470 SAVEPOINT validate_row_trx;
471 OKL_SYP_PVT.validate_row(
472 p_api_version => p_api_version,
473 p_init_msg_list => p_init_msg_list,
474 x_return_status => l_return_status,
475 x_msg_count => x_msg_count,
476 x_msg_data => x_msg_data,
477 p_sypv_rec => p_sypv_rec);
478 -- raise exception if api returns error
479 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
480 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
481 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
482 RAISE G_EXCEPTION_ERROR;
483 END IF;
484 x_return_status := l_return_status;
485 EXCEPTION
486 WHEN G_EXCEPTION_ERROR THEN
487 ROLLBACK TO validate_row_trx;
488 x_return_status := G_RET_STS_ERROR;
489 FND_MSG_PUB.count_and_get(
490 p_count => x_msg_count
491 ,p_data => x_msg_data);
492 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
493 ROLLBACK TO validate_row_trx;
494 x_return_status := G_RET_STS_UNEXP_ERROR;
495 FND_MSG_PUB.count_and_get(
496 p_count => x_msg_count
497 ,p_data => x_msg_data);
498 WHEN OTHERS THEN
499 ROLLBACK TO validate_row_trx;
500 x_return_status := G_RET_STS_UNEXP_ERROR;
501 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','validate_system_parameters');
502 FND_MSG_PUB.count_and_get(
503 p_count => x_msg_count
504 ,p_data => x_msg_data);
505 END validate_system_parameters;
506 -- Start of comments
507 --
508 -- Procedure Name : validate_system_parameters
509 -- Description : procedure to validate OKL_SYSTEM_PARAMS_ALL_V - TBL
510 -- Business Rules :
511 -- Parameters :
512 -- Version : 1.0
513 -- History : RMUNJULU Created
514 --
515 -- End of comments
516 PROCEDURE validate_system_parameters(
517 p_api_version IN NUMBER,
518 p_init_msg_list IN VARCHAR2,
519 x_return_status OUT NOCOPY VARCHAR2,
520 x_msg_count OUT NOCOPY NUMBER,
521 x_msg_data OUT NOCOPY VARCHAR2,
522 p_sypv_tbl IN sypv_tbl_type) IS
523 l_return_status VARCHAR2(3) := G_RET_STS_SUCCESS;
524 BEGIN
525 SAVEPOINT validate_row_trx;
526 OKL_SYP_PVT.validate_row(
527 p_api_version => p_api_version,
528 p_init_msg_list => p_init_msg_list,
529 x_return_status => l_return_status,
530 x_msg_count => x_msg_count,
531 x_msg_data => x_msg_data,
532 p_sypv_tbl => p_sypv_tbl);
533 -- raise exception if api returns error
534 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
535 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
536 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
537 RAISE G_EXCEPTION_ERROR;
538 END IF;
539 x_return_status := l_return_status;
540 EXCEPTION
541 WHEN G_EXCEPTION_ERROR THEN
542 ROLLBACK TO validate_row_trx;
543 x_return_status := G_RET_STS_ERROR;
544 FND_MSG_PUB.count_and_get(
545 p_count => x_msg_count
546 ,p_data => x_msg_data);
547 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
548 ROLLBACK TO validate_row_trx;
549 x_return_status := G_RET_STS_UNEXP_ERROR;
550 FND_MSG_PUB.count_and_get(
551 p_count => x_msg_count
552 ,p_data => x_msg_data);
553 WHEN OTHERS THEN
554 ROLLBACK TO validate_row_trx;
555 x_return_status := G_RET_STS_UNEXP_ERROR;
556 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_PARAMS_ALL_PUB','validate_system_parameters');
557 FND_MSG_PUB.count_and_get(
558 p_count => x_msg_count
559 ,p_data => x_msg_data);
560 END validate_system_parameters;
561 -- Start of comments
562 --
563 -- Procedure Name : get_system_param_value
564 -- Description : function to get OKL_SYSTEM_PARAMS_ALL - TBL
565 -- Business Rules :
566 -- Parameters :
567 -- Version : 1.0
568 -- History : AKRANGAN Created
569 --
570 -- End of comments
571 FUNCTION get_system_param_value(
572 p_param_name IN VARCHAR2,
573 p_org_id IN NUMBER DEFAULT NULL
574 )
575 RETURN VARCHAR2
576 IS
577 x_ret_value VARCHAR2(50);
578 l_org_id NUMBER := nvl(p_org_id , mo_global.get_current_org_id );
579 CURSOR C IS SELECT item_inv_org_id ,
580 rpt_prod_book_type_code ,
581 asst_add_book_type_code ,
582 ccard_remittance_id
583 FROM okl_system_params_all
584 WHERE org_id = l_org_id ;
585 BEGIN
586 FOR I IN C
587 LOOP
588 IF p_param_name = g_item_inv_org_id THEN
589 x_ret_value := i.item_inv_org_id;
590 ELSIF p_param_name = g_rpt_prod_book_type_code THEN
591 x_ret_value := i.rpt_prod_book_type_code;
592 ELSIF p_param_name = g_asst_add_book_type_code THEN
593 x_ret_value := i.asst_add_book_type_code;
594 ELSIF p_param_name = g_ccard_remittance_id THEN
595 x_ret_value := i.ccard_remittance_id;
596 END IF ;
597 END LOOP;
598 --returns the reqd the system value here
599 RETURN x_ret_value;
600 END get_system_param_value;
601 END OKL_SYSTEM_PARAMS_ALL_PUB;