[Home] [Help]
6905: l_delivery_name VARCHAR2(30) := NULL;
6906: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6907:
6908: -- Release 12 (K): LPN Synchronization/Convergence
6909: -- Types needed for WSH_WMS_LPN_GRP.Create_Update_Containers
6910: l_lpn_cur WMS_Data_Type_Definitions_PUB.LPNRecordType;
6911: l_wsh_dd_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
6912: l_wsh_dd_upd_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
6913: wsh_create_tbl WSH_GLBL_VAR_STRCT_GRP.delivery_details_Attr_tbl_Type;
6976: 1. Uniqueness constraint on WDD.container_name is removed
6977: So it is not required to append characters to the LPNs
6978: to get a new containers name
6979: 2. Replace API call to wsh_container_grp.update_container
6980: with new API call WSH_WMS_LPN_GRP.Create_Update_Containers
6981: */
6982: /*
6983: IF (l_debug = 1) THEN
6984: DEBUG('Release status is C, Updating delivery detail to NULL out LPN_ID', 'create_update_containers');
6993:
6994: l_IN_rec.caller := 'WMS';
6995: l_IN_rec.action_code := 'UPDATE_NULL';
6996:
6997: WSH_WMS_LPN_GRP.Create_Update_Containers (
6998: p_api_version => 1.0
6999: , p_init_msg_list => fnd_api.g_false
7000: , p_commit => fnd_api.g_false
7001: , x_return_status => x_return_status
7007:
7008:
7009: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
7010: IF (l_debug = 1) THEN
7011: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
7012: END IF;
7013:
7014: RAISE fnd_api.g_exc_error;
7015: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7013:
7014: RAISE fnd_api.g_exc_error;
7015: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7016: IF (l_debug = 1) THEN
7017: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
7018: END IF;
7019:
7020: RAISE fnd_api.g_exc_unexpected_error;
7021: ELSE
7020: RAISE fnd_api.g_exc_unexpected_error;
7021: ELSE
7022: l_count := 0;
7023: IF (l_debug = 1) THEN
7024: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success, AF Container exists, set lpn_id to NULL', 'create_update_containers');
7025: END IF;
7026: END IF;
7027:
7028: ELSE
7047: IF l_count = 0 THEN
7048:
7049: /* Release 12 (K): LPN Synchronization
7050: Replace the call to wsh_container_grp.create_containers
7051: with new API call to WSH_WMS_LPN_GRP.Create_Update_Containers
7052:
7053: The pre-R12 code was doing in two steps, create_container then update_container
7054: With the new API call, it replaces both previous API calls */
7055:
7065: END LOOP;
7066:
7067: IF (l_debug = 1) THEN
7068: DEBUG('End of Loop of lpn_details, found '||wsh_create_tbl.count||' records in wsh_create_tbl to process', 'create_update_containers');
7069: DEBUG('Calling WSH_WMS_LPN_GRP.Create_Update_Containers with caller as WMS and CREATE', 'create_update_containers');
7070: END IF;
7071:
7072: l_IN_rec.caller := 'WMS';
7073: l_IN_rec.action_code := 'CREATE';
7071:
7072: l_IN_rec.caller := 'WMS';
7073: l_IN_rec.action_code := 'CREATE';
7074:
7075: WSH_WMS_LPN_GRP.Create_Update_Containers (
7076: p_api_version => 1.0
7077: , p_init_msg_list => fnd_api.g_false
7078: , p_commit => fnd_api.g_false
7079: , x_return_status => x_return_status
7085:
7086:
7087: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
7088: IF (l_debug = 1) THEN
7089: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
7090: END IF;
7091:
7092: RAISE fnd_api.g_exc_error;
7093: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7091:
7092: RAISE fnd_api.g_exc_error;
7093: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7094: IF (l_debug = 1) THEN
7095: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
7096: END IF;
7097:
7098: RAISE fnd_api.g_exc_unexpected_error;
7099: ELSE
7097:
7098: RAISE fnd_api.g_exc_unexpected_error;
7099: ELSE
7100: IF (l_debug = 1) THEN
7101: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success', 'create_update_containers');
7102: END IF;
7103: END IF;
7104: -- End of Release 12 change
7105:
7504:
7505: IF l_wsh_lpn_id_tbl.COUNT > 0 THEN
7506: -- Relase 12: LPN SyncUp
7507: -- Replaced call to wsh_container_grp.container_actions
7508: -- with new API call WSH_WMS_LPN_GRP.Delivery_Detail_Action
7509: l_wsh_action_prms.caller := 'WMS';
7510: l_wsh_action_prms.action_code := p_action_code;
7511: l_wsh_action_prms.lpn_rec.organization_id := p_organization_id;
7512: l_wsh_action_prms.lpn_rec.lpn_id := l_parent_lpn_id;
7511: l_wsh_action_prms.lpn_rec.organization_id := p_organization_id;
7512: l_wsh_action_prms.lpn_rec.lpn_id := l_parent_lpn_id;
7513:
7514: IF (l_debug = 1) THEN
7515: DEBUG('Calling WSH_WMS_LPN_GRP.Delivery_Detail_Action with ', 'Container_Nesting');
7516: DEBUG(' Caller: WMS, action_code:'||p_action_code, 'Container_Nesting');
7517: DEBUG(' organization_id:'||p_organization_id, 'Container_Nesting');
7518: DEBUG(' p_action_prms.lpn_rec.lpn_id='||l_parent_lpn_id, 'Container_Nesting');
7519: DEBUG(' p_lpn_id_tbl with '||l_wsh_lpn_id_tbl.count()||' records', 'Container_Nesting');
7518: DEBUG(' p_action_prms.lpn_rec.lpn_id='||l_parent_lpn_id, 'Container_Nesting');
7519: DEBUG(' p_lpn_id_tbl with '||l_wsh_lpn_id_tbl.count()||' records', 'Container_Nesting');
7520: END IF;
7521:
7522: WSH_WMS_LPN_GRP.Delivery_Detail_Action(
7523: p_api_version_number => 1.0,
7524: p_init_msg_list => fnd_api.g_false,
7525: p_commit => fnd_api.g_false,
7526: x_return_status => x_return_status,