[Home] [Help]
8002: l_delivery_name VARCHAR2(30) := NULL;
8003: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8004:
8005: -- Release 12 (K): LPN Synchronization/Convergence
8006: -- Types needed for WSH_WMS_LPN_GRP.Create_Update_Containers
8007: l_lpn_cur WMS_Data_Type_Definitions_PUB.LPNRecordType;
8008: l_wsh_dd_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8009: l_wsh_dd_upd_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8010: wsh_create_tbl WSH_GLBL_VAR_STRCT_GRP.delivery_details_Attr_tbl_Type;
8073: 1. Uniqueness constraint on WDD.container_name is removed
8074: So it is not required to append characters to the LPNs
8075: to get a new containers name
8076: 2. Replace API call to wsh_container_grp.update_container
8077: with new API call WSH_WMS_LPN_GRP.Create_Update_Containers
8078: */
8079: /*
8080: IF (l_debug = 1) THEN
8081: DEBUG('Release status is C, Updating delivery detail to NULL out LPN_ID', 'create_update_containers');
8090:
8091: l_IN_rec.caller := 'WMS';
8092: l_IN_rec.action_code := 'UPDATE_NULL';
8093:
8094: WSH_WMS_LPN_GRP.Create_Update_Containers (
8095: p_api_version => 1.0
8096: , p_init_msg_list => fnd_api.g_false
8097: , p_commit => fnd_api.g_false
8098: , x_return_status => x_return_status
8104:
8105:
8106: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
8107: IF (l_debug = 1) THEN
8108: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8109: END IF;
8110:
8111: RAISE fnd_api.g_exc_error;
8112: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8110:
8111: RAISE fnd_api.g_exc_error;
8112: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8113: IF (l_debug = 1) THEN
8114: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8115: END IF;
8116:
8117: RAISE fnd_api.g_exc_unexpected_error;
8118: ELSE
8117: RAISE fnd_api.g_exc_unexpected_error;
8118: ELSE
8119: l_count := 0;
8120: IF (l_debug = 1) THEN
8121: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success, AF Container exists, set lpn_id to NULL', 'create_update_containers');
8122: END IF;
8123: END IF;
8124:
8125: ELSE
8144: IF l_count = 0 THEN
8145:
8146: /* Release 12 (K): LPN Synchronization
8147: Replace the call to wsh_container_grp.create_containers
8148: with new API call to WSH_WMS_LPN_GRP.Create_Update_Containers
8149:
8150: The pre-R12 code was doing in two steps, create_container then update_container
8151: With the new API call, it replaces both previous API calls */
8152:
8162: END LOOP;
8163:
8164: IF (l_debug = 1) THEN
8165: DEBUG('End of Loop of lpn_details, found '||wsh_create_tbl.count||' records in wsh_create_tbl to process', 'create_update_containers');
8166: DEBUG('Calling WSH_WMS_LPN_GRP.Create_Update_Containers with caller as WMS and CREATE', 'create_update_containers');
8167: END IF;
8168:
8169: l_IN_rec.caller := 'WMS';
8170: l_IN_rec.action_code := 'CREATE';
8168:
8169: l_IN_rec.caller := 'WMS';
8170: l_IN_rec.action_code := 'CREATE';
8171:
8172: WSH_WMS_LPN_GRP.Create_Update_Containers (
8173: p_api_version => 1.0
8174: , p_init_msg_list => fnd_api.g_false
8175: , p_commit => fnd_api.g_false
8176: , x_return_status => x_return_status
8182:
8183:
8184: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
8185: IF (l_debug = 1) THEN
8186: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8187: END IF;
8188:
8189: RAISE fnd_api.g_exc_error;
8190: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8188:
8189: RAISE fnd_api.g_exc_error;
8190: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8191: IF (l_debug = 1) THEN
8192: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8193: END IF;
8194:
8195: RAISE fnd_api.g_exc_unexpected_error;
8196: ELSE
8194:
8195: RAISE fnd_api.g_exc_unexpected_error;
8196: ELSE
8197: IF (l_debug = 1) THEN
8198: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success', 'create_update_containers');
8199: END IF;
8200: END IF;
8201: -- End of Release 12 change
8202:
8601:
8602: IF l_wsh_lpn_id_tbl.COUNT > 0 THEN
8603: -- Relase 12: LPN SyncUp
8604: -- Replaced call to wsh_container_grp.container_actions
8605: -- with new API call WSH_WMS_LPN_GRP.Delivery_Detail_Action
8606: l_wsh_action_prms.caller := 'WMS';
8607: l_wsh_action_prms.action_code := p_action_code;
8608: l_wsh_action_prms.lpn_rec.organization_id := p_organization_id;
8609: l_wsh_action_prms.lpn_rec.lpn_id := l_parent_lpn_id;
8608: l_wsh_action_prms.lpn_rec.organization_id := p_organization_id;
8609: l_wsh_action_prms.lpn_rec.lpn_id := l_parent_lpn_id;
8610:
8611: IF (l_debug = 1) THEN
8612: DEBUG('Calling WSH_WMS_LPN_GRP.Delivery_Detail_Action with ', 'Container_Nesting');
8613: DEBUG(' Caller: WMS, action_code:'||p_action_code, 'Container_Nesting');
8614: DEBUG(' organization_id:'||p_organization_id, 'Container_Nesting');
8615: DEBUG(' p_action_prms.lpn_rec.lpn_id='||l_parent_lpn_id, 'Container_Nesting');
8616: DEBUG(' p_lpn_id_tbl with '||l_wsh_lpn_id_tbl.count()||' records', 'Container_Nesting');
8615: DEBUG(' p_action_prms.lpn_rec.lpn_id='||l_parent_lpn_id, 'Container_Nesting');
8616: DEBUG(' p_lpn_id_tbl with '||l_wsh_lpn_id_tbl.count()||' records', 'Container_Nesting');
8617: END IF;
8618:
8619: WSH_WMS_LPN_GRP.Delivery_Detail_Action(
8620: p_api_version_number => 1.0,
8621: p_init_msg_list => fnd_api.g_false,
8622: p_commit => fnd_api.g_false,
8623: x_return_status => x_return_status,