[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: x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
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: x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
314: x_org_info.append_flag := l_param_info.appending_limit;
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: x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
314: x_org_info.append_flag := l_param_info.appending_limit;
315: x_org_info.print_pick_slip_mode := l_param_info.print_pick_slip_mode;
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: x_org_info.use_header_flag := NVL(WSH_PR_CRITERIA.g_acDelivCriteria, l_param_info.autocreate_del_orders_flag); --bug 4556414
314: x_org_info.append_flag := l_param_info.appending_limit;
315: x_org_info.print_pick_slip_mode := l_param_info.print_pick_slip_mode;
316: x_org_info.enforce_ship_set_and_smc := l_param_info.enforce_ship_set_and_smc;
317:
329: WSH_DEBUG_SV.logmsg(l_module_name, P_ORGANIZATION_ID || ' IS WMS ENABLED ORGANIZATION' );
330: END IF;
331:
332: --task_planning_flag is default of Release criteria or organization default.
333: x_org_info.task_planning_flag := NVL(WSH_PR_CRITERIA.g_task_planning_flag, NVL(l_param_info.task_planning_flag, 'N'));
334: IF x_org_info.task_planning_flag = 'Y' THEN
335: x_org_info.auto_pick_confirm := 'N';
336: END IF;
337:
335: x_org_info.auto_pick_confirm := 'N';
336: END IF;
337:
338: --bug# 6689448 (replenishment project):
339: x_org_info.dynamic_replenishment_flag := NVL(WSH_PR_CRITERIA.g_dynamic_replenishment_flag, NVL(l_param_info.dynamic_replenishment_flag, 'N'));
340: ELSE
341: x_org_info.task_planning_flag := 'N';
342: x_org_info.dynamic_replenishment_flag := 'N';
343: END IF;
345: -- Bug 3316645: For only Non-WMS orgs, default the Subinventory and Locator from either
346: -- Pick Release Criteria or the Shipping Parameters defaults
347: -- For WMS, the default will be from the Pick Release Criteria entered only
348: IF (x_org_info.wms_org = 'N') THEN
349: x_org_info.to_subinventory := NVL(WSH_PR_CRITERIA.g_to_subinventory, l_param_info.default_stage_subinventory);
350:
351: -- Following IF condition added for Bug 4199614,(FP Bug-4225169)
352: -- Default locator in Org. Shipping Parameters will be assigned to To_Locator
353: -- only if default subinventory in Org. Shipping Parameters and subinventory
355: -- Modified IF condition for bug 4363740.
356: -- If Subinventory entered in Pick Release form is NULL, then copy Subinventory
357: -- and Locator from Org. Shipping Parameters.
358: IF (l_param_info.default_stage_subinventory = x_org_info.to_subinventory) THEN
359: x_org_info.to_locator := NVL(WSH_PR_CRITERIA.g_to_locator, l_param_info.default_stage_locator_id);
360: ELSE
361: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
362: END IF;
363:
357: -- and Locator from Org. Shipping Parameters.
358: IF (l_param_info.default_stage_subinventory = x_org_info.to_subinventory) THEN
359: x_org_info.to_locator := NVL(WSH_PR_CRITERIA.g_to_locator, l_param_info.default_stage_locator_id);
360: ELSE
361: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
362: END IF;
363:
364: ELSE
365: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
361: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
362: END IF;
363:
364: ELSE
365: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
366: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
367: END IF;
368:
369: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
362: END IF;
363:
364: ELSE
365: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
366: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
367: END IF;
368:
369: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
370: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
365: x_org_info.to_subinventory := WSH_PR_CRITERIA.g_to_subinventory;
366: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
367: END IF;
368:
369: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
370: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
371: ELSE
372: x_org_info.doc_set_id := l_param_info.pick_release_report_set_id;
373: END IF;
366: x_org_info.to_locator := WSH_PR_CRITERIA.g_to_locator;
367: END IF;
368:
369: IF ( NVL(WSH_PR_CRITERIA.g_doc_set_id,-1) <> -1 ) THEN
370: x_org_info.doc_set_id := WSH_PR_CRITERIA.g_doc_set_id;
371: ELSE
372: x_org_info.doc_set_id := l_param_info.pick_release_report_set_id;
373: END IF;
374:
374:
375: IF x_org_info.append_flag = 'N' or x_org_info.auto_pick_confirm = 'Y' THEN
376: x_org_info.append_flag := 'N';
377: ELSE
378: x_org_info.append_flag := NVL(WSH_PR_CRITERIA.g_append_flag, x_org_info.append_flag);
379: END IF;
380:
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
405: END IF;
406:
407: -- 40. Express Pickup only if Profile is yes AND Have prior reservation AND Ato Pick Confirm select as Yes.
408: IF l_express_pick_profile = 'Y' THEN
409: IF x_org_info.wms_org = 'N' AND WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y'
410: AND x_org_info.auto_pick_confirm = 'Y' THEN
411: x_org_info.express_pick_flag := 'Y';
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
417: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
418: END IF;
419: END IF;
420: -- Bug 4775539
421: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
422: --Get the honor pick from profile value default is Y.
423: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
424: END IF;
425:
419: END IF;
420: -- Bug 4775539
421: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
422: --Get the honor pick from profile value default is Y.
423: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
424: END IF;
425:
426: -- 50. Check to see if rules need to be initialized for organization
427: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
423: WSH_PR_CRITERIA.g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'), 'Y');
424: END IF;
425:
426: -- 50. Check to see if rules need to be initialized for organization
427: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
428: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
424: END IF;
425:
426: -- 50. Check to see if rules need to be initialized for organization
427: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
428: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
432:
426: -- 50. Check to see if rules need to be initialized for organization
427: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
428: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
432:
433: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
434: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
432:
433: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
434: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
437: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
438: END IF;
439:
440: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
441: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
442:
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
445: RETURN; -- back to calling API
657: END IF;
658: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
659: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
660: p_organization_id => p_organization_id,
661: p_order_header_id => WSH_PR_CRITERIA.g_order_header_id,
662: p_ps_mode => p_ps_mode,
663: p_batch_id => p_batch_id,
664: x_api_status => l_return_status,
665: x_error_message => l_message );
693: l_document_info(1).p_request_id := FND_GLOBAL.CONC_REQUEST_ID;
694: -- bug 2367043: p_move_order range should use l_batch_name, not id.
695: l_document_info(1).p_move_order_h := p_batch_name;
696: l_document_info(1).p_move_order_l := p_batch_name;
697: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
694: -- bug 2367043: p_move_order range should use l_batch_name, not id.
695: l_document_info(1).p_move_order_h := p_batch_name;
696: l_document_info(1).p_move_order_l := p_batch_name;
697: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
695: l_document_info(1).p_move_order_h := p_batch_name;
696: l_document_info(1).p_move_order_l := p_batch_name;
697: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
696: l_document_info(1).p_move_order_l := p_batch_name;
697: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
697: IF (NVL(WSH_PR_CRITERIA.g_trip_id,0) > 0) THEN
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
698: l_document_info(1).p_trip_id := WSH_PR_CRITERIA.g_trip_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
699: l_document_info(1).p_trip_id_high := WSH_PR_CRITERIA.g_trip_id;
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
700: l_document_info(1).p_trip_id_low := WSH_PR_CRITERIA.g_trip_id;
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
708: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
701: ELSIF (NVL(WSH_PR_CRITERIA.g_trip_stop_id,0) > 0) THEN
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
708: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
709: FETCH c_order_number INTO l_order_number;
702: l_document_info(1).p_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
708: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
709: FETCH c_order_number INTO l_order_number;
710: CLOSE c_order_number;
703: ELSIF (NVL(WSH_PR_CRITERIA.g_delivery_id,0) > 0) THEN
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
708: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
709: FETCH c_order_number INTO l_order_number;
710: CLOSE c_order_number;
711: l_document_info(1).p_order_num_high := l_order_number;
704: l_document_info(1).p_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
705: l_document_info(1).p_delivery_id_high := WSH_PR_CRITERIA.g_delivery_id;
706: l_document_info(1).p_delivery_id_low := WSH_PR_CRITERIA.g_delivery_id;
707: ELSIF (NVL(WSH_PR_CRITERIA.g_order_header_id,0) > 0) THEN
708: OPEN c_order_number(WSH_PR_CRITERIA.g_order_header_id);
709: FETCH c_order_number INTO l_order_number;
710: CLOSE c_order_number;
711: l_document_info(1).p_order_num_high := l_order_number;
712: l_document_info(1).p_order_num_low := l_order_number;
710: CLOSE c_order_number;
711: l_document_info(1).p_order_num_high := l_order_number;
712: l_document_info(1).p_order_num_low := l_order_number;
713: --Bugfix 3604021 added code to pass the order type id
714: l_document_info(1).p_order_type_id := WSH_PR_CRITERIA.g_order_type_id;
715: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
716: END IF;
717:
718: IF l_debug_on THEN
711: l_document_info(1).p_order_num_high := l_order_number;
712: l_document_info(1).p_order_num_low := l_order_number;
713: --Bugfix 3604021 added code to pass the order type id
714: l_document_info(1).p_order_type_id := WSH_PR_CRITERIA.g_order_type_id;
715: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
716: END IF;
717:
718: IF l_debug_on THEN
719: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
939:
940: g_xdock_delivery_ids.delete;
941: g_xdock_detail_ids.delete;
942:
943: l_user_id := WSH_PR_CRITERIA.g_user_id;
944: l_login_id := WSH_PR_CRITERIA.g_login_id;
945: l_date := SYSDATE;
946:
947: -- X-dock
940: g_xdock_delivery_ids.delete;
941: g_xdock_detail_ids.delete;
942:
943: l_user_id := WSH_PR_CRITERIA.g_user_id;
944: l_login_id := WSH_PR_CRITERIA.g_login_id;
945: l_date := SYSDATE;
946:
947: -- X-dock
948: -- Call to WMS API to process lines for X-dock
948: -- Call to WMS API to process lines for X-dock
949: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
952: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
954: END IF;
955:
956: -- Parameters description :
957: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery details which have been
958: -- successfully planned for X-dock
959: -- P_TROLIN_DELIVERY_IDS (g_xdock_delivery_ids) : Matches index with p_del_detail_id and stores
960: -- delivery ids for the delivery details(derived from release_table)
961: -- P_WSH_RELEASE_TABLE(wsh_pr_criteria.release_table) : IN/OUT variable, in case of splitting
962: -- of delivery details new records will be added to p_wsh_release_table
963: --
964: WMS_Xdock_Pegging_Pub.Planned_Cross_Dock
965: (p_api_version => l_api_version_number,
965: (p_api_version => l_api_version_number,
966: p_init_msg_list => fnd_api.g_false,
967: p_commit => l_commit,
968: p_batch_id => p_batch_id,
969: p_wsh_release_table => wsh_pr_criteria.release_table,
970: p_trolin_delivery_ids => g_xdock_delivery_ids,
971: p_del_detail_id => g_xdock_detail_ids,
972: x_return_status => l_return_status,
973: x_msg_count => l_msg_count,
975: );
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
980: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
981: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
982: END IF;
983:
992: RETURN;
993: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
994: x_return_status := l_return_status;
995: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
996: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
997: --there is atleast one delivery detail which was not crossdocked
998: --Need to log exception for that delivery detail
999: --WMS Crossdock API will set the released_status to 'S' for lines which are
1000: --crossdocked
997: --there is atleast one delivery detail which was not crossdocked
998: --Need to log exception for that delivery detail
999: --WMS Crossdock API will set the released_status to 'S' for lines which are
1000: --crossdocked
1001: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1002: LOOP
1003: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1004:
1005: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
999: --WMS Crossdock API will set the released_status to 'S' for lines which are
1000: --crossdocked
1001: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1002: LOOP
1003: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1004:
1005: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
1006: l_exception_name := 'WSH_PICK_XDOCK_NR'; -- ECO 5220234
1007: ELSE
1001: FOR i in WSH_PR_CRITERIA.release_table.FIRST..WSH_PR_CRITERIA.release_table.LAST
1002: LOOP
1003: IF WSH_PR_CRITERIA.release_table(i).released_status IN ('R','B','X') THEN --{
1004:
1005: IF WSH_PR_CRITERIA.release_table(i).non_reservable_flag = 'Y' THEN
1006: l_exception_name := 'WSH_PICK_XDOCK_NR'; -- ECO 5220234
1007: ELSE
1008: l_exception_name := 'WSH_PICK_XDOCK';
1009: END IF;
1016: l_dummy_exception_id := NULL;
1017: IF l_debug_on THEN
1018: WSH_DEBUG_SV.logmsg(l_module_name,
1019: 'Log exception for Detail, id- '
1020: ||WSH_PR_CRITERIA.release_table(i).delivery_detail_id
1021: || ', ' || l_exception_name);
1022: END IF;
1023:
1024: wsh_xc_util.log_exception(
1026: p_logging_entity => 'SHIPPER',
1027: p_logging_entity_id => FND_GLOBAL.USER_ID,
1028: p_exception_name => l_exception_name,
1029: p_message => l_message,
1030: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1031: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1032: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1033: p_request_id => l_request_id,
1034: p_batch_id => WSH_PICK_LIST.g_batch_id,
1027: p_logging_entity_id => FND_GLOBAL.USER_ID,
1028: p_exception_name => l_exception_name,
1029: p_message => l_message,
1030: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1031: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1032: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1033: p_request_id => l_request_id,
1034: p_batch_id => WSH_PICK_LIST.g_batch_id,
1035: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1028: p_exception_name => l_exception_name,
1029: p_message => l_message,
1030: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1031: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1032: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1033: p_request_id => l_request_id,
1034: p_batch_id => WSH_PICK_LIST.g_batch_id,
1035: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1036: x_return_status => l_exception_return_status,
1031: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1032: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1033: p_request_id => l_request_id,
1034: p_batch_id => WSH_PICK_LIST.g_batch_id,
1035: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1036: x_return_status => l_exception_return_status,
1037: x_msg_count => l_exception_msg_count,
1038: x_msg_data => l_exception_msg_data,
1039: x_exception_id => l_dummy_exception_id);
1051:
1052: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then Generate Grouping Ids for the lines
1053: -- X-dock,cartonization is not applicable for X-dock only mode
1054: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1055: AND WSH_PR_CRITERIA.release_table.count > 0
1056: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1057: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1058: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1059: THEN --{
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1062: END IF;
1063: l_attr_tab.delete;
1064: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1065: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1066: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1067: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1068: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1061: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1062: END IF;
1063: l_attr_tab.delete;
1064: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1065: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1066: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1067: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1068: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1069: IF l_debug_on THEN
1063: l_attr_tab.delete;
1064: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1065: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1066: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1067: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1068: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1071: END IF;
1066: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1067: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1068: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1071: END IF;
1072: l_attr_tab(i).is_xdocked_flag := 'Y';
1073: END IF;
1074: END LOOP;
1113: --bug 7171766
1114: l_group_match_seq_tbl.delete;
1115:
1116: -- Looping through Release Table
1117: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1118: --{
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1121: END IF;
1116: -- Looping through Release Table
1117: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1118: --{
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1121: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1118: --{
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1121: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1121: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1127: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1127: END IF;
1128: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1129: --{
1130: IF l_debug_on THEN
1124: END IF;
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1127: END IF;
1128: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1129: --{
1130: IF l_debug_on THEN
1131: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1132: END IF;
1130: IF l_debug_on THEN
1131: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1132: END IF;
1133: l_count_x_relstatus_details := l_count_x_relstatus_details + 1;
1134: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1135: --}
1136: -- X-dock, X-dock lines which have been processed above
1137: -- will have released status of S
1138: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1134: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1135: --}
1136: -- X-dock, X-dock lines which have been processed above
1137: -- will have released status of S
1138: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING PLANNED X-DOCK LINE FOR MOVE ORDER LINE CREATION');
1141: END IF;
1142: --}
1143: ELSE
1144: --{
1145: --
1146: l_count := l_count + 1;
1147: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1148: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1149: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1150: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1151: g_trolin_tbl(l_count).created_by := l_user_id;
1144: --{
1145: --
1146: l_count := l_count + 1;
1147: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1148: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1149: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1150: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1151: g_trolin_tbl(l_count).created_by := l_user_id;
1152: g_trolin_tbl(l_count).creation_date := l_date;
1145: --
1146: l_count := l_count + 1;
1147: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1148: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1149: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1150: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1151: g_trolin_tbl(l_count).created_by := l_user_id;
1152: g_trolin_tbl(l_count).creation_date := l_date;
1153: g_trolin_tbl(l_count).last_updated_by := l_user_id;
1146: l_count := l_count + 1;
1147: g_del_detail_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1148: g_trolin_delivery_ids(l_count) := WSH_PR_CRITERIA.release_table(i).delivery_id;
1149: g_trolin_tbl(l_count).line_number := WSH_PR_CRITERIA.release_table(i).line_number;
1150: g_trolin_tbl(l_count).txn_source_line_detail_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1151: g_trolin_tbl(l_count).created_by := l_user_id;
1152: g_trolin_tbl(l_count).creation_date := l_date;
1153: g_trolin_tbl(l_count).last_updated_by := l_user_id;
1154: g_trolin_tbl(l_count).last_update_date := l_date;
1153: g_trolin_tbl(l_count).last_updated_by := l_user_id;
1154: g_trolin_tbl(l_count).last_update_date := l_date;
1155: g_trolin_tbl(l_count).last_update_login := l_login_id;
1156: g_trolin_tbl(l_count).header_id := p_mo_header_id;
1157: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1158: g_trolin_tbl(l_count).organization_id := p_organization_id;
1159: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1160: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1155: g_trolin_tbl(l_count).last_update_login := l_login_id;
1156: g_trolin_tbl(l_count).header_id := p_mo_header_id;
1157: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1158: g_trolin_tbl(l_count).organization_id := p_organization_id;
1159: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1160: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1162: g_trolin_tbl(l_count).from_locator_id := NULL;
1163: ELSE
1156: g_trolin_tbl(l_count).header_id := p_mo_header_id;
1157: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1158: g_trolin_tbl(l_count).organization_id := p_organization_id;
1159: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1160: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1162: g_trolin_tbl(l_count).from_locator_id := NULL;
1163: ELSE
1164: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1157: g_trolin_tbl(l_count).txn_source_line_id := WSH_PR_CRITERIA.release_table(i).source_line_id;
1158: g_trolin_tbl(l_count).organization_id := p_organization_id;
1159: g_trolin_tbl(l_count).date_required := WSH_PR_CRITERIA.release_table(i).date_scheduled;
1160: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1162: g_trolin_tbl(l_count).from_locator_id := NULL;
1163: ELSE
1164: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1165: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.g_from_locator;
1160: IF ((WSH_PR_CRITERIA.release_table(i).from_sub is NOT NULL) AND (WSH_PR_CRITERIA.g_from_subinventory IS NULL)) THEN
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1162: g_trolin_tbl(l_count).from_locator_id := NULL;
1163: ELSE
1164: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1165: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.g_from_locator;
1166: END IF;
1167: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1168: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1161: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.release_table(i).from_sub;
1162: g_trolin_tbl(l_count).from_locator_id := NULL;
1163: ELSE
1164: g_trolin_tbl(l_count).from_subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
1165: g_trolin_tbl(l_count).from_locator_id := WSH_PR_CRITERIA.g_from_locator;
1166: END IF;
1167: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1168: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1169:
1205: --}
1206: END IF;
1207:
1208: -- Get Staging Subinventory and Staging Lane for WMS Organization
1209: IF (p_wms_flag = 'Y') AND (WSH_PR_CRITERIA.release_table(i).delivery_detail_id IS NOT NULL) THEN
1210: --{
1211: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1212: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1213: IF get_dd_pup_trip_stop%NOTFOUND THEN
1207:
1208: -- Get Staging Subinventory and Staging Lane for WMS Organization
1209: IF (p_wms_flag = 'Y') AND (WSH_PR_CRITERIA.release_table(i).delivery_detail_id IS NOT NULL) THEN
1210: --{
1211: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1212: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1213: IF get_dd_pup_trip_stop%NOTFOUND THEN
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1212: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1213: IF get_dd_pup_trip_stop%NOTFOUND THEN
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1216: WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID|| ' NOT ASSOCIATED TO ANY TRIP' );
1217: END IF;
1218: ELSE
1219: --{
1220: -- If Stop_id already exists in Staging Table, use table values
1237: x_msg_count => x_wms_msg_count,
1238: x_msg_data => x_wms_msg_data);
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1243: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1244: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1245: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1258: CLOSE get_dd_pup_trip_stop;
1259: --}
1260: END IF;
1261:
1262: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1259: --}
1260: END IF;
1261:
1262: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1260: END IF;
1261:
1262: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1268: IF l_debug_on THEN
1261:
1262: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1262: g_trolin_tbl(l_count).project_id := WSH_PR_CRITERIA.release_table(i).project_id;
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1270: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1263: g_trolin_tbl(l_count).task_id := WSH_PR_CRITERIA.release_table(i).task_id;
1264: g_trolin_tbl(l_count).inventory_item_id := WSH_PR_CRITERIA.release_table(i).inventory_item_id;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1270: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1271: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1270: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1271: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1272: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1273: END IF;
1274: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1275: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1271: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1272: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1273: END IF;
1274: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1275: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1272: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1273: END IF;
1274: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1275: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1280: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1273: END IF;
1274: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1275: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1280: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1281: -- Transaction type is different for internal orders
1274: g_trolin_tbl(l_count).quantity := WSH_PR_CRITERIA.release_table(i).requested_quantity;
1275: g_trolin_tbl(l_count).secondary_quantity := TO_NUMBER(WSH_PR_CRITERIA.release_table(i).requested_quantity2);
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1280: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1281: -- Transaction type is different for internal orders
1282: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1276: g_trolin_tbl(l_count).uom_code := WSH_PR_CRITERIA.release_table(i).requested_quantity_uom;
1277: g_trolin_tbl(l_count).secondary_uom := WSH_PR_CRITERIA.release_table(i).requested_quantity_UOM2;
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1280: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1281: -- Transaction type is different for internal orders
1282: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1283: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_INTERNAL_ORDER_STGXFR;
1284: ELSE
1278: g_trolin_tbl(l_count).grade_code := WSH_PR_CRITERIA.release_table(i).preferred_grade;
1279: g_trolin_tbl(l_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1280: g_trolin_tbl(l_count).unit_number := WSH_PR_CRITERIA.release_table(i).unit_number;
1281: -- Transaction type is different for internal orders
1282: IF (WSH_PR_CRITERIA.release_table(i).source_doc_type = 10) THEN
1283: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_INTERNAL_ORDER_STGXFR;
1284: ELSE
1285: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_STGXFR;
1286: END IF;
1285: g_trolin_tbl(l_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_STGXFR;
1286: END IF;
1287:
1288: -- No need to create move order line for backordered line
1289: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1290: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1291: -- The quantity for the Backordered line should be the same as the original quantity
1292: IF l_debug_on THEN
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1286: END IF;
1287:
1288: -- No need to create move order line for backordered line
1289: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1290: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1291: -- The quantity for the Backordered line should be the same as the original quantity
1292: IF l_debug_on THEN
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1294: END IF;
1501: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1502: l_request_id := fnd_global.conc_request_id;
1503: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1504: --{
1505: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1505: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1510: WSH_PR_CRITERIA.release_table(i).organization_id);
1511: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1512: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1513: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1510: WSH_PR_CRITERIA.release_table(i).organization_id);
1511: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1512: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1513: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1514: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1510: WSH_PR_CRITERIA.release_table(i).organization_id);
1511: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1512: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1513: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1514: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
1515: l_message := FND_MESSAGE.GET;
1516: l_exception_return_status := NULL;
1517: l_exception_msg_count := NULL;
1525: p_logging_entity => 'SHIPPER',
1526: p_logging_entity_id => FND_GLOBAL.USER_ID,
1527: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1528: p_message => l_message,
1529: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1530: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1531: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1532: p_request_id => l_request_id,
1533: p_batch_id => WSH_PICK_LIST.g_batch_id,
1526: p_logging_entity_id => FND_GLOBAL.USER_ID,
1527: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1528: p_message => l_message,
1529: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1530: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1531: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1532: p_request_id => l_request_id,
1533: p_batch_id => WSH_PICK_LIST.g_batch_id,
1534: x_return_status => l_exception_return_status,
1527: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
1528: p_message => l_message,
1529: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1530: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1531: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1532: p_request_id => l_request_id,
1533: p_batch_id => WSH_PICK_LIST.g_batch_id,
1534: x_return_status => l_exception_return_status,
1535: x_msg_count => l_exception_msg_count,
1580: END IF;
1581: --}
1582: END IF; -- g_trolin_tbl.count > 0
1583:
1584: x_curr_count := x_curr_count + WSH_PR_CRITERIA.release_table.count ;
1585:
1586: -- Save Move Order Line IDs into Delivery Details table
1587: IF p_express_pick_flag = 'N' THEN
1588: --{
1673:
1674: END IF;
1675: EXCEPTION
1676: WHEN no_data_found THEN
1677: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name);
1681: END IF;
1680: WSH_DEBUG_SV.pop(l_module_name);
1681: END IF;
1682: RETURN;
1683: WHEN others THEN
1684: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1685: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.pop(l_module_name);
1688: END IF;
2448: --{
2449: IF p_mode IN ('PICK','PICK-SS') THEN
2450:
2451: IF p_worker_id IS NOT NULL THEN --{
2452: -- 10.10 Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
2453: -- and also set Batch_Id and Seeded Pick Release Document Set
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
2456: END IF;
2470:
2471: -- Clear Demand Table
2472: g_demand_table.delete;
2473:
2474: WSH_PR_CRITERIA.g_credit_check_option := WSH_CUSTOM_PUB.Credit_Check_Details_Option;
2475:
2476: -- Determine Pick Release Batch Size based on Profile
2477: --Bug 5137504 Handling if Batch size is set to value less than 1 or is aphanumeric
2478: BEGIN
2490: l_pr_batch_size :=50;
2491: END;
2492: -- MAX_LINES should never be less than 3 or else infinite loop will occur.
2493: IF l_pr_batch_size IS NOT NULL THEN
2494: WSH_PR_CRITERIA.MAX_LINES := l_pr_batch_size;
2495: END IF;
2496:
2497: -- MAX_LINES should never be less than 3 or greater than 1000
2498: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2494: WSH_PR_CRITERIA.MAX_LINES := l_pr_batch_size;
2495: END IF;
2496:
2497: -- MAX_LINES should never be less than 3 or greater than 1000
2498: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2499: WSH_PR_CRITERIA.MAX_LINES := 3;
2500: END IF;
2501:
2502: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2495: END IF;
2496:
2497: -- MAX_LINES should never be less than 3 or greater than 1000
2498: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2499: WSH_PR_CRITERIA.MAX_LINES := 3;
2500: END IF;
2501:
2502: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2503: WSH_PR_CRITERIA.MAX_LINES := 1000;
2498: IF WSH_PR_CRITERIA.MAX_LINES < 3 THEN
2499: WSH_PR_CRITERIA.MAX_LINES := 3;
2500: END IF;
2501:
2502: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2503: WSH_PR_CRITERIA.MAX_LINES := 1000;
2504: END IF;
2505:
2506: IF l_debug_on THEN
2499: WSH_PR_CRITERIA.MAX_LINES := 3;
2500: END IF;
2501:
2502: IF WSH_PR_CRITERIA.MAX_LINES > 1000 THEN
2503: WSH_PR_CRITERIA.MAX_LINES := 1000;
2504: END IF;
2505:
2506: IF l_debug_on THEN
2507: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2503: WSH_PR_CRITERIA.MAX_LINES := 1000;
2504: END IF;
2505:
2506: IF l_debug_on THEN
2507: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2508: END IF;
2509:
2510: -- 10.20 Looping thru Organization-Move Order Header Combination
2511: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2525: l_done_flag := FND_API.G_FALSE;
2526: l_total_detailed_count := 0;
2527:
2528: -- Reset the Non-Reservable Item Flag as 'N'
2529: WSH_PR_CRITERIA.g_nonreservable_item := 'N';
2530:
2531: -- 10.20.20 Getting Organization Parameters
2532: --{
2533: IF l_debug_on THEN
2544:
2545: -- 10.20.30 Initialize the cursor to fetch Worker Records
2546: --{
2547: IF l_debug_on THEN
2548: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2549: END IF;
2550: WSH_PR_CRITERIA.Get_Worker_Records (
2551: p_mode => p_mode,
2552: p_batch_id => p_batch_id,
2546: --{
2547: IF l_debug_on THEN
2548: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2549: END IF;
2550: WSH_PR_CRITERIA.Get_Worker_Records (
2551: p_mode => p_mode,
2552: p_batch_id => p_batch_id,
2553: p_organization_id => batch_rec.organization_id,
2554: x_api_status => l_return_status );
2563: --{
2564: -- 10.20.40.10 Select a number of order lines at a time
2565: --{
2566: IF l_debug_on THEN
2567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2568: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2569: END IF;
2570: WSH_PR_CRITERIA.Get_Lines(
2571: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2566: IF l_debug_on THEN
2567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2568: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2569: END IF;
2570: WSH_PR_CRITERIA.Get_Lines(
2571: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2572: p_wms_flag => l_org_info.wms_org,
2573: p_express_pick_flag => l_org_info.express_pick_flag,
2574: p_batch_id => p_batch_id,
2575: x_done_flag => l_done_flag,
2576: x_api_status => l_return_status );
2577: IF l_debug_on THEN
2578: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2579: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2580: END IF;
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2579: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2580: END IF;
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2584: RAISE e_return;
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2586: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2587: l_completion_status := 'WARNING';
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2586: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2587: l_completion_status := 'WARNING';
2588: IF l_debug_on THEN
2589: WSH_DEBUG_SV.log(l_Module_name, 'WSH_PR_CRITERIA.Get_Lines returned with warning');
2590: END IF;
2591: END IF;
2592: --}
2593:
2591: END IF;
2592: --}
2593:
2594: -- If there are no more lines to be processed, then go for Next Org-Move Order Combo
2595: IF WSH_PR_CRITERIA.release_table.count = 0 THEN
2596: GOTO NEXT_ORG_MO_WORKER;
2597: END IF;
2598:
2599: -- Savepoint to rollback for any error during pick release API
2648: -- 2) If it is not worker and parameter p_num_workers in Release_Batch API > 1
2649: -- and if Pick Slip Printing Mode is Immediate or Delivery is part of Pick Slip Grouping Rule
2650: -- 3) If it is not worker and parameter p_num_workers in Release_Batch API = 1
2651: --{
2652: 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
2653: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2654: OR l_org_info.print_pick_slip_mode = 'I')) OR
2655: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2656: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2649: -- and if Pick Slip Printing Mode is Immediate or Delivery is part of Pick Slip Grouping Rule
2650: -- 3) If it is not worker and parameter p_num_workers in Release_Batch API = 1
2651: --{
2652: 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
2653: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2654: OR l_org_info.print_pick_slip_mode = 'I')) OR
2655: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2656: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2657: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0))THEN
2652: 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
2653: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2654: OR l_org_info.print_pick_slip_mode = 'I')) OR
2655: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2656: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2657: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0))THEN
2658: --{
2659: IF l_debug_on THEN
2660: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2653: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2654: OR l_org_info.print_pick_slip_mode = 'I')) OR
2655: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2656: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2657: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0))THEN
2658: --{
2659: IF l_debug_on THEN
2660: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2661: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2676: END IF;
2677: i := g_del_detail_ids.NEXT(i);
2678: END LOOP;
2679: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2680: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2681: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2682: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2683: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2684: l_detail_count := l_detail_count + 1;
2677: i := g_del_detail_ids.NEXT(i);
2678: END LOOP;
2679: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2680: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2681: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2682: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2683: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2684: l_detail_count := l_detail_count + 1;
2685: END IF;
2678: END LOOP;
2679: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2680: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2681: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2682: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2683: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2684: l_detail_count := l_detail_count + 1;
2685: END IF;
2686: END LOOP;
2679: -- Populate all Non Transactable Lines which are not assigned to a Delivery
2680: FOR i IN 1..WSH_PR_CRITERIA.release_table.count LOOP
2681: IF WSH_PR_CRITERIA.release_table(i).released_status = 'X' AND
2682: WSH_PR_CRITERIA.release_table(i).delivery_id IS NULL THEN
2683: l_del_details_tbl(l_detail_count) := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
2684: l_detail_count := l_detail_count + 1;
2685: END IF;
2686: END LOOP;
2687: -- Populate all X-dock Lines which are not assigned to a Delivery
2838: -- details which have been successfully planned for X-dock
2839: -- P_TROLIN_DELIVERY_IDS (g_xdock_delivery_ids) : Matches index with
2840: -- p_del_detail_id and stores delivery ids for the delivery
2841: -- details(derived from release_table)
2842: -- P_WSH_RELEASE_TABLE(wsh_pr_criteria.release_table) : IN/OUT variable,
2843: -- in case of splitting of delivery details new records will be added
2844: -- to p_wsh_release_table
2845: --bug# 6689448 (replenishment project): added the parameter P_dynamic_replenishment_flag
2846: INV_Pick_Release_Pub.Pick_Release
2852: p_plan_tasks => l_plan_tasks,
2853: p_dynamic_replenishment => l_org_info.dynamic_replenishment_flag,
2854: p_grouping_rule_id => l_org_info.pick_grouping_rule_id,
2855: p_skip_cartonization => l_skip_cartonization,
2856: p_wsh_release_table => wsh_pr_criteria.release_table,
2857: p_trolin_delivery_ids => g_xdock_delivery_ids,
2858: p_del_detail_id => g_xdock_detail_ids,
2859: x_pick_release_status => l_pick_release_stat,
2860: x_return_status => l_return_status,
2889: WSH_UTIL_CORE.PrintMsg('Auto Detailing Returned Expected Error');
2890: l_request_id := fnd_global.conc_request_id;
2891: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
2892: --{
2893: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2894: LOOP
2895: IF l_debug_on THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2897: END IF;
2895: IF l_debug_on THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2897: END IF;
2898: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2899: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2900: WSH_PR_CRITERIA.release_table(i).organization_id);
2901: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2902: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2903: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2897: END IF;
2898: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2899: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2900: WSH_PR_CRITERIA.release_table(i).organization_id);
2901: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2902: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2903: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2904: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
2899: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2900: WSH_PR_CRITERIA.release_table(i).organization_id);
2901: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2902: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2903: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
2904: FND_MESSAGE.SET_TOKEN('INVMESSAGE',l_message1);
2905: l_message := FND_MESSAGE.GET;
2906: l_exception_return_status := NULL;
2907: l_exception_msg_count := NULL;
2916: p_logging_entity => 'SHIPPER',
2917: p_logging_entity_id => FND_GLOBAL.USER_ID,
2918: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2919: p_message => l_message,
2920: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2921: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2922: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2923: p_request_id => l_request_id,
2924: p_batch_id => WSH_PICK_LIST.g_batch_id,
2917: p_logging_entity_id => FND_GLOBAL.USER_ID,
2918: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2919: p_message => l_message,
2920: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2921: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2922: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2923: p_request_id => l_request_id,
2924: p_batch_id => WSH_PICK_LIST.g_batch_id,
2925: x_return_status => l_exception_return_status,
2918: p_exception_name => 'WSH_INV_EXPECTED_ERROR',
2919: p_message => l_message,
2920: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2921: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2922: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2923: p_request_id => l_request_id,
2924: p_batch_id => WSH_PICK_LIST.g_batch_id,
2925: x_return_status => l_exception_return_status,
2926: x_msg_count => l_exception_msg_count,
3180: END LOOP;
3181:
3182: -- Increment worker record 'DOC' with records detailed count
3183: --{
3184: IF WSH_PR_CRITERIA.g_nonreservable_item = 'Y' and l_total_detailed_count = 0 THEN
3185: l_total_detailed_count := 1;
3186: END IF;
3187: IF l_total_detailed_count > 0 THEN
3188:
3357: p_delivery_id => crec.delivery_id,
3358: p_sc_batch_id => crec.pa_sc_batch_id,
3359: p_ship_confirm_rule_rec => l_ship_confirm_rule_rec,
3360: p_log_level => p_log_level,
3361: p_actual_departure_date => WSH_PR_CRITERIA.g_actual_departure_date,
3362: x_return_status => l_return_status
3363: );
3364: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3365: l_confirmed_results_success := l_confirmed_results_success + 1;
4169: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4170: END IF;
4171: END IF;
4172:
4173: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4174: -- and also set Batch_Id and Seeded Pick Release Document Set
4175: IF l_debug_on THEN
4176: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
4177: END IF;
4193:
4194: -- 70. Initializations for local variables
4195:
4196: -- Set values selected in criteria package
4197: l_user_id := WSH_PR_CRITERIA.g_user_id;
4198: l_login_id := WSH_PR_CRITERIA.g_login_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4194: -- 70. Initializations for local variables
4195:
4196: -- Set values selected in criteria package
4197: l_user_id := WSH_PR_CRITERIA.g_user_id;
4198: l_login_id := WSH_PR_CRITERIA.g_login_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4196: -- Set values selected in criteria package
4197: l_user_id := WSH_PR_CRITERIA.g_user_id;
4198: l_login_id := WSH_PR_CRITERIA.g_login_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4197: l_user_id := WSH_PR_CRITERIA.g_user_id;
4198: l_login_id := WSH_PR_CRITERIA.g_login_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4198: l_login_id := WSH_PR_CRITERIA.g_login_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4199: l_date := SYSDATE;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4200: l_organization_id := WSH_PR_CRITERIA.g_organization_id;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4201: l_trip_id := WSH_PR_CRITERIA.g_trip_id;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4202: l_trip_stop_id := WSH_PR_CRITERIA.g_trip_stop_id;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4203: l_ship_from_loc_id := WSH_PR_CRITERIA.g_ship_from_loc_id;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4204: l_delivery_id := WSH_PR_CRITERIA.g_delivery_id;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4212: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4205: l_source_header_id := WSH_PR_CRITERIA.g_order_header_id;
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4212: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4213:
4206: l_delivery_detail_id := WSH_PR_CRITERIA.g_del_detail_id;
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4212: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4213:
4214: -- 80. Fetching Organization(s).
4207: l_batch_name := WSH_PR_CRITERIA.g_batch_name;
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4212: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4213:
4214: -- 80. Fetching Organization(s).
4215: IF l_organization_id IS NULL THEN --{
4208: l_task_planning_flag := WSH_PR_CRITERIA.g_task_planning_flag;
4209: l_fromSchDate := WSH_PR_CRITERIA.g_FROM_SCHED_SHIP_DATE;
4210: l_toSchDate := WSH_PR_CRITERIA.G_TO_SCHED_SHIP_DATE;
4211: l_FromReqDate := WSH_PR_CRITERIA.G_FROM_REQUEST_DATE;
4212: l_ToReqDate := WSH_PR_CRITERIA.G_TO_REQUEST_DATE;
4213:
4214: -- 80. Fetching Organization(s).
4215: IF l_organization_id IS NULL THEN --{
4216: IF l_mode IS NULL THEN --{
4269: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4270: -- delivery or print pick slip mode is immediate.
4271:
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4273: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4278: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4279: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4280: CLOSE c_is_psgr_del;
4281:
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4278: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4279: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4280: CLOSE c_is_psgr_del;
4281:
4282: IF l_psgr_delivery_flag = 'Y' THEN
4326:
4327: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4328: -- delivery or print pick slip mode is immediate.
4329: IF l_debug_on THEN
4330: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4330: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4335: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4336: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4337: CLOSE c_is_psgr_del;
4338:
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4335: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4336: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4337: CLOSE c_is_psgr_del;
4338:
4339: IF l_psgr_delivery_flag = 'Y' THEN
4366: G_PICK_REL_PARALLEL := FALSE;
4367: END IF;
4368: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4371: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4372: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4373: END IF;
4374: END IF;
4613:
4614: ELSE --{
4615:
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4618: WSH_DEBUG_SV.C_PROC_LEVEL);
4619: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4620: END IF;
4621:
4618: WSH_DEBUG_SV.C_PROC_LEVEL);
4619: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4620: END IF;
4621:
4622: WSH_PR_CRITERIA.Init_Cursor(
4623: p_organization_id => l_organization_id,
4624: p_mode => 'SUMMARY', -- insert in worker table
4625: p_wms_org => l_org_info.wms_org,
4626: p_mo_header_id => l_trohdr_rec.header_id,
4634: x_dd_count => l_dd_records,
4635: x_api_status => l_return_status);
4636:
4637: IF l_debug_on THEN
4638: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4639: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4640: END IF;
4641:
4642: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4640: END IF;
4641:
4642: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4643: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4644: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4645: RAISE e_return;
4646: END IF;
4647:
4648: l_tot_worker_records := l_tot_worker_records + NVL(l_worker_records,0);
4947: IF l_debug_on THEN
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4955:
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4955:
4956: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4955:
4956: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
4957:
4962: END IF;
4963: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
4964: -- Rule and Autocreate deliveries is Yes.
4965: IF l_org_info_tbl(crec.organization_id).autocreate_deliveries = 'Y'
4966: AND WSH_PR_CRITERIA.g_trip_id = 0 AND WSH_PR_CRITERIA.g_delivery_id = 0
4967: AND WSH_PR_CRITERIA.g_use_delivery_ps = 'N'
4968: AND l_org_info_tbl(crec.organization_id).print_pick_slip_mode = 'E' THEN --{
4969: l_del_details_tbl.delete;
4970: l_detail_pfetch := 0;
4963: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
4964: -- Rule and Autocreate deliveries is Yes.
4965: IF l_org_info_tbl(crec.organization_id).autocreate_deliveries = 'Y'
4966: AND WSH_PR_CRITERIA.g_trip_id = 0 AND WSH_PR_CRITERIA.g_delivery_id = 0
4967: AND WSH_PR_CRITERIA.g_use_delivery_ps = 'N'
4968: AND l_org_info_tbl(crec.organization_id).print_pick_slip_mode = 'E' THEN --{
4969: l_del_details_tbl.delete;
4970: l_detail_pfetch := 0;
4971: l_detail_cfetch := 0;
5547:
5548: -- If pick released successfully see if we want to autopack/shipconfirm
5549: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5550: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5551: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5552: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5553: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5554: --{
5555: IF l_debug_on THEN
5548: -- If pick released successfully see if we want to autopack/shipconfirm
5549: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5550: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5551: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5552: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5553: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5554: --{
5555: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5552: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5553: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5554: --{
5555: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5557: END IF;
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5555: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5557: END IF;
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5557: END IF;
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5557: END IF;
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5565: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5565: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5566: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5566: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5567: END IF;
5568: END IF;
5569:
5570: IF WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') THEN
5571: --{
5572: -- see if PR batch created for Pick, (Pack,) and Ship through STF
5573: -- if yes, group into batches by SC Rules, AP level
5574: l_grp_count := 0;
5634: WSH_DEBUG_SV.log(l_module_name,'BEFORE INSERTING l_ap_level', l_ap_level);
5635: END IF;
5636:
5637: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5638: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5639: l_act_ap_level := NVL(l_ap_level,0);
5640: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5641: IF G_CONC_REQ = FND_API.G_TRUE THEN
5642: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5636:
5637: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5638: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5639: l_act_ap_level := NVL(l_ap_level,0);
5640: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5641: IF G_CONC_REQ = FND_API.G_TRUE THEN
5642: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5643: END IF;
5644: l_act_ap_level := 0;
5765: --}
5766: END IF;
5767:
5768: IF l_debug_on THEN
5769: WSH_DEBUG_SV.logmsg(l_module_name,'Flags: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag);
5770: END IF;
5771: -- if only one (sc rules/ap level) group for all pickreleased lines,
5772: -- or picking/packing/shipping through PR form or STF for deliveries,
5773: -- no need to spawn seperate batches. use existing PR batch.
5770: END IF;
5771: -- if only one (sc rules/ap level) group for all pickreleased lines,
5772: -- or picking/packing/shipping through PR form or STF for deliveries,
5773: -- no need to spawn seperate batches. use existing PR batch.
5774: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5775: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5776: --{
5777: IF l_debug_on THEN
5778: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5771: -- if only one (sc rules/ap level) group for all pickreleased lines,
5772: -- or picking/packing/shipping through PR form or STF for deliveries,
5773: -- no need to spawn seperate batches. use existing PR batch.
5774: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5775: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5776: --{
5777: IF l_debug_on THEN
5778: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5779: END IF;
5774: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5775: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5776: --{
5777: IF l_debug_on THEN
5778: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5779: END IF;
5780:
5781: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5782: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5778: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5779: END IF;
5780:
5781: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5782: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5783: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5784: l_act_ap_level := NVL(l_ap_level,0);
5785: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5786: IF G_CONC_REQ = FND_API.G_TRUE THEN
5779: END IF;
5780:
5781: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5782: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5783: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5784: l_act_ap_level := NVL(l_ap_level,0);
5785: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5786: IF G_CONC_REQ = FND_API.G_TRUE THEN
5787: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5781: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5782: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5783: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5784: l_act_ap_level := NVL(l_ap_level,0);
5785: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5786: IF G_CONC_REQ = FND_API.G_TRUE THEN
5787: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5788: END IF;
5789: l_act_ap_level := 0;
5816: CLOSE get_dels_in_batch;
5817: END IF;
5818:
5819: IF l_debug_on THEN
5820: 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);
5821: END IF;
5822:
5823: -- Bulk Insert
5824: FORALL i in 1..l_ps_delivery_tab.COUNT
5928: WSH_UTIL_CORE.PrintDateTime;
5929:
5930: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5931: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5932: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5933: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL) THEN --{
5934: -- Get all Trip Stops for setting Trip to In-Transit or Closed
5935: --{
5936: l_sc_id_tab.delete;
5929:
5930: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5931: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5932: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5933: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL) THEN --{
5934: -- Get all Trip Stops for setting Trip to In-Transit or Closed
5935: --{
5936: l_sc_id_tab.delete;
5937: OPEN c_close_trip(p_batch_id);
5979: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Close_A_Stop');
5980: END IF;
5981: WSH_BATCH_PROCESS.Close_A_Stop (
5982: p_stop_id => l_stops_to_close(i),
5983: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
5984: p_defer_interface_flag => 'Y',
5985: x_return_status => l_return_status );
5986:
5987: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7913: SUM(mr.SECONDARY_RESERVATION_QUANTITY - nvl(mr.SECONDARY_DETAILED_QUANTITY,0))
7914: FROM mtl_reservations mr
7915: WHERE mr.demand_source_header_id = c_demand_source_header_id
7916: AND mr.demand_source_line_id = c_demand_source_line_id
7917: 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'))
7918: 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))
7919: AND nvl(mr.staged_flag, 'N') <> 'Y'
7920: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
7921: AND mr.demand_source_type_id IN (2,8) -- Bug 4046748
7914: FROM mtl_reservations mr
7915: WHERE mr.demand_source_header_id = c_demand_source_header_id
7916: AND mr.demand_source_line_id = c_demand_source_line_id
7917: 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'))
7918: 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))
7919: AND nvl(mr.staged_flag, 'N') <> 'Y'
7920: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
7921: AND mr.demand_source_type_id IN (2,8) -- Bug 4046748
7922: AND mr.supply_source_type_id = 13; -- Bug 4046748;
7930: FROM mtl_reservations mr
7931: WHERE mr.demand_source_header_id = c_demand_source_header_id
7932: AND mr.demand_source_line_id = c_demand_source_line_id
7933: AND ((nvl(mr.staged_flag, 'N') <> 'Y'
7934: 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'))
7935: 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))))
7936: OR (nvl(mr.staged_flag, 'N') = 'Y'))
7937: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
7938: AND mr.demand_source_type_id IN (2,8)
7931: WHERE mr.demand_source_header_id = c_demand_source_header_id
7932: AND mr.demand_source_line_id = c_demand_source_line_id
7933: AND ((nvl(mr.staged_flag, 'N') <> 'Y'
7934: 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'))
7935: 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))))
7936: OR (nvl(mr.staged_flag, 'N') = 'Y'))
7937: AND mr.primary_reservation_quantity - nvl(mr.detailed_quantity,0) > 0
7938: AND mr.demand_source_type_id IN (2,8)
7939: AND mr.supply_source_type_id = 13;
7979: l_demand_exists := FALSE;
7980: l_hash_exists := FALSE;
7981: --
7982: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
7983: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
7984: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
7985: END IF;
7986: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
7987: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
7980: l_hash_exists := FALSE;
7981: --
7982: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
7983: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
7984: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
7985: END IF;
7986: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
7987: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
7988: END IF;
7982: l_hash_string := to_char(p_demand_source_header_id)||'-'||to_char(p_demand_source_line_id) ;
7983: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
7984: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
7985: END IF;
7986: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
7987: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
7988: END IF;
7989: -- Generating new hash values
7990: l_hash_value := dbms_utility.get_hash_value (
7983: IF WSH_PR_CRITERIA.g_from_subinventory IS NOT NULL THEN
7984: l_hash_string := l_hash_string ||'-'|| WSH_PR_CRITERIA.g_from_subinventory;
7985: END IF;
7986: IF WSH_PR_CRITERIA.g_from_locator IS NOT NULL THEN
7987: l_hash_string := l_hash_string ||'-'|| to_char(WSH_PR_CRITERIA.g_from_locator);
7988: END IF;
7989: -- Generating new hash values
7990: l_hash_value := dbms_utility.get_hash_value (
7991: name => l_hash_string,
8000: WHILE NOT l_hash_exists LOOP
8001: IF g_demand_table.EXISTS(l_hash_value) THEN
8002: IF ((g_demand_table(l_hash_value).demand_source_header_id = p_demand_source_header_id) AND
8003: (g_demand_table(l_hash_value).demand_source_line_id = p_demand_source_line_id ) AND
8004: (nvl(g_demand_table(l_hash_value).subinventory_code,'-99') = nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) AND
8005: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8006: l_demand_exists := TRUE;
8007: --
8008: IF l_debug_on THEN
8001: IF g_demand_table.EXISTS(l_hash_value) THEN
8002: IF ((g_demand_table(l_hash_value).demand_source_header_id = p_demand_source_header_id) AND
8003: (g_demand_table(l_hash_value).demand_source_line_id = p_demand_source_line_id ) AND
8004: (nvl(g_demand_table(l_hash_value).subinventory_code,'-99') = nvl(WSH_PR_CRITERIA.g_from_subinventory,'-99')) AND
8005: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8006: l_demand_exists := TRUE;
8007: --
8008: IF l_debug_on THEN
8009: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8027: --
8028:
8029: IF (not l_demand_exists) THEN
8030: -- Bug 4775539
8031: IF (WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y') THEN
8032: --Get the reservation details for header and line.
8033: IF l_debug_on THEN
8034: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING RESERVATION DETAILS' );
8035: END IF;
8106: --
8107: --Store reservation details in global demand table.
8108: g_demand_table(l_hash_value).demand_source_header_id := p_demand_source_header_id;
8109: g_demand_table(l_hash_value).demand_source_line_id := p_demand_source_line_id;
8110: g_demand_table(l_hash_value).subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
8111: g_demand_table(l_hash_value).locator_id := WSH_PR_CRITERIA.g_from_locator;
8112: g_demand_table(l_hash_value).reserved_quantity := l_reservation_quantity;
8113: -- HW OPMCONV - Added qty2
8114: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8107: --Store reservation details in global demand table.
8108: g_demand_table(l_hash_value).demand_source_header_id := p_demand_source_header_id;
8109: g_demand_table(l_hash_value).demand_source_line_id := p_demand_source_line_id;
8110: g_demand_table(l_hash_value).subinventory_code := WSH_PR_CRITERIA.g_from_subinventory;
8111: g_demand_table(l_hash_value).locator_id := WSH_PR_CRITERIA.g_from_locator;
8112: g_demand_table(l_hash_value).reserved_quantity := l_reservation_quantity;
8113: -- HW OPMCONV - Added qty2
8114: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8115: --