[Home] [Help]
1559: -- that is being merged
1560: -- x_return_status Returns the status of call
1561: --
1562: -- COMMENT :
1563: -- To update locations in Wsh_Delivery_Details, Wsh_New_Deliveries,
1564: -- Wsh_Trip_Stops tables for Unshipped delivery lines during party
1565: -- merge. Also updates Wsh_Picking_Rules tables during party merge.
1566: -- ============================================================================
1567: PROCEDURE merge_location(
1605: Wdd.Weight_Uom_code, Wdd.Volume_Uom_Code, Wdd.Inventory_Item_Id,
1606: Wdd.Organization_Id, WDA.Rowid Wda_Rowid
1607: FROM WSH_DELIVERY_DETAILS WDD,
1608: WSH_DELIVERY_ASSIGNMENTS_V WDA,
1609: WSH_NEW_DELIVERIES WND,
1610: WSH_DELIVERY_LEGS WDL,
1611: WSH_TRIP_STOPS WTS,
1612: HZ_CUST_ACCT_SITES_ALL CA,
1613: HZ_CUST_SITE_USES_ALL SU
1637: Wdd.Organization_Id, Wnd.Name Delivery_Name,
1638: Wdd.Move_Order_Line_Id, Wdd.Released_Status
1639: FROM WSH_DELIVERY_DETAILS WDD,
1640: WSH_DELIVERY_ASSIGNMENTS_V WDA,
1641: WSH_NEW_DELIVERIES WND,
1642: HZ_CUST_ACCT_SITES_ALL CA,
1643: HZ_CUST_SITE_USES_ALL SU
1644: WHERE SU.Cust_Acct_Site_Id = CA.Cust_Acct_Site_Id
1645: AND CA.Party_Site_Id = p_party_site_id
1684: Wdl.Delivery_Leg_Id, Wnd.organization_id,
1685: Wnd.Net_Weight, Wnd.Gross_Weight, Wnd.Volume,
1686: Wdl.Rowid, Tmp.Rowid
1687: FROM Wsh_Trip_Stops Wts,
1688: Wsh_New_Deliveries Wnd,
1689: Wsh_Delivery_Legs Wdl,
1690: Wsh_Tmp Tmp
1691: WHERE Wnd.Ultimate_DropOff_Location_Id = p_to_location_id
1692: AND nvl(Wnd.Shipment_Direction, 'O') in ( 'O', 'IO' )
1695: AND Wts.Stop_Id = Wdl.Drop_Off_Stop_Id
1696: AND Wdl.Delivery_Id = Tmp.Column1
1697: AND exists (
1698: SELECT 'x'
1699: FROM Wsh_New_Deliveries Del,
1700: Wsh_Delivery_Legs Legs
1701: WHERE Del.Ultimate_Dropoff_Location_Id <> p_to_location_id
1702: AND Del.Delivery_Id = Legs.Delivery_Id
1703: AND Legs.Drop_Off_Stop_Id = Wdl.Drop_Off_Stop_Id )
1751: CURSOR Get_Tmp_Deliveries
1752: IS
1753: SELECT wnd.delivery_id, wnd.rowid, to_number(wt.Column3) delivery_detail_id
1754: FROM Wsh_Tmp wt,
1755: Wsh_New_Deliveries Wnd
1756: WHERE Wnd.Delivery_Id = to_number(Wt.Column1);
1757:
1758: -- Create Pl/Sql table type for storing RowIds
1759: TYPE Rowid_Tab_Type IS TABLE OF ROWID INDEX BY BINARY_INTEGER;
1797: l_inventory_item_id_tab WSH_UTIL_CORE.Id_Tab_Type;
1798: l_move_order_line_id_tab WSH_UTIL_CORE.Id_Tab_Type;
1799:
1800: --Bug 5606960# Variable(s) added for G-Log changes
1801: l_delivery_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1802: l_hash_string VARCHAR2(100);
1803: l_hash_value NUMBER;
1804: l_del_action_prms WSH_DELIVERIES_GRP.action_parameters_rectype;
1805: l_del_attrs WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
1801: l_delivery_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1802: l_hash_string VARCHAR2(100);
1803: l_hash_value NUMBER;
1804: l_del_action_prms WSH_DELIVERIES_GRP.action_parameters_rectype;
1805: l_del_attrs WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
1806: l_del_action_rec WSH_DELIVERIES_GRP.delivery_action_out_rec_type;
1807: l_del_defaults WSH_DELIVERIES_GRP.default_parameters_rectype;
1808:
1809: l_loc_rec WSH_MAP_LOCATION_REGION_PKG.loc_rec_type;
2410: LOOP
2411: -- Bug 5606960# G-Log Changes: Calling API's to update delivery's location.
2412: --
2413: IF l_debug_on THEN
2414: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling API WSH_NEW_DELIVERIES_PVT.Table_To_Record', WSH_DEBUG_SV.C_PROC_LEVEL);
2415: END IF;
2416: --
2417:
2418: l_return_status := NULL;
2415: END IF;
2416: --
2417:
2418: l_return_status := NULL;
2419: WSH_NEW_DELIVERIES_PVT.Table_To_Record (
2420: p_delivery_id => TmpDelRec.Delivery_Id,
2421: x_delivery_rec => l_delivery_rec,
2422: x_return_status => l_return_status );
2423:
2424: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
2425: THEN
2426: --
2427: IF l_debug_on THEN
2428: WSH_DEBUG_SV.log(l_module_name, 'Error returned from WSH_NEW_DELIVERIES_PVT.Table_To_Record : ' || l_return_status);
2429: END IF;
2430: --
2431: Raise Merge_Location_Exp;
2432: END IF;
2460: l_delivery_rec.program_update_date := SYSDATE;
2461:
2462: --
2463: IF l_debug_on THEN
2464: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling API WSH_NEW_DELIVERIES_PVT.Update_Delivery', WSH_DEBUG_SV.C_PROC_LEVEL);
2465: END IF;
2466: --
2467:
2468: l_return_status := NULL;
2465: END IF;
2466: --
2467:
2468: l_return_status := NULL;
2469: WSH_NEW_DELIVERIES_PVT.Update_Delivery(
2470: p_rowid => TmpDelRec.Rowid,
2471: p_delivery_info => l_delivery_rec,
2472: x_return_status => l_return_status );
2473:
2474: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
2475: THEN
2476: --
2477: IF l_debug_on THEN
2478: WSH_DEBUG_SV.log(l_module_name, 'Error returned from WSH_NEW_DELIVERIES_PVT.Update_Delivery : ' || l_return_status);
2479: END IF;
2480: --
2481: Raise Merge_Location_Exp;
2482: END IF;