[Home] [Help]
18: l_sty_id NUMBER;
19:
20: BEGIN
21:
22: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
23:
24: OPEN pry_sty_csr;
25: FETCH pry_sty_csr INTO l_sty_id;
26: IF pry_sty_csr%NOTFOUND THEN
23:
24: OPEN pry_sty_csr;
25: FETCH pry_sty_csr INTO l_sty_id;
26: IF pry_sty_csr%NOTFOUND THEN
27: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
28: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
29: p_token1 => 'PURPOSE',
30: p_token1_value => p_stream_type_purpose);
31: RAISE Okl_Api.G_EXCEPTION_ERROR;
27: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
28: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
29: p_token1 => 'PURPOSE',
30: p_token1_value => p_stream_type_purpose);
31: RAISE Okl_Api.G_EXCEPTION_ERROR;
32: END IF;
33: CLOSE pry_sty_csr;
34:
35: x_sty_id := l_sty_id;
34:
35: x_sty_id := l_sty_id;
36:
37: EXCEPTION
38: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
39: IF pry_sty_csr%ISOPEN THEN
40: CLOSE pry_sty_csr;
41: END IF;
42: x_return_status := Okl_Api.G_RET_STS_ERROR ;
38: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
39: IF pry_sty_csr%ISOPEN THEN
40: CLOSE pry_sty_csr;
41: END IF;
42: x_return_status := Okl_Api.G_RET_STS_ERROR ;
43:
44: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
45: IF pry_sty_csr%ISOPEN THEN
46: CLOSE pry_sty_csr;
40: CLOSE pry_sty_csr;
41: END IF;
42: x_return_status := Okl_Api.G_RET_STS_ERROR ;
43:
44: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
45: IF pry_sty_csr%ISOPEN THEN
46: CLOSE pry_sty_csr;
47: END IF;
48: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
44: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
45: IF pry_sty_csr%ISOPEN THEN
46: CLOSE pry_sty_csr;
47: END IF;
48: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
49:
50: WHEN OTHERS THEN
51: IF pry_sty_csr%ISOPEN THEN
52: CLOSE pry_sty_csr;
50: WHEN OTHERS THEN
51: IF pry_sty_csr%ISOPEN THEN
52: CLOSE pry_sty_csr;
53: END IF;
54: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
55: --DBMS_OUTPUT.PUT_LINE(SQLERRM);
56:
57: END get_stream_id;
58:
66: -- IN Parameters -
67: -- IN Parameters -
68: -- p_rbk_chr_id - contract id of rebook copy contract
69: -- p_orig_chr_id - contract id of original contract
70: -- OUT Parameter x_return_status - will return OKL_API.G_RET_STS_SUCCESS or
71: -- OKL_API.G_RET_STS_ERROR
72: --End of Comments
73: --------------------------------------------------------------------------------
74: Procedure Is_Rebook_Supported (p_rbk_chr_id IN NUMBER,
67: -- IN Parameters -
68: -- p_rbk_chr_id - contract id of rebook copy contract
69: -- p_orig_chr_id - contract id of original contract
70: -- OUT Parameter x_return_status - will return OKL_API.G_RET_STS_SUCCESS or
71: -- OKL_API.G_RET_STS_ERROR
72: --End of Comments
73: --------------------------------------------------------------------------------
74: Procedure Is_Rebook_Supported (p_rbk_chr_id IN NUMBER,
75: p_orig_chr_id IN NUMBER,
74: Procedure Is_Rebook_Supported (p_rbk_chr_id IN NUMBER,
75: p_orig_chr_id IN NUMBER,
76: x_return_status OUT NOCOPY VARCHAR2) is
77:
78: l_return_status varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
79:
80: ------------------------------------------------------
81: --cursor to find any new add-ons added during rebook
82: --asset line already had add-ons and a new one has been
320:
321: l_unsupported_rebook_modfn EXCEPTION;
322:
323: begin
324: x_return_status := OKL_API.G_RET_STS_SUCCESS;
325:
326: l_asset_number := NULL;
327:
328: --1.0 check if new addon has been added
333: NULL;
334: End If;
335: Close l_new_addon_csr;
336:
337: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
338: OKL_API.set_message(
339: p_app_name => G_APP_NAME,
340: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
341: );
334: End If;
335: Close l_new_addon_csr;
336:
337: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
338: OKL_API.set_message(
339: p_app_name => G_APP_NAME,
340: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
341: );
342: raise l_unsupported_rebook_modfn;
352: NULL;
353: End If;
354: Close l_new_addon_csr2;
355:
356: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
357: OKL_API.set_message(
358: p_app_name => G_APP_NAME,
359: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
360: );
353: End If;
354: Close l_new_addon_csr2;
355:
356: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
357: OKL_API.set_message(
358: p_app_name => G_APP_NAME,
359: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
360: );
361: raise l_unsupported_rebook_modfn;
371: NULL;
372: End If;
373: Close l_addon_modfn_csr;
374:
375: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
376: OKL_API.set_message(
377: p_app_name => G_APP_NAME,
378: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
379: );
372: End If;
373: Close l_addon_modfn_csr;
374:
375: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
376: OKL_API.set_message(
377: p_app_name => G_APP_NAME,
378: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
379: );
380: raise l_unsupported_rebook_modfn;
388: NULL;
389: End If;
390: Close l_deleted_Addon_csr;
391:
392: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
393: OKL_API.set_message(
394: p_app_name => G_APP_NAME,
395: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
396: );
389: End If;
390: Close l_deleted_Addon_csr;
391:
392: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
393: OKL_API.set_message(
394: p_app_name => G_APP_NAME,
395: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
396: );
397: raise l_unsupported_rebook_modfn;
406: NULL;
407: End If;
408: Close l_adj_modfn_csr;
409:
410: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
411: OKL_API.set_message(
412: p_app_name => G_APP_NAME,
413: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
414: );
407: End If;
408: Close l_adj_modfn_csr;
409:
410: If nvl(l_asset_number,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
411: OKL_API.set_message(
412: p_app_name => G_APP_NAME,
413: p_msg_name => 'OKL_REBOOK_UNSUPPORTED_MODFN'
414: );
415: raise l_unsupported_rebook_modfn;
431: End If;
432: If l_adj_modfn_csr%ISOPEN then
433: close l_adj_modfn_csr;
434: End If;
435: x_return_status := OKL_API.G_RET_STS_ERROR;
436: When OTHERS then
437: If l_new_addon_csr%ISOPEN then
438: close l_new_addon_csr;
439: End If;
448: End If;
449: If l_adj_modfn_csr%ISOPEN then
450: close l_adj_modfn_csr;
451: End If;
452: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
453:
454: End Is_Rebook_Supported;
455: --Bug# 3310972
456: --------------------------------------------------------------------------------
467: --End of Comments
468: --------------------------------------------------------------------------------
469: Procedure Validate_bill_To(p_chr_id IN Number,
470: x_return_status OUT NOCOPY VARCHAR2) is
471: l_return_status varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
472:
473: --cursor to fetch rule values for customer account and bill to at
474: --contract level and contract line level
475:
506:
507: --Local function to determine whether BTO is active
508: Function is_bto_active(p_bto_id IN Varchar2,
509: p_custacct_id IN Varchar2) return Varchar2 is
510: l_return_status varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
511:
512: --cursor to find BTO status
513: Cursor l_bto_sts_csr(btoid IN NUMBER,
514: custacctid IN NUMBER) is
529:
530:
531: Begin
532: ----
533: l_return_status := OKL_API.G_RET_STS_SUCCESS;
534: l_bto_status := 'I'; -- inactive
535:
536: l_bto_id := to_number(p_bto_id);
537: l_custacct_id := to_number(p_custacct_id);
544: End If;
545: close l_bto_sts_csr;
546:
547: if l_bto_status = 'I' then
548: l_return_status := OKL_API.G_RET_STS_ERROR;
549: end if;
550: Return(l_return_status);
551:
552: exception
553: when others then
554: if l_bto_sts_csr%ISOPEN then
555: close l_bto_sts_csr;
556: end if;
557: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
558: return(l_return_status);
559: end is_bto_active;
560:
561: Begin
559: end is_bto_active;
560:
561: Begin
562: -----
563: l_return_status := OKL_API.G_RET_STS_SUCCESS;
564:
565: --fetch contract customer account at contract header level
566: open l_chrb_csr(ChrId => p_chr_id);
567: Fetch l_chrb_csr into l_bto_id,l_custacct_id;
572:
573: --check if bto is active at contract header level
574: l_return_status := is_bto_active(p_bto_id => l_bto_id,
575: p_custacct_id => l_custacct_id);
576: If l_return_status = OKL_API.G_RET_STS_ERROR then
577: --set error message
578: OKL_API.set_message(
579: p_app_name => G_APP_NAME,
580: p_msg_name => 'OKL_QA_INVALID_BILLTO'
574: l_return_status := is_bto_active(p_bto_id => l_bto_id,
575: p_custacct_id => l_custacct_id);
576: If l_return_status = OKL_API.G_RET_STS_ERROR then
577: --set error message
578: OKL_API.set_message(
579: p_app_name => G_APP_NAME,
580: p_msg_name => 'OKL_QA_INVALID_BILLTO'
581: );
582: Elsif l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
578: OKL_API.set_message(
579: p_app_name => G_APP_NAME,
580: p_msg_name => 'OKL_QA_INVALID_BILLTO'
581: );
582: Elsif l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
583: Null;
584: End If;
585:
586:
583: Null;
584: End If;
585:
586:
587: If l_return_status = OKL_API.G_RET_STS_SUCCESS then
588: --fetch bill to at contract line level
589: open l_cleb_csr(ChrId => p_chr_id);
590: Loop
591: Fetch l_cleb_csr into l_bto_id;
592: Exit when l_cleb_csr%NOTFOUND;
593: --check if bto is active at contract line level
594: l_return_status := is_bto_active(p_bto_id => l_bto_id,
595: p_custacct_id => l_custacct_id);
596: If l_return_status = OKL_API.G_RET_STS_ERROR then
597: --set error message
598: OKL_API.set_message(
599: p_app_name => G_APP_NAME,
600: p_msg_name => 'OKL_QA_INVALID_BILLTO'
594: l_return_status := is_bto_active(p_bto_id => l_bto_id,
595: p_custacct_id => l_custacct_id);
596: If l_return_status = OKL_API.G_RET_STS_ERROR then
597: --set error message
598: OKL_API.set_message(
599: p_app_name => G_APP_NAME,
600: p_msg_name => 'OKL_QA_INVALID_BILLTO'
601: );
602: Exit;
599: p_app_name => G_APP_NAME,
600: p_msg_name => 'OKL_QA_INVALID_BILLTO'
601: );
602: Exit;
603: Elsif l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
604: Exit;
605: End If;
606: End Loop;
607: Close l_cleb_csr;
607: Close l_cleb_csr;
608: End If;
609:
610:
611: If l_return_status = OKL_API.G_RET_STS_SUCCESS then
612: --fetch bill to and cust account at vendor billing setup level
613: open l_cplb_csr(ChrId => p_chr_id);
614: Loop
615: Fetch l_cplb_csr into l_bto_id,l_custacct_id;
617: --check if bto is active at vendor billing setup level
618: If l_bto_id is not null and l_custacct_id is not null then
619: l_return_status := is_bto_active(p_bto_id => l_bto_id,
620: p_custacct_id => l_custacct_id);
621: If l_return_status = OKL_API.G_RET_STS_ERROR then
622: --set error message
623: OKL_API.set_message(
624: p_app_name => G_APP_NAME,
625: p_msg_name => 'OKL_QA_INVALID_BILLTO'
619: l_return_status := is_bto_active(p_bto_id => l_bto_id,
620: p_custacct_id => l_custacct_id);
621: If l_return_status = OKL_API.G_RET_STS_ERROR then
622: --set error message
623: OKL_API.set_message(
624: p_app_name => G_APP_NAME,
625: p_msg_name => 'OKL_QA_INVALID_BILLTO'
626: );
627: Exit;
624: p_app_name => G_APP_NAME,
625: p_msg_name => 'OKL_QA_INVALID_BILLTO'
626: );
627: Exit;
628: Elsif l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
629: Exit;
630: End If;
631: End If;
632: End Loop;
646: If l_cplb_csr%ISOPEN then
647: close l_cplb_csr;
648: End If;
649:
650: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
651: ----
652: End Validate_Bill_To;
653: --Bug# 2953906 end
654:
661: --
662: -- IN Parameters -
663: -- p_rbk_chr_id - contract id of rebook copy contract
664: -- p_orig_chr_id - contract id of original contract
665: -- OUT Parameter x_return_status - will return OKL_API.G_RET_STS_SUCCESS or
666: -- OKL_API.G_RET_STS_ERROR
667: --End of Comments
668: --------------------------------------------------------------------------------
669: PROCEDURE Validate_Rebook_Date
662: -- IN Parameters -
663: -- p_rbk_chr_id - contract id of rebook copy contract
664: -- p_orig_chr_id - contract id of original contract
665: -- OUT Parameter x_return_status - will return OKL_API.G_RET_STS_SUCCESS or
666: -- OKL_API.G_RET_STS_ERROR
667: --End of Comments
668: --------------------------------------------------------------------------------
669: PROCEDURE Validate_Rebook_Date
670: (p_api_version IN NUMBER,
675: p_rbk_chr_id IN NUMBER,
676: p_orig_chr_id IN NUMBER,
677: p_rebook_date IN DATE) IS
678:
679: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
680: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Rebook_Date';
681: l_api_version CONSTANT NUMBER := 1.0;
682:
683: CURSOR chr_csr(p_chr_id NUMBER) IS
718: exit when cle_csr%NOTFOUND;
719:
720: if l_cle_rec.rbk_price_unit <> l_cle_rec.orig_price_unit then
721: close cle_csr;
722: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
723: p_msg_name => 'OKL_LLA_VALIDATE_UNIT_COST_CHG'
724: );
725: RAISE OKL_API.G_EXCEPTION_ERROR;
726: end if;
721: close cle_csr;
722: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
723: p_msg_name => 'OKL_LLA_VALIDATE_UNIT_COST_CHG'
724: );
725: RAISE OKL_API.G_EXCEPTION_ERROR;
726: end if;
727: end loop;
728: close cle_csr;
729: end if;
728: close cle_csr;
729: end if;
730:
731: EXCEPTION
732: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
735: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
736: WHEN OTHERS THEN
729: end if;
730:
731: EXCEPTION
732: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
735: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
736: WHEN OTHERS THEN
737: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
730:
731: EXCEPTION
732: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
735: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
736: WHEN OTHERS THEN
737: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
738: END Validate_Rebook_Date;
731: EXCEPTION
732: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
735: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
736: WHEN OTHERS THEN
737: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
738: END Validate_Rebook_Date;
739: --Bug# 3783518: end
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
735: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
736: WHEN OTHERS THEN
737: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
738: END Validate_Rebook_Date;
739: --Bug# 3783518: end
740:
741: --------------------------------------------------------------------------------
758: x_msg_data OUT NOCOPY VARCHAR2,
759: p_chrv_id IN NUMBER,
760: p_call_mode IN VARCHAR2) IS
761:
762: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
763: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_CONTRACT';
764: l_api_version CONSTANT NUMBER := 1.0;
765:
766: l_cimv_tbl_fa Okl_Activate_Asset_Pub.cimv_tbl_type;
767: l_cimv_tbl_ib Okl_Activate_Ib_Pub.cimv_tbl_type;
768: l_tcnv_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
769: l_service_chr_id Number;
770:
771: l_commit VARCHAR2(1) := Okl_Api.G_FALSE;
772: l_transaction_type VARCHAR2(256) default 'Booking';
773: l_draft_yn VARCHAR2(1) := Okl_Api.G_FALSE;
774:
775: --Bug#2835070
769: l_service_chr_id Number;
770:
771: l_commit VARCHAR2(1) := Okl_Api.G_FALSE;
772: l_transaction_type VARCHAR2(256) default 'Booking';
773: l_draft_yn VARCHAR2(1) := Okl_Api.G_FALSE;
774:
775: --Bug#2835070
776: --cursor to check if the contract is rebooked contract
777: cursor l_chk_rbk_csr(p_chr_id IN NUMBER) is
941: --Bug#2522439 End
942:
943: --Bug#3143522 : Subsidies enhancement
944:
945: l_subsidy_exists varchar2(1) default OKL_API.G_FALSE;
946:
947: -- cursor to find subsidies which have expired (if any)
948: -- sjalasut. modified cursor to remove " and nvl(subb.effective_to_date,sysdate)+nvl(subb.expire_after_days,0) < sysdate "
949: -- from the cursor to make the cursor re-usable for subsidy pools enhancement, also added subsidy_id column
987: and lseb_asst.lty_code = 'FREE_FORM1'
988: and cleb_asst.sts_code <> 'ABANDONED';
989:
990: l_subsidy_rec l_subsidy_csr%ROWTYPE;
991: l_subsidy_valid_status varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
992:
993: -- Start : Bug 6050165 : prasjain
994: --cursor to check subsidy applicability at line dates
995: cursor l_cle_csr (p_subsidy_id in number,
1055: l_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
1056: -- dedey, Bug#4264314
1057:
1058: BEGIN
1059: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1060: -- Call start_activity to create savepoint, check compatibility
1061: -- and initialize message list
1062: l_return_status := Okl_Api.START_ACTIVITY(
1063: p_api_name => l_api_name,
1058: BEGIN
1059: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1060: -- Call start_activity to create savepoint, check compatibility
1061: -- and initialize message list
1062: l_return_status := Okl_Api.START_ACTIVITY(
1063: p_api_name => l_api_name,
1064: p_pkg_name => g_pkg_name,
1065: p_init_msg_list => p_init_msg_list,
1066: l_api_version => l_api_version,
1069: x_return_status => x_return_status);
1070: -- Check if activity started successfully
1071: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1074: RAISE Okc_Api.G_EXCEPTION_ERROR;
1075: END IF;
1076:
1077: okl_debug_pub.logmessage('In Activate_contract: p_chrv_id =' || p_chrv_id);
1125:
1126: IF l_mass_rbk_khr = '!' THEN
1127: --do mass rebook processing
1128: --bug# 3156924 :
1129: IF nvl(l_mass_rbk_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1130: l_mass_rbk_date := sysdate;
1131: End IF;
1132: --Bug# 3156924
1133:
1131: End IF;
1132: --Bug# 3156924
1133:
1134: -- Start : Bug 6050165 : prasjain
1135: l_subsidy_exists := OKL_API.G_FALSE;
1136: okl_subsidy_process_pvt.is_contract_subsidized
1137: (p_api_version => p_api_version,
1138: p_init_msg_list => p_init_msg_list,
1139: x_return_status => x_return_status,
1140: x_msg_count => x_msg_count,
1141: x_msg_data => x_msg_data,
1142: p_chr_id => p_chrv_id,
1143: x_subsidized => l_subsidy_exists);
1144: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1141: x_msg_data => x_msg_data,
1142: p_chr_id => p_chrv_id,
1143: x_subsidized => l_subsidy_exists);
1144: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1142: p_chr_id => p_chrv_id,
1143: x_subsidized => l_subsidy_exists);
1144: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1143: x_subsidized => l_subsidy_exists);
1144: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1151: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1151: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1152: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
1153: LOOP
1154: FETCH l_subsidy_csr INTO l_subsidy_rec;
1147: RAISE Okl_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1151: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1152: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
1153: LOOP
1154: FETCH l_subsidy_csr INTO l_subsidy_rec;
1155: EXIT WHEN l_subsidy_csr%NOTFOUND;
1162: End If;
1163: close l_cle_csr;
1164:
1165: If (l_applicable = 'N') then
1166: Okl_Api.set_message(
1167: p_app_name => G_APP_NAME,
1168: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
1169: p_token1 => 'SUBSIDY_NAME',
1170: p_token1_value => l_subsidy_rec.subsidy_name,
1169: p_token1 => 'SUBSIDY_NAME',
1170: p_token1_value => l_subsidy_rec.subsidy_name,
1171: p_token2 => 'ASSET_NUMBER',
1172: p_token2_value => l_subsidy_rec.asset_number);
1173: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1174: end if;
1175: end loop;
1176: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1177: RAISE Okl_Api.G_EXCEPTION_ERROR;
1172: p_token2_value => l_subsidy_rec.asset_number);
1173: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1174: end if;
1175: end loop;
1176: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1177: RAISE Okl_Api.G_EXCEPTION_ERROR;
1178: end if;
1179: end if;
1180: -- End : Bug 6050165 : prasjain
1173: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1174: end if;
1175: end loop;
1176: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1177: RAISE Okl_Api.G_EXCEPTION_ERROR;
1178: end if;
1179: end if;
1180: -- End : Bug 6050165 : prasjain
1181:
1192: x_msg_count => x_msg_count,
1193: x_msg_data => x_msg_data,
1194: p_rbk_chr_id => p_chrv_id);
1195: --dbms_output.put_line('Gone in for rebook. '||x_return_status);
1196: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1197: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1198: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1199: RAISE Okl_Api.G_EXCEPTION_ERROR;
1200: END IF;
1193: x_msg_data => x_msg_data,
1194: p_rbk_chr_id => p_chrv_id);
1195: --dbms_output.put_line('Gone in for rebook. '||x_return_status);
1196: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1197: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1198: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1199: RAISE Okl_Api.G_EXCEPTION_ERROR;
1200: END IF;
1201:
1194: p_rbk_chr_id => p_chrv_id);
1195: --dbms_output.put_line('Gone in for rebook. '||x_return_status);
1196: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1197: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1198: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1199: RAISE Okl_Api.G_EXCEPTION_ERROR;
1200: END IF;
1201:
1202: -- dedey, Bug#4264314
1195: --dbms_output.put_line('Gone in for rebook. '||x_return_status);
1196: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1197: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1198: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1199: RAISE Okl_Api.G_EXCEPTION_ERROR;
1200: END IF;
1201:
1202: -- dedey, Bug#4264314
1203: OKL_CONTRACT_REBOOK_PVT.create_billing_adjustment(
1210: p_orig_khr_id => p_chrv_id,
1211: p_trx_id => l_mass_rbk_trx_id,
1212: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1213:
1214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1216: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1217: RAISE Okl_Api.G_EXCEPTION_ERROR;
1218: END IF;
1211: p_trx_id => l_mass_rbk_trx_id,
1212: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1213:
1214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1216: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1217: RAISE Okl_Api.G_EXCEPTION_ERROR;
1218: END IF;
1219: -- dedey, Bug#4264314
1212: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1213:
1214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1216: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1217: RAISE Okl_Api.G_EXCEPTION_ERROR;
1218: END IF;
1219: -- dedey, Bug#4264314
1220:
1213:
1214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1216: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1217: RAISE Okl_Api.G_EXCEPTION_ERROR;
1218: END IF;
1219: -- dedey, Bug#4264314
1220:
1221: -- 4542290
1232: --Bug# 3156924
1233: --p_transaction_date => sysdate,
1234: p_transaction_date => l_mass_rbk_date,
1235: p_draft_yn => l_draft_yn,
1236: p_memo_yn => okl_api.g_true,
1237: x_return_status => x_return_status,
1238: x_msg_count => x_msg_count,
1239: x_msg_data => x_msg_data);
1240:
1237: x_return_status => x_return_status,
1238: x_msg_count => x_msg_count,
1239: x_msg_data => x_msg_data);
1240:
1241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1244: RAISE Okl_Api.G_EXCEPTION_ERROR;
1245: END IF;
1238: x_msg_count => x_msg_count,
1239: x_msg_data => x_msg_data);
1240:
1241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1244: RAISE Okl_Api.G_EXCEPTION_ERROR;
1245: END IF;
1246: END IF;
1239: x_msg_data => x_msg_data);
1240:
1241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1244: RAISE Okl_Api.G_EXCEPTION_ERROR;
1245: END IF;
1246: END IF;
1247:
1240:
1241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1244: RAISE Okl_Api.G_EXCEPTION_ERROR;
1245: END IF;
1246: END IF;
1247:
1248: --bug# 2842342
1263: --remove upfront tax call for rebook
1264: /*
1265: okl_la_sales_tax_pvt.process_sales_tax(
1266: p_api_version => p_api_version,
1267: p_init_msg_list => Okl_Api.G_FALSE,
1268: p_commit => Okl_Api.G_FALSE,
1269: p_contract_id => l_orig_khr_id,
1270: p_transaction_type => 'Mass-Rebook',
1271: p_transaction_id => l_mass_rbk_trx_id,
1264: /*
1265: okl_la_sales_tax_pvt.process_sales_tax(
1266: p_api_version => p_api_version,
1267: p_init_msg_list => Okl_Api.G_FALSE,
1268: p_commit => Okl_Api.G_FALSE,
1269: p_contract_id => l_orig_khr_id,
1270: p_transaction_type => 'Mass-Rebook',
1271: p_transaction_id => l_mass_rbk_trx_id,
1272: p_transaction_date => l_mass_rbk_date,
1274: x_return_status => x_return_status,
1275: x_msg_count => x_msg_count,
1276: x_msg_data => x_msg_data);
1277:
1278: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1281: RAISE Okl_Api.G_EXCEPTION_ERROR;
1282: END IF;
1275: x_msg_count => x_msg_count,
1276: x_msg_data => x_msg_data);
1277:
1278: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1281: RAISE Okl_Api.G_EXCEPTION_ERROR;
1282: END IF;
1283: -- Sales Tax Project changes Bug: 4622963 - END
1276: x_msg_data => x_msg_data);
1277:
1278: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1281: RAISE Okl_Api.G_EXCEPTION_ERROR;
1282: END IF;
1283: -- Sales Tax Project changes Bug: 4622963 - END
1284: */
1277:
1278: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1281: RAISE Okl_Api.G_EXCEPTION_ERROR;
1282: END IF;
1283: -- Sales Tax Project changes Bug: 4622963 - END
1284: */
1285: --akrangan end
1298: p_orig_khr_id => p_chrv_id,
1299: p_trx_id => l_mass_rbk_trx_id,
1300: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1301:
1302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1303: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1304: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1305: RAISE Okl_Api.G_EXCEPTION_ERROR;
1306: END IF;
1299: p_trx_id => l_mass_rbk_trx_id,
1300: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1301:
1302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1303: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1304: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1305: RAISE Okl_Api.G_EXCEPTION_ERROR;
1306: END IF;
1307: */
1300: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1301:
1302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1303: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1304: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1305: RAISE Okl_Api.G_EXCEPTION_ERROR;
1306: END IF;
1307: */
1308: -- dedey,Bug#4264314
1301:
1302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1303: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1304: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1305: RAISE Okl_Api.G_EXCEPTION_ERROR;
1306: END IF;
1307: */
1308: -- dedey,Bug#4264314
1309:
1323: p_orig_khr_id => p_chrv_id,
1324: p_trx_id => l_mass_rbk_trx_id,
1325: p_trx_date => l_mass_rbk_date);
1326:
1327: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1330: RAISE Okl_Api.G_EXCEPTION_ERROR;
1331: END IF;
1324: p_trx_id => l_mass_rbk_trx_id,
1325: p_trx_date => l_mass_rbk_date);
1326:
1327: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1330: RAISE Okl_Api.G_EXCEPTION_ERROR;
1331: END IF;
1332: */
1325: p_trx_date => l_mass_rbk_date);
1326:
1327: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1330: RAISE Okl_Api.G_EXCEPTION_ERROR;
1331: END IF;
1332: */
1333:
1326:
1327: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1330: RAISE Okl_Api.G_EXCEPTION_ERROR;
1331: END IF;
1332: */
1333:
1334: --Bug# 4212626
1344: x_return_status => x_return_status,
1345: x_msg_count => x_msg_count,
1346: x_msg_data => x_msg_data);
1347:
1348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okl_Api.G_EXCEPTION_ERROR;
1352: END IF;
1345: x_msg_count => x_msg_count,
1346: x_msg_data => x_msg_data);
1347:
1348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okl_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: */
1346: x_msg_data => x_msg_data);
1347:
1348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okl_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: */
1354:
1347:
1348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okl_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: */
1354:
1355: ELSIF l_rbk_khr = '!' THEN
1359: Is_Rebook_Supported(p_rbk_chr_id => p_chrv_id,
1360: p_orig_chr_id => l_orig_khr_id,
1361: x_return_status => x_return_status);
1362:
1363: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1366: RAISE Okl_Api.G_EXCEPTION_ERROR;
1367: END IF;
1360: p_orig_chr_id => l_orig_khr_id,
1361: x_return_status => x_return_status);
1362:
1363: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1366: RAISE Okl_Api.G_EXCEPTION_ERROR;
1367: END IF;
1368: --Bug#: End.
1361: x_return_status => x_return_status);
1362:
1363: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1366: RAISE Okl_Api.G_EXCEPTION_ERROR;
1367: END IF;
1368: --Bug#: End.
1369:
1362:
1363: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1366: RAISE Okl_Api.G_EXCEPTION_ERROR;
1367: END IF;
1368: --Bug#: End.
1369:
1370: --Bug# 3783518 : Allow update of unit cost only if the
1377: x_msg_data => x_msg_data,
1378: p_rbk_chr_id => p_chrv_id,
1379: p_orig_chr_id => l_orig_khr_id,
1380: p_rebook_date => l_rebook_date);
1381: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1378: p_rbk_chr_id => p_chrv_id,
1379: p_orig_chr_id => l_orig_khr_id,
1380: p_rebook_date => l_rebook_date);
1381: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: --Bug# 3783518: End
1379: p_orig_chr_id => l_orig_khr_id,
1380: p_rebook_date => l_rebook_date);
1381: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: --Bug# 3783518: End
1387:
1380: p_rebook_date => l_rebook_date);
1381: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: --Bug# 3783518: End
1387:
1388: --Start : Bug 6050165 : prasjain
1385: END IF;
1386: --Bug# 3783518: End
1387:
1388: --Start : Bug 6050165 : prasjain
1389: l_subsidy_exists := OKL_API.G_FALSE;
1390: okl_subsidy_process_pvt.is_contract_subsidized
1391: (p_api_version => p_api_version,
1392: p_init_msg_list => p_init_msg_list,
1393: x_return_status => x_return_status,
1394: x_msg_count => x_msg_count,
1395: x_msg_data => x_msg_data,
1396: p_chr_id => p_chrv_id,
1397: x_subsidized => l_subsidy_exists);
1398: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1395: x_msg_data => x_msg_data,
1396: p_chr_id => p_chrv_id,
1397: x_subsidized => l_subsidy_exists);
1398: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1403:
1396: p_chr_id => p_chrv_id,
1397: x_subsidized => l_subsidy_exists);
1398: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1403:
1404: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1397: x_subsidized => l_subsidy_exists);
1398: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1403:
1404: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1405: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1400: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1403:
1404: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1405: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1406: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
1407: LOOP
1408: FETCH l_subsidy_csr INTO l_subsidy_rec;
1401: RAISE Okl_Api.G_EXCEPTION_ERROR;
1402: END IF;
1403:
1404: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1405: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1406: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
1407: LOOP
1408: FETCH l_subsidy_csr INTO l_subsidy_rec;
1409: EXIT WHEN l_subsidy_csr%NOTFOUND;
1416: End If;
1417: close l_cle_csr;
1418:
1419: If (l_applicable = 'N') then
1420: Okl_Api.set_message(
1421: p_app_name => G_APP_NAME,
1422: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
1423: p_token1 => 'SUBSIDY_NAME',
1424: p_token1_value => l_subsidy_rec.subsidy_name,
1423: p_token1 => 'SUBSIDY_NAME',
1424: p_token1_value => l_subsidy_rec.subsidy_name,
1425: p_token2 => 'ASSET_NUMBER',
1426: p_token2_value => l_subsidy_rec.asset_number);
1427: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1428: end if;
1429: end loop;
1430: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1426: p_token2_value => l_subsidy_rec.asset_number);
1427: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1428: end if;
1429: end loop;
1430: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: end if;
1433: end if;
1434: --End : Bug 6050165 : prasjain
1427: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
1428: end if;
1429: end loop;
1430: IF (l_subsidy_valid_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: end if;
1433: end if;
1434: --End : Bug 6050165 : prasjain
1435:
1456: x_return_status => x_return_status,
1457: x_sty_id => l_sty_id
1458: );
1459: IF x_return_status <> 'S' THEN
1460: okl_api.set_message(p_app_name => g_app_name,
1461: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
1462: p_token1 => 'STREAM_NAME',
1463: p_token1_value => 'RENT');
1464: RAISE okl_api.g_exception_error;
1460: okl_api.set_message(p_app_name => g_app_name,
1461: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
1462: p_token1 => 'STREAM_NAME',
1463: p_token1_value => 'RENT');
1464: RAISE okl_api.g_exception_error;
1465: END IF;
1466:
1467: l_max_bill_date := NULL;
1468: OPEN max_bill_date_csr(p_stm_id => l_sty_id );
1486: x_return_status => x_return_status,
1487: x_sty_id => l_sty_id
1488: );
1489: IF x_return_status <> 'S' THEN
1490: okl_api.set_message(p_app_name => g_app_name,
1491: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
1492: p_token1 => 'STREAM_NAME',
1493: p_token1_value => l_stream_name);
1494: RAISE okl_api.g_exception_error;
1490: okl_api.set_message(p_app_name => g_app_name,
1491: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
1492: p_token1 => 'STREAM_NAME',
1493: p_token1_value => l_stream_name);
1494: RAISE okl_api.g_exception_error;
1495: END IF;
1496:
1497: l_max_bill_date := NULL;
1498: OPEN max_bill_date_csr(p_stm_id => l_sty_id );
1517: p_trx_id => l_transaction_id,
1518: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1519: --4542290 p_trx_date => l_rebook_date);
1520:
1521: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1524: RAISE Okl_Api.G_EXCEPTION_ERROR;
1525: END IF;
1518: p_trx_date => sysdate); -- 4583578 passing sysdate instead of rebook date
1519: --4542290 p_trx_date => l_rebook_date);
1520:
1521: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1524: RAISE Okl_Api.G_EXCEPTION_ERROR;
1525: END IF;
1526:
1519: --4542290 p_trx_date => l_rebook_date);
1520:
1521: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1524: RAISE Okl_Api.G_EXCEPTION_ERROR;
1525: END IF;
1526:
1527: -- dedey,Bug#4264314
1520:
1521: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1524: RAISE Okl_Api.G_EXCEPTION_ERROR;
1525: END IF;
1526:
1527: -- dedey,Bug#4264314
1528: /*
1553: p_trx_date => sysdate, -- 4583578 passing sysdate instead of rebook_date
1554: x_accrual_rec => l_accrual_rec,
1555: x_stream_tbl => l_stream_tbl);
1556:
1557: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1560: RAISE Okl_Api.G_EXCEPTION_ERROR;
1561: END IF;
1554: x_accrual_rec => l_accrual_rec,
1555: x_stream_tbl => l_stream_tbl);
1556:
1557: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1560: RAISE Okl_Api.G_EXCEPTION_ERROR;
1561: END IF;
1562:
1555: x_stream_tbl => l_stream_tbl);
1556:
1557: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1560: RAISE Okl_Api.G_EXCEPTION_ERROR;
1561: END IF;
1562:
1563: IF (l_stream_tbl.COUNT > 0) THEN -- Call adjustment when required, dedey
1556:
1557: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1560: RAISE Okl_Api.G_EXCEPTION_ERROR;
1561: END IF;
1562:
1563: IF (l_stream_tbl.COUNT > 0) THEN -- Call adjustment when required, dedey
1564: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
1570: x_trx_number => lx_trx_number,
1571: p_accrual_rec => l_accrual_rec,
1572: p_stream_tbl => l_stream_tbl);
1573:
1574: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1576: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1577: RAISE Okl_Api.G_EXCEPTION_ERROR;
1578: END IF;
1571: p_accrual_rec => l_accrual_rec,
1572: p_stream_tbl => l_stream_tbl);
1573:
1574: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1576: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1577: RAISE Okl_Api.G_EXCEPTION_ERROR;
1578: END IF;
1579:
1572: p_stream_tbl => l_stream_tbl);
1573:
1574: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1576: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1577: RAISE Okl_Api.G_EXCEPTION_ERROR;
1578: END IF;
1579:
1580: END IF; -- l_stream_tbl.COUNT > 0
1573:
1574: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1576: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1577: RAISE Okl_Api.G_EXCEPTION_ERROR;
1578: END IF;
1579:
1580: END IF; -- l_stream_tbl.COUNT > 0
1581:
1595: x_accrual_rec => l_accrual_rec,
1596: x_stream_tbl => l_stream_tbl);
1597:
1598: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1600: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1601: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1603: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1597:
1598: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1600: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1601: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1603: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1604: RAISE Okl_Api.G_EXCEPTION_ERROR;
1605: END IF;
1598: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1600: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1601: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1603: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1604: RAISE Okl_Api.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1600: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1601: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1603: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1604: RAISE Okl_Api.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: IF (l_stream_tbl.COUNT > 0) THEN -- Call adjustment when required, dedey
1608: l_accrual_rec.trx_number := lx_trx_number;
1618: p_representation_type => 'SECONDARY');
1619:
1620: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1621:
1622: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1624: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_ERROR;
1626: END IF;
1619:
1620: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1621:
1622: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1624: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_ERROR;
1626: END IF;
1627:
1620: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1621:
1622: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1624: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_ERROR;
1626: END IF;
1627:
1628: END IF; -- l_stream_tbl.COUNT > 0
1621:
1622: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1624: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_ERROR;
1626: END IF;
1627:
1628: END IF; -- l_stream_tbl.COUNT > 0
1629: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1641: x_msg_data => x_msg_data,
1642: p_rebook_chr_id => p_chrv_id
1643: );
1644: --dbms_output.put_line('Hey 1 first call: '||x_return_status);
1645: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1648: RAISE Okl_Api.G_EXCEPTION_ERROR;
1649: END IF;
1642: p_rebook_chr_id => p_chrv_id
1643: );
1644: --dbms_output.put_line('Hey 1 first call: '||x_return_status);
1645: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1648: RAISE Okl_Api.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1643: );
1644: --dbms_output.put_line('Hey 1 first call: '||x_return_status);
1645: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1648: RAISE Okl_Api.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1651:
1644: --dbms_output.put_line('Hey 1 first call: '||x_return_status);
1645: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1648: RAISE Okl_Api.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1651:
1652: --dbms_output.put_line('Status1 BEFORE call: '||x_return_status);
1664: --dbms_output.put_line('Status1: '||x_return_status);
1665:
1666: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1667: --dbms_output.put_line('Status2: '||x_return_status);
1668: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1669: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1670: --dbms_output.put_line('Status3: '||x_return_status);
1671: RAISE Okl_Api.G_EXCEPTION_ERROR;
1672: END IF;
1667: --dbms_output.put_line('Status2: '||x_return_status);
1668: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1669: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1670: --dbms_output.put_line('Status3: '||x_return_status);
1671: RAISE Okl_Api.G_EXCEPTION_ERROR;
1672: END IF;
1673: --dbms_output.put_line('Status4: '||x_return_status);
1674:
1675: --call rebook api
1679: x_return_status => x_return_status,
1680: x_msg_count => x_msg_count,
1681: x_msg_data => x_msg_data,
1682: p_rbk_chr_id => p_chrv_id);
1683: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1684: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1686: RAISE Okl_Api.G_EXCEPTION_ERROR;
1687: END IF;
1680: x_msg_count => x_msg_count,
1681: x_msg_data => x_msg_data,
1682: p_rbk_chr_id => p_chrv_id);
1683: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1684: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1686: RAISE Okl_Api.G_EXCEPTION_ERROR;
1687: END IF;
1688:
1681: x_msg_data => x_msg_data,
1682: p_rbk_chr_id => p_chrv_id);
1683: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1684: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1686: RAISE Okl_Api.G_EXCEPTION_ERROR;
1687: END IF;
1688:
1689: ---------------------------------------------------------------------------------------
1682: p_rbk_chr_id => p_chrv_id);
1683: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1684: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1686: RAISE Okl_Api.G_EXCEPTION_ERROR;
1687: END IF;
1688:
1689: ---------------------------------------------------------------------------------------
1690: --Bug# 3143522: Subsidies enhancement : Create billing transaction for 'BILL' subsidies
1688:
1689: ---------------------------------------------------------------------------------------
1690: --Bug# 3143522: Subsidies enhancement : Create billing transaction for 'BILL' subsidies
1691: ---------------------------------------------------------------------------------------
1692: l_subsidy_exists := OKL_API.G_FALSE;
1693: okl_subsidy_process_pvt.is_contract_subsidized
1694: (p_api_version => p_api_version,
1695: p_init_msg_list => p_init_msg_list,
1696: x_return_status => x_return_status,
1697: x_msg_count => x_msg_count,
1698: x_msg_data => x_msg_data,
1699: p_chr_id => p_chrv_id,
1700: x_subsidized => l_subsidy_exists);
1701: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1704: RAISE Okl_Api.G_EXCEPTION_ERROR;
1705: END IF;
1698: x_msg_data => x_msg_data,
1699: p_chr_id => p_chrv_id,
1700: x_subsidized => l_subsidy_exists);
1701: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1704: RAISE Okl_Api.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1699: p_chr_id => p_chrv_id,
1700: x_subsidized => l_subsidy_exists);
1701: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1704: RAISE Okl_Api.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1707: If l_subsidy_exists = OKL_API.G_FALSE Then
1700: x_subsidized => l_subsidy_exists);
1701: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1704: RAISE Okl_Api.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1707: If l_subsidy_exists = OKL_API.G_FALSE Then
1708: okl_subsidy_process_pvt.is_contract_subsidized
1703: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1704: RAISE Okl_Api.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1707: If l_subsidy_exists = OKL_API.G_FALSE Then
1708: okl_subsidy_process_pvt.is_contract_subsidized
1709: (p_api_version => p_api_version,
1710: p_init_msg_list => p_init_msg_list,
1711: x_return_status => x_return_status,
1712: x_msg_count => x_msg_count,
1713: x_msg_data => x_msg_data,
1714: p_chr_id => l_orig_khr_id,
1715: x_subsidized => l_subsidy_exists);
1716: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1719: RAISE Okl_Api.G_EXCEPTION_ERROR;
1720: END IF;
1713: x_msg_data => x_msg_data,
1714: p_chr_id => l_orig_khr_id,
1715: x_subsidized => l_subsidy_exists);
1716: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1719: RAISE Okl_Api.G_EXCEPTION_ERROR;
1720: END IF;
1721: Elsif l_subsidy_exists = OKL_API.G_TRUE then
1714: p_chr_id => l_orig_khr_id,
1715: x_subsidized => l_subsidy_exists);
1716: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1719: RAISE Okl_Api.G_EXCEPTION_ERROR;
1720: END IF;
1721: Elsif l_subsidy_exists = OKL_API.G_TRUE then
1722: Null;
1715: x_subsidized => l_subsidy_exists);
1716: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1719: RAISE Okl_Api.G_EXCEPTION_ERROR;
1720: END IF;
1721: Elsif l_subsidy_exists = OKL_API.G_TRUE then
1722: Null;
1723: End If;
1717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1719: RAISE Okl_Api.G_EXCEPTION_ERROR;
1720: END IF;
1721: Elsif l_subsidy_exists = OKL_API.G_TRUE then
1722: Null;
1723: End If;
1724:
1725: If l_subsidy_exists = OKL_API.G_TRUE then
1721: Elsif l_subsidy_exists = OKL_API.G_TRUE then
1722: Null;
1723: End If;
1724:
1725: If l_subsidy_exists = OKL_API.G_TRUE then
1726: -- varangan - Bug#5474059 - Modified - Start
1727: -- Subsidy billing during rebook done before actual
1728: -- synchronization with main contract. This is to ensure that
1729: -- the subsidy amount differences can be used to generate invoices/
1737: x_msg_count => x_msg_count,
1738: x_msg_data => x_msg_data,
1739: p_chr_id => p_chrv_id);
1740:
1741: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1742: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1743: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1744: RAISE Okl_Api.G_EXCEPTION_ERROR;
1745: END IF;
1738: x_msg_data => x_msg_data,
1739: p_chr_id => p_chrv_id);
1740:
1741: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1742: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1743: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1744: RAISE Okl_Api.G_EXCEPTION_ERROR;
1745: END IF;
1746: -- varangan - Bug#5474059 - Modified - End
1739: p_chr_id => p_chrv_id);
1740:
1741: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1742: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1743: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1744: RAISE Okl_Api.G_EXCEPTION_ERROR;
1745: END IF;
1746: -- varangan - Bug#5474059 - Modified - End
1747:
1740:
1741: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1742: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1743: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1744: RAISE Okl_Api.G_EXCEPTION_ERROR;
1745: END IF;
1746: -- varangan - Bug#5474059 - Modified - End
1747:
1748: --do rebook synchronize for subsidies
1754: x_msg_data => x_msg_data,
1755: p_rbk_chr_id => p_chrv_id,
1756: p_orig_chr_id => l_orig_khr_id);
1757:
1758: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_ERROR;
1762: END IF;
1755: p_rbk_chr_id => p_chrv_id,
1756: p_orig_chr_id => l_orig_khr_id);
1757:
1758: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1756: p_orig_chr_id => l_orig_khr_id);
1757:
1758: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1764:
1757:
1758: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1764:
1765: End If;
1776: p_contract_id => l_orig_khr_id,
1777: p_transaction_type => l_transaction_type,
1778: p_transaction_date => l_rebook_date,
1779: p_draft_yn => l_draft_yn,
1780: p_memo_yn => okl_api.g_true,
1781: x_return_status => x_return_status,
1782: x_msg_count => x_msg_count,
1783: x_msg_data => x_msg_data);
1784:
1781: x_return_status => x_return_status,
1782: x_msg_count => x_msg_count,
1783: x_msg_data => x_msg_data);
1784:
1785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1786: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1787: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1788: RAISE Okl_Api.G_EXCEPTION_ERROR;
1789: END IF;
1782: x_msg_count => x_msg_count,
1783: x_msg_data => x_msg_data);
1784:
1785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1786: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1787: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1788: RAISE Okl_Api.G_EXCEPTION_ERROR;
1789: END IF;
1790:
1783: x_msg_data => x_msg_data);
1784:
1785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1786: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1787: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1788: RAISE Okl_Api.G_EXCEPTION_ERROR;
1789: END IF;
1790:
1791: --Bug# 3397688 : Call function to get valid open period date
1784:
1785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1786: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1787: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1788: RAISE Okl_Api.G_EXCEPTION_ERROR;
1789: END IF;
1790:
1791: --Bug# 3397688 : Call function to get valid open period date
1792: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_gl_date => l_rebook_date);
1793:
1794: -- Sales Tax Project changes Bug: 4622963 - START
1795: okl_la_sales_tax_pvt.process_sales_tax(
1796: p_api_version => p_api_version,
1797: p_init_msg_list => Okl_Api.G_FALSE,
1798: p_commit => Okl_Api.G_FALSE,
1799: p_contract_id => l_orig_khr_id,
1800: p_transaction_type => 'Rebook',
1801: p_transaction_id => l_transaction_id,
1794: -- Sales Tax Project changes Bug: 4622963 - START
1795: okl_la_sales_tax_pvt.process_sales_tax(
1796: p_api_version => p_api_version,
1797: p_init_msg_list => Okl_Api.G_FALSE,
1798: p_commit => Okl_Api.G_FALSE,
1799: p_contract_id => l_orig_khr_id,
1800: p_transaction_type => 'Rebook',
1801: p_transaction_id => l_transaction_id,
1802: p_transaction_date => l_rebook_date,
1804: x_return_status => x_return_status,
1805: x_msg_count => x_msg_count,
1806: x_msg_data => x_msg_data);
1807:
1808: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1805: x_msg_count => x_msg_count,
1806: x_msg_data => x_msg_data);
1807:
1808: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: -- Sales Tax Project changes Bug: 4622963 - END
1806: x_msg_data => x_msg_data);
1807:
1808: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: -- Sales Tax Project changes Bug: 4622963 - END
1814:
1807:
1808: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: -- Sales Tax Project changes Bug: 4622963 - END
1814:
1815: --Bug# 4212626
1827: x_return_status => x_return_status,
1828: x_msg_count => x_msg_count,
1829: x_msg_data => x_msg_data);
1830:
1831: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1832: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1834: RAISE Okl_Api.G_EXCEPTION_ERROR;
1835: END IF;
1828: x_msg_count => x_msg_count,
1829: x_msg_data => x_msg_data);
1830:
1831: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1832: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1834: RAISE Okl_Api.G_EXCEPTION_ERROR;
1835: END IF;
1836: */
1829: x_msg_data => x_msg_data);
1830:
1831: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1832: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1834: RAISE Okl_Api.G_EXCEPTION_ERROR;
1835: END IF;
1836: */
1837:
1830:
1831: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1832: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1834: RAISE Okl_Api.G_EXCEPTION_ERROR;
1835: END IF;
1836: */
1837:
1838: --Bug#5955320
1838: --Bug#5955320
1839: --call insurance API
1840: OKL_INSURANCE_POLICIES_PUB.cancel_create_policies(
1841: p_api_version => p_api_version,
1842: p_init_msg_list => OKL_API.G_FALSE,
1843: x_return_status => x_return_status,
1844: x_msg_count => x_msg_count,
1845: x_msg_data => x_msg_data,
1846: p_khr_id => l_orig_khr_id,
1847: p_cancellation_date => l_rebook_date,
1848: p_transaction_id => l_transaction_id,
1849: x_ignore_flag => l_ignore_flag);
1850:
1851: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1854: If (l_ignore_flag = OKL_API.G_FALSE) then
1855: RAISE Okl_Api.G_EXCEPTION_ERROR;
1848: p_transaction_id => l_transaction_id,
1849: x_ignore_flag => l_ignore_flag);
1850:
1851: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1854: If (l_ignore_flag = OKL_API.G_FALSE) then
1855: RAISE Okl_Api.G_EXCEPTION_ERROR;
1856: End If;
1849: x_ignore_flag => l_ignore_flag);
1850:
1851: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1854: If (l_ignore_flag = OKL_API.G_FALSE) then
1855: RAISE Okl_Api.G_EXCEPTION_ERROR;
1856: End If;
1857: END IF;
1850:
1851: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1854: If (l_ignore_flag = OKL_API.G_FALSE) then
1855: RAISE Okl_Api.G_EXCEPTION_ERROR;
1856: End If;
1857: END IF;
1858:
1851: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1854: If (l_ignore_flag = OKL_API.G_FALSE) then
1855: RAISE Okl_Api.G_EXCEPTION_ERROR;
1856: End If;
1857: END IF;
1858:
1859: --Bug#3278666 : 11.5.10 call Asset management API to invalidate all valid quotes
1865: x_msg_data => x_msg_data,
1866: p_khr_id => l_orig_khr_id,
1867: p_source_trx_id => NULL
1868: );
1869: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1872: RAISE Okl_Api.G_EXCEPTION_ERROR;
1873: END IF;
1866: p_khr_id => l_orig_khr_id,
1867: p_source_trx_id => NULL
1868: );
1869: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1872: RAISE Okl_Api.G_EXCEPTION_ERROR;
1873: END IF;
1874: --Bug# 3278666 : 11.5.10 call Asset management API to invalidate all valid quotes
1867: p_source_trx_id => NULL
1868: );
1869: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1872: RAISE Okl_Api.G_EXCEPTION_ERROR;
1873: END IF;
1874: --Bug# 3278666 : 11.5.10 call Asset management API to invalidate all valid quotes
1875:
1868: );
1869: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1872: RAISE Okl_Api.G_EXCEPTION_ERROR;
1873: END IF;
1874: --Bug# 3278666 : 11.5.10 call Asset management API to invalidate all valid quotes
1875:
1876: -- PPD
1884: ,x_msg_data => x_msg_data
1885: ,p_khr_id => l_orig_khr_id
1886: );
1887:
1888: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1891: RAISE Okl_Api.G_EXCEPTION_ERROR;
1892: END IF;
1885: ,p_khr_id => l_orig_khr_id
1886: );
1887:
1888: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1891: RAISE Okl_Api.G_EXCEPTION_ERROR;
1892: END IF;
1893: -- End PPD Cancel
1886: );
1887:
1888: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1891: RAISE Okl_Api.G_EXCEPTION_ERROR;
1892: END IF;
1893: -- End PPD Cancel
1894:
1887:
1888: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1891: RAISE Okl_Api.G_EXCEPTION_ERROR;
1892: END IF;
1893: -- End PPD Cancel
1894:
1895: --update transaction status
1902: p_chr_id => p_chrv_id,
1903: p_status => 'PROCESSED',
1904: x_tcnv_rec => l_tcnv_rec
1905: );
1906: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1909: RAISE Okl_Api.G_EXCEPTION_ERROR;
1910: END IF;
1903: p_status => 'PROCESSED',
1904: x_tcnv_rec => l_tcnv_rec
1905: );
1906: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1909: RAISE Okl_Api.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1904: x_tcnv_rec => l_tcnv_rec
1905: );
1906: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1909: RAISE Okl_Api.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: --change the rebook copy contract status to 'ABANDONED'
1905: );
1906: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1909: RAISE Okl_Api.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: --change the rebook copy contract status to 'ABANDONED'
1913: okl_contract_status_pub.update_contract_status(
1917: x_msg_count => x_msg_count,
1918: x_msg_data => x_msg_data,
1919: p_khr_status => 'ABANDONED',
1920: p_chr_id => p_chrv_id);
1921: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okl_Api.G_EXCEPTION_ERROR;
1925: END IF;
1918: x_msg_data => x_msg_data,
1919: p_khr_status => 'ABANDONED',
1920: p_chr_id => p_chrv_id);
1921: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okl_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1919: p_khr_status => 'ABANDONED',
1920: p_chr_id => p_chrv_id);
1921: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okl_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1927: --cascade status to lines
1920: p_chr_id => p_chrv_id);
1921: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okl_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1927: --cascade status to lines
1928: okl_contract_status_pub.cascade_lease_status(
1932: x_msg_count => x_msg_count,
1933: x_msg_data => x_msg_data,
1934: p_chr_id => p_chrv_id);
1935:
1936: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1939: RAISE Okl_Api.G_EXCEPTION_ERROR;
1940: END IF;
1933: x_msg_data => x_msg_data,
1934: p_chr_id => p_chrv_id);
1935:
1936: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1939: RAISE Okl_Api.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1934: p_chr_id => p_chrv_id);
1935:
1936: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1939: RAISE Okl_Api.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1942: -- Bug# 6071566 - Added Start
1935:
1936: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1939: RAISE Okl_Api.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1942: -- Bug# 6071566 - Added Start
1943: -- Re-assess the earliest stream bill date on contract after rebook to
1955: x_msg_count => x_msg_count,
1956: x_msg_data => x_msg_data,
1957: p_chr_id => p_chrv_id);
1958:
1959: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1960: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1961: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1962: RAISE Okl_Api.G_EXCEPTION_ERROR;
1963: END IF;
1956: x_msg_data => x_msg_data,
1957: p_chr_id => p_chrv_id);
1958:
1959: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1960: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1961: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1962: RAISE Okl_Api.G_EXCEPTION_ERROR;
1963: END IF;
1964:
1957: p_chr_id => p_chrv_id);
1958:
1959: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1960: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1961: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1962: RAISE Okl_Api.G_EXCEPTION_ERROR;
1963: END IF;
1964:
1965: ELSIF l_rel_ast = '!' Then
1958:
1959: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1960: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1961: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1962: RAISE Okl_Api.G_EXCEPTION_ERROR;
1963: END IF;
1964:
1965: ELSIF l_rel_ast = '!' Then
1966: /*
1974: --Bug# 3143522: Subsidies enhancement : Check for expired subsidies and stop activation
1975: -- Create billing transaction for 'BILL' subsidies
1976: ---------------------------------------------------------------------------------------
1977:
1978: l_subsidy_exists := OKL_API.G_FALSE;
1979: okl_subsidy_process_pvt.is_contract_subsidized
1980: (p_api_version => p_api_version,
1981: p_init_msg_list => p_init_msg_list,
1982: x_return_status => x_return_status,
1983: x_msg_count => x_msg_count,
1984: x_msg_data => x_msg_data,
1985: p_chr_id => p_chrv_id,
1986: x_subsidized => l_subsidy_exists);
1987: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okl_Api.G_EXCEPTION_ERROR;
1991: END IF;
1984: x_msg_data => x_msg_data,
1985: p_chr_id => p_chrv_id,
1986: x_subsidized => l_subsidy_exists);
1987: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okl_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1985: p_chr_id => p_chrv_id,
1986: x_subsidized => l_subsidy_exists);
1987: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okl_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1993: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1986: x_subsidized => l_subsidy_exists);
1987: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okl_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1993: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1994: ---------------------------------------------------
1989: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okl_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1993: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1994: ---------------------------------------------------
1995: --check if expired subsidies exist for the contract
1996: ---------------------------------------------------
1997: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1993: IF l_subsidy_exists = OKL_API.G_TRUE THEN
1994: ---------------------------------------------------
1995: --check if expired subsidies exist for the contract
1996: ---------------------------------------------------
1997: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
1998: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
1999: LOOP
2000: FETCH l_subsidy_csr INTO l_subsidy_rec;
2001: EXIT WHEN l_subsidy_csr%NOTFOUND;
2009: End If;
2010: close l_cle_csr;
2011:
2012: If (l_applicable = 'N') then
2013: Okl_Api.set_message(
2014: p_app_name => G_APP_NAME,
2015: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
2016: p_token1 => 'SUBSIDY_NAME',
2017: p_token1_value => l_subsidy_rec.subsidy_name,
2016: p_token1 => 'SUBSIDY_NAME',
2017: p_token1_value => l_subsidy_rec.subsidy_name,
2018: p_token2 => 'ASSET_NUMBER',
2019: p_token2_value => l_subsidy_rec.asset_number);
2020: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
2021: end if;
2022:
2023: --IF((l_subsidy_rec.effective_to_date + l_subsidy_rec.expire_after_days) < TRUNC(SYSDATE))THEN
2024: if( TRUNC(sysdate) not between TRUNC(l_subsidy_rec.effective_from_date) and
2023: --IF((l_subsidy_rec.effective_to_date + l_subsidy_rec.expire_after_days) < TRUNC(SYSDATE))THEN
2024: if( TRUNC(sysdate) not between TRUNC(l_subsidy_rec.effective_from_date) and
2025: TRUNC(nvl(l_subsidy_rec.EFFECTIVE_TO_DATE,sysdate) + nvl(l_subsidy_rec.EXPIRE_AFTER_DAYS,0)))then
2026: --shagarg bug 6032336 end
2027: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2028: p_msg_name => 'OKL_SUBSIDY_EXPIRED',
2029: p_token1 => 'SUBSIDY',
2030: p_token1_value => l_subsidy_rec.subsidy_name,
2031: p_token2 => 'ASSET_NUMBER',
2029: p_token1 => 'SUBSIDY',
2030: p_token1_value => l_subsidy_rec.subsidy_name,
2031: p_token2 => 'ASSET_NUMBER',
2032: p_token2_value => l_subsidy_rec.asset_number);
2033: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
2034:
2035:
2036:
2037: ELSE
2089: CLOSE l_subsidy_csr;
2090:
2091: x_return_status := l_subsidy_valid_status;
2092:
2093: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_ERROR;
2097: END IF;
2090:
2091: x_return_status := l_subsidy_valid_status;
2092:
2093: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_ERROR;
2097: END IF;
2098:
2091: x_return_status := l_subsidy_valid_status;
2092:
2093: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_ERROR;
2097: END IF;
2098:
2099:
2092:
2093: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_ERROR;
2097: END IF;
2098:
2099:
2100: --call process API to create Billing transactions for Subsidies ;
2105: x_msg_count => x_msg_count,
2106: x_msg_data => x_msg_data,
2107: p_chr_id => p_chrv_id);
2108:
2109: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2112: RAISE Okl_Api.G_EXCEPTION_ERROR;
2113: END IF;
2106: x_msg_data => x_msg_data,
2107: p_chr_id => p_chrv_id);
2108:
2109: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2112: RAISE Okl_Api.G_EXCEPTION_ERROR;
2113: END IF;
2114: End If;
2107: p_chr_id => p_chrv_id);
2108:
2109: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2112: RAISE Okl_Api.G_EXCEPTION_ERROR;
2113: END IF;
2114: End If;
2115: -------------------------------------------------------------------------
2108:
2109: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2112: RAISE Okl_Api.G_EXCEPTION_ERROR;
2113: END IF;
2114: End If;
2115: -------------------------------------------------------------------------
2116: --Bug#i 3143522 : End Subsidies enhancement
2126: x_msg_count => x_msg_count,
2127: x_msg_data => x_msg_data,
2128: p_rel_chr_id => p_chrv_id);
2129:
2130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2133: RAISE Okl_Api.G_EXCEPTION_ERROR;
2134: END IF;
2127: x_msg_data => x_msg_data,
2128: p_rel_chr_id => p_chrv_id);
2129:
2130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2133: RAISE Okl_Api.G_EXCEPTION_ERROR;
2134: END IF;
2135:
2128: p_rel_chr_id => p_chrv_id);
2129:
2130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2133: RAISE Okl_Api.G_EXCEPTION_ERROR;
2134: END IF;
2135:
2136: --Bug# 3533936 :
2129:
2130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2133: RAISE Okl_Api.G_EXCEPTION_ERROR;
2134: END IF;
2135:
2136: --Bug# 3533936 :
2137: --call the install base instance re_lease API
2142: x_msg_count => x_msg_count,
2143: x_msg_data => x_msg_data,
2144: p_rel_chr_id => p_chrv_id);
2145:
2146: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2147: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2148: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2149: RAISE Okl_Api.G_EXCEPTION_ERROR;
2150: END IF;
2143: x_msg_data => x_msg_data,
2144: p_rel_chr_id => p_chrv_id);
2145:
2146: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2147: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2148: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2149: RAISE Okl_Api.G_EXCEPTION_ERROR;
2150: END IF;
2151:
2144: p_rel_chr_id => p_chrv_id);
2145:
2146: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2147: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2148: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2149: RAISE Okl_Api.G_EXCEPTION_ERROR;
2150: END IF;
2151:
2152: --Bug#2522439 Start
2145:
2146: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2147: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2148: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2149: RAISE Okl_Api.G_EXCEPTION_ERROR;
2150: END IF;
2151:
2152: --Bug#2522439 Start
2153: --code added to update status in OKL_ASSET_RETURNS_B
2168: ,x_msg_data => x_msg_data
2169: ,p_artv_rec => l_artv_rec
2170: ,x_artv_rec => lx_artv_rec);
2171:
2172: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2175: RAISE Okl_Api.G_EXCEPTION_ERROR;
2176: END IF;
2169: ,p_artv_rec => l_artv_rec
2170: ,x_artv_rec => lx_artv_rec);
2171:
2172: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2175: RAISE Okl_Api.G_EXCEPTION_ERROR;
2176: END IF;
2177: END LOOP;
2170: ,x_artv_rec => lx_artv_rec);
2171:
2172: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2175: RAISE Okl_Api.G_EXCEPTION_ERROR;
2176: END IF;
2177: END LOOP;
2178: CLOSE l_asr_csr;
2171:
2172: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2175: RAISE Okl_Api.G_EXCEPTION_ERROR;
2176: END IF;
2177: END LOOP;
2178: CLOSE l_asr_csr;
2179: --Bug#2522439 End
2183: --check for billto status
2184: Validate_bill_To(p_chr_id => p_chrv_id,
2185: x_return_status => x_return_status);
2186:
2187: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2190: RAISE Okl_Api.G_EXCEPTION_ERROR;
2191: END IF;
2184: Validate_bill_To(p_chr_id => p_chrv_id,
2185: x_return_status => x_return_status);
2186:
2187: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2190: RAISE Okl_Api.G_EXCEPTION_ERROR;
2191: END IF;
2192: --bug # 2953906 end.
2185: x_return_status => x_return_status);
2186:
2187: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2190: RAISE Okl_Api.G_EXCEPTION_ERROR;
2191: END IF;
2192: --bug # 2953906 end.
2193:
2186:
2187: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2188: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2189: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2190: RAISE Okl_Api.G_EXCEPTION_ERROR;
2191: END IF;
2192: --bug # 2953906 end.
2193:
2194: -------------------------------------------------------------------------
2220: p_Activation_date => l_start_date,
2221: x_amount => l_amount,
2222: x_source_id => l_source_id);
2223:
2224: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2227: RAISE Okl_Api.G_EXCEPTION_ERROR;
2228: END IF;
2221: x_amount => l_amount,
2222: x_source_id => l_source_id);
2223:
2224: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2227: RAISE Okl_Api.G_EXCEPTION_ERROR;
2228: END IF;
2229: end if;
2222: x_source_id => l_source_id);
2223:
2224: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2227: RAISE Okl_Api.G_EXCEPTION_ERROR;
2228: END IF;
2229: end if;
2230: -- Bug# 3541098 end.
2223:
2224: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2227: RAISE Okl_Api.G_EXCEPTION_ERROR;
2228: END IF;
2229: end if;
2230: -- Bug# 3541098 end.
2231:
2232: ---------------------------------------------------------------------------------------
2233: --Bug# 3143522: Subsidies enhancement : Check for expired subsidies and stop activation
2234: -- Create billing transaction for 'BILL' subsidies
2235: ---------------------------------------------------------------------------------------
2236: l_subsidy_exists := OKL_API.G_FALSE;
2237: okl_subsidy_process_pvt.is_contract_subsidized
2238: (p_api_version => p_api_version,
2239: p_init_msg_list => p_init_msg_list,
2240: x_return_status => x_return_status,
2241: x_msg_count => x_msg_count,
2242: x_msg_data => x_msg_data,
2243: p_chr_id => p_chrv_id,
2244: x_subsidized => l_subsidy_exists);
2245: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2248: RAISE Okl_Api.G_EXCEPTION_ERROR;
2249: END IF;
2242: x_msg_data => x_msg_data,
2243: p_chr_id => p_chrv_id,
2244: x_subsidized => l_subsidy_exists);
2245: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2248: RAISE Okl_Api.G_EXCEPTION_ERROR;
2249: END IF;
2250:
2243: p_chr_id => p_chrv_id,
2244: x_subsidized => l_subsidy_exists);
2245: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2248: RAISE Okl_Api.G_EXCEPTION_ERROR;
2249: END IF;
2250:
2251: IF l_subsidy_exists = OKL_API.G_TRUE THEN
2244: x_subsidized => l_subsidy_exists);
2245: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2248: RAISE Okl_Api.G_EXCEPTION_ERROR;
2249: END IF;
2250:
2251: IF l_subsidy_exists = OKL_API.G_TRUE THEN
2252: ---------------------------------------------------
2247: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2248: RAISE Okl_Api.G_EXCEPTION_ERROR;
2249: END IF;
2250:
2251: IF l_subsidy_exists = OKL_API.G_TRUE THEN
2252: ---------------------------------------------------
2253: --check if expired subsidies exist for the contract
2254: ---------------------------------------------------
2255: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
2251: IF l_subsidy_exists = OKL_API.G_TRUE THEN
2252: ---------------------------------------------------
2253: --check if expired subsidies exist for the contract
2254: ---------------------------------------------------
2255: l_subsidy_valid_status := OKL_API.G_RET_STS_SUCCESS;
2256: OPEN l_subsidy_csr (p_chr_id => p_chrv_id);
2257: LOOP
2258: FETCH l_subsidy_csr INTO l_subsidy_rec;
2259: EXIT WHEN l_subsidy_csr%NOTFOUND;
2267: End If;
2268: close l_cle_csr;
2269:
2270: If (l_applicable = 'N') then
2271: Okl_Api.set_message(
2272: p_app_name => G_APP_NAME,
2273: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
2274: p_token1 => 'SUBSIDY_NAME',
2275: p_token1_value => l_subsidy_rec.subsidy_name,
2274: p_token1 => 'SUBSIDY_NAME',
2275: p_token1_value => l_subsidy_rec.subsidy_name,
2276: p_token2 => 'ASSET_NUMBER',
2277: p_token2_value => l_subsidy_rec.asset_number);
2278: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
2279: end if;
2280:
2281: --IF((l_subsidy_rec.effective_to_date + l_subsidy_rec.expire_after_days) < TRUNC(SYSDATE))THEN
2282: if( TRUNC(sysdate) not between TRUNC(l_subsidy_rec.effective_from_date) and
2281: --IF((l_subsidy_rec.effective_to_date + l_subsidy_rec.expire_after_days) < TRUNC(SYSDATE))THEN
2282: if( TRUNC(sysdate) not between TRUNC(l_subsidy_rec.effective_from_date) and
2283: TRUNC(nvl(l_subsidy_rec.EFFECTIVE_TO_DATE,sysdate) + nvl(l_subsidy_rec.EXPIRE_AFTER_DAYS,0)))then
2284: --End : Bug 6050165 : prasjain
2285: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2286: p_msg_name => 'OKL_SUBSIDY_EXPIRED',
2287: p_token1 => 'SUBSIDY',
2288: p_token1_value => l_subsidy_rec.subsidy_name,
2289: p_token2 => 'ASSET_NUMBER',
2287: p_token1 => 'SUBSIDY',
2288: p_token1_value => l_subsidy_rec.subsidy_name,
2289: p_token2 => 'ASSET_NUMBER',
2290: p_token2_value => l_subsidy_rec.asset_number);
2291: l_subsidy_valid_status := OKL_API.G_RET_STS_ERROR;
2292: ELSE
2293: /*
2294: * sjalasut added code for subsidy pools enhancement, the subsidy is checked for association
2295: * with the subsidy pool, if associated, the authoring transaction api is invoked for
2344: CLOSE l_subsidy_csr;
2345:
2346: x_return_status := l_subsidy_valid_status;
2347:
2348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2351: RAISE Okl_Api.G_EXCEPTION_ERROR;
2352: END IF;
2345:
2346: x_return_status := l_subsidy_valid_status;
2347:
2348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2351: RAISE Okl_Api.G_EXCEPTION_ERROR;
2352: END IF;
2353:
2346: x_return_status := l_subsidy_valid_status;
2347:
2348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2351: RAISE Okl_Api.G_EXCEPTION_ERROR;
2352: END IF;
2353:
2354:
2347:
2348: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2351: RAISE Okl_Api.G_EXCEPTION_ERROR;
2352: END IF;
2353:
2354:
2355:
2362: x_msg_count => x_msg_count,
2363: x_msg_data => x_msg_data,
2364: p_chr_id => p_chrv_id);
2365:
2366: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okl_Api.G_EXCEPTION_ERROR;
2370: END IF;
2363: x_msg_data => x_msg_data,
2364: p_chr_id => p_chrv_id);
2365:
2366: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okl_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: End If;
2364: p_chr_id => p_chrv_id);
2365:
2366: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okl_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: End If;
2372: -------------------------------------------------------------------------
2365:
2366: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okl_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: End If;
2372: -------------------------------------------------------------------------
2373: --Bug#i 3143522 : End Subsidies enhancement
2382: p_chrv_id => p_chrv_id,
2383: p_call_mode => p_call_mode,
2384: x_cimv_tbl => l_cimv_tbl_fa);
2385:
2386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2389: RAISE Okl_Api.G_EXCEPTION_ERROR;
2390: END IF;
2383: p_call_mode => p_call_mode,
2384: x_cimv_tbl => l_cimv_tbl_fa);
2385:
2386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2389: RAISE Okl_Api.G_EXCEPTION_ERROR;
2390: END IF;
2391:
2384: x_cimv_tbl => l_cimv_tbl_fa);
2385:
2386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2389: RAISE Okl_Api.G_EXCEPTION_ERROR;
2390: END IF;
2391:
2392: --Bug# 2726870 : 11.5.9 enhancment Service contracts integration
2385:
2386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2389: RAISE Okl_Api.G_EXCEPTION_ERROR;
2390: END IF;
2391:
2392: --Bug# 2726870 : 11.5.9 enhancment Service contracts integration
2393: --call service integration api :
2398: x_msg_count => x_msg_count,
2399: x_msg_data => x_msg_data,
2400: p_okl_chr_id => p_chrv_id);
2401:
2402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2405: RAISE Okl_Api.G_EXCEPTION_ERROR;
2406: END IF;
2399: x_msg_data => x_msg_data,
2400: p_okl_chr_id => p_chrv_id);
2401:
2402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2405: RAISE Okl_Api.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2400: p_okl_chr_id => p_chrv_id);
2401:
2402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2405: RAISE Okl_Api.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2408: --call ib activation API
2401:
2402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2405: RAISE Okl_Api.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2408: --call ib activation API
2409: Okl_Activate_Ib_Pub.ACTIVATE_IB_INSTANCE(p_api_version => p_api_version,
2414: p_chrv_id => p_chrv_id,
2415: p_call_mode => p_call_mode,
2416: x_cimv_tbl => l_cimv_tbl_ib);
2417:
2418: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2419: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2421: RAISE Okl_Api.G_EXCEPTION_ERROR;
2422: END IF;
2415: p_call_mode => p_call_mode,
2416: x_cimv_tbl => l_cimv_tbl_ib);
2417:
2418: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2419: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2421: RAISE Okl_Api.G_EXCEPTION_ERROR;
2422: END IF;
2423:
2416: x_cimv_tbl => l_cimv_tbl_ib);
2417:
2418: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2419: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2421: RAISE Okl_Api.G_EXCEPTION_ERROR;
2422: END IF;
2423:
2424: --check if usage line is there on the contract
2417:
2418: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2419: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2421: RAISE Okl_Api.G_EXCEPTION_ERROR;
2422: END IF;
2423:
2424: --check if usage line is there on the contract
2425: l_usage_khr := '?';
2441: p_chr_id => p_chrv_id,
2442: x_chr_id => l_service_chr_id
2443: );
2444:
2445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2448: RAISE Okl_Api.G_EXCEPTION_ERROR;
2449: END IF;
2442: x_chr_id => l_service_chr_id
2443: );
2444:
2445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2448: RAISE Okl_Api.G_EXCEPTION_ERROR;
2449: END IF;
2450: End If;
2443: );
2444:
2445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2448: RAISE Okl_Api.G_EXCEPTION_ERROR;
2449: END IF;
2450: End If;
2451:
2444:
2445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2448: RAISE Okl_Api.G_EXCEPTION_ERROR;
2449: END IF;
2450: End If;
2451:
2452: END IF;
2449: END IF;
2450: End If;
2451:
2452: END IF;
2453: Okl_Api.END_ACTIVITY (x_msg_count,x_msg_data );
2454:
2455: EXCEPTION
2456: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2457: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(
2452: END IF;
2453: Okl_Api.END_ACTIVITY (x_msg_count,x_msg_data );
2454:
2455: EXCEPTION
2456: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2457: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKL_API.G_RET_STS_ERROR',
2453: Okl_Api.END_ACTIVITY (x_msg_count,x_msg_data );
2454:
2455: EXCEPTION
2456: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2457: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKL_API.G_RET_STS_ERROR',
2461: x_msg_count,
2456: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2457: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKL_API.G_RET_STS_ERROR',
2461: x_msg_count,
2462: x_msg_data,
2463: '_PUB');
2464: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2460: 'OKL_API.G_RET_STS_ERROR',
2461: x_msg_count,
2462: x_msg_data,
2463: '_PUB');
2464: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2465: --dbms_output.put_line('Unexpected Error Routine');
2466: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS(
2467: l_api_name,
2468: G_PKG_NAME,
2462: x_msg_data,
2463: '_PUB');
2464: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2465: --dbms_output.put_line('Unexpected Error Routine');
2466: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS(
2467: l_api_name,
2468: G_PKG_NAME,
2469: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2470: x_msg_count,
2465: --dbms_output.put_line('Unexpected Error Routine');
2466: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS(
2467: l_api_name,
2468: G_PKG_NAME,
2469: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2470: x_msg_count,
2471: x_msg_data,
2472: '_PUB');
2473: --dbms_output.put_line('2 Unexpected Error Routine');
2471: x_msg_data,
2472: '_PUB');
2473: --dbms_output.put_line('2 Unexpected Error Routine');
2474: WHEN OTHERS THEN
2475: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS(
2476: l_api_name,
2477: G_PKG_NAME,
2478: 'OTHERS',
2479: x_msg_count,