[Home] [Help]
98: -- Start of comments
99: -- API name : Init_Pick_Release
100: -- Type : Private
101: -- Pre-reqs : None.
102: -- Procedure: This API calls WSH_PR_CRITERIA.Init API to initialize global variables
103: -- Parameters :
104: -- IN:
105: -- p_batch_id IN Batch Id.
106: -- p_worker_id IN Worker Id.
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
134:
135: WSH_PR_CRITERIA.Init( p_batch_id => p_batch_id,
136: p_worker_id => p_worker_id,
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
134:
135: WSH_PR_CRITERIA.Init( p_batch_id => p_batch_id,
136: p_worker_id => p_worker_id,
137: x_api_status => x_return_status);
138:
139: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
142: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION SUCCESSFUL ');
143: END IF;
144: --
145: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
146: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init');
147: --
148: IF l_debug_on THEN
149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT');
150: END IF;
186: END IF;
187: END; --}
188:
189: -- X-dock, populate the package globals
190: g_allocation_method := WSH_PR_CRITERIA.g_allocation_method;
191:
192: IF l_debug_on THEN
193: WSH_DEBUG_SV.pop(l_module_name);
194: END IF;
301: WSH_DEBUG_SV.log(l_module_name, 'dynamic replenishment flag', L_PARAM_INFO.DYNAMIC_REPLENISHMENT_FLAG);
302: END IF;
303:
304: -- 30. Deriving Actual Values
305: x_org_info.autodetail_flag := NVL(WSH_PR_CRITERIA.g_autodetail_flag, l_param_info.autodetail_pr_flag);
306: x_org_info.auto_pick_confirm := NVL(WSH_PR_CRITERIA.g_auto_pick_confirm_flag, l_default_pickconfirm);
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
302: END IF;
303:
304: -- 30. Deriving Actual Values
305: x_org_info.autodetail_flag := NVL(WSH_PR_CRITERIA.g_autodetail_flag, l_param_info.autodetail_pr_flag);
306: x_org_info.auto_pick_confirm := NVL(WSH_PR_CRITERIA.g_auto_pick_confirm_flag, l_default_pickconfirm);
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
310: x_org_info.pick_grouping_rule_id := NVL(WSH_PR_CRITERIA.g_pick_grouping_rule_id, l_param_info.pick_grouping_rule_id);
303:
304: -- 30. Deriving Actual Values
305: x_org_info.autodetail_flag := NVL(WSH_PR_CRITERIA.g_autodetail_flag, l_param_info.autodetail_pr_flag);
306: x_org_info.auto_pick_confirm := NVL(WSH_PR_CRITERIA.g_auto_pick_confirm_flag, l_default_pickconfirm);
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
310: x_org_info.pick_grouping_rule_id := NVL(WSH_PR_CRITERIA.g_pick_grouping_rule_id, l_param_info.pick_grouping_rule_id);
311: x_org_info.autopack_level := NVL(WSH_PR_CRITERIA.g_autopack_level, l_param_info.autopack_level);
305: x_org_info.autodetail_flag := NVL(WSH_PR_CRITERIA.g_autodetail_flag, l_param_info.autodetail_pr_flag);
306: x_org_info.auto_pick_confirm := NVL(WSH_PR_CRITERIA.g_auto_pick_confirm_flag, l_default_pickconfirm);
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
310: x_org_info.pick_grouping_rule_id := NVL(WSH_PR_CRITERIA.g_pick_grouping_rule_id, l_param_info.pick_grouping_rule_id);
311: x_org_info.autopack_level := NVL(WSH_PR_CRITERIA.g_autopack_level, l_param_info.autopack_level);
312: -- rlanka : Pack J Enhancement
313: --
306: x_org_info.auto_pick_confirm := NVL(WSH_PR_CRITERIA.g_auto_pick_confirm_flag, l_default_pickconfirm);
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
310: x_org_info.pick_grouping_rule_id := NVL(WSH_PR_CRITERIA.g_pick_grouping_rule_id, l_param_info.pick_grouping_rule_id);
311: x_org_info.autopack_level := NVL(WSH_PR_CRITERIA.g_autopack_level, l_param_info.autopack_level);
312: -- rlanka : Pack J Enhancement
313: --
314: -- LSP PROJECT : Use_header_flag value defaulting (from org/client defaults) has been moved to the calling API
307: x_org_info.autocreate_deliveries := NVL(WSH_PR_CRITERIA.g_autocreate_deliveries,
308: l_param_info.autocreate_deliveries_flag); --bug 4556414
309: x_org_info.pick_seq_rule_id := NVL(WSH_PR_CRITERIA.g_pick_seq_rule_id, l_param_info.pick_sequence_rule_id);
310: x_org_info.pick_grouping_rule_id := NVL(WSH_PR_CRITERIA.g_pick_grouping_rule_id, l_param_info.pick_grouping_rule_id);
311: x_org_info.autopack_level := NVL(WSH_PR_CRITERIA.g_autopack_level, l_param_info.autopack_level);
312: -- rlanka : Pack J Enhancement
313: --
314: -- LSP PROJECT : Use_header_flag value defaulting (from org/client defaults) has been moved to the calling API
315: -- WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups/Create_Hash and hence just passing
313: --
314: -- LSP PROJECT : Use_header_flag value defaulting (from org/client defaults) has been moved to the calling API
315: -- WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups/Create_Hash and hence just passing
316: -- the original value to the calling API.
317: --x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
318: x_org_info.use_header_flag := WSH_PR_CRITERIA.g_acDelivCriteria;
319: -- LSP PROJECT : end
320: x_org_info.append_flag := l_param_info.appending_limit;
321: x_org_info.print_pick_slip_mode := l_param_info.print_pick_slip_mode;
314: -- LSP PROJECT : Use_header_flag value defaulting (from org/client defaults) has been moved to the calling API
315: -- WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups/Create_Hash and hence just passing
316: -- the original value to the calling API.
317: --x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
318: x_org_info.use_header_flag := WSH_PR_CRITERIA.g_acDelivCriteria;
319: -- LSP PROJECT : end
320: x_org_info.append_flag := l_param_info.appending_limit;
321: x_org_info.print_pick_slip_mode := l_param_info.print_pick_slip_mode;
322: x_org_info.enforce_ship_set_and_smc := l_param_info.enforce_ship_set_and_smc;
335: WSH_DEBUG_SV.logmsg(l_module_name, P_ORGANIZATION_ID || ' IS WMS ENABLED ORGANIZATION' );
336: END IF;
337:
338: --task_planning_flag is default of Release criteria or organization default.
339: x_org_info.task_planning_flag := NVL(WSH_PR_CRITERIA.g_task_planning_flag, NVL(l_param_info.task_planning_flag, 'N'));
340: IF x_org_info.task_planning_flag = 'Y' THEN
341: x_org_info.auto_pick_confirm := 'N';
342: END IF;
343:
341: x_org_info.auto_pick_confirm := 'N';
342: END IF;
343:
344: --bug# 6689448 (replenishment project):
345: x_org_info.dynamic_replenishment_flag := NVL(WSH_PR_CRITERIA.g_dynamic_replenishment_flag, NVL(l_param_info.dynamic_replenishment_flag, 'N'));
346: ELSE
347: x_org_info.task_planning_flag := 'N';
348: x_org_info.dynamic_replenishment_flag := 'N';
349: END IF;
351: -- Bug 3316645: For only Non-WMS orgs, default the Subinventory and Locator from either
352: -- Pick Release Criteria or the Shipping Parameters defaults
353: -- For WMS, the default will be from the Pick Release Criteria entered only
354: IF (x_org_info.wms_org = 'N') THEN
355: x_org_info.to_subinventory := NVL(WSH_PR_CRITERIA.g_to_subinventory, l_param_info.default_stage_subinventory);
356:
357: -- Following IF condition added for Bug 4199614,(FP Bug-4225169)
358: -- Default locator in Org. Shipping Parameters will be assigned to To_Locator
359: -- only if default subinventory in Org. Shipping Parameters and subinventory
361: -- Modified IF condition for bug 4363740.
362: -- If Subinventory entered in Pick Release form is NULL, then copy Subinventory
363: -- and Locator from Org. Shipping Parameters.
364: IF (l_param_info.default_stage_subinventory = x_org_info.to_subinventory) THEN
365: x_org_info.to_locator := NVL(WSH_PR_CRITERIA.g_to_locator, l_param_info.default_stage_locator_id);
366: ELSE
367: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
368: END IF;
369:
363: -- and Locator from Org. Shipping Parameters.
364: IF (l_param_info.default_stage_subinventory = x_org_info.to_subinventory) THEN
365: x_org_info.to_locator := NVL(WSH_PR_CRITERIA.g_to_locator, l_param_info.default_stage_locator_id);
366: ELSE
367: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
368: END IF;
369:
370: ELSE
371: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
367: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
368: END IF;
369:
370: ELSE
371: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
372: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
373: END IF;
374:
375: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
368: END IF;
369:
370: ELSE
371: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
372: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
373: END IF;
374:
375: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
376: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
371: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
372: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
373: END IF;
374:
375: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
376: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
377: ELSE
378: x_org_info.doc_set_id := l_param_info.pick_release_report_set_id;
379: END IF;
372: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
373: END IF;
374:
375: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
376: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
377: ELSE
378: x_org_info.doc_set_id := l_param_info.pick_release_report_set_id;
379: END IF;
380:
380:
381: IF x_org_info.append_flag = 'N' or x_org_info.auto_pick_confirm = 'Y' THEN
382: x_org_info.append_flag := 'N';
383: ELSE
384: x_org_info.append_flag := NVL(WSH_PR_CRITERIA.g_append_flag, x_org_info.append_flag);
385: END IF;
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
411: END IF;
412:
413: -- 40. Express Pickup only if Profile is yes AND Have prior reservation AND Ato Pick Confirm select as Yes.
414: IF l_express_pick_profile = 'Y' THEN
415: IF x_org_info.wms_org = 'N' AND WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y'
416: AND x_org_info.auto_pick_confirm = 'Y' THEN
417: x_org_info.express_pick_flag := 'Y';
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
423: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
424: END IF;
425: END IF;
426: -- Bug 4775539
427: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
428: --Get the honor pick from profile value default is Y.
429: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
430: END IF;
431:
425: END IF;
426: -- Bug 4775539
427: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
428: --Get the honor pick from profile value default is Y.
429: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
430: END IF;
431:
432: -- 50. Check to see if rules need to be initialized for organization
433: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
429: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
430: END IF;
431:
432: -- 50. Check to see if rules need to be initialized for organization
433: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
434: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
430: END IF;
431:
432: -- 50. Check to see if rules need to be initialized for organization
433: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
434: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438:
432: -- 50. Check to see if rules need to be initialized for organization
433: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
434: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438:
439: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
440: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438:
439: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
440: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
441:
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
444: END IF;
445:
446: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
447: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
448:
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
451: RETURN; -- back to calling API
671: END IF;
672: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
673: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
674: p_organization_id => p_organization_id,
675: p_order_header_id => WSH_PR_CRITERIA.g_order_header_id,
676: p_ps_mode => p_ps_mode,
677: p_batch_id => p_batch_id,
678: x_api_status => l_return_status,
679: x_error_message => l_message );
707: l_document_info(1).p_request_id := FND_GLOBAL.CONC_REQUEST_ID;
708: -- bug 2367043: p_move_order range should use l_batch_name, not id.
709: l_document_info(1).p_move_order_h := p_batch_name;
710: l_document_info(1).p_move_order_l := p_batch_name;
711: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
708: -- bug 2367043: p_move_order range should use l_batch_name, not id.
709: l_document_info(1).p_move_order_h := p_batch_name;
710: l_document_info(1).p_move_order_l := p_batch_name;
711: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
709: l_document_info(1).p_move_order_h := p_batch_name;
710: l_document_info(1).p_move_order_l := p_batch_name;
711: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
710: l_document_info(1).p_move_order_l := p_batch_name;
711: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
711: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
712: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
713: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
714: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
722: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
715: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
722: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
723: FETCH c_order_number INTO l_order_number;
716: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
722: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
723: FETCH c_order_number INTO l_order_number;
724: CLOSE c_order_number;
717: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
722: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
723: FETCH c_order_number INTO l_order_number;
724: CLOSE c_order_number;
725: l_document_info(1).p_order_num_high := l_order_number;
718: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
719: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
720: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
721: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
722: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
723: FETCH c_order_number INTO l_order_number;
724: CLOSE c_order_number;
725: l_document_info(1).p_order_num_high := l_order_number;
726: l_document_info(1).p_order_num_low := l_order_number;
724: CLOSE c_order_number;
725: l_document_info(1).p_order_num_high := l_order_number;
726: l_document_info(1).p_order_num_low := l_order_number;
727: --Bugfix 3604021 added code to pass the order type id
728: l_document_info(1).p_order_type_id := WSH_PR_CRITERIA.g_order_type_id;
729: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
730: END IF;
731:
732: IF l_debug_on THEN
725: l_document_info(1).p_order_num_high := l_order_number;
726: l_document_info(1).p_order_num_low := l_order_number;
727: --Bugfix 3604021 added code to pass the order type id
728: l_document_info(1).p_order_type_id := WSH_PR_CRITERIA.g_order_type_id;
729: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
730: END IF;
731:
732: IF l_debug_on THEN
733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
959:
960: g_xdock_delivery_ids.delete;
961: g_xdock_detail_ids.delete;
962:
963: l_user_id := WSH_PR_CRITERIA.g_user_id;
964: l_login_id := WSH_PR_CRITERIA.g_login_id;
965: l_date := SYSDATE;
966:
967: -- X-dock
960: g_xdock_delivery_ids.delete;
961: g_xdock_detail_ids.delete;
962:
963: l_user_id := WSH_PR_CRITERIA.g_user_id;
964: l_login_id := WSH_PR_CRITERIA.g_login_id;
965: l_date := SYSDATE;
966:
967: -- X-dock
968: -- Call to WMS API to process lines for X-dock
968: -- Call to WMS API to process lines for X-dock
969: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
972: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
974: END IF;
975:
976: -- Parameters description :
977: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery details which have been
978: -- successfully planned for X-dock
979: -- P_TROLIN_DELIVERY_IDS (g_xdock_delivery_ids) : Matches index with p_del_detail_id and stores
980: -- delivery ids for the delivery details(derived from release_table)
981: -- P_WSH_RELEASE_TABLE(wsh_pr_criteria.release_table) : IN/OUT variable, in case of splitting
982: -- of delivery details new records will be added to p_wsh_release_table
983: --
984: WMS_Xdock_Pegging_Pub.Planned_Cross_Dock
985: (p_api_version => l_api_version_number,
985: (p_api_version => l_api_version_number,
986: p_init_msg_list => fnd_api.g_false,
987: p_commit => l_commit,
988: p_batch_id => p_batch_id,
989: p_wsh_release_table => wsh_pr_criteria.release_table,
990: p_trolin_delivery_ids => g_xdock_delivery_ids,
991: p_del_detail_id => g_xdock_detail_ids,
992: x_return_status => l_return_status,
993: x_msg_count => l_msg_count,
995: );
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
1012: RETURN;
1013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1014: x_return_status := l_return_status;
1015: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
1016: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
1017: --there is atleast one delivery detail which was not crossdocked
1018: --Need to log exception for that delivery detail
1019: --WMS Crossdock API will set the released_status to 'S' for lines which are
1020: --crossdocked
1017: --there is atleast one delivery detail which was not crossdocked
1018: --Need to log exception for that delivery detail
1019: --WMS Crossdock API will set the released_status to 'S' for lines which are
1020: --crossdocked
1021: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1022: LOOP
1023: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1024:
1025: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
1019: --WMS Crossdock API will set the released_status to 'S' for lines which are
1020: --crossdocked
1021: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1022: LOOP
1023: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1024:
1025: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
1026: l_exception_name := 'WSH_PICK_XDOCK_NR'; -- ECO 5220234
1027: ELSE
1021: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1022: LOOP
1023: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1024:
1025: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
1026: l_exception_name := 'WSH_PICK_XDOCK_NR'; -- ECO 5220234
1027: ELSE
1028: l_exception_name := 'WSH_PICK_XDOCK';
1029: END IF;
1036: l_dummy_exception_id := NULL;
1037: IF l_debug_on THEN
1038: WSH_DEBUG_SV.logmsg(l_module_name,
1039: 'Log exception for Detail, id- '
1040: ||WSH_PR_CRITERIA.release_table(i).delivery_detail_id
1041: || ', ' || l_exception_name);
1042: END IF;
1043:
1044: wsh_xc_util.log_exception(
1046: p_logging_entity => 'SHIPPER',
1047: p_logging_entity_id => FND_GLOBAL.USER_ID,
1048: p_exception_name => l_exception_name,
1049: p_message => l_message,
1050: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1051: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1052: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1053: p_request_id => l_request_id,
1054: p_batch_id => WSH_PICK_LIST.g_batch_id,
1047: p_logging_entity_id => FND_GLOBAL.USER_ID,
1048: p_exception_name => l_exception_name,
1049: p_message => l_message,
1050: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1051: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1052: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1053: p_request_id => l_request_id,
1054: p_batch_id => WSH_PICK_LIST.g_batch_id,
1055: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1048: p_exception_name => l_exception_name,
1049: p_message => l_message,
1050: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1051: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1052: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1053: p_request_id => l_request_id,
1054: p_batch_id => WSH_PICK_LIST.g_batch_id,
1055: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1056: x_return_status => l_exception_return_status,
1051: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1052: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1053: p_request_id => l_request_id,
1054: p_batch_id => WSH_PICK_LIST.g_batch_id,
1055: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1056: x_return_status => l_exception_return_status,
1057: x_msg_count => l_exception_msg_count,
1058: x_msg_data => l_exception_msg_data,
1059: x_exception_id => l_dummy_exception_id);
1071:
1072: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then Generate Grouping Ids for the lines
1073: -- X-dock,cartonization is not applicable for X-dock only mode
1074: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1075: AND WSH_PR_CRITERIA.release_table.count > 0
1076: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1079: THEN --{
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1082: END IF;
1083: l_attr_tab.delete;
1084: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1085: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1086: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1087: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1088: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1081: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1082: END IF;
1083: l_attr_tab.delete;
1084: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1085: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1086: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1087: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1088: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1089: IF l_debug_on THEN
1083: l_attr_tab.delete;
1084: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1085: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1086: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1087: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1088: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1091: END IF;
1086: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1087: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1088: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1091: END IF;
1092: l_attr_tab(i).is_xdocked_flag := 'Y';
1093: END IF;
1094: END LOOP;
1139: --bug 7171766
1140: l_group_match_seq_tbl.delete;
1141:
1142: -- Looping through Release Table
1143: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1144: --{
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1147: END IF;
1142: -- Looping through Release Table
1143: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1144: --{
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1147: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1144: --{
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1147: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1147: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1153: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1153: END IF;
1154: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1155: --{
1156: IF l_debug_on THEN
1150: END IF;
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1153: END IF;
1154: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1155: --{
1156: IF l_debug_on THEN
1157: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1158: END IF;
1156: IF l_debug_on THEN
1157: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1158: END IF;
1159: l_count_x_relstatus_details := l_count_x_relstatus_details + 1;
1160: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1161: --}
1162: -- X-dock, X-dock lines which have been processed above
1163: -- will have released status of S
1164: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1160: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1161: --}
1162: -- X-dock, X-dock lines which have been processed above
1163: -- will have released status of S
1164: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1165: IF l_debug_on THEN
1166: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING PLANNED X-DOCK LINE FOR MOVE ORDER LINE CREATION');
1167: END IF;
1168: --}
1169: ELSE
1170: --{
1171: --
1172: l_count := l_count + 1;
1173: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1174: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1175: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1176: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1177: g_trolin_tbl(l_count).created_by := l_user_id;
1170: --{
1171: --
1172: l_count := l_count + 1;
1173: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1174: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1175: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1176: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1177: g_trolin_tbl(l_count).created_by := l_user_id;
1178: g_trolin_tbl(l_count).creation_date := l_date;
1171: --
1172: l_count := l_count + 1;
1173: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1174: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1175: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1176: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1177: g_trolin_tbl(l_count).created_by := l_user_id;
1178: g_trolin_tbl(l_count).creation_date := l_date;
1179: g_trolin_tbl(l_count).last_updated_by := l_user_id;
1172: l_count := l_count + 1;
1173: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1174: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1175: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1176: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1177: g_trolin_tbl(l_count).created_by := l_user_id;
1178: g_trolin_tbl(l_count).creation_date := l_date;
1179: g_trolin_tbl(l_count).last_updated_by := l_user_id;
1180: g_trolin_tbl(l_count).last_update_date := l_date;
1180: g_trolin_tbl(l_count).last_update_date := l_date;
1181: g_trolin_tbl(l_count).last_update_login := l_login_id;
1182: g_trolin_tbl(l_count).header_id := p_mo_header_id;
1183: --Bug8683087 passing mtl_sales_order header_id
1184: g_trolin_tbl(l_count).txn_source_id := WSH_PR_CRITERIA.release_table(i).demand_source_header_id;
1185: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1186: g_trolin_tbl(l_count).organization_id := p_organization_id;
1187: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1181: g_trolin_tbl(l_count).last_update_login := l_login_id;
1182: g_trolin_tbl(l_count).header_id := p_mo_header_id;
1183: --Bug8683087 passing mtl_sales_order header_id
1184: g_trolin_tbl(l_count).txn_source_id := WSH_PR_CRITERIA.release_table(i).demand_source_header_id;
1185: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1186: g_trolin_tbl(l_count).organization_id := p_organization_id;
1187: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1183: --Bug8683087 passing mtl_sales_order header_id
1184: g_trolin_tbl(l_count).txn_source_id := WSH_PR_CRITERIA.release_table(i).demand_source_header_id;
1185: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1186: g_trolin_tbl(l_count).organization_id := p_organization_id;
1187: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1190: -- Standalone project Changes : Begin
1191: -- LSP PROJECT : consider LSP mode also.
1184: g_trolin_tbl(l_count).txn_source_id := WSH_PR_CRITERIA.release_table(i).demand_source_header_id;
1185: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1186: g_trolin_tbl(l_count).organization_id := p_organization_id;
1187: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1190: -- Standalone project Changes : Begin
1191: -- LSP PROJECT : consider LSP mode also.
1192: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1185: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1186: g_trolin_tbl(l_count).organization_id := p_organization_id;
1187: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1190: -- Standalone project Changes : Begin
1191: -- LSP PROJECT : consider LSP mode also.
1192: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1193: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1188: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1190: -- Standalone project Changes : Begin
1191: -- LSP PROJECT : consider LSP mode also.
1192: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1193: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1194: END IF;
1195: ELSE
1196: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1189: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1190: -- Standalone project Changes : Begin
1191: -- LSP PROJECT : consider LSP mode also.
1192: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1193: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1194: END IF;
1195: ELSE
1196: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1197: -- Standalone project Changes
1192: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1193: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1194: END IF;
1195: ELSE
1196: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1197: -- Standalone project Changes
1198: -- wdd's loc id should be considered when released with pick from sub and no pick from loc
1199: --
1200: -- LSP PROJECT : consider LSP mode also.
1197: -- Standalone project Changes
1198: -- wdd's loc id should be considered when released with pick from sub and no pick from loc
1199: --
1200: -- LSP PROJECT : consider LSP mode also.
1201: IF ((l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) AND WSH_PR_CRITERIA.g_from_locator IS NULL) THEN
1202: IF (g_trolin_tbl(l_count).from_subinventory_code = WSH_PR_CRITERIA.g_from_subinventory) THEN
1203: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1204: ELSE
1205: g_trolin_tbl(l_count).from_locator_id := NULL;
1198: -- wdd's loc id should be considered when released with pick from sub and no pick from loc
1199: --
1200: -- LSP PROJECT : consider LSP mode also.
1201: IF ((l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) AND WSH_PR_CRITERIA.g_from_locator IS NULL) THEN
1202: IF (g_trolin_tbl(l_count).from_subinventory_code = WSH_PR_CRITERIA.g_from_subinventory) THEN
1203: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1204: ELSE
1205: g_trolin_tbl(l_count).from_locator_id := NULL;
1206: END IF;
1199: --
1200: -- LSP PROJECT : consider LSP mode also.
1201: IF ((l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) AND WSH_PR_CRITERIA.g_from_locator IS NULL) THEN
1202: IF (g_trolin_tbl(l_count).from_subinventory_code = WSH_PR_CRITERIA.g_from_subinventory) THEN
1203: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.release_table(i).from_locator;
1204: ELSE
1205: g_trolin_tbl(l_count).from_locator_id := NULL;
1206: END IF;
1207: ELSE
1204: ELSE
1205: g_trolin_tbl(l_count).from_locator_id := NULL;
1206: END IF;
1207: ELSE
1208: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.g_from_locator;
1209: END IF;
1210: END IF;
1211: -- Standalone project Changes
1212: -- LSP PROJECT : consider LSP mode also.
1209: END IF;
1210: END IF;
1211: -- Standalone project Changes
1212: -- LSP PROJECT : consider LSP mode also.
1213: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1214: g_trolin_tbl(l_count).revision := WSH_PR_CRITERIA.release_table(i).revision;
1215: g_trolin_tbl(l_count).lot_number := WSH_PR_CRITERIA.release_table(i).lot_number;
1216: END IF;
1217: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1210: END IF;
1211: -- Standalone project Changes
1212: -- LSP PROJECT : consider LSP mode also.
1213: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1214: g_trolin_tbl(l_count).revision := WSH_PR_CRITERIA.release_table(i).revision;
1215: g_trolin_tbl(l_count).lot_number := WSH_PR_CRITERIA.release_table(i).lot_number;
1216: END IF;
1217: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1218: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1211: -- Standalone project Changes
1212: -- LSP PROJECT : consider LSP mode also.
1213: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' AND WSH_PR_CRITERIA.release_table(i).client_id IS NOT NULL)) THEN
1214: g_trolin_tbl(l_count).revision := WSH_PR_CRITERIA.release_table(i).revision;
1215: g_trolin_tbl(l_count).lot_number := WSH_PR_CRITERIA.release_table(i).lot_number;
1216: END IF;
1217: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1218: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1219: --
1266: --}
1267: END IF;
1268:
1269: -- Get Staging Subinventory and Staging Lane for WMS Organization
1270: IF (p_wms_flag = 'Y') AND (WSH_PR_CRITERIA.release_table(i).delivery_detail_id IS NOT NULL) THEN
1271: --{
1272: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1273: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1274: IF get_dd_pup_trip_stop%NOTFOUND THEN
1268:
1269: -- Get Staging Subinventory and Staging Lane for WMS Organization
1270: IF (p_wms_flag = 'Y') AND (WSH_PR_CRITERIA.release_table(i).delivery_detail_id IS NOT NULL) THEN
1271: --{
1272: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1273: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1274: IF get_dd_pup_trip_stop%NOTFOUND THEN
1275: IF l_debug_on THEN
1276: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1273: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1274: IF get_dd_pup_trip_stop%NOTFOUND THEN
1275: IF l_debug_on THEN
1276: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1277: WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID|| ' NOT ASSOCIATED TO ANY TRIP' );
1278: END IF;
1279: ELSE
1280: --{
1281: -- If Stop_id already exists in Staging Table, use table values
1298: x_msg_count => x_wms_msg_count,
1299: x_msg_data => x_wms_msg_data);
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1319: CLOSE get_dd_pup_trip_stop;
1320: --}
1321: END IF;
1322:
1323: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1320: --}
1321: END IF;
1322:
1323: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1321: END IF;
1322:
1323: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1329: IF l_debug_on THEN
1322:
1323: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1323: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1331: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1324: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1325: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1331: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1332: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1331: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1332: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1333: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1334: END IF;
1335: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1336: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1332: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1333: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1334: END IF;
1335: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1336: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1333: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1334: END IF;
1335: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1336: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1341: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1334: END IF;
1335: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1336: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1341: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1342: -- Transaction type is different for internal orders
1335: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1336: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1341: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1342: -- Transaction type is different for internal orders
1343: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1337: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1338: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1341: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1342: -- Transaction type is different for internal orders
1343: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1344: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_INTERNAL_ORDER_STGXFR;
1345: ELSE
1339: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1340: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1341: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1342: -- Transaction type is different for internal orders
1343: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1344: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_INTERNAL_ORDER_STGXFR;
1345: ELSE
1346: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_STGXFR;
1347: END IF;
1346: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_STGXFR;
1347: END IF;
1348:
1349: -- No need to create move order line for backordered line
1350: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1351: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1352: -- The quantity for the Backordered line should be the same as the original quantity
1353: IF l_debug_on THEN
1354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1347: END IF;
1348:
1349: -- No need to create move order line for backordered line
1350: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1351: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1352: -- The quantity for the Backordered line should be the same as the original quantity
1353: IF l_debug_on THEN
1354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1355: END IF;
1562: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1563: l_request_id := fnd_global.conc_request_id;
1564: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1565: --{
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1573: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1574: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1573: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1574: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1575: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1573: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1574: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1575: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
1576: l_message := FND_MESSAGE.GET;
1577: l_exception_return_status := NULL;
1578: l_exception_msg_count := NULL;
1586: p_logging_entity => 'SHIPPER',
1587: p_logging_entity_id => FND_GLOBAL.USER_ID,
1588: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1589: p_message => l_message,
1590: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1591: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1592: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1593: p_request_id => l_request_id,
1594: p_batch_id => WSH_PICK_LIST.g_batch_id,
1587: p_logging_entity_id => FND_GLOBAL.USER_ID,
1588: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1589: p_message => l_message,
1590: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1591: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1592: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1593: p_request_id => l_request_id,
1594: p_batch_id => WSH_PICK_LIST.g_batch_id,
1595: x_return_status => l_exception_return_status,
1588: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1589: p_message => l_message,
1590: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1591: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1592: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1593: p_request_id => l_request_id,
1594: p_batch_id => WSH_PICK_LIST.g_batch_id,
1595: x_return_status => l_exception_return_status,
1596: x_msg_count => l_exception_msg_count,
1641: END IF;
1642: --}
1643: END IF; -- g_trolin_tbl.count > 0
1644:
1645: x_curr_count := x_curr_count + WSH_PR_CRITERIA.release_table.count ;
1646:
1647: -- Save Move Order Line IDs into Delivery Details table
1648: IF p_express_pick_flag = 'N' THEN
1649: --{
1734:
1735: END IF;
1736: EXCEPTION
1737: WHEN no_data_found THEN
1738: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: RETURN;
1744: WHEN others THEN
1745: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1747: IF l_debug_on THEN
1748: WSH_DEBUG_SV.pop(l_module_name);
1749: END IF;
2510: --{
2511: IF p_mode IN ('PICK','PICK-SS') THEN
2512:
2513: IF p_worker_id IS NOT NULL THEN --{
2514: -- 10.10 Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
2515: -- and also set Batch_Id and Seeded Pick Release Document Set
2516: IF l_debug_on THEN
2517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
2518: END IF;
2532:
2533: -- Clear Demand Table
2534: g_demand_table.delete;
2535:
2536: WSH_PR_CRITERIA.g_credit_check_option := WSH_CUSTOM_PUB.Credit_Check_Details_Option;
2537:
2538: -- Determine Pick Release Batch Size based on Profile
2539: --Bug 5137504 Handling if Batch size is set to value less than 1 or is aphanumeric
2540: BEGIN
2552: l_pr_batch_size :=50;
2553: END;
2554: -- MAX_LINES should never be less than 3 or else infinite loop will occur.
2555: IF l_pr_batch_size IS NOT NULL THEN
2556: WSH_PR_CRITERIA.MAX_LINES := l_pr_batch_size;
2557: END IF;
2558:
2559: -- MAX_LINES should never be less than 3 or greater than 1000
2560: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2556: WSH_PR_CRITERIA.MAX_LINES := l_pr_batch_size;
2557: END IF;
2558:
2559: -- MAX_LINES should never be less than 3 or greater than 1000
2560: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2561: WSH_PR_CRITERIA.MAX_LINES := 3;
2562: END IF;
2563:
2564: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2557: END IF;
2558:
2559: -- MAX_LINES should never be less than 3 or greater than 1000
2560: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2561: WSH_PR_CRITERIA.MAX_LINES := 3;
2562: END IF;
2563:
2564: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2565: WSH_PR_CRITERIA.MAX_LINES := 1000;
2560: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2561: WSH_PR_CRITERIA.MAX_LINES := 3;
2562: END IF;
2563:
2564: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2565: WSH_PR_CRITERIA.MAX_LINES := 1000;
2566: END IF;
2567:
2568: IF l_debug_on THEN
2561: WSH_PR_CRITERIA.MAX_LINES := 3;
2562: END IF;
2563:
2564: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2565: WSH_PR_CRITERIA.MAX_LINES := 1000;
2566: END IF;
2567:
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2565: WSH_PR_CRITERIA.MAX_LINES := 1000;
2566: END IF;
2567:
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2570: END IF;
2571:
2572: -- 10.20 Looping thru Organization-Move Order Header Combination
2573: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2587: l_done_flag := FND_API.G_FALSE;
2588: l_total_detailed_count := 0;
2589:
2590: -- Reset the Non-Reservable Item Flag as 'N'
2591: WSH_PR_CRITERIA.g_nonreservable_item := 'N';
2592:
2593: -- 10.20.20 Getting Organization Parameters
2594: --{
2595: IF l_debug_on THEN
2606:
2607: -- 10.20.30 Initialize the cursor to fetch Worker Records
2608: --{
2609: IF l_debug_on THEN
2610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2611: END IF;
2612: WSH_PR_CRITERIA.Get_Worker_Records (
2613: p_mode => p_mode,
2614: p_batch_id => p_batch_id,
2608: --{
2609: IF l_debug_on THEN
2610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2611: END IF;
2612: WSH_PR_CRITERIA.Get_Worker_Records (
2613: p_mode => p_mode,
2614: p_batch_id => p_batch_id,
2615: p_organization_id => batch_rec.organization_id,
2616: x_api_status => l_return_status );
2625: --{
2626: -- 10.20.40.10 Select a number of order lines at a time
2627: --{
2628: IF l_debug_on THEN
2629: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2630: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2631: END IF;
2632: WSH_PR_CRITERIA.Get_Lines(
2633: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2628: IF l_debug_on THEN
2629: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2630: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2631: END IF;
2632: WSH_PR_CRITERIA.Get_Lines(
2633: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2634: p_wms_flag => l_org_info.wms_org,
2635: p_express_pick_flag => l_org_info.express_pick_flag,
2636: p_batch_id => p_batch_id,
2637: x_done_flag => l_done_flag,
2638: x_api_status => l_return_status );
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2646: RAISE e_return;
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2649: l_completion_status := 'WARNING';
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2649: l_completion_status := 'WARNING';
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.log(l_Module_name, 'WSH_PR_CRITERIA.Get_Lines returned with warning');
2652: END IF;
2653: END IF;
2654: --}
2655:
2653: END IF;
2654: --}
2655:
2656: -- If there are no more lines to be processed, then go for Next Org-Move Order Combo
2657: IF WSH_PR_CRITERIA.release_table.count = 0 THEN
2658: GOTO NEXT_ORG_MO_WORKER;
2659: END IF;
2660:
2661: -- Savepoint to rollback for any error during pick release API
2711: -- 2) If it is not worker and parameter p_num_workers in Release_Batch API > 1
2712: -- and if Pick Slip Printing Mode is Immediate or Delivery is part of Pick Slip Grouping Rule
2713: -- 3) If it is not worker and parameter p_num_workers in Release_Batch API = 1
2714: --{
2715: IF (p_worker_id IS NOT NULL AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y' OR l_org_info.print_pick_slip_mode = 'I')) OR
2716: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2712: -- and if Pick Slip Printing Mode is Immediate or Delivery is part of Pick Slip Grouping Rule
2713: -- 3) If it is not worker and parameter p_num_workers in Release_Batch API = 1
2714: --{
2715: IF (p_worker_id IS NOT NULL AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y' OR l_org_info.print_pick_slip_mode = 'I')) OR
2716: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2720: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2716: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2720: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2721: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0)
2722: AND l_continue_create_del = 'Y' )THEN
2723: --{
2724: IF l_debug_on THEN
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2720: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2721: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0)
2722: AND l_continue_create_del = 'Y' )THEN
2723: --{
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2741: END IF;
2742: i := g_del_detail_ids.NEXT(i);
2743: END LOOP;
2744: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2745: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2746: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2747: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2748: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2749: l_detail_count := l_detail_count + 1;
2742: i := g_del_detail_ids.NEXT(i);
2743: END LOOP;
2744: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2745: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2746: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2747: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2748: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2749: l_detail_count := l_detail_count + 1;
2750: END IF;
2743: END LOOP;
2744: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2745: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2746: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2747: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2748: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2749: l_detail_count := l_detail_count + 1;
2750: END IF;
2751: END LOOP;
2744: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2745: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2746: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2747: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2748: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2749: l_detail_count := l_detail_count + 1;
2750: END IF;
2751: END LOOP;
2752: -- Populate all X-dock Lines which are not assigned to a Delivery
2818: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
2819: -- then auto create delivery can be performed only once because
2820: -- i) all details are assigned to same container(incase of containerDD as a parameter).
2821: -- ii) Single delivery detail id incase deliveydetailid as a parameter
2822: IF ( l_del_details_tbl.COUNT > 0 AND NVL(WSH_PR_CRITERIA.g_del_detail_id,0) = -2 ) THEN
2823: --{
2824: l_continue_create_del := 'N';
2825: --}
2826: END IF;
2912: -- details which have been successfully planned for X-dock
2913: -- P_TROLIN_DELIVERY_IDS (g_xdock_delivery_ids) : Matches index with
2914: -- p_del_detail_id and stores delivery ids for the delivery
2915: -- details(derived from release_table)
2916: -- P_WSH_RELEASE_TABLE(wsh_pr_criteria.release_table) : IN/OUT variable,
2917: -- in case of splitting of delivery details new records will be added
2918: -- to p_wsh_release_table
2919: --bug# 6689448 (replenishment project): added the parameter P_dynamic_replenishment_flag
2920: INV_Pick_Release_Pub.Pick_Release
2926: p_plan_tasks => l_plan_tasks,
2927: p_dynamic_replenishment => l_org_info.dynamic_replenishment_flag,
2928: p_grouping_rule_id => l_org_info.pick_grouping_rule_id,
2929: p_skip_cartonization => l_skip_cartonization,
2930: p_wsh_release_table => wsh_pr_criteria.release_table,
2931: p_trolin_delivery_ids => g_xdock_delivery_ids,
2932: p_del_detail_id => g_xdock_detail_ids,
2933: x_pick_release_status => l_pick_release_stat,
2934: x_return_status => l_return_status,
2963: WSH_UTIL_CORE.PrintMsg('Auto Detailing Returned Expected Error');
2964: l_request_id := fnd_global.conc_request_id;
2965: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
2966: --{
2967: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2968: LOOP
2969: IF l_debug_on THEN
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2969: IF l_debug_on THEN
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2972: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2975: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2976: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2977: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2972: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2975: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2976: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2977: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2978: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2975: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2976: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2977: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2978: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
2979: l_message := FND_MESSAGE.GET;
2980: l_exception_return_status := NULL;
2981: l_exception_msg_count := NULL;
2990: p_logging_entity => 'SHIPPER',
2991: p_logging_entity_id => FND_GLOBAL.USER_ID,
2992: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2993: p_message => l_message,
2994: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2995: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2996: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2997: p_request_id => l_request_id,
2998: p_batch_id => WSH_PICK_LIST.g_batch_id,
2991: p_logging_entity_id => FND_GLOBAL.USER_ID,
2992: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2993: p_message => l_message,
2994: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2995: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2996: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2997: p_request_id => l_request_id,
2998: p_batch_id => WSH_PICK_LIST.g_batch_id,
2999: x_return_status => l_exception_return_status,
2992: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2993: p_message => l_message,
2994: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2995: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2996: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2997: p_request_id => l_request_id,
2998: p_batch_id => WSH_PICK_LIST.g_batch_id,
2999: x_return_status => l_exception_return_status,
3000: x_msg_count => l_exception_msg_count,
3262: <
3263: -- { Next Org MO Worker
3264: -- Increment worker record 'DOC' with records detailed count
3265: --{
3266: IF WSH_PR_CRITERIA.g_nonreservable_item = 'Y' and l_total_detailed_count = 0 THEN
3267: l_total_detailed_count := 1;
3268: END IF;
3269: IF l_total_detailed_count > 0 THEN
3270:
3441: p_delivery_id => crec.delivery_id,
3442: p_sc_batch_id => crec.pa_sc_batch_id,
3443: p_ship_confirm_rule_rec => l_ship_confirm_rule_rec,
3444: p_log_level => p_log_level,
3445: p_actual_departure_date => WSH_PR_CRITERIA.g_actual_departure_date,
3446: x_return_status => l_return_status
3447: );
3448: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3449: l_confirmed_results_success := l_confirmed_results_success + 1;
4261: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4262: END IF;
4263: END IF;
4264:
4265: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4266: -- and also set Batch_Id and Seeded Pick Release Document Set
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
4269: END IF;
4285:
4286: -- 70. Initializations for local variables
4287:
4288: -- Set values selected in criteria package
4289: l_user_id := WSH_PR_CRITERIA.g_user_id;
4290: l_login_id := WSH_PR_CRITERIA.g_login_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4286: -- 70. Initializations for local variables
4287:
4288: -- Set values selected in criteria package
4289: l_user_id := WSH_PR_CRITERIA.g_user_id;
4290: l_login_id := WSH_PR_CRITERIA.g_login_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4288: -- Set values selected in criteria package
4289: l_user_id := WSH_PR_CRITERIA.g_user_id;
4290: l_login_id := WSH_PR_CRITERIA.g_login_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4289: l_user_id := WSH_PR_CRITERIA.g_user_id;
4290: l_login_id := WSH_PR_CRITERIA.g_login_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4290: l_login_id := WSH_PR_CRITERIA.g_login_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4291: l_date := SYSDATE;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4292: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4293: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4294: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4295: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4296: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4304: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4297: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4304: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4305:
4298: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4304: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4305:
4306: -- 80. Fetching Organization(s).
4299: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4304: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4305:
4306: -- 80. Fetching Organization(s).
4307: IF l_organization_id IS NULL THEN --{
4300: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4301: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4302: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4303: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4304: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4305:
4306: -- 80. Fetching Organization(s).
4307: IF l_organization_id IS NULL THEN --{
4308: IF l_mode IS NULL THEN --{
4361: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4362: -- delivery or print pick slip mode is immediate.
4363:
4364: IF l_debug_on THEN
4365: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4365: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4370: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4371: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4372: CLOSE c_is_psgr_del;
4373:
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4370: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4371: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4372: CLOSE c_is_psgr_del;
4373:
4374: IF l_psgr_delivery_flag = 'Y' THEN
4418:
4419: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4420: -- delivery or print pick slip mode is immediate.
4421: IF l_debug_on THEN
4422: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4422: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4427: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4428: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4429: CLOSE c_is_psgr_del;
4430:
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4427: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4428: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4429: CLOSE c_is_psgr_del;
4430:
4431: IF l_psgr_delivery_flag = 'Y' THEN
4458: G_PICK_REL_PARALLEL := FALSE;
4459: END IF;
4460: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4463: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4464: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4465: END IF;
4466: END IF;
4708:
4709: ELSE --{
4710:
4711: IF l_debug_on THEN
4712: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4713: WSH_DEBUG_SV.C_PROC_LEVEL);
4714: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4715: END IF;
4716:
4713: WSH_DEBUG_SV.C_PROC_LEVEL);
4714: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4715: END IF;
4716:
4717: WSH_PR_CRITERIA.Init_Cursor(
4718: p_organization_id => l_organization_id,
4719: p_mode => 'SUMMARY', -- insert in worker table
4720: p_wms_org => l_org_info.wms_org,
4721: p_mo_header_id => l_trohdr_rec.header_id,
4729: x_dd_count => l_dd_records,
4730: x_api_status => l_return_status);
4731:
4732: IF l_debug_on THEN
4733: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4734: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4738: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4739: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4740: RAISE e_return;
4741: END IF;
4742:
4743: l_tot_worker_records := l_tot_worker_records + NVL(l_worker_records,0);
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5050:
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5050:
5051: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5050:
5051: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
5052:
5057: END IF;
5058: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
5059: -- Rule and Autocreate deliveries is Yes.
5060: IF l_org_info_tbl(crec.organization_id).autocreate_deliveries = 'Y'
5061: AND WSH_PR_CRITERIA.g_trip_id = 0 AND WSH_PR_CRITERIA.g_delivery_id = 0
5062: AND WSH_PR_CRITERIA.g_use_delivery_ps = 'N'
5063: AND l_org_info_tbl(crec.organization_id).print_pick_slip_mode = 'E' THEN --{
5064: l_del_details_tbl.delete;
5065: l_detail_pfetch := 0;
5058: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
5059: -- Rule and Autocreate deliveries is Yes.
5060: IF l_org_info_tbl(crec.organization_id).autocreate_deliveries = 'Y'
5061: AND WSH_PR_CRITERIA.g_trip_id = 0 AND WSH_PR_CRITERIA.g_delivery_id = 0
5062: AND WSH_PR_CRITERIA.g_use_delivery_ps = 'N'
5063: AND l_org_info_tbl(crec.organization_id).print_pick_slip_mode = 'E' THEN --{
5064: l_del_details_tbl.delete;
5065: l_detail_pfetch := 0;
5066: l_detail_cfetch := 0;
5093: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
5094: -- then auto create delivery can be performed only once because
5095: -- i) all details are assigned to same container(incase of containerDD as a parameter).
5096: -- ii) Single delivery detail id incase deliveydetailid as a parameter
5097: EXIT WHEN (NVL(WSH_PR_CRITERIA.g_del_detail_id,0) = -2);
5098:
5099: l_detail_pfetch := c_get_unassigned_details%ROWCOUNT;
5100:
5101: END LOOP; --}
5681:
5682: -- If pick released successfully see if we want to autopack/shipconfirm
5683: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5684: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5685: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5686: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5687: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5688: --{
5689: IF l_debug_on THEN
5682: -- If pick released successfully see if we want to autopack/shipconfirm
5683: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5684: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5685: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5686: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5687: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5688: --{
5689: IF l_debug_on THEN
5690: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5686: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5687: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5688: --{
5689: IF l_debug_on THEN
5690: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5691: END IF;
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5689: IF l_debug_on THEN
5690: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5691: END IF;
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5690: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5691: END IF;
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5691: END IF;
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5699: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5699: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5700: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5700: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5701: END IF;
5702: END IF;
5703:
5704: IF WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') THEN
5705: --{
5706: -- see if PR batch created for Pick, (Pack,) and Ship through STF
5707: -- if yes, group into batches by SC Rules, AP level
5708: l_grp_count := 0;
5768: WSH_DEBUG_SV.log(l_module_name,'BEFORE INSERTING l_ap_level', l_ap_level);
5769: END IF;
5770:
5771: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5772: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5773: l_act_ap_level := NVL(l_ap_level,0);
5774: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5775: IF G_CONC_REQ = FND_API.G_TRUE THEN
5776: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5770:
5771: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5772: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5773: l_act_ap_level := NVL(l_ap_level,0);
5774: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5775: IF G_CONC_REQ = FND_API.G_TRUE THEN
5776: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5777: END IF;
5778: l_act_ap_level := 0;
5900: --}
5901: END IF;
5902:
5903: IF l_debug_on THEN
5904: WSH_DEBUG_SV.logmsg(l_module_name,'Flags: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag);
5905: END IF;
5906: -- if only one (sc rules/ap level) group for all pickreleased lines,
5907: -- or picking/packing/shipping through PR form or STF for deliveries,
5908: -- no need to spawn seperate batches. use existing PR batch.
5905: END IF;
5906: -- if only one (sc rules/ap level) group for all pickreleased lines,
5907: -- or picking/packing/shipping through PR form or STF for deliveries,
5908: -- no need to spawn seperate batches. use existing PR batch.
5909: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5910: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5911: --{
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5906: -- if only one (sc rules/ap level) group for all pickreleased lines,
5907: -- or picking/packing/shipping through PR form or STF for deliveries,
5908: -- no need to spawn seperate batches. use existing PR batch.
5909: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5910: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5911: --{
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5914: END IF;
5909: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5910: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5911: --{
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5914: END IF;
5915:
5916: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5917: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5913: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5914: END IF;
5915:
5916: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5917: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5918: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5919: l_act_ap_level := NVL(l_ap_level,0);
5920: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5921: IF G_CONC_REQ = FND_API.G_TRUE THEN
5914: END IF;
5915:
5916: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5917: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5918: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5919: l_act_ap_level := NVL(l_ap_level,0);
5920: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5921: IF G_CONC_REQ = FND_API.G_TRUE THEN
5922: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5916: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5917: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5918: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5919: l_act_ap_level := NVL(l_ap_level,0);
5920: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5921: IF G_CONC_REQ = FND_API.G_TRUE THEN
5922: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5923: END IF;
5924: l_act_ap_level := 0;
5951: CLOSE get_dels_in_batch;
5952: END IF;
5953:
5954: IF l_debug_on THEN
5955: WSH_DEBUG_SV.logmsg(l_module_name,'Flags again: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5956: END IF;
5957:
5958: -- Bulk Insert
5959: FORALL i in 1..l_ps_delivery_tab.COUNT
6063: WSH_UTIL_CORE.PrintDateTime;
6064:
6065: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
6066: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
6067: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
6068: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL) THEN --{
6069: -- Get all Trip Stops for setting Trip to In-Transit or Closed
6070: --{
6071: l_sc_id_tab.delete;
6064:
6065: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
6066: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
6067: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
6068: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL) THEN --{
6069: -- Get all Trip Stops for setting Trip to In-Transit or Closed
6070: --{
6071: l_sc_id_tab.delete;
6072: OPEN c_close_trip(p_batch_id);
6114: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Close_A_Stop');
6115: END IF;
6116: WSH_BATCH_PROCESS.Close_A_Stop (
6117: p_stop_id => l_stops_to_close(i),
6118: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
6119: p_defer_interface_flag => 'Y',
6120: x_return_status => l_return_status );
6121:
6122: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8071: SUM(mr.SECONDARY_RESERVATION_QUANTITY - nvl(mr.SECONDARY_DETAILED_QUANTITY,0))
8072: FROM mtl_reservations mr
8073: WHERE mr.demand_source_header_id = c_demand_source_header_id
8074: AND mr.demand_source_line_id = c_demand_source_line_id
8075: AND nvl(mr.subinventory_code, nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) = nvl(WSH_PR_CRITERIA.g_from_subinventory,nvl(mr.subinventory_code,'-99'))
8076: AND nvl(mr.locator_id, nvl(WSH_PR_CRITERIA.g_from_locator,'-99')) = nvl(WSH_PR_CRITERIA.g_from_locator,nvl(mr.locator_id,-99))
8077: AND nvl(mr.staged_flag, 'N') <> 'Y'
8078: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
8079: AND mr.demand_source_type_id IN (2,8) -- Bug 4046748
8072: FROM mtl_reservations mr
8073: WHERE mr.demand_source_header_id = c_demand_source_header_id
8074: AND mr.demand_source_line_id = c_demand_source_line_id
8075: AND nvl(mr.subinventory_code, nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) = nvl(WSH_PR_CRITERIA.g_from_subinventory,nvl(mr.subinventory_code,'-99'))
8076: AND nvl(mr.locator_id, nvl(WSH_PR_CRITERIA.g_from_locator,'-99')) = nvl(WSH_PR_CRITERIA.g_from_locator,nvl(mr.locator_id,-99))
8077: AND nvl(mr.staged_flag, 'N') <> 'Y'
8078: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
8079: AND mr.demand_source_type_id IN (2,8) -- Bug 4046748
8080: AND mr.supply_source_type_id = 13; -- Bug 4046748;
8088: FROM mtl_reservations mr
8089: WHERE mr.demand_source_header_id = c_demand_source_header_id
8090: AND mr.demand_source_line_id = c_demand_source_line_id
8091: AND ((nvl(mr.staged_flag, 'N') <> 'Y'
8092: AND (nvl(mr.subinventory_code, nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) <> nvl(WSH_PR_CRITERIA.g_from_subinventory,nvl(mr.subinventory_code,'-99'))
8093: OR nvl(mr.locator_id, nvl(WSH_PR_CRITERIA.g_from_locator,-99)) <> nvl(WSH_PR_CRITERIA.g_from_locator,nvl(mr.locator_id,-99))))
8094: OR (nvl(mr.staged_flag, 'N') = 'Y'))
8095: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
8096: AND mr.demand_source_type_id IN (2,8)
8089: WHERE mr.demand_source_header_id = c_demand_source_header_id
8090: AND mr.demand_source_line_id = c_demand_source_line_id
8091: AND ((nvl(mr.staged_flag, 'N') <> 'Y'
8092: AND (nvl(mr.subinventory_code, nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) <> nvl(WSH_PR_CRITERIA.g_from_subinventory,nvl(mr.subinventory_code,'-99'))
8093: OR nvl(mr.locator_id, nvl(WSH_PR_CRITERIA.g_from_locator,-99)) <> nvl(WSH_PR_CRITERIA.g_from_locator,nvl(mr.locator_id,-99))))
8094: OR (nvl(mr.staged_flag, 'N') = 'Y'))
8095: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
8096: AND mr.demand_source_type_id IN (2,8)
8097: AND mr.supply_source_type_id = 13;
8151: END IF;
8152: x_fulfill_base := l_fulfill_base;
8153: --
8154: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
8155: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
8156: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
8157: END IF;
8158: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
8159: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
8152: x_fulfill_base := l_fulfill_base;
8153: --
8154: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
8155: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
8156: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
8157: END IF;
8158: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
8159: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
8160: END IF;
8154: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
8155: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
8156: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
8157: END IF;
8158: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
8159: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
8160: END IF;
8161: -- Generating new hash values
8162: l_hash_value := dbms_utility.get_hash_value (
8155: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
8156: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
8157: END IF;
8158: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
8159: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
8160: END IF;
8161: -- Generating new hash values
8162: l_hash_value := dbms_utility.get_hash_value (
8163: name => l_hash_string,
8172: WHILE NOT l_hash_exists LOOP
8173: IF g_demand_table.EXISTS(l_hash_value) THEN
8174: IF ((g_demand_table(l_hash_value).demand_source_header_id = p_demand_source_header_id) AND
8175: (g_demand_table(l_hash_value).demand_source_line_id = p_demand_source_line_id ) AND
8176: (nvl(g_demand_table(l_hash_value).subinventory_code,'-99') = nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) AND
8177: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8178: l_demand_exists := TRUE;
8179: --
8180: IF l_debug_on THEN
8173: IF g_demand_table.EXISTS(l_hash_value) THEN
8174: IF ((g_demand_table(l_hash_value).demand_source_header_id = p_demand_source_header_id) AND
8175: (g_demand_table(l_hash_value).demand_source_line_id = p_demand_source_line_id ) AND
8176: (nvl(g_demand_table(l_hash_value).subinventory_code,'-99') = nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) AND
8177: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8178: l_demand_exists := TRUE;
8179: --
8180: IF l_debug_on THEN
8181: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8199: --
8200:
8201: IF (not l_demand_exists) THEN --{
8202: -- Bug 4775539
8203: IF (WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y') THEN
8204: --Get the reservation details for header and line.
8205: IF l_debug_on THEN
8206: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING RESERVATION DETAILS' );
8207: END IF;
8298: --
8299: --Store reservation details in global demand table.
8300: g_demand_table(l_hash_value).demand_source_header_id := p_demand_source_header_id;
8301: g_demand_table(l_hash_value).demand_source_line_id := p_demand_source_line_id;
8302: g_demand_table(l_hash_value).subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
8303: g_demand_table(l_hash_value).locator_id := WSH_PR_CRITERIA.g_from_locator;
8304: g_demand_table(l_hash_value).reserved_quantity := l_reservation_quantity;
8305: -- HW OPMCONV - Added qty2
8306: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8299: --Store reservation details in global demand table.
8300: g_demand_table(l_hash_value).demand_source_header_id := p_demand_source_header_id;
8301: g_demand_table(l_hash_value).demand_source_line_id := p_demand_source_line_id;
8302: g_demand_table(l_hash_value).subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
8303: g_demand_table(l_hash_value).locator_id := WSH_PR_CRITERIA.g_from_locator;
8304: g_demand_table(l_hash_value).reserved_quantity := l_reservation_quantity;
8305: -- HW OPMCONV - Added qty2
8306: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8307: --