34: x_inv_acct_code OUT NOCOPY VARCHAR2
35: )
36: IS
37:
38: l_init_msg_list VARCHAR2(1) := Okc_Api.g_false;
39: l_return_status VARCHAR2(1);
40: l_msg_count NUMBER;
41: l_msg_data VARCHAR2(2000);
42: l_scs_code VARCHAR2(2000);
95:
96: PROCEDURE on_account_credit_memo
97: (
98: p_api_version IN NUMBER,
99: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
100: p_try_id IN NUMBER,
101: p_khr_id IN NUMBER,
102: p_kle_id IN NUMBER,
103: p_ipy_id IN NUMBER,
114:
115: l_api_name CONSTANT VARCHAR2(30) := 'on_account_credit_memo';
116:
117: l_api_version CONSTANT NUMBER := 1;
118: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
119:
120:
121: /*
122: l_bpd_acc_rec OKL_INSURANCE_POLICIES_PVT.bpd_acc_rec_type ;
138:
139:
140: BEGIN
141:
142: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
143: G_PKG_NAME,
144: p_init_msg_list,
145: l_api_version,
146: p_api_version,
149:
150:
151:
152:
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
150:
151:
152:
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158:
151:
152:
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158:
159:
152:
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158:
159:
160: -- Bug 5897792 Start
350: END IF;
351:
352: -- 5897792 Start End
353:
354: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
355:
356: EXCEPTION
357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
353:
354: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
355:
356: EXCEPTION
357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
359: (
360: l_api_name,
361: G_PKG_NAME,
354: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
355:
356: EXCEPTION
357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
359: (
360: l_api_name,
361: G_PKG_NAME,
362: 'OKC_API.G_RET_STS_ERROR',
358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
359: (
360: l_api_name,
361: G_PKG_NAME,
362: 'OKC_API.G_RET_STS_ERROR',
363: x_msg_count,
364: x_msg_data,
365: '_PROCESS'
366: );
363: x_msg_count,
364: x_msg_data,
365: '_PROCESS'
366: );
367: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
368: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
369: (
370: l_api_name,
371: G_PKG_NAME,
364: x_msg_data,
365: '_PROCESS'
366: );
367: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
368: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
369: (
370: l_api_name,
371: G_PKG_NAME,
372: 'OKC_API.G_RET_STS_UNEXP_ERROR',
368: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
369: (
370: l_api_name,
371: G_PKG_NAME,
372: 'OKC_API.G_RET_STS_UNEXP_ERROR',
373: x_msg_count,
374: x_msg_data,
375: '_PROCESS'
376: );
374: x_msg_data,
375: '_PROCESS'
376: );
377: WHEN OTHERS THEN
378: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
379: (
380: l_api_name,
381: G_PKG_NAME,
382: 'OTHERS',
402: FUNCTION get_contract_status (
403: p_khr_id IN NUMBER,
404: x_contract_status OUT NOCOPY VARCHAR2
405: ) RETURN VARCHAR2 IS
406: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
407: CURSOR okc_k_status_csr(p_khr_id IN NUMBER) IS
408: SELECT STE_CODE
409: FROM OKC_K_HEADERS_V KHR , OKC_STATUSES_B OST
410: WHERE KHR.ID = p_khr_id
418: OKL_API.set_message(G_APP_NAME,
419: G_INVALID_CONTRACT
420: );
421: CLOSE okc_k_status_csr ;
422: l_return_status := OKC_API.G_RET_STS_ERROR;
423: -- Change it to
424: RETURN(l_return_status);
425: END IF;
426: CLOSE okc_k_status_csr ;
427: RETURN(l_return_status);
428: EXCEPTION
429: WHEN OTHERS THEN
430: -- store SQL error message on message stack for caller
431: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
432: -- notify caller of an UNEXPECTED error
433: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
434: -- verify that cursor was closed
435: IF okc_k_status_csr%ISOPEN THEN
429: WHEN OTHERS THEN
430: -- store SQL error message on message stack for caller
431: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
432: -- notify caller of an UNEXPECTED error
433: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
434: -- verify that cursor was closed
435: IF okc_k_status_csr%ISOPEN THEN
436: CLOSE okc_k_status_csr;
437: END IF;
441: -----------------------------------------------------
442:
443: PROCEDURE insert_ap_request(
444: p_api_version IN NUMBER,
445: p_init_msg_list IN VARCHAR2 DEFAULT Okc_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_tap_id IN NUMBER,
502:
503: l_api_name CONSTANT VARCHAR2(30) := 'insert_ap_request';
504:
505: l_api_version CONSTANT NUMBER := 1;
506: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
507: l_trx_type_ID okl_trx_types_v.id%TYPE;
508:
509: p_name VARCHAR2(30) := 'BILLING' ;
510: -- Need to change code for hard coded value
517: lx_dbseqid NUMBER(38):= NULL;
518:
519: BEGIN
520:
521: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
522: G_PKG_NAME,
523: p_init_msg_list,
524: l_api_version,
525: p_api_version,
524: l_api_version,
525: p_api_version,
526: '_PROCESS',
527: x_return_status);
528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
531: RAISE OKC_API.G_EXCEPTION_ERROR;
532: END IF;
525: p_api_version,
526: '_PROCESS',
527: x_return_status);
528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
531: RAISE OKC_API.G_EXCEPTION_ERROR;
532: END IF;
533:
526: '_PROCESS',
527: x_return_status);
528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
531: RAISE OKC_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534:
527: x_return_status);
528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
531: RAISE OKC_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534:
535:
541: --Removed as part of fixing 3745151
542: /*
543: IF(c_app_info%NOTFOUND) THEN
544: -- Change Message
545: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_TRANSACTION',
546: G_COL_NAME_TOKEN,'Billing');
547: x_return_status := OKC_API.G_RET_STS_ERROR ;
548: CLOSE c_app_info ;
549: RAISE OKC_API.G_EXCEPTION_ERROR;
543: IF(c_app_info%NOTFOUND) THEN
544: -- Change Message
545: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_TRANSACTION',
546: G_COL_NAME_TOKEN,'Billing');
547: x_return_status := OKC_API.G_RET_STS_ERROR ;
548: CLOSE c_app_info ;
549: RAISE OKC_API.G_EXCEPTION_ERROR;
550: END if ;
551: */
545: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_TRANSACTION',
546: G_COL_NAME_TOKEN,'Billing');
547: x_return_status := OKC_API.G_RET_STS_ERROR ;
548: CLOSE c_app_info ;
549: RAISE OKC_API.G_EXCEPTION_ERROR;
550: END if ;
551: */
552: --Removed as part of fixing 3745151
553:
559:
560: -- Header Information
561: l_tapv_rec.sfwt_flag := 'N' ;
562: l_tapv_rec.TRX_STATUS_CODE := 'ENTERED' ;
563: IF ( p_tap_id <> NULL OR p_tap_id <> OKC_API.G_MISS_NUM ) THEN
564: OPEN c_tap_info (p_tap_id);
565: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
566: IF(c_tap_info%NOTFOUND) THEN
567: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
563: IF ( p_tap_id <> NULL OR p_tap_id <> OKC_API.G_MISS_NUM ) THEN
564: OPEN c_tap_info (p_tap_id);
565: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
566: IF(c_tap_info%NOTFOUND) THEN
567: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
568: x_return_status := OKC_API.G_RET_STS_ERROR ;
569: CLOSE c_tap_info ;
570: RAISE OKC_API.G_EXCEPTION_ERROR;
571: END if ;
564: OPEN c_tap_info (p_tap_id);
565: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
566: IF(c_tap_info%NOTFOUND) THEN
567: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
568: x_return_status := OKC_API.G_RET_STS_ERROR ;
569: CLOSE c_tap_info ;
570: RAISE OKC_API.G_EXCEPTION_ERROR;
571: END if ;
572: CLOSE c_tap_info;
566: IF(c_tap_info%NOTFOUND) THEN
567: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
568: x_return_status := OKC_API.G_RET_STS_ERROR ;
569: CLOSE c_tap_info ;
570: RAISE OKC_API.G_EXCEPTION_ERROR;
571: END if ;
572: CLOSE c_tap_info;
573: l_tapv_rec.TAP_ID_REVERSES := p_tap_id ;
574: l_tapv_rec.INVOICE_TYPE := 'CREDIT';
576:
577: OPEN C_CURRENCY (p_khr_id);
578: FETCH C_CURRENCY INTO l_tapv_rec.CURRENCY_CODE;--,l_tapv_rec.SET_OF_BOOKS_ID;
579: IF(C_CURRENCY%NOTFOUND) THEN
580: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
581: x_return_status := OKC_API.G_RET_STS_ERROR ;
582: CLOSE C_CURRENCY ;
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END if ;
577: OPEN C_CURRENCY (p_khr_id);
578: FETCH C_CURRENCY INTO l_tapv_rec.CURRENCY_CODE;--,l_tapv_rec.SET_OF_BOOKS_ID;
579: IF(C_CURRENCY%NOTFOUND) THEN
580: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
581: x_return_status := OKC_API.G_RET_STS_ERROR ;
582: CLOSE C_CURRENCY ;
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END if ;
585: CLOSE C_CURRENCY;
579: IF(C_CURRENCY%NOTFOUND) THEN
580: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
581: x_return_status := OKC_API.G_RET_STS_ERROR ;
582: CLOSE C_CURRENCY ;
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END if ;
585: CLOSE C_CURRENCY;
586:
587: l_tapv_rec.TAP_ID_REVERSES := OKC_API.G_MISS_NUM ;
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END if ;
585: CLOSE C_CURRENCY;
586:
587: l_tapv_rec.TAP_ID_REVERSES := OKC_API.G_MISS_NUM ;
588: l_tapv_rec.INVOICE_TYPE := 'STANDARD';
589: -- GET SET OF BOOK
590: l_tapv_rec.SET_OF_BOOKS_ID := OKL_ACCOUNTING_UTIL.get_set_of_books_id; --smoduga fix for bug 4238141
591:
692: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
693: END;
694: END IF;
695:
696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
699: RAISE OKC_API.G_EXCEPTION_ERROR;
700: END IF;
693: END;
694: END IF;
695:
696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
699: RAISE OKC_API.G_EXCEPTION_ERROR;
700: END IF;
701:
694: END IF;
695:
696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
699: RAISE OKC_API.G_EXCEPTION_ERROR;
700: END IF;
701:
702: x_request_id := x_tapv_rec.id ;
695:
696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
699: RAISE OKC_API.G_EXCEPTION_ERROR;
700: END IF;
701:
702: x_request_id := x_tapv_rec.id ;
703:
702: x_request_id := x_tapv_rec.id ;
703:
704: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes */
705:
706: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
707:
708: EXCEPTION
709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
705:
706: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
707:
708: EXCEPTION
709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
711: (
712: l_api_name,
713: G_PKG_NAME,
706: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
707:
708: EXCEPTION
709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
711: (
712: l_api_name,
713: G_PKG_NAME,
714: 'OKC_API.G_RET_STS_ERROR',
710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
711: (
712: l_api_name,
713: G_PKG_NAME,
714: 'OKC_API.G_RET_STS_ERROR',
715: x_msg_count,
716: x_msg_data,
717: '_PROCESS'
718: );
715: x_msg_count,
716: x_msg_data,
717: '_PROCESS'
718: );
719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
721: (
722: l_api_name,
723: G_PKG_NAME,
716: x_msg_data,
717: '_PROCESS'
718: );
719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
721: (
722: l_api_name,
723: G_PKG_NAME,
724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
721: (
722: l_api_name,
723: G_PKG_NAME,
724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
725: x_msg_count,
726: x_msg_data,
727: '_PROCESS'
728: );
726: x_msg_data,
727: '_PROCESS'
728: );
729: WHEN OTHERS THEN
730: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
731: (
732: l_api_name,
733: G_PKG_NAME,
734: 'OTHERS',
742:
743:
744: PROCEDURE insert_ap_request(
745: p_api_version IN NUMBER,
746: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
747: x_return_status OUT NOCOPY VARCHAR2,
748: x_msg_count OUT NOCOPY NUMBER,
749: x_msg_data OUT NOCOPY VARCHAR2,
750: p_tap_id IN NUMBER,
823:
824:
825: l_api_name CONSTANT VARCHAR2(30) := 'insert_ap_request';
826: l_api_version CONSTANT NUMBER := 1;
827: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
828: l_trx_type_ID okl_trx_types_v.id%TYPE;
829:
830: p_name VARCHAR2(30) := 'BILLING' ;
831: -- Need to change code for hard coded value
838: lx_dbseqid NUMBER(38):= NULL;
839:
840: BEGIN
841:
842: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
843: G_PKG_NAME,
844: p_init_msg_list,
845: l_api_version,
846: p_api_version,
846: p_api_version,
847: '_PROCESS',
848: x_return_status);
849:
850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_ERROR;
854: END IF;
847: '_PROCESS',
848: x_return_status);
849:
850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_ERROR;
854: END IF;
855:
848: x_return_status);
849:
850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_ERROR;
854: END IF;
855:
856:
849:
850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_ERROR;
854: END IF;
855:
856:
857:
871: OPEN c_vendor_site_info(l_vendor_id,l_org); -- Bug 4146178
872: FETCH c_vendor_site_info INTO l_tapv_rec.IPVS_ID;
873: IF(c_vendor_site_info%NOTFOUND) THEN
874: -- Change Message
875: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_VENDOR_SITE','VENDOR',l_vendor,'ORG',l_org); -- Bug 4146178
876: x_return_status := OKC_API.G_RET_STS_ERROR ;
877: CLOSE c_vendor_site_info ;
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END if ;
872: FETCH c_vendor_site_info INTO l_tapv_rec.IPVS_ID;
873: IF(c_vendor_site_info%NOTFOUND) THEN
874: -- Change Message
875: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_VENDOR_SITE','VENDOR',l_vendor,'ORG',l_org); -- Bug 4146178
876: x_return_status := OKC_API.G_RET_STS_ERROR ;
877: CLOSE c_vendor_site_info ;
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END if ;
880:
874: -- Change Message
875: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_VENDOR_SITE','VENDOR',l_vendor,'ORG',l_org); -- Bug 4146178
876: x_return_status := OKC_API.G_RET_STS_ERROR ;
877: CLOSE c_vendor_site_info ;
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END if ;
880:
881: CLOSE c_vendor_site_info;
882:
883:
884: -- Header Information
885: l_tapv_rec.sfwt_flag := 'N' ;
886: l_tapv_rec.TRX_STATUS_CODE := 'ENTERED' ;
887: IF ( p_tap_id <> NULL AND p_tap_id <> OKC_API.G_MISS_NUM ) THEN
888: OPEN c_tap_info (p_tap_id);
889: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
890: IF(c_tap_info%NOTFOUND) THEN
891: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
887: IF ( p_tap_id <> NULL AND p_tap_id <> OKC_API.G_MISS_NUM ) THEN
888: OPEN c_tap_info (p_tap_id);
889: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
890: IF(c_tap_info%NOTFOUND) THEN
891: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
892: x_return_status := OKC_API.G_RET_STS_ERROR ;
893: CLOSE c_tap_info ;
894: RAISE OKC_API.G_EXCEPTION_ERROR;
895: END if ;
888: OPEN c_tap_info (p_tap_id);
889: FETCH c_tap_info INTO l_tapv_rec.CURRENCY_CODE,l_tapv_rec.SET_OF_BOOKS_ID;
890: IF(c_tap_info%NOTFOUND) THEN
891: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
892: x_return_status := OKC_API.G_RET_STS_ERROR ;
893: CLOSE c_tap_info ;
894: RAISE OKC_API.G_EXCEPTION_ERROR;
895: END if ;
896: CLOSE c_tap_info;
890: IF(c_tap_info%NOTFOUND) THEN
891: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_INVOICE');
892: x_return_status := OKC_API.G_RET_STS_ERROR ;
893: CLOSE c_tap_info ;
894: RAISE OKC_API.G_EXCEPTION_ERROR;
895: END if ;
896: CLOSE c_tap_info;
897: l_tapv_rec.TAP_ID_REVERSES := p_tap_id ;
898: l_tapv_rec.INVOICE_TYPE := 'CREDIT';
900:
901: OPEN C_CURRENCY (p_khr_id);
902: FETCH C_CURRENCY INTO l_tapv_rec.CURRENCY_CODE;--,l_tapv_rec.SET_OF_BOOKS_ID;
903: IF(C_CURRENCY%NOTFOUND) THEN
904: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
905: x_return_status := OKC_API.G_RET_STS_ERROR ;
906: CLOSE C_CURRENCY ;
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END if ;
901: OPEN C_CURRENCY (p_khr_id);
902: FETCH C_CURRENCY INTO l_tapv_rec.CURRENCY_CODE;--,l_tapv_rec.SET_OF_BOOKS_ID;
903: IF(C_CURRENCY%NOTFOUND) THEN
904: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
905: x_return_status := OKC_API.G_RET_STS_ERROR ;
906: CLOSE C_CURRENCY ;
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END if ;
909: CLOSE C_CURRENCY;
903: IF(C_CURRENCY%NOTFOUND) THEN
904: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_CONTRACT');
905: x_return_status := OKC_API.G_RET_STS_ERROR ;
906: CLOSE C_CURRENCY ;
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END if ;
909: CLOSE C_CURRENCY;
910: l_tapv_rec.TAP_ID_REVERSES := OKC_API.G_MISS_NUM ;
911: l_tapv_rec.INVOICE_TYPE := 'STANDARD';
906: CLOSE C_CURRENCY ;
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END if ;
909: CLOSE C_CURRENCY;
910: l_tapv_rec.TAP_ID_REVERSES := OKC_API.G_MISS_NUM ;
911: l_tapv_rec.INVOICE_TYPE := 'STANDARD';
912: -- GET SET OF BOOK
913: l_tapv_rec.SET_OF_BOOKS_ID := OKL_ACCOUNTING_UTIL.get_set_of_books_id; --smoduga fix for bug 4238141
914:
916:
917: OPEN c_trx_type ('Debit Memo', 'US');
918: FETCH c_trx_type INTO l_trx_type_id;
919: IF(c_trx_type%NOTFOUND) THEN
920: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND','TRY_NAME','Debit Memo');
921: x_return_status := OKC_API.G_RET_STS_ERROR ;
922: CLOSE c_trx_type ;
923: RAISE OKC_API.G_EXCEPTION_ERROR;
924: END IF ;
917: OPEN c_trx_type ('Debit Memo', 'US');
918: FETCH c_trx_type INTO l_trx_type_id;
919: IF(c_trx_type%NOTFOUND) THEN
920: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND','TRY_NAME','Debit Memo');
921: x_return_status := OKC_API.G_RET_STS_ERROR ;
922: CLOSE c_trx_type ;
923: RAISE OKC_API.G_EXCEPTION_ERROR;
924: END IF ;
925: CLOSE c_trx_type;
919: IF(c_trx_type%NOTFOUND) THEN
920: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND','TRY_NAME','Debit Memo');
921: x_return_status := OKC_API.G_RET_STS_ERROR ;
922: CLOSE c_trx_type ;
923: RAISE OKC_API.G_EXCEPTION_ERROR;
924: END IF ;
925: CLOSE c_trx_type;
926:
927: IF (l_trx_type_id = p_trx_id) THEN
1034: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
1035: END;
1036: END IF;
1037:
1038: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1041: RAISE OKC_API.G_EXCEPTION_ERROR;
1042: END IF;
1035: END;
1036: END IF;
1037:
1038: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1041: RAISE OKC_API.G_EXCEPTION_ERROR;
1042: END IF;
1043: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes */
1036: END IF;
1037:
1038: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1041: RAISE OKC_API.G_EXCEPTION_ERROR;
1042: END IF;
1043: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes */
1044:
1037:
1038: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1041: RAISE OKC_API.G_EXCEPTION_ERROR;
1042: END IF;
1043: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes */
1044:
1045:
1042: END IF;
1043: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes */
1044:
1045:
1046: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1047:
1048: EXCEPTION
1049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1045:
1046: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1047:
1048: EXCEPTION
1049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1051: (
1052: l_api_name,
1053: G_PKG_NAME,
1046: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1047:
1048: EXCEPTION
1049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1051: (
1052: l_api_name,
1053: G_PKG_NAME,
1054: 'OKC_API.G_RET_STS_ERROR',
1050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1051: (
1052: l_api_name,
1053: G_PKG_NAME,
1054: 'OKC_API.G_RET_STS_ERROR',
1055: x_msg_count,
1056: x_msg_data,
1057: '_PROCESS'
1058: );
1055: x_msg_count,
1056: x_msg_data,
1057: '_PROCESS'
1058: );
1059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1061: (
1062: l_api_name,
1063: G_PKG_NAME,
1056: x_msg_data,
1057: '_PROCESS'
1058: );
1059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1061: (
1062: l_api_name,
1063: G_PKG_NAME,
1064: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1061: (
1062: l_api_name,
1063: G_PKG_NAME,
1064: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1065: x_msg_count,
1066: x_msg_data,
1067: '_PROCESS'
1068: );
1066: x_msg_data,
1067: '_PROCESS'
1068: );
1069: WHEN OTHERS THEN
1070: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1071: (
1072: l_api_name,
1073: G_PKG_NAME,
1074: 'OTHERS',
1081:
1082:
1083: PROCEDURE pay_comp_refund(
1084: p_api_version IN NUMBER,
1085: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1086: x_return_status OUT NOCOPY VARCHAR2,
1087: x_msg_count OUT NOCOPY NUMBER,
1088: x_msg_data OUT NOCOPY VARCHAR2,
1089: p_ipyv_rec IN ipyv_rec_type,
1094: l_contract_id NUMBER;
1095: l_contract_line NUMBER;
1096: l_api_name CONSTANT VARCHAR2(30) := 'pay_comp_refund';
1097: l_api_version CONSTANT NUMBER := 1;
1098: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
1099: l_amount NUMBER;
1100: l_strm_type_id NUMBER ;
1101: l_lsm_id NUMBER;
1102: l_tai_id NUMBER;
1132: AND STR.ID = STRE.STM_ID
1133: AND STRE.DATE_BILLED IS NOT NULL;
1134:
1135: BEGIN
1136: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1137: G_PKG_NAME,
1138: p_init_msg_list,
1139: l_api_version,
1140: p_api_version,
1139: l_api_version,
1140: p_api_version,
1141: '_PROCESS',
1142: x_return_status);
1143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1146: RAISE OKC_API.G_EXCEPTION_ERROR;
1147: END IF;
1140: p_api_version,
1141: '_PROCESS',
1142: x_return_status);
1143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1146: RAISE OKC_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1141: '_PROCESS',
1142: x_return_status);
1143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1146: RAISE OKC_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1149:
1142: x_return_status);
1143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1146: RAISE OKC_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1149:
1150:
1158: 'INSURANCE_RECEIVABLE',
1159: l_return_status,
1160: l_strm_type_id);
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1159: l_return_status,
1160: l_strm_type_id);
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1160: l_strm_type_id);
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: END;
1163: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1165: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
1166: x_return_status := OKC_API.G_RET_STS_ERROR ;
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: END;
1171:
1174:
1175: OPEN okl_trx_types (p_name, p_lang);
1176: FETCH okl_trx_types INTO l_trx_type;
1177: IF(okl_trx_types%NOTFOUND) THEN
1178: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
1179: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
1180: x_return_status := OKC_API.G_RET_STS_ERROR ;
1181: CLOSE okl_trx_types ;
1182: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: FETCH okl_trx_types INTO l_trx_type;
1177: IF(okl_trx_types%NOTFOUND) THEN
1178: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
1179: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
1180: x_return_status := OKC_API.G_RET_STS_ERROR ;
1181: CLOSE okl_trx_types ;
1182: RAISE OKC_API.G_EXCEPTION_ERROR;
1183: END if ;
1184: CLOSE okl_trx_types;
1178: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
1179: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
1180: x_return_status := OKC_API.G_RET_STS_ERROR ;
1181: CLOSE okl_trx_types ;
1182: RAISE OKC_API.G_EXCEPTION_ERROR;
1183: END if ;
1184: CLOSE okl_trx_types;
1185:
1186:
1189:
1190: /*OPEN C_OKL_STRM_TYPE_CRE_V;
1191: FETCH C_OKL_STRM_TYPE_CRE_V INTO l_strm_type_id;
1192: IF(C_OKL_STRM_TYPE_CRE_V%NOTFOUND) THEN
1193: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1194: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
1195: x_return_status := OKC_API.G_RET_STS_ERROR ;
1196: CLOSE C_OKL_STRM_TYPE_CRE_V ;
1197: RAISE OKC_API.G_EXCEPTION_ERROR;
1191: FETCH C_OKL_STRM_TYPE_CRE_V INTO l_strm_type_id;
1192: IF(C_OKL_STRM_TYPE_CRE_V%NOTFOUND) THEN
1193: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1194: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
1195: x_return_status := OKC_API.G_RET_STS_ERROR ;
1196: CLOSE C_OKL_STRM_TYPE_CRE_V ;
1197: RAISE OKC_API.G_EXCEPTION_ERROR;
1198: END if ;
1199: CLOSE C_OKL_STRM_TYPE_CRE_V;*/
1193: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1194: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
1195: x_return_status := OKC_API.G_RET_STS_ERROR ;
1196: CLOSE C_OKL_STRM_TYPE_CRE_V ;
1197: RAISE OKC_API.G_EXCEPTION_ERROR;
1198: END if ;
1199: CLOSE C_OKL_STRM_TYPE_CRE_V;*/
1200:
1201:
1203: 'INSURANCE_REFUND',
1204: l_return_status,
1205: l_strm_type_id);
1206:
1207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1204: l_return_status,
1205: l_strm_type_id);
1206:
1207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1205: l_strm_type_id);
1206:
1207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1206:
1207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: END;
1208: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1210: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND');
1211: x_return_status := OKC_API.G_RET_STS_ERROR ;
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: END;
1216:
1216:
1217: --3. get Amount Received
1218: OPEN C_OKL_CNSLD_AR_STRMB;
1219: FETCH C_OKL_CNSLD_AR_STRMB INTO l_amount;
1220: IF(l_amount IS NOT NULL AND l_amount <> OKC_API.G_MISS_NUM ) THEN
1221: l_amount := - l_amount;
1222: -- Call API to create Credit Memo
1223: -- Start of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1224: IF(L_DEBUG_ENABLED='Y') THEN
1253: END;
1254: END IF;
1255: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1256:
1257: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1259: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: END IF;
1254: END IF;
1255: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1256:
1257: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1259: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: END IF;
1262: END if ;
1255: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1256:
1257: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1259: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: END IF;
1262: END if ;
1263:
1256:
1257: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1259: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: END IF;
1262: END if ;
1263:
1264: CLOSE C_OKL_CNSLD_AR_STRMB ;
1264: CLOSE C_OKL_CNSLD_AR_STRMB ;
1265: END;
1266:
1267:
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269:
1270: EXCEPTION
1271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1267:
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269:
1270: EXCEPTION
1271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (
1274: l_api_name,
1275: G_PKG_NAME,
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269:
1270: EXCEPTION
1271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (
1274: l_api_name,
1275: G_PKG_NAME,
1276: 'OKC_API.G_RET_STS_ERROR',
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (
1274: l_api_name,
1275: G_PKG_NAME,
1276: 'OKC_API.G_RET_STS_ERROR',
1277: x_msg_count,
1278: x_msg_data,
1279: '_PROCESS'
1280: );
1277: x_msg_count,
1278: x_msg_data,
1279: '_PROCESS'
1280: );
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1283: (
1284: l_api_name,
1285: G_PKG_NAME,
1278: x_msg_data,
1279: '_PROCESS'
1280: );
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1283: (
1284: l_api_name,
1285: G_PKG_NAME,
1286: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1283: (
1284: l_api_name,
1285: G_PKG_NAME,
1286: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1287: x_msg_count,
1288: x_msg_data,
1289: '_PROCESS'
1290: );
1288: x_msg_data,
1289: '_PROCESS'
1290: );
1291: WHEN OTHERS THEN
1292: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1293: (
1294: l_api_name,
1295: G_PKG_NAME,
1296: 'OTHERS',
1304:
1305:
1306: PROCEDURE delete_policy(
1307: p_api_version IN NUMBER,
1308: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1309: x_return_status OUT NOCOPY VARCHAR2,
1310: x_msg_count OUT NOCOPY NUMBER,
1311: x_msg_data OUT NOCOPY VARCHAR2,
1312: p_ipyv_rec IN ipyv_rec_type,
1331: lx_klev_rec Okl_Kle_Pvt.klev_rec_type ;
1332:
1333: BEGIN
1334:
1335: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1336: G_PKG_NAME,
1337: p_init_msg_list,
1338: l_api_version,
1339: p_api_version,
1338: l_api_version,
1339: p_api_version,
1340: '_PROCESS',
1341: x_return_status);
1342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_ERROR;
1346: END IF;
1339: p_api_version,
1340: '_PROCESS',
1341: x_return_status);
1342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_ERROR;
1346: END IF;
1347: l_ipyv_rec := p_ipyv_rec ;
1340: '_PROCESS',
1341: x_return_status);
1342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_ERROR;
1346: END IF;
1347: l_ipyv_rec := p_ipyv_rec ;
1348:
1341: x_return_status);
1342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_ERROR;
1346: END IF;
1347: l_ipyv_rec := p_ipyv_rec ;
1348:
1349: OPEN c_ins_info(l_ipyv_rec.ID);
1348:
1349: OPEN c_ins_info(l_ipyv_rec.ID);
1350: FETCH c_ins_info INTO l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID ,l_ipyv_rec.OBJECT_VERSION_NUMBER, l_ipyv_rec.ISS_CODE, l_ipyv_rec.IPY_TYPE ,l_ipyv_rec.FACTOR_CODE ;
1351: IF(c_ins_info%NOTFOUND) THEN
1352: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
1353: x_return_status := OKC_API.G_RET_STS_ERROR ;
1354: CLOSE c_ins_info ;
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END if ;
1349: OPEN c_ins_info(l_ipyv_rec.ID);
1350: FETCH c_ins_info INTO l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID ,l_ipyv_rec.OBJECT_VERSION_NUMBER, l_ipyv_rec.ISS_CODE, l_ipyv_rec.IPY_TYPE ,l_ipyv_rec.FACTOR_CODE ;
1351: IF(c_ins_info%NOTFOUND) THEN
1352: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
1353: x_return_status := OKC_API.G_RET_STS_ERROR ;
1354: CLOSE c_ins_info ;
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END if ;
1357: CLOSE c_ins_info ;
1351: IF(c_ins_info%NOTFOUND) THEN
1352: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
1353: x_return_status := OKC_API.G_RET_STS_ERROR ;
1354: CLOSE c_ins_info ;
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END if ;
1357: CLOSE c_ins_info ;
1358:
1359: -- Check for Third Party also
1357: CLOSE c_ins_info ;
1358:
1359: -- Check for Third Party also
1360: IF(l_ipyv_rec.IPY_TYPE = 'THIRD_PARTY_POLICY') THEN
1361: OKC_API.set_message(G_APP_NAME, 'OKL_NO_DELETED' ); -- For Third party Error
1362: RAISE OKC_API.G_EXCEPTION_ERROR;
1363: END IF;
1364:
1365: IF(l_ipyv_rec.ISS_CODE = 'ACTIVE') THEN
1358:
1359: -- Check for Third Party also
1360: IF(l_ipyv_rec.IPY_TYPE = 'THIRD_PARTY_POLICY') THEN
1361: OKC_API.set_message(G_APP_NAME, 'OKL_NO_DELETED' ); -- For Third party Error
1362: RAISE OKC_API.G_EXCEPTION_ERROR;
1363: END IF;
1364:
1365: IF(l_ipyv_rec.ISS_CODE = 'ACTIVE') THEN
1366: OKC_API.set_message(G_APP_NAME, 'OKL_ACTIVE_POLICY' );
1362: RAISE OKC_API.G_EXCEPTION_ERROR;
1363: END IF;
1364:
1365: IF(l_ipyv_rec.ISS_CODE = 'ACTIVE') THEN
1366: OKC_API.set_message(G_APP_NAME, 'OKL_ACTIVE_POLICY' );
1367: RAISE OKC_API.G_EXCEPTION_ERROR;
1368: ELSE
1369: -- PAY Customer Refund
1370: pay_comp_refund(
1363: END IF;
1364:
1365: IF(l_ipyv_rec.ISS_CODE = 'ACTIVE') THEN
1366: OKC_API.set_message(G_APP_NAME, 'OKL_ACTIVE_POLICY' );
1367: RAISE OKC_API.G_EXCEPTION_ERROR;
1368: ELSE
1369: -- PAY Customer Refund
1370: pay_comp_refund(
1371: p_api_version => l_api_version,
1368: ELSE
1369: -- PAY Customer Refund
1370: pay_comp_refund(
1371: p_api_version => l_api_version,
1372: p_init_msg_list => OKC_API.G_FALSE,
1373: x_return_status => l_return_status,
1374: x_msg_count => x_msg_count,
1375: x_msg_data => x_msg_data,
1376: p_ipyv_rec => l_ipyv_rec ,
1376: p_ipyv_rec => l_ipyv_rec ,
1377: x_ipyv_rec => x_ipyv_rec );
1378:
1379:
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1377: x_ipyv_rec => x_ipyv_rec );
1378:
1379:
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: -- l_ipyv_rec := x_ipyv_rec ;
1378:
1379:
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: -- l_ipyv_rec := x_ipyv_rec ;
1386:
1379:
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: -- l_ipyv_rec := x_ipyv_rec ;
1386:
1387:
1387:
1388: ---Inactivate all stream / accounting entries
1389: Inactivate_open_items(
1390: p_api_version => l_api_version,
1391: p_init_msg_list => OKC_API.G_FALSE,
1392: x_return_status => l_return_status,
1393: x_msg_count => x_msg_count,
1394: x_msg_data => x_msg_data,
1395: p_contract_id => l_ipyv_rec.khr_id ,
1395: p_contract_id => l_ipyv_rec.khr_id ,
1396: p_contract_line => l_ipyv_rec.kle_id,
1397: p_policy_status => l_ipyv_rec.iss_code );
1398:
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1396: p_contract_line => l_ipyv_rec.kle_id,
1397: p_policy_status => l_ipyv_rec.iss_code );
1398:
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404:
1397: p_policy_status => l_ipyv_rec.iss_code );
1398:
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404:
1405: -- GET contract status
1398:
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404:
1405: -- GET contract status
1406: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
1403: END IF;
1404:
1405: -- GET contract status
1406: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1404:
1405: -- GET contract status
1406: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412:
1405: -- GET contract status
1406: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412:
1413: IF (l_khr_status = 'ACTIVE' ) THEN
1406: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412:
1413: IF (l_khr_status = 'ACTIVE' ) THEN
1414: -- if active, end date contract line and update status
1421:
1422: Okl_Contract_Pub.update_contract_line
1423: (
1424: p_api_version => l_api_version ,
1425: p_init_msg_list => OKC_API.G_FALSE,
1426: x_return_status => l_return_status ,
1427: x_msg_count => x_msg_count,
1428: x_msg_data => x_msg_data ,
1429: p_clev_rec => l_clev_rec ,
1432: x_clev_rec => lx_clev_rec,
1433: x_klev_rec => lx_klev_rec
1434: );
1435:
1436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1437: -- Status temp
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440:
1434: );
1435:
1436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1437: -- Status temp
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440:
1441: -- Status temp
1442: RAISE OKC_API.G_EXCEPTION_ERROR;
1435:
1436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1437: -- Status temp
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440:
1441: -- Status temp
1442: RAISE OKC_API.G_EXCEPTION_ERROR;
1443: END IF;
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440:
1441: -- Status temp
1442: RAISE OKC_API.G_EXCEPTION_ERROR;
1443: END IF;
1444:
1445: ELSE
1446:
1453:
1454: Okl_Contract_Pub.update_contract_line
1455: (
1456: p_api_version => l_api_version ,
1457: p_init_msg_list => OKC_API.G_FALSE,
1458: x_return_status => l_return_status ,
1459: x_msg_count => x_msg_count,
1460: x_msg_data => x_msg_data ,
1461: p_clev_rec => l_clev_rec ,
1464: x_clev_rec => lx_clev_rec,
1465: x_klev_rec => lx_klev_rec
1466: );
1467:
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: -- Status temp
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472:
1466: );
1467:
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: -- Status temp
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472:
1473: -- Status temp
1474: RAISE OKC_API.G_EXCEPTION_ERROR;
1467:
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: -- Status temp
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472:
1473: -- Status temp
1474: RAISE OKC_API.G_EXCEPTION_ERROR;
1475: END IF;
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472:
1473: -- Status temp
1474: RAISE OKC_API.G_EXCEPTION_ERROR;
1475: END IF;
1476:
1477:
1478: /*
1479: -- else call delete contract line
1480: --Delete Line
1481: OKL_CONTRACT_PUB.delete_contract_line(
1482: p_api_version => l_api_version,
1483: p_init_msg_list => OKC_API.G_FALSE,
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data,
1487: p_line_id => l_ipyv_rec.kle_id );
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data,
1487: p_line_id => l_ipyv_rec.kle_id );
1488:
1489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_ERROR;
1493: END IF;
1486: x_msg_data => x_msg_data,
1487: p_line_id => l_ipyv_rec.kle_id );
1488:
1489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_ERROR;
1493: END IF;
1494: */
1487: p_line_id => l_ipyv_rec.kle_id );
1488:
1489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_ERROR;
1493: END IF;
1494: */
1495:
1488:
1489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_ERROR;
1493: END IF;
1494: */
1495:
1496:
1510: END;
1511: END IF;
1512: Okl_Ins_Policies_Pub.update_ins_policies(
1513: p_api_version => p_api_version,
1514: p_init_msg_list => OKC_API.G_FALSE,
1515: x_return_status => l_return_status,
1516: x_msg_count => x_msg_count,
1517: x_msg_data => x_msg_data,
1518: p_ipyv_rec => l_ipyv_rec,
1524: END;
1525: END IF;
1526: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
1527:
1528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1525: END IF;
1526: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
1527:
1528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1526: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
1527:
1528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1534: -- send Notification to customer
1527:
1528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1534: -- send Notification to customer
1535: -- To be implemented
1536:
1537:
1538: END IF;
1539:
1540: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1541: EXCEPTION
1542: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1538: END IF;
1539:
1540: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1541: EXCEPTION
1542: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1539:
1540: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1541: EXCEPTION
1542: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_ERROR',
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_ERROR',
1548: x_msg_count,
1549: x_msg_data,
1550: '_PROCESS'
1551: );
1548: x_msg_count,
1549: x_msg_data,
1550: '_PROCESS'
1551: );
1552: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1553: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1554: (
1555: l_api_name,
1556: G_PKG_NAME,
1549: x_msg_data,
1550: '_PROCESS'
1551: );
1552: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1553: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1554: (
1555: l_api_name,
1556: G_PKG_NAME,
1557: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1553: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1554: (
1555: l_api_name,
1556: G_PKG_NAME,
1557: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1558: x_msg_count,
1559: x_msg_data,
1560: '_PROCESS'
1561: );
1559: x_msg_data,
1560: '_PROCESS'
1561: );
1562: WHEN OTHERS THEN
1563: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1564: (
1565: l_api_name,
1566: G_PKG_NAME,
1567: 'OTHERS',
1574:
1575:
1576: PROCEDURE calc_vendor_clawback(
1577: p_api_version IN NUMBER,
1578: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1579: x_return_status OUT NOCOPY VARCHAR2,
1580: x_msg_count OUT NOCOPY NUMBER,
1581: x_msg_data OUT NOCOPY VARCHAR2,
1582: p_ipyv_rec IN ipyv_rec_type,
1669:
1670:
1671: BEGIN
1672:
1673: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1674: G_PKG_NAME,
1675: p_init_msg_list,
1676: l_api_version,
1677: p_api_version,
1676: l_api_version,
1677: p_api_version,
1678: '_PROCESS',
1679: x_return_status);
1680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: END IF;
1677: p_api_version,
1678: '_PROCESS',
1679: x_return_status);
1680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1678: '_PROCESS',
1679: x_return_status);
1680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1686:
1679: x_return_status);
1680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1686:
1687: OPEN c_con_start;
1686:
1687: OPEN c_con_start;
1688: FETCH c_con_start INTO l_start_date;
1689: IF(c_con_start%NOTFOUND) THEN
1690: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
1691: x_return_status := OKC_API.G_RET_STS_ERROR ;
1692: CLOSE c_con_start ;
1693: RAISE OKC_API.G_EXCEPTION_ERROR;
1694: END if ;
1687: OPEN c_con_start;
1688: FETCH c_con_start INTO l_start_date;
1689: IF(c_con_start%NOTFOUND) THEN
1690: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
1691: x_return_status := OKC_API.G_RET_STS_ERROR ;
1692: CLOSE c_con_start ;
1693: RAISE OKC_API.G_EXCEPTION_ERROR;
1694: END if ;
1695: CLOSE c_con_start ;
1689: IF(c_con_start%NOTFOUND) THEN
1690: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
1691: x_return_status := OKC_API.G_RET_STS_ERROR ;
1692: CLOSE c_con_start ;
1693: RAISE OKC_API.G_EXCEPTION_ERROR;
1694: END if ;
1695: CLOSE c_con_start ;
1696:
1697: --- How much he should have been paid
1720: -- Select premium from insured_asset table
1721: OPEN c_okl_ins_asset;
1722: FETCH c_okl_ins_asset INTO l_total_lessor_premium;
1723: IF(c_okl_ins_asset%NOTFOUND) THEN
1724: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
1725: x_return_status := OKC_API.G_RET_STS_ERROR ;
1726: CLOSE c_okl_ins_asset ;
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END if ;
1721: OPEN c_okl_ins_asset;
1722: FETCH c_okl_ins_asset INTO l_total_lessor_premium;
1723: IF(c_okl_ins_asset%NOTFOUND) THEN
1724: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
1725: x_return_status := OKC_API.G_RET_STS_ERROR ;
1726: CLOSE c_okl_ins_asset ;
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END if ;
1729: CLOSE c_okl_ins_asset ;
1723: IF(c_okl_ins_asset%NOTFOUND) THEN
1724: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
1725: x_return_status := OKC_API.G_RET_STS_ERROR ;
1726: CLOSE c_okl_ins_asset ;
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END if ;
1729: CLOSE c_okl_ins_asset ;
1730: ELSE
1731:
1750:
1751: OPEN c_ins_opt_premium (x_functional_covered_amt);
1752: FETCH c_ins_opt_premium INTO l_func_total_lessor_premium;
1753: IF(c_ins_opt_premium%NOTFOUND) THEN
1754: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');--Fix for 3745151
1755: x_return_status := OKC_API.G_RET_STS_ERROR ;
1756: CLOSE c_okl_ins_asset ;
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END if ;
1751: OPEN c_ins_opt_premium (x_functional_covered_amt);
1752: FETCH c_ins_opt_premium INTO l_func_total_lessor_premium;
1753: IF(c_ins_opt_premium%NOTFOUND) THEN
1754: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');--Fix for 3745151
1755: x_return_status := OKC_API.G_RET_STS_ERROR ;
1756: CLOSE c_okl_ins_asset ;
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END if ;
1759:
1753: IF(c_ins_opt_premium%NOTFOUND) THEN
1754: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');--Fix for 3745151
1755: x_return_status := OKC_API.G_RET_STS_ERROR ;
1756: CLOSE c_okl_ins_asset ;
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END if ;
1759:
1760: --- total lessor premium from functional to contract currency
1761: OKL_ACCOUNTING_UTIL.convert_to_contract_currency
1784:
1785: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE PAYABLE');
1786: FETCH C_OKL_STRM_TYPE_V INTO l_strm_type_id;
1787: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
1788: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1789: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE PAYABLE');
1790: x_return_status := OKC_API.G_RET_STS_ERROR ;
1791: CLOSE C_OKL_STRM_TYPE_V ;
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1786: FETCH C_OKL_STRM_TYPE_V INTO l_strm_type_id;
1787: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
1788: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1789: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE PAYABLE');
1790: x_return_status := OKC_API.G_RET_STS_ERROR ;
1791: CLOSE C_OKL_STRM_TYPE_V ;
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END if ;
1794: CLOSE C_OKL_STRM_TYPE_V;*/
1788: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
1789: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE PAYABLE');
1790: x_return_status := OKC_API.G_RET_STS_ERROR ;
1791: CLOSE C_OKL_STRM_TYPE_V ;
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END if ;
1794: CLOSE C_OKL_STRM_TYPE_V;*/
1795: -- cursor fetch replaced with the call to get the stream type id
1796: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
1796: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
1797: 'INSURANCE_PAYABLE',
1798: l_return_status,
1799: l_strm_type_id);
1800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1797: 'INSURANCE_PAYABLE',
1798: l_return_status,
1799: l_strm_type_id);
1800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: l_return_status,
1799: l_strm_type_id);
1800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1799: l_strm_type_id);
1800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1808:
1801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1808:
1809:
1823: 'INSURANCE_ADJUSTMENT',
1824: l_return_status,
1825: l_strm_type_id);
1826:
1827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1824: l_return_status,
1825: l_strm_type_id);
1826:
1827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1832: RAISE OKC_API.G_EXCEPTION_ERROR;
1825: l_strm_type_id);
1826:
1827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1832: RAISE OKC_API.G_EXCEPTION_ERROR;
1833: END IF;
1826:
1827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1832: RAISE OKC_API.G_EXCEPTION_ERROR;
1833: END IF;
1834:
1827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1832: RAISE OKC_API.G_EXCEPTION_ERROR;
1833: END IF;
1834:
1835:
1828: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1831: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
1832: RAISE OKC_API.G_EXCEPTION_ERROR;
1833: END IF;
1834:
1835:
1836:
1843: -- GET TRANSACTION TYPE
1844: OPEN c_trx_type ('Debit Memo', 'US');
1845: FETCH c_trx_type INTO l_trx_type_ID;
1846: IF(c_trx_type%NOTFOUND) THEN
1847: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
1848: 'TRY_NAME','Debit Memo'); --Changed message code for bug 3745151
1849: x_return_status := OKC_API.G_RET_STS_ERROR ;
1850: CLOSE c_trx_type ;
1851: RAISE OKC_API.G_EXCEPTION_ERROR;
1845: FETCH c_trx_type INTO l_trx_type_ID;
1846: IF(c_trx_type%NOTFOUND) THEN
1847: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
1848: 'TRY_NAME','Debit Memo'); --Changed message code for bug 3745151
1849: x_return_status := OKC_API.G_RET_STS_ERROR ;
1850: CLOSE c_trx_type ;
1851: RAISE OKC_API.G_EXCEPTION_ERROR;
1852: END if ;
1853: CLOSE c_trx_type;
1847: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
1848: 'TRY_NAME','Debit Memo'); --Changed message code for bug 3745151
1849: x_return_status := OKC_API.G_RET_STS_ERROR ;
1850: CLOSE c_trx_type ;
1851: RAISE OKC_API.G_EXCEPTION_ERROR;
1852: END if ;
1853: CLOSE c_trx_type;
1854: -- Call API to create Debit Memo
1855: insert_ap_request(p_api_version => l_api_version,
1864: p_kle_id => p_ipyv_rec.kle_id,
1865: p_invoice_date => SYSDATE,
1866: p_trx_id => l_trx_type_ID );
1867:
1868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1871: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: END IF;
1865: p_invoice_date => SYSDATE,
1866: p_trx_id => l_trx_type_ID );
1867:
1868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1871: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1866: p_trx_id => l_trx_type_ID );
1867:
1868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1871: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1874: ELSIF (ln_premium > l_total_paid) THEN
1867:
1868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1871: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1874: ELSIF (ln_premium > l_total_paid) THEN
1875: l_tra_id := OKC_API.G_MISS_NUM ;
1871: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1874: ELSIF (ln_premium > l_total_paid) THEN
1875: l_tra_id := OKC_API.G_MISS_NUM ;
1876: l_to_refund := ln_premium - l_total_paid ;
1877:
1878: -- cursor fetch replaced with the call to get the stream type id
1879: -- changed for user defined sreams, bug 3924300
1881: 'INSURANCE_PAYABLE',
1882: l_return_status,
1883: l_strm_type_id);
1884:
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1882: l_return_status,
1883: l_strm_type_id);
1884:
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1883: l_strm_type_id);
1884:
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1884:
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892:
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892:
1893:
1886: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1889: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892:
1893:
1894:
1896: OPEN c_trx_type ('Disbursement', 'US');
1897: FETCH c_trx_type INTO l_trx_type_ID;
1898: IF(c_trx_type%NOTFOUND) THEN
1899: l_attribute_label := OKL_ACCOUNTING_UTIL.get_message_token('OKL_LA_SEC_INVESTOR','OKL_LA_SEC_BILL'); --3927315
1900: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
1901: 'TRY_NAME',l_attribute_label); -- 3745151
1902: l_attribute_label := null;
1903: x_return_status := OKC_API.G_RET_STS_ERROR ;
1904: CLOSE c_trx_type ;
1899: l_attribute_label := OKL_ACCOUNTING_UTIL.get_message_token('OKL_LA_SEC_INVESTOR','OKL_LA_SEC_BILL'); --3927315
1900: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
1901: 'TRY_NAME',l_attribute_label); -- 3745151
1902: l_attribute_label := null;
1903: x_return_status := OKC_API.G_RET_STS_ERROR ;
1904: CLOSE c_trx_type ;
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END if ;
1907: CLOSE c_trx_type ;
1901: 'TRY_NAME',l_attribute_label); -- 3745151
1902: l_attribute_label := null;
1903: x_return_status := OKC_API.G_RET_STS_ERROR ;
1904: CLOSE c_trx_type ;
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END if ;
1907: CLOSE c_trx_type ;
1908:
1909: insert_ap_request(p_api_version => l_api_version,
1918: p_kle_id => p_ipyv_rec.kle_id,
1919: p_invoice_date => SYSDATE,
1920: p_trx_id => l_trx_type_ID );
1921:
1922: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1923: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1924: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1925: RAISE OKC_API.G_EXCEPTION_ERROR;
1926: END IF;
1919: p_invoice_date => SYSDATE,
1920: p_trx_id => l_trx_type_ID );
1921:
1922: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1923: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1924: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1925: RAISE OKC_API.G_EXCEPTION_ERROR;
1926: END IF;
1927: END IF ;
1920: p_trx_id => l_trx_type_ID );
1921:
1922: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1923: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1924: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1925: RAISE OKC_API.G_EXCEPTION_ERROR;
1926: END IF;
1927: END IF ;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1921:
1922: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1923: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1924: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1925: RAISE OKC_API.G_EXCEPTION_ERROR;
1926: END IF;
1927: END IF ;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929:
1924: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1925: RAISE OKC_API.G_EXCEPTION_ERROR;
1926: END IF;
1927: END IF ;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929:
1930: EXCEPTION
1931: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1932: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1927: END IF ;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929:
1930: EXCEPTION
1931: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1932: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929:
1930: EXCEPTION
1931: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1932: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'OKC_API.G_RET_STS_ERROR',
1932: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'OKC_API.G_RET_STS_ERROR',
1937: x_msg_count,
1938: x_msg_data,
1939: '_PROCESS'
1940: );
1937: x_msg_count,
1938: x_msg_data,
1939: '_PROCESS'
1940: );
1941: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1942: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1938: x_msg_data,
1939: '_PROCESS'
1940: );
1941: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1942: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1942: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1947: x_msg_count,
1948: x_msg_data,
1949: '_PROCESS'
1950: );
1948: x_msg_data,
1949: '_PROCESS'
1950: );
1951: WHEN OTHERS THEN
1952: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1953: (
1954: l_api_name,
1955: G_PKG_NAME,
1956: 'OTHERS',
1962:
1963: PROCEDURE Inactivate_open_items(
1964:
1965: p_api_version IN NUMBER,
1966: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1967: x_return_status OUT NOCOPY VARCHAR2,
1968: x_msg_count OUT NOCOPY NUMBER,
1969: x_msg_data OUT NOCOPY VARCHAR2,
1970: p_contract_id IN NUMBER,
2026: p_stmv_rec Okl_Streams_Pub.stmv_rec_type;
2027: x_stmv_rec Okl_Streams_Pub.stmv_rec_type;
2028:
2029: BEGIN
2030: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2031: G_PKG_NAME,
2032: p_init_msg_list,
2033: l_api_version,
2034: p_api_version,
2033: l_api_version,
2034: p_api_version,
2035: '_PROCESS',
2036: x_return_status);
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2034: p_api_version,
2035: '_PROCESS',
2036: x_return_status);
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042:
2035: '_PROCESS',
2036: x_return_status);
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042:
2043: -- Setup data
2036: x_return_status);
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042:
2043: -- Setup data
2044: p_stmv_rec.ACTIVE_YN := 'N' ;
2057: ls_strm_purpose,
2058: l_return_status,
2059: l_recv_strm_id);
2060:
2061: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2058: l_return_status,
2059: l_recv_strm_id);
2060:
2061: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2059: l_recv_strm_id);
2060:
2061: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2060:
2061: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068:
2061: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068:
2069:
2062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2065: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_COL_NAME_TOKEN,ls_strm_purpose);
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068:
2069:
2070: ---
2069:
2070: ---
2071: OPEN c_okl_strem_rec(l_recv_strm_id);
2072: FETCH c_okl_strem_rec INTO p_stmv_rec.id;
2073: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2074:
2075: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2076: IF(L_DEBUG_ENABLED='Y') THEN
2077: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
2097: END;
2098: END IF;
2099: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2100:
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: CLOSE c_okl_strem_rec ;
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: CLOSE c_okl_strem_rec ;
2099: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2100:
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: CLOSE c_okl_strem_rec ;
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: CLOSE c_okl_strem_rec ;
2106: RAISE OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2100:
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: CLOSE c_okl_strem_rec ;
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: CLOSE c_okl_strem_rec ;
2106: RAISE OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2108: END IF;
2102: CLOSE c_okl_strem_rec ;
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: CLOSE c_okl_strem_rec ;
2106: RAISE OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2108: END IF;
2109: CLOSE c_okl_strem_rec ;
2110:
2126: ls_strm_purpose,
2127: l_return_status,
2128: l_recv_strm_id);
2129:
2130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2127: l_return_status,
2128: l_recv_strm_id);
2129:
2130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2128: l_recv_strm_id);
2129:
2130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: END IF;
2129:
2130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: END IF;
2137:
2130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: END IF;
2137:
2138:
2131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: END IF;
2137:
2138:
2139:
2139:
2140: --- For Accrual
2141: OPEN c_okl_strem_rec_acc(l_recv_strm_id);
2142: FETCH c_okl_strem_rec_acc INTO p_stmv_rec.id;
2143: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2144: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2145: IF(IS_DEBUG_PROCEDURE_ON) THEN
2146: BEGIN
2147: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2162: END;
2163: END IF;
2164: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2165:
2166: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2167: CLOSE c_okl_strem_rec_acc ;
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: CLOSE c_okl_strem_rec_acc ;
2164: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2165:
2166: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2167: CLOSE c_okl_strem_rec_acc ;
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: CLOSE c_okl_strem_rec_acc ;
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: END IF;
2165:
2166: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2167: CLOSE c_okl_strem_rec_acc ;
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: CLOSE c_okl_strem_rec_acc ;
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: END IF;
2167: CLOSE c_okl_strem_rec_acc ;
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: CLOSE c_okl_strem_rec_acc ;
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: END IF;
2174: CLOSE c_okl_strem_rec_acc ;
2175:
2176:
2177: --- For Reporing Accrual
2178: OPEN c_okl_strem_rec_repacc(l_recv_strm_id);
2179: FETCH c_okl_strem_rec_repacc INTO p_stmv_rec.id;
2180: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2181: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2182: IF(IS_DEBUG_PROCEDURE_ON) THEN
2183: BEGIN
2184: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2199: END;
2200: END IF;
2201: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2202:
2203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2204: CLOSE c_okl_strem_rec_repacc ;
2205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2207: CLOSE c_okl_strem_rec_repacc ;
2201: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2202:
2203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2204: CLOSE c_okl_strem_rec_repacc ;
2205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2207: CLOSE c_okl_strem_rec_repacc ;
2208: RAISE OKC_API.G_EXCEPTION_ERROR;
2209: END IF;
2202:
2203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2204: CLOSE c_okl_strem_rec_repacc ;
2205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2207: CLOSE c_okl_strem_rec_repacc ;
2208: RAISE OKC_API.G_EXCEPTION_ERROR;
2209: END IF;
2210: END IF;
2204: CLOSE c_okl_strem_rec_repacc ;
2205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2207: CLOSE c_okl_strem_rec_repacc ;
2208: RAISE OKC_API.G_EXCEPTION_ERROR;
2209: END IF;
2210: END IF;
2211: CLOSE c_okl_strem_rec_repacc ;
2212:
2228: ls_strm_purpose,
2229: l_return_status,
2230: l_recv_strm_id);
2231:
2232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2229: l_return_status,
2230: l_recv_strm_id);
2231:
2232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: l_recv_strm_id);
2231:
2232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2231:
2232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239:
2232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239:
2240:
2233: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2236: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,ls_strm_purpose); --bug 4024785
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239:
2240:
2241: OPEN c_okl_strem_rec(l_recv_strm_id);
2239:
2240:
2241: OPEN c_okl_strem_rec(l_recv_strm_id);
2242: FETCH c_okl_strem_rec INTO p_stmv_rec.id;
2243: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2244: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2245: IF(IS_DEBUG_PROCEDURE_ON) THEN
2246: BEGIN
2247: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2262: END;
2263: END IF;
2264: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2265:
2266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: CLOSE c_okl_strem_rec ;
2268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: CLOSE c_okl_strem_rec ;
2264: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2265:
2266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: CLOSE c_okl_strem_rec ;
2268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: CLOSE c_okl_strem_rec ;
2271: RAISE OKC_API.G_EXCEPTION_ERROR;
2272: END IF;
2265:
2266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: CLOSE c_okl_strem_rec ;
2268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: CLOSE c_okl_strem_rec ;
2271: RAISE OKC_API.G_EXCEPTION_ERROR;
2272: END IF;
2273: END IF;
2267: CLOSE c_okl_strem_rec ;
2268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: CLOSE c_okl_strem_rec ;
2271: RAISE OKC_API.G_EXCEPTION_ERROR;
2272: END IF;
2273: END IF;
2274: CLOSE c_okl_strem_rec ;
2275:
2292: ls_strm_purpose,
2293: l_return_status,
2294: l_recv_strm_id);
2295:
2296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2293: l_return_status,
2294: l_recv_strm_id);
2295:
2296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2301: RAISE OKC_API.G_EXCEPTION_ERROR;
2294: l_recv_strm_id);
2295:
2296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2301: RAISE OKC_API.G_EXCEPTION_ERROR;
2302: END IF;
2295:
2296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2301: RAISE OKC_API.G_EXCEPTION_ERROR;
2302: END IF;
2303:
2296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2301: RAISE OKC_API.G_EXCEPTION_ERROR;
2302: END IF;
2303:
2304:
2297: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2298: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2300: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,ls_strm_purpose); --bug 4024785
2301: RAISE OKC_API.G_EXCEPTION_ERROR;
2302: END IF;
2303:
2304:
2305:
2305:
2306: --- For Accrual
2307: OPEN c_okl_strem_rec_acc(l_recv_strm_id);
2308: FETCH c_okl_strem_rec_acc INTO p_stmv_rec.id;
2309: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2310: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2311: IF(IS_DEBUG_PROCEDURE_ON) THEN
2312: BEGIN
2313: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2328: END;
2329: END IF;
2330: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2331:
2332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2333: CLOSE c_okl_strem_rec_acc ;
2334: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2336: CLOSE c_okl_strem_rec_acc ;
2330: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2331:
2332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2333: CLOSE c_okl_strem_rec_acc ;
2334: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2336: CLOSE c_okl_strem_rec_acc ;
2337: RAISE OKC_API.G_EXCEPTION_ERROR;
2338: END IF;
2331:
2332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2333: CLOSE c_okl_strem_rec_acc ;
2334: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2336: CLOSE c_okl_strem_rec_acc ;
2337: RAISE OKC_API.G_EXCEPTION_ERROR;
2338: END IF;
2339: END IF;
2333: CLOSE c_okl_strem_rec_acc ;
2334: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2336: CLOSE c_okl_strem_rec_acc ;
2337: RAISE OKC_API.G_EXCEPTION_ERROR;
2338: END IF;
2339: END IF;
2340: CLOSE c_okl_strem_rec_acc ;
2341:
2343:
2344: --- For Reporting Accrual
2345: OPEN c_okl_strem_rec_repacc(l_recv_strm_id);
2346: FETCH c_okl_strem_rec_repacc INTO p_stmv_rec.id;
2347: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2348: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2349: IF(IS_DEBUG_PROCEDURE_ON) THEN
2350: BEGIN
2351: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2366: END;
2367: END IF;
2368: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2369:
2370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2371: CLOSE c_okl_strem_rec_repacc ;
2372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2374: CLOSE c_okl_strem_rec_repacc ;
2368: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2369:
2370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2371: CLOSE c_okl_strem_rec_repacc ;
2372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2374: CLOSE c_okl_strem_rec_repacc ;
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2369:
2370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2371: CLOSE c_okl_strem_rec_repacc ;
2372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2374: CLOSE c_okl_strem_rec_repacc ;
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377: END IF;
2371: CLOSE c_okl_strem_rec_repacc ;
2372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2374: CLOSE c_okl_strem_rec_repacc ;
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377: END IF;
2378: CLOSE c_okl_strem_rec_repacc ;
2379:
2378: CLOSE c_okl_strem_rec_repacc ;
2379:
2380: END IF;
2381:
2382: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2383:
2384: EXCEPTION
2385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2386: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2381:
2382: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2383:
2384: EXCEPTION
2385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2386: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2382: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2383:
2384: EXCEPTION
2385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2386: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2390: 'OKC_API.G_RET_STS_ERROR',
2386: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2390: 'OKC_API.G_RET_STS_ERROR',
2391: x_msg_count,
2392: x_msg_data,
2393: '_PROCESS'
2394: );
2391: x_msg_count,
2392: x_msg_data,
2393: '_PROCESS'
2394: );
2395: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2396: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2392: x_msg_data,
2393: '_PROCESS'
2394: );
2395: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2396: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2400: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2396: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2400: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2401: x_msg_count,
2402: x_msg_data,
2403: '_PROCESS'
2404: );
2402: x_msg_data,
2403: '_PROCESS'
2404: );
2405: WHEN OTHERS THEN
2406: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2407: (
2408: l_api_name,
2409: G_PKG_NAME,
2410: 'OTHERS',
2416:
2417:
2418: PROCEDURE cancel_policies(
2419: p_api_version IN NUMBER,
2420: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2421: x_return_status OUT NOCOPY VARCHAR2,
2422: x_msg_count OUT NOCOPY NUMBER,
2423: x_msg_data OUT NOCOPY VARCHAR2,
2424: p_contract_id IN NUMBER,
2442: WHERE KHR_ID = p_contract_id
2443: and ISS_CODE in ('ACTIVE','PENDING');
2444:
2445: BEGIN
2446: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2447: G_PKG_NAME,
2448: p_init_msg_list,
2449: l_api_version,
2450: p_api_version,
2449: l_api_version,
2450: p_api_version,
2451: '_PROCESS',
2452: x_return_status);
2453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2455: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: END IF;
2450: p_api_version,
2451: '_PROCESS',
2452: x_return_status);
2453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2455: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: END IF;
2458:
2451: '_PROCESS',
2452: x_return_status);
2453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2455: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: END IF;
2458:
2459: -- Check for contract_id (NULL)
2452: x_return_status);
2453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2455: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: END IF;
2458:
2459: -- Check for contract_id (NULL)
2460: IF ((p_contract_id IS NULL ) OR (p_contract_id = OKC_API.G_MISS_NUM )) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: END IF;
2458:
2459: -- Check for contract_id (NULL)
2460: IF ((p_contract_id IS NULL ) OR (p_contract_id = OKC_API.G_MISS_NUM )) THEN
2461: x_return_status := OKC_API.G_RET_STS_ERROR;
2462: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
2463: RAISE OKC_API.G_EXCEPTION_ERROR;
2464:
2457: END IF;
2458:
2459: -- Check for contract_id (NULL)
2460: IF ((p_contract_id IS NULL ) OR (p_contract_id = OKC_API.G_MISS_NUM )) THEN
2461: x_return_status := OKC_API.G_RET_STS_ERROR;
2462: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
2463: RAISE OKC_API.G_EXCEPTION_ERROR;
2464:
2465: END IF;
2458:
2459: -- Check for contract_id (NULL)
2460: IF ((p_contract_id IS NULL ) OR (p_contract_id = OKC_API.G_MISS_NUM )) THEN
2461: x_return_status := OKC_API.G_RET_STS_ERROR;
2462: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
2463: RAISE OKC_API.G_EXCEPTION_ERROR;
2464:
2465: END IF;
2466:
2459: -- Check for contract_id (NULL)
2460: IF ((p_contract_id IS NULL ) OR (p_contract_id = OKC_API.G_MISS_NUM )) THEN
2461: x_return_status := OKC_API.G_RET_STS_ERROR;
2462: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
2463: RAISE OKC_API.G_EXCEPTION_ERROR;
2464:
2465: END IF;
2466:
2467:
2467:
2468:
2469: -- Check for Date put SYSDATE if NULL
2470: l_cancellation_date := p_cancellation_date ;
2471: IF ((l_cancellation_date IS NULL ) OR (l_cancellation_date = OKC_API.G_MISS_DATE )) THEN
2472:
2473: l_cancellation_date := SYSDATE;
2474:
2475: END IF;
2485:
2486: -- 3976894 Modified to fetch ISS_CODE
2487: FETCH c_okl_ins_policies INTO l_ipyv_rec.ID, l_ipyv_rec.IPY_TYPE, l_ipyv_rec.ISS_CODE;
2488: EXIT WHEN c_okl_ins_policies%NOTFOUND;
2489: IF (l_ipyv_rec.IPY_TYPE IS NULL) OR (l_ipyv_rec.IPY_TYPE = OKC_API.G_MISS_CHAR) THEN
2490: NULL;
2491:
2492: ELSIF( l_ipyv_rec.IPY_TYPE <> 'THIRD_PARTY_POLICY' )THEN
2493: --l_ipyv_rec.crx_code := 'CONTRACT_CANCELED' ;
2491:
2492: ELSIF( l_ipyv_rec.IPY_TYPE <> 'THIRD_PARTY_POLICY' )THEN
2493: --l_ipyv_rec.crx_code := 'CONTRACT_CANCELED' ;
2494: ---+++ Effective dated Termination Changes Start+++++------
2495: IF (p_crx_code IS NOT NULL) OR (p_crx_code <> OKC_API.G_MISS_CHAR ) THEN
2496: l_ipyv_rec.crx_code := p_crx_code;--'CONTRACT_CANCELED' ;
2497: END IF;
2498: ---+++ Effective dated Termination Changes End +++++------
2499: l_ipyv_rec.cancellation_date := p_cancellation_date;
2503: -- by calling delete policy.
2504: IF (l_ipyv_rec.ISS_CODE = 'ACTIVE') THEN
2505: cancel_policy(
2506: p_api_version => l_api_version,
2507: p_init_msg_list => OKC_API.G_FALSE,
2508: x_return_status => x_return_status,
2509: x_msg_count => x_msg_count,
2510: x_msg_data => x_msg_data,
2511: p_ipyv_rec => l_ipyv_rec,
2512: x_ipyv_rec => lx_ipyv_rec);
2513: ELSIF(l_ipyv_rec.ISS_CODE = 'PENDING') THEN
2514: delete_policy(
2515: p_api_version => l_api_version,
2516: p_init_msg_list => OKC_API.G_FALSE,
2517: x_return_status => l_return_status,
2518: x_msg_count => x_msg_count,
2519: x_msg_data => x_msg_data,
2520: p_ipyv_rec => l_ipyv_rec,
2522: END IF;
2523: END IF;
2524: END LOOP ;
2525: CLOSE c_okl_ins_policies ;
2526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2527:
2528: EXCEPTION
2529: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2530: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2525: CLOSE c_okl_ins_policies ;
2526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2527:
2528: EXCEPTION
2529: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2530: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2531: (
2532: l_api_name,
2533: G_PKG_NAME,
2526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2527:
2528: EXCEPTION
2529: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2530: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2531: (
2532: l_api_name,
2533: G_PKG_NAME,
2534: 'OKC_API.G_RET_STS_ERROR',
2530: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2531: (
2532: l_api_name,
2533: G_PKG_NAME,
2534: 'OKC_API.G_RET_STS_ERROR',
2535: x_msg_count,
2536: x_msg_data,
2537: '_PROCESS'
2538: );
2535: x_msg_count,
2536: x_msg_data,
2537: '_PROCESS'
2538: );
2539: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2540: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2541: (
2542: l_api_name,
2543: G_PKG_NAME,
2536: x_msg_data,
2537: '_PROCESS'
2538: );
2539: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2540: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2541: (
2542: l_api_name,
2543: G_PKG_NAME,
2544: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2540: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2541: (
2542: l_api_name,
2543: G_PKG_NAME,
2544: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2545: x_msg_count,
2546: x_msg_data,
2547: '_PROCESS'
2548: );
2546: x_msg_data,
2547: '_PROCESS'
2548: );
2549: WHEN OTHERS THEN
2550: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2554: 'OTHERS',
2758: ,lx_ipyv_rec.OBJECT_VERSION_NUMBER, lx_ipyv_rec.date_from, lx_ipyv_rec.ipy_type,
2759: lx_ipyv_rec.FACTOR_CODE,lx_ipyv_rec.IPF_CODE,lx_ipyv_rec.date_to,lx_ipyv_rec.premium,
2760: lx_ipyv_rec.covered_amount,lx_ipyv_rec.iss_code;
2761: IF(c_ins_info%NOTFOUND) THEN
2762: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
2763: x_return_status := OKC_API.G_RET_STS_ERROR ;
2764: CLOSE c_ins_info ;
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF ;
2759: lx_ipyv_rec.FACTOR_CODE,lx_ipyv_rec.IPF_CODE,lx_ipyv_rec.date_to,lx_ipyv_rec.premium,
2760: lx_ipyv_rec.covered_amount,lx_ipyv_rec.iss_code;
2761: IF(c_ins_info%NOTFOUND) THEN
2762: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
2763: x_return_status := OKC_API.G_RET_STS_ERROR ;
2764: CLOSE c_ins_info ;
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF ;
2767: CLOSE c_ins_info ;
2761: IF(c_ins_info%NOTFOUND) THEN
2762: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
2763: x_return_status := OKC_API.G_RET_STS_ERROR ;
2764: CLOSE c_ins_info ;
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF ;
2767: CLOSE c_ins_info ;
2768: RETURN lx_ipyv_rec;
2769: EXCEPTION
2768: RETURN lx_ipyv_rec;
2769: EXCEPTION
2770: WHEN OTHERS THEN
2771: -- store SQL error message on message stack for caller
2772: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2773: -- notify caller of an UNEXPECTED error
2774: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2775: RETURN NULL;
2776: END get_insurance_info;
2770: WHEN OTHERS THEN
2771: -- store SQL error message on message stack for caller
2772: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2773: -- notify caller of an UNEXPECTED error
2774: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2775: RETURN NULL;
2776: END get_insurance_info;
2777: ----------------------------------------------------------
2778: -- Calculate customer Refund
2813: l_ipyv_rec := p_ipyv_rec;
2814: OPEN C_OKL_STRM_TYPE_V('INSURANCE RECEIVABLE');
2815: FETCH C_OKL_STRM_TYPE_V INTO l_stm_type_rcvbl_id;
2816: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
2817: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
2818: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
2819: x_return_status := OKC_API.G_RET_STS_ERROR ;
2820: CLOSE C_OKL_STRM_TYPE_V ;
2821: RAISE OKC_API.G_EXCEPTION_ERROR;
2815: FETCH C_OKL_STRM_TYPE_V INTO l_stm_type_rcvbl_id;
2816: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
2817: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
2818: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
2819: x_return_status := OKC_API.G_RET_STS_ERROR ;
2820: CLOSE C_OKL_STRM_TYPE_V ;
2821: RAISE OKC_API.G_EXCEPTION_ERROR;
2822: END IF ;
2823: CLOSE C_OKL_STRM_TYPE_V;
2817: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
2818: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
2819: x_return_status := OKC_API.G_RET_STS_ERROR ;
2820: CLOSE C_OKL_STRM_TYPE_V ;
2821: RAISE OKC_API.G_EXCEPTION_ERROR;
2822: END IF ;
2823: CLOSE C_OKL_STRM_TYPE_V;
2824: -- get total amount received from customer
2825: OPEN c_total_amount_paid(l_stm_type_rcvbl_id,l_ipyv_rec.KHR_ID,l_ipyv_rec.KLE_ID) ;
2848: -- Caclulation of Refund Months
2849: -----------------------------------------
2850: -- get the number of months paid
2851: l_total_num_months_paid := l_freq_factor * l_no_of_rec;
2852: IF(( l_total_num_months_paid IS NULL) OR (l_total_num_months_paid = OKC_API.G_MISS_NUM )) THEN --[1]
2853: l_total_num_months_paid := 0 ;
2854: END IF ;
2855: -- check to see if the cancellation date is between the start and end date of the policy
2856: --SELECT 'X' INTO l_vld_cncl_dt FROM DUAL
2868: l_no_days_in_last_month := OKL_STREAM_GENERATOR_PVT.get_day_count(ADD_MONTHS(l_ipyv_rec.date_from,l_total_consumed_months),
2869: p_end_date => l_ipyv_rec.cancellation_date,
2870: p_arrears => 'Y',
2871: x_return_status => l_return_status);
2872: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2873: RAISE OKC_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: -- Refund Amount
2876: lx_refund_amount := (l_total_num_months_paid - l_total_consumed_months)* l_monthly_premium - l_no_days_in_last_month * l_monthly_premium/30 ;
2869: p_end_date => l_ipyv_rec.cancellation_date,
2870: p_arrears => 'Y',
2871: x_return_status => l_return_status);
2872: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2873: RAISE OKC_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: -- Refund Amount
2876: lx_refund_amount := (l_total_num_months_paid - l_total_consumed_months)* l_monthly_premium - l_no_days_in_last_month * l_monthly_premium/30 ;
2877: -- gboomina Bug 4885759 - End
2883:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2886: -- store SQL error message on message stack for caller
2887: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2888: -- notify caller of an UNEXPECTED error
2889: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2890: RETURN 0;
2891: END get_cust_refund;
2885: WHEN OTHERS THEN
2886: -- store SQL error message on message stack for caller
2887: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2888: -- notify caller of an UNEXPECTED error
2889: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2890: RETURN 0;
2891: END get_cust_refund;
2892: -----------------------------------------
2893: -- Proceduren get_vendor_refund
2893: -- Proceduren get_vendor_refund
2894: --------------------------------------------
2895: PROCEDURE get_vendor_refund(
2896: p_api_version IN NUMBER,
2897: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2898: x_return_status OUT NOCOPY VARCHAR2,
2899: x_msg_count OUT NOCOPY NUMBER,
2900: x_msg_data OUT NOCOPY VARCHAR2,
2901: p_ipyv_rec IN ipyv_rec_type,
2967:
2968: BEGIN
2969:
2970: l_ipyv_rec := p_ipyv_rec;
2971: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2972: G_PKG_NAME,
2973: p_init_msg_list,
2974: l_api_version,
2975: p_api_version,
2974: l_api_version,
2975: p_api_version,
2976: '_PROCESS',
2977: x_return_status);
2978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2981: RAISE OKC_API.G_EXCEPTION_ERROR;
2982: END IF;
2975: p_api_version,
2976: '_PROCESS',
2977: x_return_status);
2978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2981: RAISE OKC_API.G_EXCEPTION_ERROR;
2982: END IF;
2983:
2976: '_PROCESS',
2977: x_return_status);
2978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2981: RAISE OKC_API.G_EXCEPTION_ERROR;
2982: END IF;
2983:
2984: OPEN c_con_start(l_ipyv_rec.khr_id);
2977: x_return_status);
2978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2981: RAISE OKC_API.G_EXCEPTION_ERROR;
2982: END IF;
2983:
2984: OPEN c_con_start(l_ipyv_rec.khr_id);
2985: FETCH c_con_start INTO l_start_date;
2983:
2984: OPEN c_con_start(l_ipyv_rec.khr_id);
2985: FETCH c_con_start INTO l_start_date;
2986: IF(c_con_start%NOTFOUND) THEN
2987: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
2988: x_return_status := OKC_API.G_RET_STS_ERROR ;
2989: CLOSE c_con_start ;
2990: RAISE OKC_API.G_EXCEPTION_ERROR;
2991: END IF ;
2984: OPEN c_con_start(l_ipyv_rec.khr_id);
2985: FETCH c_con_start INTO l_start_date;
2986: IF(c_con_start%NOTFOUND) THEN
2987: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
2988: x_return_status := OKC_API.G_RET_STS_ERROR ;
2989: CLOSE c_con_start ;
2990: RAISE OKC_API.G_EXCEPTION_ERROR;
2991: END IF ;
2992: CLOSE c_con_start ;
2986: IF(c_con_start%NOTFOUND) THEN
2987: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_VALUE', G_COL_NAME_TOKEN,'Contract Start Date');
2988: x_return_status := OKC_API.G_RET_STS_ERROR ;
2989: CLOSE c_con_start ;
2990: RAISE OKC_API.G_EXCEPTION_ERROR;
2991: END IF ;
2992: CLOSE c_con_start ;
2993: --- How much he should have been paid
2994: IF (p_ipyv_rec.ipy_type = 'LEASE_POLICY') THEN
2995: -- Select premium from insured_asset table
2996: OPEN c_okl_ins_asset;
2997: FETCH c_okl_ins_asset INTO l_lessor_premium;
2998: IF(c_okl_ins_asset%NOTFOUND) THEN
2999: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3000: x_return_status := OKC_API.G_RET_STS_ERROR ;
3001: CLOSE c_okl_ins_asset ;
3002: RAISE OKC_API.G_EXCEPTION_ERROR;
3003: END if ;
2996: OPEN c_okl_ins_asset;
2997: FETCH c_okl_ins_asset INTO l_lessor_premium;
2998: IF(c_okl_ins_asset%NOTFOUND) THEN
2999: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3000: x_return_status := OKC_API.G_RET_STS_ERROR ;
3001: CLOSE c_okl_ins_asset ;
3002: RAISE OKC_API.G_EXCEPTION_ERROR;
3003: END if ;
3004: CLOSE c_okl_ins_asset ;
2998: IF(c_okl_ins_asset%NOTFOUND) THEN
2999: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3000: x_return_status := OKC_API.G_RET_STS_ERROR ;
3001: CLOSE c_okl_ins_asset ;
3002: RAISE OKC_API.G_EXCEPTION_ERROR;
3003: END if ;
3004: CLOSE c_okl_ins_asset ;
3005:
3006: ELSE
3022: p_currency_code => l_functional_currency);
3023: OPEN c_ins_opt_premium (x_functional_covered_amt);
3024: FETCH c_ins_opt_premium INTO l_func_total_lessor_premium;
3025: IF(c_ins_opt_premium%NOTFOUND) THEN
3026: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3027: x_return_status := OKC_API.G_RET_STS_ERROR ;
3028: CLOSE c_ins_opt_premium ;
3029: RAISE OKC_API.G_EXCEPTION_ERROR;
3030: END if ;
3023: OPEN c_ins_opt_premium (x_functional_covered_amt);
3024: FETCH c_ins_opt_premium INTO l_func_total_lessor_premium;
3025: IF(c_ins_opt_premium%NOTFOUND) THEN
3026: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3027: x_return_status := OKC_API.G_RET_STS_ERROR ;
3028: CLOSE c_ins_opt_premium ;
3029: RAISE OKC_API.G_EXCEPTION_ERROR;
3030: END if ;
3031: --- total lessor premium from functional to contract currency
3025: IF(c_ins_opt_premium%NOTFOUND) THEN
3026: Okc_Api.set_message(G_APP_NAME, 'OKL_INVALID_POLICY', G_COL_NAME_TOKEN,p_ipyv_rec.ID);
3027: x_return_status := OKC_API.G_RET_STS_ERROR ;
3028: CLOSE c_ins_opt_premium ;
3029: RAISE OKC_API.G_EXCEPTION_ERROR;
3030: END if ;
3031: --- total lessor premium from functional to contract currency
3032: OKL_ACCOUNTING_UTIL.convert_to_contract_currency
3033: (
3078: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
3079: 'INSURANCE_PAYABLE',
3080: l_return_status,
3081: l_pay_strm_type_id);
3082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3079: 'INSURANCE_PAYABLE',
3080: l_return_status,
3081: l_pay_strm_type_id);
3082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3087: RAISE OKC_API.G_EXCEPTION_ERROR;
3080: l_return_status,
3081: l_pay_strm_type_id);
3082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3087: RAISE OKC_API.G_EXCEPTION_ERROR;
3088: END IF;
3081: l_pay_strm_type_id);
3082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3087: RAISE OKC_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: OPEN c_total_paid(l_pay_strm_type_id);
3082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3087: RAISE OKC_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: OPEN c_total_paid(l_pay_strm_type_id);
3090: FETCH c_total_paid INTO l_total_paid;
3083: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE');
3087: RAISE OKC_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: OPEN c_total_paid(l_pay_strm_type_id);
3090: FETCH c_total_paid INTO l_total_paid;
3091: IF(c_total_paid%NOTFOUND) THEN
3091: IF(c_total_paid%NOTFOUND) THEN
3092: l_total_paid := 0 ;
3093: END IF ;
3094: CLOSE c_total_paid;
3095: IF ((l_total_paid IS NULL ) OR (l_total_paid = OKC_API.G_MISS_NUM )) THEN
3096: l_total_paid := 0;
3097: END IF ;
3098: ln_refund := l_total_paid - ln_premium ;
3099: pn_refund:= ln_refund;
3101: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
3102: 'INSURANCE_ADJUSTMENT',
3103: l_return_status,
3104: l_Adj_strm_type_id);
3105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3102: 'INSURANCE_ADJUSTMENT',
3103: l_return_status,
3104: l_Adj_strm_type_id);
3105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3110: RAISE OKC_API.G_EXCEPTION_ERROR;
3103: l_return_status,
3104: l_Adj_strm_type_id);
3105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3110: RAISE OKC_API.G_EXCEPTION_ERROR;
3111: END IF;
3104: l_Adj_strm_type_id);
3105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3110: RAISE OKC_API.G_EXCEPTION_ERROR;
3111: END IF;
3112:
3105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3110: RAISE OKC_API.G_EXCEPTION_ERROR;
3111: END IF;
3112:
3113: -- GET MONEY BACK FROM VENDOR
3106: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3109: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN, 'INSURANCE_ADJUSTMENT'); --bug 4024785
3110: RAISE OKC_API.G_EXCEPTION_ERROR;
3111: END IF;
3112:
3113: -- GET MONEY BACK FROM VENDOR
3114: l_to_refund := -ln_refund ;
3116: -- GET TRANSACTION TYPE
3117: OPEN c_trx_type ('Debit Memo', 'US');
3118: FETCH c_trx_type INTO l_trx_type_id;
3119: IF(c_trx_type%NOTFOUND) THEN
3120: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
3121: 'TRY_NAME','Debit Memo');-- 3745151
3122: x_return_status := OKC_API.G_RET_STS_ERROR ;
3123: CLOSE c_trx_type ;
3124: RAISE OKC_API.G_EXCEPTION_ERROR;
3118: FETCH c_trx_type INTO l_trx_type_id;
3119: IF(c_trx_type%NOTFOUND) THEN
3120: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
3121: 'TRY_NAME','Debit Memo');-- 3745151
3122: x_return_status := OKC_API.G_RET_STS_ERROR ;
3123: CLOSE c_trx_type ;
3124: RAISE OKC_API.G_EXCEPTION_ERROR;
3125: END if ;
3126: CLOSE c_trx_type;
3120: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
3121: 'TRY_NAME','Debit Memo');-- 3745151
3122: x_return_status := OKC_API.G_RET_STS_ERROR ;
3123: CLOSE c_trx_type ;
3124: RAISE OKC_API.G_EXCEPTION_ERROR;
3125: END if ;
3126: CLOSE c_trx_type;
3127:
3128: -- Call API to create Debit Memo
3137: p_khr_id => p_ipyv_rec.khr_id,
3138: p_kle_id => p_ipyv_rec.kle_id,
3139: p_invoice_date => SYSDATE,
3140: p_trx_id => l_trx_type_ID );
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3138: p_kle_id => p_ipyv_rec.kle_id,
3139: p_invoice_date => SYSDATE,
3140: p_trx_id => l_trx_type_ID );
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3139: p_invoice_date => SYSDATE,
3140: p_trx_id => l_trx_type_ID );
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3147: ELSIF (ln_premium > l_total_paid) THEN
3140: p_trx_id => l_trx_type_ID );
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3147: ELSIF (ln_premium > l_total_paid) THEN
3148: l_tra_id := OKC_API.G_MISS_NUM ;
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3147: ELSIF (ln_premium > l_total_paid) THEN
3148: l_tra_id := OKC_API.G_MISS_NUM ;
3149: l_to_refund := ln_premium - l_total_paid ;
3150: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
3151: 'INSURANCE_PAYABLE',
3152: l_return_status,
3150: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
3151: 'INSURANCE_PAYABLE',
3152: l_return_status,
3153: l_PAY_strm_type_id);
3154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3151: 'INSURANCE_PAYABLE',
3152: l_return_status,
3153: l_PAY_strm_type_id);
3154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3159: RAISE OKC_API.G_EXCEPTION_ERROR;
3152: l_return_status,
3153: l_PAY_strm_type_id);
3154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3159: RAISE OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3153: l_PAY_strm_type_id);
3154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3159: RAISE OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161: -- GET TRANSACTION TYPE
3154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3159: RAISE OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161: -- GET TRANSACTION TYPE
3162: OPEN c_trx_type('Disbursement', 'US');
3155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3158: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
3159: RAISE OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161: -- GET TRANSACTION TYPE
3162: OPEN c_trx_type('Disbursement', 'US');
3163: FETCH c_trx_type INTO l_trx_type_ID;
3162: OPEN c_trx_type('Disbursement', 'US');
3163: FETCH c_trx_type INTO l_trx_type_ID;
3164: IF(c_trx_type%NOTFOUND) THEN
3165: l_attribute_label := OKL_ACCOUNTING_UTIL.get_message_token('OKL_LA_SEC_INVESTOR','OKL_LA_SEC_BILL'); --3927315
3166: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
3167: 'TRY_NAME',l_attribute_label); --3745151
3168: l_attribute_label := null;
3169: x_return_status := OKC_API.G_RET_STS_ERROR ;
3170: CLOSE c_trx_type ;
3165: l_attribute_label := OKL_ACCOUNTING_UTIL.get_message_token('OKL_LA_SEC_INVESTOR','OKL_LA_SEC_BILL'); --3927315
3166: Okc_Api.set_message(G_APP_NAME, 'OKL_AM_NO_TRX_TYPE_FOUND',
3167: 'TRY_NAME',l_attribute_label); --3745151
3168: l_attribute_label := null;
3169: x_return_status := OKC_API.G_RET_STS_ERROR ;
3170: CLOSE c_trx_type ;
3171: RAISE OKC_API.G_EXCEPTION_ERROR;
3172: END IF ;
3173: CLOSE c_trx_type ;
3167: 'TRY_NAME',l_attribute_label); --3745151
3168: l_attribute_label := null;
3169: x_return_status := OKC_API.G_RET_STS_ERROR ;
3170: CLOSE c_trx_type ;
3171: RAISE OKC_API.G_EXCEPTION_ERROR;
3172: END IF ;
3173: CLOSE c_trx_type ;
3174: IF(L_DEBUG_ENABLED='Y') THEN
3175: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
3196: BEGIN
3197: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call insert_ap_request');
3198: END;
3199: END IF;
3200: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3202: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3203: RAISE OKC_API.G_EXCEPTION_ERROR;
3204: END IF;
3197: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call insert_ap_request');
3198: END;
3199: END IF;
3200: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3202: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3203: RAISE OKC_API.G_EXCEPTION_ERROR;
3204: END IF;
3205: END IF ;
3198: END;
3199: END IF;
3200: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3202: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3203: RAISE OKC_API.G_EXCEPTION_ERROR;
3204: END IF;
3205: END IF ;
3206:
3199: END IF;
3200: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3202: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3203: RAISE OKC_API.G_EXCEPTION_ERROR;
3204: END IF;
3205: END IF ;
3206:
3207: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3203: RAISE OKC_API.G_EXCEPTION_ERROR;
3204: END IF;
3205: END IF ;
3206:
3207: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3208:
3209: EXCEPTION
3210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3206:
3207: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3208:
3209: EXCEPTION
3210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3212: (
3213: l_api_name,
3214: G_PKG_NAME,
3207: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3208:
3209: EXCEPTION
3210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3212: (
3213: l_api_name,
3214: G_PKG_NAME,
3215: 'OKC_API.G_RET_STS_ERROR',
3211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3212: (
3213: l_api_name,
3214: G_PKG_NAME,
3215: 'OKC_API.G_RET_STS_ERROR',
3216: x_msg_count,
3217: x_msg_data,
3218: '_PROCESS'
3219: );
3216: x_msg_count,
3217: x_msg_data,
3218: '_PROCESS'
3219: );
3220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3221: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3222: (
3223: l_api_name,
3224: G_PKG_NAME,
3217: x_msg_data,
3218: '_PROCESS'
3219: );
3220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3221: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3222: (
3223: l_api_name,
3224: G_PKG_NAME,
3225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3221: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3222: (
3223: l_api_name,
3224: G_PKG_NAME,
3225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3226: x_msg_count,
3227: x_msg_data,
3228: '_PROCESS'
3229: );
3227: x_msg_data,
3228: '_PROCESS'
3229: );
3230: WHEN OTHERS THEN
3231: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3232: (
3233: l_api_name,
3234: G_PKG_NAME,
3235: 'OTHERS',
3242: -- Procedure rebook_inc_adjustment
3243: ---------------------------------------------------
3244: PROCEDURE rebook_inc_adjustment(
3245: p_api_version IN NUMBER,
3246: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3247: x_return_status OUT NOCOPY VARCHAR2,
3248: x_msg_count OUT NOCOPY NUMBER,
3249: x_msg_data OUT NOCOPY VARCHAR2,
3250: p_ipyv_rec IN ipyv_rec_type,
3397:
3398: l_ipyv_rec := p_ipyv_rec;
3399: l_refund_amount := p_refund_amount;
3400:
3401: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3402: G_PKG_NAME,
3403: p_init_msg_list,
3404: l_api_version,
3405: p_api_version,
3404: l_api_version,
3405: p_api_version,
3406: '_PROCESS',
3407: l_return_status);
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3405: p_api_version,
3406: '_PROCESS',
3407: l_return_status);
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3406: '_PROCESS',
3407: l_return_status);
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3414: 'INSURANCE_RECEIVABLE',
3407: l_return_status);
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3414: 'INSURANCE_RECEIVABLE',
3415: l_return_status,
3413: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3414: 'INSURANCE_RECEIVABLE',
3415: l_return_status,
3416: l_strm_type_id);
3417: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3414: 'INSURANCE_RECEIVABLE',
3415: l_return_status,
3416: l_strm_type_id);
3417: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3422: RAISE OKC_API.G_EXCEPTION_ERROR;
3415: l_return_status,
3416: l_strm_type_id);
3417: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3422: RAISE OKC_API.G_EXCEPTION_ERROR;
3423: END IF;
3416: l_strm_type_id);
3417: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3422: RAISE OKC_API.G_EXCEPTION_ERROR;
3423: END IF;
3424: OPEN c_total_billed(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3417: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3422: RAISE OKC_API.G_EXCEPTION_ERROR;
3423: END IF;
3424: OPEN c_total_billed(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3425: FETCH c_total_billed INTO l_total_billed;
3418: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
3422: RAISE OKC_API.G_EXCEPTION_ERROR;
3423: END IF;
3424: OPEN c_total_billed(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3425: FETCH c_total_billed INTO l_total_billed;
3426: CLOSE c_total_billed ;
3428: -- needs to be thrown as we are setting total billed
3429: -- to zero if cursor fetch fails.
3430: /*
3431: IF(c_total_billed%NOTFOUND) THEN
3432: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3433: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3434: x_return_status := OKC_API.G_RET_STS_ERROR ;
3435: CLOSE c_total_billed ;
3436: RAISE OKC_API.G_EXCEPTION_ERROR;
3430: /*
3431: IF(c_total_billed%NOTFOUND) THEN
3432: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3433: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3434: x_return_status := OKC_API.G_RET_STS_ERROR ;
3435: CLOSE c_total_billed ;
3436: RAISE OKC_API.G_EXCEPTION_ERROR;
3437: END if ;
3438: */
3432: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3433: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3434: x_return_status := OKC_API.G_RET_STS_ERROR ;
3435: CLOSE c_total_billed ;
3436: RAISE OKC_API.G_EXCEPTION_ERROR;
3437: END if ;
3438: */
3439:
3440: IF ((l_total_billed IS NULL ) OR (l_total_billed = OKC_API.G_MISS_NUM )) THEN
3436: RAISE OKC_API.G_EXCEPTION_ERROR;
3437: END if ;
3438: */
3439:
3440: IF ((l_total_billed IS NULL ) OR (l_total_billed = OKC_API.G_MISS_NUM )) THEN
3441: l_total_billed := 0;
3442: END IF ;
3443:
3444: -- MGAAP start 7263041
3451: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3452: 'INSURANCE_INCOME_ACCRUAL',
3453: l_return_status,
3454: l_strm_type_id);
3455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3452: 'INSURANCE_INCOME_ACCRUAL',
3453: l_return_status,
3454: l_strm_type_id);
3455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3460: RAISE OKC_API.G_EXCEPTION_ERROR;
3453: l_return_status,
3454: l_strm_type_id);
3455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3460: RAISE OKC_API.G_EXCEPTION_ERROR;
3461: END IF;
3454: l_strm_type_id);
3455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3460: RAISE OKC_API.G_EXCEPTION_ERROR;
3461: END IF;
3462: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3460: RAISE OKC_API.G_EXCEPTION_ERROR;
3461: END IF;
3462: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3463: FETCH c_total_bill_accrued INTO l_total_bill_accrued;
3456: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3459: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3460: RAISE OKC_API.G_EXCEPTION_ERROR;
3461: END IF;
3462: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
3463: FETCH c_total_bill_accrued INTO l_total_bill_accrued;
3464: CLOSE c_total_bill_accrued ;
3466: -- needs to be thrown as we are setting total billed
3467: -- to zero if cursor fetch fails.
3468: /*
3469: IF(c_total_bill_accrued%NOTFOUND) THEN
3470: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3471: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3472: x_return_status := OKC_API.G_RET_STS_ERROR ;
3473: CLOSE c_total_bill_accrued ;
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3468: /*
3469: IF(c_total_bill_accrued%NOTFOUND) THEN
3470: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3471: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3472: x_return_status := OKC_API.G_RET_STS_ERROR ;
3473: CLOSE c_total_bill_accrued ;
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END if ;
3476: */
3470: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
3471: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
3472: x_return_status := OKC_API.G_RET_STS_ERROR ;
3473: CLOSE c_total_bill_accrued ;
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END if ;
3476: */
3477: IF ((l_total_bill_accrued IS NULL ) OR (l_total_bill_accrued = OKC_API.G_MISS_NUM )) THEN
3478: l_total_bill_accrued := 0;
3473: CLOSE c_total_bill_accrued ;
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END if ;
3476: */
3477: IF ((l_total_bill_accrued IS NULL ) OR (l_total_bill_accrued = OKC_API.G_MISS_NUM )) THEN
3478: l_total_bill_accrued := 0;
3479: END IF ;
3480:
3481: IF ((l_refund_amount IS NULL ) OR (l_refund_amount = OKC_API.G_MISS_NUM )) THEN
3477: IF ((l_total_bill_accrued IS NULL ) OR (l_total_bill_accrued = OKC_API.G_MISS_NUM )) THEN
3478: l_total_bill_accrued := 0;
3479: END IF ;
3480:
3481: IF ((l_refund_amount IS NULL ) OR (l_refund_amount = OKC_API.G_MISS_NUM )) THEN
3482: l_refund_amount := 0;
3483: END IF ;
3484: l_adjustment_amount := l_total_billed - l_total_bill_accrued - l_refund_amount ;
3485:
3490: OKL_STREAMS_UTIL.get_primary_stream_type_rep(l_ipyv_rec.khr_id,
3491: 'INSURANCE_INCOME_ACCRUAL',
3492: l_return_status,
3493: l_strm_type_id_rep);
3494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3491: 'INSURANCE_INCOME_ACCRUAL',
3492: l_return_status,
3493: l_strm_type_id_rep);
3494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3499: RAISE OKC_API.G_EXCEPTION_ERROR;
3492: l_return_status,
3493: l_strm_type_id_rep);
3494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3499: RAISE OKC_API.G_EXCEPTION_ERROR;
3500: END IF;
3493: l_strm_type_id_rep);
3494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3499: RAISE OKC_API.G_EXCEPTION_ERROR;
3500: END IF;
3501: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id_rep);
3494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3499: RAISE OKC_API.G_EXCEPTION_ERROR;
3500: END IF;
3501: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id_rep);
3502: FETCH c_total_bill_accrued INTO l_total_bill_accrued_rep;
3495: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3498: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3499: RAISE OKC_API.G_EXCEPTION_ERROR;
3500: END IF;
3501: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id_rep);
3502: FETCH c_total_bill_accrued INTO l_total_bill_accrued_rep;
3503: CLOSE c_total_bill_accrued ;
3502: FETCH c_total_bill_accrued INTO l_total_bill_accrued_rep;
3503: CLOSE c_total_bill_accrued ;
3504:
3505: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
3506: IF ((l_total_bill_accrued_rep IS NULL ) OR (l_total_bill_accrued_rep = OKC_API.G_MISS_NUM )) THEN
3507: l_total_bill_accrued_rep := 0;
3508: END IF ;
3509:
3510: IF ((l_refund_amount IS NULL ) OR (l_refund_amount = OKC_API.G_MISS_NUM )) THEN
3506: IF ((l_total_bill_accrued_rep IS NULL ) OR (l_total_bill_accrued_rep = OKC_API.G_MISS_NUM )) THEN
3507: l_total_bill_accrued_rep := 0;
3508: END IF ;
3509:
3510: IF ((l_refund_amount IS NULL ) OR (l_refund_amount = OKC_API.G_MISS_NUM )) THEN
3511: l_refund_amount := 0;
3512: END IF ;
3513: l_adjustment_amount_rep := l_total_billed - l_total_bill_accrued_rep - l_refund_amount ;
3514:
3520: --gboomina Bug 4885759 - Start - Changing the transaction type from Insurance to Accrual
3521: OPEN okl_trx_types ('Accrual', 'US');
3522: FETCH okl_trx_types INTO l_ins_try_id;
3523: IF(okl_trx_types%NOTFOUND) THEN
3524: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
3525: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
3526: x_return_status := OKC_API.G_RET_STS_ERROR ;
3527: CLOSE okl_trx_types ;
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3522: FETCH okl_trx_types INTO l_ins_try_id;
3523: IF(okl_trx_types%NOTFOUND) THEN
3524: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
3525: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
3526: x_return_status := OKC_API.G_RET_STS_ERROR ;
3527: CLOSE okl_trx_types ;
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3529: END IF ;
3530: CLOSE okl_trx_types;
3524: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
3525: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
3526: x_return_status := OKC_API.G_RET_STS_ERROR ;
3527: CLOSE okl_trx_types ;
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3529: END IF ;
3530: CLOSE okl_trx_types;
3531: --gboomina Bug 4885759 - End
3532: -- GET Product
3532: -- GET Product
3533: OPEN l_acc_dtls_csr(l_ipyv_rec.KHR_ID );
3534: FETCH l_acc_dtls_csr INTO l_ptid;
3535: IF(l_acc_dtls_csr%NOTFOUND) THEN
3536: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
3537: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
3538: x_return_status := OKC_API.G_RET_STS_ERROR ;
3539: CLOSE l_acc_dtls_csr ;
3540: RAISE OKC_API.G_EXCEPTION_ERROR;
3534: FETCH l_acc_dtls_csr INTO l_ptid;
3535: IF(l_acc_dtls_csr%NOTFOUND) THEN
3536: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
3537: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
3538: x_return_status := OKC_API.G_RET_STS_ERROR ;
3539: CLOSE l_acc_dtls_csr ;
3540: RAISE OKC_API.G_EXCEPTION_ERROR;
3541: END if ;
3542: CLOSE l_acc_dtls_csr;
3536: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
3537: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
3538: x_return_status := OKC_API.G_RET_STS_ERROR ;
3539: CLOSE l_acc_dtls_csr ;
3540: RAISE OKC_API.G_EXCEPTION_ERROR;
3541: END if ;
3542: CLOSE l_acc_dtls_csr;
3543: BEGIN
3544: OPEN l_contract_currency_csr;
3546: l_currency_conversion_date ;
3547: CLOSE l_contract_currency_csr;
3548: EXCEPTION
3549: WHEN NO_DATA_FOUND THEN
3550: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
3551: x_return_status := OKC_API.G_RET_STS_ERROR;
3552: IF l_contract_currency_csr%ISOPEN THEN
3553: CLOSE l_contract_currency_csr;
3554: END IF;
3547: CLOSE l_contract_currency_csr;
3548: EXCEPTION
3549: WHEN NO_DATA_FOUND THEN
3550: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
3551: x_return_status := OKC_API.G_RET_STS_ERROR;
3552: IF l_contract_currency_csr%ISOPEN THEN
3553: CLOSE l_contract_currency_csr;
3554: END IF;
3555: RAISE OKC_API.G_EXCEPTION_ERROR;
3551: x_return_status := OKC_API.G_RET_STS_ERROR;
3552: IF l_contract_currency_csr%ISOPEN THEN
3553: CLOSE l_contract_currency_csr;
3554: END IF;
3555: RAISE OKC_API.G_EXCEPTION_ERROR;
3556: WHEN OTHERS THEN
3557: IF l_contract_currency_csr%ISOPEN THEN
3558: CLOSE l_contract_currency_csr;
3559: END IF;
3557: IF l_contract_currency_csr%ISOPEN THEN
3558: CLOSE l_contract_currency_csr;
3559: END IF;
3560: -- store SQL error message on message stack for caller
3561: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
3562: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3563: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
3564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
3565: END;
3559: END IF;
3560: -- store SQL error message on message stack for caller
3561: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
3562: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3563: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
3564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
3565: END;
3566: --- l_curr_code := OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE;
3567:
3560: -- store SQL error message on message stack for caller
3561: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
3562: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3563: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
3564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
3565: END;
3566: --- l_curr_code := OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE;
3567:
3568: IF (l_adjustment_amount <> 0 ) THEN
3600: END;
3601: END IF;
3602: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3603: p_api_version => l_api_version,
3604: p_init_msg_list => OKC_API.G_FALSE,
3605: x_return_status => x_return_status,
3606: x_msg_count => x_msg_count,
3607: x_msg_data => x_msg_data,
3608: p_tcnv_rec =>l_tcnv_rec_in ,
3636: END IF ;
3637: CLOSE salesP_csr;
3638: ------------------------------------------------------------------------------------
3639:
3640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3637: CLOSE salesP_csr;
3638: ------------------------------------------------------------------------------------
3639:
3640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3638: ------------------------------------------------------------------------------------
3639:
3640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3646: End Bug#5955320 */
3639:
3640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3646: End Bug#5955320 */
3647:
3708: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
3709: END;
3710: END IF;
3711: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3713: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3715: RAISE OKC_API.G_EXCEPTION_ERROR;
3716: END IF;
3709: END;
3710: END IF;
3711: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3713: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3715: RAISE OKC_API.G_EXCEPTION_ERROR;
3716: END IF;
3717: END IF ;
3710: END IF;
3711: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3713: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3715: RAISE OKC_API.G_EXCEPTION_ERROR;
3716: END IF;
3717: END IF ;
3718: END IF;
3711: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3713: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3715: RAISE OKC_API.G_EXCEPTION_ERROR;
3716: END IF;
3717: END IF ;
3718: END IF;
3719:
3725: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
3726: 'INSURANCE_INCOME_ACCRUAL',
3727: l_return_status,
3728: l_inc_sty_id);
3729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3726: 'INSURANCE_INCOME_ACCRUAL',
3727: l_return_status,
3728: l_inc_sty_id);
3729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3734: RAISE OKC_API.G_EXCEPTION_ERROR;
3727: l_return_status,
3728: l_inc_sty_id);
3729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3734: RAISE OKC_API.G_EXCEPTION_ERROR;
3735: END IF;
3728: l_inc_sty_id);
3729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3734: RAISE OKC_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3734: RAISE OKC_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3737: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_ipyv_rec.CANCELLATION_DATE);
3730: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3731: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3732: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3733: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
3734: RAISE OKC_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3737: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_ipyv_rec.CANCELLATION_DATE);
3738: l_ins_acc_adj := fnd_message.get_string('OKL','OKL_INS_INC_ACC_ADJ');
3777: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
3778: END;
3779: END IF;
3780: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3781: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3778: END;
3779: END IF;
3780: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3781: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3779: END IF;
3780: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3781: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3787: END IF;
3780: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3781: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3787: END IF;
3788: --End Bug#5955320
3857: END IF;
3858: END IF;
3859: -- MGAAP end 7263041
3860:
3861: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3862: EXCEPTION
3863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3865: (
3859: -- MGAAP end 7263041
3860:
3861: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3862: EXCEPTION
3863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3865: (
3866: l_api_name,
3867: G_PKG_NAME,
3860:
3861: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3862: EXCEPTION
3863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3865: (
3866: l_api_name,
3867: G_PKG_NAME,
3868: 'OKC_API.G_RET_STS_ERROR',
3864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3865: (
3866: l_api_name,
3867: G_PKG_NAME,
3868: 'OKC_API.G_RET_STS_ERROR',
3869: x_msg_count,
3870: x_msg_data,
3871: '_PROCESS'
3872: );
3882: -- Procedure rebook_exp_adjustment
3883: ---------------------------------------
3884: PROCEDURE rebook_exp_adjustment(
3885: p_api_version IN NUMBER,
3886: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3887: x_return_status OUT NOCOPY VARCHAR2,
3888: x_msg_count OUT NOCOPY NUMBER,
3889: x_msg_data OUT NOCOPY VARCHAR2,
3890: p_ipyv_rec IN ipyv_rec_type,
4031: BEGIN
4032: l_ipyv_rec := p_ipyv_rec ;
4033: l_vendor_refund_amount := lp_vendor_refund_amount;
4034:
4035: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4036: G_PKG_NAME,
4037: p_init_msg_list,
4038: l_api_version,
4039: p_api_version,
4038: l_api_version,
4039: p_api_version,
4040: '_PROCESS',
4041: l_return_status);
4042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4045: RAISE OKC_API.G_EXCEPTION_ERROR;
4046: END IF;
4039: p_api_version,
4040: '_PROCESS',
4041: l_return_status);
4042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4045: RAISE OKC_API.G_EXCEPTION_ERROR;
4046: END IF;
4047:
4040: '_PROCESS',
4041: l_return_status);
4042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4045: RAISE OKC_API.G_EXCEPTION_ERROR;
4046: END IF;
4047:
4048: -- MGAAP start 7263041
4041: l_return_status);
4042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4045: RAISE OKC_API.G_EXCEPTION_ERROR;
4046: END IF;
4047:
4048: -- MGAAP start 7263041
4049: -- Moved from bottom
4051: FETCH l_acc_dtls_csr INTO l_ptid,
4052: l_multi_gaap_yn, -- MGAAP
4053: l_reporting_pdt_id; -- MGAAP
4054: IF(l_acc_dtls_csr%NOTFOUND) THEN
4055: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4056: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4057: x_return_status := OKC_API.G_RET_STS_ERROR ;
4058: CLOSE l_acc_dtls_csr ;
4059: RAISE OKC_API.G_EXCEPTION_ERROR;
4053: l_reporting_pdt_id; -- MGAAP
4054: IF(l_acc_dtls_csr%NOTFOUND) THEN
4055: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4056: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4057: x_return_status := OKC_API.G_RET_STS_ERROR ;
4058: CLOSE l_acc_dtls_csr ;
4059: RAISE OKC_API.G_EXCEPTION_ERROR;
4060: END if ;
4061: CLOSE l_acc_dtls_csr;
4055: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4056: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4057: x_return_status := OKC_API.G_RET_STS_ERROR ;
4058: CLOSE l_acc_dtls_csr ;
4059: RAISE OKC_API.G_EXCEPTION_ERROR;
4060: END if ;
4061: CLOSE l_acc_dtls_csr;
4062: -- MGAAP end 7263041
4063:
4066: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4067: 'INSURANCE_PAYABLE',
4068: l_return_status,
4069: l_strm_type_id);
4070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4067: 'INSURANCE_PAYABLE',
4068: l_return_status,
4069: l_strm_type_id);
4070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4068: l_return_status,
4069: l_strm_type_id);
4070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4069: l_strm_type_id);
4070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077: OPEN c_total_paid(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077: OPEN c_total_paid(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4078: FETCH c_total_paid INTO l_total_paid;
4071: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077: OPEN c_total_paid(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4078: FETCH c_total_paid INTO l_total_paid;
4079: CLOSE c_total_paid ;
4082: -- needs to be thrown as we are setting total paid
4083: -- to zero if cursor fetch fails.
4084: /*
4085: IF(c_total_paid%NOTFOUND) THEN
4086: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4087: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4088: x_return_status := OKC_API.G_RET_STS_ERROR ;
4089: CLOSE c_total_paid ;
4090: RAISE OKC_API.G_EXCEPTION_ERROR;
4084: /*
4085: IF(c_total_paid%NOTFOUND) THEN
4086: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4087: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4088: x_return_status := OKC_API.G_RET_STS_ERROR ;
4089: CLOSE c_total_paid ;
4090: RAISE OKC_API.G_EXCEPTION_ERROR;
4091: END if ;
4092: */
4086: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4087: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4088: x_return_status := OKC_API.G_RET_STS_ERROR ;
4089: CLOSE c_total_paid ;
4090: RAISE OKC_API.G_EXCEPTION_ERROR;
4091: END if ;
4092: */
4093:
4094: IF ((l_total_paid IS NULL ) OR (l_total_paid = OKC_API.G_MISS_NUM )) THEN
4090: RAISE OKC_API.G_EXCEPTION_ERROR;
4091: END if ;
4092: */
4093:
4094: IF ((l_total_paid IS NULL ) OR (l_total_paid = OKC_API.G_MISS_NUM )) THEN
4095: l_total_paid := 0;
4096: END IF ;
4097: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4098: 'INSURANCE_EXPENSE_ACCRUAL',
4097: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4098: 'INSURANCE_EXPENSE_ACCRUAL',
4099: l_return_status,
4100: l_strm_type_id);
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4098: 'INSURANCE_EXPENSE_ACCRUAL',
4099: l_return_status,
4100: l_strm_type_id);
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4106: RAISE OKC_API.G_EXCEPTION_ERROR;
4099: l_return_status,
4100: l_strm_type_id);
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4106: RAISE OKC_API.G_EXCEPTION_ERROR;
4107: END IF;
4100: l_strm_type_id);
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4106: RAISE OKC_API.G_EXCEPTION_ERROR;
4107: END IF;
4108: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4106: RAISE OKC_API.G_EXCEPTION_ERROR;
4107: END IF;
4108: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4109: FETCH c_total_payment_accrued INTO l_total_pay_accrued;
4102: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4105: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4106: RAISE OKC_API.G_EXCEPTION_ERROR;
4107: END IF;
4108: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
4109: FETCH c_total_payment_accrued INTO l_total_pay_accrued;
4110: CLOSE c_total_payment_accrued ;
4113: -- needs to be thrown as we are setting total paid
4114: -- to zero if cursor fetch fails.
4115: /*
4116: IF(c_total_payment_accrued%NOTFOUND) THEN
4117: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4118: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4119: x_return_status := OKC_API.G_RET_STS_ERROR ;
4120: CLOSE c_total_payment_accrued ;
4121: RAISE OKC_API.G_EXCEPTION_ERROR;
4115: /*
4116: IF(c_total_payment_accrued%NOTFOUND) THEN
4117: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4118: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4119: x_return_status := OKC_API.G_RET_STS_ERROR ;
4120: CLOSE c_total_payment_accrued ;
4121: RAISE OKC_API.G_EXCEPTION_ERROR;
4122: END if ;
4123: */
4117: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
4118: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
4119: x_return_status := OKC_API.G_RET_STS_ERROR ;
4120: CLOSE c_total_payment_accrued ;
4121: RAISE OKC_API.G_EXCEPTION_ERROR;
4122: END if ;
4123: */
4124:
4125: IF ((l_total_pay_accrued IS NULL ) OR (l_total_pay_accrued = OKC_API.G_MISS_NUM )) THEN
4121: RAISE OKC_API.G_EXCEPTION_ERROR;
4122: END if ;
4123: */
4124:
4125: IF ((l_total_pay_accrued IS NULL ) OR (l_total_pay_accrued = OKC_API.G_MISS_NUM )) THEN
4126: l_total_pay_accrued := 0;
4127: END IF ;
4128:
4129: IF ((l_vendor_refund_amount IS NULL ) OR (l_vendor_refund_amount = OKC_API.G_MISS_NUM )) THEN
4125: IF ((l_total_pay_accrued IS NULL ) OR (l_total_pay_accrued = OKC_API.G_MISS_NUM )) THEN
4126: l_total_pay_accrued := 0;
4127: END IF ;
4128:
4129: IF ((l_vendor_refund_amount IS NULL ) OR (l_vendor_refund_amount = OKC_API.G_MISS_NUM )) THEN
4130: l_vendor_refund_amount := 0;
4131: END IF ;
4132: l_adjustment_amount := l_total_paid - l_total_pay_accrued - l_vendor_refund_amount;
4133:
4136: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4137: 'INSURANCE_EXPENSE_ACCRUAL',
4138: l_return_status,
4139: l_strm_type_id_rep);
4140: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
4141: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4142: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id_rep);
4143: FETCH c_total_payment_accrued INTO l_total_pay_accrued_rep;
4144: CLOSE c_total_payment_accrued ;
4142: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id_rep);
4143: FETCH c_total_payment_accrued INTO l_total_pay_accrued_rep;
4144: CLOSE c_total_payment_accrued ;
4145:
4146: IF ((l_total_pay_accrued_rep IS NULL ) OR (l_total_pay_accrued_rep = OKC_API.G_MISS_NUM )) THEN
4147: l_total_pay_accrued_rep := 0;
4148: END IF ;
4149:
4150: IF ((l_vendor_refund_amount IS NULL ) OR (l_vendor_refund_amount = OKC_API.G_MISS_NUM )) THEN
4146: IF ((l_total_pay_accrued_rep IS NULL ) OR (l_total_pay_accrued_rep = OKC_API.G_MISS_NUM )) THEN
4147: l_total_pay_accrued_rep := 0;
4148: END IF ;
4149:
4150: IF ((l_vendor_refund_amount IS NULL ) OR (l_vendor_refund_amount = OKC_API.G_MISS_NUM )) THEN
4151: l_vendor_refund_amount := 0;
4152: END IF ;
4153: l_adjustment_amount_rep := l_total_paid - l_total_pay_accrued_rep - l_vendor_refund_amount;
4154: END IF;
4160: --gboomina Bug 4885759 - Start - Changing the transaction type from Insurance to Accrual
4161: OPEN okl_trx_types ('Accrual', 'US');
4162: FETCH okl_trx_types INTO l_ins_try_id;
4163: IF(okl_trx_types%NOTFOUND) THEN
4164: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4165: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
4166: x_return_status := OKC_API.G_RET_STS_ERROR ;
4167: CLOSE okl_trx_types ;
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4162: FETCH okl_trx_types INTO l_ins_try_id;
4163: IF(okl_trx_types%NOTFOUND) THEN
4164: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4165: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
4166: x_return_status := OKC_API.G_RET_STS_ERROR ;
4167: CLOSE okl_trx_types ;
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF ;
4170: CLOSE okl_trx_types;
4164: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4165: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Accrual');
4166: x_return_status := OKC_API.G_RET_STS_ERROR ;
4167: CLOSE okl_trx_types ;
4168: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: END IF ;
4170: CLOSE okl_trx_types;
4171: --gboomina Bug 4885759 - End
4172: OPEN l_acc_dtls_csr(l_ipyv_rec.KHR_ID );
4171: --gboomina Bug 4885759 - End
4172: OPEN l_acc_dtls_csr(l_ipyv_rec.KHR_ID );
4173: FETCH l_acc_dtls_csr INTO l_ptid;
4174: IF(l_acc_dtls_csr%NOTFOUND) THEN
4175: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4176: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4177: x_return_status := OKC_API.G_RET_STS_ERROR ;
4178: CLOSE l_acc_dtls_csr ;
4179: RAISE OKC_API.G_EXCEPTION_ERROR;
4173: FETCH l_acc_dtls_csr INTO l_ptid;
4174: IF(l_acc_dtls_csr%NOTFOUND) THEN
4175: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4176: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4177: x_return_status := OKC_API.G_RET_STS_ERROR ;
4178: CLOSE l_acc_dtls_csr ;
4179: RAISE OKC_API.G_EXCEPTION_ERROR;
4180: END if ;
4181: CLOSE l_acc_dtls_csr;
4175: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
4176: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
4177: x_return_status := OKC_API.G_RET_STS_ERROR ;
4178: CLOSE l_acc_dtls_csr ;
4179: RAISE OKC_API.G_EXCEPTION_ERROR;
4180: END if ;
4181: CLOSE l_acc_dtls_csr;
4182: BEGIN
4183: OPEN l_contract_currency_csr;
4185: l_currency_conversion_date ;
4186: CLOSE l_contract_currency_csr;
4187: EXCEPTION
4188: WHEN NO_DATA_FOUND THEN
4189: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
4190: x_return_status := OKC_API.G_RET_STS_ERROR;
4191: IF l_contract_currency_csr%ISOPEN THEN
4192: CLOSE l_contract_currency_csr;
4193: END IF;
4186: CLOSE l_contract_currency_csr;
4187: EXCEPTION
4188: WHEN NO_DATA_FOUND THEN
4189: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
4190: x_return_status := OKC_API.G_RET_STS_ERROR;
4191: IF l_contract_currency_csr%ISOPEN THEN
4192: CLOSE l_contract_currency_csr;
4193: END IF;
4194: RAISE OKC_API.G_EXCEPTION_ERROR;
4190: x_return_status := OKC_API.G_RET_STS_ERROR;
4191: IF l_contract_currency_csr%ISOPEN THEN
4192: CLOSE l_contract_currency_csr;
4193: END IF;
4194: RAISE OKC_API.G_EXCEPTION_ERROR;
4195: WHEN OTHERS THEN
4196: IF l_contract_currency_csr%ISOPEN THEN
4197: CLOSE l_contract_currency_csr;
4198: END IF;
4196: IF l_contract_currency_csr%ISOPEN THEN
4197: CLOSE l_contract_currency_csr;
4198: END IF;
4199: -- store SQL error message on message stack for caller
4200: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4201: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4202: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
4204: END;
4198: END IF;
4199: -- store SQL error message on message stack for caller
4200: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4201: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4202: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
4204: END;
4205: IF (l_adjustment_amount <> 0 ) THEN
4206: l_tcnv_rec_in.khr_id := l_ipyv_rec.KHR_ID ;
4199: -- store SQL error message on message stack for caller
4200: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4201: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4202: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
4204: END;
4205: IF (l_adjustment_amount <> 0 ) THEN
4206: l_tcnv_rec_in.khr_id := l_ipyv_rec.KHR_ID ;
4207: l_tcnv_rec_in.try_id := l_ins_try_id;
4229: END;
4230: END IF;
4231: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
4232: p_api_version => l_api_version,
4233: p_init_msg_list => OKC_API.G_FALSE,
4234: x_return_status => x_return_status,
4235: x_msg_count => x_msg_count,
4236: x_msg_data => x_msg_data,
4237: p_tcnv_rec =>l_tcnv_rec_in ,
4244: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4245: END;
4246: END IF;
4247: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4248: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4250: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4251: RAISE OKC_API.G_EXCEPTION_ERROR;
4252: END IF;
4245: END;
4246: END IF;
4247: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4248: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4250: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4251: RAISE OKC_API.G_EXCEPTION_ERROR;
4252: END IF;
4253:
4246: END IF;
4247: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4248: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4250: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4251: RAISE OKC_API.G_EXCEPTION_ERROR;
4252: END IF;
4253:
4254: --smoduga..Bug 4493213 fix..01-aug-2005..start
4247: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4248: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4250: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4251: RAISE OKC_API.G_EXCEPTION_ERROR;
4252: END IF;
4253:
4254: --smoduga..Bug 4493213 fix..01-aug-2005..start
4255: counter := 1;
4274: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4275: 'INSURANCE_EXPENSE_ACCRUAL',
4276: l_return_status,
4277: l_strm_type_id);
4278: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4275: 'INSURANCE_EXPENSE_ACCRUAL',
4276: l_return_status,
4277: l_strm_type_id);
4278: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4283: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: l_return_status,
4277: l_strm_type_id);
4278: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4283: RAISE OKC_API.G_EXCEPTION_ERROR;
4284: END IF;
4277: l_strm_type_id);
4278: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4283: RAISE OKC_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4278: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4283: RAISE OKC_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: -- gboomina Bug 4622198 - Added for Investor Special Accounting Codes - Start
4279: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4282: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
4283: RAISE OKC_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: -- gboomina Bug 4622198 - Added for Investor Special Accounting Codes - Start
4287: get_special_acct_codes(p_khr_id => l_ipyv_rec.KHR_ID,
4342: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
4343: END;
4344: END IF;
4345: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4349: RAISE OKC_API.G_EXCEPTION_ERROR;
4350: END IF;
4343: END;
4344: END IF;
4345: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4349: RAISE OKC_API.G_EXCEPTION_ERROR;
4350: END IF;
4351:
4344: END IF;
4345: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4349: RAISE OKC_API.G_EXCEPTION_ERROR;
4350: END IF;
4351:
4352: END IF ;
4345: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4349: RAISE OKC_API.G_EXCEPTION_ERROR;
4350: END IF;
4351:
4352: END IF ;
4353: END IF;
4360: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4361: 'INSURANCE_EXPENSE_ACCRUAL',
4362: l_return_status,
4363: l_inc_sty_id);
4364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4361: 'INSURANCE_EXPENSE_ACCRUAL',
4362: l_return_status,
4363: l_inc_sty_id);
4364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4369: RAISE OKC_API.G_EXCEPTION_ERROR;
4362: l_return_status,
4363: l_inc_sty_id);
4364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4369: RAISE OKC_API.G_EXCEPTION_ERROR;
4370: END IF;
4363: l_inc_sty_id);
4364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4369: RAISE OKC_API.G_EXCEPTION_ERROR;
4370: END IF;
4371:
4364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4369: RAISE OKC_API.G_EXCEPTION_ERROR;
4370: END IF;
4371:
4372: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_ipyv_rec.CANCELLATION_DATE);
4365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
4369: RAISE OKC_API.G_EXCEPTION_ERROR;
4370: END IF;
4371:
4372: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_ipyv_rec.CANCELLATION_DATE);
4373: l_ins_acc_adj := fnd_message.get_string('OKL','OKL_INS_EXP_ACC_ADJ');
4413: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
4414: END;
4415: END IF;
4416: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4420: RAISE OKC_API.G_EXCEPTION_ERROR;
4421: END IF;
4414: END;
4415: END IF;
4416: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4420: RAISE OKC_API.G_EXCEPTION_ERROR;
4421: END IF;
4422:
4415: END IF;
4416: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4420: RAISE OKC_API.G_EXCEPTION_ERROR;
4421: END IF;
4422:
4423: END IF;
4416: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4418: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4420: RAISE OKC_API.G_EXCEPTION_ERROR;
4421: END IF;
4422:
4423: END IF;
4424: --End Bug#5955320
4431: OKL_STREAMS_UTIL.get_primary_stream_type_rep(l_ipyv_rec.khr_id,
4432: 'INSURANCE_EXPENSE_ACCRUAL',
4433: l_return_status,
4434: l_inc_sty_id_rep);
4435: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
4436:
4437: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID(
4438: p_representation_type => 'SECONDARY');
4439: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_ipyv_rec.CANCELLATION_DATE, p_ledger_id => l_sob_id);
4481: BEGIN
4482: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
4483: END;
4484: END IF;
4485: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4487: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4488: RAISE OKC_API.G_EXCEPTION_ERROR;
4489: END IF;
4482: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
4483: END;
4484: END IF;
4485: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4487: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4488: RAISE OKC_API.G_EXCEPTION_ERROR;
4489: END IF;
4490:
4483: END;
4484: END IF;
4485: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4487: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4488: RAISE OKC_API.G_EXCEPTION_ERROR;
4489: END IF;
4490:
4491: END IF;
4484: END IF;
4485: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4487: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4488: RAISE OKC_API.G_EXCEPTION_ERROR;
4489: END IF;
4490:
4491: END IF;
4492:
4496:
4497: -- MGAAP end 7263041
4498:
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4498:
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4507: 'OKC_API.G_RET_STS_ERROR',
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4507: 'OKC_API.G_RET_STS_ERROR',
4508: x_msg_count,
4509: x_msg_data,
4510: '_PROCESS'
4511: );
4537: -- DECLARE Local Variables
4538: ---------------------------
4539: l_api_name CONSTANT VARCHAR2(30) := 'Rebook_Manual_Invoice';
4540: l_api_version NUMBER := 1.0;
4541: l_init_msg_list VARCHAR2(1) := Okc_Api.g_false;
4542: l_return_status VARCHAR2(1);
4543: l_msg_count NUMBER;
4544: l_msg_data VARCHAR2(2000);
4545: l_try_id NUMBER;
4572: l_api_version => l_api_version,
4573: p_api_version => p_api_version,
4574: p_api_type => '_PROCESS',
4575: x_return_status => l_return_status);
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4573: p_api_version => p_api_version,
4574: p_api_type => '_PROCESS',
4575: x_return_status => l_return_status);
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: -- Header level
4574: p_api_type => '_PROCESS',
4575: x_return_status => l_return_status);
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: -- Header level
4582: OPEN l_try_id_cur;
4575: x_return_status => l_return_status);
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: -- Header level
4582: OPEN l_try_id_cur;
4583: FETCH l_try_id_cur INTO l_try_id;
4581: -- Header level
4582: OPEN l_try_id_cur;
4583: FETCH l_try_id_cur INTO l_try_id;
4584: IF(l_try_id_cur %NOTFOUND) THEN
4585: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4586: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Billing');
4587: x_return_status := OKC_API.G_RET_STS_ERROR ;
4588: CLOSE l_try_id_cur ;
4589: RAISE OKC_API.G_EXCEPTION_ERROR;
4583: FETCH l_try_id_cur INTO l_try_id;
4584: IF(l_try_id_cur %NOTFOUND) THEN
4585: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4586: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Billing');
4587: x_return_status := OKC_API.G_RET_STS_ERROR ;
4588: CLOSE l_try_id_cur ;
4589: RAISE OKC_API.G_EXCEPTION_ERROR;
4590: END IF ;
4591:
4585: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4586: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Billing');
4587: x_return_status := OKC_API.G_RET_STS_ERROR ;
4588: CLOSE l_try_id_cur ;
4589: RAISE OKC_API.G_EXCEPTION_ERROR;
4590: END IF ;
4591:
4592: -- Bug 8810880 Start Replace by central billing txn API call
4593: ---- Create Header Record
4652: -- Bug 8810880 End
4653:
4654: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
4655: EXCEPTION
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (
4659: l_api_name,
4660: G_PKG_NAME,
4653:
4654: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
4655: EXCEPTION
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (
4659: l_api_name,
4660: G_PKG_NAME,
4661: 'OKC_API.G_RET_STS_ERROR',
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (
4659: l_api_name,
4660: G_PKG_NAME,
4661: 'OKC_API.G_RET_STS_ERROR',
4662: x_msg_count,
4663: x_msg_data,
4664: '_PROCESS'
4665: );
4662: x_msg_count,
4663: x_msg_data,
4664: '_PROCESS'
4665: );
4666: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4667: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4668: (
4669: l_api_name,
4670: G_PKG_NAME,
4663: x_msg_data,
4664: '_PROCESS'
4665: );
4666: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4667: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4668: (
4669: l_api_name,
4670: G_PKG_NAME,
4671: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4667: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4668: (
4669: l_api_name,
4670: G_PKG_NAME,
4671: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4672: x_msg_count,
4673: x_msg_data,
4674: '_PROCESS'
4675: );
4673: x_msg_data,
4674: '_PROCESS'
4675: );
4676: WHEN OTHERS THEN
4677: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4678: (
4679: l_api_name,
4680: G_PKG_NAME,
4681: 'OTHERS',
4691: ------------------------------------
4692:
4693: PROCEDURE cancel_rebook_policy(
4694: p_api_version IN NUMBER,
4695: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
4696: x_return_status OUT NOCOPY VARCHAR2,
4697: x_msg_count OUT NOCOPY NUMBER,
4698: x_msg_data OUT NOCOPY VARCHAR2,
4699: p_src_trx_id IN NUMBER,
4706: l_lang VARCHAR2(2) := 'US' ;
4707: l_strm_type_id NUMBER ;
4708: l_trx_type NUMBER ;
4709: l_pro_refund_amount NUMBER := 0;
4710: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
4711: l_api_name CONSTANT VARCHAR2(30) := 'cancel_rebook_policy';
4712: l_api_version CONSTANT NUMBER := 1;
4713: ls_check_tpi VARCHAR2(3);
4714: l_strm_refund_id NUMBER ;
4736: -----------------------------------------
4737: -- Begin for cancel_rebook_policy
4738: -----------------------------------------
4739: BEGIN
4740: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4741: G_PKG_NAME,
4742: p_init_msg_list,
4743: l_api_version,
4744: p_api_version,
4743: l_api_version,
4744: p_api_version,
4745: '_PROCESS',
4746: x_return_status);
4747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4748: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4744: p_api_version,
4745: '_PROCESS',
4746: x_return_status);
4747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4748: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4752: --Check for Insurance Policy ID
4745: '_PROCESS',
4746: x_return_status);
4747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4748: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4746: x_return_status);
4747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4748: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4754: x_return_status := OKC_API.G_RET_STS_ERROR;
4749: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4754: x_return_status := OKC_API.G_RET_STS_ERROR;
4755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
4756: RAISE OKC_API.G_EXCEPTION_ERROR;
4757: ELSE
4750: RAISE OKC_API.G_EXCEPTION_ERROR;
4751: END IF;
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4754: x_return_status := OKC_API.G_RET_STS_ERROR;
4755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
4756: RAISE OKC_API.G_EXCEPTION_ERROR;
4757: ELSE
4758: -------------------------------------------------
4751: END IF;
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4754: x_return_status := OKC_API.G_RET_STS_ERROR;
4755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
4756: RAISE OKC_API.G_EXCEPTION_ERROR;
4757: ELSE
4758: -------------------------------------------------
4759: -- Get Insurance contract and line information
4752: --Check for Insurance Policy ID
4753: IF ((p_ipyv_rec.ID IS NULL ) OR (p_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN --[1]
4754: x_return_status := OKC_API.G_RET_STS_ERROR;
4755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
4756: RAISE OKC_API.G_EXCEPTION_ERROR;
4757: ELSE
4758: -------------------------------------------------
4759: -- Get Insurance contract and line information
4760: --------------------------------------------------
4758: -------------------------------------------------
4759: -- Get Insurance contract and line information
4760: --------------------------------------------------
4761: l_ipyv_rec := get_insurance_info(p_ipyv_rec.ID,l_return_status);
4762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4765: RAISE OKC_API.G_EXCEPTION_ERROR;
4766: END IF;
4759: -- Get Insurance contract and line information
4760: --------------------------------------------------
4761: l_ipyv_rec := get_insurance_info(p_ipyv_rec.ID,l_return_status);
4762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4765: RAISE OKC_API.G_EXCEPTION_ERROR;
4766: END IF;
4767: l_ipyv_rec.cancellation_date := p_ipyv_rec.cancellation_date;
4760: --------------------------------------------------
4761: l_ipyv_rec := get_insurance_info(p_ipyv_rec.ID,l_return_status);
4762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4765: RAISE OKC_API.G_EXCEPTION_ERROR;
4766: END IF;
4767: l_ipyv_rec.cancellation_date := p_ipyv_rec.cancellation_date;
4768: END IF; --[1]
4761: l_ipyv_rec := get_insurance_info(p_ipyv_rec.ID,l_return_status);
4762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4765: RAISE OKC_API.G_EXCEPTION_ERROR;
4766: END IF;
4767: l_ipyv_rec.cancellation_date := p_ipyv_rec.cancellation_date;
4768: END IF; --[1]
4769: -----------------------------------------------
4769: -----------------------------------------------
4770: -- Customer Refund
4771: -----------------------------------------------
4772: l_cust_refund_amount := get_cust_refund(l_ipyv_rec,l_return_status);
4773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4776: RAISE OKC_API.G_EXCEPTION_ERROR;
4777: END IF;
4770: -- Customer Refund
4771: -----------------------------------------------
4772: l_cust_refund_amount := get_cust_refund(l_ipyv_rec,l_return_status);
4773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4776: RAISE OKC_API.G_EXCEPTION_ERROR;
4777: END IF;
4778: -----------------------------------------------
4771: -----------------------------------------------
4772: l_cust_refund_amount := get_cust_refund(l_ipyv_rec,l_return_status);
4773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4776: RAISE OKC_API.G_EXCEPTION_ERROR;
4777: END IF;
4778: -----------------------------------------------
4779: -- Start Credit Memo Creation
4772: l_cust_refund_amount := get_cust_refund(l_ipyv_rec,l_return_status);
4773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4776: RAISE OKC_API.G_EXCEPTION_ERROR;
4777: END IF;
4778: -----------------------------------------------
4779: -- Start Credit Memo Creation
4780: -----------------------------------------------
4780: -----------------------------------------------
4781: OPEN okl_trx_types (l_cr_memo, l_lang);
4782: FETCH okl_trx_types INTO l_trx_type;
4783: IF(okl_trx_types%NOTFOUND) THEN
4784: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4785: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,l_cr_memo);
4786: x_return_status := OKC_API.G_RET_STS_ERROR ;
4787: CLOSE okl_trx_types ;
4788: RAISE OKC_API.G_EXCEPTION_ERROR;
4782: FETCH okl_trx_types INTO l_trx_type;
4783: IF(okl_trx_types%NOTFOUND) THEN
4784: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4785: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,l_cr_memo);
4786: x_return_status := OKC_API.G_RET_STS_ERROR ;
4787: CLOSE okl_trx_types ;
4788: RAISE OKC_API.G_EXCEPTION_ERROR;
4789: END IF ;
4790: CLOSE okl_trx_types;
4784: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
4785: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,l_cr_memo);
4786: x_return_status := OKC_API.G_RET_STS_ERROR ;
4787: CLOSE okl_trx_types ;
4788: RAISE OKC_API.G_EXCEPTION_ERROR;
4789: END IF ;
4790: CLOSE okl_trx_types;
4791:
4792: --Added by kthiruva on 17-Oct-2005
4794: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4795: 'INSURANCE_RECEIVABLE',
4796: l_return_status,
4797: l_strm_rcvbl_id);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4795: 'INSURANCE_RECEIVABLE',
4796: l_return_status,
4797: l_strm_rcvbl_id);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4796: l_return_status,
4797: l_strm_rcvbl_id);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4804: END IF;
4797: l_strm_rcvbl_id);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4804: END IF;
4805: --Bug 4667686 - End of Changes
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4804: END IF;
4805: --Bug 4667686 - End of Changes
4806:
4799: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4804: END IF;
4805: --Bug 4667686 - End of Changes
4806:
4807:
4811: OKL_STREAMS_UTIL.get_primary_stream_type(l_ipyv_rec.khr_id,
4812: 'INSURANCE_REFUND',
4813: l_return_status,
4814: l_strm_refund_id);
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4812: 'INSURANCE_REFUND',
4813: l_return_status,
4814: l_strm_refund_id);
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4820: RAISE OKC_API.G_EXCEPTION_ERROR;
4813: l_return_status,
4814: l_strm_refund_id);
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4820: RAISE OKC_API.G_EXCEPTION_ERROR;
4821: END IF;
4814: l_strm_refund_id);
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4820: RAISE OKC_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Call API to create Credit Memo
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4820: RAISE OKC_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Call API to create Credit Memo
4823: -- Start of Debug code generator for on_account_credit_memo
4816: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4819: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
4820: RAISE OKC_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Call API to create Credit Memo
4823: -- Start of Debug code generator for on_account_credit_memo
4824: IF(L_DEBUG_ENABLED='Y') THEN
4852: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call on_account_credit_memo ');
4853: END;
4854: END IF;
4855: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
4856: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4857: x_return_status := l_return_status ;
4858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4860: x_return_status := l_return_status ;
4854: END IF;
4855: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
4856: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4857: x_return_status := l_return_status ;
4858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4860: x_return_status := l_return_status ;
4861: RAISE OKC_API.G_EXCEPTION_ERROR;
4862: END IF;
4855: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
4856: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4857: x_return_status := l_return_status ;
4858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4860: x_return_status := l_return_status ;
4861: RAISE OKC_API.G_EXCEPTION_ERROR;
4862: END IF;
4863: ELSIF(l_cust_refund_amount < 0 )THEN
4857: x_return_status := l_return_status ;
4858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4860: x_return_status := l_return_status ;
4861: RAISE OKC_API.G_EXCEPTION_ERROR;
4862: END IF;
4863: ELSIF(l_cust_refund_amount < 0 )THEN
4864: l_pro_refund_amount := -l_cust_refund_amount; --for making positive invoice amount
4865: -- Start of Debug code generator for Rebook_manual_invoice
4899: ------------------------------------------
4900: --- PAY or clawback from vendor
4901: ------------------------------------------
4902: get_vendor_refund( p_api_version => l_api_version,
4903: p_init_msg_list => OKC_API.G_FALSE,
4904: x_return_status => l_return_status,
4905: x_msg_count => x_msg_count,
4906: x_msg_data => x_msg_data,
4907: p_ipyv_rec => l_ipyv_rec,
4905: x_msg_count => x_msg_count,
4906: x_msg_data => x_msg_data,
4907: p_ipyv_rec => l_ipyv_rec,
4908: pn_refund => l_vendor_refund_amount);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4906: x_msg_data => x_msg_data,
4907: p_ipyv_rec => l_ipyv_rec,
4908: pn_refund => l_vendor_refund_amount);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914:
4907: p_ipyv_rec => l_ipyv_rec,
4908: pn_refund => l_vendor_refund_amount);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914:
4915:
4908: pn_refund => l_vendor_refund_amount);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914:
4915:
4916: ---Inactivate all stream / accounting entries
4915:
4916: ---Inactivate all stream / accounting entries
4917: Inactivate_open_items(
4918: p_api_version => l_api_version,
4919: p_init_msg_list => OKC_API.G_FALSE,
4920: x_return_status => l_return_status,
4921: x_msg_count => x_msg_count,
4922: x_msg_data => x_msg_data,
4923: p_contract_id => l_ipyv_rec.khr_id ,
4922: x_msg_data => x_msg_data,
4923: p_contract_id => l_ipyv_rec.khr_id ,
4924: p_contract_line => l_ipyv_rec.kle_id,
4925: p_policy_status => l_ipyv_rec.iss_code );
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4923: p_contract_id => l_ipyv_rec.khr_id ,
4924: p_contract_line => l_ipyv_rec.kle_id,
4925: p_policy_status => l_ipyv_rec.iss_code );
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- GET contract status
4924: p_contract_line => l_ipyv_rec.kle_id,
4925: p_policy_status => l_ipyv_rec.iss_code );
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- GET contract status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4925: p_policy_status => l_ipyv_rec.iss_code );
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- GET contract status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- GET contract status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4936: RAISE OKC_API.G_EXCEPTION_ERROR;
4937: END IF;
4930: END IF;
4931: -- GET contract status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4936: RAISE OKC_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: IF (l_khr_status = 'ACTIVE' ) THEN
4931: -- GET contract status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4936: RAISE OKC_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: IF (l_khr_status = 'ACTIVE' ) THEN
4939: -- if active, end date contract line and update status
4932: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
4933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4936: RAISE OKC_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: IF (l_khr_status = 'ACTIVE' ) THEN
4939: -- if active, end date contract line and update status
4940: l_clev_rec.ID := l_ipyv_rec.kle_id ;
4943: l_clev_rec.DATE_TERMINATED := l_ipyv_rec.CANCELLATION_DATE;
4944: Okl_Contract_Pub.update_contract_line
4945: (
4946: p_api_version => l_api_version ,
4947: p_init_msg_list => OKC_API.G_FALSE,
4948: x_return_status => l_return_status ,
4949: x_msg_count => x_msg_count,
4950: x_msg_data => x_msg_data ,
4951: p_clev_rec => l_clev_rec ,
4953: p_edit_mode =>'N' ,
4954: x_clev_rec => lx_clev_rec,
4955: x_klev_rec => lx_klev_rec
4956: );
4957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4958: -- Status temp
4959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4961: -- Status temp
4955: x_klev_rec => lx_klev_rec
4956: );
4957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4958: -- Status temp
4959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4961: -- Status temp
4962: RAISE OKC_API.G_EXCEPTION_ERROR;
4963: END IF;
4956: );
4957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4958: -- Status temp
4959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4961: -- Status temp
4962: RAISE OKC_API.G_EXCEPTION_ERROR;
4963: END IF;
4964: ELSE
4958: -- Status temp
4959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4961: -- Status temp
4962: RAISE OKC_API.G_EXCEPTION_ERROR;
4963: END IF;
4964: ELSE
4965:
4966: l_clev_rec.ID := l_ipyv_rec.kle_id ;
4970:
4971: Okl_Contract_Pub.update_contract_line
4972: (
4973: p_api_version => l_api_version ,
4974: p_init_msg_list => OKC_API.G_FALSE,
4975: x_return_status => l_return_status ,
4976: x_msg_count => x_msg_count,
4977: x_msg_data => x_msg_data ,
4978: p_clev_rec => l_clev_rec ,
4979: p_edit_mode =>'N' ,
4980: p_klev_rec => l_klev_rec,
4981: x_clev_rec => lx_clev_rec,
4982: x_klev_rec => lx_klev_rec );
4983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4984: -- Status temp
4985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4987: -- Status temp
4981: x_clev_rec => lx_clev_rec,
4982: x_klev_rec => lx_klev_rec );
4983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4984: -- Status temp
4985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4987: -- Status temp
4988: RAISE OKC_API.G_EXCEPTION_ERROR;
4989: END IF;
4982: x_klev_rec => lx_klev_rec );
4983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4984: -- Status temp
4985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4987: -- Status temp
4988: RAISE OKC_API.G_EXCEPTION_ERROR;
4989: END IF;
4990: END IF;
4984: -- Status temp
4985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4987: -- Status temp
4988: RAISE OKC_API.G_EXCEPTION_ERROR;
4989: END IF;
4990: END IF;
4991: ------------------------------------------
4992: --- Income Adjustment
4991: ------------------------------------------
4992: --- Income Adjustment
4993: ------------------------------------------
4994: rebook_inc_adjustment(p_api_version => l_api_version,
4995: p_init_msg_list =>Okc_Api.G_FALSE,
4996: x_return_status => l_return_status,
4997: x_msg_count =>x_msg_count,
4998: x_msg_data =>x_msg_data,
4999: p_ipyv_rec =>l_ipyv_rec,
5009: ------------------------------------------
5010: --- Expense Adjustment
5011: ------------------------------------------
5012: rebook_exp_adjustment(p_api_version => l_api_version,
5013: p_init_msg_list =>Okc_Api.G_FALSE,
5014: x_return_status => l_return_status,
5015: x_msg_count =>x_msg_count,
5016: x_msg_data =>x_msg_data,
5017: p_ipyv_rec =>l_ipyv_rec,
5033: END;
5034: END IF;
5035: Okl_Ins_Policies_Pub.update_ins_policies(
5036: p_api_version => p_api_version,
5037: p_init_msg_list => OKC_API.G_FALSE,
5038: x_return_status => l_return_status,
5039: x_msg_count => x_msg_count,
5040: x_msg_data => x_msg_data,
5041: p_ipyv_rec => l_ipyv_rec,
5046: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
5047: END;
5048: END IF;
5049: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5053: RAISE OKC_API.G_EXCEPTION_ERROR;
5054: END IF;
5047: END;
5048: END IF;
5049: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5053: RAISE OKC_API.G_EXCEPTION_ERROR;
5054: END IF;
5055: x_return_status := l_return_status;
5048: END IF;
5049: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5053: RAISE OKC_API.G_EXCEPTION_ERROR;
5054: END IF;
5055: x_return_status := l_return_status;
5056: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5049: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5053: RAISE OKC_API.G_EXCEPTION_ERROR;
5054: END IF;
5055: x_return_status := l_return_status;
5056: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5057: EXCEPTION
5052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5053: RAISE OKC_API.G_EXCEPTION_ERROR;
5054: END IF;
5055: x_return_status := l_return_status;
5056: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5057: EXCEPTION
5058: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5060: (
5054: END IF;
5055: x_return_status := l_return_status;
5056: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5057: EXCEPTION
5058: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5060: (
5061: l_api_name,
5062: G_PKG_NAME,
5055: x_return_status := l_return_status;
5056: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5057: EXCEPTION
5058: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5060: (
5061: l_api_name,
5062: G_PKG_NAME,
5063: 'OKC_API.G_RET_STS_ERROR',
5059: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5060: (
5061: l_api_name,
5062: G_PKG_NAME,
5063: 'OKC_API.G_RET_STS_ERROR',
5064: x_msg_count,
5065: x_msg_data,
5066: '_PROCESS'
5067: );
5064: x_msg_count,
5065: x_msg_data,
5066: '_PROCESS'
5067: );
5068: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5069: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5070: (
5071: l_api_name,
5072: G_PKG_NAME,
5065: x_msg_data,
5066: '_PROCESS'
5067: );
5068: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5069: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5070: (
5071: l_api_name,
5072: G_PKG_NAME,
5073: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5069: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5070: (
5071: l_api_name,
5072: G_PKG_NAME,
5073: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5074: x_msg_count,
5075: x_msg_data,
5076: '_PROCESS'
5077: );
5075: x_msg_data,
5076: '_PROCESS'
5077: );
5078: WHEN OTHERS THEN
5079: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5080: (
5081: l_api_name,
5082: G_PKG_NAME,
5083: 'OTHERS',
5091: ------------------------------------------------------------
5092: --Bug#5955320
5093: PROCEDURE cancel_create_policies(
5094: p_api_version IN NUMBER,
5095: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
5096: x_return_status OUT NOCOPY VARCHAR2,
5097: x_msg_count OUT NOCOPY NUMBER,
5098: x_msg_data OUT NOCOPY VARCHAR2,
5099: p_khr_id IN NUMBER,
5375: RETURN(get_rec(px_ipyv_rec, l_row_notfound));
5376: END get_rec;
5377: -- END MARK
5378: BEGIN
5379: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5380: G_PKG_NAME,
5381: p_init_msg_list,
5382: l_api_version,
5383: p_api_version,
5382: l_api_version,
5383: p_api_version,
5384: '_PROCESS',
5385: x_return_status);
5386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_ERROR;
5390: END IF;
5383: p_api_version,
5384: '_PROCESS',
5385: x_return_status);
5386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_ERROR;
5390: END IF;
5391: SAVEPOINT cancel_create;
5384: '_PROCESS',
5385: x_return_status);
5386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_ERROR;
5390: END IF;
5391: SAVEPOINT cancel_create;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5385: x_return_status);
5386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_ERROR;
5390: END IF;
5391: SAVEPOINT cancel_create;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5393: -- Check for contract_id (NULL)
5388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_ERROR;
5390: END IF;
5391: SAVEPOINT cancel_create;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5393: -- Check for contract_id (NULL)
5394: IF ((p_khr_id IS NULL ) OR (p_khr_id = OKC_API.G_MISS_NUM )) THEN
5395: x_return_status := OKC_API.G_RET_STS_ERROR;
5396: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ContractID');
5390: END IF;
5391: SAVEPOINT cancel_create;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5393: -- Check for contract_id (NULL)
5394: IF ((p_khr_id IS NULL ) OR (p_khr_id = OKC_API.G_MISS_NUM )) THEN
5395: x_return_status := OKC_API.G_RET_STS_ERROR;
5396: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ContractID');
5397: ROLLBACK TO cancel_create;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5391: SAVEPOINT cancel_create;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5393: -- Check for contract_id (NULL)
5394: IF ((p_khr_id IS NULL ) OR (p_khr_id = OKC_API.G_MISS_NUM )) THEN
5395: x_return_status := OKC_API.G_RET_STS_ERROR;
5396: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ContractID');
5397: ROLLBACK TO cancel_create;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5399: END IF;
5392: x_ignore_flag := OKC_API.G_FALSE; --3945995
5393: -- Check for contract_id (NULL)
5394: IF ((p_khr_id IS NULL ) OR (p_khr_id = OKC_API.G_MISS_NUM )) THEN
5395: x_return_status := OKC_API.G_RET_STS_ERROR;
5396: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ContractID');
5397: ROLLBACK TO cancel_create;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5399: END IF;
5400: -- Check for Date put SYSDATE if NULL
5394: IF ((p_khr_id IS NULL ) OR (p_khr_id = OKC_API.G_MISS_NUM )) THEN
5395: x_return_status := OKC_API.G_RET_STS_ERROR;
5396: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ContractID');
5397: ROLLBACK TO cancel_create;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5399: END IF;
5400: -- Check for Date put SYSDATE if NULL
5401: IF ((p_cancellation_date IS NULL ) OR (p_cancellation_date = OKC_API.G_MISS_DATE )) THEN
5402: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Cancellation Date');
5397: ROLLBACK TO cancel_create;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5399: END IF;
5400: -- Check for Date put SYSDATE if NULL
5401: IF ((p_cancellation_date IS NULL ) OR (p_cancellation_date = OKC_API.G_MISS_DATE )) THEN
5402: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Cancellation Date');
5403: ROLLBACK TO cancel_create;
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5398: RAISE OKC_API.G_EXCEPTION_ERROR;
5399: END IF;
5400: -- Check for Date put SYSDATE if NULL
5401: IF ((p_cancellation_date IS NULL ) OR (p_cancellation_date = OKC_API.G_MISS_DATE )) THEN
5402: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Cancellation Date');
5403: ROLLBACK TO cancel_create;
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: l_cancellation_date := p_cancellation_date ;
5400: -- Check for Date put SYSDATE if NULL
5401: IF ((p_cancellation_date IS NULL ) OR (p_cancellation_date = OKC_API.G_MISS_DATE )) THEN
5402: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Cancellation Date');
5403: ROLLBACK TO cancel_create;
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: l_cancellation_date := p_cancellation_date ;
5407: OPEN c_okl_ins_policies(p_khr_id);
5408: FETCH c_okl_ins_policies INTO l_ipyv_rec.ID, l_ipyv_rec.IPY_TYPE,
5408: FETCH c_okl_ins_policies INTO l_ipyv_rec.ID, l_ipyv_rec.IPY_TYPE,
5409: l_ipyv_rec.ISS_CODE ;
5410:
5411: CLOSE c_okl_ins_policies;
5412: IF (l_ipyv_rec.IPY_TYPE IS NULL) OR (l_ipyv_rec.IPY_TYPE = OKC_API.G_MISS_CHAR) THEN
5413: NULL;
5414: ELSIF( l_ipyv_rec.IPY_TYPE <> 'THIRD_PARTY_POLICY' AND
5415: l_ipyv_rec.IPY_TYPE <> 'OPTIONAL_POLICY')THEN
5416: IF (p_crx_code IS NOT NULL) OR (p_crx_code <> OKC_API.G_MISS_CHAR ) THEN
5412: IF (l_ipyv_rec.IPY_TYPE IS NULL) OR (l_ipyv_rec.IPY_TYPE = OKC_API.G_MISS_CHAR) THEN
5413: NULL;
5414: ELSIF( l_ipyv_rec.IPY_TYPE <> 'THIRD_PARTY_POLICY' AND
5415: l_ipyv_rec.IPY_TYPE <> 'OPTIONAL_POLICY')THEN
5416: IF (p_crx_code IS NOT NULL) OR (p_crx_code <> OKC_API.G_MISS_CHAR ) THEN
5417: l_ipyv_rec.crx_code := p_crx_code;--'ASSET_TERMINATION' ;
5418: END IF;
5419: l_ipyv_rec.cancellation_date := p_cancellation_date;
5420: l_iss_code := l_ipyv_rec.ISS_CODE ;
5426: -- Call function validate_cancel_plicy
5427: --++ Added as part of fix for bug 4056603 ++--
5428: cancel_rebook_policy(
5429: p_api_version => l_api_version,
5430: p_init_msg_list => OKC_API.G_FALSE,
5431: x_return_status => l_return_status,
5432: x_msg_count => x_msg_count,
5433: x_msg_data => x_msg_data,
5434: p_src_trx_id => p_transaction_id,
5438: l_delipyv_rec := get_rec(l_ipyv_rec);
5439: l_delipyv_rec.cancellation_date := l_cancellation_date;
5440: delete_policy(
5441: p_api_version => l_api_version,
5442: p_init_msg_list => OKC_API.G_FALSE,
5443: x_return_status => l_return_status,
5444: x_msg_count => x_msg_count,
5445: x_msg_data => x_msg_data,
5446: p_ipyv_rec => l_delipyv_rec,
5445: x_msg_data => x_msg_data,
5446: p_ipyv_rec => l_delipyv_rec,
5447: x_ipyv_rec => lx_ipyv_rec);
5448: END IF;
5449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5450: ROLLBACK TO cancel_create;
5451: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5452: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5453: ROLLBACK TO cancel_create;
5447: x_ipyv_rec => lx_ipyv_rec);
5448: END IF;
5449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5450: ROLLBACK TO cancel_create;
5451: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5452: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5453: ROLLBACK TO cancel_create;
5454: RAISE OKC_API.G_EXCEPTION_ERROR;
5455: END IF;
5448: END IF;
5449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5450: ROLLBACK TO cancel_create;
5451: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5452: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5453: ROLLBACK TO cancel_create;
5454: RAISE OKC_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[1]
5450: ROLLBACK TO cancel_create;
5451: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5452: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5453: ROLLBACK TO cancel_create;
5454: RAISE OKC_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[1]
5457: SAVEPOINT save_quote; -- 3945995
5458: --** CANCELLED OLD POLICIES SUCCESSFULLY **--
5452: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5453: ROLLBACK TO cancel_create;
5454: RAISE OKC_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[1]
5457: SAVEPOINT save_quote; -- 3945995
5458: --** CANCELLED OLD POLICIES SUCCESSFULLY **--
5459: --** STARTING QUOTE PROCESS FOR NEW POLICIES **--
5460: --****
5533: END;
5534: END IF;
5535: okl_ins_quote_pub.save_quote(
5536: p_api_version => l_api_version,
5537: p_init_msg_list => Okc_Api.G_TRUE ,
5538: x_return_status => l_return_status,
5539: x_msg_count => l_msg_count,
5540: x_msg_data => l_msg_data,
5541: px_ipyv_rec => lx_ipyv_newrec,
5545: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.save_quote ');
5546: END;
5547: END IF;
5548: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.save_quote
5549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5550: ROLLBACK TO save_quote;
5551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5553: ROLLBACK TO save_quote;
5547: END IF;
5548: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.save_quote
5549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5550: ROLLBACK TO save_quote;
5551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5553: ROLLBACK TO save_quote;
5554: RAISE OKC_API.G_EXCEPTION_ERROR;
5555: END IF;
5548: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.save_quote
5549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5550: ROLLBACK TO save_quote;
5551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5553: ROLLBACK TO save_quote;
5554: RAISE OKC_API.G_EXCEPTION_ERROR;
5555: END IF;
5556: l_inq_id := lx_ipyv_newrec.id;
5550: ROLLBACK TO save_quote;
5551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5553: ROLLBACK TO save_quote;
5554: RAISE OKC_API.G_EXCEPTION_ERROR;
5555: END IF;
5556: l_inq_id := lx_ipyv_newrec.id;
5557: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[2]
5558: SAVEPOINT accept_quote; -- 3945995
5553: ROLLBACK TO save_quote;
5554: RAISE OKC_API.G_EXCEPTION_ERROR;
5555: END IF;
5556: l_inq_id := lx_ipyv_newrec.id;
5557: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[2]
5558: SAVEPOINT accept_quote; -- 3945995
5559: --** ACCEPT quote **--
5560: lx_ipyv_newrec.adjustment := 0;
5561: -- Start of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5565: END;
5566: END IF;
5567: okl_ins_quote_pub.accept_quote(
5568: p_api_version => l_api_version,
5569: p_init_msg_list => Okc_Api.G_TRUE ,
5570: x_return_status => l_return_status,
5571: x_msg_count => l_msg_count,
5572: x_msg_data => l_msg_data,
5573: p_quote_id => lx_ipyv_newrec.ID
5577: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.accept_quote ');
5578: END;
5579: END IF;
5580: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5582: ROLLBACK TO accept_quote; -- 3945995
5583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5585: ROLLBACK TO accept_quote; -- 3945995
5579: END IF;
5580: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5582: ROLLBACK TO accept_quote; -- 3945995
5583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5585: ROLLBACK TO accept_quote; -- 3945995
5586: RAISE OKC_API.G_EXCEPTION_ERROR;
5587: END IF;
5580: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5582: ROLLBACK TO accept_quote; -- 3945995
5583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5585: ROLLBACK TO accept_quote; -- 3945995
5586: RAISE OKC_API.G_EXCEPTION_ERROR;
5587: END IF;
5588: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[3]
5582: ROLLBACK TO accept_quote; -- 3945995
5583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5585: ROLLBACK TO accept_quote; -- 3945995
5586: RAISE OKC_API.G_EXCEPTION_ERROR;
5587: END IF;
5588: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[3]
5589: SAVEPOINT policy_activate; -- 3945995
5590: --** CHECK for contract status **--
5584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5585: ROLLBACK TO accept_quote; -- 3945995
5586: RAISE OKC_API.G_EXCEPTION_ERROR;
5587: END IF;
5588: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN --[3]
5589: SAVEPOINT policy_activate; -- 3945995
5590: --** CHECK for contract status **--
5591: OPEN okc_k_status_csr(p_khr_id);
5592: FETCH okc_k_status_csr INTO l_contract_status ;
5597: );
5598: IF okc_k_status_csr%ISOPEN THEN
5599: CLOSE okc_k_status_csr;
5600: END IF;
5601: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5602: x_return_status := OKC_API.G_RET_STS_ERROR;
5603: ROLLBACK TO policy_activate; -- 3945995
5604: RAISE OKC_API.G_EXCEPTION_ERROR;
5605: END IF;
5598: IF okc_k_status_csr%ISOPEN THEN
5599: CLOSE okc_k_status_csr;
5600: END IF;
5601: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5602: x_return_status := OKC_API.G_RET_STS_ERROR;
5603: ROLLBACK TO policy_activate; -- 3945995
5604: RAISE OKC_API.G_EXCEPTION_ERROR;
5605: END IF;
5606: CLOSE okc_k_status_csr;
5600: END IF;
5601: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5602: x_return_status := OKC_API.G_RET_STS_ERROR;
5603: ROLLBACK TO policy_activate; -- 3945995
5604: RAISE OKC_API.G_EXCEPTION_ERROR;
5605: END IF;
5606: CLOSE okc_k_status_csr;
5607: --** Get Policy ID for the Quote Created above **--
5608: OPEN c_okl_ins_quote(p_khr_id,l_inq_id);
5616: );
5617: IF c_okl_ins_quote%ISOPEN THEN
5618: CLOSE c_okl_ins_quote;
5619: END IF;
5620: x_return_status := OKC_API.G_RET_STS_ERROR;
5621: ROLLBACK TO policy_activate; -- 3945995
5622: RAISE OKC_API.G_EXCEPTION_ERROR;
5623: END IF;
5624: */
5618: CLOSE c_okl_ins_quote;
5619: END IF;
5620: x_return_status := OKC_API.G_RET_STS_ERROR;
5621: ROLLBACK TO policy_activate; -- 3945995
5622: RAISE OKC_API.G_EXCEPTION_ERROR;
5623: END IF;
5624: */
5625: IF (L_iss_code = 'ACTIVE' ) THEN --[5]
5626: IF (l_contract_status = 'ACTIVE') THEN --[4]
5631: END;
5632: END IF;
5633: okl_ins_quote_pub.activate_ins_policy(
5634: p_api_version => l_api_version ,
5635: p_init_msg_list => Okc_Api.G_TRUE,
5636: x_return_status => l_return_status,
5637: x_msg_count => l_msg_count,
5638: x_msg_data => l_msg_data,
5639: p_ins_policy_id => l_ipy_id );
5642: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.activate_ins_policy ');
5643: END;
5644: END IF;
5645: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.activate_ins_policy
5646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5647: ROLLBACK TO policy_activate; -- 3945995
5648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5650: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5644: END IF;
5645: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.activate_ins_policy
5646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5647: ROLLBACK TO policy_activate; -- 3945995
5648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5650: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5651: ROLLBACK TO policy_activate; -- 3945995
5652: RAISE OKC_API.G_EXCEPTION_ERROR;
5645: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.activate_ins_policy
5646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5647: ROLLBACK TO policy_activate; -- 3945995
5648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5650: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5651: ROLLBACK TO policy_activate; -- 3945995
5652: RAISE OKC_API.G_EXCEPTION_ERROR;
5653: END IF;
5646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5647: ROLLBACK TO policy_activate; -- 3945995
5648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5650: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5651: ROLLBACK TO policy_activate; -- 3945995
5652: RAISE OKC_API.G_EXCEPTION_ERROR;
5653: END IF;
5654: END IF ; --[5]
5648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5650: x_ignore_flag := okc_api.G_TRUE; -- 3945995
5651: ROLLBACK TO policy_activate; -- 3945995
5652: RAISE OKC_API.G_EXCEPTION_ERROR;
5653: END IF;
5654: END IF ; --[5]
5655: END IF;--[4]
5656: END IF; --[3]
5657: END IF; --[2]
5658: END IF; --[1]
5659: END IF; -- validate cancel policy
5660: END IF;
5661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5662: EXCEPTION
5663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5664: -- 3945995 begin
5665: IF (x_ignore_flag = Okc_Api.G_TRUE)THEN
5659: END IF; -- validate cancel policy
5660: END IF;
5661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5662: EXCEPTION
5663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5664: -- 3945995 begin
5665: IF (x_ignore_flag = Okc_Api.G_TRUE)THEN
5666: x_return_status := l_return_status;
5667: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
5661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5662: EXCEPTION
5663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5664: -- 3945995 begin
5665: IF (x_ignore_flag = Okc_Api.G_TRUE)THEN
5666: x_return_status := l_return_status;
5667: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
5668: ELSE -- 3945995 END
5669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5664: -- 3945995 begin
5665: IF (x_ignore_flag = Okc_Api.G_TRUE)THEN
5666: x_return_status := l_return_status;
5667: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
5668: ELSE -- 3945995 END
5669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5670: (
5671: l_api_name,
5665: IF (x_ignore_flag = Okc_Api.G_TRUE)THEN
5666: x_return_status := l_return_status;
5667: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
5668: ELSE -- 3945995 END
5669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5670: (
5671: l_api_name,
5672: G_PKG_NAME,
5673: 'OKC_API.G_RET_STS_ERROR',
5669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5670: (
5671: l_api_name,
5672: G_PKG_NAME,
5673: 'OKC_API.G_RET_STS_ERROR',
5674: x_msg_count,
5675: x_msg_data,
5676: '_PROCESS'
5677: );
5675: x_msg_data,
5676: '_PROCESS'
5677: );
5678: END IF; -- 3945995
5679: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5680: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5681: (
5682: l_api_name,
5683: G_PKG_NAME,
5676: '_PROCESS'
5677: );
5678: END IF; -- 3945995
5679: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5680: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5681: (
5682: l_api_name,
5683: G_PKG_NAME,
5684: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5680: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5681: (
5682: l_api_name,
5683: G_PKG_NAME,
5684: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5685: x_msg_count,
5686: x_msg_data,
5687: '_PROCESS'
5688: );
5696: -- smoduga created 06-Sep-04
5697: -------------------------------------------------------------------------
5698: PROCEDURE check_claims(
5699: p_api_version IN NUMBER,
5700: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
5701: x_return_status OUT NOCOPY VARCHAR2,
5702: x_msg_count OUT NOCOPY NUMBER,
5703: x_msg_data OUT NOCOPY VARCHAR2,
5704: x_clm_exist OUT NOCOPY VARCHAR2,
5704: x_clm_exist OUT NOCOPY VARCHAR2,
5705: p_khr_id IN NUMBER,
5706: p_trx_date IN DATE
5707: ) IS
5708: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5709: l_claim_id NUMBER;
5710: l_claim_date DATE;
5711: l_contract_number VARCHAR2(120);
5712: l_api_name CONSTANT VARCHAR2(30) := 'check_claims';
5733:
5734: chk_claims_rec chk_claims%ROWTYPE;
5735:
5736: BEGIN
5737: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5738: G_PKG_NAME,
5739: p_init_msg_list,
5740: l_api_version,
5741: p_api_version,
5740: l_api_version,
5741: p_api_version,
5742: '_PROCESS',
5743: x_return_status);
5744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5746: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_ERROR;
5748: END IF;
5741: p_api_version,
5742: '_PROCESS',
5743: x_return_status);
5744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5746: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_ERROR;
5748: END IF;
5749: -- Check if ther are any claims open for this contract
5742: '_PROCESS',
5743: x_return_status);
5744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5746: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_ERROR;
5748: END IF;
5749: -- Check if ther are any claims open for this contract
5750: -- at the time of raising the termination quote
5743: x_return_status);
5744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5746: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_ERROR;
5748: END IF;
5749: -- Check if ther are any claims open for this contract
5750: -- at the time of raising the termination quote
5751: OPEN chk_claims (p_khr_id,p_trx_date);
5756: CLOSE chk_claims;
5757:
5758: IF ( x_clm_exist = 'Y' ) Then
5759:
5760: l_return_status := OKC_API.G_RET_STS_ERROR;
5761:
5762: OPEN get_chr_number(p_khr_id);
5763: FETCH get_chr_number into l_contract_number;
5764: close get_chr_number;
5769: 'CLAIM_DATE',l_claim_date);
5770:
5771: END LOOP;
5772:
5773: RAISE OKC_API.G_EXCEPTION_ERROR;
5774: ELSE
5775: x_clm_exist := 'N' ;
5776: END IF;
5777:
5776: END IF;
5777:
5778: x_return_status := l_return_status;
5779:
5780: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5781:
5782: EXCEPTION
5783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5784:
5779:
5780: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5781:
5782: EXCEPTION
5783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5784:
5785: IF chk_claims%ISOPEN THEN
5786: CLOSE chk_claims;
5787: END IF;
5789: IF get_chr_number%ISOPEN THEN
5790: CLOSE get_chr_number;
5791: END IF;
5792:
5793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5794: (
5795: l_api_name,
5796: G_PKG_NAME,
5797: 'OKC_API.G_RET_STS_ERROR',
5793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5794: (
5795: l_api_name,
5796: G_PKG_NAME,
5797: 'OKC_API.G_RET_STS_ERROR',
5798: x_msg_count,
5799: x_msg_data,
5800: '_PROCESS'
5801: );
5799: x_msg_data,
5800: '_PROCESS'
5801: );
5802:
5803: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5804:
5805: IF chk_claims%ISOPEN THEN
5806: CLOSE chk_claims;
5807: END IF;
5809: IF get_chr_number%ISOPEN THEN
5810: CLOSE get_chr_number;
5811: END IF;
5812:
5813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5814: (
5815: l_api_name,
5816: G_PKG_NAME,
5817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5814: (
5815: l_api_name,
5816: G_PKG_NAME,
5817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5818: x_msg_count,
5819: x_msg_data,
5820: '_PROCESS'
5821: );
5829: IF get_chr_number%ISOPEN THEN
5830: CLOSE get_chr_number;
5831: END IF;
5832:
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5834: (
5835: l_api_name,
5836: G_PKG_NAME,
5837: 'OTHERS',
5846:
5847:
5848: PROCEDURE cancel_policy(
5849: p_api_version IN NUMBER,
5850: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
5851: x_return_status OUT NOCOPY VARCHAR2,
5852: x_msg_count OUT NOCOPY NUMBER,
5853: x_msg_data OUT NOCOPY VARCHAR2,
5854: p_ipyv_rec IN ipyv_rec_type,
6042:
6043:
6044: BEGIN
6045: l_ipyv_rec := p_ipyv_rec ;
6046: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6047: G_PKG_NAME,
6048: p_init_msg_list,
6049: l_api_version,
6050: p_api_version,
6049: l_api_version,
6050: p_api_version,
6051: '_PROCESS',
6052: x_return_status);
6053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6050: p_api_version,
6051: '_PROCESS',
6052: x_return_status);
6053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6058:
6051: '_PROCESS',
6052: x_return_status);
6053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6052: x_return_status);
6053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6060: x_return_status := OKC_API.G_RET_STS_ERROR;
6055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6060: x_return_status := OKC_API.G_RET_STS_ERROR;
6061: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
6062: RAISE OKC_API.G_EXCEPTION_ERROR;
6063: ELSE
6056: RAISE OKC_API.G_EXCEPTION_ERROR;
6057: END IF;
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6060: x_return_status := OKC_API.G_RET_STS_ERROR;
6061: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
6062: RAISE OKC_API.G_EXCEPTION_ERROR;
6063: ELSE
6064: -- Check for TPI
6057: END IF;
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6060: x_return_status := OKC_API.G_RET_STS_ERROR;
6061: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
6062: RAISE OKC_API.G_EXCEPTION_ERROR;
6063: ELSE
6064: -- Check for TPI
6065: -- Added covered amount for bug 4701170
6058:
6059: IF ((l_ipyv_rec.ID IS NULL ) OR (l_ipyv_rec.ID = OKC_API.G_MISS_NUM )) THEN
6060: x_return_status := OKC_API.G_RET_STS_ERROR;
6061: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy ID');
6062: RAISE OKC_API.G_EXCEPTION_ERROR;
6063: ELSE
6064: -- Check for TPI
6065: -- Added covered amount for bug 4701170
6066: OPEN c_ins_info(p_ipyv_rec.ID);
6067: FETCH c_ins_info INTO l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID
6068: ,l_ipyv_rec.OBJECT_VERSION_NUMBER, l_ipyv_rec.date_from, l_ipyv_rec.ipy_type,
6069: l_ipyv_rec.FACTOR_CODE, l_ipyv_rec.covered_amount;
6070: IF(c_ins_info%NOTFOUND) THEN
6071: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
6072: x_return_status := OKC_API.G_RET_STS_ERROR ;
6073: CLOSE c_ins_info ;
6074: RAISE OKC_API.G_EXCEPTION_ERROR;
6075: END if ;
6068: ,l_ipyv_rec.OBJECT_VERSION_NUMBER, l_ipyv_rec.date_from, l_ipyv_rec.ipy_type,
6069: l_ipyv_rec.FACTOR_CODE, l_ipyv_rec.covered_amount;
6070: IF(c_ins_info%NOTFOUND) THEN
6071: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
6072: x_return_status := OKC_API.G_RET_STS_ERROR ;
6073: CLOSE c_ins_info ;
6074: RAISE OKC_API.G_EXCEPTION_ERROR;
6075: END if ;
6076: CLOSE c_ins_info ;
6070: IF(c_ins_info%NOTFOUND) THEN
6071: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY );
6072: x_return_status := OKC_API.G_RET_STS_ERROR ;
6073: CLOSE c_ins_info ;
6074: RAISE OKC_API.G_EXCEPTION_ERROR;
6075: END if ;
6076: CLOSE c_ins_info ;
6077: END IF;
6078:
6079:
6080: IF (l_ipyv_rec.CRX_CODE = 'CANCELED_BY_CUSTOMER') THEN
6081: -- GET system profile to check for third party information
6082: ls_check_tpi := fnd_profile.value('OKLINCANCHECKTPI');
6083: IF ((ls_check_tpi IS NULL ) OR (ls_check_tpi = OKC_API.G_MISS_CHAR )) THEN
6084: x_return_status := OKC_API.G_RET_STS_ERROR;
6085: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKL: Cancel policy with proof of third party insurance' );
6086: RAISE OKC_API.G_EXCEPTION_ERROR;
6087: ELSIF (ls_check_tpi = 'YES' )THEN
6080: IF (l_ipyv_rec.CRX_CODE = 'CANCELED_BY_CUSTOMER') THEN
6081: -- GET system profile to check for third party information
6082: ls_check_tpi := fnd_profile.value('OKLINCANCHECKTPI');
6083: IF ((ls_check_tpi IS NULL ) OR (ls_check_tpi = OKC_API.G_MISS_CHAR )) THEN
6084: x_return_status := OKC_API.G_RET_STS_ERROR;
6085: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKL: Cancel policy with proof of third party insurance' );
6086: RAISE OKC_API.G_EXCEPTION_ERROR;
6087: ELSIF (ls_check_tpi = 'YES' )THEN
6088: -- Check for TPI
6081: -- GET system profile to check for third party information
6082: ls_check_tpi := fnd_profile.value('OKLINCANCHECKTPI');
6083: IF ((ls_check_tpi IS NULL ) OR (ls_check_tpi = OKC_API.G_MISS_CHAR )) THEN
6084: x_return_status := OKC_API.G_RET_STS_ERROR;
6085: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKL: Cancel policy with proof of third party insurance' );
6086: RAISE OKC_API.G_EXCEPTION_ERROR;
6087: ELSIF (ls_check_tpi = 'YES' )THEN
6088: -- Check for TPI
6089: OPEN c_okl_third_party(p_ipyv_rec.KHR_ID , p_ipyv_rec.cancellation_date);
6082: ls_check_tpi := fnd_profile.value('OKLINCANCHECKTPI');
6083: IF ((ls_check_tpi IS NULL ) OR (ls_check_tpi = OKC_API.G_MISS_CHAR )) THEN
6084: x_return_status := OKC_API.G_RET_STS_ERROR;
6085: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKL: Cancel policy with proof of third party insurance' );
6086: RAISE OKC_API.G_EXCEPTION_ERROR;
6087: ELSIF (ls_check_tpi = 'YES' )THEN
6088: -- Check for TPI
6089: OPEN c_okl_third_party(p_ipyv_rec.KHR_ID , p_ipyv_rec.cancellation_date);
6090: FETCH c_okl_third_party INTO l_id;
6088: -- Check for TPI
6089: OPEN c_okl_third_party(p_ipyv_rec.KHR_ID , p_ipyv_rec.cancellation_date);
6090: FETCH c_okl_third_party INTO l_id;
6091: IF(c_okl_third_party%NOTFOUND) THEN
6092: Okc_Api.set_message(G_APP_NAME, G_NO_THIRD_PARTY,
6093: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,p_ipyv_rec.KHR_ID);
6094: x_return_status := OKC_API.G_RET_STS_ERROR ;
6095: CLOSE c_okl_third_party ;
6096: RAISE OKC_API.G_EXCEPTION_ERROR;
6090: FETCH c_okl_third_party INTO l_id;
6091: IF(c_okl_third_party%NOTFOUND) THEN
6092: Okc_Api.set_message(G_APP_NAME, G_NO_THIRD_PARTY,
6093: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,p_ipyv_rec.KHR_ID);
6094: x_return_status := OKC_API.G_RET_STS_ERROR ;
6095: CLOSE c_okl_third_party ;
6096: RAISE OKC_API.G_EXCEPTION_ERROR;
6097: END if ;
6098: CLOSE c_okl_third_party ;
6092: Okc_Api.set_message(G_APP_NAME, G_NO_THIRD_PARTY,
6093: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,p_ipyv_rec.KHR_ID);
6094: x_return_status := OKC_API.G_RET_STS_ERROR ;
6095: CLOSE c_okl_third_party ;
6096: RAISE OKC_API.G_EXCEPTION_ERROR;
6097: END if ;
6098: CLOSE c_okl_third_party ;
6099: END IF;
6100: END IF;
6111: 'INSURANCE_RECEIVABLE',
6112: l_return_status,
6113: l_strm_type_id);
6114:
6115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6112: l_return_status,
6113: l_strm_type_id);
6114:
6115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6120: RAISE OKC_API.G_EXCEPTION_ERROR;
6113: l_strm_type_id);
6114:
6115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6120: RAISE OKC_API.G_EXCEPTION_ERROR;
6121: END IF;
6114:
6115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6120: RAISE OKC_API.G_EXCEPTION_ERROR;
6121: END IF;
6122:
6115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6120: RAISE OKC_API.G_EXCEPTION_ERROR;
6121: END IF;
6122:
6123: --smoduga: Bug 4387062 Start:
6116: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6119: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
6120: RAISE OKC_API.G_EXCEPTION_ERROR;
6121: END IF;
6122:
6123: --smoduga: Bug 4387062 Start:
6124: -- addded following assignment as l_rcvbl_strm_type_id contains no value resulting in billing cursor to fetch no records
6133:
6134: IF MONTHS_BETWEEN (l_ipyv_rec.cancellation_date,l_last_billed_date) < l_check_refund_months THEN --[A]
6135: pay_cust_refund(
6136: p_api_version => l_api_version,
6137: p_init_msg_list => OKC_API.G_FALSE,
6138: x_return_status => l_return_status,
6139: x_msg_count => x_msg_count,
6140: x_msg_data => x_msg_data,
6141: p_contract_id => l_ipyv_rec.khr_id ,
6142: p_contract_line => l_ipyv_rec.kle_id ,
6143: p_cancellation_date => l_ipyv_rec.cancellation_date, ---++ Eff Dated Termination
6144: x_refund_amount => l_cust_refund);
6145:
6146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6149: RAISE OKC_API.G_EXCEPTION_ERROR;
6150: END IF;
6143: p_cancellation_date => l_ipyv_rec.cancellation_date, ---++ Eff Dated Termination
6144: x_refund_amount => l_cust_refund);
6145:
6146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6149: RAISE OKC_API.G_EXCEPTION_ERROR;
6150: END IF;
6151:
6144: x_refund_amount => l_cust_refund);
6145:
6146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6149: RAISE OKC_API.G_EXCEPTION_ERROR;
6150: END IF;
6151:
6152: END IF; -- [A] End fix for 3845998
6145:
6146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6149: RAISE OKC_API.G_EXCEPTION_ERROR;
6150: END IF;
6151:
6152: END IF; -- [A] End fix for 3845998
6153:
6154: --- PAY or clawback from vendor
6155:
6156: calc_vendor_clawback(
6157: p_api_version => l_api_version,
6158: p_init_msg_list => OKC_API.G_FALSE,
6159: x_return_status => l_return_status,
6160: x_msg_count => x_msg_count,
6161: x_msg_data => x_msg_data,
6162: p_ipyv_rec => l_ipyv_rec ,
6162: p_ipyv_rec => l_ipyv_rec ,
6163: x_ipyv_rec => x_ipyv_rec ,
6164: x_vendor_adjustment => l_vendor_adjustment);
6165:
6166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_ERROR;
6170: END IF;
6163: x_ipyv_rec => x_ipyv_rec ,
6164: x_vendor_adjustment => l_vendor_adjustment);
6165:
6166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_ERROR;
6170: END IF;
6171:
6164: x_vendor_adjustment => l_vendor_adjustment);
6165:
6166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_ERROR;
6170: END IF;
6171:
6172:
6165:
6166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_ERROR;
6170: END IF;
6171:
6172:
6173:
6173:
6174: ---Inactivate all stream / accounting entries
6175: Inactivate_open_items(
6176: p_api_version => l_api_version,
6177: p_init_msg_list => OKC_API.G_FALSE,
6178: x_return_status => l_return_status,
6179: x_msg_count => x_msg_count,
6180: x_msg_data => x_msg_data,
6181: p_contract_id => l_ipyv_rec.khr_id ,
6181: p_contract_id => l_ipyv_rec.khr_id ,
6182: p_contract_line => l_ipyv_rec.kle_id,
6183: p_policy_status => l_ipyv_rec.iss_code );
6184:
6185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6188: RAISE OKC_API.G_EXCEPTION_ERROR;
6189: END IF;
6182: p_contract_line => l_ipyv_rec.kle_id,
6183: p_policy_status => l_ipyv_rec.iss_code );
6184:
6185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6188: RAISE OKC_API.G_EXCEPTION_ERROR;
6189: END IF;
6190: -- GET contract status
6183: p_policy_status => l_ipyv_rec.iss_code );
6184:
6185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6188: RAISE OKC_API.G_EXCEPTION_ERROR;
6189: END IF;
6190: -- GET contract status
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6184:
6185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6188: RAISE OKC_API.G_EXCEPTION_ERROR;
6189: END IF;
6190: -- GET contract status
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6188: RAISE OKC_API.G_EXCEPTION_ERROR;
6189: END IF;
6190: -- GET contract status
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6189: END IF;
6190: -- GET contract status
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6190: -- GET contract status
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6198: IF (l_khr_status = 'ACTIVE' ) THEN
6191: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6198: IF (l_khr_status = 'ACTIVE' ) THEN
6199: -- if active, end date contract line and update status
6206:
6207: Okl_Contract_Pub.update_contract_line
6208: (
6209: p_api_version => l_api_version ,
6210: p_init_msg_list => OKC_API.G_FALSE,
6211: x_return_status => l_return_status ,
6212: x_msg_count => x_msg_count,
6213: x_msg_data => x_msg_data ,
6214: p_clev_rec => l_clev_rec ,
6217: x_clev_rec => lx_clev_rec,
6218: x_klev_rec => lx_klev_rec
6219: );
6220:
6221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6222: -- Status temp
6223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6225:
6219: );
6220:
6221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6222: -- Status temp
6223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6225:
6226: -- Status temp
6227: RAISE OKC_API.G_EXCEPTION_ERROR;
6220:
6221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6222: -- Status temp
6223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6225:
6226: -- Status temp
6227: RAISE OKC_API.G_EXCEPTION_ERROR;
6228: END IF;
6223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6225:
6226: -- Status temp
6227: RAISE OKC_API.G_EXCEPTION_ERROR;
6228: END IF;
6229:
6230: -- contract status is not active
6231: ELSE
6238:
6239: Okl_Contract_Pub.update_contract_line
6240: (
6241: p_api_version => l_api_version ,
6242: p_init_msg_list => OKC_API.G_FALSE,
6243: x_return_status => l_return_status ,
6244: x_msg_count => x_msg_count,
6245: x_msg_data => x_msg_data ,
6246: p_clev_rec => l_clev_rec ,
6248: p_klev_rec => l_klev_rec,
6249: x_clev_rec => lx_clev_rec,
6250: x_klev_rec => lx_klev_rec );
6251:
6252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6253: -- Status temp
6254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6256: -- Status temp
6250: x_klev_rec => lx_klev_rec );
6251:
6252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6253: -- Status temp
6254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6256: -- Status temp
6257: RAISE OKC_API.G_EXCEPTION_ERROR;
6258: END IF;
6251:
6252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6253: -- Status temp
6254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6256: -- Status temp
6257: RAISE OKC_API.G_EXCEPTION_ERROR;
6258: END IF;
6259:
6253: -- Status temp
6254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6256: -- Status temp
6257: RAISE OKC_API.G_EXCEPTION_ERROR;
6258: END IF;
6259:
6260: END IF;
6261:
6266: OPEN c_total_billed(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_rcvbl_strm_type_id);
6267: FETCH c_total_billed INTO l_total_billed;
6268:
6269: IF(c_total_billed%NOTFOUND) THEN
6270: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6271: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6272: x_return_status := OKC_API.G_RET_STS_ERROR ;
6273: CLOSE c_total_billed ;
6274: RAISE OKC_API.G_EXCEPTION_ERROR;
6268:
6269: IF(c_total_billed%NOTFOUND) THEN
6270: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6271: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6272: x_return_status := OKC_API.G_RET_STS_ERROR ;
6273: CLOSE c_total_billed ;
6274: RAISE OKC_API.G_EXCEPTION_ERROR;
6275: END if ;
6276: CLOSE c_total_billed ;
6270: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6271: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6272: x_return_status := OKC_API.G_RET_STS_ERROR ;
6273: CLOSE c_total_billed ;
6274: RAISE OKC_API.G_EXCEPTION_ERROR;
6275: END if ;
6276: CLOSE c_total_billed ;
6277:
6278:
6284: 'INSURANCE_INCOME_ACCRUAL',
6285: l_return_status,
6286: l_strm_type_id);
6287:
6288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6285: l_return_status,
6286: l_strm_type_id);
6287:
6288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6293: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: l_strm_type_id);
6287:
6288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6293: RAISE OKC_API.G_EXCEPTION_ERROR;
6294: END IF;
6287:
6288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6293: RAISE OKC_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6293: RAISE OKC_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6296:
6289: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6292: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6293: RAISE OKC_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6296:
6297: -- stream type id added as additional parameter to the cursor,
6298: -- for user defined streams changes, bug 3924300
6299: OPEN c_total_bill_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
6300: FETCH c_total_bill_accrued INTO l_total_bill_accrued;
6301: IF(c_total_bill_accrued%NOTFOUND) THEN
6302: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6303: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6304: x_return_status := OKC_API.G_RET_STS_ERROR ;
6305: CLOSE c_total_bill_accrued ;
6306: RAISE OKC_API.G_EXCEPTION_ERROR;
6300: FETCH c_total_bill_accrued INTO l_total_bill_accrued;
6301: IF(c_total_bill_accrued%NOTFOUND) THEN
6302: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6303: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6304: x_return_status := OKC_API.G_RET_STS_ERROR ;
6305: CLOSE c_total_bill_accrued ;
6306: RAISE OKC_API.G_EXCEPTION_ERROR;
6307: END if ;
6308: CLOSE c_total_bill_accrued ;
6302: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6303: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6304: x_return_status := OKC_API.G_RET_STS_ERROR ;
6305: CLOSE c_total_bill_accrued ;
6306: RAISE OKC_API.G_EXCEPTION_ERROR;
6307: END if ;
6308: CLOSE c_total_bill_accrued ;
6309: l_adjustment_amount := l_total_billed - l_total_bill_accrued - l_cust_refund ;
6310:
6311:
6312: OPEN okl_trx_types ('Insurance', 'US');
6313: FETCH okl_trx_types INTO l_ins_try_id;
6314: IF(okl_trx_types%NOTFOUND) THEN
6315: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
6316: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Insurance');
6317: x_return_status := OKC_API.G_RET_STS_ERROR ;
6318: CLOSE okl_trx_types ;
6319: RAISE OKC_API.G_EXCEPTION_ERROR;
6313: FETCH okl_trx_types INTO l_ins_try_id;
6314: IF(okl_trx_types%NOTFOUND) THEN
6315: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
6316: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Insurance');
6317: x_return_status := OKC_API.G_RET_STS_ERROR ;
6318: CLOSE okl_trx_types ;
6319: RAISE OKC_API.G_EXCEPTION_ERROR;
6320: END if ;
6321: CLOSE okl_trx_types;
6315: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
6316: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,'Insurance');
6317: x_return_status := OKC_API.G_RET_STS_ERROR ;
6318: CLOSE okl_trx_types ;
6319: RAISE OKC_API.G_EXCEPTION_ERROR;
6320: END if ;
6321: CLOSE okl_trx_types;
6322:
6323: -- GET Product
6323: -- GET Product
6324: OPEN l_acc_dtls_csr(l_ipyv_rec.KHR_ID );
6325: FETCH l_acc_dtls_csr INTO l_ptid;
6326: IF(l_acc_dtls_csr%NOTFOUND) THEN
6327: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6328: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
6329: x_return_status := OKC_API.G_RET_STS_ERROR ;
6330: CLOSE l_acc_dtls_csr ;
6331: RAISE OKC_API.G_EXCEPTION_ERROR;
6325: FETCH l_acc_dtls_csr INTO l_ptid;
6326: IF(l_acc_dtls_csr%NOTFOUND) THEN
6327: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6328: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
6329: x_return_status := OKC_API.G_RET_STS_ERROR ;
6330: CLOSE l_acc_dtls_csr ;
6331: RAISE OKC_API.G_EXCEPTION_ERROR;
6332: END if ;
6333: CLOSE l_acc_dtls_csr;
6327: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6328: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSREFUND');
6329: x_return_status := OKC_API.G_RET_STS_ERROR ;
6330: CLOSE l_acc_dtls_csr ;
6331: RAISE OKC_API.G_EXCEPTION_ERROR;
6332: END if ;
6333: CLOSE l_acc_dtls_csr;
6334:
6335:
6340: l_currency_conversion_date ;
6341: CLOSE l_contract_currency_csr;
6342: EXCEPTION
6343: WHEN NO_DATA_FOUND THEN
6344: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
6345: x_return_status := OKC_API.G_RET_STS_ERROR;
6346: IF l_contract_currency_csr%ISOPEN THEN
6347: CLOSE l_contract_currency_csr;
6348: END IF;
6341: CLOSE l_contract_currency_csr;
6342: EXCEPTION
6343: WHEN NO_DATA_FOUND THEN
6344: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,p_ipyv_rec.khr_id );
6345: x_return_status := OKC_API.G_RET_STS_ERROR;
6346: IF l_contract_currency_csr%ISOPEN THEN
6347: CLOSE l_contract_currency_csr;
6348: END IF;
6349: RAISE OKC_API.G_EXCEPTION_ERROR;
6345: x_return_status := OKC_API.G_RET_STS_ERROR;
6346: IF l_contract_currency_csr%ISOPEN THEN
6347: CLOSE l_contract_currency_csr;
6348: END IF;
6349: RAISE OKC_API.G_EXCEPTION_ERROR;
6350: WHEN OTHERS THEN
6351: IF l_contract_currency_csr%ISOPEN THEN
6352: CLOSE l_contract_currency_csr;
6353: END IF;
6351: IF l_contract_currency_csr%ISOPEN THEN
6352: CLOSE l_contract_currency_csr;
6353: END IF;
6354: -- store SQL error message on message stack for caller
6355: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
6356: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6357: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
6358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
6359: END;
6353: END IF;
6354: -- store SQL error message on message stack for caller
6355: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
6356: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6357: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
6358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
6359: END;
6360:
6361:
6354: -- store SQL error message on message stack for caller
6355: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
6356: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6357: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
6358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
6359: END;
6360:
6361:
6362: --- l_curr_code := OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE;
6396: END;
6397: END IF;
6398: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6399: p_api_version => l_api_version,
6400: p_init_msg_list => OKC_API.G_FALSE,
6401: x_return_status => x_return_status,
6402: x_msg_count => x_msg_count,
6403: x_msg_data => x_msg_data,
6404: p_tcnv_rec =>l_tcnv_rec_in ,
6442: */
6443: /* Bug#5955320
6444:
6445:
6446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6449: RAISE OKC_API.G_EXCEPTION_ERROR;
6450: END IF;
6443: /* Bug#5955320
6444:
6445:
6446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6449: RAISE OKC_API.G_EXCEPTION_ERROR;
6450: END IF;
6451: */
6444:
6445:
6446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6449: RAISE OKC_API.G_EXCEPTION_ERROR;
6450: END IF;
6451: */
6452: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE INCOME');
6445:
6446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6449: RAISE OKC_API.G_EXCEPTION_ERROR;
6450: END IF;
6451: */
6452: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE INCOME');
6453: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6451: */
6452: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE INCOME');
6453: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6454: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
6455: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6456: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE INCOME');
6457: x_return_status := OKC_API.G_RET_STS_ERROR ;
6458: CLOSE C_OKL_STRM_TYPE_V ;
6459: RAISE OKC_API.G_EXCEPTION_ERROR;
6453: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6454: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
6455: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6456: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE INCOME');
6457: x_return_status := OKC_API.G_RET_STS_ERROR ;
6458: CLOSE C_OKL_STRM_TYPE_V ;
6459: RAISE OKC_API.G_EXCEPTION_ERROR;
6460: END if ;
6461: CLOSE C_OKL_STRM_TYPE_V;*/
6455: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6456: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE INCOME');
6457: x_return_status := OKC_API.G_RET_STS_ERROR ;
6458: CLOSE C_OKL_STRM_TYPE_V ;
6459: RAISE OKC_API.G_EXCEPTION_ERROR;
6460: END if ;
6461: CLOSE C_OKL_STRM_TYPE_V;*/
6462:
6463: /* Bug#5955320
6467: 'INSURANCE_INCOME_ACCRUAL',
6468: l_return_status,
6469: l_inc_sty_id);
6470:
6471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6468: l_return_status,
6469: l_inc_sty_id);
6470:
6471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6476: RAISE OKC_API.G_EXCEPTION_ERROR;
6469: l_inc_sty_id);
6470:
6471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6476: RAISE OKC_API.G_EXCEPTION_ERROR;
6477: END IF;
6470:
6471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6476: RAISE OKC_API.G_EXCEPTION_ERROR;
6477: END IF;
6478:
6471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6476: RAISE OKC_API.G_EXCEPTION_ERROR;
6477: END IF;
6478:
6479: -- gboomina Bug 4622198 - Added for Investor Special Accounting Codes - Start
6472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6475: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
6476: RAISE OKC_API.G_EXCEPTION_ERROR;
6477: END IF;
6478:
6479: -- gboomina Bug 4622198 - Added for Investor Special Accounting Codes - Start
6480: get_special_acct_codes(p_khr_id => l_ipyv_rec.KHR_ID,
6549: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6550:
6551:
6552:
6553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6556: RAISE OKC_API.G_EXCEPTION_ERROR;
6557: END IF;
6550:
6551:
6552:
6553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6556: RAISE OKC_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: END IF ;
6551:
6552:
6553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6556: RAISE OKC_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: END IF ;
6559:
6552:
6553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6556: RAISE OKC_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: END IF ;
6559:
6560: END IF;
6572: 'INSURANCE_PAYABLE',
6573: l_return_status,
6574: l_strm_type_id);
6575:
6576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6573: l_return_status,
6574: l_strm_type_id);
6575:
6576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6581: RAISE OKC_API.G_EXCEPTION_ERROR;
6574: l_strm_type_id);
6575:
6576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6581: RAISE OKC_API.G_EXCEPTION_ERROR;
6582: END IF;
6575:
6576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6581: RAISE OKC_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: -- cursor opened with additional parameter stream type id,
6576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6581: RAISE OKC_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: -- cursor opened with additional parameter stream type id,
6584: -- changes done for user defined streams, bug 3924300
6577: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6580: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6581: RAISE OKC_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: -- cursor opened with additional parameter stream type id,
6584: -- changes done for user defined streams, bug 3924300
6585:
6585:
6586: OPEN c_total_paid(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
6587: FETCH c_total_paid INTO l_total_paid;
6588: IF(c_total_paid%NOTFOUND) THEN
6589: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6590: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6591: x_return_status := OKC_API.G_RET_STS_ERROR ;
6592: CLOSE c_total_paid ;
6593: RAISE OKC_API.G_EXCEPTION_ERROR;
6587: FETCH c_total_paid INTO l_total_paid;
6588: IF(c_total_paid%NOTFOUND) THEN
6589: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6590: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6591: x_return_status := OKC_API.G_RET_STS_ERROR ;
6592: CLOSE c_total_paid ;
6593: RAISE OKC_API.G_EXCEPTION_ERROR;
6594: END if ;
6595: CLOSE c_total_paid ;
6589: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6590: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6591: x_return_status := OKC_API.G_RET_STS_ERROR ;
6592: CLOSE c_total_paid ;
6593: RAISE OKC_API.G_EXCEPTION_ERROR;
6594: END if ;
6595: CLOSE c_total_paid ;
6596:
6597: /* Bug#5955320
6601: 'INSURANCE_EXPENSE_ACCRUAL',
6602: l_return_status,
6603: l_strm_type_id);
6604:
6605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6602: l_return_status,
6603: l_strm_type_id);
6604:
6605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6610: RAISE OKC_API.G_EXCEPTION_ERROR;
6603: l_strm_type_id);
6604:
6605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6610: RAISE OKC_API.G_EXCEPTION_ERROR;
6611: END IF;
6604:
6605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6610: RAISE OKC_API.G_EXCEPTION_ERROR;
6611: END IF;
6612:
6605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6610: RAISE OKC_API.G_EXCEPTION_ERROR;
6611: END IF;
6612:
6613:
6606: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6609: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6610: RAISE OKC_API.G_EXCEPTION_ERROR;
6611: END IF;
6612:
6613:
6614: -- additional parameter stream type id added to the cursor call
6616:
6617: OPEN c_total_payment_accrued(l_ipyv_rec.KHR_ID , l_ipyv_rec.KLE_ID,l_strm_type_id);
6618: FETCH c_total_payment_accrued INTO l_total_pay_accrued;
6619: IF(c_total_payment_accrued%NOTFOUND) THEN
6620: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6621: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6622: x_return_status := OKC_API.G_RET_STS_ERROR ;
6623: CLOSE c_total_payment_accrued ;
6624: RAISE OKC_API.G_EXCEPTION_ERROR;
6618: FETCH c_total_payment_accrued INTO l_total_pay_accrued;
6619: IF(c_total_payment_accrued%NOTFOUND) THEN
6620: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6621: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6622: x_return_status := OKC_API.G_RET_STS_ERROR ;
6623: CLOSE c_total_payment_accrued ;
6624: RAISE OKC_API.G_EXCEPTION_ERROR;
6625: END if ;
6626: CLOSE c_total_payment_accrued ;
6620: Okc_Api.set_message(G_APP_NAME, G_INVALID_CONTRACT,
6621: G_COL_NAME_TOKEN,'Contract ID',G_COL_VALUE_TOKEN,l_ipyv_rec.KHR_ID);
6622: x_return_status := OKC_API.G_RET_STS_ERROR ;
6623: CLOSE c_total_payment_accrued ;
6624: RAISE OKC_API.G_EXCEPTION_ERROR;
6625: END if ;
6626: CLOSE c_total_payment_accrued ;
6627:
6628: l_adjustment_amount := l_total_paid- l_vendor_adjustment- l_total_pay_accrued;
6656: END;
6657: END IF;
6658: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6659: p_api_version => l_api_version,
6660: p_init_msg_list => OKC_API.G_FALSE,
6661: x_return_status => x_return_status,
6662: x_msg_count => x_msg_count,
6663: x_msg_data => x_msg_data,
6664: p_tcnv_rec =>l_tcnv_rec_in ,
6673: END IF;
6674: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6675:
6676:
6677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6680: RAISE OKC_API.G_EXCEPTION_ERROR;
6681: END IF;
6674: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6675:
6676:
6677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6680: RAISE OKC_API.G_EXCEPTION_ERROR;
6681: END IF;
6682: */
6675:
6676:
6677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6680: RAISE OKC_API.G_EXCEPTION_ERROR;
6681: END IF;
6682: */
6683: /* OPEN C_OKL_STRM_TYPE_V('INSURANCE EXPENSE');
6676:
6677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6680: RAISE OKC_API.G_EXCEPTION_ERROR;
6681: END IF;
6682: */
6683: /* OPEN C_OKL_STRM_TYPE_V('INSURANCE EXPENSE');
6684: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6682: */
6683: /* OPEN C_OKL_STRM_TYPE_V('INSURANCE EXPENSE');
6684: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6685: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
6686: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6687: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE EXPENSE');
6688: x_return_status := OKC_API.G_RET_STS_ERROR ;
6689: CLOSE C_OKL_STRM_TYPE_V ;
6690: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: FETCH C_OKL_STRM_TYPE_V INTO l_inc_sty_id;
6685: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
6686: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6687: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE EXPENSE');
6688: x_return_status := OKC_API.G_RET_STS_ERROR ;
6689: CLOSE C_OKL_STRM_TYPE_V ;
6690: RAISE OKC_API.G_EXCEPTION_ERROR;
6691: END if ;
6692: CLOSE C_OKL_STRM_TYPE_V;*/
6686: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
6687: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE EXPENSE');
6688: x_return_status := OKC_API.G_RET_STS_ERROR ;
6689: CLOSE C_OKL_STRM_TYPE_V ;
6690: RAISE OKC_API.G_EXCEPTION_ERROR;
6691: END if ;
6692: CLOSE C_OKL_STRM_TYPE_V;*/
6693:
6694: /* Bug#5955320
6699: 'INSURANCE_EXPENSE_ACCRUAL',
6700: l_return_status,
6701: l_inc_sty_id);
6702:
6703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6704: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6700: l_return_status,
6701: l_inc_sty_id);
6702:
6703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6704: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6708:
6701: l_inc_sty_id);
6702:
6703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6704: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6708:
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6702:
6703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6704: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6708:
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6704: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6708:
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6711:
6705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6706: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6707: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
6708:
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6711:
6712:
6713: -- Populate Records for Accounting Call.
6766: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6767:
6768:
6769:
6770: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6771: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6772: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6773: RAISE OKC_API.G_EXCEPTION_ERROR;
6774: END IF;
6767:
6768:
6769:
6770: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6771: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6772: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6773: RAISE OKC_API.G_EXCEPTION_ERROR;
6774: END IF;
6775:
6768:
6769:
6770: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6771: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6772: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6773: RAISE OKC_API.G_EXCEPTION_ERROR;
6774: END IF;
6775:
6776: END IF ;
6769:
6770: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6771: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6772: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6773: RAISE OKC_API.G_EXCEPTION_ERROR;
6774: END IF;
6775:
6776: END IF ;
6777:
6791: END;
6792: END IF;
6793: Okl_Ins_Policies_Pub.update_ins_policies(
6794: p_api_version => p_api_version,
6795: p_init_msg_list => OKC_API.G_FALSE,
6796: x_return_status => l_return_status,
6797: x_msg_count => x_msg_count,
6798: x_msg_data => x_msg_data,
6799: p_ipyv_rec => l_ipyv_rec,
6806: END;
6807: END IF;
6808: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6809:
6810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6813: RAISE OKC_API.G_EXCEPTION_ERROR;
6814: END IF;
6807: END IF;
6808: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6809:
6810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6813: RAISE OKC_API.G_EXCEPTION_ERROR;
6814: END IF;
6815:
6808: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6809:
6810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6813: RAISE OKC_API.G_EXCEPTION_ERROR;
6814: END IF;
6815:
6816: -- Notify Vendor
6809:
6810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6813: RAISE OKC_API.G_EXCEPTION_ERROR;
6814: END IF;
6815:
6816: -- Notify Vendor
6817: -- To be implemented
6823: -- END IF;
6824: -- gboomina start - Bug 4728636
6825: OKL_BILLING_CONTROLLER_PVT.track_next_bill_date ( p_ipyv_rec.khr_id );
6826: -- gboomina end - Bug 4728636
6827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6828: EXCEPTION
6829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6831: (
6825: OKL_BILLING_CONTROLLER_PVT.track_next_bill_date ( p_ipyv_rec.khr_id );
6826: -- gboomina end - Bug 4728636
6827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6828: EXCEPTION
6829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6831: (
6832: l_api_name,
6833: G_PKG_NAME,
6826: -- gboomina end - Bug 4728636
6827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6828: EXCEPTION
6829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6831: (
6832: l_api_name,
6833: G_PKG_NAME,
6834: 'OKC_API.G_RET_STS_ERROR',
6830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6831: (
6832: l_api_name,
6833: G_PKG_NAME,
6834: 'OKC_API.G_RET_STS_ERROR',
6835: x_msg_count,
6836: x_msg_data,
6837: '_PROCESS'
6838: );
6835: x_msg_count,
6836: x_msg_data,
6837: '_PROCESS'
6838: );
6839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6841: (
6842: l_api_name,
6843: G_PKG_NAME,
6836: x_msg_data,
6837: '_PROCESS'
6838: );
6839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6841: (
6842: l_api_name,
6843: G_PKG_NAME,
6844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6841: (
6842: l_api_name,
6843: G_PKG_NAME,
6844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6845: x_msg_count,
6846: x_msg_data,
6847: '_PROCESS'
6848: );
6846: x_msg_data,
6847: '_PROCESS'
6848: );
6849: WHEN OTHERS THEN
6850: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6851: (
6852: l_api_name,
6853: G_PKG_NAME,
6854: 'OTHERS',
6860:
6861:
6862: PROCEDURE get_refund(
6863: p_api_version IN NUMBER,
6864: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
6865: x_return_status OUT NOCOPY VARCHAR2,
6866: x_msg_count OUT NOCOPY NUMBER,
6867: x_msg_data OUT NOCOPY VARCHAR2,
6868: p_policy_id IN NUMBER,
6884: WHERE ID = p_policy_id;
6885:
6886: BEGIN
6887:
6888: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6889: G_PKG_NAME,
6890: p_init_msg_list,
6891: l_api_version,
6892: p_api_version,
6891: l_api_version,
6892: p_api_version,
6893: '_PROCESS',
6894: x_return_status);
6895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6898: RAISE OKC_API.G_EXCEPTION_ERROR;
6899: END IF;
6892: p_api_version,
6893: '_PROCESS',
6894: x_return_status);
6895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6898: RAISE OKC_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6893: '_PROCESS',
6894: x_return_status);
6895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6898: RAISE OKC_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6901: OPEN okl_ipy_rec(p_policy_id);
6894: x_return_status);
6895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6898: RAISE OKC_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6901: OPEN okl_ipy_rec(p_policy_id);
6902: FETCH okl_ipy_rec INTO l_contract_id, l_contract_line;
6900:
6901: OPEN okl_ipy_rec(p_policy_id);
6902: FETCH okl_ipy_rec INTO l_contract_id, l_contract_line;
6903: IF(okl_ipy_rec%NOTFOUND) THEN
6904: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
6905: G_COL_NAME_TOKEN,'Policy ID',G_COL_VALUE_TOKEN,p_policy_id);
6906: x_return_status := OKC_API.G_RET_STS_ERROR ;
6907: CLOSE okl_ipy_rec ;
6908: RAISE OKC_API.G_EXCEPTION_ERROR;
6902: FETCH okl_ipy_rec INTO l_contract_id, l_contract_line;
6903: IF(okl_ipy_rec%NOTFOUND) THEN
6904: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
6905: G_COL_NAME_TOKEN,'Policy ID',G_COL_VALUE_TOKEN,p_policy_id);
6906: x_return_status := OKC_API.G_RET_STS_ERROR ;
6907: CLOSE okl_ipy_rec ;
6908: RAISE OKC_API.G_EXCEPTION_ERROR;
6909: END if ;
6910: CLOSE okl_ipy_rec ;
6904: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
6905: G_COL_NAME_TOKEN,'Policy ID',G_COL_VALUE_TOKEN,p_policy_id);
6906: x_return_status := OKC_API.G_RET_STS_ERROR ;
6907: CLOSE okl_ipy_rec ;
6908: RAISE OKC_API.G_EXCEPTION_ERROR;
6909: END if ;
6910: CLOSE okl_ipy_rec ;
6911: -- Start of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6912: IF(L_DEBUG_ENABLED='Y') THEN
6925: l_params(2).value := to_char(p_crx_code);
6926: --++ Effective Dated Termination ++----
6927:
6928: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => l_api_version,
6929: p_init_msg_list => OKC_API.G_FALSE,
6930: x_return_status => x_return_status,
6931: x_msg_count => x_msg_count,
6932: x_msg_data => x_msg_data,
6933: p_formula_name => G_FORMULA_REFUND_CALC,
6940: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_EXECUTE_FORMULA_PUB.EXECUTE ');
6941: END;
6942: END IF;
6943: -- End of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6944: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6946: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_ERROR;
6948: END IF;
6941: END;
6942: END IF;
6943: -- End of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6944: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6946: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_ERROR;
6948: END IF;
6949:
6942: END IF;
6943: -- End of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6944: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6946: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_ERROR;
6948: END IF;
6949:
6950:
6943: -- End of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6944: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6946: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_ERROR;
6948: END IF;
6949:
6950:
6951: EXCEPTION
6948: END IF;
6949:
6950:
6951: EXCEPTION
6952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6954: (
6955: l_api_name,
6956: G_PKG_NAME,
6949:
6950:
6951: EXCEPTION
6952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6954: (
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OKC_API.G_RET_STS_ERROR',
6953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6954: (
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OKC_API.G_RET_STS_ERROR',
6958: x_msg_count,
6959: x_msg_data,
6960: '_PROCESS'
6961: );
6958: x_msg_count,
6959: x_msg_data,
6960: '_PROCESS'
6961: );
6962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6963: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6964: (
6965: l_api_name,
6966: G_PKG_NAME,
6959: x_msg_data,
6960: '_PROCESS'
6961: );
6962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6963: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6964: (
6965: l_api_name,
6966: G_PKG_NAME,
6967: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6963: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6964: (
6965: l_api_name,
6966: G_PKG_NAME,
6967: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6968: x_msg_count,
6969: x_msg_data,
6970: '_PROCESS'
6971: );
6969: x_msg_data,
6970: '_PROCESS'
6971: );
6972: WHEN OTHERS THEN
6973: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6974: (
6975: l_api_name,
6976: G_PKG_NAME,
6977: 'OTHERS',
6982: END get_refund;
6983:
6984: PROCEDURE pay_cust_refund(
6985: p_api_version IN NUMBER,
6986: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
6987: x_return_status OUT NOCOPY VARCHAR2,
6988: x_msg_count OUT NOCOPY NUMBER,
6989: x_msg_data OUT NOCOPY VARCHAR2,
6990: p_contract_id IN NUMBER,
6998: l_contract_id NUMBER;
6999: l_contract_line NUMBER;
7000: l_api_name CONSTANT VARCHAR2(30) := 'pay_cust_refund';
7001: l_api_version CONSTANT NUMBER := 1;
7002: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS ;
7003: l_policy_id NUMBER ;
7004: l_refund_amount NUMBER;
7005: l_strm_type_id NUMBER ;
7006: l_amount NUMBER;
7032: AND LANGUAGE = 'US';
7033:
7034:
7035: BEGIN
7036: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7037: G_PKG_NAME,
7038: p_init_msg_list,
7039: l_api_version,
7040: p_api_version,
7039: l_api_version,
7040: p_api_version,
7041: '_PROCESS',
7042: x_return_status);
7043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7046: RAISE OKC_API.G_EXCEPTION_ERROR;
7047: END IF;
7040: p_api_version,
7041: '_PROCESS',
7042: x_return_status);
7043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7046: RAISE OKC_API.G_EXCEPTION_ERROR;
7047: END IF;
7048:
7041: '_PROCESS',
7042: x_return_status);
7043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7046: RAISE OKC_API.G_EXCEPTION_ERROR;
7047: END IF;
7048:
7049:
7042: x_return_status);
7043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7046: RAISE OKC_API.G_EXCEPTION_ERROR;
7047: END IF;
7048:
7049:
7050: -- GET REFUND
7052: --1. get Policy id
7053: OPEN okl_ins_policy_id(p_contract_line);
7054: FETCH okl_ins_policy_id INTO l_policy_id;
7055: IF(okl_ins_policy_id%NOTFOUND) THEN
7056: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
7057: G_COL_NAME_TOKEN,'Contract Line ID',G_COL_VALUE_TOKEN,p_contract_line);
7058: x_return_status := OKC_API.G_RET_STS_ERROR ;
7059: CLOSE okl_ins_policy_id ;
7060: RAISE OKC_API.G_EXCEPTION_ERROR;
7054: FETCH okl_ins_policy_id INTO l_policy_id;
7055: IF(okl_ins_policy_id%NOTFOUND) THEN
7056: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
7057: G_COL_NAME_TOKEN,'Contract Line ID',G_COL_VALUE_TOKEN,p_contract_line);
7058: x_return_status := OKC_API.G_RET_STS_ERROR ;
7059: CLOSE okl_ins_policy_id ;
7060: RAISE OKC_API.G_EXCEPTION_ERROR;
7061: END if ;
7062: CLOSE okl_ins_policy_id ;
7056: Okc_Api.set_message(G_APP_NAME, G_INVALID_POLICY,
7057: G_COL_NAME_TOKEN,'Contract Line ID',G_COL_VALUE_TOKEN,p_contract_line);
7058: x_return_status := OKC_API.G_RET_STS_ERROR ;
7059: CLOSE okl_ins_policy_id ;
7060: RAISE OKC_API.G_EXCEPTION_ERROR;
7061: END if ;
7062: CLOSE okl_ins_policy_id ;
7063: --2.
7064:
7063: --2.
7064:
7065: get_refund(
7066: p_api_version => l_api_version,
7067: p_init_msg_list =>Okc_Api.G_FALSE,
7068: x_return_status => l_return_status,
7069: x_msg_count =>x_msg_count,
7070: x_msg_data =>x_msg_data,
7071: p_policy_id => l_policy_id,
7072: p_cancellation_date => p_cancellation_Date,
7073: p_crx_code => p_crx_code,
7074: x_refund_amount => l_refund_amount );
7075:
7076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7077: x_return_status := l_return_status ; --bug 3923601
7078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7080: x_return_status := l_return_status ; --bug 3923601
7074: x_refund_amount => l_refund_amount );
7075:
7076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7077: x_return_status := l_return_status ; --bug 3923601
7078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7080: x_return_status := l_return_status ; --bug 3923601
7081: RAISE OKC_API.G_EXCEPTION_ERROR;
7082: END IF;
7075:
7076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7077: x_return_status := l_return_status ; --bug 3923601
7078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7080: x_return_status := l_return_status ; --bug 3923601
7081: RAISE OKC_API.G_EXCEPTION_ERROR;
7082: END IF;
7083: x_refund_amount := l_refund_amount ;
7077: x_return_status := l_return_status ; --bug 3923601
7078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7080: x_return_status := l_return_status ; --bug 3923601
7081: RAISE OKC_API.G_EXCEPTION_ERROR;
7082: END IF;
7083: x_refund_amount := l_refund_amount ;
7084:
7085:
7088:
7089: OPEN okl_trx_types (p_name, p_lang);
7090: FETCH okl_trx_types INTO l_trx_type;
7091: IF(okl_trx_types%NOTFOUND) THEN
7092: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
7093: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
7094: x_return_status := OKC_API.G_RET_STS_ERROR ;
7095: CLOSE okl_trx_types ;
7096: RAISE OKC_API.G_EXCEPTION_ERROR;
7090: FETCH okl_trx_types INTO l_trx_type;
7091: IF(okl_trx_types%NOTFOUND) THEN
7092: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
7093: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
7094: x_return_status := OKC_API.G_RET_STS_ERROR ;
7095: CLOSE okl_trx_types ;
7096: RAISE OKC_API.G_EXCEPTION_ERROR;
7097: END if ;
7098: CLOSE okl_trx_types;
7092: Okc_Api.set_message(G_APP_NAME, G_NO_TRX,
7093: G_COL_NAME_TOKEN,'Transaction Type',G_COL_VALUE_TOKEN,p_name);
7094: x_return_status := OKC_API.G_RET_STS_ERROR ;
7095: CLOSE okl_trx_types ;
7096: RAISE OKC_API.G_EXCEPTION_ERROR;
7097: END if ;
7098: CLOSE okl_trx_types;
7099: END;
7100:
7106:
7107: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE RECEIVABLE');
7108: FETCH C_OKL_STRM_TYPE_V INTO l_strm_type_id;
7109: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
7110: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7111: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
7112: x_return_status := OKC_API.G_RET_STS_ERROR ;
7113: CLOSE C_OKL_STRM_TYPE_V ;
7114: RAISE OKC_API.G_EXCEPTION_ERROR;
7108: FETCH C_OKL_STRM_TYPE_V INTO l_strm_type_id;
7109: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
7110: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7111: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
7112: x_return_status := OKC_API.G_RET_STS_ERROR ;
7113: CLOSE C_OKL_STRM_TYPE_V ;
7114: RAISE OKC_API.G_EXCEPTION_ERROR;
7115: END if ;
7116: CLOSE C_OKL_STRM_TYPE_V;*/
7110: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7111: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE RECEIVABLE');
7112: x_return_status := OKC_API.G_RET_STS_ERROR ;
7113: CLOSE C_OKL_STRM_TYPE_V ;
7114: RAISE OKC_API.G_EXCEPTION_ERROR;
7115: END if ;
7116: CLOSE C_OKL_STRM_TYPE_V;*/
7117: -- cursor fetch replaced with the procedure call to get the stream type id,
7118: -- changes done for user defined streams, bug 3924300
7121: 'INSURANCE_RECEIVABLE',
7122: l_return_status,
7123: l_strm_type_id);
7124:
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7122: l_return_status,
7123: l_strm_type_id);
7124:
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7130: RAISE OKC_API.G_EXCEPTION_ERROR;
7123: l_strm_type_id);
7124:
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7130: RAISE OKC_API.G_EXCEPTION_ERROR;
7131: END IF;
7124:
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7130: RAISE OKC_API.G_EXCEPTION_ERROR;
7131: END IF;
7132:
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7130: RAISE OKC_API.G_EXCEPTION_ERROR;
7131: END IF;
7132:
7133:
7126: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7129: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
7130: RAISE OKC_API.G_EXCEPTION_ERROR;
7131: END IF;
7132:
7133:
7134:
7137:
7138: /*OPEN C_OKL_STRM_TYPE_V('INSURANCE REFUND');
7139: FETCH C_OKL_STRM_TYPE_V INTO l_strm_refund_id;
7140: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
7141: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7142: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
7143: x_return_status := OKC_API.G_RET_STS_ERROR ;
7144: CLOSE C_OKL_STRM_TYPE_V ;
7145: RAISE OKC_API.G_EXCEPTION_ERROR;
7139: FETCH C_OKL_STRM_TYPE_V INTO l_strm_refund_id;
7140: IF(C_OKL_STRM_TYPE_V%NOTFOUND) THEN
7141: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7142: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
7143: x_return_status := OKC_API.G_RET_STS_ERROR ;
7144: CLOSE C_OKL_STRM_TYPE_V ;
7145: RAISE OKC_API.G_EXCEPTION_ERROR;
7146: END if ;
7147: CLOSE C_OKL_STRM_TYPE_V;*/
7141: Okc_Api.set_message(G_APP_NAME, G_NO_STREAM,
7142: G_COL_NAME_TOKEN,'Stream Type',G_COL_VALUE_TOKEN,'INSURANCE REFUND');
7143: x_return_status := OKC_API.G_RET_STS_ERROR ;
7144: CLOSE C_OKL_STRM_TYPE_V ;
7145: RAISE OKC_API.G_EXCEPTION_ERROR;
7146: END if ;
7147: CLOSE C_OKL_STRM_TYPE_V;*/
7148:
7149: -- call added to get the stream type id,
7153: 'INSURANCE_REFUND',
7154: l_return_status,
7155: l_strm_refund_id);
7156:
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7154: l_return_status,
7155: l_strm_refund_id);
7156:
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7162: RAISE OKC_API.G_EXCEPTION_ERROR;
7155: l_strm_refund_id);
7156:
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7162: RAISE OKC_API.G_EXCEPTION_ERROR;
7163: END IF;
7156:
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7162: RAISE OKC_API.G_EXCEPTION_ERROR;
7163: END IF;
7164:
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7162: RAISE OKC_API.G_EXCEPTION_ERROR;
7163: END IF;
7164:
7165:
7158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_REFUND'); --bug 4024785
7162: RAISE OKC_API.G_EXCEPTION_ERROR;
7163: END IF;
7164:
7165:
7166: END;
7203: END;
7204: END IF;
7205: -- End of wraper code generated automatically by Debug code generator for on_account_credit_memo.
7206:
7207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7208: x_return_status := l_return_status ; --bug 3923601
7209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7211: x_return_status := l_return_status ; --bug 3923601
7205: -- End of wraper code generated automatically by Debug code generator for on_account_credit_memo.
7206:
7207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7208: x_return_status := l_return_status ; --bug 3923601
7209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7211: x_return_status := l_return_status ; --bug 3923601
7212: RAISE OKC_API.G_EXCEPTION_ERROR;
7213: END IF;
7206:
7207: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7208: x_return_status := l_return_status ; --bug 3923601
7209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7211: x_return_status := l_return_status ; --bug 3923601
7212: RAISE OKC_API.G_EXCEPTION_ERROR;
7213: END IF;
7214:
7208: x_return_status := l_return_status ; --bug 3923601
7209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7211: x_return_status := l_return_status ; --bug 3923601
7212: RAISE OKC_API.G_EXCEPTION_ERROR;
7213: END IF;
7214:
7215:
7216: NULL;
7219:
7220:
7221: END IF ;
7222:
7223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7224:
7225: EXCEPTION
7226: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7222:
7223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7224:
7225: EXCEPTION
7226: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7228: (
7229: l_api_name,
7230: G_PKG_NAME,
7223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7224:
7225: EXCEPTION
7226: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7228: (
7229: l_api_name,
7230: G_PKG_NAME,
7231: 'OKC_API.G_RET_STS_ERROR',
7227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7228: (
7229: l_api_name,
7230: G_PKG_NAME,
7231: 'OKC_API.G_RET_STS_ERROR',
7232: x_msg_count,
7233: x_msg_data,
7234: '_PROCESS'
7235: );
7232: x_msg_count,
7233: x_msg_data,
7234: '_PROCESS'
7235: );
7236: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7238: (
7239: l_api_name,
7240: G_PKG_NAME,
7233: x_msg_data,
7234: '_PROCESS'
7235: );
7236: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7238: (
7239: l_api_name,
7240: G_PKG_NAME,
7241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7238: (
7239: l_api_name,
7240: G_PKG_NAME,
7241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7242: x_msg_count,
7243: x_msg_data,
7244: '_PROCESS'
7245: );
7243: x_msg_data,
7244: '_PROCESS'
7245: );
7246: WHEN OTHERS THEN
7247: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7248: (
7249: l_api_name,
7250: G_PKG_NAME,
7251: 'OTHERS',