43:
44: p_duplicate VARCHAR2 (1);
45: p_940_exists VARCHAR2 (1);
46: --R12.1.1 STANDALONE PROJECT
47: l_wms_deployment_mode VARCHAR2(1);
48: invalid_doc_revision EXCEPTION;
49: invalid_doc_number EXCEPTION;
50: invalid_tp EXCEPTION;
51: invalid_doc_direction EXCEPTION;
93: THEN
94: RAISE invalid_doc_direction;
95: END IF;
96: --R12.1.1 STANDALONE PROJECT
97: l_wms_deployment_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
98:
99: IF (l_wms_deployment_mode = 'D' OR (l_wms_deployment_mode = 'L' AND p_client_code IS NOT NULL)) THEN --{ LSP PROJECT : consider LSP mode also
100:
101: IF ((p_doc_type IS NULL) OR (p_doc_type NOT IN ('SR'))) THEN
95: END IF;
96: --R12.1.1 STANDALONE PROJECT
97: l_wms_deployment_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
98:
99: IF (l_wms_deployment_mode = 'D' OR (l_wms_deployment_mode = 'L' AND p_client_code IS NOT NULL)) THEN --{ LSP PROJECT : consider LSP mode also
100:
101: IF ((p_doc_type IS NULL) OR (p_doc_type NOT IN ('SR'))) THEN
102: RAISE invalid_doc_type;
103: END IF;
184: AND wth.action_type = p_action_type
185: AND wth.trading_partner_id = x_trading_partner_id
186: --R12.1.1 STANDALONE PROJECT
187: -- LSP PROJECT : consider LSP mode also by checking the profile as well as client_code value on WNDI.
188: AND ((l_wms_deployment_mode <> 'D' AND l_wms_deployment_mode <> 'L') OR ((l_wms_deployment_mode = 'D' AND wth.document_revision = p_doc_revision))
189: OR (l_wms_deployment_mode = 'L' AND wth.document_revision = p_doc_revision AND p_client_code IS NOT NULL))
190: AND wth.document_direction = p_doc_direction;
191:
192: IF (p_duplicate = 'X')
185: AND wth.trading_partner_id = x_trading_partner_id
186: --R12.1.1 STANDALONE PROJECT
187: -- LSP PROJECT : consider LSP mode also by checking the profile as well as client_code value on WNDI.
188: AND ((l_wms_deployment_mode <> 'D' AND l_wms_deployment_mode <> 'L') OR ((l_wms_deployment_mode = 'D' AND wth.document_revision = p_doc_revision))
189: OR (l_wms_deployment_mode = 'L' AND wth.document_revision = p_doc_revision AND p_client_code IS NOT NULL))
190: AND wth.document_direction = p_doc_direction;
191:
192: IF (p_duplicate = 'X')
193: THEN
226: /* Check if the Corresponding 940 Add exists when a 940 Cancellation comes in */
227:
228: BEGIN
229: -- R12.1.1 STANDALONE PROJECT
230: IF (l_wms_deployment_mode = 'D' OR (l_wms_deployment_mode = 'L' AND p_client_code IS NOT NULL)) THEN ----{ LSP PROJECT : consider LSP mode also
231:
232: SELECT 'X'
233: INTO p_940_exists
234: FROM wsh_transactions_history
420: END IF;
421: --
422: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
423: --
424: IF WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'D' THEN --Bugfix 13427327
425: IF l_debug_on THEN
426: wsh_debug_sv.log (l_module_name, 'Distributed Mode');
427: wsh_debug_sv.pop (l_module_name);
428: END IF;
435: FROM ecx_tp_headers
436: WHERE party_id = P_trading_partner_id
437: AND party_site_id = P_trading_partner_site_id;
438:
439: IF P_trading_partner_type = 'C' AND WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'L' THEN
440: --
441: SELECT client_code
442: INTO p_client_code
443: FROM
456: --
457: -- Call inventory API to get the item delimiter..
458: IF p_client_code IS NOT NULL THEN
459: IF l_debug_on THEN
460: wsh_debug_sv.logmsg(l_module_name, 'Calling api WMS_DEPLOY.GET_ITEM_FLEX_DELIMITER', WSH_DEBUG_SV.C_PROC_LEVEL);
461: END IF;
462: P_item_delimiter := wms_deploy.get_item_flex_delimiter;
463: END IF;
464: --
458: IF p_client_code IS NOT NULL THEN
459: IF l_debug_on THEN
460: wsh_debug_sv.logmsg(l_module_name, 'Calling api WMS_DEPLOY.GET_ITEM_FLEX_DELIMITER', WSH_DEBUG_SV.C_PROC_LEVEL);
461: END IF;
462: P_item_delimiter := wms_deploy.get_item_flex_delimiter;
463: END IF;
464: --
465: --
466: IF l_debug_on THEN