2533: l_progress := '414';
2534: IF g_interface_source_code = 'CONSUMPTION_ADVICE' THEN
2535: ROLLBACK TO TAX_CALCULATION_ERROR;
2536: x_document_id := NULL;
2537: fnd_message.set_name('PO','PO_API_ERROR');
2538: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2539: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2540: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2541: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2534: IF g_interface_source_code = 'CONSUMPTION_ADVICE' THEN
2535: ROLLBACK TO TAX_CALCULATION_ERROR;
2536: x_document_id := NULL;
2537: fnd_message.set_name('PO','PO_API_ERROR');
2538: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2539: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2540: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2541: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2542: fnd_msg_pub.add;
2536: x_document_id := NULL;
2537: fnd_message.set_name('PO','PO_API_ERROR');
2538: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2539: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2540: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2541: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2542: fnd_msg_pub.add;
2543: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2544: fnd_msg_pub.add;
2539: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2540: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2541: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2542: fnd_msg_pub.add;
2543: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2544: fnd_msg_pub.add;
2545: END IF;
2546: END IF;
2547: ELSIF (g_document_subtype = 'RELEASE') THEN
2562: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2563: IF g_interface_source_code = 'CONSUMPTION_ADVICE' THEN
2564: ROLLBACK TO TAX_CALCULATION_ERROR;
2565: x_document_id := NULL;
2566: fnd_message.set_name('PO','PO_API_ERROR');
2567: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2568: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2569: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2570: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2563: IF g_interface_source_code = 'CONSUMPTION_ADVICE' THEN
2564: ROLLBACK TO TAX_CALCULATION_ERROR;
2565: x_document_id := NULL;
2566: fnd_message.set_name('PO','PO_API_ERROR');
2567: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2568: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2569: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2570: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2571: fnd_msg_pub.add;
2565: x_document_id := NULL;
2566: fnd_message.set_name('PO','PO_API_ERROR');
2567: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2568: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2569: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2570: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2571: fnd_msg_pub.add;
2572: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2573: fnd_msg_pub.add;
2568: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2569: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2570: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2571: fnd_msg_pub.add;
2572: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2573: fnd_msg_pub.add;
2574: END IF;
2575: l_progress := '417';
2576: END IF;
2603: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2604: p_token => l_progress,
2605: p_message => 'Create_po: Inside l_contracts_call_exception');
2606: END IF;
2607: Fnd_message.set_name('PO','PO_API_ERROR');
2608: Fnd_message.set_token( token => 'PROC_CALLER'
2609: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2610: Fnd_message.set_token( token => 'PROC_CALLED'
2611: , VALUE => 'OKC_TERMS_CPOY_GRP.COPY_DOC');
2604: p_token => l_progress,
2605: p_message => 'Create_po: Inside l_contracts_call_exception');
2606: END IF;
2607: Fnd_message.set_name('PO','PO_API_ERROR');
2608: Fnd_message.set_token( token => 'PROC_CALLER'
2609: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2610: Fnd_message.set_token( token => 'PROC_CALLED'
2611: , VALUE => 'OKC_TERMS_CPOY_GRP.COPY_DOC');
2612: FND_MSG_PUB.Add;
2606: END IF;
2607: Fnd_message.set_name('PO','PO_API_ERROR');
2608: Fnd_message.set_token( token => 'PROC_CALLER'
2609: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2610: Fnd_message.set_token( token => 'PROC_CALLED'
2611: , VALUE => 'OKC_TERMS_CPOY_GRP.COPY_DOC');
2612: FND_MSG_PUB.Add;
2613:
2614: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5996: END IF;
5997:
5998: /* CONSIGNED FPI start : Set the closed reason for consigned */
5999: IF interface.consigned_flag = 'Y' THEN
6000: x_closed_reason := fnd_message.get_string('PO', 'PO_SUP_CONS_CLOSED_REASON');
6001: ELSE
6002: x_closed_reason := null;
6003: END IF;
6004:
13641: -- other than Standard PO.
13642: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13643: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13644: p_token => l_progress,
13645: p_message => FND_MESSAGE.get_string('PO','PO_CONFIG_ID_ONLY_ON_STD_PO'));
13646: END IF;
13647: RETURN FALSE;
13648: END IF;
13649:
14239: -- if line has advance, create financing payitem to represent it.
14240: -- the payitem has shipment_type of PREPAYMENT and payment_type of ADVANCE
14241:
14242: -- get default advance description
14243: FND_MESSAGE.set_name('PO', 'PO_CWPUI_ADVANCE_DESC_PREFIX');
14244: FND_MESSAGE.set_token(token => 'LINE_DESC',
14245: value => interface.item_description);
14246: l_advance_desc := substrb(FND_MESSAGE.get, 1, 240);
14247:
14240: -- the payitem has shipment_type of PREPAYMENT and payment_type of ADVANCE
14241:
14242: -- get default advance description
14243: FND_MESSAGE.set_name('PO', 'PO_CWPUI_ADVANCE_DESC_PREFIX');
14244: FND_MESSAGE.set_token(token => 'LINE_DESC',
14245: value => interface.item_description);
14246: l_advance_desc := substrb(FND_MESSAGE.get, 1, 240);
14247:
14248: --SQL WHAT: Insert information for advance payitem into
14242: -- get default advance description
14243: FND_MESSAGE.set_name('PO', 'PO_CWPUI_ADVANCE_DESC_PREFIX');
14244: FND_MESSAGE.set_token(token => 'LINE_DESC',
14245: value => interface.item_description);
14246: l_advance_desc := substrb(FND_MESSAGE.get, 1, 240);
14247:
14248: --SQL WHAT: Insert information for advance payitem into
14249: -- po_line_locations_interface table
14250: --SQL WHY : We will use line_locations_interface as a