[Home] [Help]
36: l_api_name CONSTANT VARCHAR2(30) := 'process_transactions_wrap';
37: l_total_count NUMBER;
38: l_processed_count NUMBER;
39: l_error_count NUMBER;
40: lx_error_rec OKL_API.error_rec_type;
41: l_msg_idx INTEGER := FND_MSG_PUB.G_FIRST;
42:
43: BEGIN
44:
111: EXCEPTION
112: WHEN OTHERS THEN
113: -- unexpected error
114: -- SECHAWLA 16-JAN-03 Bug # 2754280 : Changed the app name from OKL to OKC
115: OKL_API.set_message(p_app_name => 'OKC',
116: p_msg_name => g_unexpected_error,
117: p_token1 => g_sqlcode_token,
118: p_token1_value => sqlcode,
119: p_token2 => g_sqlerrm_token,
402: l_dep_cost NUMBER;
403: l_sal_value NUMBER;
404:
405:
406: TYPE trxassets_rec_type IS RECORD( id NUMBER DEFAULT OKL_API.G_MISS_NUM,
407: asset_number VARCHAR2(15) DEFAULT OKL_API.G_MISS_CHAR,
408: asset_book VARCHAR2(70) DEFAULT OKL_API.G_MISS_CHAR,
409: tas_type_meaning VARCHAR2(80) DEFAULT OKL_API.G_MISS_CHAR
410: );
403: l_sal_value NUMBER;
404:
405:
406: TYPE trxassets_rec_type IS RECORD( id NUMBER DEFAULT OKL_API.G_MISS_NUM,
407: asset_number VARCHAR2(15) DEFAULT OKL_API.G_MISS_CHAR,
408: asset_book VARCHAR2(70) DEFAULT OKL_API.G_MISS_CHAR,
409: tas_type_meaning VARCHAR2(80) DEFAULT OKL_API.G_MISS_CHAR
410: );
411:
404:
405:
406: TYPE trxassets_rec_type IS RECORD( id NUMBER DEFAULT OKL_API.G_MISS_NUM,
407: asset_number VARCHAR2(15) DEFAULT OKL_API.G_MISS_CHAR,
408: asset_book VARCHAR2(70) DEFAULT OKL_API.G_MISS_CHAR,
409: tas_type_meaning VARCHAR2(80) DEFAULT OKL_API.G_MISS_CHAR
410: );
411:
412: TYPE trxassets_tbl_type IS TABLE OF trxassets_rec_type INDEX BY BINARY_INTEGER;
405:
406: TYPE trxassets_rec_type IS RECORD( id NUMBER DEFAULT OKL_API.G_MISS_NUM,
407: asset_number VARCHAR2(15) DEFAULT OKL_API.G_MISS_CHAR,
408: asset_book VARCHAR2(70) DEFAULT OKL_API.G_MISS_CHAR,
409: tas_type_meaning VARCHAR2(80) DEFAULT OKL_API.G_MISS_CHAR
410: );
411:
412: TYPE trxassets_tbl_type IS TABLE OF trxassets_rec_type INDEX BY BINARY_INTEGER;
413:
436: -- Bug 6459571
437: l_org_id NUMBER;
438: BEGIN
439:
440: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
441: G_PKG_NAME,
442: p_init_msg_list,
443: l_api_version,
444: p_api_version,
517:
518: -- get the deal type from the contract
519: OPEN l_dealtype_csr(l_assettrx_rec.kle_id);
520: FETCH l_dealtype_csr INTO l_chr_id, l_deal_type, l_contract_number;
521: IF l_dealtype_csr%NOTFOUND OR l_deal_type IS NULL OR l_deal_type = OKL_API.G_MISS_CHAR THEN
522: -- Can not find deal type for asset ASSET_NUMBER.
523: OKC_API.set_message( p_app_name => 'OKL',
524: p_msg_name => 'OKL_AM_DEAL_TYPE_NOT_FOUND',
525: p_token1 => 'ASSET_NUMBER',
527:
528: l_transaction_status := OKC_API.G_RET_STS_ERROR;
529: ELSE
530:
531: IF l_assettrx_rec.asset_book IS NULL OR l_assettrx_rec.asset_book = OKL_API.G_MISS_CHAR THEN
532: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER as FIELD is missing.
533: OKC_API.set_message( p_app_name => 'OKL',
534: p_msg_name => 'OKL_AM_NO_ASSET_BOOK',
535: p_token1 => 'TRX_TYPE',
541:
542: l_transaction_status := OKC_API.G_RET_STS_ERROR;
543: -- SECHAWLA 06-MAY-04 3578894 Added new tas types 'AUD','AUS' to following condition
544: ELSIF (l_assettrx_rec.tas_type IN ('AMT','AUD','AUS')) AND (l_assettrx_rec.depreciate_yn IS NULL OR
545: l_assettrx_rec.depreciate_yn = OKL_API.G_MISS_CHAR) THEN
546: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as depreciate (Y/N) flag is missing.
547: OKC_API.set_message( p_app_name => 'OKL',
548: p_msg_name => 'OKL_AM_DATA_REQUIRED',
549: p_token1 => 'TRX_TYPE',
555: p_token4 => 'FIELD',
556: p_token4_value => 'Depreciate (Y/N) flag');
557:
558: l_transaction_status := OKC_API.G_RET_STS_ERROR;
559: ELSIF l_assettrx_rec.dnz_asset_id IS NULL OR l_assettrx_rec.dnz_asset_id = OKL_API.G_MISS_NUM THEN
560: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as Asset ID
561: -- is missing.
562: OKC_API.set_message( p_app_name => 'OKL',
563: p_msg_name => 'OKL_AM_DATA_REQUIRED',
581:
582: IF (l_facostsv_csr%NOTFOUND) THEN
583: --This combination of Asset ASSET and Book BOOK is invalid.
584:
585: OKL_API.set_message(
586: p_app_name => 'OKL',
587: p_msg_name => 'OKL_AM_INVALID_ASSET_BOOK',
588: p_token1 => 'ASSET_NUMBER',
589: p_token1_value => l_assettrx_rec.asset_number,
589: p_token1_value => l_assettrx_rec.asset_number,
590: p_token2 => 'BOOK',
591: p_token2_value => l_assettrx_rec.asset_book);
592:
593: l_transaction_status := OKL_API.G_RET_STS_ERROR;
594:
595: ELSIF (l_fa_life_in_months IS NULL AND l_fa_deprn_rate IS NULL) THEN
596:
597: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as Cost / salvage Value
606: p_token3_value => l_assettrx_rec.asset_book,
607: p_token4 => 'FIELD',
608: p_token4_value => 'Life In Months / Adjusted Rate');
609:
610: l_transaction_status := OKL_API.G_RET_STS_ERROR;
611:
612:
613: -- SECHAWLA 06-MAY-04 3578894 : Added this scenario to just stop the depreciation
614: ELSIF l_assettrx_rec.tas_type = 'AUD' AND l_assettrx_rec.depreciate_yn = 'N' THEN
695: x_msg_data => x_msg_data);
696:
697: IF (x_return_status = okc_api.g_ret_sts_unexp_error)
698: THEN
699: RAISE okl_api.g_exception_unexpected_error;
700: ELSIF (x_return_status = okc_api.g_ret_sts_error)
701: THEN
702: RAISE okl_api.g_exception_error;
703: END IF;
698: THEN
699: RAISE okl_api.g_exception_unexpected_error;
700: ELSIF (x_return_status = okc_api.g_ret_sts_error)
701: THEN
702: RAISE okl_api.g_exception_error;
703: END IF;
704: --akrangan populate sources cr end
705: ELSE -- 17-DEC-04 SECHAWLA 4028371 added else section
706: OKL_ACCOUNTING_UTIL.get_fa_trx_date(
810: x_msg_data => x_msg_data);
811:
812: IF (x_return_status = okc_api.g_ret_sts_unexp_error)
813: THEN
814: RAISE okl_api.g_exception_unexpected_error;
815: ELSIF (x_return_status = okc_api.g_ret_sts_error)
816: THEN
817: RAISE okl_api.g_exception_error;
818: END IF;
813: THEN
814: RAISE okl_api.g_exception_unexpected_error;
815: ELSIF (x_return_status = okc_api.g_ret_sts_error)
816: THEN
817: RAISE okl_api.g_exception_error;
818: END IF;
819: --akrangan populate sources cr changes end
820: ELSIF l_deal_type IN ('LEASEDF','LEASEST') THEN -- 17-DEC-04 SECHAWLA 4028371 added else section
821: OKL_ACCOUNTING_UTIL.get_fa_trx_date(
843: (l_assettrx_rec.tas_type = 'AMT') AND (l_assettrx_rec.depreciate_yn = 'Y')
844:
845: ) THEN
846:
847: IF l_assettrx_rec.deprn_method IS NULL OR l_assettrx_rec.deprn_method = OKL_APi.G_MISS_CHAR THEN
848: -- Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as FIELD is missing.
849: OKC_API.set_message( p_app_name => 'OKL',
850: p_msg_name => 'OKL_AM_DATA_REQUIRED',
851: p_token1 => 'TRX_TYPE',
856: p_token3_value => l_assettrx_rec.asset_book,
857: p_token4 => 'FIELD',
858: p_token4_value => 'Depreciation Method');
859: l_transaction_status := OKC_API.G_RET_STS_ERROR;
860: ELSIF ( (l_assettrx_rec.life_in_months IS NULL OR l_assettrx_rec.life_in_months = OKL_APi.G_MISS_NUM)
861: AND --SECHAWLA 28-MAY-04 3645574 : Added deprn_rate check
862: (l_assettrx_rec.deprn_rate IS NULL OR l_assettrx_rec.deprn_rate = OKL_APi.G_MISS_NUM)
863: ) THEN
864: -- Can not process transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as FIELD is missing.
858: p_token4_value => 'Depreciation Method');
859: l_transaction_status := OKC_API.G_RET_STS_ERROR;
860: ELSIF ( (l_assettrx_rec.life_in_months IS NULL OR l_assettrx_rec.life_in_months = OKL_APi.G_MISS_NUM)
861: AND --SECHAWLA 28-MAY-04 3645574 : Added deprn_rate check
862: (l_assettrx_rec.deprn_rate IS NULL OR l_assettrx_rec.deprn_rate = OKL_APi.G_MISS_NUM)
863: ) THEN
864: -- Can not process transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as FIELD is missing.
865: OKC_API.set_message( p_app_name => 'OKL',
866: p_msg_name => 'OKL_AM_DATA_REQUIRED',
873: p_token4 => 'FIELD',
874: p_token4_value => 'Life In Months / Depreciation Rate'); --SECHAWLA 28-MAY-04 3645574 : Added deprn_rate
875: l_transaction_status := OKC_API.G_RET_STS_ERROR;
876:
877: ELSIF l_assettrx_rec.salvage_value IS NULL OR l_assettrx_rec.salvage_value = OKL_APi.G_MISS_NUM THEN
878: -- Can not process transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as FIELD is missing.
879: OKC_API.set_message( p_app_name => 'OKL',
880: p_msg_name => 'OKL_AM_DATA_REQUIRED',
881: p_token1 => 'TRX_TYPE',
1038: x_msg_data => x_msg_data);
1039:
1040: IF (x_return_status = okc_api.g_ret_sts_unexp_error)
1041: THEN
1042: RAISE okl_api.g_exception_unexpected_error;
1043: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1044: THEN
1045: RAISE okl_api.g_exception_error;
1046: END IF;
1041: THEN
1042: RAISE okl_api.g_exception_unexpected_error;
1043: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1044: THEN
1045: RAISE okl_api.g_exception_error;
1046: END IF;
1047: --akrangan populate sources cr changes end
1048: ELSE -- 17-DEC-04 SECHAWLA 4028371 added else section
1049: OKL_ACCOUNTING_UTIL.get_fa_trx_date(
1151: x_msg_data => x_msg_data);
1152:
1153: IF (x_return_status = okc_api.g_ret_sts_unexp_error)
1154: THEN
1155: RAISE okl_api.g_exception_unexpected_error;
1156: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1157: THEN
1158: RAISE okl_api.g_exception_error;
1159: END IF;
1154: THEN
1155: RAISE okl_api.g_exception_unexpected_error;
1156: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1157: THEN
1158: RAISE okl_api.g_exception_error;
1159: END IF;
1160: --akrangan populate sources cr changes end
1161: ELSE -- 17-DEC-04 SECHAWLA 4028371 added else section
1162: OKL_ACCOUNTING_UTIL.get_fa_trx_date(
1178:
1179: END IF; --IF l_assettrx_rec.asset_book IS NULL...
1180:
1181:
1182: END IF; --IF l_dealtype_csr%NOTFOUND OR l_deal_type IS NULL OR l_deal_type = OKL_API.G_MISS_CHAR THEN
1183: CLOSE l_dealtype_csr;
1184: --------------
1185:
1186: -- 17-DEC-04 SECHAWLA 4028371 : update FA trx date on the trx line
1208: p_token2_value => l_assettrx_rec.asset_number,
1209: p_token3 => 'BOOK',
1210: p_token3_value => l_assettrx_rec.asset_book);
1211:
1212: l_transaction_status := OKL_API.G_RET_STS_ERROR;
1213: END IF;
1214: END IF;
1215: -- 17-DEC-04 SECHAWLA 4028371 : end
1216: ---------------------------------------
1375:
1376: -- get the deal type from the contract
1377: OPEN l_dealtype_csr(l_assetsvtrx_rec.kle_id);
1378: FETCH l_dealtype_csr INTO l_chr_id, l_deal_type, l_contract_number;
1379: IF l_dealtype_csr%NOTFOUND OR l_deal_type IS NULL OR l_deal_type = OKL_API.G_MISS_CHAR THEN
1380: -- Can not find deal type for asset ASSET_NUMBER.
1381: OKC_API.set_message( p_app_name => 'OKL',
1382: p_msg_name => 'OKL_AM_DEAL_TYPE_NOT_FOUND',
1383: p_token1 => 'ASSET_NUMBER',
1385:
1386: l_transaction_status := OKC_API.G_RET_STS_ERROR;
1387: ELSE
1388:
1389: IF l_assetsvtrx_rec.asset_book IS NULL OR l_assetsvtrx_rec.asset_book = OKL_API.G_MISS_CHAR THEN
1390: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER as FIELD is missing.
1391: OKC_API.set_message( p_app_name => 'OKL',
1392: p_msg_name => 'OKL_AM_NO_ASSET_BOOK',
1393: p_token1 => 'TRX_TYPE',
1401: -- SECHAWLA 06-MAY-04 3578894 Added new tas types 'AUD','AUS' to following condition
1402:
1403:
1404:
1405: ELSIF l_assetsvtrx_rec.dnz_asset_id IS NULL OR l_assetsvtrx_rec.dnz_asset_id = OKL_API.G_MISS_NUM THEN
1406: --Can not process TRX_TYPE transaction in Fixed Assets for asset ASSET_NUMBER and book ASSET_BOOK as Asset ID
1407: -- is missing.
1408: OKC_API.set_message( p_app_name => 'OKL',
1409: p_msg_name => 'OKL_AM_DATA_REQUIRED',
1439: p_token4 => 'FIELD',
1440: p_token4_value => 'Cost / Salvage Value');
1441:
1442:
1443: l_transaction_status := OKL_API.G_RET_STS_ERROR;
1444:
1445:
1446: ELSIF l_assetsvtrx_rec.salvage_value IS NULL OR l_assetsvtrx_rec.salvage_value = OKL_API.G_MISS_NUM THEN
1447: -- Can not process TRX_TYPE transaction for asset ASSET_NUMBER in Fixed Assets as FIELD is missing.
1442:
1443: l_transaction_status := OKL_API.G_RET_STS_ERROR;
1444:
1445:
1446: ELSIF l_assetsvtrx_rec.salvage_value IS NULL OR l_assetsvtrx_rec.salvage_value = OKL_API.G_MISS_NUM THEN
1447: -- Can not process TRX_TYPE transaction for asset ASSET_NUMBER in Fixed Assets as FIELD is missing.
1448: OKC_API.set_message( p_app_name => 'OKL',
1449: p_msg_name => 'OKL_AM_DATA_REQUIRED',
1450: p_token1 => 'TRX_TYPE',
1463: OPEN l_quotes_csr(l_assetsvtrx_rec.kle_id);
1464: FETCH l_quotes_csr INTO l_asset_number;
1465: IF l_quotes_csr%FOUND THEN
1466: -- Can not process Salvage Value for asset ASSET_NUMBER as an accepted termination quote exists for this asset.
1467: OKL_API.set_message( p_app_name => 'OKL',
1468: p_msg_name => 'OKL_AM_SVW_NOT_PROCESSED',
1469: p_token1 => 'ASSET_NUMBER',
1470: p_token1_value => l_asset_number);
1471: l_transaction_status := OKC_API.G_RET_STS_ERROR;
1612: x_msg_data => x_msg_data);
1613:
1614: IF (x_return_status = okc_api.g_ret_sts_unexp_error)
1615: THEN
1616: RAISE okl_api.g_exception_unexpected_error;
1617: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1618: THEN
1619: RAISE okl_api.g_exception_error;
1620: END IF;
1615: THEN
1616: RAISE okl_api.g_exception_unexpected_error;
1617: ELSIF (x_return_status = okc_api.g_ret_sts_error)
1618: THEN
1619: RAISE okl_api.g_exception_error;
1620: END IF;
1621: --akrangan populate sources cr ends
1622: EXIT WHEN (i = l_books_tbl.LAST);
1623: i := l_books_tbl.NEXT(i);
1631:
1632: END IF; -- IF l_quotes_csr%FOUND THEN
1633: CLOSE l_quotes_csr;
1634:
1635: --END IF; --IF l_assetsvtrx_rec.salvage_value IS NULL OR l_assetsvtrx_rec.salvage_value = OKL_APi.G_MISS_NUM THEN
1636:
1637: END IF; --IF l_facostsv_csr%NOTFOUND THEN
1638: CLOSE l_facostsv_csr;
1639:
1640: END IF; --IF l_assetsvtrx_rec.asset_book IS NULL...
1641:
1642: -- END IF; --IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1643:
1644: END IF; --IF l_dealtype_csr%NOTFOUND OR l_deal_type IS NULL OR l_deal_type = OKL_API.G_MISS_CHAR THEN
1645: CLOSE l_dealtype_csr;
1646: --------------
1647:
1648: IF l_transaction_status = OKC_API.G_RET_STS_SUCCESS THEN