[Home] [Help]
1: PACKAGE BODY OE_Shipping_Integration_PUB AS
2: /* $Header: OEXPSHPB.pls 120.0 2005/06/01 01:23:13 appldev noship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXPSHPB.pls 120.0 2005/06/01 01:23:13 appldev noship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Shipping_Integration_PUB';
7:
8: -- Start of Comments
9: -- API name OE_Shipping_Integration_PUB
10: -- Type Public
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Shipping_Integration_PUB';
7:
8: -- Start of Comments
9: -- API name OE_Shipping_Integration_PUB
10: -- Type Public
11: -- Version Current version = 1.0
12: -- Initial version = 1.0
13:
100: BEGIN
101:
102: -- Standard call to check for call compatibility
103: IF l_debug_level > 0 THEN
104: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PUB.COMPLETE_SHIP_LINE_ACTIVITY '|| TO_CHAR ( P_LINE_ID ) ||' '||P_RESULT_CODE , 1 ) ;
105: END IF;
106:
107: IF NOT FND_API.Compatible_API_Call
108: ( l_api_version_number
127:
128: x_return_status := FND_API.G_RET_STS_SUCCESS;
129:
130: IF l_debug_level > 0 THEN
131: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PUB.COMPLETE_SHIP_LINE_ACTIVITY '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
132: END IF;
133: EXCEPTION
134:
135: WHEN FND_API.G_EXC_ERROR THEN
381: --
382: BEGIN
383:
384: IF l_debug_level > 0 THEN
385: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PUB.GET_TOLERANCE ' , 1 ) ;
386: END IF;
387: -- Standard call to check for call compatibility
388: x_update_tolerance_flag := FND_API.G_FALSE;
389: x_ship_beyond_tolerance := FND_API.G_FALSE;
640:
641: IF l_line_rec.line_set_id IS NOT NULL AND
642: l_line_rec.line_set_id <> FND_API.G_MISS_NUM THEN
643:
644: OE_Shipping_Integration_PUB.Get_Quantity
645: (
646: p_api_version_number => 1.0,
647: p_line_id => l_line_rec.line_id,
648: p_line_set_id => l_line_rec.line_set_id,
828:
829: IF l_line_rec.line_set_id IS NOT NULL AND
830: l_line_rec.line_set_id <> FND_API.G_MISS_NUM THEN
831:
832: OE_Shipping_Integration_PUB.Get_Quantity
833: (
834: p_api_version_number => 1.0,
835: p_line_id => l_line_rec.line_id,
836: p_line_set_id => l_line_rec.line_set_id,
886:
887:
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889: IF l_debug_level > 0 THEN
890: oe_debug_pub.add( 'EXITING FROM OE_SHIPPING_INTEGRATION_PUB.GET_TOLERANCE ' , 1 ) ;
891: END IF;
892:
893: EXCEPTION
894:
972: BEGIN
973:
974: -- Standard call to check for call compatibility
975: IF l_debug_level > 0 THEN
976: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PUB.GET_QUANTITY '||TO_CHAR ( P_LINE_ID ) ||'/'||TO_CHAR ( P_LINE_SET_ID ) , 1 ) ;
977: END IF;
978:
979: IF NOT FND_API.Compatible_API_Call
980: ( l_api_version_number
1000: x_shipping_quantity := l_x_shipping_quantity;
1001: x_return_status := FND_API.G_RET_STS_SUCCESS;
1002:
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PUB.GET_QUANTITY ' , 1 ) ;
1005: END IF;
1006: EXCEPTION
1007:
1008: WHEN NO_DATA_FOUND THEN
1078: l_is_op_create VARCHAR2(1) := 'N';
1079: BEGIN
1080:
1081: IF l_debug_level > 0 THEN
1082: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PUB.UPDATE_SHIPPING_INTERFACE' , 1 ) ;
1083: END IF;
1084:
1085: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
1086: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
1210: p_line_id => p_line_id,
1211: x_index => l_index,
1212: x_return_status => x_return_status);
1213: IF l_debug_level > 0 THEN
1214: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SHIPPING_INTEGRATION_PUB IS:' || X_RETURN_STATUS ) ;
1215: END IF;
1216: IF l_debug_level > 0 THEN
1217: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
1218: END IF;
1310: END IF; -- Firm flag
1311: END IF; -- IF OE_GLOBALS.G_ASO_INSTALLED = 'Y' or DBI installed.
1312:
1313: IF l_debug_level > 0 THEN
1314: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PUB.UPDATE_SHIPPING_INTERFACE' , 1 ) ;
1315: END IF;
1316:
1317: x_return_status := FND_API.G_RET_STS_SUCCESS;
1318:
1416: --
1417: BEGIN
1418:
1419: IF l_debug_level > 0 THEN
1420: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PUB.GET_MIN_MAX_TOLERANCE_QUANTITY' , 1 ) ;
1421: END IF;
1422:
1423: x_return_status := FND_API.G_RET_STS_SUCCESS;
1424: /*
1460: oe_debug_pub.add( 'SHP RETURN MAX REMAINING QUANTITY2 : '||X_MAX_REMAINING_QUANTITY2 , 3 ) ;
1461: END IF;
1462:
1463: IF l_debug_level > 0 THEN
1464: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PUB.GET_MIN_MAX_TOLERANCE_QUANTITY '||X_RETURN_STATUS , 1 ) ;
1465: END IF;
1466:
1467: EXCEPTION
1468:
1735: p_setsmc_output_rec.x_interface_status := 'N';
1736:
1737: END Get_SetSMC_Interface_Status;
1738: -- 3623149 changes ends
1739: END OE_Shipping_Integration_PUB;
1740: