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