[Home] [Help]
PACKAGE BODY: APPS.OKL_ITM_CAT_RV_PRCS_PUB
Source
1 PACKAGE BODY OKL_ITM_CAT_RV_PRCS_PUB AS
2 /* $Header: OKLPICPB.pls 120.4 2005/10/30 03:31:59 appldev noship $ */
3
4 PROCEDURE insert_itm_cat_rv_prcs(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ,p_icpv_rec IN icpv_rec_type
11 ,x_icpv_rec OUT NOCOPY icpv_rec_type) IS
12
13 l_program_name CONSTANT VARCHAR2(35) := 'insert_itm_cat_rv_prcs';
14 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.insert_itm_cat_rv_prcs (REC)';
15 p_transaction_control VARCHAR2(1) := G_TRUE;
16 lx_return_status VARCHAR2(1);
17
18 BEGIN
19
20 IF p_transaction_control = G_TRUE THEN
21 SAVEPOINT l_program_name;
22 END IF;
23
24 IF p_init_msg_list = OKL_API.G_TRUE THEN
25 FND_MSG_PUB.initialize;
26 END IF;
27
28 okl_icp_pvt.insert_row(p_api_version => G_API_VERSION,
29 p_init_msg_list => G_FALSE,
30 x_return_status => lx_return_status,
31 x_msg_count => x_msg_count,
32 x_msg_data => x_msg_data,
33 p_icpv_rec => p_icpv_rec,
34 x_icpv_rec => x_icpv_rec);
35
36 IF lx_return_status = G_RET_STS_ERROR THEN
37 RAISE OKL_API.G_EXCEPTION_ERROR;
38 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
39 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
40 END IF;
41
42 x_return_status := lx_return_status;
43
44 EXCEPTION
45
46 WHEN OKL_API.G_EXCEPTION_ERROR THEN
47
48 IF p_transaction_control = G_TRUE THEN
49 ROLLBACK TO l_program_name;
50 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
51 END IF;
52
53 x_return_status := G_RET_STS_ERROR;
54
55 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
56
57 IF p_transaction_control = G_TRUE THEN
58 ROLLBACK TO l_program_name;
59 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
60 END IF;
61
62 x_return_status := G_RET_STS_UNEXP_ERROR;
63
64 WHEN OTHERS THEN
65
66 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
67 p_msg_name => 'OKL_DB_ERROR',
68 p_token1 => 'PROG_NAME',
69 p_token1_value => l_api_name,
70 p_token2 => 'SQLCODE',
71 p_token2_value => sqlcode,
72 p_token3 => 'SQLERRM',
73 p_token3_value => sqlerrm);
74
75 IF p_transaction_control = G_TRUE THEN
76 ROLLBACK TO l_program_name;
77 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
78 END IF;
79
80 x_return_status := G_RET_STS_UNEXP_ERROR;
81
82 END insert_itm_cat_rv_prcs;
83
84
85 PROCEDURE insert_itm_cat_rv_prcs(
86 p_api_version IN NUMBER
87 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
88 ,x_return_status OUT NOCOPY VARCHAR2
89 ,x_msg_count OUT NOCOPY NUMBER
90 ,x_msg_data OUT NOCOPY VARCHAR2
91 ,p_icpv_tbl IN icpv_tbl_type
92 ,x_icpv_tbl OUT NOCOPY icpv_tbl_type) IS
93
94 l_program_name CONSTANT VARCHAR2(35) := 'insert_itm_cat_rv_prcs';
95 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.insert_itm_cat_rv_prcs (TBL)';
96 p_transaction_control VARCHAR2(1) := G_TRUE;
97 lx_return_status VARCHAR2(1);
98
99 BEGIN
100
101 IF p_transaction_control = G_TRUE THEN
102 SAVEPOINT l_program_name;
103 END IF;
104
105 IF p_init_msg_list = OKL_API.G_TRUE THEN
106 FND_MSG_PUB.initialize;
107 END IF;
108
109 okl_icp_pvt.insert_row(p_api_version => G_API_VERSION,
110 p_init_msg_list => G_FALSE,
111 x_return_status => lx_return_status,
112 x_msg_count => x_msg_count,
113 x_msg_data => x_msg_data,
114 p_icpv_tbl => p_icpv_tbl,
115 x_icpv_tbl => x_icpv_tbl);
116
117 IF lx_return_status = G_RET_STS_ERROR THEN
118 RAISE OKL_API.G_EXCEPTION_ERROR;
119 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
120 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
121 END IF;
122
123 x_return_status := lx_return_status;
124
125 EXCEPTION
126
127 WHEN OKL_API.G_EXCEPTION_ERROR THEN
128
129 IF p_transaction_control = G_TRUE THEN
130 ROLLBACK TO l_program_name;
131 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
132 END IF;
133
134 x_return_status := G_RET_STS_ERROR;
135
136 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
137
138 IF p_transaction_control = G_TRUE THEN
139 ROLLBACK TO l_program_name;
140 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
141 END IF;
142
143 x_return_status := G_RET_STS_UNEXP_ERROR;
144
145 WHEN OTHERS THEN
146
147 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
148 p_msg_name => 'OKL_DB_ERROR',
149 p_token1 => 'PROG_NAME',
150 p_token1_value => l_api_name,
151 p_token2 => 'SQLCODE',
152 p_token2_value => sqlcode,
153 p_token3 => 'SQLERRM',
154 p_token3_value => sqlerrm);
155
156 IF p_transaction_control = G_TRUE THEN
157 ROLLBACK TO l_program_name;
158 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
159 END IF;
160
161 x_return_status := G_RET_STS_UNEXP_ERROR;
162
163 END insert_itm_cat_rv_prcs;
164
165
166 PROCEDURE lock_itm_cat_rv_prcs(
167 p_api_version IN NUMBER
168 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
169 ,x_return_status OUT NOCOPY VARCHAR2
170 ,x_msg_count OUT NOCOPY NUMBER
171 ,x_msg_data OUT NOCOPY VARCHAR2
172 ,p_icpv_rec IN icpv_rec_type) IS
173
174 l_program_name CONSTANT VARCHAR2(35) := 'lock_itm_cat_rv_prcs';
175 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.lock_itm_cat_rv_prcs (REC)';
176 p_transaction_control VARCHAR2(1) := G_TRUE;
177 lx_return_status VARCHAR2(1);
178
179 BEGIN
180
181 IF p_transaction_control = G_TRUE THEN
182 SAVEPOINT l_program_name;
183 END IF;
184
185 IF p_init_msg_list = OKL_API.G_TRUE THEN
186 FND_MSG_PUB.initialize;
187 END IF;
188
189 okl_icp_pvt.lock_row(p_api_version => G_API_VERSION,
190 p_init_msg_list => G_FALSE,
191 x_return_status => lx_return_status,
192 x_msg_count => x_msg_count,
193 x_msg_data => x_msg_data,
194 p_icpv_rec => p_icpv_rec);
195
196 IF lx_return_status = G_RET_STS_ERROR THEN
197 RAISE OKL_API.G_EXCEPTION_ERROR;
198 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
199 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200 END IF;
201
202 x_return_status := lx_return_status;
203
204 EXCEPTION
205
206 WHEN OKL_API.G_EXCEPTION_ERROR THEN
207
208 IF p_transaction_control = G_TRUE THEN
209 ROLLBACK TO l_program_name;
210 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
211 END IF;
212
213 x_return_status := G_RET_STS_ERROR;
214
215 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
216
217 IF p_transaction_control = G_TRUE THEN
218 ROLLBACK TO l_program_name;
219 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
220 END IF;
221
222 x_return_status := G_RET_STS_UNEXP_ERROR;
223
224 WHEN OTHERS THEN
225
226 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
227 p_msg_name => 'OKL_DB_ERROR',
228 p_token1 => 'PROG_NAME',
229 p_token1_value => l_api_name,
230 p_token2 => 'SQLCODE',
231 p_token2_value => sqlcode,
232 p_token3 => 'SQLERRM',
233 p_token3_value => sqlerrm);
234
235 IF p_transaction_control = G_TRUE THEN
236 ROLLBACK TO l_program_name;
237 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
238 END IF;
239
240 x_return_status := G_RET_STS_UNEXP_ERROR;
241
242 END lock_itm_cat_rv_prcs;
243
244
245 PROCEDURE lock_itm_cat_rv_prcs(
246 p_api_version IN NUMBER
247 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
248 ,x_return_status OUT NOCOPY VARCHAR2
249 ,x_msg_count OUT NOCOPY NUMBER
250 ,x_msg_data OUT NOCOPY VARCHAR2
251 ,p_icpv_tbl IN icpv_tbl_type) IS
252
253 l_program_name CONSTANT VARCHAR2(35) := 'lock_itm_cat_rv_prcs';
254 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.lock_itm_cat_rv_prcs (TBL)';
255 p_transaction_control VARCHAR2(1) := G_TRUE;
256 lx_return_status VARCHAR2(1);
257
258 BEGIN
259
260 IF p_transaction_control = G_TRUE THEN
261 SAVEPOINT l_program_name;
262 END IF;
263
264 IF p_init_msg_list = OKL_API.G_TRUE THEN
265 FND_MSG_PUB.initialize;
266 END IF;
267
268 okl_icp_pvt.lock_row(p_api_version => G_API_VERSION,
269 p_init_msg_list => G_FALSE,
270 x_return_status => lx_return_status,
271 x_msg_count => x_msg_count,
272 x_msg_data => x_msg_data,
273 p_icpv_tbl => p_icpv_tbl);
274
275 IF lx_return_status = G_RET_STS_ERROR THEN
276 RAISE OKL_API.G_EXCEPTION_ERROR;
277 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
278 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
279 END IF;
280
281 x_return_status := lx_return_status;
282
283 EXCEPTION
284
285 WHEN OKL_API.G_EXCEPTION_ERROR THEN
286
287 IF p_transaction_control = G_TRUE THEN
288 ROLLBACK TO l_program_name;
289 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
290 END IF;
291
292 x_return_status := G_RET_STS_ERROR;
293
294 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
295
296 IF p_transaction_control = G_TRUE THEN
297 ROLLBACK TO l_program_name;
298 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
299 END IF;
300
301 x_return_status := G_RET_STS_UNEXP_ERROR;
302
303 WHEN OTHERS THEN
304
305 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
306 p_msg_name => 'OKL_DB_ERROR',
307 p_token1 => 'PROG_NAME',
308 p_token1_value => l_api_name,
309 p_token2 => 'SQLCODE',
310 p_token2_value => sqlcode,
311 p_token3 => 'SQLERRM',
312 p_token3_value => sqlerrm);
313
314 IF p_transaction_control = G_TRUE THEN
315 ROLLBACK TO l_program_name;
316 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
317 END IF;
318
319 x_return_status := G_RET_STS_UNEXP_ERROR;
320
321 END lock_itm_cat_rv_prcs;
322
323
324 PROCEDURE update_itm_cat_rv_prcs(
325 p_api_version IN NUMBER
326 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
327 ,x_return_status OUT NOCOPY VARCHAR2
328 ,x_msg_count OUT NOCOPY NUMBER
329 ,x_msg_data OUT NOCOPY VARCHAR2
330 ,p_icpv_rec IN icpv_rec_type
331 ,x_icpv_rec OUT NOCOPY icpv_rec_type) IS
332
333 l_program_name CONSTANT VARCHAR2(35) := 'update_itm_cat_rv_prcs';
334 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.update_itm_cat_rv_prcs (REC)';
335 p_transaction_control VARCHAR2(1) := G_TRUE;
336 lx_return_status VARCHAR2(1);
337
338 BEGIN
339
340 IF p_transaction_control = G_TRUE THEN
341 SAVEPOINT l_program_name;
342 END IF;
343
344 IF p_init_msg_list = OKL_API.G_TRUE THEN
345 FND_MSG_PUB.initialize;
346 END IF;
347
348 okl_icp_pvt.update_row(p_api_version => G_API_VERSION,
349 p_init_msg_list => G_FALSE,
350 x_return_status => lx_return_status,
351 x_msg_count => x_msg_count,
352 x_msg_data => x_msg_data,
353 p_icpv_rec => p_icpv_rec,
354 x_icpv_rec => x_icpv_rec);
355
356 IF lx_return_status = G_RET_STS_ERROR THEN
357 RAISE OKL_API.G_EXCEPTION_ERROR;
358 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
359 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360 END IF;
361
362 x_return_status := lx_return_status;
363
364 EXCEPTION
365
366 WHEN OKL_API.G_EXCEPTION_ERROR THEN
367
368 IF p_transaction_control = G_TRUE THEN
369 ROLLBACK TO l_program_name;
370 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
371 END IF;
372
373 x_return_status := G_RET_STS_ERROR;
374
375 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
376
377 IF p_transaction_control = G_TRUE THEN
378 ROLLBACK TO l_program_name;
379 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
380 END IF;
381
382 x_return_status := G_RET_STS_UNEXP_ERROR;
383
384 WHEN OTHERS THEN
385
386 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
387 p_msg_name => 'OKL_DB_ERROR',
388 p_token1 => 'PROG_NAME',
389 p_token1_value => l_api_name,
390 p_token2 => 'SQLCODE',
391 p_token2_value => sqlcode,
392 p_token3 => 'SQLERRM',
393 p_token3_value => sqlerrm);
394
395 IF p_transaction_control = G_TRUE THEN
396 ROLLBACK TO l_program_name;
397 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
398 END IF;
399
400 x_return_status := G_RET_STS_UNEXP_ERROR;
401
402 END update_itm_cat_rv_prcs;
403
404
405 PROCEDURE update_itm_cat_rv_prcs(
406 p_api_version IN NUMBER
407 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
408 ,x_return_status OUT NOCOPY VARCHAR2
409 ,x_msg_count OUT NOCOPY NUMBER
410 ,x_msg_data OUT NOCOPY VARCHAR2
411 ,p_icpv_tbl IN icpv_tbl_type
412 ,x_icpv_tbl OUT NOCOPY icpv_tbl_type) IS
413
414 l_program_name CONSTANT VARCHAR2(35) := 'update_itm_cat_rv_prcs';
415 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.update_itm_cat_rv_prcs (TBL)';
416 p_transaction_control VARCHAR2(1) := G_TRUE;
417 lx_return_status VARCHAR2(1);
418
419 BEGIN
420
421 IF p_transaction_control = G_TRUE THEN
422 SAVEPOINT l_program_name;
423 END IF;
424
425 IF p_init_msg_list = OKL_API.G_TRUE THEN
426 FND_MSG_PUB.initialize;
427 END IF;
428
429 okl_icp_pvt.update_row(p_api_version => G_API_VERSION,
430 p_init_msg_list => G_FALSE,
431 x_return_status => lx_return_status,
432 x_msg_count => x_msg_count,
433 x_msg_data => x_msg_data,
434 p_icpv_tbl => p_icpv_tbl,
435 x_icpv_tbl => x_icpv_tbl);
436
437 IF lx_return_status = G_RET_STS_ERROR THEN
438 RAISE OKL_API.G_EXCEPTION_ERROR;
439 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
440 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
441 END IF;
442
443 x_return_status := lx_return_status;
444
445 EXCEPTION
446
447 WHEN OKL_API.G_EXCEPTION_ERROR THEN
448
449 IF p_transaction_control = G_TRUE THEN
450 ROLLBACK TO l_program_name;
451 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
452 END IF;
453
454 x_return_status := G_RET_STS_ERROR;
455
456 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
457
458 IF p_transaction_control = G_TRUE THEN
459 ROLLBACK TO l_program_name;
460 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
461 END IF;
462
463 x_return_status := G_RET_STS_UNEXP_ERROR;
464
465 WHEN OTHERS THEN
466
467 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
468 p_msg_name => 'OKL_DB_ERROR',
469 p_token1 => 'PROG_NAME',
470 p_token1_value => l_api_name,
471 p_token2 => 'SQLCODE',
472 p_token2_value => sqlcode,
473 p_token3 => 'SQLERRM',
474 p_token3_value => sqlerrm);
475
476 IF p_transaction_control = G_TRUE THEN
477 ROLLBACK TO l_program_name;
478 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
479 END IF;
480
481 x_return_status := G_RET_STS_UNEXP_ERROR;
482
483 END update_itm_cat_rv_prcs;
484
485
486 PROCEDURE delete_itm_cat_rv_prcs(
487 p_api_version IN NUMBER
488 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
489 ,x_return_status OUT NOCOPY VARCHAR2
490 ,x_msg_count OUT NOCOPY NUMBER
491 ,x_msg_data OUT NOCOPY VARCHAR2
492 ,p_icpv_rec IN icpv_rec_type) IS
493
494 l_program_name CONSTANT VARCHAR2(35) := 'delete_itm_cat_rv_prcs';
495 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.delete_itm_cat_rv_prcs (REC)';
496 p_transaction_control VARCHAR2(1) := G_TRUE;
497 lx_return_status VARCHAR2(1);
498
499 BEGIN
500
501 IF p_transaction_control = G_TRUE THEN
502 SAVEPOINT l_program_name;
503 END IF;
504
505 IF p_init_msg_list = OKL_API.G_TRUE THEN
506 FND_MSG_PUB.initialize;
507 END IF;
508
509 okl_icp_pvt.delete_row(p_api_version => G_API_VERSION,
510 p_init_msg_list => G_FALSE,
511 x_return_status => lx_return_status,
512 x_msg_count => x_msg_count,
513 x_msg_data => x_msg_data,
514 p_icpv_rec => p_icpv_rec);
515
516 IF lx_return_status = G_RET_STS_ERROR THEN
517 RAISE OKL_API.G_EXCEPTION_ERROR;
518 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
519 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
520 END IF;
521
522 x_return_status := lx_return_status;
523
524 EXCEPTION
525
526 WHEN OKL_API.G_EXCEPTION_ERROR THEN
527
528 IF p_transaction_control = G_TRUE THEN
529 ROLLBACK TO l_program_name;
530 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
531 END IF;
532
533 x_return_status := G_RET_STS_ERROR;
534
535 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
536
537 IF p_transaction_control = G_TRUE THEN
538 ROLLBACK TO l_program_name;
539 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
540 END IF;
541
542 x_return_status := G_RET_STS_UNEXP_ERROR;
543
544 WHEN OTHERS THEN
545
546 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
547 p_msg_name => 'OKL_DB_ERROR',
548 p_token1 => 'PROG_NAME',
549 p_token1_value => l_api_name,
550 p_token2 => 'SQLCODE',
551 p_token2_value => sqlcode,
552 p_token3 => 'SQLERRM',
553 p_token3_value => sqlerrm);
554
555 IF p_transaction_control = G_TRUE THEN
556 ROLLBACK TO l_program_name;
557 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
558 END IF;
559
560 x_return_status := G_RET_STS_UNEXP_ERROR;
561
562 END delete_itm_cat_rv_prcs;
563
564
565 PROCEDURE delete_itm_cat_rv_prcs(
566 p_api_version IN NUMBER
567 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
568 ,x_return_status OUT NOCOPY VARCHAR2
569 ,x_msg_count OUT NOCOPY NUMBER
570 ,x_msg_data OUT NOCOPY VARCHAR2
571 ,p_icpv_tbl IN icpv_tbl_type) IS
572
573 l_program_name CONSTANT VARCHAR2(35) := 'delete_itm_cat_rv_prcs';
574 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.delete_itm_cat_rv_prcs (TBL)';
575 p_transaction_control VARCHAR2(1) := G_TRUE;
576 lx_return_status VARCHAR2(1);
577
578 BEGIN
579
580 IF p_transaction_control = G_TRUE THEN
581 SAVEPOINT l_program_name;
582 END IF;
583
584 IF p_init_msg_list = OKL_API.G_TRUE THEN
585 FND_MSG_PUB.initialize;
586 END IF;
587
588 okl_icp_pvt.delete_row(p_api_version => G_API_VERSION,
589 p_init_msg_list => G_FALSE,
590 x_return_status => lx_return_status,
591 x_msg_count => x_msg_count,
592 x_msg_data => x_msg_data,
593 p_icpv_tbl => p_icpv_tbl);
594
595 IF lx_return_status = G_RET_STS_ERROR THEN
596 RAISE OKL_API.G_EXCEPTION_ERROR;
597 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
598 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
599 END IF;
600
601 x_return_status := lx_return_status;
602
603 EXCEPTION
604
605 WHEN OKL_API.G_EXCEPTION_ERROR THEN
606
607 IF p_transaction_control = G_TRUE THEN
608 ROLLBACK TO l_program_name;
609 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
610 END IF;
611
612 x_return_status := G_RET_STS_ERROR;
613
614 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
615
616 IF p_transaction_control = G_TRUE THEN
617 ROLLBACK TO l_program_name;
618 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
619 END IF;
620
621 x_return_status := G_RET_STS_UNEXP_ERROR;
622
623 WHEN OTHERS THEN
624
625 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
626 p_msg_name => 'OKL_DB_ERROR',
627 p_token1 => 'PROG_NAME',
628 p_token1_value => l_api_name,
629 p_token2 => 'SQLCODE',
630 p_token2_value => sqlcode,
631 p_token3 => 'SQLERRM',
632 p_token3_value => sqlerrm);
633
634 IF p_transaction_control = G_TRUE THEN
635 ROLLBACK TO l_program_name;
636 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
637 END IF;
638
639 x_return_status := G_RET_STS_UNEXP_ERROR;
640
641 END delete_itm_cat_rv_prcs;
642
643
644 PROCEDURE validate_itm_cat_rv_prcs(
645 p_api_version IN NUMBER
646 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
647 ,x_return_status OUT NOCOPY VARCHAR2
648 ,x_msg_count OUT NOCOPY NUMBER
649 ,x_msg_data OUT NOCOPY VARCHAR2
650 ,p_icpv_rec IN icpv_rec_type) IS
651
652 l_program_name CONSTANT VARCHAR2(35) := 'validate_itm_cat_rv_prcs';
653 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.validate_itm_cat_rv_prcs (REC)';
654 p_transaction_control VARCHAR2(1) := G_TRUE;
655 lx_return_status VARCHAR2(1);
656
657 BEGIN
658
659 IF p_transaction_control = G_TRUE THEN
660 SAVEPOINT l_program_name;
661 END IF;
662
663 IF p_init_msg_list = OKL_API.G_TRUE THEN
664 FND_MSG_PUB.initialize;
665 END IF;
666
667 okl_icp_pvt.validate_row(p_api_version => G_API_VERSION,
668 p_init_msg_list => G_FALSE,
669 x_return_status => lx_return_status,
670 x_msg_count => x_msg_count,
671 x_msg_data => x_msg_data,
672 p_icpv_rec => p_icpv_rec);
673
674 IF lx_return_status = G_RET_STS_ERROR THEN
675 RAISE OKL_API.G_EXCEPTION_ERROR;
676 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
677 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
678 END IF;
679
680 x_return_status := lx_return_status;
681
682 EXCEPTION
683
684 WHEN OKL_API.G_EXCEPTION_ERROR THEN
685
686 IF p_transaction_control = G_TRUE THEN
687 ROLLBACK TO l_program_name;
688 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
689 END IF;
690
691 x_return_status := G_RET_STS_ERROR;
692
693 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
694
695 IF p_transaction_control = G_TRUE THEN
696 ROLLBACK TO l_program_name;
697 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
698 END IF;
699
700 x_return_status := G_RET_STS_UNEXP_ERROR;
701
702 WHEN OTHERS THEN
703
704 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
705 p_msg_name => 'OKL_DB_ERROR',
706 p_token1 => 'PROG_NAME',
707 p_token1_value => l_api_name,
708 p_token2 => 'SQLCODE',
709 p_token2_value => sqlcode,
710 p_token3 => 'SQLERRM',
711 p_token3_value => sqlerrm);
712
713 IF p_transaction_control = G_TRUE THEN
714 ROLLBACK TO l_program_name;
715 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
716 END IF;
717
718 x_return_status := G_RET_STS_UNEXP_ERROR;
719
720 END validate_itm_cat_rv_prcs;
721
722
723 PROCEDURE validate_itm_cat_rv_prcs(
724 p_api_version IN NUMBER,
725 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
726 x_return_status OUT NOCOPY VARCHAR2,
727 x_msg_count OUT NOCOPY NUMBER,
728 x_msg_data OUT NOCOPY VARCHAR2,
729 p_icpv_tbl IN icpv_tbl_type) IS
730
731 l_program_name CONSTANT VARCHAR2(35) := 'validate_itm_cat_rv_prcs';
732 l_api_name CONSTANT VARCHAR2(65) := 'okl_itm_cat_rv_prcs_pub.validate_itm_cat_rv_prcs (TBL)';
733 p_transaction_control VARCHAR2(1) := G_TRUE;
734 lx_return_status VARCHAR2(1);
735
736 BEGIN
737
738 IF p_transaction_control = G_TRUE THEN
739 SAVEPOINT l_program_name;
740 END IF;
741
742 IF p_init_msg_list = OKL_API.G_TRUE THEN
743 FND_MSG_PUB.initialize;
744 END IF;
745
746 okl_icp_pvt.validate_row(p_api_version => G_API_VERSION,
747 p_init_msg_list => G_FALSE,
748 x_return_status => lx_return_status,
749 x_msg_count => x_msg_count,
750 x_msg_data => x_msg_data,
751 p_icpv_tbl => p_icpv_tbl);
752
753 IF lx_return_status = G_RET_STS_ERROR THEN
754 RAISE OKL_API.G_EXCEPTION_ERROR;
755 ELSIF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
756 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
757 END IF;
758
759 x_return_status := lx_return_status;
760
761 EXCEPTION
762
763 WHEN OKL_API.G_EXCEPTION_ERROR THEN
764
765 IF p_transaction_control = G_TRUE THEN
766 ROLLBACK TO l_program_name;
767 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
768 END IF;
769
770 x_return_status := G_RET_STS_ERROR;
771
772 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
773
774 IF p_transaction_control = G_TRUE THEN
775 ROLLBACK TO l_program_name;
776 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
777 END IF;
778
779 x_return_status := G_RET_STS_UNEXP_ERROR;
780
781 WHEN OTHERS THEN
782
783 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
784 p_msg_name => 'OKL_DB_ERROR',
785 p_token1 => 'PROG_NAME',
786 p_token1_value => l_api_name,
787 p_token2 => 'SQLCODE',
788 p_token2_value => sqlcode,
789 p_token3 => 'SQLERRM',
790 p_token3_value => sqlerrm);
791
792 IF p_transaction_control = G_TRUE THEN
793 ROLLBACK TO l_program_name;
794 fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
795 END IF;
796
797 x_return_status := G_RET_STS_UNEXP_ERROR;
798
799 END validate_itm_cat_rv_prcs;
800
801 END okl_itm_cat_rv_prcs_pub;