346: FND_FILE.put_line(fnd_file.log, 'CSTPSMUT.COST_SPLIT_TXN <<<');
347: fnd_file.put_line(fnd_file.log, 'Costing Transaction: '||to_char(p_transaction_id));
348: END IF;
349:
350: IF NOT FND_API.COMPATIBLE_API_CALL (
351: l_api_version,
352: p_api_version,
353: l_api_name,
354: G_PKG_NAME ) THEN
351: l_api_version,
352: p_api_version,
353: l_api_name,
354: G_PKG_NAME ) THEN
355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
356: END IF;
357:
358:
359:
785: l_stmt_num := 210;
786:
787: CST_XLA_PVT.Create_WIPXLAEvent(
788: p_api_version => 1.0,
789: p_init_msg_list => FND_API.G_FALSE,
790: p_commit => FND_API.G_FALSE,
791: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
792: x_return_status => l_return_status,
793: x_msg_count => l_msg_count,
786:
787: CST_XLA_PVT.Create_WIPXLAEvent(
788: p_api_version => 1.0,
789: p_init_msg_list => FND_API.G_FALSE,
790: p_commit => FND_API.G_FALSE,
791: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
792: x_return_status => l_return_status,
793: x_msg_count => l_msg_count,
794: x_msg_data => l_msg_data,
787: CST_XLA_PVT.Create_WIPXLAEvent(
788: p_api_version => 1.0,
789: p_init_msg_list => FND_API.G_FALSE,
790: p_commit => FND_API.G_FALSE,
791: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
792: x_return_status => l_return_status,
793: x_msg_count => l_msg_count,
794: x_msg_data => l_msg_data,
795: p_trx_info => l_trx_info);
793: x_msg_count => l_msg_count,
794: x_msg_data => l_msg_data,
795: p_trx_info => l_trx_info);
796:
797: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
800:
801: END IF;
794: x_msg_data => l_msg_data,
795: p_trx_info => l_trx_info);
796:
797: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
800:
801: END IF;
802: IF(l_debug_flag = 'Y') THEN
804: END IF;
805:
806:
807: EXCEPTION
808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
809: x_err_num := -1;
810: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
811: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
812: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
806:
807: EXCEPTION
808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
809: x_err_num := -1;
810: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
811: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
812: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
813: WHEN GET_JOB_VALUE_FAILURE THEN
814: x_err_num := -1;
1039: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_MERGE_TXN ... <<< ');
1040: fnd_file.put_line(fnd_file.log, 'Costing Transaction: '||to_char(p_transaction_id));
1041: END IF;
1042:
1043: IF NOT FND_API.COMPATIBLE_API_CALL (
1044: l_api_version,
1045: p_api_version,
1046: l_api_name,
1047: G_PKG_NAME ) THEN
1044: l_api_version,
1045: p_api_version,
1046: l_api_name,
1047: G_PKG_NAME ) THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050:
1051:
1052: /* Get Transaction Information from WSMT */
1641: l_stmt_num := 210;
1642:
1643: CST_XLA_PVT.Create_WIPXLAEvent(
1644: p_api_version => 1.0,
1645: p_init_msg_list => FND_API.G_FALSE,
1646: p_commit => FND_API.G_FALSE,
1647: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1648: x_return_status => l_return_status,
1649: x_msg_count => l_msg_count,
1642:
1643: CST_XLA_PVT.Create_WIPXLAEvent(
1644: p_api_version => 1.0,
1645: p_init_msg_list => FND_API.G_FALSE,
1646: p_commit => FND_API.G_FALSE,
1647: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1648: x_return_status => l_return_status,
1649: x_msg_count => l_msg_count,
1650: x_msg_data => l_msg_data,
1643: CST_XLA_PVT.Create_WIPXLAEvent(
1644: p_api_version => 1.0,
1645: p_init_msg_list => FND_API.G_FALSE,
1646: p_commit => FND_API.G_FALSE,
1647: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1648: x_return_status => l_return_status,
1649: x_msg_count => l_msg_count,
1650: x_msg_data => l_msg_data,
1651: p_trx_info => l_trx_info);
1649: x_msg_count => l_msg_count,
1650: x_msg_data => l_msg_data,
1651: p_trx_info => l_trx_info);
1652:
1653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1654: RAISE FND_API.g_exc_unexpected_error;
1655: END IF;
1656:
1657: END IF;
1650: x_msg_data => l_msg_data,
1651: p_trx_info => l_trx_info);
1652:
1653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1654: RAISE FND_API.g_exc_unexpected_error;
1655: END IF;
1656:
1657: END IF;
1658:
1662: END IF;
1663:
1664: EXCEPTION
1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: x_err_num := -1;
1668: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
1669: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1670: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1664: EXCEPTION
1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: x_err_num := -1;
1668: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
1669: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1670: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1671: WHEN GET_JOB_VALUE_FAILURE THEN
1672: x_err_num := -1;
1836: BEGIN
1837: /* Check API Compatibility */
1838: l_stmt_num := 10;
1839:
1840: IF NOT FND_API.COMPATIBLE_API_CALL (
1841: l_api_version,
1842: p_api_version,
1843: l_api_name,
1844: G_PKG_NAME ) THEN
1841: l_api_version,
1842: p_api_version,
1843: l_api_name,
1844: G_PKG_NAME ) THEN
1845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1846: END IF;
1847:
1848:
1849: /* Get Transaction Information from WSMT */
2207: l_stmt_num := 160;
2208:
2209: CST_XLA_PVT.Create_WIPXLAEvent(
2210: p_api_version => 1.0,
2211: p_init_msg_list => FND_API.G_FALSE,
2212: p_commit => FND_API.G_FALSE,
2213: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2214: x_return_status => l_return_status,
2215: x_msg_count => l_msg_count,
2208:
2209: CST_XLA_PVT.Create_WIPXLAEvent(
2210: p_api_version => 1.0,
2211: p_init_msg_list => FND_API.G_FALSE,
2212: p_commit => FND_API.G_FALSE,
2213: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2214: x_return_status => l_return_status,
2215: x_msg_count => l_msg_count,
2216: x_msg_data => l_msg_data,
2209: CST_XLA_PVT.Create_WIPXLAEvent(
2210: p_api_version => 1.0,
2211: p_init_msg_list => FND_API.G_FALSE,
2212: p_commit => FND_API.G_FALSE,
2213: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2214: x_return_status => l_return_status,
2215: x_msg_count => l_msg_count,
2216: x_msg_data => l_msg_data,
2217: p_trx_info => l_trx_info);
2215: x_msg_count => l_msg_count,
2216: x_msg_data => l_msg_data,
2217: p_trx_info => l_trx_info);
2218:
2219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2220: RAISE FND_API.g_exc_unexpected_error;
2221: END IF;
2222:
2223: END IF;
2216: x_msg_data => l_msg_data,
2217: p_trx_info => l_trx_info);
2218:
2219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2220: RAISE FND_API.g_exc_unexpected_error;
2221: END IF;
2222:
2223: END IF;
2224: EXCEPTION
2222:
2223: END IF;
2224: EXCEPTION
2225:
2226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2227: x_err_num := -1;
2228: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2229: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2230: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2224: EXCEPTION
2225:
2226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2227: x_err_num := -1;
2228: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2229: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2230: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2231: WHEN GET_JOB_VALUE_FAILURE THEN
2232: x_err_num := -1;
2380: IF (l_debug_flag = 'Y') THEN
2381: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_BONUS_TXN <<<');
2382: END IF;
2383:
2384: IF NOT FND_API.COMPATIBLE_API_CALL (
2385: l_api_version,
2386: p_api_version,
2387: l_api_name,
2388: G_PKG_NAME ) THEN
2385: l_api_version,
2386: p_api_version,
2387: l_api_name,
2388: G_PKG_NAME ) THEN
2389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2390: END IF;
2391:
2392:
2393: /* Get Transaction Information from WSMT */
2769: l_stmt_num := 160;
2770:
2771: CST_XLA_PVT.Create_WIPXLAEvent(
2772: p_api_version => 1.0,
2773: p_init_msg_list => FND_API.G_FALSE,
2774: p_commit => FND_API.G_FALSE,
2775: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2776: x_return_status => l_return_status,
2777: x_msg_count => l_msg_count,
2770:
2771: CST_XLA_PVT.Create_WIPXLAEvent(
2772: p_api_version => 1.0,
2773: p_init_msg_list => FND_API.G_FALSE,
2774: p_commit => FND_API.G_FALSE,
2775: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2776: x_return_status => l_return_status,
2777: x_msg_count => l_msg_count,
2778: x_msg_data => l_msg_data,
2771: CST_XLA_PVT.Create_WIPXLAEvent(
2772: p_api_version => 1.0,
2773: p_init_msg_list => FND_API.G_FALSE,
2774: p_commit => FND_API.G_FALSE,
2775: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2776: x_return_status => l_return_status,
2777: x_msg_count => l_msg_count,
2778: x_msg_data => l_msg_data,
2779: p_trx_info => l_trx_info);
2777: x_msg_count => l_msg_count,
2778: x_msg_data => l_msg_data,
2779: p_trx_info => l_trx_info);
2780:
2781: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2782: RAISE FND_API.g_exc_unexpected_error;
2783: END IF;
2784: END IF;
2785:
2778: x_msg_data => l_msg_data,
2779: p_trx_info => l_trx_info);
2780:
2781: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2782: RAISE FND_API.g_exc_unexpected_error;
2783: END IF;
2784: END IF;
2785:
2786: IF (l_debug_flag = 'Y') THEN
2788: END IF;
2789:
2790: EXCEPTION
2791:
2792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2793: x_err_num := -1;
2794: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2795: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2796: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2790: EXCEPTION
2791:
2792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2793: x_err_num := -1;
2794: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2795: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2796: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2797: WHEN GET_JOB_VALUE_FAILURE THEN
2798: x_err_num := -1;
3386: IF(l_debug_flag = 'Y') THEN
3387: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.UPDATE_JOB_QUANTITY <<<');
3388: END IF;
3389:
3390: IF NOT FND_API.COMPATIBLE_API_CALL (
3391: l_api_version,
3392: p_api_version,
3393: l_api_name,
3394: G_PKG_NAME ) THEN
3391: l_api_version,
3392: p_api_version,
3393: l_api_name,
3394: G_PKG_NAME ) THEN
3395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3396: END IF;
3397:
3398:
3399: /* Obtain Transaction Information */
3988:
3989: END IF; -- Non Bonus Transaction
3990:
3991: EXCEPTION
3992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3993: x_err_num := -1;
3994: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
3995: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'):'|| x_err_msg || substr(SQLERRM, 1, 200);
3996: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
3990:
3991: EXCEPTION
3992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3993: x_err_num := -1;
3994: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
3995: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'):'|| x_err_msg || substr(SQLERRM, 1, 200);
3996: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
3997: WHEN OTHERS THEN
3998: x_err_num := -1;