19: Type header_id_tab Is table of number index by Binary_integer;
20:
21: header_id_t header_id_tab;
22:
23: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
24: l_end_date date := sysdate;
25: --bug 4149275
26: l_msg_count number;
27: l_msg_data Varchar2(2000);
106: OM_TAX_UTIL.CALCULATE_TAX( p_header_id => header_id_t(K)
107: , x_return_status => l_return_status);
108:
109:
110: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
113: OE_MSG_PUB.Count_And_Get (p_count => l_msg_count
114: ,p_data => l_msg_data);
107: , x_return_status => l_return_status);
108:
109:
110: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
113: OE_MSG_PUB.Count_And_Get (p_count => l_msg_count
114: ,p_data => l_msg_data);
115: oe_debug_pub.add( 'MESSAGES RETURNED: '|| TO_CHAR ( l_msg_count ),1 ) ;
108:
109:
110: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
113: OE_MSG_PUB.Count_And_Get (p_count => l_msg_count
114: ,p_data => l_msg_data);
115: oe_debug_pub.add( 'MESSAGES RETURNED: '|| TO_CHAR ( l_msg_count ),1 ) ;
116: if l_msg_count > 0 then
119: IF l_debug_level > 0 THEN
120: oe_debug_pub.add( l_msg_data,1 ) ;
121: END IF;
122: end if;
123: --RAISE FND_API.G_EXC_ERROR;
124: END IF;
125: IF l_debug_level > 0 THEN
126: oe_debug_pub.add(' Save the Messages for Header: '|| header_id_t(K), 1);
127: END IF;
140: close headers;
141:
142: EXCEPTION
143:
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_ERROR;
141:
142: EXCEPTION
143:
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_ERROR;
149:
143:
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_ERROR;
149:
150: WHEN NO_DATA_FOUND THEN
151: IF l_debug_level > 0 THEN
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: x_return_status := FND_API.G_RET_STS_ERROR;
149:
150: WHEN NO_DATA_FOUND THEN
151: IF l_debug_level > 0 THEN
152: oe_debug_pub.add( 'TAX_ORDER: IN NO DATA FOUND' , 4 ) ;
150: WHEN NO_DATA_FOUND THEN
151: IF l_debug_level > 0 THEN
152: oe_debug_pub.add( 'TAX_ORDER: IN NO DATA FOUND' , 4 ) ;
153: END IF;
154: x_return_status := FND_API.G_RET_STS_SUCCESS;
155:
156: WHEN OTHERS THEN
157:
158: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
161: ( G_PKG_NAME ,
162: 'calculate_order_tax'
163: );
164: END IF;
165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167:
168: end calculate_order_tax;
169:
162: 'calculate_order_tax'
163: );
164: END IF;
165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167:
168: end calculate_order_tax;
169:
170: END ONT_UPG_TAX_UTIL;