46:
47: EXCEPTION
48:
49: WHEN OTHERS THEN
50: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
51: p_msg_name => G_UNEXPECTED_ERROR,
52: p_token1 => G_SQLCODE_TOKEN,
53: p_token1_value => SQLCODE,
54: p_token2 => G_SQLERRM_TOKEN,
64: PROCEDURE AddMissingArgMsg
65: ( p_api_name IN VARCHAR2,
66: p_param_name IN VARCHAR2 )IS
67: BEGIN
68: fnd_message.set_name('OKL', 'OKL_API_ALL_MISSING_PARAM');
69: fnd_message.set_token('API_NAME', p_api_name);
70: fnd_message.set_token('MISSING_PARAM', p_param_name);
71: fnd_msg_pub.add;
72:
375: - nvl(p_cam_tbl(i).negotiated_amount,0);
376: END IF;
377: END IF;
378:
379: IF lp_camv_rec.short_fund_amount = OKL_API.G_MISS_NUM
380: THEN
381: lp_camv_rec.short_fund_amount :=NULL;
382: END IF;
383:
642: x_tldv_rec => xp_tldv_rec);
643:
644: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_tld_pvt.update_row : '||l_return_status);
645:
646: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
647: THEN
648: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
649: THEN
650: x_return_status := l_return_status;
644: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_tld_pvt.update_row : '||l_return_status);
645:
646: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
647: THEN
648: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
649: THEN
650: x_return_status := l_return_status;
651: END IF;
652: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
721: -- End of comments
722: ----------------------------------------------------------------------------------
723: PROCEDURE additional_tld_attr(
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_tldv_rec IN okl_tld_pvt.tldv_rec_type
730: ,x_tldv_rec OUT NOCOPY okl_tld_pvt.tldv_rec_type )
731: IS
732: l_api_name CONSTANT VARCHAR2(30) := 'additional_tld_attr';
733: l_api_version CONSTANT NUMBER := 1.0;
734: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
735:
736: -- Get currency attributes
737: CURSOR l_curr_csr(p_khr_id number) IS
738: SELECT c.minimum_accountable_unit,
768: p_api_version,
769: l_api_name,
770: G_PKG_NAME ))
771: THEN
772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
773: END IF;
774:
775: -- Initialize message list if requested
776: IF (FND_API.to_Boolean(p_init_msg_list))
778: FND_MSG_PUB.initialize;
779: END IF;
780:
781: -- Initialize API status to success
782: x_return_status := OKL_API.G_RET_STS_SUCCESS;
783:
784:
785: /*** Begin API body ****************************************************/
786: -- assign all passed in attributes from IN to OUT record
846: (p_count => x_msg_count,
847: p_data => x_msg_data);
848:
849: EXCEPTION
850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
851: ROLLBACK TO additional_tld_attr;
852: x_return_status := OKL_API.G_RET_STS_ERROR;
853: FND_MSG_PUB.Count_And_Get
854: (p_count => x_msg_count,
848:
849: EXCEPTION
850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
851: ROLLBACK TO additional_tld_attr;
852: x_return_status := OKL_API.G_RET_STS_ERROR;
853: FND_MSG_PUB.Count_And_Get
854: (p_count => x_msg_count,
855: p_data => x_msg_data);
856:
853: FND_MSG_PUB.Count_And_Get
854: (p_count => x_msg_count,
855: p_data => x_msg_data);
856:
857: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
858: ROLLBACK TO additional_tld_attr;
859: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
860: FND_MSG_PUB.Count_And_Get
861: (p_count => x_msg_count,
855: p_data => x_msg_data);
856:
857: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
858: ROLLBACK TO additional_tld_attr;
859: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
860: FND_MSG_PUB.Count_And_Get
861: (p_count => x_msg_count,
862: p_data => x_msg_data);
863:
862: p_data => x_msg_data);
863:
864: WHEN OTHERS THEN
865: ROLLBACK TO additional_tld_attr;
866: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
867: OKL_API.Set_Message(p_app_name => G_APP_NAME,
868: p_msg_name => G_UNEXPECTED_ERROR,
869: p_token1 => G_SQLCODE_TOKEN,
870: p_token1_value => SQLCODE,
863:
864: WHEN OTHERS THEN
865: ROLLBACK TO additional_tld_attr;
866: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
867: OKL_API.Set_Message(p_app_name => G_APP_NAME,
868: p_msg_name => G_UNEXPECTED_ERROR,
869: p_token1 => G_SQLCODE_TOKEN,
870: p_token1_value => SQLCODE,
871: p_token2 => G_SQLERRM_TOKEN,
1057: lp_taiv_rec.currency_conversion_rate := NULL;
1058: END IF;
1059:
1060:
1061: IF(lp_taiv_rec.currency_conversion_type IS NULL OR lp_taiv_rec.currency_conversion_date = OKL_API.G_MISS_DATE) THEN
1062: lp_taiv_rec.currency_conversion_type := 'User';
1063: lp_taiv_rec.currency_conversion_rate := 1;
1064: lp_taiv_rec.currency_conversion_date := SYSDATE;
1065: END IF;
1079: END IF;
1080:
1081: IF lp_taiv_rec.khr_id IS NULL
1082: THEN
1083: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1084: p_msg_name => G_REQUIRED_VALUE,
1085: p_token1 => 'COL_NAME',
1086: p_token1_value => 'Contract Id');
1087: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1099: END IF;
1100:
1101: IF lp_taiv_rec.try_id IS NULL
1102: THEN
1103: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1104: p_msg_name => G_REQUIRED_VALUE,
1105: p_token1 => 'COL_NAME',
1106: p_token1_value => 'Transaction Type');
1107: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1125: END IF;
1126:
1127: IF lp_tilv_rec.sty_id IS NULL
1128: THEN
1129: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1130: p_msg_name => G_REQUIRED_VALUE,
1131: p_token1 => 'COL_NAME',
1132: p_token1_value => 'Sty Id');
1133: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1144: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : l_program_id : '||l_program_id);
1145:
1146: IF l_program_id IS NULL
1147: THEN
1148: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1149: p_msg_name => G_REQUIRED_VALUE,
1150: p_token1 => 'COL_NAME',
1151: p_token1_value => 'Vendor Program');
1152: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1169: IF (G_IS_DEBUG_STATEMENT_ON = true)
1170: THEN
1171: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Retrieval of Bill To Address Id failed');
1172: END IF;
1173: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1174: p_msg_name => 'OKL_REQUIRED_VALUE',
1175: p_token1 => 'COL_NAME',
1176: p_token1_value => 'Bill To Address Id');
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1174: p_msg_name => 'OKL_REQUIRED_VALUE',
1175: p_token1 => 'COL_NAME',
1176: p_token1_value => 'Bill To Address Id');
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179:
1180: l_btc_id :=l_bill_to_address_id;
1181:
1214: END IF;
1215:
1216: IF lp_taiv_rec.ixx_id IS NULL OR lp_taiv_rec.ixx_id = FND_API.G_MISS_NUM
1217: THEN
1218: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1219: p_msg_name => G_REQUIRED_VALUE,
1220: p_token1 => 'COL_NAME',
1221: p_token1_value => 'Customer Account Id');
1222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1223: END IF;
1224:
1225: IF lp_taiv_rec.ibt_id IS NULL OR lp_taiv_rec.ibt_id = FND_API.G_MISS_NUM
1226: THEN
1227: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1228: p_msg_name => G_REQUIRED_VALUE,
1229: p_token1 => 'COL_NAME',
1230: p_token1_value => 'Bill To Address Id');
1231: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238:
1239: IF lp_taiv_rec.irt_id IS NULL OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM
1240: THEN
1241: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1242: p_msg_name => G_REQUIRED_VALUE,
1243: p_token1 => 'COL_NAME',
1244: p_token1_value => 'Payment Term Id');
1245: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1269: IF (G_IS_DEBUG_STATEMENT_ON = true)
1270: THEN
1271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Retrieval of Payment Method Id failed');
1272: END IF;
1273: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1274: p_msg_name => 'OKL_REQUIRED_VALUE',
1275: p_token1 => 'COL_NAME',
1276: p_token1_value => 'Payment Method ');
1277: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1288: IF (G_IS_DEBUG_STATEMENT_ON = true)
1289: THEN
1290: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'receipt method id is not found');
1291: END IF;
1292: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1293: p_msg_name => 'OKL_REQUIRED_VALUE',
1294: p_token1 => 'COL_NAME',
1295: p_token1_value => 'receipt method id ');
1296: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1424: lp_tldv_rec.txl_ar_line_number :=1;
1425:
1426: okl_internal_billing_pvt.Get_Invoice_format(
1427: p_api_version => 1.0
1428: ,p_init_msg_list => OKL_API.G_FALSE
1429: ,x_return_status => l_return_status
1430: ,x_msg_count => x_msg_count
1431: ,x_msg_data => x_msg_data
1432: ,p_inf_id => lp_taiv_rec.inf_id
1435: ,x_invoice_format_line_type => lp_tldv_rec.invoice_format_line_type);
1436:
1437: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_internal_billing_pvt.Get_Invoice_format : '||l_return_status);
1438:
1439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1440: THEN
1441: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1443: THEN
1438:
1439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1440: THEN
1441: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1443: THEN
1444: RAISE Fnd_Api.G_EXC_ERROR;
1445: END IF;
1446:
1445: END IF;
1446:
1447: additional_tld_attr(
1448: p_api_version => 1.0,
1449: p_init_msg_list => OKL_API.G_FALSE,
1450: x_return_status => l_return_status,
1451: x_msg_count => x_msg_count,
1452: x_msg_data => x_msg_data,
1453: p_tldv_rec => lp_tldv_rec,
1456: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : additional_tld_attr : '||l_return_status);
1457:
1458: lp_tldv_rec := xp_tldv_rec;
1459:
1460: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1461: THEN
1462: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
1463: THEN
1464: x_return_status := l_return_status;
1458: lp_tldv_rec := xp_tldv_rec;
1459:
1460: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1461: THEN
1462: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
1463: THEN
1464: x_return_status := l_return_status;
1465: END IF;
1466: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468:
1469: okl_tld_pvt.insert_row(
1470: p_api_version => 1.0,
1471: p_init_msg_list => OKL_API.G_FALSE,
1472: x_return_status => l_return_status,
1473: x_msg_count => x_msg_count,
1474: x_msg_data => x_msg_data,
1475: p_tldv_rec => lp_tldv_rec,
1476: x_tldv_rec => xp_tldv_rec);
1477:
1478: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_tld_pvt.insert_row : '||l_return_status);
1479:
1480: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1481: THEN
1482: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
1483: THEN
1484: x_return_status := l_return_status;
1478: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_tld_pvt.insert_row : '||l_return_status);
1479:
1480: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS)
1481: THEN
1482: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR)
1483: THEN
1484: x_return_status := l_return_status;
1485: END IF;
1486: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2158: CLOSE get_product_id;
2159:
2160: IF l_tmpl_identify_tbl(1).product_id IS NULL
2161: THEN
2162: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
2163: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
2164: raise FND_API.G_EXC_ERROR;
2165: END IF;
2166:
2331:
2332: --Bug# 4622198 :For special accounting treatment - START
2333: OKL_SECURITIZATION_PVT.Check_Khr_ia_associated(
2334: p_api_version => 1.0,
2335: p_init_msg_list => OKL_API.G_FALSE,
2336: x_return_status => x_return_status,
2337: x_msg_count => x_msg_count,
2338: x_msg_data => x_msg_data,
2339: p_khr_id => l_khr_id,
2345: );
2346:
2347: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : OKL_SECURITIZATION_PVT.Check_Khr_ia_associated : '||x_return_status);
2348:
2349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2350: THEN
2351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
2353: THEN
2347: okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : CREATE_ACCOUNTING : OKL_SECURITIZATION_PVT.Check_Khr_ia_associated : '||x_return_status);
2348:
2349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2350: THEN
2351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
2353: THEN
2354: RAISE OKL_API.G_EXCEPTION_ERROR;
2355: END IF;
2348:
2349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2350: THEN
2351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
2353: THEN
2354: RAISE OKL_API.G_EXCEPTION_ERROR;
2355: END IF;
2356:
2350: THEN
2351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
2353: THEN
2354: RAISE OKL_API.G_EXCEPTION_ERROR;
2355: END IF;
2356:
2357: l_tmpl_identify_tbl(1).factoring_synd_flag := l_fact_synd_code;
2358: l_tmpl_identify_tbl(1).investor_code := l_inv_acct_code;
2385:
2386: -- R12 CHANGE - START
2387: okl_account_dist_pvt.create_accounting_dist(
2388: p_api_version => 1.0,
2389: p_init_msg_list => OKL_API.G_FALSE,
2390: x_return_status => l_return_status,
2391: x_msg_count => l_msg_count,
2392: x_msg_data => l_msg_data,
2393: p_tmpl_identify_tbl => l_tmpl_identify_tbl,