180: x_msg_data => x_msg_data,
181: p_rulv_rec => l_rulv_rec,
182: x_rulv_rec => lx_rulv_rec);
183:
184: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
185: RAISE OKC_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
181: p_rulv_rec => l_rulv_rec,
182: x_rulv_rec => lx_rulv_rec);
183:
184: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
185: RAISE OKC_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
189: /*
191: x_msg_data => x_msg_data);
192: */
193:
194: EXCEPTION
195: when OKC_API.G_EXCEPTION_ERROR then
196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
197: p_api_name => l_api_name,
198: p_pkg_name => G_PKG_NAME,
199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
192: */
193:
194: EXCEPTION
195: when OKC_API.G_EXCEPTION_ERROR then
196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
197: p_api_name => l_api_name,
198: p_pkg_name => G_PKG_NAME,
199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
200: x_msg_count => x_msg_count,
195: when OKC_API.G_EXCEPTION_ERROR then
196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
197: p_api_name => l_api_name,
198: p_pkg_name => G_PKG_NAME,
199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
200: x_msg_count => x_msg_count,
201: x_msg_data => x_msg_data,
202: p_api_type => G_API_TYPE);
203:
200: x_msg_count => x_msg_count,
201: x_msg_data => x_msg_data,
202: p_api_type => G_API_TYPE);
203:
204: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
206: p_api_name => l_api_name,
207: p_pkg_name => G_PKG_NAME,
208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
201: x_msg_data => x_msg_data,
202: p_api_type => G_API_TYPE);
203:
204: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
206: p_api_name => l_api_name,
207: p_pkg_name => G_PKG_NAME,
208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
209: x_msg_count => x_msg_count,
204: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
206: p_api_name => l_api_name,
207: p_pkg_name => G_PKG_NAME,
208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
209: x_msg_count => x_msg_count,
210: x_msg_data => x_msg_data,
211: p_api_type => G_API_TYPE);
212:
210: x_msg_data => x_msg_data,
211: p_api_type => G_API_TYPE);
212:
213: when OTHERS then
214: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
215: p_api_name => l_api_name,
216: p_pkg_name => G_PKG_NAME,
217: p_exc_name => 'OTHERS',
218: x_msg_count => x_msg_count,
244: open RULE_GROUP_CSR(p_chr_id,p_rgr_rec.rgd_code);
245: fetch RULE_GROUP_CSR into rule_group_id;
246: if(RULE_GROUP_CSR%NOTFOUND) then
247: close RULE_GROUP_CSR;
248: x_return_status := OKC_API.G_RET_STS_ERROR;
249: -- halt further validation of this column
250: else
251: x_return_status := OKC_API.G_RET_STS_SUCCESS;
252: end if;
247: close RULE_GROUP_CSR;
248: x_return_status := OKC_API.G_RET_STS_ERROR;
249: -- halt further validation of this column
250: else
251: x_return_status := OKC_API.G_RET_STS_SUCCESS;
252: end if;
253: return rule_group_id;
254: END get_header_rule_group_id;
255: FUNCTION get_header_rule_group_id(
272: open RULE_GROUP_CSR(p_chr_id,p_rgd_code);
273: fetch RULE_GROUP_CSR into rule_group_id;
274: if(RULE_GROUP_CSR%NOTFOUND) then
275: close RULE_GROUP_CSR;
276: -- x_return_status := OKC_API.G_RET_STS_ERROR;
277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
278: -- halt further validation of this column
279: else
280: x_return_status := OKC_API.G_RET_STS_SUCCESS;
273: fetch RULE_GROUP_CSR into rule_group_id;
274: if(RULE_GROUP_CSR%NOTFOUND) then
275: close RULE_GROUP_CSR;
276: -- x_return_status := OKC_API.G_RET_STS_ERROR;
277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
278: -- halt further validation of this column
279: else
280: x_return_status := OKC_API.G_RET_STS_SUCCESS;
281: end if;
276: -- x_return_status := OKC_API.G_RET_STS_ERROR;
277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
278: -- halt further validation of this column
279: else
280: x_return_status := OKC_API.G_RET_STS_SUCCESS;
281: end if;
282: return rule_group_id;
283: END get_header_rule_group_id;
284: FUNCTION get_line_rule_group_id(
306: open RULE_GROUP_CSR(p_chr_id,p_line_id,p_rgr_rec.rgd_code);
307: fetch RULE_GROUP_CSR into rule_group_id;
308: if(RULE_GROUP_CSR%NOTFOUND) then
309: close RULE_GROUP_CSR;
310: -- x_return_status := OKC_API.G_RET_STS_ERROR;
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: else
313: x_return_status := OKC_API.G_RET_STS_SUCCESS;
314: end if;
307: fetch RULE_GROUP_CSR into rule_group_id;
308: if(RULE_GROUP_CSR%NOTFOUND) then
309: close RULE_GROUP_CSR;
310: -- x_return_status := OKC_API.G_RET_STS_ERROR;
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: else
313: x_return_status := OKC_API.G_RET_STS_SUCCESS;
314: end if;
315: return rule_group_id;
309: close RULE_GROUP_CSR;
310: -- x_return_status := OKC_API.G_RET_STS_ERROR;
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: else
313: x_return_status := OKC_API.G_RET_STS_SUCCESS;
314: end if;
315: return rule_group_id;
316: END get_line_rule_group_id;
317: FUNCTION get_rule_id(
338: p_rgr_rec.rule_information_category);
339: fetch RULE_CSR into rule_id;
340: if(RULE_CSR%NOTFOUND) then
341: close RULE_CSR;
342: -- x_return_status := OKC_API.G_RET_STS_ERROR;
343: x_return_status := OKC_API.G_RET_STS_SUCCESS;
344: -- halt further validation of this column
345: else
346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
339: fetch RULE_CSR into rule_id;
340: if(RULE_CSR%NOTFOUND) then
341: close RULE_CSR;
342: -- x_return_status := OKC_API.G_RET_STS_ERROR;
343: x_return_status := OKC_API.G_RET_STS_SUCCESS;
344: -- halt further validation of this column
345: else
346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
347: end if;
342: -- x_return_status := OKC_API.G_RET_STS_ERROR;
343: x_return_status := OKC_API.G_RET_STS_SUCCESS;
344: -- halt further validation of this column
345: else
346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
347: end if;
348: return rule_id;
349: END get_rule_id;
350: PROCEDURE create_hdr_rule_group_rules(
385:
386: BEGIN
387:
388: --l_rgr_rec := px_rgr_rec;
389: if(p_rule_group_id is null or p_rule_group_id = OKC_API.G_MISS_NUM) then
390: l_rgpv_rec.rgd_code := l_rgr_rec.rgd_code;
391: l_rgpv_rec.chr_id := p_chr_id;
392: l_rgpv_rec.dnz_chr_id := p_chr_id;
393: l_rgpv_rec.cle_id := null;
417: px_rgr_rec.rgp_id := lx_rgpv_rec.id;
418: px_rgr_rec.dnz_chr_id := p_chr_id;
419:
420:
421: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: RAISE OKC_API.G_EXCEPTION_ERROR;
423: END IF;
424:
425:
418: px_rgr_rec.dnz_chr_id := p_chr_id;
419:
420:
421: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: RAISE OKC_API.G_EXCEPTION_ERROR;
423: END IF;
424:
425:
426: /*
459: x_msg_data => x_msg_data,
460: p_rulv_rec => l_rulv_rec,
461: x_rulv_rec => lx_rulv_rec);
462:
463: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
464: RAISE OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: close l_lock_hdr_csr;
467: else
460: p_rulv_rec => l_rulv_rec,
461: x_rulv_rec => lx_rulv_rec);
462:
463: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
464: RAISE OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: close l_lock_hdr_csr;
467: else
468: px_rgr_rec.rgp_id := p_rule_group_id;
475: x_msg_count => x_msg_count,
476: x_msg_data => x_msg_data,
477: p_chr_id => p_chr_id,
478: p_rgr_rec => px_rgr_rec);
479: if(px_rgr_rec.rule_id is null or px_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
480: l_rulv_rec.object_version_number := l_rgr_rec.object_version_number;
481: l_rulv_rec.sfwt_flag := l_rgr_rec.sfwt_flag;
482: l_rulv_rec.dnz_chr_id := p_chr_id;
483: l_rulv_rec.rgp_id := px_rgr_rec.rgp_id;
499: x_msg_data => x_msg_data,
500: p_rulv_rec => l_rulv_rec,
501: x_rulv_rec => lx_rulv_rec);
502:
503: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
504: RAISE OKC_API.G_EXCEPTION_ERROR;
505: END IF;
506:
507: px_rgr_rec.rule_id := lx_rulv_rec.id;
500: p_rulv_rec => l_rulv_rec,
501: x_rulv_rec => lx_rulv_rec);
502:
503: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
504: RAISE OKC_API.G_EXCEPTION_ERROR;
505: END IF;
506:
507: px_rgr_rec.rule_id := lx_rulv_rec.id;
508:
509: end if;
510:
511:
512: EXCEPTION
513: when OKC_API.G_EXCEPTION_ERROR then
514: If l_lock_hdr_csr%ISOPEN then
515: close l_lock_hdr_csr;
516: End If;
517: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
513: when OKC_API.G_EXCEPTION_ERROR then
514: If l_lock_hdr_csr%ISOPEN then
515: close l_lock_hdr_csr;
516: End If;
517: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
518: p_api_name => l_api_name,
519: p_pkg_name => G_PKG_NAME,
520: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
521: x_msg_count => x_msg_count,
516: End If;
517: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
518: p_api_name => l_api_name,
519: p_pkg_name => G_PKG_NAME,
520: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
521: x_msg_count => x_msg_count,
522: x_msg_data => x_msg_data,
523: p_api_type => G_API_TYPE);
524:
521: x_msg_count => x_msg_count,
522: x_msg_data => x_msg_data,
523: p_api_type => G_API_TYPE);
524:
525: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
526: If l_lock_hdr_csr%ISOPEN then
527: close l_lock_hdr_csr;
528: End If;
529:
526: If l_lock_hdr_csr%ISOPEN then
527: close l_lock_hdr_csr;
528: End If;
529:
530: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
531: p_api_name => l_api_name,
532: p_pkg_name => G_PKG_NAME,
533: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
534: x_msg_count => x_msg_count,
529:
530: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
531: p_api_name => l_api_name,
532: p_pkg_name => G_PKG_NAME,
533: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
534: x_msg_count => x_msg_count,
535: x_msg_data => x_msg_data,
536: p_api_type => G_API_TYPE);
537:
539: If l_lock_hdr_csr%ISOPEN then
540: close l_lock_hdr_csr;
541: End If;
542:
543: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
544: p_api_name => l_api_name,
545: p_pkg_name => G_PKG_NAME,
546: p_exc_name => 'OTHERS',
547: x_msg_count => x_msg_count,
584: --avsingh
585:
586: BEGIN
587: --l_rgr_rec := px_rgr_rec;
588: if(p_rule_group_id is null or p_rule_group_id = OKC_API.G_MISS_NUM) then
589: l_rgpv_rec.rgd_code := l_rgr_rec.rgd_code;
590: l_rgpv_rec.chr_id := null;
591: l_rgpv_rec.dnz_chr_id := p_chr_id;
592: l_rgpv_rec.cle_id := p_line_id;
612: p_rgpv_rec => l_rgpv_rec,
613: x_rgpv_rec => lx_rgpv_rec);
614:
615:
616: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
617: RAISE OKC_API.G_EXCEPTION_ERROR;
618: END IF;
619:
620: px_rgr_rec.rgp_id := lx_rgpv_rec.id;
613: x_rgpv_rec => lx_rgpv_rec);
614:
615:
616: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
617: RAISE OKC_API.G_EXCEPTION_ERROR;
618: END IF;
619:
620: px_rgr_rec.rgp_id := lx_rgpv_rec.id;
621: px_rgr_rec.dnz_chr_id := p_chr_id;
652: x_msg_data => x_msg_data,
653: p_rulv_rec => l_rulv_rec,
654: x_rulv_rec => lx_rulv_rec);
655:
656: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: close l_lock_cle_csr;
660: else
653: p_rulv_rec => l_rulv_rec,
654: x_rulv_rec => lx_rulv_rec);
655:
656: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: close l_lock_cle_csr;
660: else
661: px_rgr_rec.rgp_id := p_rule_group_id;
668: x_msg_count => x_msg_count,
669: x_msg_data => x_msg_data,
670: p_chr_id => p_chr_id,
671: p_rgr_rec => px_rgr_rec);
672: if(px_rgr_rec.rule_id is null or px_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
673: l_rulv_rec.object_version_number := l_rgr_rec.object_version_number;
674: l_rulv_rec.sfwt_flag := l_rgr_rec.sfwt_flag;
675: l_rulv_rec.dnz_chr_id := p_chr_id;
676: l_rulv_rec.rgp_id := px_rgr_rec.rgp_id;
692: x_msg_data => x_msg_data,
693: p_rulv_rec => l_rulv_rec,
694: x_rulv_rec => lx_rulv_rec);
695:
696: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
697: RAISE OKC_API.G_EXCEPTION_ERROR;
698: END IF;
699: px_rgr_rec.rule_id := lx_rulv_rec.id;
700:
693: p_rulv_rec => l_rulv_rec,
694: x_rulv_rec => lx_rulv_rec);
695:
696: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
697: RAISE OKC_API.G_EXCEPTION_ERROR;
698: END IF;
699: px_rgr_rec.rule_id := lx_rulv_rec.id;
700:
701: end if;
700:
701: end if;
702:
703: EXCEPTION
704: when OKC_API.G_EXCEPTION_ERROR then
705: If l_lock_cle_csr%ISOPEN then
706: close l_lock_cle_csr;
707: End If;
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
704: when OKC_API.G_EXCEPTION_ERROR then
705: If l_lock_cle_csr%ISOPEN then
706: close l_lock_cle_csr;
707: End If;
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
709: p_api_name => l_api_name,
710: p_pkg_name => G_PKG_NAME,
711: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
712: x_msg_count => x_msg_count,
707: End If;
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
709: p_api_name => l_api_name,
710: p_pkg_name => G_PKG_NAME,
711: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
712: x_msg_count => x_msg_count,
713: x_msg_data => x_msg_data,
714: p_api_type => G_API_TYPE);
715:
712: x_msg_count => x_msg_count,
713: x_msg_data => x_msg_data,
714: p_api_type => G_API_TYPE);
715:
716: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
717: If l_lock_cle_csr%ISOPEN then
718: close l_lock_cle_csr;
719: End If;
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
716: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
717: If l_lock_cle_csr%ISOPEN then
718: close l_lock_cle_csr;
719: End If;
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => G_PKG_NAME,
723: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
724: x_msg_count => x_msg_count,
719: End If;
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => G_PKG_NAME,
723: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
724: x_msg_count => x_msg_count,
725: x_msg_data => x_msg_data,
726: p_api_type => G_API_TYPE);
727:
729: If l_lock_cle_csr%ISOPEN then
730: close l_lock_cle_csr;
731: End If;
732:
733: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
734: p_api_name => l_api_name,
735: p_pkg_name => G_PKG_NAME,
736: p_exc_name => 'OTHERS',
737: x_msg_count => x_msg_count,
767: l_bill_to_rec l_bill_to_csr%ROWTYPE;
768:
769: BEGIN
770:
771: if(lx_rgr_rec.rule_id is null or lx_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
772: rule_group_id := get_header_rule_group_id(
773: p_api_version => p_api_version,
774: p_init_msg_list => p_init_msg_list,
775: x_return_status => x_return_status,
786: x_msg_data => x_msg_data,
787: p_chr_id => p_chr_id,
788: p_rule_group_id => rule_group_id,
789: px_rgr_rec => lx_rgr_rec);
790: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
791: RAISE OKC_API.G_EXCEPTION_ERROR;
792: END IF;
793: end if;
794:
787: p_chr_id => p_chr_id,
788: p_rule_group_id => rule_group_id,
789: px_rgr_rec => lx_rgr_rec);
790: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
791: RAISE OKC_API.G_EXCEPTION_ERROR;
792: END IF;
793: end if;
794:
795: --Bug#4542290
793: end if;
794:
795: --Bug#4542290
796: IF (lx_rgr_rec.rgd_code = 'LABILL' AND lx_rgr_rec.RULE_INFORMATION_CATEGORY = 'LAINVD') THEN
797: IF (lx_rgr_rec.RULE_INFORMATION3 IS NULL OR lx_rgr_rec.RULE_INFORMATION3 = OKC_API.G_MISS_CHAR) THEN
798: --FETCH print lead days and update record.
799: OPEN l_bill_to_csr;
800: FETCH l_bill_to_csr INTO l_bill_to_rec;
801: CLOSE l_bill_to_csr;
812: x_msg_count => x_msg_count,
813: x_msg_data => x_msg_data,
814: p_chr_id => p_chr_id);
815:
816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
817: x_return_status := l_return_status;
818: RAISE OKC_API.G_EXCEPTION_ERROR;
819: END IF;
820: END IF;
814: p_chr_id => p_chr_id);
815:
816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
817: x_return_status := l_return_status;
818: RAISE OKC_API.G_EXCEPTION_ERROR;
819: END IF;
820: END IF;
821:
822: update_rule_rec(
825: x_return_status => x_return_status,
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data,
828: p_rgr_rec => lx_rgr_rec);
829: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: EXCEPTION
833: when OKC_API.G_EXCEPTION_ERROR then
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data,
828: p_rgr_rec => lx_rgr_rec);
829: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: EXCEPTION
833: when OKC_API.G_EXCEPTION_ERROR then
834: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
829: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: EXCEPTION
833: when OKC_API.G_EXCEPTION_ERROR then
834: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
835: p_api_name => l_api_name,
836: p_pkg_name => G_PKG_NAME,
837: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: EXCEPTION
833: when OKC_API.G_EXCEPTION_ERROR then
834: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
835: p_api_name => l_api_name,
836: p_pkg_name => G_PKG_NAME,
837: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
838: x_msg_count => x_msg_count,
833: when OKC_API.G_EXCEPTION_ERROR then
834: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
835: p_api_name => l_api_name,
836: p_pkg_name => G_PKG_NAME,
837: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
838: x_msg_count => x_msg_count,
839: x_msg_data => x_msg_data,
840: p_api_type => G_API_TYPE);
841:
838: x_msg_count => x_msg_count,
839: x_msg_data => x_msg_data,
840: p_api_type => G_API_TYPE);
841:
842: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
843: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
844: p_api_name => l_api_name,
845: p_pkg_name => G_PKG_NAME,
846: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
839: x_msg_data => x_msg_data,
840: p_api_type => G_API_TYPE);
841:
842: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
843: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
844: p_api_name => l_api_name,
845: p_pkg_name => G_PKG_NAME,
846: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
847: x_msg_count => x_msg_count,
842: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
843: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
844: p_api_name => l_api_name,
845: p_pkg_name => G_PKG_NAME,
846: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
847: x_msg_count => x_msg_count,
848: x_msg_data => x_msg_data,
849: p_api_type => G_API_TYPE);
850:
848: x_msg_data => x_msg_data,
849: p_api_type => G_API_TYPE);
850:
851: when OTHERS then
852: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
853: p_api_name => l_api_name,
854: p_pkg_name => G_PKG_NAME,
855: p_exc_name => 'OTHERS',
856: x_msg_count => x_msg_count,
870: lx_rgr_rec rgr_rec_type := p_rgr_rec;
871: rule_group_id NUMBER := null;
872: l_return_status VARCHAR2(1);
873: BEGIN
874: if(lx_rgr_rec.rule_id is null or lx_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
875: rule_group_id := get_line_rule_group_id(
876: p_api_version => p_api_version,
877: p_init_msg_list => p_init_msg_list,
878: x_return_status => x_return_status,
891: p_line_id => p_line_id,
892: p_rule_group_id => rule_group_id,
893: px_rgr_rec => lx_rgr_rec);
894:
895: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
896: RAISE OKC_API.G_EXCEPTION_ERROR;
897: END IF;
898:
899: end if;
892: p_rule_group_id => rule_group_id,
893: px_rgr_rec => lx_rgr_rec);
894:
895: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
896: RAISE OKC_API.G_EXCEPTION_ERROR;
897: END IF;
898:
899: end if;
900:
909: p_chr_id => p_chr_id,
910: p_line_id => p_line_id,
911: p_rule_group_id => rule_group_id,
912: p_rgr_rec => lx_rgr_rec);
913: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
914: x_return_status := l_return_status;
915: RAISE OKC_API.G_EXCEPTION_ERROR;
916: END IF;
917: END IF;
911: p_rule_group_id => rule_group_id,
912: p_rgr_rec => lx_rgr_rec);
913: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
914: x_return_status := l_return_status;
915: RAISE OKC_API.G_EXCEPTION_ERROR;
916: END IF;
917: END IF;
918:
919: update_rule_rec(
923: x_msg_count => x_msg_count,
924: x_msg_data => x_msg_data,
925: p_rgr_rec => lx_rgr_rec);
926:
927: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
928: RAISE OKC_API.G_EXCEPTION_ERROR;
929: END IF;
930: EXCEPTION
931: when OKC_API.G_EXCEPTION_ERROR then
924: x_msg_data => x_msg_data,
925: p_rgr_rec => lx_rgr_rec);
926:
927: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
928: RAISE OKC_API.G_EXCEPTION_ERROR;
929: END IF;
930: EXCEPTION
931: when OKC_API.G_EXCEPTION_ERROR then
932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
927: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
928: RAISE OKC_API.G_EXCEPTION_ERROR;
929: END IF;
930: EXCEPTION
931: when OKC_API.G_EXCEPTION_ERROR then
932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
933: p_api_name => l_api_name,
934: p_pkg_name => G_PKG_NAME,
935: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
928: RAISE OKC_API.G_EXCEPTION_ERROR;
929: END IF;
930: EXCEPTION
931: when OKC_API.G_EXCEPTION_ERROR then
932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
933: p_api_name => l_api_name,
934: p_pkg_name => G_PKG_NAME,
935: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
936: x_msg_count => x_msg_count,
931: when OKC_API.G_EXCEPTION_ERROR then
932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
933: p_api_name => l_api_name,
934: p_pkg_name => G_PKG_NAME,
935: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
936: x_msg_count => x_msg_count,
937: x_msg_data => x_msg_data,
938: p_api_type => G_API_TYPE);
939:
936: x_msg_count => x_msg_count,
937: x_msg_data => x_msg_data,
938: p_api_type => G_API_TYPE);
939:
940: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
941: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
942: p_api_name => l_api_name,
943: p_pkg_name => G_PKG_NAME,
944: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
937: x_msg_data => x_msg_data,
938: p_api_type => G_API_TYPE);
939:
940: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
941: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
942: p_api_name => l_api_name,
943: p_pkg_name => G_PKG_NAME,
944: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
945: x_msg_count => x_msg_count,
940: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
941: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
942: p_api_name => l_api_name,
943: p_pkg_name => G_PKG_NAME,
944: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
945: x_msg_count => x_msg_count,
946: x_msg_data => x_msg_data,
947: p_api_type => G_API_TYPE);
948:
946: x_msg_data => x_msg_data,
947: p_api_type => G_API_TYPE);
948:
949: when OTHERS then
950: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
951: p_api_name => l_api_name,
952: p_pkg_name => G_PKG_NAME,
953: p_exc_name => 'OTHERS',
954: x_msg_count => x_msg_count,
982: open RMP_CSR(p_chr_id,p_rgp_id,p_cpl_id,p_rrd_id);
983: fetch RMP_CSR into rmp_id;
984: if(RMP_CSR%NOTFOUND) then
985: close RMP_CSR;
986: -- x_return_status := OKC_API.G_RET_STS_ERROR;
987: x_return_status := OKC_API.G_RET_STS_SUCCESS;
988: -- halt further validation of this column
989: else
990: x_return_status := OKC_API.G_RET_STS_SUCCESS;
983: fetch RMP_CSR into rmp_id;
984: if(RMP_CSR%NOTFOUND) then
985: close RMP_CSR;
986: -- x_return_status := OKC_API.G_RET_STS_ERROR;
987: x_return_status := OKC_API.G_RET_STS_SUCCESS;
988: -- halt further validation of this column
989: else
990: x_return_status := OKC_API.G_RET_STS_SUCCESS;
991: end if;
986: -- x_return_status := OKC_API.G_RET_STS_ERROR;
987: x_return_status := OKC_API.G_RET_STS_SUCCESS;
988: -- halt further validation of this column
989: else
990: x_return_status := OKC_API.G_RET_STS_SUCCESS;
991: end if;
992: return rmp_id;
993: END get_rg_party_roles_id;
994: FUNCTION get_rg_party_roles_rgp_id(
1014: open RMP_CSR(p_chr_id,p_cpl_id,p_rrd_id);
1015: fetch RMP_CSR into rgp_id;
1016: if(RMP_CSR%NOTFOUND) then
1017: close RMP_CSR;
1018: -- x_return_status := OKC_API.G_RET_STS_ERROR;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: -- halt further validation of this column
1021: else
1022: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1015: fetch RMP_CSR into rgp_id;
1016: if(RMP_CSR%NOTFOUND) then
1017: close RMP_CSR;
1018: -- x_return_status := OKC_API.G_RET_STS_ERROR;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: -- halt further validation of this column
1021: else
1022: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1023: end if;
1018: -- x_return_status := OKC_API.G_RET_STS_ERROR;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: -- halt further validation of this column
1021: else
1022: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1023: end if;
1024: return rgp_id;
1025: END get_rg_party_roles_rgp_id;
1026: PROCEDURE process_party_rule_group_rules(
1049: p_chr_id => p_chr_id,
1050: p_line_id => p_line_id,
1051: p_cpl_id => p_cpl_id,
1052: p_rrd_id => p_rrd_id);
1053: if(rule_group_id is null or rule_group_id = OKC_API.G_MISS_NUM) then
1054: create_hdr_rule_group_rules(
1055: p_api_version => p_api_version,
1056: p_init_msg_list => p_init_msg_list,
1057: x_return_status => x_return_status,
1060: p_chr_id => p_chr_id,
1061: p_rule_group_id => null,
1062: px_rgr_rec => lx_rgr_rec);
1063:
1064: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067:
1068: l_rmpv_rec.rgp_id := lx_rgr_rec.rgp_id;
1061: p_rule_group_id => null,
1062: px_rgr_rec => lx_rgr_rec);
1063:
1064: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067:
1068: l_rmpv_rec.rgp_id := lx_rgr_rec.rgp_id;
1069: l_rmpv_rec.rrd_id := p_rrd_id;
1077: x_msg_data => x_msg_data,
1078: p_rmpv_rec => l_rmpv_rec,
1079: x_rmpv_rec => lx_rmpv_rec);
1080:
1081: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1082: RAISE OKC_API.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1085:
1078: p_rmpv_rec => l_rmpv_rec,
1079: x_rmpv_rec => lx_rmpv_rec);
1080:
1081: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1082: RAISE OKC_API.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1085:
1086: elsif(lx_rgr_rec.rule_id is null or lx_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
1082: RAISE OKC_API.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1085:
1086: elsif(lx_rgr_rec.rule_id is null or lx_rgr_rec.rule_id = OKC_API.G_MISS_NUM) then
1087: rule_group_id := get_rg_party_roles_rgp_id(
1088: p_api_version => p_api_version,
1089: p_init_msg_list => p_init_msg_list,
1090: x_return_status => x_return_status,
1102: x_msg_data => x_msg_data,
1103: p_chr_id => p_chr_id,
1104: p_rule_group_id => rule_group_id,
1105: px_rgr_rec => lx_rgr_rec);
1106: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1107: RAISE OKC_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: end if;
1110: update_rule_rec(
1103: p_chr_id => p_chr_id,
1104: p_rule_group_id => rule_group_id,
1105: px_rgr_rec => lx_rgr_rec);
1106: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1107: RAISE OKC_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: end if;
1110: update_rule_rec(
1111: p_api_version => p_api_version,
1114: x_msg_count => x_msg_count,
1115: x_msg_data => x_msg_data,
1116: p_rgr_rec => lx_rgr_rec);
1117:
1118: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: EXCEPTION
1122: when OKC_API.G_EXCEPTION_ERROR then
1115: x_msg_data => x_msg_data,
1116: p_rgr_rec => lx_rgr_rec);
1117:
1118: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: EXCEPTION
1122: when OKC_API.G_EXCEPTION_ERROR then
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1118: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: EXCEPTION
1122: when OKC_API.G_EXCEPTION_ERROR then
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1124: p_api_name => l_api_name,
1125: p_pkg_name => G_PKG_NAME,
1126: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: EXCEPTION
1122: when OKC_API.G_EXCEPTION_ERROR then
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1124: p_api_name => l_api_name,
1125: p_pkg_name => G_PKG_NAME,
1126: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1127: x_msg_count => x_msg_count,
1122: when OKC_API.G_EXCEPTION_ERROR then
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1124: p_api_name => l_api_name,
1125: p_pkg_name => G_PKG_NAME,
1126: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1127: x_msg_count => x_msg_count,
1128: x_msg_data => x_msg_data,
1129: p_api_type => G_API_TYPE);
1130:
1127: x_msg_count => x_msg_count,
1128: x_msg_data => x_msg_data,
1129: p_api_type => G_API_TYPE);
1130:
1131: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1132: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1133: p_api_name => l_api_name,
1134: p_pkg_name => G_PKG_NAME,
1135: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1128: x_msg_data => x_msg_data,
1129: p_api_type => G_API_TYPE);
1130:
1131: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1132: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1133: p_api_name => l_api_name,
1134: p_pkg_name => G_PKG_NAME,
1135: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1136: x_msg_count => x_msg_count,
1131: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1132: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1133: p_api_name => l_api_name,
1134: p_pkg_name => G_PKG_NAME,
1135: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1136: x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data,
1138: p_api_type => G_API_TYPE);
1139:
1137: x_msg_data => x_msg_data,
1138: p_api_type => G_API_TYPE);
1139:
1140: when OTHERS then
1141: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1142: p_api_name => l_api_name,
1143: p_pkg_name => G_PKG_NAME,
1144: p_exc_name => 'OTHERS',
1145: x_msg_count => x_msg_count,
1159: l_rgr_rec rgr_rec_type := p_rgr_rec;
1160: l_rulv_rec rulv_rec_type := null;
1161: lx_rulv_rec rulv_rec_type := null;
1162: BEGIN
1163: if(l_rgr_rec.rule_id is null or l_rgr_rec.rule_id = OKC_API.G_MISS_NUM or l_rgr_rec.rule_id = '') then
1164: migrate_rec(p_rgr_rec => p_rgr_rec,
1165: x_rulv_rec => l_rulv_rec);
1166: l_rulv_rec.dnz_chr_id := null;
1167: l_rulv_rec.rgp_id := null;
1175: x_msg_data => x_msg_data,
1176: p_rulv_rec => l_rulv_rec,
1177: x_rulv_rec => lx_rulv_rec);
1178:
1179: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: px_rgr_rec.new_yn := 'Y';
1176: p_rulv_rec => l_rulv_rec,
1177: x_rulv_rec => lx_rulv_rec);
1178:
1179: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: px_rgr_rec.new_yn := 'Y';
1184: else
1196: x_msg_data => x_msg_data,
1197: p_rulv_rec => l_rulv_rec,
1198: x_rulv_rec => lx_rulv_rec);
1199:
1200: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: RAISE OKC_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: px_rgr_rec.new_yn := 'N';
1197: p_rulv_rec => l_rulv_rec,
1198: x_rulv_rec => lx_rulv_rec);
1199:
1200: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: RAISE OKC_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: px_rgr_rec.new_yn := 'N';
1205: end if;
1208: px_rgr_rec.rgd_code := p_rgr_rec.rgd_code;
1209:
1210:
1211: EXCEPTION
1212: when OKC_API.G_EXCEPTION_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => G_PKG_NAME,
1216: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1209:
1210:
1211: EXCEPTION
1212: when OKC_API.G_EXCEPTION_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => G_PKG_NAME,
1216: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1217: x_msg_count => x_msg_count,
1212: when OKC_API.G_EXCEPTION_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => G_PKG_NAME,
1216: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1217: x_msg_count => x_msg_count,
1218: x_msg_data => x_msg_data,
1219: p_api_type => G_API_TYPE);
1220:
1217: x_msg_count => x_msg_count,
1218: x_msg_data => x_msg_data,
1219: p_api_type => G_API_TYPE);
1220:
1221: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => G_PKG_NAME,
1225: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1218: x_msg_data => x_msg_data,
1219: p_api_type => G_API_TYPE);
1220:
1221: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => G_PKG_NAME,
1225: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1226: x_msg_count => x_msg_count,
1221: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => G_PKG_NAME,
1225: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1226: x_msg_count => x_msg_count,
1227: x_msg_data => x_msg_data,
1228: p_api_type => G_API_TYPE);
1229:
1227: x_msg_data => x_msg_data,
1228: p_api_type => G_API_TYPE);
1229:
1230: when OTHERS then
1231: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1232: p_api_name => l_api_name,
1233: p_pkg_name => G_PKG_NAME,
1234: p_exc_name => 'OTHERS',
1235: x_msg_count => x_msg_count,
1329: Thsi fix has been provided to support OA pages which are dynamic in nature and AMImpl is not passing the
1330: org context to the API.The fix doesnot have any other impact on functionality.
1331: Start changes
1332: */
1333: if (p_chr_id is not null and p_chr_id <> OKC_API.G_MISS_NUM) then
1334: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(p_chr_id => p_chr_id);
1335: end if;
1336: /* sosharma end changes */
1337:
1334: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(p_chr_id => p_chr_id);
1335: end if;
1336: /* sosharma end changes */
1337:
1338: if(l_chr_id is null or l_chr_id = OKC_API.G_MISS_NUM) then
1339: l_chr_id := -1;
1340: end if;
1341: if(l_line_id is null or l_line_id = OKC_API.G_MISS_NUM) then
1342: l_line_id := -1;
1337:
1338: if(l_chr_id is null or l_chr_id = OKC_API.G_MISS_NUM) then
1339: l_chr_id := -1;
1340: end if;
1341: if(l_line_id is null or l_line_id = OKC_API.G_MISS_NUM) then
1342: l_line_id := -1;
1343: end if;
1344: if(l_cpl_id is null or l_cpl_id = OKC_API.G_MISS_NUM) then
1345: l_cpl_id := -1;
1340: end if;
1341: if(l_line_id is null or l_line_id = OKC_API.G_MISS_NUM) then
1342: l_line_id := -1;
1343: end if;
1344: if(l_cpl_id is null or l_cpl_id = OKC_API.G_MISS_NUM) then
1345: l_cpl_id := -1;
1346: end if;
1347: if(l_chr_id = -1 and l_cpl_id = -1 and l_line_id = -1) then
1348: process_type := 'TEMPLATE';
1354: process_type := 'PARTY';
1355: end if;
1356:
1357:
1358: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1359: -- call START_ACTIVITY to create savepoint, check compatibility
1360: -- and initialize message list
1361: x_return_status := OKC_API.START_ACTIVITY(
1362: p_api_name => l_api_name,
1357:
1358: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1359: -- call START_ACTIVITY to create savepoint, check compatibility
1360: -- and initialize message list
1361: x_return_status := OKC_API.START_ACTIVITY(
1362: p_api_name => l_api_name,
1363: p_pkg_name => G_PKG_NAME,
1364: p_init_msg_list => p_init_msg_list,
1365: l_api_version => l_api_version,
1367: p_api_type => G_API_TYPE,
1368: x_return_status => x_return_status);
1369:
1370: -- check if activity started successfully
1371: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1374: raise OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1368: x_return_status => x_return_status);
1369:
1370: -- check if activity started successfully
1371: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1374: raise OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376:
1369:
1370: -- check if activity started successfully
1371: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1374: raise OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376:
1377: --Bug# 4959361
1370: -- check if activity started successfully
1371: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1374: raise OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376:
1377: --Bug# 4959361
1378: IF (l_rgr_tbl(l_rgr_tbl.FIRST).rgd_code = 'LAPSTH' and process_type = 'LINE') OR
1408: x_return_status => x_return_status,
1409: p_chr_id => l_chr_id,
1410: p_rgr_rec => l_rgr_tbl(i));
1411:
1412: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1413: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1414: RAISE G_EXCEPTION_STOP_VALIDATION;
1415: --return;
1416: END IF;
1409: p_chr_id => l_chr_id,
1410: p_rgr_rec => l_rgr_tbl(i));
1411:
1412: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1413: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1414: RAISE G_EXCEPTION_STOP_VALIDATION;
1415: --return;
1416: END IF;
1417: end if;
1483: p_rrd_id => l_rrd_id,
1484: p_rgr_rec => l_rgr_tbl(i));
1485: end if;
1486:
1487: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: exit when (i >= l_rgr_tbl.last);
1491: end loop;
1484: p_rgr_rec => l_rgr_tbl(i));
1485: end if;
1486:
1487: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: exit when (i >= l_rgr_tbl.last);
1491: end loop;
1492: IF (l_rgr_tbl.count > 0) THEN
1504: p_payment_id => null,
1505: p_update_type => 'VIR_PAYMENT',
1506: x_rulv_tbl => x_rulv_tbl);
1507:
1508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1509: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1511: raise OKC_API.G_EXCEPTION_ERROR;
1512: END IF;
1505: p_update_type => 'VIR_PAYMENT',
1506: x_rulv_tbl => x_rulv_tbl);
1507:
1508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1509: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1511: raise OKC_API.G_EXCEPTION_ERROR;
1512: END IF;
1513: end if;
1506: x_rulv_tbl => x_rulv_tbl);
1507:
1508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1509: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1511: raise OKC_API.G_EXCEPTION_ERROR;
1512: END IF;
1513: end if;
1514:
1507:
1508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1509: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1511: raise OKC_API.G_EXCEPTION_ERROR;
1512: END IF;
1513: end if;
1514:
1515: --Bug# 8652738
1532: x_msg_count => x_msg_count,
1533: x_msg_data => x_msg_data,
1534: p_chr_id => l_chr_id);
1535:
1536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1537: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1539: raise OKC_API.G_EXCEPTION_ERROR;
1540: END IF;
1533: x_msg_data => x_msg_data,
1534: p_chr_id => l_chr_id);
1535:
1536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1537: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1539: raise OKC_API.G_EXCEPTION_ERROR;
1540: END IF;
1541: end if;
1534: p_chr_id => l_chr_id);
1535:
1536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1537: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1539: raise OKC_API.G_EXCEPTION_ERROR;
1540: END IF;
1541: end if;
1542:
1535:
1536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1537: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1539: raise OKC_API.G_EXCEPTION_ERROR;
1540: END IF;
1541: end if;
1542:
1543: END IF;
1656: x_msg_data => x_msg_data);
1657:
1658:
1659: EXCEPTION
1660: when OKC_API.G_EXCEPTION_ERROR then
1661:
1662: --sechawla 4-jun-09 6826580 : begin
1663: IF l_inv_frmt_csr%ISOPEN THEN
1664: CLOSE l_inv_frmt_csr;
1663: IF l_inv_frmt_csr%ISOPEN THEN
1664: CLOSE l_inv_frmt_csr;
1665: END IF;
1666:
1667: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1668: p_api_name => l_api_name,
1669: p_pkg_name => G_PKG_NAME,
1670: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1671: x_msg_count => x_msg_count,
1666:
1667: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1668: p_api_name => l_api_name,
1669: p_pkg_name => G_PKG_NAME,
1670: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1671: x_msg_count => x_msg_count,
1672: x_msg_data => x_msg_data,
1673: p_api_type => G_API_TYPE);
1674:
1678: CLOSE l_inv_frmt_csr;
1679: END IF;
1680: null;
1681:
1682: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1683:
1684: --sechawla 4-jun-09 6826580 : begin
1685: IF l_inv_frmt_csr%ISOPEN THEN
1686: CLOSE l_inv_frmt_csr;
1685: IF l_inv_frmt_csr%ISOPEN THEN
1686: CLOSE l_inv_frmt_csr;
1687: END IF;
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1690: p_api_name => l_api_name,
1691: p_pkg_name => G_PKG_NAME,
1692: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1693: x_msg_count => x_msg_count,
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1690: p_api_name => l_api_name,
1691: p_pkg_name => G_PKG_NAME,
1692: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1693: x_msg_count => x_msg_count,
1694: x_msg_data => x_msg_data,
1695: p_api_type => G_API_TYPE);
1696:
1700: IF l_inv_frmt_csr%ISOPEN THEN
1701: CLOSE l_inv_frmt_csr;
1702: END IF;
1703:
1704: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1705: p_api_name => l_api_name,
1706: p_pkg_name => G_PKG_NAME,
1707: p_exc_name => 'OTHERS',
1708: x_msg_count => x_msg_count,
1729: l_api_version CONSTANT VARCHAR2(30) := p_api_version;
1730:
1731: BEGIN
1732:
1733: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1734: -- call START_ACTIVITY to create savepoint, check compatibility
1735: -- and initialize message list
1736: x_return_status := OKC_API.START_ACTIVITY(
1737: p_api_name => l_api_name,
1732:
1733: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1734: -- call START_ACTIVITY to create savepoint, check compatibility
1735: -- and initialize message list
1736: x_return_status := OKC_API.START_ACTIVITY(
1737: p_api_name => l_api_name,
1738: p_pkg_name => G_PKG_NAME,
1739: p_init_msg_list => p_init_msg_list,
1740: l_api_version => l_api_version,
1742: p_api_type => G_API_TYPE,
1743: x_return_status => x_return_status);
1744:
1745: -- check if activity started successfully
1746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1749: raise OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1743: x_return_status => x_return_status);
1744:
1745: -- check if activity started successfully
1746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1749: raise OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751:
1744:
1745: -- check if activity started successfully
1746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1749: raise OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751:
1752: loop
1745: -- check if activity started successfully
1746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1747: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1749: raise OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751:
1752: loop
1753: i := i + 1;
1759: x_msg_data => x_msg_data,
1760: p_rgr_rec => l_rgr_tbl(i),
1761: px_rgr_rec => lx_rgr_tbl(i));
1762:
1763: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1764: RAISE OKC_API.G_EXCEPTION_ERROR;
1765: END IF;
1766:
1767: exit when (i >= l_rgr_tbl.last);
1760: p_rgr_rec => l_rgr_tbl(i),
1761: px_rgr_rec => lx_rgr_tbl(i));
1762:
1763: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1764: RAISE OKC_API.G_EXCEPTION_ERROR;
1765: END IF;
1766:
1767: exit when (i >= l_rgr_tbl.last);
1768: end loop;
1772: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1773: x_msg_data => x_msg_data);
1774:
1775: EXCEPTION
1776: when OKC_API.G_EXCEPTION_ERROR then
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1778: p_api_name => l_api_name,
1779: p_pkg_name => G_PKG_NAME,
1780: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1773: x_msg_data => x_msg_data);
1774:
1775: EXCEPTION
1776: when OKC_API.G_EXCEPTION_ERROR then
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1778: p_api_name => l_api_name,
1779: p_pkg_name => G_PKG_NAME,
1780: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1781: x_msg_count => x_msg_count,
1776: when OKC_API.G_EXCEPTION_ERROR then
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1778: p_api_name => l_api_name,
1779: p_pkg_name => G_PKG_NAME,
1780: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1781: x_msg_count => x_msg_count,
1782: x_msg_data => x_msg_data,
1783: p_api_type => G_API_TYPE);
1784:
1781: x_msg_count => x_msg_count,
1782: x_msg_data => x_msg_data,
1783: p_api_type => G_API_TYPE);
1784:
1785: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1786: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1787: p_api_name => l_api_name,
1788: p_pkg_name => G_PKG_NAME,
1789: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1782: x_msg_data => x_msg_data,
1783: p_api_type => G_API_TYPE);
1784:
1785: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1786: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1787: p_api_name => l_api_name,
1788: p_pkg_name => G_PKG_NAME,
1789: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1790: x_msg_count => x_msg_count,
1785: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1786: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1787: p_api_name => l_api_name,
1788: p_pkg_name => G_PKG_NAME,
1789: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1790: x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data,
1792: p_api_type => G_API_TYPE);
1793:
1791: x_msg_data => x_msg_data,
1792: p_api_type => G_API_TYPE);
1793:
1794: when OTHERS then
1795: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1796: p_api_name => l_api_name,
1797: p_pkg_name => G_PKG_NAME,
1798: p_exc_name => 'OTHERS',
1799: x_msg_count => x_msg_count,