[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;
1250:
1251: SAVEPOINT CATCH_DCP;
1252: <
1253:
1254: WSH_INTERFACE.Update_Shipping_Attributes
1255: ( p_source_code => l_source_code
1256: ,p_changed_attributes => l_changed_attributes
1257: ,x_return_status => l_return_status);
1258:
4921: IF OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT <
4922: OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT THEN
4923:
4924: --------------------------------------------------------
4925: -- 1st eligible line for wsh interface, so extend all.
4926: --------------------------------------------------------
4927:
4928: l_count := OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT -
4929: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT;
5984: END Call_Notification_Framework;
5985:
5986:
5987: /*-----------------------------------------------------------------
5988: PROCEDURE OM_To_WSH_Interface
5989:
5990: OM-WSH_HVOP
5991: ------------------------------------------------------------------*/
5992: PROCEDURE OM_To_WSH_Interface
5988: PROCEDURE OM_To_WSH_Interface
5989:
5990: OM-WSH_HVOP
5991: ------------------------------------------------------------------*/
5992: PROCEDURE OM_To_WSH_Interface
5993: ( p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
5994: ,p_header_rec IN OE_BULK_ORDER_PVT.HEADER_REC_TYPE
5995: ,x_return_status OUT NOCOPY VARCHAR2)
5996: IS
6044: WHERE line_id = p_line_rec.line_id(I)
6045: AND p_line_rec.shipping_interfaced_flag(I) = 'Y';
6046:
6047: oe_debug_pub.add('afer updating shipping interfaced flag', 5);
6048: G_BULK_WSH_INTERFACE_CALLED := TRUE; -- bug 4070931 starts
6049:
6050: FOR I in p_line_rec.line_id.FIRST..p_line_rec.line_id.LAST
6051: LOOP
6052: IF p_line_rec.shipping_interfaced_flag(I) is NULL AND
6071: END IF; -- lines not shipping_interfaced
6072: p_line_rec.shipping_eligible_flag(I) := null;
6073: END LOOP;
6074:
6075: G_BULK_WSH_INTERFACE_CALLED := FALSE; -- bug 4070931ends
6076: END IF;
6077:
6078:
6079: IF l_msg_count > 0 THEN
6145:
6146: EXCEPTION
6147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6148: IF l_debug_level > 0 THEN
6149: oe_debug_pub.add('OM_TO_WSH_INTERFACE : UNEXPECTED ERROR',1);
6150: END IF;
6151:
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6153:
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6153:
6154: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6155: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6156: 'OM_To_WSH_Interface');
6157: END IF;
6158: IF g_debug_call > 0 THEN
6159: G_DEBUG_MSG := G_DEBUG_MSG || 'E-39';
6160: END IF;
6160: END IF;
6161:
6162: WHEN FND_API.G_EXC_ERROR THEN
6163: IF l_debug_level > 0 THEN
6164: oe_debug_pub.add('OM_TO_WSH_INTERFACE : EXE ERROR',1);
6165: END IF;
6166: x_return_status := FND_API.G_RET_STS_ERROR;
6167:
6168: WHEN OTHERS THEN
6166: x_return_status := FND_API.G_RET_STS_ERROR;
6167:
6168: WHEN OTHERS THEN
6169: IF l_debug_level > 0 THEN
6170: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6171: END IF;
6172:
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6177:
6178: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6179: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6180: 'OM_To_WSH_Interface');
6181: END IF;
6182:
6183: END OM_To_WSH_Interface;
6184:
6179: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6180: 'OM_To_WSH_Interface');
6181: END IF;
6182:
6183: END OM_To_WSH_Interface;
6184:
6185: /*------------------------------------------------------------------------
6186: PROCEDURE Print_Time
6187: