[Home] [Help]
302: ,x_return_status OUT NOCOPY VARCHAR2)
303: IS
304: l_shp_index NUMBER :=0;
305: l_line_index NUMBER :=0;
306: l_changed_attributes WSH_INTERFACE.ChangedAttributeTabType;
307: l_line_rec OE_Order_Pub.line_rec_type;
308: l_line_id NUMBER;
309: l_return_status VARCHAR2(1);
310: l_line_at_shipping VARCHAR2(1) := FND_API.G_FALSE;
1255:
1256: SAVEPOINT CATCH_DCP;
1257: <
1258:
1259: WSH_INTERFACE.Update_Shipping_Attributes
1260: ( p_source_code => l_source_code
1261: ,p_changed_attributes => l_changed_attributes
1262: ,x_return_status => l_return_status);
1263:
4939: IF OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT <
4940: OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT THEN
4941:
4942: --------------------------------------------------------
4943: -- 1st eligible line for wsh interface, so extend all.
4944: --------------------------------------------------------
4945:
4946: l_count := OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT -
4947: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT;
6009: END Call_Notification_Framework;
6010:
6011:
6012: /*-----------------------------------------------------------------
6013: PROCEDURE OM_To_WSH_Interface
6014:
6015: OM-WSH_HVOP
6016: ------------------------------------------------------------------*/
6017: PROCEDURE OM_To_WSH_Interface
6013: PROCEDURE OM_To_WSH_Interface
6014:
6015: OM-WSH_HVOP
6016: ------------------------------------------------------------------*/
6017: PROCEDURE OM_To_WSH_Interface
6018: ( p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
6019: ,p_header_rec IN OE_BULK_ORDER_PVT.HEADER_REC_TYPE
6020: ,x_return_status OUT NOCOPY VARCHAR2)
6021: IS
6069: WHERE line_id = p_line_rec.line_id(I)
6070: AND p_line_rec.shipping_interfaced_flag(I) = 'Y';
6071:
6072: oe_debug_pub.add('afer updating shipping interfaced flag', 5);
6073: G_BULK_WSH_INTERFACE_CALLED := TRUE; -- bug 4070931 starts
6074:
6075: FOR I in p_line_rec.line_id.FIRST..p_line_rec.line_id.LAST
6076: LOOP
6077: IF p_line_rec.shipping_interfaced_flag(I) is NULL AND
6096: END IF; -- lines not shipping_interfaced
6097: p_line_rec.shipping_eligible_flag(I) := null;
6098: END LOOP;
6099:
6100: G_BULK_WSH_INTERFACE_CALLED := FALSE; -- bug 4070931ends
6101: END IF;
6102:
6103:
6104: IF l_msg_count > 0 THEN
6170:
6171: EXCEPTION
6172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add('OM_TO_WSH_INTERFACE : UNEXPECTED ERROR',1);
6175: END IF;
6176:
6177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6178:
6177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6178:
6179: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6180: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6181: 'OM_To_WSH_Interface');
6182: END IF;
6183: IF g_debug_call > 0 THEN
6184: G_DEBUG_MSG := G_DEBUG_MSG || 'E-39';
6185: END IF;
6185: END IF;
6186:
6187: WHEN FND_API.G_EXC_ERROR THEN
6188: IF l_debug_level > 0 THEN
6189: oe_debug_pub.add('OM_TO_WSH_INTERFACE : EXE ERROR',1);
6190: END IF;
6191: x_return_status := FND_API.G_RET_STS_ERROR;
6192:
6193: WHEN OTHERS THEN
6191: x_return_status := FND_API.G_RET_STS_ERROR;
6192:
6193: WHEN OTHERS THEN
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6196: END IF;
6197:
6198: IF l_debug_level > 0 THEN
6199: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6202:
6203: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6204: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6205: 'OM_To_WSH_Interface');
6206: END IF;
6207:
6208: END OM_To_WSH_Interface;
6209:
6204: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6205: 'OM_To_WSH_Interface');
6206: END IF;
6207:
6208: END OM_To_WSH_Interface;
6209:
6210: /*------------------------------------------------------------------------
6211: PROCEDURE Print_Time
6212: