[Home] [Help]
21: l_customer_id NUMBER;
22: l_batch_source_id NUMBER;
23: l_sold_to_customer_id NUMBER;
24: l_cust_trx_type_id NUMBER;
25: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26: l_legal_entity_id NUMBER;
27: l_msg_data VARCHAR2(1000);
28: BEGIN
29:
86: p_batch_source_id => l_invoice_source_id, -- IN P_batch_source_id
87: p_operating_unit_id => p_org_id -- IN P_operating_unit_id (org_id)
88: );
89:
90: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_legal_entity_id = -1 THEN
91:
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add('In getting legal_entity_id, return status error'||l_msg_data);
94: END IF;
383: (G_PKG_NAME
384: ,'Get_Default_Tax_Code'
385: );
386: END IF;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: END Get_Default_Tax_Code;
389:
390: /* Procedure calculate_tax modified for TAX ER*/
391:
438: l_ship_to_acct_tax_rnd_rule VARCHAR2(30);
439: x_tax_value NUMBER;
440: l_x_msg_count NUMBER;
441: l_x_msg_data VARCHAR2(2000);
442: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
443: l_tax_value NUMBER := 0;
444: l_tax_code VARCHAR2(50);
445: l_adj_index NUMBER;
446: l_start_time NUMBER;
1512: SELECT hsecs INTO l_start_time FROM v$timer;
1513: IF l_call_tax = 'Y' THEN --Call ZX api only if there is atleast one eligible line to be taxed
1514: oe_debug_pub.add( ' Call zx_api_pub.calculate_tax ',1);
1515: zx_api_pub.calculate_tax( p_api_version => 1.0,
1516: p_init_msg_list => FND_API.G_TRUE,
1517: p_commit => NULL,
1518: p_validation_level => NULL,
1519: x_return_status => l_return_status,
1520: x_msg_count => l_msg_count,
1528: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in zx_api_pub.calculate_tax is (sec) '||((l_end_time-l_start_time)/100));
1529: IF l_debug_level > 0 THEN
1530: oe_debug_pub.add('Message returned by tax API ZX_API_PUB.calculate_tax: '||l_msg_count,2);
1531: END IF;
1532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'unexpected error');
1535: END IF;
1536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'unexpected error');
1535: END IF;
1536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1537: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1538: IF l_x_msg_data IS NOT NULL THEN
1539: FND_MESSAGE.SET_NAME('ONT','ONT_AVAIL_GENERIC');
1540: FND_MESSAGE.SET_TOKEN('TEXT',l_x_msg_data);
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'unexpected error');
1535: END IF;
1536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1537: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1538: IF l_x_msg_data IS NOT NULL THEN
1539: FND_MESSAGE.SET_NAME('ONT','ONT_AVAIL_GENERIC');
1540: FND_MESSAGE.SET_TOKEN('TEXT',l_x_msg_data);
1541: OE_MSG_PUB.Add;
1652: END IF;
1653: IF OE_BULK_MSG_PUB.check_msg_level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1654: OE_BULK_MSG_PUB.add_exc_msg (G_PKG_NAME ,'Calcuate_Tax' );
1655: END IF;
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: END Calculate_Tax;
1658:
1659:
1660:
1706: OE_BULK_MSG_PUB.Add_Exc_Msg
1707: ( G_PKG_NAME
1708: , 'Extend_Adj_Rec'
1709: );
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: END Extend_Adj_Rec;
1712:
1713: PROCEDURE Insert_Tax_Records
1714: (p_post_insert IN BOOLEAN
1897: (G_PKG_NAME
1898: ,'Insert_Tax_Records'
1899: );
1900: END IF;
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END Insert_Tax_Records;
1903:
1904:
1905: PROCEDURE Handle_Error
1938: (G_PKG_NAME
1939: ,'Handle_Error'
1940: );
1941: END IF;
1942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1943: END Handle_Error;
1944:
1945: PROCEDURE Handle_Tax_Code_Error(p_index IN NUMBER,
1946: p_header_index IN NUMBER,
2014: (G_PKG_NAME
2015: ,'Handle_Tax_Code_Error'
2016: );
2017: END IF;
2018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2019: END Handle_Tax_Code_Error;
2020:
2021: Procedure Debug_msg(p_index IN NUMBER,
2022: x_return_status OUT NOCOPY Varchar2) IS