74: x_msg_data => x_msg_data,
75: p_line_id => p_cle_id_tbl(line_number).cle_id);
76:
77: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
80: RAISE OKL_API.G_EXCEPTION_ERROR;
81: END IF;
82:
76:
77: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
80: RAISE OKL_API.G_EXCEPTION_ERROR;
81: END IF;
82:
83: EXIT WHEN (line_number = p_cle_id_tbl.LAST);
84: line_number := p_cle_id_tbl.NEXT(line_number);
89: x_return_status := G_RET_STS_SUCCESS;
90:
91: EXCEPTION
92:
93: WHEN OKL_API.G_EXCEPTION_ERROR THEN
94:
95: IF p_transaction_control = G_TRUE THEN
96: ROLLBACK TO l_program_name;
97: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
98: END IF;
99:
100: x_return_status := G_RET_STS_ERROR;
101:
102: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
103:
104: IF p_transaction_control = G_TRUE THEN
105: ROLLBACK TO l_program_name;
106: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
109: x_return_status := G_RET_STS_UNEXP_ERROR;
110:
111: WHEN OTHERS THEN
112:
113: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
114: p_msg_name => G_DB_ERROR,
115: p_token1 => G_PROG_NAME_TOKEN,
116: p_token1_value => l_program_name,
117: p_token2 => G_SQLCODE_TOKEN,
363: p_line_item_tbl => l_create_line_item_tbl,
364: x_line_item_tbl => lx_line_item_tbl);
365:
366: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
368: ELSIF lx_return_status = G_RET_STS_ERROR THEN
369: RAISE OKL_API.G_EXCEPTION_ERROR;
370: END IF;
371:
365:
366: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
368: ELSIF lx_return_status = G_RET_STS_ERROR THEN
369: RAISE OKL_API.G_EXCEPTION_ERROR;
370: END IF;
371:
372: END IF;
373:
381: p_line_item_tbl => l_update_line_item_tbl,
382: x_line_item_tbl => lx_line_item_tbl);
383:
384: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF lx_return_status = G_RET_STS_ERROR THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389:
383:
384: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF lx_return_status = G_RET_STS_ERROR THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389:
390: END IF;
391:
394: x_return_status := G_RET_STS_SUCCESS;
395:
396: EXCEPTION
397:
398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
399:
400: x_return_status := G_RET_STS_ERROR;
401:
402: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
399:
400: x_return_status := G_RET_STS_ERROR;
401:
402: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
403:
404: x_return_status := G_RET_STS_UNEXP_ERROR;
405:
406: WHEN OTHERS THEN
404: x_return_status := G_RET_STS_UNEXP_ERROR;
405:
406: WHEN OTHERS THEN
407:
408: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
409: p_msg_name => G_DB_ERROR,
410: p_token1 => G_PROG_NAME_TOKEN,
411: p_token1_value => l_program_name,
412: p_token2 => G_SQLCODE_TOKEN,
491: x_msg_count => x_msg_count,
492: x_msg_data => x_msg_data);
493:
494: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
496: ELSIF lx_return_status = G_RET_STS_ERROR THEN
497: RAISE OKL_API.G_EXCEPTION_ERROR;
498: END IF;
499:
493:
494: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
496: ELSIF lx_return_status = G_RET_STS_ERROR THEN
497: RAISE OKL_API.G_EXCEPTION_ERROR;
498: END IF;
499:
500: END IF;
501:
521: x_msg_count => x_msg_count,
522: x_msg_data => x_msg_data);
523:
524: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF lx_return_status = G_RET_STS_ERROR THEN
527: RAISE OKL_API.G_EXCEPTION_ERROR;
528: END IF;
529:
523:
524: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF lx_return_status = G_RET_STS_ERROR THEN
527: RAISE OKL_API.G_EXCEPTION_ERROR;
528: END IF;
529:
530: END IF;
531:
532: x_return_status := G_RET_STS_SUCCESS;
533:
534: EXCEPTION
535:
536: WHEN OKL_API.G_EXCEPTION_ERROR THEN
537:
538: IF p_transaction_control = G_TRUE THEN
539: ROLLBACK TO l_program_name;
540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
541: END IF;
542:
543: x_return_status := G_RET_STS_ERROR;
544:
545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
546:
547: IF p_transaction_control = G_TRUE THEN
548: ROLLBACK TO l_program_name;
549: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
552: x_return_status := G_RET_STS_UNEXP_ERROR;
553:
554: WHEN OTHERS THEN
555:
556: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
557: p_msg_name => G_DB_ERROR,
558: p_token1 => G_PROG_NAME_TOKEN,
559: p_token1_value => l_program_name,
560: p_token2 => G_SQLCODE_TOKEN,
618: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
619: raise OKC_API.G_EXCEPTION_ERROR;
620: End If;
621:
622: If(l_chr_id is null or l_chr_id = OKL_API.G_MISS_NUM) Then
623: x_return_status := OKC_API.g_ret_sts_error;
624: OKC_API.SET_MESSAGE( p_app_name => g_app_name
625: , p_msg_name => 'OKL_REQUIRED_VALUE'
626: , p_token1 => 'COL_NAME'
628: );
629: raise OKC_API.G_EXCEPTION_ERROR;
630: End If;
631:
632: If(l_tradein_date is null or l_tradein_date = OKL_API.G_MISS_DATE) Then
633: x_return_status := OKC_API.g_ret_sts_error;
634: l_ak_prompt := GET_AK_PROMPT('OKL_LA_AST_DTLS', 'OKL_TRADEIN_DATE');
635: OKC_API.SET_MESSAGE( p_app_name => g_app_name
636: , p_msg_name => 'OKL_REQUIRED_VALUE'
639: );
640: raise OKC_API.G_EXCEPTION_ERROR;
641: End If;
642:
643: If(l_tradein_amount is null or l_tradein_amount = OKL_API.G_MISS_NUM) Then
644: x_return_status := OKC_API.g_ret_sts_error;
645: l_ak_prompt := GET_AK_PROMPT('OKL_LA_AST_DTLS', 'OKL_TRADEIN_AMOUNT');
646: OKC_API.SET_MESSAGE( p_app_name => g_app_name
647: , p_msg_name => 'OKL_REQUIRED_VALUE'
721: --Purpose : Local procedure to update capital_amount when trade-in is updated
722: --------------------------------------------------------------------------------
723: PROCEDURE recalculate_costs(
724: p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
726: x_return_status OUT NOCOPY VARCHAR2,
727: x_msg_count OUT NOCOPY NUMBER,
728: x_msg_data OUT NOCOPY VARCHAR2,
729: p_chr_id IN OKL_K_HEADERS.id%TYPE,
741: l_api_version CONSTANT NUMBER := 1.0;
742:
743: BEGIN
744:
745: x_return_status := OKL_API.g_ret_sts_success;
746:
747: -- call START_ACTIVITY to create savepoint, check compatibility
748: -- and initialize message list
749: x_return_status := OKL_API.START_ACTIVITY(
745: x_return_status := OKL_API.g_ret_sts_success;
746:
747: -- call START_ACTIVITY to create savepoint, check compatibility
748: -- and initialize message list
749: x_return_status := OKL_API.START_ACTIVITY(
750: p_api_name => l_api_name,
751: p_pkg_name => g_pkg_name,
752: p_init_msg_list => p_init_msg_list,
753: l_api_version => l_api_version,
755: p_api_type => g_api_type,
756: x_return_status => x_return_status);
757:
758: -- check if activity started successfully
759: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
762: raise OKL_API.G_EXCEPTION_ERROR;
763: End If;
756: x_return_status => x_return_status);
757:
758: -- check if activity started successfully
759: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
762: raise OKL_API.G_EXCEPTION_ERROR;
763: End If;
764:
757:
758: -- check if activity started successfully
759: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
762: raise OKL_API.G_EXCEPTION_ERROR;
763: End If;
764:
765: l_cap_amount := 0;
758: -- check if activity started successfully
759: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
762: raise OKL_API.G_EXCEPTION_ERROR;
763: End If;
764:
765: l_cap_amount := 0;
766: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
772: p_contract_id => p_chr_id,
773: p_line_id => p_cle_id,
774: x_value => l_cap_amount);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
773: p_line_id => p_cle_id,
774: x_value => l_cap_amount);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:
774: x_value => l_cap_amount);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:
782: ---------------------------------------------------------------------
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:
782: ---------------------------------------------------------------------
783: -- call api to update costs on asset line
796: p_klev_rec => l_klev_rec,
797: x_clev_rec => lx_clev_rec,
798: x_klev_rec => lx_klev_rec
799: );
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
797: x_clev_rec => lx_clev_rec,
798: x_klev_rec => lx_klev_rec
799: );
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
798: x_klev_rec => lx_klev_rec
799: );
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: -- Recalculate Asset depreciation cost when there
799: );
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: -- Recalculate Asset depreciation cost when there
807: -- is a change to Trade-in during On-line Rebook
814: p_chr_id => p_chr_id,
815: p_cle_id => p_cle_id
816: );
817:
818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
815: p_cle_id => p_cle_id
816: );
817:
818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823:
816: );
817:
818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823:
824: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
817:
818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823:
824: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
825:
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823:
824: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
825:
826: EXCEPTION
827: when OKL_API.G_EXCEPTION_ERROR then
828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
823:
824: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
825:
826: EXCEPTION
827: when OKL_API.G_EXCEPTION_ERROR then
828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
829: p_api_name => l_api_name,
830: p_pkg_name => g_pkg_name,
831: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
824: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
825:
826: EXCEPTION
827: when OKL_API.G_EXCEPTION_ERROR then
828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
829: p_api_name => l_api_name,
830: p_pkg_name => g_pkg_name,
831: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
832: x_msg_count => x_msg_count,
827: when OKL_API.G_EXCEPTION_ERROR then
828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
829: p_api_name => l_api_name,
830: p_pkg_name => g_pkg_name,
831: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
832: x_msg_count => x_msg_count,
833: x_msg_data => x_msg_data,
834: p_api_type => g_api_type);
835:
832: x_msg_count => x_msg_count,
833: x_msg_data => x_msg_data,
834: p_api_type => g_api_type);
835:
836: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
837: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
838: p_api_name => l_api_name,
839: p_pkg_name => g_pkg_name,
840: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
833: x_msg_data => x_msg_data,
834: p_api_type => g_api_type);
835:
836: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
837: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
838: p_api_name => l_api_name,
839: p_pkg_name => g_pkg_name,
840: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
841: x_msg_count => x_msg_count,
836: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
837: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
838: p_api_name => l_api_name,
839: p_pkg_name => g_pkg_name,
840: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
841: x_msg_count => x_msg_count,
842: x_msg_data => x_msg_data,
843: p_api_type => g_api_type);
844:
842: x_msg_data => x_msg_data,
843: p_api_type => g_api_type);
844:
845: when OTHERS then
846: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
847: p_api_name => l_api_name,
848: p_pkg_name => g_pkg_name,
849: p_exc_name => 'OTHERS',
850: x_msg_count => x_msg_count,
909: raise OKC_API.G_EXCEPTION_ERROR;
910: End If;
911:
912: -- on update of a asset line, reset the tradein_amount value to null
913: If ( (lp_tradein_rec.id is not null and lp_tradein_rec.id <> OKL_API.G_MISS_NUM)
914: and (lp_tradein_rec.id <> lp_tradein_rec.asset_id)) Then
915:
916: lp_clev_rec.id := lp_tradein_rec.id;
917: lp_klev_rec.id := lp_tradein_rec.id;
1095: lp_tradein_rec.asset_id := p_tradein_tbl(i).asset_id;
1096: lp_tradein_rec.asset_number := p_tradein_tbl(i).asset_number;
1097: lp_tradein_rec.tradein_amount := p_tradein_tbl(i).tradein_amount;
1098: /*
1099: If( (lp_tradein_rec.asset_number is null or lp_tradein_rec.asset_number = OKL_API.G_MISS_CHAR)
1100: and (lp_tradein_rec.tradein_amount is null or lp_tradein_rec.tradein_amount = OKL_API.G_MISS_NUM) ) Then
1101: break;
1102: End If;
1103:
1096: lp_tradein_rec.asset_number := p_tradein_tbl(i).asset_number;
1097: lp_tradein_rec.tradein_amount := p_tradein_tbl(i).tradein_amount;
1098: /*
1099: If( (lp_tradein_rec.asset_number is null or lp_tradein_rec.asset_number = OKL_API.G_MISS_CHAR)
1100: and (lp_tradein_rec.tradein_amount is null or lp_tradein_rec.tradein_amount = OKL_API.G_MISS_NUM) ) Then
1101: break;
1102: End If;
1103:
1104: If( (lp_tradein_rec.asset_number is null or lp_tradein_rec.asset_number = OKL_API.G_MISS_CHAR)
1100: and (lp_tradein_rec.tradein_amount is null or lp_tradein_rec.tradein_amount = OKL_API.G_MISS_NUM) ) Then
1101: break;
1102: End If;
1103:
1104: If( (lp_tradein_rec.asset_number is null or lp_tradein_rec.asset_number = OKL_API.G_MISS_CHAR)
1105: and (lp_tradein_rec.tradein_amount is not null and lp_tradein_rec.tradein_amount != OKL_API.G_MISS_NUM) ) Then
1106: x_return_status := OKC_API.g_ret_sts_error;
1107: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1108: , p_msg_name => 'OKL_LLA_ASSET_REQUIRED'
1101: break;
1102: End If;
1103:
1104: If( (lp_tradein_rec.asset_number is null or lp_tradein_rec.asset_number = OKL_API.G_MISS_CHAR)
1105: and (lp_tradein_rec.tradein_amount is not null and lp_tradein_rec.tradein_amount != OKL_API.G_MISS_NUM) ) Then
1106: x_return_status := OKC_API.g_ret_sts_error;
1107: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1108: , p_msg_name => 'OKL_LLA_ASSET_REQUIRED'
1109: );
1109: );
1110: raise OKC_API.G_EXCEPTION_ERROR;
1111: End If;
1112:
1113: If( (lp_tradein_rec.asset_number is not null and lp_tradein_rec.asset_number != OKL_API.G_MISS_CHAR)
1114: and (lp_tradein_rec.tradein_amount is null or lp_tradein_rec.tradein_amount = OKL_API.G_MISS_NUM) ) Then
1115: x_return_status := OKC_API.g_ret_sts_error;
1116: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1117: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1110: raise OKC_API.G_EXCEPTION_ERROR;
1111: End If;
1112:
1113: If( (lp_tradein_rec.asset_number is not null and lp_tradein_rec.asset_number != OKL_API.G_MISS_CHAR)
1114: and (lp_tradein_rec.tradein_amount is null or lp_tradein_rec.tradein_amount = OKL_API.G_MISS_NUM) ) Then
1115: x_return_status := OKC_API.g_ret_sts_error;
1116: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1117: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1118: );
1846: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1847: raise OKC_API.G_EXCEPTION_ERROR;
1848: End If;
1849:
1850: If(l_chr_id is null or l_chr_id = OKL_API.G_MISS_NUM) Then
1851: x_return_status := OKC_API.g_ret_sts_error;
1852: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1853: , p_msg_name => 'OKL_REQUIRED_VALUE'
1854: , p_token1 => 'COL_NAME'