[Home] [Help]
1: PACKAGE BODY WSH_PICK_LIST AS
2: /* $Header: WSHPGSLB.pls 120.64.12020000.6 2013/04/16 13:22:32 sunilku ship $ */
3:
4:
5: g_hash_base NUMBER := 1;
7:
8:
9: --
10: -- Package
11: -- WSH_PICK_LIST
12: --
13: -- Purpose
14: -- This package does the following:
15: -- - Generate selection list
47:
48: G_ONLINE_PICK_RELEASE_SKIP VARCHAR2(1) := 'N';
49: --
50:
51: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_PICK_LIST';
52:
53: g_demand_table demRecTabTyp;
54:
55: -- Global Variables
55: -- Global Variables
56: g_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
57: g_trolin_delivery_ids WSH_UTIL_CORE.Id_Tab_Type;
58: g_order_number NUMBER;
59: g_del_detail_ids WSH_PICK_LIST.DelDetTabTyp;
60: g_exp_pick_release_stat Inv_Express_Pick_Pub.P_Pick_Release_Status_Tbl;
61:
62: -- X-dock, declare package level global variables
63: g_allocation_method WSH_PICKING_BATCHES.ALLOCATION_METHOD%TYPE;
61:
62: -- X-dock, declare package level global variables
63: g_allocation_method WSH_PICKING_BATCHES.ALLOCATION_METHOD%TYPE;
64: g_xdock_delivery_ids WSH_UTIL_CORE.Id_Tab_Type; -- used for X-dock only
65: g_xdock_detail_ids WSH_PICK_LIST.DelDetTabTyp; -- used for X-dock only
66:
67: /**************************
68: -- X-dock
69: -- Description: This function is called from create_move_order_lines and
81: FUNCTION check_allocation_method RETURN VARCHAR2 IS
82:
83: BEGIN
84: IF g_valid_allocation IS NULL THEN
85: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
86: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
87: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
88: g_valid_allocation := 'Y';
89: ELSE
82:
83: BEGIN
84: IF g_valid_allocation IS NULL THEN
85: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
86: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
87: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
88: g_valid_allocation := 'Y';
89: ELSE
90: g_valid_allocation := 'N';
83: BEGIN
84: IF g_valid_allocation IS NULL THEN
85: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
86: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
87: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
88: g_valid_allocation := 'Y';
89: ELSE
90: g_valid_allocation := 'N';
91: END IF;
151: --
152: RETURN; -- back to calling API
153: END IF;
154:
155: WSH_PICK_LIST.G_BATCH_ID := p_batch_id;
156:
157: BEGIN --{
158: --Get the seeded document set id
159: SELECT WRS.REPORT_SET_ID
156:
157: BEGIN --{
158: --Get the seeded document set id
159: SELECT WRS.REPORT_SET_ID
160: INTO WSH_PICK_LIST.G_SEED_DOC_SET
161: FROM WSH_REPORT_SET_LINES WRSL,
162: WSH_REPORT_SETS WRS
163: WHERE WRS.NAME = 'Pick Slip Report'
164: AND WRS.REPORT_SET_ID = WRSL.REPORT_SET_ID ;
163: WHERE WRS.NAME = 'Pick Slip Report'
164: AND WRS.REPORT_SET_ID = WRSL.REPORT_SET_ID ;
165: --
166: IF l_debug_on THEN
167: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET IS '||WSH_PICK_LIST.G_SEED_DOC_SET );
168: END IF;
169: --
170: EXCEPTION
171: --
170: EXCEPTION
171: --
172: WHEN NO_DATA_FOUND THEN
173: --
174: WSH_PICK_LIST.G_SEED_DOC_SET := NULL;
175: --
176: IF l_debug_on THEN
177: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET NOT FOUND');
178: END IF;
178: END IF;
179: --
180: WHEN TOO_MANY_ROWS THEN
181: --
182: WSH_PICK_LIST.G_SEED_DOC_SET := NULL;
183: --
184: IF l_debug_on THEN
185: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET HAS > 1 REPORT. IGNORING...');
186: END IF;
219: -- x_return_status OUT NOCOPY Return Status.
220: -- End of comments
221: PROCEDURE Get_Org_Params(
222: p_organization_id IN NUMBER,
223: x_org_info OUT NOCOPY WSH_PICK_LIST.Org_Params_Rec,
224: x_return_status OUT NOCOPY VARCHAR2)
225: IS
226:
227: --Cursor to get inventory pick confirmed required flag.
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
670: ,WSH_DEBUG_SV.C_PROC_LEVEL);
671: END IF;
672: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
673: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
674: p_organization_id => p_organization_id,
675: p_order_header_id => WSH_PR_CRITERIA.g_order_header_id,
676: p_ps_mode => p_ps_mode,
677: p_batch_id => p_batch_id,
911: l_count_picked_lines NUMBER;
912: l_delv_id NUMBER;
913: l_wf_rs VARCHAR2(1); --Pick to POD WF Project
914:
915: l_del_detail_id WSH_PICK_LIST.DelDetTabTyp;
916: j NUMBER;
917:
918: --bug 7171766
919: l_match_found BOOLEAN;
916: j NUMBER;
917:
918: --bug 7171766
919: l_match_found BOOLEAN;
920: l_group_match_seq_tbl WSH_PICK_LIST.group_match_seq_tab_type;
921: K NUMBER ;
922: --Added for Standalone project Changes
923: l_standalone_mode VARCHAR2(1);
924:
965: l_date := SYSDATE;
966:
967: -- X-dock
968: -- Call to WMS API to process lines for X-dock
969: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
972: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
1050: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1051: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1052: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1053: p_request_id => l_request_id,
1054: p_batch_id => WSH_PICK_LIST.g_batch_id,
1055: p_delivery_detail_id => WSH_PR_CRITERIA.release_table(i).delivery_detail_id,
1056: x_return_status => l_exception_return_status,
1057: x_msg_count => l_exception_msg_count,
1058: x_msg_data => l_exception_msg_data,
1070: -- end of X-dock related call
1071:
1072: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then Generate Grouping Ids for the lines
1073: -- X-dock,cartonization is not applicable for X-dock only mode
1074: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1075: AND WSH_PR_CRITERIA.release_table.count > 0
1076: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1072: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then Generate Grouping Ids for the lines
1073: -- X-dock,cartonization is not applicable for X-dock only mode
1074: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1075: AND WSH_PR_CRITERIA.release_table.count > 0
1076: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1079: THEN --{
1080: IF l_debug_on THEN
1073: -- X-dock,cartonization is not applicable for X-dock only mode
1074: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1075: AND WSH_PR_CRITERIA.release_table.count > 0
1076: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1079: THEN --{
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1074: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y'
1075: AND WSH_PR_CRITERIA.release_table.count > 0
1076: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1079: THEN --{
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1082: END IF;
1125:
1126: -- X-dock
1127: -- Populate trolin_tbl only for these allocation methods, this call is not
1128: -- required for X-dock only
1129: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1130: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1131: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
1132: --{
1133:
1126: -- X-dock
1127: -- Populate trolin_tbl only for these allocation methods, this call is not
1128: -- required for X-dock only
1129: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1130: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1131: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
1132: --{
1133:
1134: -- Print before the loop
1127: -- Populate trolin_tbl only for these allocation methods, this call is not
1128: -- required for X-dock only
1129: IF g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
1130: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1131: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
1132: --{
1133:
1134: -- Print before the loop
1135: IF l_debug_on THEN
1226: END IF;
1227: --- Standalone project Changes: end
1228:
1229: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then populate Carton Grouping Ids for the lines
1230: IF p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1 AND p_wms_flag = 'Y' THEN
1231: --{
1232: --bug 7171766
1233: l_match_found :=FALSE;
1234:
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1519: END IF;
1520: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1521: Inv_Express_Pick_Pub.Pick_Release (
1522: p_api_version => l_api_version_number,
1523: p_init_msg_list => FND_API.G_TRUE,
1524: p_commit => l_commit,
1590: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1591: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1592: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
1593: p_request_id => l_request_id,
1594: p_batch_id => WSH_PICK_LIST.g_batch_id,
1595: x_return_status => l_exception_return_status,
1596: x_msg_count => l_exception_msg_count,
1597: x_msg_data => l_exception_msg_data,
1598: x_exception_id => l_dummy_exception_id);
2451: --
2452: l_done_flag VARCHAR2(1);
2453: l_pick_release_stat INV_PICK_RELEASE_PUB.INV_Release_Status_Tbl_Type;
2454: l_mmtt_tbl INV_MO_LINE_DETAIL_UTIL.G_MMTT_Tbl_Type;
2455: l_org_info WSH_PICK_LIST.Org_Params_Rec;
2456: l_tmp_rel_status VARCHAR2(1);
2457: --
2458: l_auto_pick_confirm_num NUMBER;
2459: l_plan_tasks BOOLEAN;
2499: END IF;
2500:
2501: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2502: IF p_worker_id IS NOT NULL THEN
2503: WSH_PICK_LIST.G_PICK_REL_PARALLEL := TRUE;
2504: IF l_debug_on THEN
2505: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
2506: END IF;
2507: END IF;
2667:
2668: -- 10.20.40.20 Calling Move Order Line API
2669: --{
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2672: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2673: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2674: END IF;
2675: Create_Move_Order_Lines (
2688: x_return_status => l_return_status
2689: );
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2697: RAISE e_return;
2698: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2699: IF l_completion_status = 'NORMAL' THEN
2700: l_completion_status := 'WARNING';
2712: -- and if Pick Slip Printing Mode is Immediate or Delivery is part of Pick Slip Grouping Rule
2713: -- 3) If it is not worker and parameter p_num_workers in Release_Batch API = 1
2714: --{
2715: IF (p_worker_id IS NOT NULL AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y' OR l_org_info.print_pick_slip_mode = 'I')) OR
2716: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2720: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2714: --{
2715: IF (p_worker_id IS NOT NULL AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y' OR l_org_info.print_pick_slip_mode = 'I')) OR
2716: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS > 1 AND (WSH_PR_CRITERIA.g_use_delivery_ps = 'Y'
2717: OR l_org_info.print_pick_slip_mode = 'I')) OR
2718: (p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1) THEN
2719: -- bug # 8915460 : Added l_continue_create_del
2720: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2721: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0)
2722: AND l_continue_create_del = 'Y' )THEN
2794: END LOOP;
2795: --}
2796: END IF;
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2799: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2800: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2801: END IF;
2802: Autocreate_Deliveries (
2806: x_return_status => l_return_status
2807: );
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2810: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2815: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2816: RAISE e_return;
2817: END IF;
2818: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
2819: -- then auto create delivery can be performed only once because
2877: END IF;
2878:
2879: -- If Parallel process, then Cartonization is done in Parent Process
2880: -- Else done here
2881: IF WSH_PICK_LIST.G_PICK_REL_PARALLEL THEN
2882: l_skip_cartonization := TRUE;
2883: l_plan_tasks := TRUE;
2884: ELSE
2885: l_skip_cartonization := FALSE;
2994: p_inventory_item_id => WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2995: p_logged_at_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2996: p_exception_location_id => WSH_PR_CRITERIA.release_table(i).ship_from_location_id,
2997: p_request_id => l_request_id,
2998: p_batch_id => WSH_PICK_LIST.g_batch_id,
2999: x_return_status => l_exception_return_status,
3000: x_msg_count => l_exception_msg_count,
3001: x_msg_data => l_exception_msg_data,
3002: x_exception_id => l_dummy_exception_id);
3088:
3089: -- If Pick Slip Print Mode is Immediate for Non-WMS Orgs
3090: -- OR Pick Slip Print Mode is Immediate and Cartonization is done before Allocation for WMS Orgs
3091: IF (l_org_info.print_pick_slip_mode = 'I') AND (l_org_info.wms_org = 'N' OR
3092: (l_org_info.wms_org = 'Y' AND p_worker_id IS NULL AND WSH_PICK_LIST.G_NUM_WORKERS = 1)) THEN
3093: --{
3094: IF (WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.COUNT > 0) THEN
3095: --{
3096: IF l_debug_on THEN
3105: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP',WSH_DEBUG_SV.C_PROC_LEVEL);
3106: END IF;
3107: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip(
3108: p_pick_slip_number => WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table(i),
3109: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
3110: p_organization_id => batch_rec.organization_id,
3111: p_ps_mode => 'I',
3112: x_api_status => l_return_status,
3113: x_error_message => l_message );
3152: -- Auto Pick Confirm
3153: IF l_org_info.express_pick_flag = 'N' AND l_org_info.auto_pick_confirm = 'Y'
3154: AND l_pick_release_stat.count > 0 THEN
3155: --{
3156: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
3157: --{
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3269: IF l_total_detailed_count > 0 THEN
3270:
3271: UPDATE WSH_PR_WORKERS
3272: SET detailed_count = detailed_count + l_total_detailed_count
3273: WHERE batch_id = WSH_PICK_LIST.G_BATCH_ID
3274: AND organization_id = batch_rec.organization_id
3275: AND type = 'DOC';
3276: --
3277: IF l_debug_on THEN
3293: printer_name,
3294: conc_program_name
3295: )
3296: SELECT
3297: WSH_PICK_LIST.G_BATCH_ID,
3298: 'PRINTER',
3299: batch_rec.organization_id,
3300: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i).printer_name,
3301: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i).conc_program_name
3302: FROM dual
3303: WHERE NOT EXISTS (
3304: SELECT 'x'
3305: FROM wsh_pr_workers
3306: WHERE batch_id = WSH_PICK_LIST.G_BATCH_ID
3307: AND type = 'PRINTER'
3308: AND organization_id = batch_rec.organization_id
3309: AND printer_name = WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i).printer_name
3310: AND conc_program_name=WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i).conc_program_name);
3537: ROLLBACK TO s_Release_Batch_Sub_sf;
3538: END IF;
3539:
3540: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3541: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3542: IF G_CONC_REQ = FND_API.G_TRUE THEN
3543: -- Set the completion status only in the case of Child Request
3544: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3545: -- any further processing
3545: -- any further processing
3546: IF p_worker_id is not null then
3547: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3548: END IF;
3549: errbuf := 'Exception occurred in WSH_PICK_LIST';
3550: retcode := '2';
3551: END IF;
3552: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3553: IF l_debug_on THEN
3561: ROLLBACK TO s_Release_Batch_Sub_sf;
3562: END IF;
3563:
3564: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3565: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3566: IF G_CONC_REQ = FND_API.G_TRUE THEN
3567: -- Set the completion status only in the case of Child Request
3568: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3569: -- any further processing
3569: -- any further processing
3570: IF p_worker_id is not null then
3571: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3572: END IF;
3573: errbuf := 'Exception occurred in WSH_PICK_LIST';
3574: retcode := '2';
3575: END IF;
3576: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3577: IF l_debug_on THEN
4102: l_tot_dd_records NUMBER;
4103: l_worker_records NUMBER;
4104: l_smc_records NUMBER;
4105: l_dd_records NUMBER;
4106: l_org_info WSH_PICK_LIST.Org_Params_Rec;
4107: l_org_info_tbl WSH_PICK_LIST.Org_Params_Rec_Tbl;
4108: l_detail_cfetch NUMBER;
4109: l_detail_pfetch NUMBER;
4110: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
4103: l_worker_records NUMBER;
4104: l_smc_records NUMBER;
4105: l_dd_records NUMBER;
4106: l_org_info WSH_PICK_LIST.Org_Params_Rec;
4107: l_org_info_tbl WSH_PICK_LIST.Org_Params_Rec_Tbl;
4108: l_detail_cfetch NUMBER;
4109: l_detail_pfetch NUMBER;
4110: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
4111: l_mo_lines_tbl INV_MOVE_ORDER_PUB.Num_Tbl_Type;
4146: l_errbuf VARCHAR2(2000);
4147:
4148: --bug 7171766
4149: l_match_found BOOLEAN;
4150: l_group_match_seq_tbl WSH_PICK_LIST.group_match_seq_tab_type;
4151: K NUMBER ;
4152: l_org_complete VARCHAR2(1); --WMS High Vol Support
4153: v_wms_org_rec c_wms_orgs%ROWTYPE; --WMS High Vol Support
4154:
5034: END IF;
5035:
5036: -- Autocreate Deliveries only if G_NUM_WORKERS > 1
5037: -- Otherwise it would have been done before Allocation in Release_Batch_Sub
5038: IF WSH_PICK_LIST.G_NUM_WORKERS > 1 THEN --{
5039: IF l_mode IS NULL OR l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF condition
5040: -- Call Autocreate Deliveries for the Batch
5041: -- Loop thru all Organization - Details that are not assigned to any deliveries
5042: IF l_debug_on THEN
5069: FETCH c_get_unassigned_details BULK COLLECT INTO l_del_details_tbl LIMIT l_pr_batch_size;
5070: l_detail_cfetch := c_get_unassigned_details%ROWCOUNT - l_detail_pfetch;
5071: EXIT WHEN (l_detail_cfetch = 0);
5072: IF l_debug_on THEN
5073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
5074: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5075: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5076: END IF;
5077: Autocreate_Deliveries (
5081: x_return_status => l_return_status
5082: );
5083: IF l_debug_on THEN
5084: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5085: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5090: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
5091: RAISE e_return;
5092: END IF;
5093: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
5094: -- then auto create delivery can be performed only once because
5268: COMMIT;
5269: END IF;
5270:
5271: -- WMS Cartonization is done only if p_num_workers in Release_Batch is > 1
5272: IF ( WSH_PICK_LIST.G_NUM_WORKERS > 1 )
5273: -- X-dock
5274: -- Need to add check to ensure delivery detail is not X-docked
5275: -- either MOL is null or MOL is not null and move order type = PUTAWAY
5276: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
5272: IF ( WSH_PICK_LIST.G_NUM_WORKERS > 1 )
5273: -- X-dock
5274: -- Need to add check to ensure delivery detail is not X-docked
5275: -- either MOL is null or MOL is not null and move order type = PUTAWAY
5276: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
5277: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
5278: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
5279: --{
5280: IF l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF cond
5273: -- X-dock
5274: -- Need to add check to ensure delivery detail is not X-docked
5275: -- either MOL is null or MOL is not null and move order type = PUTAWAY
5276: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
5277: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
5278: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
5279: --{
5280: IF l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF cond
5281: FOR crec IN c_wms_orgs(p_batch_id) LOOP --{
5274: -- Need to add check to ensure delivery detail is not X-docked
5275: -- either MOL is null or MOL is not null and move order type = PUTAWAY
5276: AND g_allocation_method IN (WSH_PICK_LIST.C_INVENTORY_ONLY,
5277: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
5278: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY) THEN
5279: --{
5280: IF l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF cond
5281: FOR crec IN c_wms_orgs(p_batch_id) LOOP --{
5282: IF l_org_info_tbl(crec.organization_id).auto_pick_confirm = 'Y' THEN
5408: WMS_POST_ALLOCATION.launch (
5409: p_organization_id => v_wms_org_rec.organization_id,
5410: p_mo_header_id => v_wms_org_rec.mo_header_id,
5411: p_batch_id => p_batch_id,
5412: p_num_workers => WSH_PICK_LIST.G_NUM_WORKERS,
5413: p_auto_pick_confirm => l_org_info_tbl(v_wms_org_rec.organization_id).auto_pick_confirm,
5414: p_wsh_status => NVL(l_retcode,0), -- Current Request Status
5415: p_wsh_mode => l_mode,
5416: p_grouping_rule_id => l_org_info_tbl(v_wms_org_rec.organization_id).pick_grouping_rule_id,
5459: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5462: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5466: l_print_ps := 'N';
5467: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5466: l_print_ps := 'N';
5467: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5468: l_org_info_tbl(crec.organization_id).express_pick_flag = 'N' AND
5469: l_org_info_tbl(crec.organization_id).autodetail_flag = 'Y' THEN
5470: l_print_ps := 'Y';
5471: END IF;
5470: l_print_ps := 'Y';
5471: END IF;
5472: IF (l_print_ps = 'Y') OR (l_org_info_tbl(crec.organization_id).doc_set_id <> -1) THEN
5473: IF l_debug_on THEN
5474: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Print_Docs'
5475: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5476: END IF;
5477: Print_docs (
5478: p_batch_id => p_batch_id,
6429: ROLLBACK TO s_Release_Batch_sp;
6430: END IF;
6431:
6432: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6433: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6434: IF get_orgs%ISOPEN THEN
6435: CLOSE get_orgs;
6436: END IF;
6437: IF get_pack_ship_groups%ISOPEN THEN
6498: CLOSE c_requests;
6499: END IF;
6500: IF G_CONC_REQ = FND_API.G_TRUE THEN
6501: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6502: errbuf := 'Exception occurred in WSH_PICK_LIST';
6503: retcode := '2';
6504: END IF;
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6506: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6523: WHEN OTHERS THEN
6524: --
6525: ROLLBACK;
6526: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6527: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6528: IF get_orgs%ISOPEN THEN
6529: CLOSE get_orgs;
6530: END IF;
6531: IF get_pack_ship_groups%ISOPEN THEN
6592: CLOSE c_requests;
6593: END IF;
6594: IF G_CONC_REQ = FND_API.G_TRUE THEN
6595: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6596: errbuf := 'Exception occurred in WSH_PICK_LIST';
6597: retcode := '2';
6598: END IF;
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6600: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
7002:
7003: WHEN OTHERS THEN
7004: --
7005: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7006: FND_MSG_PUB.Add_Exc_Msg( 'WSH_PICK_LIST', 'Release_Batch_SRS' );
7007: END IF;
7008: --
7009: IF G_CONC_REQ = FND_API.G_TRUE THEN
7010: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
7991: CLOSE c_is_detail_assigned;
7992: END IF;
7993: --
7994:
7995: WSH_UTIL_CORE.Default_Handler('WSH_PICK_LIST.Launch_Pick_Release');
7996: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7997: IF check_detail_for_SC%ISOPEN THEN
7998: CLOSE check_detail_for_SC;
7999: END IF;
8634: wsh_debug_sv.pop(l_module_name);
8635: END IF;
8636: --
8637: END CalcWorkingDay;
8638: END WSH_PICK_LIST;