112: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
113: --
114: IF l_debug_on IS NULL
115: THEN
116: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
116: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
126: wsh_debug_sv.log (l_module_name,'Ship Method Code', p_ship_method_code);
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
126: wsh_debug_sv.log (l_module_name,'Ship Method Code', p_ship_method_code);
127: END IF;
120: wsh_debug_sv.push(l_module_name,'Get_Warehouse_Type');
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
126: wsh_debug_sv.log (l_module_name,'Ship Method Code', p_ship_method_code);
127: END IF;
128:
121: wsh_debug_sv.log (l_module_name,'Event Key', p_event_key);
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
126: wsh_debug_sv.log (l_module_name,'Ship Method Code', p_ship_method_code);
127: END IF;
128:
129: --R12.1.1 STANDALONE PROJECT
122: wsh_debug_sv.log (l_module_name,'Organization id', p_organization_id);
123: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
124: wsh_debug_sv.log (l_module_name,'Delivery Detail Id', p_delivery_detail_id);
125: wsh_debug_sv.log (l_module_name,'Carrier Id', p_carrier_id);
126: wsh_debug_sv.log (l_module_name,'Ship Method Code', p_ship_method_code);
127: END IF;
128:
129: --R12.1.1 STANDALONE PROJECT
130: IF (WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'D') THEN
132: l_warehouse_type := NULL;
133:
134: ELSIF (p_event_key IS NOT NULL) THEN
135: IF l_debug_on THEN
136: wsh_debug_sv.log (l_module_name,'Event Key Not null', p_event_key);
137: END IF;
138:
139: l_warehouse_type := SUBSTRB (p_event_key, 1, 3);
140: ELSIF ( p_organization_id IS NULL ) THEN
152:
153: l_otm_enabled_flag := l_shipping_param_info.otm_enabled;
154:
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.log(l_module_name,'After call to WSH_SHIPPING_PARAMS_PVT.Get x_return_status ',x_return_status);
157: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled',l_shipping_param_info.otm_enabled);
158: END IF;
159: --
160: IF (x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
153: l_otm_enabled_flag := l_shipping_param_info.otm_enabled;
154:
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.log(l_module_name,'After call to WSH_SHIPPING_PARAMS_PVT.Get x_return_status ',x_return_status);
157: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled',l_shipping_param_info.otm_enabled);
158: END IF;
159: --
160: IF (x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
161: Raise wsh_ship_param_failed;
169: OPEN wh_flag_cur;
170: FETCH wh_flag_cur INTO l_cms_flag, l_tpw_flag;
171: CLOSE wh_flag_cur;
172: IF l_debug_on THEN
173: wsh_debug_sv.log (l_module_name,'TPW Flag', l_tpw_flag);
174: wsh_debug_sv.log (l_module_name,'CMS Flag', l_cms_flag);
175: END IF;
176: IF ( NVL (l_tpw_flag, '!') = 'Y' ) THEN
177: l_warehouse_type := 'TPW';
170: FETCH wh_flag_cur INTO l_cms_flag, l_tpw_flag;
171: CLOSE wh_flag_cur;
172: IF l_debug_on THEN
173: wsh_debug_sv.log (l_module_name,'TPW Flag', l_tpw_flag);
174: wsh_debug_sv.log (l_module_name,'CMS Flag', l_cms_flag);
175: END IF;
176: IF ( NVL (l_tpw_flag, '!') = 'Y' ) THEN
177: l_warehouse_type := 'TPW';
178: -- TPW - Distributed Organization Changes
178: -- TPW - Distributed Organization Changes
179: IF (FND_PROFILE.VALUE('WSH_SR_SOURCE') = 'B') THEN
180: l_warehouse_type := 'TW2';
181: IF l_debug_on THEN
182: wsh_debug_sv.log (l_module_name,'TW2 Flag', 'Y');
183: END IF;
184: END IF;
185: ELSIF ( NVL (l_cms_flag, '!') = 'Y' ) THEN
186: IF ( p_delivery_id IS NOT NULL ) THEN
208: l_manifest_enabled_flag := 'Y';
209: END IF;
210:
211: IF l_debug_on THEN
212: wsh_debug_sv.log (l_module_name,'Manifest Enabled Flag', l_manifest_enabled_flag);
213: END IF;
214:
215: IF ( nvl( l_manifest_enabled_flag, '!') = 'Y' ) THEN
216: l_warehouse_type := 'CMS';
231:
232: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
233:
234: IF l_debug_on THEN
235: wsh_debug_sv.log (l_module_name, 'Warehouse Type' , l_warehouse_type);
236: wsh_debug_sv.pop (l_module_name);
237: END IF;
238:
239: RETURN l_warehouse_type;
232: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
233:
234: IF l_debug_on THEN
235: wsh_debug_sv.log (l_module_name, 'Warehouse Type' , l_warehouse_type);
236: wsh_debug_sv.pop (l_module_name);
237: END IF;
238:
239: RETURN l_warehouse_type;
240: EXCEPTION
240: EXCEPTION
241: WHEN wsh_org_event_key_null THEN
242: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
243: IF l_debug_on THEN
244: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_org_event_key_null exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_org_event_key_null');
246: END IF;
247: RETURN l_warehouse_type;
248: WHEN wsh_ship_param_failed THEN
241: WHEN wsh_org_event_key_null THEN
242: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
243: IF l_debug_on THEN
244: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_org_event_key_null exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_org_event_key_null');
246: END IF;
247: RETURN l_warehouse_type;
248: WHEN wsh_ship_param_failed THEN
249: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
247: RETURN l_warehouse_type;
248: WHEN wsh_ship_param_failed THEN
249: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_ship_param_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
252: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_ship_param_failed');
253: END IF;
254: RETURN l_warehouse_type;
255:
248: WHEN wsh_ship_param_failed THEN
249: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_ship_param_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
252: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_ship_param_failed');
253: END IF;
254: RETURN l_warehouse_type;
255:
256: WHEN OTHERS THEN
255:
256: WHEN OTHERS THEN
257: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
260: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
262: END IF;
263: RETURN l_warehouse_type;
256: WHEN OTHERS THEN
257: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
260: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
262: END IF;
263: RETURN l_warehouse_type;
264: END Get_Warehouse_Type;
257: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
260: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
262: END IF;
263: RETURN l_warehouse_type;
264: END Get_Warehouse_Type;
265:
355: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
356: --
357: IF l_debug_on IS NULL
358: THEN
359: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
360: END IF;
361: --
362: IF l_debug_on THEN
363: wsh_debug_sv.push(l_module_name);
359: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
360: END IF;
361: --
362: IF l_debug_on THEN
363: wsh_debug_sv.push(l_module_name);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
360: END IF;
361: --
362: IF l_debug_on THEN
363: wsh_debug_sv.push(l_module_name);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
361: --
362: IF l_debug_on THEN
363: wsh_debug_sv.push(l_module_name);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
362: IF l_debug_on THEN
363: wsh_debug_sv.push(l_module_name);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
363: wsh_debug_sv.push(l_module_name);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
364: WSH_DEBUG_SV.log(l_module_name,'transaction_id',P_txn_hist_record.transaction_id);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
365: WSH_DEBUG_SV.log(l_module_name,'document_type',P_txn_hist_record.document_type);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
366: WSH_DEBUG_SV.log(l_module_name,'document_direction',P_txn_hist_record.document_direction);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
367: WSH_DEBUG_SV.log(l_module_name,'document_number',P_txn_hist_record.document_number);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
368: WSH_DEBUG_SV.log(l_module_name,'orig_document_number',P_txn_hist_record.orig_document_number);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
369: WSH_DEBUG_SV.log(l_module_name,'entity_number',P_txn_hist_record.entity_number);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
370: WSH_DEBUG_SV.log(l_module_name,'entity_type',P_txn_hist_record.entity_type);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
371: WSH_DEBUG_SV.log(l_module_name,'trading_partner_id',P_txn_hist_record.trading_partner_id);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
379: WSH_DEBUG_SV.log(l_module_name,'client_code',P_txn_hist_record.client_code);
372: WSH_DEBUG_SV.log(l_module_name,'action_type',P_txn_hist_record.action_type);
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
379: WSH_DEBUG_SV.log(l_module_name,'client_code',P_txn_hist_record.client_code);
380: END IF;
373: WSH_DEBUG_SV.log(l_module_name,'transaction_status',P_txn_hist_record.transaction_status);
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
379: WSH_DEBUG_SV.log(l_module_name,'client_code',P_txn_hist_record.client_code);
380: END IF;
381: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
374: WSH_DEBUG_SV.log(l_module_name,'ecx_message_id',P_txn_hist_record.ecx_message_id);
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
379: WSH_DEBUG_SV.log(l_module_name,'client_code',P_txn_hist_record.client_code);
380: END IF;
381: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
382:
375: WSH_DEBUG_SV.log(l_module_name,'event_name',P_txn_hist_record.event_name);
376: WSH_DEBUG_SV.log(l_module_name,'event_key',P_txn_hist_record.event_key);
377: WSH_DEBUG_SV.log(l_module_name,'item_type',P_txn_hist_record.item_type);
378: WSH_DEBUG_SV.log(l_module_name,'internal_control_number',P_txn_hist_record.internal_control_number);
379: WSH_DEBUG_SV.log(l_module_name,'client_code',P_txn_hist_record.client_code);
380: END IF;
381: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
382:
383: l_txn_hist_record := P_txn_hist_record;
407: -- Eg: 'SSRO', 'SSAI' etc
408: l_Transaction_Code := UPPER (SUBSTRB (l_event_name, INSTRB(l_Event_Name, '.', -1) + 1));
409:
410: IF l_debug_on THEN
411: wsh_debug_sv.log (l_module_name, 'Transaction Code' , l_Transaction_Code);
412: END IF;
413:
414: -- Get the Event Key for Raising an Event.
415: --bmos k proj
422: l_Event_Key,
423: l_Return_Status );
424:
425: IF l_debug_on THEN
426: wsh_debug_sv.log (l_module_name, 'Return status after get_event_key' , l_Return_Status);
427: END IF;
428:
429: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
430: RAISE wsh_get_event_key_error;
438: --R12.1.1 STANDALONE PROJECT
439: l_wms_deployment_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
440:
441: IF l_debug_on THEN
442: wsh_debug_sv.log (l_module_name, 'Event Key' , l_Event_Key);
443: wsh_debug_sv.log (l_module_name, 'Trading partner ID ' , l_txn_hist_record.Trading_Partner_ID);
444: wsh_debug_sv.log (l_module_name, 'Entity Number ' , l_txn_hist_record.Entity_Number);
445: wsh_debug_sv.log (l_module_name, 'WMS Deployment Mode ' , l_wms_deployment_mode);
446: END IF;
439: l_wms_deployment_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
440:
441: IF l_debug_on THEN
442: wsh_debug_sv.log (l_module_name, 'Event Key' , l_Event_Key);
443: wsh_debug_sv.log (l_module_name, 'Trading partner ID ' , l_txn_hist_record.Trading_Partner_ID);
444: wsh_debug_sv.log (l_module_name, 'Entity Number ' , l_txn_hist_record.Entity_Number);
445: wsh_debug_sv.log (l_module_name, 'WMS Deployment Mode ' , l_wms_deployment_mode);
446: END IF;
447:
440:
441: IF l_debug_on THEN
442: wsh_debug_sv.log (l_module_name, 'Event Key' , l_Event_Key);
443: wsh_debug_sv.log (l_module_name, 'Trading partner ID ' , l_txn_hist_record.Trading_Partner_ID);
444: wsh_debug_sv.log (l_module_name, 'Entity Number ' , l_txn_hist_record.Entity_Number);
445: wsh_debug_sv.log (l_module_name, 'WMS Deployment Mode ' , l_wms_deployment_mode);
446: END IF;
447:
448: l_client_id := NULL; -- LSP PROJECT
441: IF l_debug_on THEN
442: wsh_debug_sv.log (l_module_name, 'Event Key' , l_Event_Key);
443: wsh_debug_sv.log (l_module_name, 'Trading partner ID ' , l_txn_hist_record.Trading_Partner_ID);
444: wsh_debug_sv.log (l_module_name, 'Entity Number ' , l_txn_hist_record.Entity_Number);
445: wsh_debug_sv.log (l_module_name, 'WMS Deployment Mode ' , l_wms_deployment_mode);
446: END IF;
447:
448: l_client_id := NULL; -- LSP PROJECT
449: IF ( l_Transaction_Code IN ('SSRO', 'SSAO') ) THEN --{
456: RAISE wsh_invalid_delivery_no;
457: END IF;
458: CLOSE l_New_Del_Cur;
459: IF l_debug_on THEN
460: wsh_debug_sv.log (l_module_name, 'Client_id ', l_client_id);
461: wsh_debug_sv.log (l_module_name, 'Party Site ID ', l_Party_Site_ID);
462: END IF;
463: ELSIF ( l_Transaction_Code IN ('BSRO') ) THEN --Fulfillment Batch XML Project
464: OPEN l_Batch_Cur (l_txn_hist_record.entity_number);
457: END IF;
458: CLOSE l_New_Del_Cur;
459: IF l_debug_on THEN
460: wsh_debug_sv.log (l_module_name, 'Client_id ', l_client_id);
461: wsh_debug_sv.log (l_module_name, 'Party Site ID ', l_Party_Site_ID);
462: END IF;
463: ELSIF ( l_Transaction_Code IN ('BSRO') ) THEN --Fulfillment Batch XML Project
464: OPEN l_Batch_Cur (l_txn_hist_record.entity_number);
465: FETCH l_Batch_Cur INTO l_Party_Site_ID,l_ship_to_location_id,l_customer_id;
468: RAISE wsh_invalid_batch_no;
469: END IF;
470: CLOSE l_Batch_Cur;
471: IF l_debug_on THEN
472: wsh_debug_sv.log (l_module_name, 'Party Site ID ', l_Party_Site_ID);
473: END IF;
474: END IF; --}
475:
476: IF ( l_Transaction_Code in ('SSRO', 'SSAO', 'BSRO') ) THEN --{ --Fulfillment Batch XML Project (Added BSRO)
557: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE', l_org_code);
558: FND_MESSAGE.SET_TOKEN('ITEM_KEY', l_Event_Key);
559: l_body_text := FND_MESSAGE.get;
560: /*IF l_debug_on THEN
561: wsh_debug_sv.log (l_module_name, 'l_body_text' , l_body_text);
562: END IF;*/
563: WF_EVENT.AddParameterToList (p_name => 'BODY_TEXT',
564: p_value => l_body_text,
565: p_parameterlist => l_msg_parameter_list);
565: p_parameterlist => l_msg_parameter_list);
566: END IF; --}
567:
568: /*IF l_debug_on THEN
569: wsh_debug_sv.log (l_module_name, 'l_subject' , l_subject);
570: END IF;*/
571:
572: WF_EVENT.AddParameterToList (p_name => 'SUBJECT',
573: p_value => l_subject,
588: FETCH get_customer_name INTO l_customer;
589: CLOSE get_customer_name;
590:
591: IF l_debug_on THEN
592: wsh_debug_sv.log (l_module_name, 'l_del_name' ,l_del_name );
593: wsh_debug_sv.log (l_module_name, 'l_sf_location' ,l_sf_location );
594: wsh_debug_sv.log (l_module_name, 'l_customer' ,l_customer );
595: wsh_debug_sv.log (l_module_name, 'l_st_location' ,l_st_location);
596: END IF;
589: CLOSE get_customer_name;
590:
591: IF l_debug_on THEN
592: wsh_debug_sv.log (l_module_name, 'l_del_name' ,l_del_name );
593: wsh_debug_sv.log (l_module_name, 'l_sf_location' ,l_sf_location );
594: wsh_debug_sv.log (l_module_name, 'l_customer' ,l_customer );
595: wsh_debug_sv.log (l_module_name, 'l_st_location' ,l_st_location);
596: END IF;
597:
590:
591: IF l_debug_on THEN
592: wsh_debug_sv.log (l_module_name, 'l_del_name' ,l_del_name );
593: wsh_debug_sv.log (l_module_name, 'l_sf_location' ,l_sf_location );
594: wsh_debug_sv.log (l_module_name, 'l_customer' ,l_customer );
595: wsh_debug_sv.log (l_module_name, 'l_st_location' ,l_st_location);
596: END IF;
597:
598: WF_EVENT.AddParameterToList (p_name => 'DEL_NAME',
591: IF l_debug_on THEN
592: wsh_debug_sv.log (l_module_name, 'l_del_name' ,l_del_name );
593: wsh_debug_sv.log (l_module_name, 'l_sf_location' ,l_sf_location );
594: wsh_debug_sv.log (l_module_name, 'l_customer' ,l_customer );
595: wsh_debug_sv.log (l_module_name, 'l_st_location' ,l_st_location);
596: END IF;
597:
598: WF_EVENT.AddParameterToList (p_name => 'DEL_NAME',
599: p_value => l_del_name,
678: l_txns_id,
679: l_return_status );
680:
681: IF l_debug_on THEN
682: wsh_debug_sv.log (l_module_name, 'Transaction History return status ' , l_Return_Status);
683: wsh_debug_sv.log (l_module_name, 'Transaction History ID' , l_txns_id);
684: END IF;
685:
686: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
679: l_return_status );
680:
681: IF l_debug_on THEN
682: wsh_debug_sv.log (l_module_name, 'Transaction History return status ' , l_Return_Status);
683: wsh_debug_sv.log (l_module_name, 'Transaction History ID' , l_txns_id);
684: END IF;
685:
686: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
687: RAISE wsh_update_history;
690: COMMIT;
691: END IF;
692:
693: IF l_debug_on THEN
694: wsh_debug_sv.log (l_module_name, 'Before Raising Event');
695: END IF;
696:
697: IF ( l_Transaction_Code IN ('SSRO', 'SSAO', 'BSRO') ) THEN --Fulfillment Batch XML Project (Added BSRO)
698: WF_EVENT.raise ( p_event_name => l_event_name,
707: p_event_key => l_Event_Key );
708: END IF;
709:
710: IF l_debug_on THEN
711: wsh_debug_sv.log (l_module_name, 'End of Raising Event');
712: wsh_debug_sv.pop(l_module_name);
713: END IF;
714: EXCEPTION
715: WHEN wsh_invalid_event_name THEN
708: END IF;
709:
710: IF l_debug_on THEN
711: wsh_debug_sv.log (l_module_name, 'End of Raising Event');
712: wsh_debug_sv.pop(l_module_name);
713: END IF;
714: EXCEPTION
715: WHEN wsh_invalid_event_name THEN
716: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
714: EXCEPTION
715: WHEN wsh_invalid_event_name THEN
716: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
717: IF l_debug_on THEN
718: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_event_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
719: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_event_name');
720: END IF;
721:
722: WHEN wsh_get_event_key_error THEN
715: WHEN wsh_invalid_event_name THEN
716: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
717: IF l_debug_on THEN
718: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_event_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
719: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_event_name');
720: END IF;
721:
722: WHEN wsh_get_event_key_error THEN
723: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
721:
722: WHEN wsh_get_event_key_error THEN
723: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_event_key_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_event_key_error');
727: END IF;
728:
729: WHEN wsh_invalid_delivery_no THEN
722: WHEN wsh_get_event_key_error THEN
723: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_event_key_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_event_key_error');
727: END IF;
728:
729: WHEN wsh_invalid_delivery_no THEN
730: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
728:
729: WHEN wsh_invalid_delivery_no THEN
730: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
731: IF l_debug_on THEN
732: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
733: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_no');
734: END IF;
735:
736: WHEN wsh_invalid_batch_no THEN --Fulfillment Batch XML Project
729: WHEN wsh_invalid_delivery_no THEN
730: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
731: IF l_debug_on THEN
732: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
733: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_no');
734: END IF;
735:
736: WHEN wsh_invalid_batch_no THEN --Fulfillment Batch XML Project
737: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
735:
736: WHEN wsh_invalid_batch_no THEN --Fulfillment Batch XML Project
737: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_batch_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
740: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_batch_no');
741: END IF; --
742:
743: WHEN wsh_update_history THEN
736: WHEN wsh_invalid_batch_no THEN --Fulfillment Batch XML Project
737: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_batch_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
740: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_batch_no');
741: END IF; --
742:
743: WHEN wsh_update_history THEN
744: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
742:
743: WHEN wsh_update_history THEN
744: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
745: IF l_debug_on THEN
746: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
747: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
748: END IF;
749:
750: WHEN OTHERS THEN
743: WHEN wsh_update_history THEN
744: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
745: IF l_debug_on THEN
746: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
747: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
748: END IF;
749:
750: WHEN OTHERS THEN
751: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
749:
750: WHEN OTHERS THEN
751: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
752: IF l_debug_on THEN
753: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
754: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
756: END IF;
757: END Raise_Event;
750: WHEN OTHERS THEN
751: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
752: IF l_debug_on THEN
753: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
754: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
756: END IF;
757: END Raise_Event;
758:
751: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
752: IF l_debug_on THEN
753: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
754: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
756: END IF;
757: END Raise_Event;
758:
759:
779: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
780: --
781: IF l_debug_on IS NULL
782: THEN
783: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
784: END IF;
785: --
786: IF l_debug_on THEN
787: wsh_debug_sv.push(l_module_name);
783: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
784: END IF;
785: --
786: IF l_debug_on THEN
787: wsh_debug_sv.push(l_module_name);
788: wsh_debug_sv.log (l_module_name, 'Item Name ', p_concatenated_segments);
789: wsh_debug_sv.log (l_module_name, 'Org Id ', p_organization_id);
790: END IF;
791:
784: END IF;
785: --
786: IF l_debug_on THEN
787: wsh_debug_sv.push(l_module_name);
788: wsh_debug_sv.log (l_module_name, 'Item Name ', p_concatenated_segments);
789: wsh_debug_sv.log (l_module_name, 'Org Id ', p_organization_id);
790: END IF;
791:
792: IF ( p_concatenated_segments is not null and p_organization_id is not null ) THEN
785: --
786: IF l_debug_on THEN
787: wsh_debug_sv.push(l_module_name);
788: wsh_debug_sv.log (l_module_name, 'Item Name ', p_concatenated_segments);
789: wsh_debug_sv.log (l_module_name, 'Org Id ', p_organization_id);
790: END IF;
791:
792: IF ( p_concatenated_segments is not null and p_organization_id is not null ) THEN
793: open get_item_id_cur;
803: x_return_status := wsh_util_core.g_ret_sts_success;
804: END IF;
805:
806: IF l_debug_on THEN
807: wsh_debug_sv.pop (l_module_name);
808: END IF;
809: EXCEPTION
810: WHEN OTHERS THEN
811: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
812: IF get_item_id_cur%ISOPEN THEN
813: close get_item_id_cur;
814: END IF;
815: IF l_debug_on THEN
816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
817: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
818: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
819: END IF;
820: END Validate_Item;
813: close get_item_id_cur;
814: END IF;
815: IF l_debug_on THEN
816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
817: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
818: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
819: END IF;
820: END Validate_Item;
821:
814: END IF;
815: IF l_debug_on THEN
816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
817: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
818: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
819: END IF;
820: END Validate_Item;
821:
822: PROCEDURE Validate_Ship_To ( p_customer_name IN VARCHAR2,
901: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
902: --
903: IF l_debug_on IS NULL
904: THEN
905: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
906: END IF;
907: --
908: IF l_debug_on THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
905: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
906: END IF;
907: --
908: IF l_debug_on THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
910: wsh_debug_sv.log (l_module_name, 'Customer Name ', p_customer_name);
911: wsh_debug_sv.log (l_module_name, 'Location ', p_location);
912: wsh_debug_sv.log (l_module_name, 'Site Use Code ', p_site_use_code);
913: wsh_debug_sv.log (l_module_name, 'operating unit ', p_org_id);
906: END IF;
907: --
908: IF l_debug_on THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
910: wsh_debug_sv.log (l_module_name, 'Customer Name ', p_customer_name);
911: wsh_debug_sv.log (l_module_name, 'Location ', p_location);
912: wsh_debug_sv.log (l_module_name, 'Site Use Code ', p_site_use_code);
913: wsh_debug_sv.log (l_module_name, 'operating unit ', p_org_id);
914: END IF;
907: --
908: IF l_debug_on THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
910: wsh_debug_sv.log (l_module_name, 'Customer Name ', p_customer_name);
911: wsh_debug_sv.log (l_module_name, 'Location ', p_location);
912: wsh_debug_sv.log (l_module_name, 'Site Use Code ', p_site_use_code);
913: wsh_debug_sv.log (l_module_name, 'operating unit ', p_org_id);
914: END IF;
915:
908: IF l_debug_on THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
910: wsh_debug_sv.log (l_module_name, 'Customer Name ', p_customer_name);
911: wsh_debug_sv.log (l_module_name, 'Location ', p_location);
912: wsh_debug_sv.log (l_module_name, 'Site Use Code ', p_site_use_code);
913: wsh_debug_sv.log (l_module_name, 'operating unit ', p_org_id);
914: END IF;
915:
916: IF ( p_customer_name is not null and p_location is not null ) THEN
909: wsh_debug_sv.push(l_module_name, 'Validate_Ship_To');
910: wsh_debug_sv.log (l_module_name, 'Customer Name ', p_customer_name);
911: wsh_debug_sv.log (l_module_name, 'Location ', p_location);
912: wsh_debug_sv.log (l_module_name, 'Site Use Code ', p_site_use_code);
913: wsh_debug_sv.log (l_module_name, 'operating unit ', p_org_id);
914: END IF;
915:
916: IF ( p_customer_name is not null and p_location is not null ) THEN
917: IF l_debug_on THEN
914: END IF;
915:
916: IF ( p_customer_name is not null and p_location is not null ) THEN
917: IF l_debug_on THEN
918: wsh_debug_sv.logmsg(l_module_name, 'Using get_loc_id_cur');
919: END IF;
920: open get_loc_id_cur;
921: Fetch get_loc_id_cur into l_location_id, x_customer_id, x_site_use_id;
922:
922:
923: IF get_loc_id_cur%NOTFOUND THEN
924: --{ bug 3920178 begin
925: IF l_debug_on THEN
926: wsh_debug_sv.logmsg(l_module_name, 'Using c_rel_cust_loc_cur');
927: END IF;
928: OPEN c_rel_cust_loc_cur;
929: FETCH c_rel_cust_loc_cur INTO l_location_id, x_customer_id, x_site_use_id;
930:
937: END IF;
938: close get_loc_id_cur;
939:
940: IF l_debug_on THEN
941: wsh_debug_sv.log(l_module_name, 'l_location_id', l_location_id);
942: END IF;
943:
944: IF l_location_id IS NULL THEN
945: --bug 3920178 end
948: -- Patchset I : Locations Project. kvenkate.
949: -- Call Transfer Location API
950:
951: IF l_debug_on THEN
952: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MAP_LOCATION_REGION_PKG.TRANSFER_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
953: END IF;
954:
955: WSH_MAP_LOCATION_REGION_PKG.Transfer_Location(
956: p_source_type => 'HZ',
973: x_return_status := wsh_util_core.g_ret_sts_success;
974: END IF;
975:
976: IF l_debug_on THEN
977: wsh_debug_sv.log(l_module_name, 'Location Id', x_location_id);
978: wsh_debug_sv.log(l_module_name, 'Customer Id', x_customer_id);
979: wsh_debug_sv.log(l_module_name, 'Site Use Id', x_site_use_id);
980: wsh_debug_sv.pop (l_module_name);
981: END IF;
974: END IF;
975:
976: IF l_debug_on THEN
977: wsh_debug_sv.log(l_module_name, 'Location Id', x_location_id);
978: wsh_debug_sv.log(l_module_name, 'Customer Id', x_customer_id);
979: wsh_debug_sv.log(l_module_name, 'Site Use Id', x_site_use_id);
980: wsh_debug_sv.pop (l_module_name);
981: END IF;
982: EXCEPTION
975:
976: IF l_debug_on THEN
977: wsh_debug_sv.log(l_module_name, 'Location Id', x_location_id);
978: wsh_debug_sv.log(l_module_name, 'Customer Id', x_customer_id);
979: wsh_debug_sv.log(l_module_name, 'Site Use Id', x_site_use_id);
980: wsh_debug_sv.pop (l_module_name);
981: END IF;
982: EXCEPTION
983: WHEN fnd_api.g_exc_error THEN
976: IF l_debug_on THEN
977: wsh_debug_sv.log(l_module_name, 'Location Id', x_location_id);
978: wsh_debug_sv.log(l_module_name, 'Customer Id', x_customer_id);
979: wsh_debug_sv.log(l_module_name, 'Site Use Id', x_site_use_id);
980: wsh_debug_sv.pop (l_module_name);
981: END IF;
982: EXCEPTION
983: WHEN fnd_api.g_exc_error THEN
984: x_return_status := wsh_util_core.g_ret_sts_error;
985: IF get_loc_id_cur%ISOPEN THEN
986: close get_loc_id_cur;
987: END IF;
988: IF l_debug_on THEN
989: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
990: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
991: END IF;
992: WHEN OTHERS THEN
993: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
986: close get_loc_id_cur;
987: END IF;
988: IF l_debug_on THEN
989: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
990: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
991: END IF;
992: WHEN OTHERS THEN
993: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
994: IF get_loc_id_cur%ISOPEN THEN
994: IF get_loc_id_cur%ISOPEN THEN
995: close get_loc_id_cur;
996: END IF;
997: IF l_debug_on THEN
998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
999: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1001: END IF;
1002:
995: close get_loc_id_cur;
996: END IF;
997: IF l_debug_on THEN
998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
999: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1001: END IF;
1002:
1003: END Validate_Ship_To;
996: END IF;
997: IF l_debug_on THEN
998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
999: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1001: END IF;
1002:
1003: END Validate_Ship_To;
1004: