48: | NIKSHAH 03-AUG-09 Created |
49: +===========================================================================*/
50: PROCEDURE get_adj_header_and_lines
51: (p_api_version IN NUMBER
52: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
53: ,p_psl_id IN NUMBER DEFAULT NULL
54: ,x_return_status OUT NOCOPY VARCHAR2
55: ,x_msg_count OUT NOCOPY NUMBER
56: ,x_msg_data OUT NOCOPY VARCHAR2
233: END IF;
234:
235: x_adj_hdr_tbl := l_adj_hdr_tbl;
236: x_adj_lines_tbl := l_adj_lines_tbl;
237: x_return_status := OKL_API.G_RET_STS_SUCCESS;
238:
239: IF(IS_DEBUG_PROCEDURE_ON) THEN
240: BEGIN
241: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'OKL_CREATE_ADJST_PVT.get_adjustment_header_and_lines END(-) ');
247: BEGIN
248: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_EXCEPTION,L_MODULE,'OKL_CREATE_ADJST_PVT.get_adjustment_header_and_lines EXCEPTION : ' || sqlerrm );
249: END;
250: END IF;
251: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
252: x_msg_data := sqlerrm ;
253: END get_adj_header_and_lines;
254:
255: ---------------------------------------------------------------------------
271: | 18-Jul-2006 dkagrawa Bug 5378114 MOAC changes |
272: +===========================================================================*/
273:
274: PROCEDURE create_adjustments ( p_api_version IN NUMBER
275: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
276: ,p_psl_id IN NUMBER DEFAULT NULL
277: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_FALSE
278: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_FALSE
279: ,x_return_status OUT NOCOPY VARCHAR2
273:
274: PROCEDURE create_adjustments ( p_api_version IN NUMBER
275: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
276: ,p_psl_id IN NUMBER DEFAULT NULL
277: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_FALSE
278: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_FALSE
279: ,x_return_status OUT NOCOPY VARCHAR2
280: ,x_msg_count OUT NOCOPY NUMBER
281: ,x_msg_data OUT NOCOPY VARCHAR2
274: PROCEDURE create_adjustments ( p_api_version IN NUMBER
275: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
276: ,p_psl_id IN NUMBER DEFAULT NULL
277: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_FALSE
278: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_FALSE
279: ,x_return_status OUT NOCOPY VARCHAR2
280: ,x_msg_count OUT NOCOPY NUMBER
281: ,x_msg_data OUT NOCOPY VARCHAR2
282: ,x_new_adj_id OUT NOCOPY NUMBER --Will be used only for IEX call
389: ,p_msg_name =>'OKL_BPD_RECV_ACTVTY_NOT_SET'
390: );
391:
392: --RAISE G_EXCEPTION_HALT_VALIDATION; --bug 6727171
393: RAISE OKL_API.G_EXCEPTION_ERROR; -- bug 6727171
394: END IF;
395:
396: get_adj_header_and_lines (p_api_version => l_api_version
397: ,p_init_msg_list => l_init_msg_list
401: ,x_msg_data => l_msg_data
402: ,x_adj_hdr_tbl => l_adj_hdr_tbl
403: ,x_adj_lines_tbl => l_adj_lines_tbl);
404:
405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_ERROR;
409: END IF;
402: ,x_adj_hdr_tbl => l_adj_hdr_tbl
403: ,x_adj_lines_tbl => l_adj_lines_tbl);
404:
405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_ERROR;
409: END IF;
410:
403: ,x_adj_lines_tbl => l_adj_lines_tbl);
404:
405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_ERROR;
409: END IF;
410:
411: l_is_cons_invoice := 'N';
404:
405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_ERROR;
409: END IF;
410:
411: l_is_cons_invoice := 'N';
412: IF l_adj_hdr_tbl.COUNT > 0 THEN
556: OPEN c_get_cont_num(l_payment_schedule_id);
557: FETCH c_get_cont_num INTO l_contract_number;
558: CLOSE c_get_cont_num;
559:
560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
561: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
562:
563: OKC_API.set_message( p_app_name => G_APP_NAME
564: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
557: FETCH c_get_cont_num INTO l_contract_number;
558: CLOSE c_get_cont_num;
559:
560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
561: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
562:
563: OKC_API.set_message( p_app_name => G_APP_NAME
564: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
565: ,p_token1 => 'CONTRACT_NUMBER'
603: END;
604: END IF;
605: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
606:
607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
604: END IF;
605: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
606:
607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612: EXIT;
605: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
606:
607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612: EXIT;
613: END LOOP;
606:
607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612: EXIT;
613: END LOOP;
614: END LOOP;
618:
619: EXCEPTION
620:
621: WHEN OTHERS THEN
622: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
623: x_msg_count := l_msg_count ;
624: x_msg_data := sqlerrm ;
625:
626: END create_adjustments;
658: +===========================================================================*/
659:
660:
661: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
662: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
663: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
664: ,p_psl_id IN NUMBER
665: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
666: ,x_new_adj_id OUT NOCOPY NUMBER
659:
660:
661: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
662: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
663: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
664: ,p_psl_id IN NUMBER
665: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
666: ,x_new_adj_id OUT NOCOPY NUMBER
667: ,x_return_status OUT NOCOPY VARCHAR2
661: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
662: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
663: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
664: ,p_psl_id IN NUMBER
665: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
666: ,x_new_adj_id OUT NOCOPY NUMBER
667: ,x_return_status OUT NOCOPY VARCHAR2
668: ,x_msg_count OUT NOCOPY NUMBER
669: ,x_msg_data OUT NOCOPY VARCHAR2
913: ,p_msg_name =>'OKL_BPD_RECV_ACTVTY_NOT_SET'
914: );
915:
916: --RAISE G_EXCEPTION_HALT_VALIDATION; -- bug 6727171
917: RAISE OKL_API.G_EXCEPTION_ERROR; -- bug 6727171
918: END IF;
919:
920: -- 19-Sep-05 varao bug 4505226 Start
921: --Get amount due remaining for payment schedule
936: FETCH c_try_id INTO l_try_id;
937: CLOSE c_try_id;
938:
939: IF l_try_id IS NULL THEN
940: OKL_API.set_message(p_app_name => G_APP_NAME,
941: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
942: p_token1 => 'TRY_NAME',
943: p_token1_value => 'Adjustments');
944: RAISE OKL_API.G_EXCEPTION_ERROR;
940: OKL_API.set_message(p_app_name => G_APP_NAME,
941: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
942: p_token1 => 'TRY_NAME',
943: p_token1_value => 'Adjustments');
944: RAISE OKL_API.G_EXCEPTION_ERROR;
945: END IF;
946: l_adjv_rec.try_id :=l_try_id;
947: --Bug 6316320 dpsingh end
948: okl_trx_ar_adjsts_pub.insert_trx_ar_adjsts(
953: ,x_msg_data => l_msg_data
954: ,p_adjv_rec => l_adjv_rec
955: ,x_adjv_rec => x_adjv_rec);
956:
957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
958: OKL_API.set_message( p_app_name => G_APP_NAME,
959: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
960: END IF;
961:
954: ,p_adjv_rec => l_adjv_rec
955: ,x_adjv_rec => x_adjv_rec);
956:
957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
958: OKL_API.set_message( p_app_name => G_APP_NAME,
959: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
960: END IF;
961:
962: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
958: OKL_API.set_message( p_app_name => G_APP_NAME,
959: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
960: END IF;
961:
962: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
959: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
960: END IF;
961:
962: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967:
960: END IF;
961:
962: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967:
968: -- Get the payment schedule details
961:
962: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967:
968: -- Get the payment schedule details
969: OPEN c_pmnt_schedule_dtls(p_psl_id);
978: l_ajlv_rec.til_id := c_pmnt_schedule_dtls_rec.til_id;
979:
980: IF c_pmnt_schedule_dtls_rec.tld_id <> -999
981: AND c_pmnt_schedule_dtls_rec.tld_id IS NOT NULL
982: AND c_pmnt_schedule_dtls_rec.tld_id <> OKL_API.G_MISS_NUM THEN
983: l_ajlv_rec.tld_id := c_pmnt_schedule_dtls_rec.tld_id;
984: END IF;
985:
986: -- Bug 7138249 start
994: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
995: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
996: p_lookup_code=> 'ADJUSTMENTS',
997: p_validate_yn => 'Y');
998: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
999: OKL_API.set_message(
1000: p_app_name => G_APP_NAME,
1001: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1002: p_token1 => 'TRY_NAME',
995: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
996: p_lookup_code=> 'ADJUSTMENTS',
997: p_validate_yn => 'Y');
998: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
999: OKL_API.set_message(
1000: p_app_name => G_APP_NAME,
1001: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1002: p_token1 => 'TRY_NAME',
1003: p_token1_value => l_trans_meaning);
1020: x_currency_conversion_type => l_currency_conversion_type,
1021: x_currency_conversion_rate => l_currency_conversion_rate,
1022: x_currency_conversion_date => l_currency_conversion_date,
1023: x_converted_amount => l_converted_amount);
1024: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1025: OKL_API.set_message(
1026: p_app_name => G_APP_NAME,
1027: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
1028: p_token1 => 'TRX_TYPE',
1021: x_currency_conversion_rate => l_currency_conversion_rate,
1022: x_currency_conversion_date => l_currency_conversion_date,
1023: x_converted_amount => l_converted_amount);
1024: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1025: OKL_API.set_message(
1026: p_app_name => G_APP_NAME,
1027: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
1028: p_token1 => 'TRX_TYPE',
1029: p_token1_value => l_trans_meaning);
1033: 'OKL_CREATE_ADJST_PVT.write_off_balances.',
1034: 'currency_conv_error = '||l_return_status );
1035: END IF;
1036:
1037: RAISE OKL_API.G_EXCEPTION_ERROR;
1038:
1039: END IF;
1040:
1041: -- Bug 7138249 end
1053: ,x_msg_data => l_msg_data
1054: ,p_ajlv_rec => l_ajlv_rec
1055: ,x_ajlv_rec => x_ajlv_rec);
1056:
1057: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1058: OKL_API.set_message( p_app_name => G_APP_NAME,
1059: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1060: END IF;
1061:
1054: ,p_ajlv_rec => l_ajlv_rec
1055: ,x_ajlv_rec => x_ajlv_rec);
1056:
1057: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1058: OKL_API.set_message( p_app_name => G_APP_NAME,
1059: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1060: END IF;
1061:
1062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1058: OKL_API.set_message( p_app_name => G_APP_NAME,
1059: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1060: END IF;
1061:
1062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1065: RAISE OKL_API.G_EXCEPTION_ERROR;
1066: END IF;
1059: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1060: END IF;
1061:
1062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1065: RAISE OKL_API.G_EXCEPTION_ERROR;
1066: END IF;
1067:
1060: END IF;
1061:
1062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1065: RAISE OKL_API.G_EXCEPTION_ERROR;
1066: END IF;
1067:
1068: -- Get the product id
1061:
1062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1065: RAISE OKL_API.G_EXCEPTION_ERROR;
1066: END IF;
1067:
1068: -- Get the product id
1069: OPEN c_prod_id(c_pmnt_schedule_dtls_rec.contract_id);
1072:
1073: l_contract_number := c_pmnt_schedule_dtls_rec.contract_number;
1074:
1075: IF l_pdt_id IS NULL OR l_pdt_id = 0 THEN
1076: OKL_API.set_message(p_app_name => G_APP_NAME,
1077: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
1078: p_token1 => 'CONTRACT_NUMBER',
1079: p_token1_value => l_contract_number);
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1076: OKL_API.set_message(p_app_name => G_APP_NAME,
1077: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
1078: p_token1 => 'CONTRACT_NUMBER',
1079: p_token1_value => l_contract_number);
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081: END IF;
1082:
1083: -- Do accounting entries to get code_combination_id
1084: -- Set the tmpl_identify_rec in parameter
1111: p_contract_line_id => NULL,
1112: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
1113: x_return_status => l_return_status);
1114:
1115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1118: RAISE OKL_API.G_EXCEPTION_ERROR;
1119: END IF;
1112: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
1113: x_return_status => l_return_status);
1114:
1115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1118: RAISE OKL_API.G_EXCEPTION_ERROR;
1119: END IF;
1120:
1113: x_return_status => l_return_status);
1114:
1115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1118: RAISE OKL_API.G_EXCEPTION_ERROR;
1119: END IF;
1120:
1121: l_acc_gen_tbl(1).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
1114:
1115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1118: RAISE OKL_API.G_EXCEPTION_ERROR;
1119: END IF;
1120:
1121: l_acc_gen_tbl(1).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
1122: l_acc_gen_tbl(1).source_id := x_ajlv_rec.id;
1133: ,p_trx_date => sysdate
1134: ,x_fact_synd_code => l_tmpl_identify_tbl(1).FACTORING_SYND_FLAG
1135: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
1136:
1137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1134: ,x_fact_synd_code => l_tmpl_identify_tbl(1).FACTORING_SYND_FLAG
1135: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
1136:
1137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1142: -- 19-Sep-05 varao bug 4622198 End
1135: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
1136:
1137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1142: -- 19-Sep-05 varao bug 4622198 End
1143:
1136:
1137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1140: RAISE OKL_API.G_EXCEPTION_ERROR;
1141: END IF;
1142: -- 19-Sep-05 varao bug 4622198 End
1143:
1144: -- Call accounting engine
1157: x_amount_tbl => l_amount_out_tbl,
1158: p_trx_header_id => x_adjv_rec.id,
1159: p_trx_header_table =>'OKL_TRX_AR_ADJSTS_B');
1160:
1161: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1162: OKL_API.set_message( p_app_name => G_APP_NAME,
1163: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
1164: p_token1 => 'TRX_TYPE',
1165: p_token1_value => 'Adjustments',
1158: p_trx_header_id => x_adjv_rec.id,
1159: p_trx_header_table =>'OKL_TRX_AR_ADJSTS_B');
1160:
1161: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1162: OKL_API.set_message( p_app_name => G_APP_NAME,
1163: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
1164: p_token1 => 'TRX_TYPE',
1165: p_token1_value => 'Adjustments',
1166: p_token2 => 'STREAM_TYPE',
1166: p_token2 => 'STREAM_TYPE',
1167: p_token2_value => c_pmnt_schedule_dtls_rec.stream_name);
1168: END IF;
1169:
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1167: p_token2_value => c_pmnt_schedule_dtls_rec.stream_name);
1168: END IF;
1169:
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175:
1168: END IF;
1169:
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175:
1176: OPEN get_account_derivation_meth;
1169:
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175:
1176: OPEN get_account_derivation_meth;
1177: FETCH get_account_derivation_meth INTO l_account_derivation;
1183: FETCH c_code_combination_id INTO l_code_combination_id;
1184: CLOSE c_code_combination_id;
1185:
1186: IF l_code_combination_id = -1 OR l_code_combination_id IS NULL THEN
1187: OKL_API.set_message( p_app_name => G_APP_NAME,
1188: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
1189: p_token1 => 'CONTRACT_NUMBER',
1190: p_token1_value => l_contract_number);
1191: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: OKL_API.set_message( p_app_name => G_APP_NAME,
1188: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
1189: p_token1 => 'CONTRACT_NUMBER',
1190: p_token1_value => l_contract_number);
1191: RAISE OKL_API.G_EXCEPTION_ERROR;
1192: END IF;
1193:
1194: -- Update adjusment line record in okl_txl_adjsts_lns_b with CCID
1195: l_ajlv_rec := l_ajlv_new_rec; -- Empty the rec
1208: x_msg_data => l_msg_data,
1209: p_ajlv_rec => l_ajlv_rec,
1210: x_ajlv_rec => x_ajlv_rec);
1211:
1212: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1213: OKL_API.set_message( p_app_name => G_APP_NAME,
1214: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1215: END IF;
1216:
1209: p_ajlv_rec => l_ajlv_rec,
1210: x_ajlv_rec => x_ajlv_rec);
1211:
1212: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1213: OKL_API.set_message( p_app_name => G_APP_NAME,
1214: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1215: END IF;
1216:
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1213: OKL_API.set_message( p_app_name => G_APP_NAME,
1214: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1215: END IF;
1216:
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1214: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1215: END IF;
1216:
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1222: END IF;
1215: END IF;
1216:
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1222: END IF;
1223: -- 19-Sep-05 varao bug 4505226 End
1216:
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1222: END IF;
1223: -- 19-Sep-05 varao bug 4505226 End
1224: END LOOP;
1238:
1239: x_return_status := l_return_status;
1240: x_new_adj_id := l_new_adj_id;
1241:
1242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1239: x_return_status := l_return_status;
1240: x_new_adj_id := l_new_adj_id;
1241:
1242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1240: x_new_adj_id := l_new_adj_id;
1241:
1242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1248: ELSE
1241:
1242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1248: ELSE
1249:
1246: END IF;
1247:
1248: ELSE
1249:
1250: Okl_api.set_message( p_app_name => g_app_name
1251: , p_msg_name => 'OKL_NO_RECORD' ) ;
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253:
1254: END IF;
1248: ELSE
1249:
1250: Okl_api.set_message( p_app_name => g_app_name
1251: , p_msg_name => 'OKL_NO_RECORD' ) ;
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253:
1254: END IF;
1255:
1256: EXCEPTION
1255:
1256: EXCEPTION
1257:
1258: --Added snizam
1259: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1260: x_return_status := Okl_Api.G_RET_STS_ERROR;
1261: x_msg_count := l_msg_count ;
1262: x_msg_data := l_msg_data ;
1263:
1256: EXCEPTION
1257:
1258: --Added snizam
1259: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1260: x_return_status := Okl_Api.G_RET_STS_ERROR;
1261: x_msg_count := l_msg_count ;
1262: x_msg_data := l_msg_data ;
1263:
1264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1260: x_return_status := Okl_Api.G_RET_STS_ERROR;
1261: x_msg_count := l_msg_count ;
1262: x_msg_data := l_msg_data ;
1263:
1264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1265: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1266: x_msg_count := l_msg_count ;
1267: x_msg_data := l_msg_data ;
1268: --End snizam
1261: x_msg_count := l_msg_count ;
1262: x_msg_data := l_msg_data ;
1263:
1264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1265: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1266: x_msg_count := l_msg_count ;
1267: x_msg_data := l_msg_data ;
1268: --End snizam
1269:
1267: x_msg_data := l_msg_data ;
1268: --End snizam
1269:
1270: WHEN OTHERS THEN
1271: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1272: x_msg_count := l_msg_count ;
1273: x_msg_data := l_msg_data ;
1274:
1275: END iex_create_adjustments;