[Home] [Help]
26: --
27: -- Input Parameters
28: -- p_api_version_number
29: -- API version number (current version is 1.0)
30: -- p_init_msg_list (optional, default FND_API.G_FALSE)
31: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
32: -- if set to FND_API.G_TRUE
33: -- initialize error message list
34: -- if set to FND_API.G_FALSE - not initialize error
27: -- Input Parameters
28: -- p_api_version_number
29: -- API version number (current version is 1.0)
30: -- p_init_msg_list (optional, default FND_API.G_FALSE)
31: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
32: -- if set to FND_API.G_TRUE
33: -- initialize error message list
34: -- if set to FND_API.G_FALSE - not initialize error
35: -- message list
28: -- p_api_version_number
29: -- API version number (current version is 1.0)
30: -- p_init_msg_list (optional, default FND_API.G_FALSE)
31: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
32: -- if set to FND_API.G_TRUE
33: -- initialize error message list
34: -- if set to FND_API.G_FALSE - not initialize error
35: -- message list
36: -- p_commit (optional, default FND_API.G_FALSE)
30: -- p_init_msg_list (optional, default FND_API.G_FALSE)
31: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
32: -- if set to FND_API.G_TRUE
33: -- initialize error message list
34: -- if set to FND_API.G_FALSE - not initialize error
35: -- message list
36: -- p_commit (optional, default FND_API.G_FALSE)
37: -- whether or not to commit the changes to database
38: --
32: -- if set to FND_API.G_TRUE
33: -- initialize error message list
34: -- if set to FND_API.G_FALSE - not initialize error
35: -- message list
36: -- p_commit (optional, default FND_API.G_FALSE)
37: -- whether or not to commit the changes to database
38: --
39: -- p_mo_line_tbl
40: -- Table of Move Order Line records to pick release
54: --
55: -- Output Parameters
56: -- x_return_status
57: -- if the pick release process succeeds, the value is
58: -- fnd_api.g_ret_sts_success;
59: -- if there is an expected error, the value is
60: -- fnd_api.g_ret_sts_error;
61: -- if there is an unexpected error, the value is
62: -- fnd_api.g_ret_sts_unexp_error;
56: -- x_return_status
57: -- if the pick release process succeeds, the value is
58: -- fnd_api.g_ret_sts_success;
59: -- if there is an expected error, the value is
60: -- fnd_api.g_ret_sts_error;
61: -- if there is an unexpected error, the value is
62: -- fnd_api.g_ret_sts_unexp_error;
63: -- x_msg_count
64: -- if there is one or more errors, the number of error messages
58: -- fnd_api.g_ret_sts_success;
59: -- if there is an expected error, the value is
60: -- fnd_api.g_ret_sts_error;
61: -- if there is an unexpected error, the value is
62: -- fnd_api.g_ret_sts_unexp_error;
63: -- x_msg_count
64: -- if there is one or more errors, the number of error messages
65: -- in the buffer
66: -- x_msg_data
64: -- if there is one or more errors, the number of error messages
65: -- in the buffer
66: -- x_msg_data
67: -- if there is one and only one error, the error message
68: -- (See fnd_api package for more details about the above output parameters)
69: -- x_pick_release_status
70: -- This output parameter is a table of records (of type
71: -- INV_Release_Status_Tbl_Type) which specifies the pick release status
72: -- for each move order line that is passed in.
99: print_debug('Inside Store_smc_bo_details','INV_PICK_RELEASE_PUB');
100: print_debug('delivery detail'||back_order_det_tbl(1).delivery_detail_id,
101: 'INV_PICK_RELEASE_PUB');
102: End If;
103: x_return_status := fnd_api.g_ret_sts_success;
104:
105: if back_order_det_tbl.count >0 then
106: l_delivery_detail_id :=back_order_det_tbl(1).delivery_detail_id;
107: If is_debug Then
125: ||all_del_det_bo_tbl(l_delivery_detail_id).cycle_count_quantity
126: ,'INV_PICK_RELEASE_PUB');
127: End If;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: --
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: if is_debug then
127: End If;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: --
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: if is_debug then
134: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
135: end if;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: --
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: if is_debug then
134: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
135: end if;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: if is_debug then
134: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
135: end if;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: WHEN OTHERS THEN
138: if is_debug then
139: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
140: end if;
138: if is_debug then
139: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
140: end if;
141: ROLLBACK TO Pick_Release_PUB;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: END;
144:
145: --2509322:Earlier when ever a component in a model is short we backorder all
146: -- components to the difference of new model quantity and original
157: l_shipping_attr WSH_INTERFACE.ChangedAttributeTabType;
158: l_del_index INTEGER;
159:
160: BEGIN
161: x_return_status := fnd_api.g_ret_sts_success;
162:
163: IF all_del_det_bo_tbl.COUNT >0 THEN
164: l_del_index :=all_del_det_bo_tbl.FIRST ;
165: LOOP
192: p_changed_attributes => l_shipping_attr,
193: x_return_status => x_return_status
194: );
195:
196: if( x_return_status = FND_API.G_RET_STS_ERROR ) then
197: if is_debug then
198: print_debug('return error from update shipping attributes',
199: 'Inv_Pick_Release_Pub.Pick_Release');
200: end if;
197: if is_debug then
198: print_debug('return error from update shipping attributes',
199: 'Inv_Pick_Release_Pub.Pick_Release');
200: end if;
201: raise FND_API.G_EXC_ERROR;
202: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
203: if is_debug then
204: print_debug('return error from update shipping attributes',
205: 'Inv_Pick_Release_Pub.Pick_Release');
198: print_debug('return error from update shipping attributes',
199: 'Inv_Pick_Release_Pub.Pick_Release');
200: end if;
201: raise FND_API.G_EXC_ERROR;
202: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
203: if is_debug then
204: print_debug('return error from update shipping attributes',
205: 'Inv_Pick_Release_Pub.Pick_Release');
206: end if;
203: if is_debug then
204: print_debug('return error from update shipping attributes',
205: 'Inv_Pick_Release_Pub.Pick_Release');
206: end if;
207: raise FND_API.G_EXC_UNEXPECTED_ERROR;
208: end if;
209:
210: l_shipping_attr.DELETE;
211: EXIT WHEN l_del_index =all_del_det_bo_tbl.LAST;
213:
214: END LOOP;
215: END IF;
216: all_del_det_bo_tbl.DELETE;
217: x_return_status :=fnd_api.g_ret_sts_success;
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: --
221: x_return_status := FND_API.G_RET_STS_ERROR;
215: END IF;
216: all_del_det_bo_tbl.DELETE;
217: x_return_status :=fnd_api.g_ret_sts_success;
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: --
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: --
223: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
217: x_return_status :=fnd_api.g_ret_sts_success;
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: --
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: --
223: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
224: , p_data => x_msg_data);
225: --
222: --
223: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
224: , p_data => x_msg_data);
225: --
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: --
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: --
230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
224: , p_data => x_msg_data);
225: --
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: --
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: --
230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
231: , p_data => x_msg_data);
232: --
232: --
233: WHEN OTHERS THEN
234: ROLLBACK TO Pick_Release_PUB;
235: --
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: --
238: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
239: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
240: END IF;
392:
393: -- The Move Order Lines may need to have their grouping rule ID defaulted
394: -- from the header. This is only necessary if the Grouping Rule ID was not
395: -- passed in as a parameter.
396: IF p_grouping_rule_id <> FND_API.G_MISS_NUM THEN
397: l_grouping_rule_id := p_grouping_rule_id;
398: l_get_header_rule := 2;
399: ELSE
400: l_get_header_rule := 1;
411: ROLLBACK TO Assign_Pick_slip;
412: FND_MESSAGE.SET_NAME('INV','INV_NO_HEADER_FOUND');
413: FND_MESSAGE.SET_TOKEN('MO_LINE_ID','');
414: FND_MSG_PUB.Add;
415: RAISE fnd_api.g_exc_unexpected_error;
416: END;
417:
418: -- If the header did not have a grouping rule ID, retrieve it from
419: -- the organization-level default.
427: WHEN no_data_found THEN
428: ROLLBACK TO Assign_pick_slip;
429: FND_MESSAGE.SET_NAME('INV','INV-NO ORG INFORMATION');
430: FND_MSG_PUB.Add;
431: RAISE fnd_api.g_exc_unexpected_error;
432: END;
433: END IF; -- get header rule
434: END IF; -- return status
435:
448: , x_error_message => l_api_error_msg
449: , x_api_Status => l_api_return_status
450: ) ;
451:
452: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
453: IF (l_debug = 1) THEN
454: print_debug('return error from WSH_INV_INTEGRATION.find_printer',
455: 'Inv_Pick_Release_Pvt.Process_Line');
456: END IF;
453: IF (l_debug = 1) THEN
454: print_debug('return error from WSH_INV_INTEGRATION.find_printer',
455: 'Inv_Pick_Release_Pvt.Process_Line');
456: END IF;
457: RAISE fnd_api.g_exc_unexpected_error;
458: END IF;
459:
460: END IF ;
461: IF p_ps_mode = 'I' and
458: END IF;
459:
460: END IF ;
461: IF p_ps_mode = 'I' and
462: p_allow_partial_pick = fnd_api.g_true THEN
463: COMMIT WORK;
464:
465: BEGIN
466:
481: FROM wsh_picking_batches
482: WHERE NAME = l_request_number;
483: EXCEPTION
484: WHEN NO_DATA_FOUND THEN
485: x_return_status := fnd_api.g_ret_sts_error;
486: RAISE fnd_api.g_exc_error;
487: END;
488:
489: wsh_pr_pick_slip_number.print_pick_slip(
482: WHERE NAME = l_request_number;
483: EXCEPTION
484: WHEN NO_DATA_FOUND THEN
485: x_return_status := fnd_api.g_ret_sts_error;
486: RAISE fnd_api.g_exc_error;
487: END;
488:
489: wsh_pr_pick_slip_number.print_pick_slip(
490: p_pick_slip_number => l_pick_slip_number
494: , x_error_message => l_api_error_msg
495: ); -- don't need to call WMS new pick slip report, call shipping's api and add new wms report to the
496: -- proper document set
497:
498: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
499: ROLLBACK TO assign_pick_slip;
500: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
501: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
502: fnd_msg_pub.ADD;
499: ROLLBACK TO assign_pick_slip;
500: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
501: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
502: fnd_msg_pub.ADD;
503: RAISE fnd_api.g_exc_unexpected_error;
504: END IF;
505: END IF;
506:
507: ELSE
535: IF (l_debug = 1) THEN
536: print_debug('l_call_mode'|| l_call_mode, 'Inv_Pick_Release_PVT.Process_Line');
537: END IF;
538:
539: IF l_api_return_status <> fnd_api.g_ret_sts_success
540: OR l_pick_slip_number = -1 THEN
541: ROLLBACK TO assign_pick_slip;
542: fnd_message.set_name('INV', 'INV_NO_PICK_SLIP_NUMBER');
543: fnd_msg_pub.ADD;
540: OR l_pick_slip_number = -1 THEN
541: ROLLBACK TO assign_pick_slip;
542: fnd_message.set_name('INV', 'INV_NO_PICK_SLIP_NUMBER');
543: fnd_msg_pub.ADD;
544: RAISE fnd_api.g_exc_unexpected_error;
545: END IF;
546:
547: IF ( p_ps_mode <> 'I' ) THEN
548: WSH_INV_INTEGRATION_GRP.FIND_PRINTER
551: , x_error_message => l_api_error_msg
552: , x_api_Status => l_api_return_status
553: ) ;
554:
555: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
556: IF (l_debug = 1) THEN
557: print_debug('return error from WSH_INV_INTEGRATION.find_printer',
558: 'Inv_Pick_Release_Pvt.Process_Line');
559: END IF;
556: IF (l_debug = 1) THEN
557: print_debug('return error from WSH_INV_INTEGRATION.find_printer',
558: 'Inv_Pick_Release_Pvt.Process_Line');
559: END IF;
560: RAISE fnd_api.g_exc_unexpected_error;
561: END IF;
562:
563: END IF ;
564: l_mso_header_id := inv_salesorder.get_salesorder_for_oeheader(mmtt_line.oe_header_id);
575: -- picking is allowed) commit
576: -- and print at this point.
577: -- Bug 1663376 - Don't Commit if Ship_set_Id is not null,
578: -- since we need to be able to rollback
579: IF l_ready_to_print = fnd_api.g_true
580: AND p_allow_partial_pick = fnd_api.g_true
581: AND mmtt_line.ship_set_id IS NULL
582: AND mmtt_line.ship_model_id IS NULL
583: AND l_call_mode IS NULL THEN
576: -- and print at this point.
577: -- Bug 1663376 - Don't Commit if Ship_set_Id is not null,
578: -- since we need to be able to rollback
579: IF l_ready_to_print = fnd_api.g_true
580: AND p_allow_partial_pick = fnd_api.g_true
581: AND mmtt_line.ship_set_id IS NULL
582: AND mmtt_line.ship_model_id IS NULL
583: AND l_call_mode IS NULL THEN
584: COMMIT WORK;
595: FROM wsh_picking_batches
596: WHERE NAME = l_request_number;
597: EXCEPTION
598: WHEN NO_DATA_FOUND THEN
599: x_return_status := fnd_api.g_ret_sts_error;
600: RAISE fnd_api.g_exc_error;
601: END;
602:
603: wsh_pr_pick_slip_number.print_pick_slip(
596: WHERE NAME = l_request_number;
597: EXCEPTION
598: WHEN NO_DATA_FOUND THEN
599: x_return_status := fnd_api.g_ret_sts_error;
600: RAISE fnd_api.g_exc_error;
601: END;
602:
603: wsh_pr_pick_slip_number.print_pick_slip(
604: p_pick_slip_number => l_pick_slip_number
607: , x_api_status => l_api_return_status
608: , x_error_message => l_api_error_msg
609: );
610:
611: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
612: ROLLBACK TO process_line_pvt;
613: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
614: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
615: fnd_msg_pub.ADD;
612: ROLLBACK TO process_line_pvt;
613: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
614: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
615: fnd_msg_pub.ADD;
616: RAISE fnd_api.g_exc_unexpected_error;
617: END IF;
618: END IF;
619: END IF;
620: END LOOP;
619: END IF;
620: END LOOP;
621: END IF; -- p_move_ordeR_header <> -1
622: EXCEPTION
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO Assign_pick_slip;
625: --
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: --
622: EXCEPTION
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO Assign_pick_slip;
625: --
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: --
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
629: , p_data => x_msg_data);
630: --
627: --
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
629: , p_data => x_msg_data);
630: --
631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
632: ROLLBACK TO Assign_pick_slip;
633: --
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: --
630: --
631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
632: ROLLBACK TO Assign_pick_slip;
633: --
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: --
636: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
637: , p_data => x_msg_data);
638: --
638: --
639: WHEN OTHERS THEN
640: ROLLBACK TO Assign_pick_slip;
641: --
642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
643: --
644: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
645: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
646: END IF;
946: l_counter NUMBER := 1 ;
947: honor_case_pick_count NUMBER := 0;
948: honor_case_pick VARCHAR2(1) := 'Y';
949: l_label_status VARCHAR2(500);
950: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
951: v_transaction_id INV_LABEL.transaction_id_rec_type;
952:
953: Cursor c_mmtt(p_move_order_line_id NUMBER)
954: IS SELECT transaction_temp_id
979:
980: SAVEPOINT Pick_Release_PUB;
981:
982: -- Standard Call to check for call compatibility
983: IF NOT fnd_api.Compatible_API_Call(l_api_version , p_api_version ,
984: l_api_name , G_PKG_NAME) THEN
985: If is_debug then
986: print_debug('Fnd_APi not compatible','INV_Pick_Release_Pub.Pick_Release');
987: End If;
982: -- Standard Call to check for call compatibility
983: IF NOT fnd_api.Compatible_API_Call(l_api_version , p_api_version ,
984: l_api_name , G_PKG_NAME) THEN
985: If is_debug then
986: print_debug('Fnd_APi not compatible','INV_Pick_Release_Pub.Pick_Release');
987: End If;
988: RAISE fnd_api.g_exc_unexpected_error;
989: END IF;
990:
984: l_api_name , G_PKG_NAME) THEN
985: If is_debug then
986: print_debug('Fnd_APi not compatible','INV_Pick_Release_Pub.Pick_Release');
987: End If;
988: RAISE fnd_api.g_exc_unexpected_error;
989: END IF;
990:
991: -- Initialize message list if p_init_msg_list is set to true
992: IF fnd_api.to_Boolean(p_init_msg_list) THEN
988: RAISE fnd_api.g_exc_unexpected_error;
989: END IF;
990:
991: -- Initialize message list if p_init_msg_list is set to true
992: IF fnd_api.to_Boolean(p_init_msg_list) THEN
993: fnd_msg_pub.initialize;
994: END IF;
995:
996: -- Initialize API return status to success
993: fnd_msg_pub.initialize;
994: END IF;
995:
996: -- Initialize API return status to success
997: x_return_status := fnd_api.g_ret_sts_success;
998:
999:
1000: -- Validate parameters
1001:
1009:
1010: ROLLBACK TO Pick_Release_PUB;
1011: FND_MESSAGE.SET_NAME('INV','INV_NO_LINES_TO_PICK');
1012: FND_MSG_PUB.Add;
1013: RAISE fnd_api.g_exc_unexpected_error;
1014: END IF;
1015:
1016: -- Set move order transaction date if passed in as not NULL
1017: IF p_mo_transact_date <> fnd_api.g_miss_date THEN
1013: RAISE fnd_api.g_exc_unexpected_error;
1014: END IF;
1015:
1016: -- Set move order transaction date if passed in as not NULL
1017: IF p_mo_transact_date <> fnd_api.g_miss_date THEN
1018: inv_cache.mo_transaction_date := p_mo_transact_date;
1019: END IF;
1020:
1021: -- Validate that all move order lines are from the same org, that all lines
1038: END IF;
1039: end if;
1040:
1041: -- only process the valid move order, fix bug 1540709.
1042: IF (l_mo_line.return_status <> FND_API.G_RET_STS_UNEXP_ERROR and
1043: l_mo_line.return_status <> FND_API.G_RET_STS_ERROR) THEN
1044:
1045: -- Verify that the lines are all for the same organization
1046: IF l_mo_line.organization_id <> l_organization_id THEN
1039: end if;
1040:
1041: -- only process the valid move order, fix bug 1540709.
1042: IF (l_mo_line.return_status <> FND_API.G_RET_STS_UNEXP_ERROR and
1043: l_mo_line.return_status <> FND_API.G_RET_STS_ERROR) THEN
1044:
1045: -- Verify that the lines are all for the same organization
1046: IF l_mo_line.organization_id <> l_organization_id THEN
1047: If is_debug then
1051:
1052: ROLLBACK TO Pick_Release_PUB;
1053: FND_MESSAGE.SET_NAME('INV','INV_PICK_DIFFERENT_ORG');
1054: FND_MSG_PUB.Add;
1055: RAISE fnd_api.g_exc_unexpected_error;
1056: END IF;
1057:
1058: -- Verify that the line status is approved or pre-approved
1059: IF (l_mo_line.line_status <> 3 AND l_mo_line.line_status <> 7) THEN
1064:
1065: ROLLBACK TO Pick_Release_PUB;
1066: FND_MESSAGE.SET_NAME('INV','INV_PICK_LINE_STATUS');
1067: FND_MSG_PUB.Add;
1068: RAISE fnd_api.g_exc_unexpected_error;
1069: END IF;
1070:
1071: IF l_mo_line.header_id <> l_current_header_id OR
1072: l_current_header_id IS NULL THEN
1075: If is_debug then
1076: print_debug('Error setting cache for move order header ',
1077: 'INV_Pick_Release_Pub.Pick_Release');
1078: End If;
1079: RAISE fnd_api.g_exc_unexpected_error;
1080: End If;
1081: l_mo_type := INV_CACHE.mtrh_rec.move_order_type;
1082: l_mo_number := INV_CACHE.mtrh_rec.request_number;
1083: l_current_header_id := l_mo_line.header_id;
1092: ROLLBACK TO Pick_Release_PUB;
1093: FND_MESSAGE.SET_NAME('INV','INV_NON_PICK_WAVE_MO');
1094: FND_MESSAGE.SET_TOKEN('MO_NUMBER',l_mo_number);
1095: FND_MSG_PUB.Add;
1096: RAISE fnd_api.g_exc_unexpected_error;
1097: END IF;
1098: l_mol_id_tbl(l_mol_id_index) := l_mo_line.line_id;
1099: l_mol_id_index := l_mol_id_index + 1;
1100: END IF;
1200: If is_debug then
1201: print_debug('No Item Info found',
1202: 'Inv_Pick_Release_Pub.Pick_Release');
1203: End If;
1204: RAISE fnd_api.g_exc_unexpected_error;
1205: END;
1206:
1207: IF l_revision_control_code = 1 THEN
1208: l_revision_controlled := FALSE;
1225: -- expired lots don't appear as available
1226: inv_quantity_tree_pvt.create_tree
1227: (
1228: p_api_version_number => 1.0
1229: ,p_init_msg_lst => fnd_api.g_false
1230: ,x_return_status => l_api_return_status
1231: ,x_msg_count => x_msg_count
1232: ,x_msg_data => x_msg_data
1233: ,p_organization_id => l_organization_id
1256: End If;
1257:
1258: l_qtree_item_tbl(l_item_index).tree_id := l_tree_id;
1259:
1260: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1261: RAISE fnd_api.g_exc_error ;
1262: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1263: RAISE fnd_api.g_exc_unexpected_error;
1264: END IF;
1257:
1258: l_qtree_item_tbl(l_item_index).tree_id := l_tree_id;
1259:
1260: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1261: RAISE fnd_api.g_exc_error ;
1262: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1263: RAISE fnd_api.g_exc_unexpected_error;
1264: END IF;
1265:
1258: l_qtree_item_tbl(l_item_index).tree_id := l_tree_id;
1259:
1260: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1261: RAISE fnd_api.g_exc_error ;
1262: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1263: RAISE fnd_api.g_exc_unexpected_error;
1264: END IF;
1265:
1266: --Bug 2500570.If unable to get delivery detail we should not
1259:
1260: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1261: RAISE fnd_api.g_exc_error ;
1262: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1263: RAISE fnd_api.g_exc_unexpected_error;
1264: END IF;
1265:
1266: --Bug 2500570.If unable to get delivery detail we should not
1267: --error for batch.
1289: End If;
1290: --ROLLBACK TO Pick_Release_PUB;
1291: --FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
1292: -- FND_MSG_PUB.Add;
1293: -- RAISE fnd_api.g_exc_unexpected_error;
1294: END;
1295:
1296: l_return_value := INV_CACHE.set_mso_rec(l_oe_header_id);
1297: IF NOT l_return_value THEN
1322:
1323: inv_quantity_tree_pvt.create_tree
1324: (
1325: p_api_version_number => 1.0
1326: ,p_init_msg_lst => fnd_api.g_false
1327: ,x_return_status => l_api_return_status
1328: ,x_msg_count => x_msg_count
1329: ,x_msg_data => x_msg_data
1330: ,p_organization_id => l_organization_id
1351: End If;
1352:
1353: l_qtree_line_tbl(l_qtree_line_index).tree_id := l_tree_id;
1354:
1355: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1356: If is_debug then
1357: print_debug('Error from Create tree',
1358: 'Inv_pick_release_pub.Pick_release');
1359: End If;
1356: If is_debug then
1357: print_debug('Error from Create tree',
1358: 'Inv_pick_release_pub.Pick_release');
1359: End If;
1360: RAISE fnd_api.g_exc_error ;
1361: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1362: If is_debug then
1363: print_debug('Unexpected error from Create tree',
1364: 'Inv_pick_release_pub.Pick_release');
1357: print_debug('Error from Create tree',
1358: 'Inv_pick_release_pub.Pick_release');
1359: End If;
1360: RAISE fnd_api.g_exc_error ;
1361: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1362: If is_debug then
1363: print_debug('Unexpected error from Create tree',
1364: 'Inv_pick_release_pub.Pick_release');
1365: End If;
1362: If is_debug then
1363: print_debug('Unexpected error from Create tree',
1364: 'Inv_pick_release_pub.Pick_release');
1365: End If;
1366: RAISE fnd_api.g_exc_unexpected_error;
1367: END IF;
1368:
1369: l_qtree_line_index :=
1370: l_qtree_line_tbl(l_qtree_line_index).next_line_rec;
1385: If is_debug then
1386: print_debug('Error setting cache for wms installed',
1387: 'INV_Pick_Release_Pub.Pick_Release');
1388: End If;
1389: RAISE fnd_api.g_exc_unexpected_error;
1390: End If;
1391: l_wms_installed := INV_CACHE.wms_installed;
1392: --sort only necessary if wms installed and multiple headers in the
1393: -- line_tbl
1404: End If;
1405: ROLLBACK TO Pick_Release_PUB;
1406: FND_MESSAGE.SET_NAME('INV','INV_AUTO_PICK_CONFIRM_PARAM');
1407: FND_MSG_PUB.Add;
1408: RAISE fnd_api.g_exc_unexpected_error;
1409: ELSE
1410: l_auto_pick_confirm := p_auto_pick_confirm;
1411: END IF;
1412: ELSE
1416: If is_debug then
1417: print_debug('Error setting cache for organization',
1418: 'INV_Pick_Release_Pub.Pick_Release');
1419: End If;
1420: RAISE fnd_api.g_exc_unexpected_error;
1421: End If;
1422: l_auto_pick_confirm:= INV_CACHE.org_rec.mo_pick_confirm_required;
1423: END IF;
1424:
1443: End If;
1444: ROLLBACK TO Pick_Release_PUB;
1445: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
1446: FND_MSG_PUB.Add;
1447: RAISE fnd_api.g_exc_unexpected_error;
1448: END;
1449:
1450: g_organization_id := l_organization_id;
1451: g_print_mode := l_print_mode;
1451: g_print_mode := l_print_mode;
1452: END IF;
1453:
1454: -- Validate parameter for allowing partial pick release
1455: IF p_allow_partial_pick <> fnd_api.g_true AND
1456: p_allow_partial_pick <> fnd_api.g_false THEN
1457:
1458: If is_debug then
1459: print_debug('Error: invalid partial pick parameter',
1452: END IF;
1453:
1454: -- Validate parameter for allowing partial pick release
1455: IF p_allow_partial_pick <> fnd_api.g_true AND
1456: p_allow_partial_pick <> fnd_api.g_false THEN
1457:
1458: If is_debug then
1459: print_debug('Error: invalid partial pick parameter',
1460: 'INV_Pick_Release_Pub.Pick_Release');
1461: End If;
1462: ROLLBACK TO Pick_Release_PUB;
1463: FND_MESSAGE.SET_NAME('INV','INV_INVALID_PARTIAL_PICK_PARAM');
1464: FND_MSG_PUB.Add;
1465: RAISE fnd_api.g_exc_unexpected_error;
1466: END IF;
1467:
1468: If is_debug then
1469: print_debug('p_allow_partial_pick is ' || p_allow_partial_pick,
1472:
1473: -- The Move Order Lines may need to have their grouping rule ID defaulted
1474: -- from the header. This is only necessary if the Grouping Rule ID was not
1475: -- passed in as a parameter.
1476: IF p_grouping_rule_id IS NOT NULL AND p_grouping_rule_id <> fnd_api.G_MISS_NUM THEN
1477: l_grouping_rule_id := p_grouping_rule_id;
1478: l_get_header_rule := 2;
1479: ELSE
1480: l_get_header_rule := 1;
1497: IF (is_debug) THEN
1498: print_debug('Error setting cache for WSH picking batch record',
1499: 'INV_Pick_Release_Pub.Pick_Release');
1500: END IF;
1501: RAISE fnd_api.g_exc_unexpected_error;
1502: END IF;
1503: -- Set the allocation method variable
1504: l_allocation_method := NVL(INV_CACHE.wpb_rec.allocation_method, g_inventory_only);
1505:
1512: IF (is_debug) THEN
1513: print_debug('Mismatch in size of input tables from Shipping for delivery creation',
1514: 'INV_Pick_Release_Pub.Pick_Release');
1515: END IF;
1516: RAISE fnd_api.g_exc_unexpected_error;
1517: END IF;
1518:
1519: -- Bug# 4258360: Loop through p_wsh_release_table to build the index pointer table to it.
1520: -- Do this only if p_wsh_release_table has entries in it. Crossdocking will be called after
1557: l_organization_id := l_mo_line.organization_id;
1558: LOOP
1559: l_mo_line := l_mo_line_tbl(l_line_index);
1560: -- only process the valid move order, fix bug 1540709.
1561: IF (l_mo_line.return_status <> FND_API.G_RET_STS_UNEXP_ERROR and
1562: l_mo_line.return_status <> FND_API.G_RET_STS_ERROR) THEN
1563: -- First retrieve the new Grouping Rule ID if necessary.
1564: IF l_get_header_rule = 1 THEN
1565: l_return_value := INV_CACHE.set_mtrh_rec(l_mo_line.header_id);
1558: LOOP
1559: l_mo_line := l_mo_line_tbl(l_line_index);
1560: -- only process the valid move order, fix bug 1540709.
1561: IF (l_mo_line.return_status <> FND_API.G_RET_STS_UNEXP_ERROR and
1562: l_mo_line.return_status <> FND_API.G_RET_STS_ERROR) THEN
1563: -- First retrieve the new Grouping Rule ID if necessary.
1564: IF l_get_header_rule = 1 THEN
1565: l_return_value := INV_CACHE.set_mtrh_rec(l_mo_line.header_id);
1566: If NOT l_return_value Then
1567: If is_debug then
1568: print_debug('Error setting cache for move order header ',
1569: 'INV_Pick_Release_Pub.Pick_Release');
1570: End If;
1571: RAISE fnd_api.g_exc_unexpected_error;
1572: End If;
1573: l_grouping_rule_id := INV_CACHE.mtrh_rec.grouping_rule_id;
1574:
1575: -- If the header did not have a grouping rule ID, retrieve it from
1595: End If;
1596: ROLLBACK TO Pick_Release_PUB;
1597: FND_MESSAGE.SET_NAME('INV','INV-NO ORG INFORMATION');
1598: FND_MSG_PUB.Add;
1599: RAISE fnd_api.g_exc_unexpected_error;
1600: END;
1601:
1602: If g_organization_id IS NULL Or
1603: g_organization_id <> l_organization_id Then
1641: l_mo_line.ship_model_id <>l_cur_ship_model_id then
1642: Backorder_SMC_DETAILS(l_api_return_status ,
1643: x_msg_data ,
1644: x_msg_count ) ;
1645: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1646: RAISE fnd_api.g_exc_error ;
1647: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: RAISE fnd_api.g_exc_unexpected_error;
1649: END IF;
1642: Backorder_SMC_DETAILS(l_api_return_status ,
1643: x_msg_data ,
1644: x_msg_count ) ;
1645: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1646: RAISE fnd_api.g_exc_error ;
1647: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: RAISE fnd_api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1643: x_msg_data ,
1644: x_msg_count ) ;
1645: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1646: RAISE fnd_api.g_exc_error ;
1647: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: RAISE fnd_api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1651:
1644: x_msg_count ) ;
1645: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1646: RAISE fnd_api.g_exc_error ;
1647: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: RAISE fnd_api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1651:
1652: IF l_mo_line.ship_model_id IS NOT NULL AND
1697: ,p_tree_id => l_tree_id
1698: ,x_backup_id => l_backup_id
1699: );
1700:
1701: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1702: RAISE fnd_api.g_exc_error ;
1703: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1704: RAISE fnd_api.g_exc_unexpected_error;
1705: END IF;
1698: ,x_backup_id => l_backup_id
1699: );
1700:
1701: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1702: RAISE fnd_api.g_exc_error ;
1703: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1704: RAISE fnd_api.g_exc_unexpected_error;
1705: END IF;
1706: End If;
1699: );
1700:
1701: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1702: RAISE fnd_api.g_exc_error ;
1703: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1704: RAISE fnd_api.g_exc_unexpected_error;
1705: END IF;
1706: End If;
1707:
1700:
1701: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1702: RAISE fnd_api.g_exc_error ;
1703: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1704: RAISE fnd_api.g_exc_unexpected_error;
1705: END IF;
1706: End If;
1707:
1708: --Bug 2814919
1739: End If;
1740:
1741: INV_Pick_Release_PVT.Process_Line(
1742: p_api_version => 1.0
1743: ,p_init_msg_list => fnd_api.g_false
1744: ,p_commit => fnd_api.g_false
1745: ,x_return_status => l_api_return_status
1746: ,x_msg_count => x_msg_count
1747: ,x_msg_data => x_msg_data
1740:
1741: INV_Pick_Release_PVT.Process_Line(
1742: p_api_version => 1.0
1743: ,p_init_msg_list => fnd_api.g_false
1744: ,p_commit => fnd_api.g_false
1745: ,x_return_status => l_api_return_status
1746: ,x_msg_count => x_msg_count
1747: ,x_msg_data => x_msg_data
1748: ,p_mo_line_rec => l_mo_line
1757: print_debug('l_return_status from process_line is '
1758: || l_api_return_status, 'Inv_Pick_Release_Pub.Pick_Release');
1759: End If;
1760:
1761: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1762: -- Return error if Process_Line returns error and
1763: -- allow_partial_pick is false, since we can't pick full quantity
1764: IF p_allow_partial_pick = fnd_api.g_false THEN
1765: x_pick_release_status.delete;
1760:
1761: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1762: -- Return error if Process_Line returns error and
1763: -- allow_partial_pick is false, since we can't pick full quantity
1764: IF p_allow_partial_pick = fnd_api.g_false THEN
1765: x_pick_release_status.delete;
1766: ROLLBACK TO Pick_Release_PUB;
1767: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_PICK_FULL');
1768: FND_MSG_PUB.Add;
1765: x_pick_release_status.delete;
1766: ROLLBACK TO Pick_Release_PUB;
1767: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_PICK_FULL');
1768: FND_MSG_PUB.Add;
1769: RAISE fnd_api.g_exc_unexpected_error;
1770: END IF;
1771: END IF;
1772:
1773: l_quantity := l_mo_line.quantity;
1838:
1839: wsh_integration.ins_backorder_ss_smc_rec
1840: (p_api_version_number => 1.0,
1841: p_source_code => 'INV',
1842: p_init_msg_list => fnd_api.g_false,
1843: p_backorder_rec => l_shipset_smc_backorder_rec,
1844: x_return_status => l_api_return_status,
1845: x_msg_count => x_msg_count,
1846: x_msg_data => x_msg_data);
1844: x_return_status => l_api_return_status,
1845: x_msg_count => x_msg_count,
1846: x_msg_data => x_msg_data);
1847:
1848: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1849: If is_debug then
1850: print_debug('Error occured while updating shipping for ' ||
1851: 'failed ship set','Inv_Pick_Release_Pub.Pick_Release');
1852: print_debug('l_return_status' || l_api_return_status,
1906: ,p_tree_id => l_tree_id
1907: ,p_backup_id => l_qtree_backup_tbl(l_tree_id)
1908: );
1909:
1910: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
1911: If is_debug then
1912: print_debug('Error in Restore_Tree',
1913: 'Inv_Pick_Release_Pub.Pick_Release');
1914: End If;
1911: If is_debug then
1912: print_debug('Error in Restore_Tree',
1913: 'Inv_Pick_Release_Pub.Pick_Release');
1914: End If;
1915: raise FND_API.G_EXC_ERROR;
1916: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
1917: If is_debug then
1918: print_debug('Unexpected error in Restore_tree',
1919: 'Inv_Pick_Release_Pub.Pick_Release');
1912: print_debug('Error in Restore_Tree',
1913: 'Inv_Pick_Release_Pub.Pick_Release');
1914: End If;
1915: raise FND_API.G_EXC_ERROR;
1916: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
1917: If is_debug then
1918: print_debug('Unexpected error in Restore_tree',
1919: 'Inv_Pick_Release_Pub.Pick_Release');
1920: End If;
1917: If is_debug then
1918: print_debug('Unexpected error in Restore_tree',
1919: 'Inv_Pick_Release_Pub.Pick_Release');
1920: End If;
1921: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1922: end if;
1923:
1924: --delete entry, so we don't restore tree more than once
1925: l_qtree_backup_tbl.DELETE(l_tree_id);
1936: If is_debug then
1937: print_debug('Error setting cache for delivery line',
1938: 'INV_Pick_Release_Pub.Pick_Release');
1939: End If;
1940: RAISE fnd_api.g_exc_unexpected_error;
1941: End If;
1942: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
1943: l_source_header_id := INV_CACHE.wdd_rec.source_header_id;
1944: l_source_line_id := INV_CACHE.wdd_rec.source_line_id;
1963: (p_source_code => 'INV',
1964: p_changed_attributes => l_shipping_attr,
1965: x_return_status => l_api_return_status
1966: );
1967: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
1968: If is_debug then
1969: print_debug('return error from update shipping attributes',
1970: 'Inv_Pick_Release_Pub.Pick_Release');
1971: End If;
1968: If is_debug then
1969: print_debug('return error from update shipping attributes',
1970: 'Inv_Pick_Release_Pub.Pick_Release');
1971: End If;
1972: raise FND_API.G_EXC_ERROR;
1973: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1974: If is_debug then
1975: print_debug('return error from update shipping attributes',
1976: 'Inv_Pick_Release_Pub.Pick_Release');
1969: print_debug('return error from update shipping attributes',
1970: 'Inv_Pick_Release_Pub.Pick_Release');
1971: End If;
1972: raise FND_API.G_EXC_ERROR;
1973: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1974: If is_debug then
1975: print_debug('return error from update shipping attributes',
1976: 'Inv_Pick_Release_Pub.Pick_Release');
1977: End If;
1974: If is_debug then
1975: print_debug('return error from update shipping attributes',
1976: 'Inv_Pick_Release_Pub.Pick_Release');
1977: End If;
1978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1979: end if;
1980:
1981: --close the move order line
1982: -- HW INVCONV Update Qty2
1982: -- HW INVCONV Update Qty2
1983: update mtl_txn_request_lines
1984: set quantity = 0
1985: ,quantity_detailed = 0
1986: ,secondary_quantity = decode(secondary_quantity,fnd_api.g_miss_num, NULL, 0)
1987: ,secondary_quantity_detailed = decode(secondary_quantity_detailed,fnd_api.g_miss_num, NULL, 0)
1988: ,line_status = 5
1989: where line_id = l_mo_line.line_id;
1990:
1983: update mtl_txn_request_lines
1984: set quantity = 0
1985: ,quantity_detailed = 0
1986: ,secondary_quantity = decode(secondary_quantity,fnd_api.g_miss_num, NULL, 0)
1987: ,secondary_quantity_detailed = decode(secondary_quantity_detailed,fnd_api.g_miss_num, NULL, 0)
1988: ,line_status = 5
1989: where line_id = l_mo_line.line_id;
1990:
1991: -- Exit if there are no more move order lines to detail
2059:
2060: wsh_integration.ins_backorder_ss_smc_rec
2061: (p_api_version_number => 1.0,
2062: p_source_code => 'INV',
2063: p_init_msg_list => fnd_api.g_false,
2064: p_backorder_rec => l_shipset_smc_backorder_rec,
2065: x_return_status => l_api_return_status,
2066: x_msg_count => x_msg_count,
2067: x_msg_data => x_msg_data);
2065: x_return_status => l_api_return_status,
2066: x_msg_count => x_msg_count,
2067: x_msg_data => x_msg_data);
2068:
2069: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2070: If is_debug then
2071: print_debug('Error occured while updating shipping for ' ||
2072: 'failed ship set',
2073: 'Inv_Pick_Release_Pub.Pick_Release');
2116: End If;
2117: ROLLBACK TO Pick_Release_PUB;
2118: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2119: FND_MSG_PUB.Add;
2120: RAISE fnd_api.g_exc_unexpected_error;
2121: END;
2122:
2123: -- convert to primary UOM
2124: IF l_txn_source_line_uom <>
2186: (x_return_status => l_api_return_status
2187: ,p_tree_id => l_tree_id
2188: ,p_backup_id => l_qtree_backup_tbl(l_tree_id)
2189: );
2190: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2191: If is_debug then
2192: print_debug('Error in Restore_Tree',
2193: 'Inv_Pick_Release_Pub.Pick_Release');
2194: End If;
2191: If is_debug then
2192: print_debug('Error in Restore_Tree',
2193: 'Inv_Pick_Release_Pub.Pick_Release');
2194: End If;
2195: raise FND_API.G_EXC_ERROR;
2196: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
2197: If is_debug then
2198: print_debug('Unexpected error in Restore_tree',
2199: 'Inv_Pick_Release_Pub.Pick_Release');
2192: print_debug('Error in Restore_Tree',
2193: 'Inv_Pick_Release_Pub.Pick_Release');
2194: End If;
2195: raise FND_API.G_EXC_ERROR;
2196: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
2197: If is_debug then
2198: print_debug('Unexpected error in Restore_tree',
2199: 'Inv_Pick_Release_Pub.Pick_Release');
2200: End If;
2197: If is_debug then
2198: print_debug('Unexpected error in Restore_tree',
2199: 'Inv_Pick_Release_Pub.Pick_Release');
2200: End If;
2201: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2202: end if;
2203:
2204: --delete entry, so we don't restore tree more than once
2205: l_qtree_backup_tbl.DELETE(l_tree_id);
2237: End If;
2238: ROLLBACK TO Pick_Release_PUB;
2239: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2240: FND_MSG_PUB.Add;
2241: RAISE fnd_api.g_exc_unexpected_error;
2242: END;
2243:
2244: --convert to primary quantity
2245: if l_txn_source_line_uom <>
2291: If is_debug then
2292: print_debug('Error setting cache for delivery line',
2293: 'INV_Pick_Release_Pub.Pick_Release');
2294: End If;
2295: RAISE fnd_api.g_exc_unexpected_error;
2296: End If;
2297: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2298: l_source_header_id := INV_CACHE.wdd_rec.source_header_id;
2299: l_source_line_id := INV_CACHE.wdd_rec.source_line_id;
2319: -- and do only once.
2320:
2321: Store_smc_bo_details(x_return_status => l_api_return_status,
2322: back_order_det_tbl =>l_smc_backorder_det_tbl);
2323: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2324: If is_debug then
2325: print_debug(' return error E from Store_smc_bo_details',
2326: 'Inv_Pick_Release_Pub.Pick_Release');
2327: End If;
2325: print_debug(' return error E from Store_smc_bo_details',
2326: 'Inv_Pick_Release_Pub.Pick_Release');
2327: End If;
2328: l_smc_backorder_det_tbl.DELETE;
2329: raise FND_API.G_EXC_ERROR;
2330: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2331: If is_debug then
2332: print_debug(' return error U from Store_smc_bo_details',
2333: 'Inv_Pick_Release_Pub.Pick_Release');
2326: 'Inv_Pick_Release_Pub.Pick_Release');
2327: End If;
2328: l_smc_backorder_det_tbl.DELETE;
2329: raise FND_API.G_EXC_ERROR;
2330: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2331: If is_debug then
2332: print_debug(' return error U from Store_smc_bo_details',
2333: 'Inv_Pick_Release_Pub.Pick_Release');
2334: End If;
2332: print_debug(' return error U from Store_smc_bo_details',
2333: 'Inv_Pick_Release_Pub.Pick_Release');
2334: End If;
2335: l_smc_backorder_det_tbl.DELETE;
2336: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2337: end if;
2338:
2339: l_smc_backorder_det_tbl.DELETE;
2340:
2446: Backorder_SMC_DETAILS(l_api_return_status ,
2447: x_msg_data ,
2448: x_msg_count
2449: );
2450: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2451: If is_debug then
2452: print_debug('return error E from Backorder_SMC_DETAILS',
2453: 'Inv_Pick_Release_Pub.Pick_Release');
2454: End If;
2451: If is_debug then
2452: print_debug('return error E from Backorder_SMC_DETAILS',
2453: 'Inv_Pick_Release_Pub.Pick_Release');
2454: End If;
2455: raise FND_API.G_EXC_ERROR;
2456: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2457: If is_debug then
2458: print_debug('return error U from Backorder_SMC_DETAILS',
2459: 'Inv_Pick_Release_Pub.Pick_Release');
2452: print_debug('return error E from Backorder_SMC_DETAILS',
2453: 'Inv_Pick_Release_Pub.Pick_Release');
2454: End If;
2455: raise FND_API.G_EXC_ERROR;
2456: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2457: If is_debug then
2458: print_debug('return error U from Backorder_SMC_DETAILS',
2459: 'Inv_Pick_Release_Pub.Pick_Release');
2460: End If;
2457: If is_debug then
2458: print_debug('return error U from Backorder_SMC_DETAILS',
2459: 'Inv_Pick_Release_Pub.Pick_Release');
2460: End If;
2461: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2462: end if;
2463:
2464: ELSE
2465:
2483: IF (is_debug) THEN
2484: print_debug('Error setting cache for delivery line',
2485: 'INV_Pick_Release_Pub.Pick_Release');
2486: END IF;
2487: RAISE fnd_api.g_exc_unexpected_error;
2488: END IF;
2489: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2490: l_source_header_id := INV_CACHE.wdd_rec.source_header_id;
2491: l_source_line_id := INV_CACHE.wdd_rec.source_line_id;
2545: -- When calling the Shipping package WSH_INTERFACE_EXT_GRP instead of
2546: -- WSH_INTERFACE_GRP, we have to pass a G_MISS_NUM value instead of NULL
2547: -- in order to properly NULL out the move_order_line_id value.
2548:
2549: l_detail_info_tab(1).move_order_line_id := fnd_api.g_miss_num;
2550:
2551: -- Caller needs to be WMS_XDOCK% in order for shipping to allow this action
2552: l_in_rec.caller := 'WMS_XDOCK.INVPPICB';
2553: l_in_rec.action_code := 'UPDATE';
2555: END IF;
2556:
2557: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
2558: (p_api_version_number => 1.0,
2559: p_init_msg_list => fnd_api.g_false,
2560: p_commit => fnd_api.g_false,
2561: x_return_status => l_api_return_status,
2562: x_msg_count => x_msg_count,
2563: x_msg_data => x_msg_data,
2556:
2557: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
2558: (p_api_version_number => 1.0,
2559: p_init_msg_list => fnd_api.g_false,
2560: p_commit => fnd_api.g_false,
2561: x_return_status => l_api_return_status,
2562: x_msg_count => x_msg_count,
2563: x_msg_data => x_msg_data,
2564: p_detail_info_tab => l_detail_info_tab,
2565: p_in_rec => l_in_rec,
2566: x_out_rec => l_out_rec
2567: );
2568:
2569: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2570: IF (is_debug) THEN
2571: print_debug('Error returned from Create_Update_Delivery_Detail API',
2572: 'Inv_Pick_Release_Pub.Pick_Release');
2573: END IF;
2570: IF (is_debug) THEN
2571: print_debug('Error returned from Create_Update_Delivery_Detail API',
2572: 'Inv_Pick_Release_Pub.Pick_Release');
2573: END IF;
2574: RAISE FND_API.G_EXC_ERROR;
2575: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2576: IF (is_debug) THEN
2577: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2578: 'Inv_Pick_Release_Pub.Pick_Release');
2571: print_debug('Error returned from Create_Update_Delivery_Detail API',
2572: 'Inv_Pick_Release_Pub.Pick_Release');
2573: END IF;
2574: RAISE FND_API.G_EXC_ERROR;
2575: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2576: IF (is_debug) THEN
2577: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2578: 'Inv_Pick_Release_Pub.Pick_Release');
2579: END IF;
2576: IF (is_debug) THEN
2577: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2578: 'Inv_Pick_Release_Pub.Pick_Release');
2579: END IF;
2580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2581: END IF;
2582:
2583: ELSE -- means (l_transaction_quantity <> 0)
2584: -- Move order line is partially allocated
2595: (l_quantity2 - NVL(l_quantity2_delivered,0)) - l_transaction_quantity2;
2596:
2597: WSH_INTERFACE_GRP.Delivery_Detail_Action
2598: (p_api_version_number => 1.0,
2599: p_init_msg_list => fnd_api.g_false,
2600: p_commit => fnd_api.g_false,
2601: x_return_status => l_api_return_status,
2602: x_msg_count => x_msg_count,
2603: x_msg_data => x_msg_data,
2596:
2597: WSH_INTERFACE_GRP.Delivery_Detail_Action
2598: (p_api_version_number => 1.0,
2599: p_init_msg_list => fnd_api.g_false,
2600: p_commit => fnd_api.g_false,
2601: x_return_status => l_api_return_status,
2602: x_msg_count => x_msg_count,
2603: x_msg_data => x_msg_data,
2604: p_detail_id_tab => l_detail_id_tab,
2605: p_action_prms => l_action_prms,
2606: x_action_out_rec => l_action_out_rec
2607: );
2608:
2609: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2610: IF (is_debug) THEN
2611: print_debug('Error returned from Split Delivery_Detail_Action API',
2612: 'Inv_Pick_Release_Pub.Pick_Release');
2613: END IF;
2610: IF (is_debug) THEN
2611: print_debug('Error returned from Split Delivery_Detail_Action API',
2612: 'Inv_Pick_Release_Pub.Pick_Release');
2613: END IF;
2614: RAISE FND_API.G_EXC_ERROR;
2615: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2616: IF (is_debug) THEN
2617: print_debug('Unexpected errror from Split Delivery_Detail_Action API',
2618: 'Inv_Pick_Release_Pub.Pick_Release');
2611: print_debug('Error returned from Split Delivery_Detail_Action API',
2612: 'Inv_Pick_Release_Pub.Pick_Release');
2613: END IF;
2614: RAISE FND_API.G_EXC_ERROR;
2615: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2616: IF (is_debug) THEN
2617: print_debug('Unexpected errror from Split Delivery_Detail_Action API',
2618: 'Inv_Pick_Release_Pub.Pick_Release');
2619: END IF;
2616: IF (is_debug) THEN
2617: print_debug('Unexpected errror from Split Delivery_Detail_Action API',
2618: 'Inv_Pick_Release_Pub.Pick_Release');
2619: END IF;
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: END IF;
2622:
2623: l_xdock_index := l_action_out_rec.result_id_tab.FIRST;
2624: l_split_delivery_detail_id := l_action_out_rec.result_id_tab(l_xdock_index);
2632: -- When calling the Shipping package WSH_INTERFACE_EXT_GRP instead of
2633: -- WSH_INTERFACE_GRP, we have to pass a G_MISS_NUM value instead of NULL
2634: -- in order to properly NULL out the move_order_line_id value.
2635: --l_detail_info_tab(1).move_order_line_id := NULL;
2636: l_detail_info_tab(1).move_order_line_id := fnd_api.g_miss_num;
2637:
2638:
2639: IF NVL(p_dynamic_replenishment,'N') = 'Y' THEN
2640: IF (is_debug) THEN
2652: l_in_rec.action_code := 'UPDATE';
2653:
2654: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
2655: (p_api_version_number => 1.0,
2656: p_init_msg_list => fnd_api.g_false,
2657: p_commit => fnd_api.g_false,
2658: x_return_status => l_api_return_status,
2659: x_msg_count => x_msg_count,
2660: x_msg_data => x_msg_data,
2653:
2654: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
2655: (p_api_version_number => 1.0,
2656: p_init_msg_list => fnd_api.g_false,
2657: p_commit => fnd_api.g_false,
2658: x_return_status => l_api_return_status,
2659: x_msg_count => x_msg_count,
2660: x_msg_data => x_msg_data,
2661: p_detail_info_tab => l_detail_info_tab,
2662: p_in_rec => l_in_rec,
2663: x_out_rec => l_out_rec
2664: );
2665:
2666: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2667: IF (is_debug) THEN
2668: print_debug('Error returned from Create_Update_Delivery_Detail API',
2669: 'Inv_Pick_Release_Pub.Pick_Release');
2670: END IF;
2667: IF (is_debug) THEN
2668: print_debug('Error returned from Create_Update_Delivery_Detail API',
2669: 'Inv_Pick_Release_Pub.Pick_Release');
2670: END IF;
2671: RAISE FND_API.G_EXC_ERROR;
2672: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2673: IF (is_debug) THEN
2674: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2675: 'Inv_Pick_Release_Pub.Pick_Release');
2668: print_debug('Error returned from Create_Update_Delivery_Detail API',
2669: 'Inv_Pick_Release_Pub.Pick_Release');
2670: END IF;
2671: RAISE FND_API.G_EXC_ERROR;
2672: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2673: IF (is_debug) THEN
2674: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2675: 'Inv_Pick_Release_Pub.Pick_Release');
2676: END IF;
2673: IF (is_debug) THEN
2674: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2675: 'Inv_Pick_Release_Pub.Pick_Release');
2676: END IF;
2677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2678: END IF;
2679:
2680: -- Insert the split WDD line into p_wsh_release_table.
2681: -- The split WDD release record should be the same as the original one with
2753: (p_source_code => 'INV',
2754: p_changed_attributes => l_shipping_attr,
2755: x_return_status => l_api_return_status
2756: );
2757: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2758: IF is_debug THEN
2759: print_debug('return error from update shipping attributes',
2760: 'Inv_Pick_Release_Pub.Pick_Release');
2761: END IF;
2758: IF is_debug THEN
2759: print_debug('return error from update shipping attributes',
2760: 'Inv_Pick_Release_Pub.Pick_Release');
2761: END IF;
2762: RAISE FND_API.G_EXC_ERROR;
2763: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2764: IF is_debug THEN
2765: print_debug('return error from update shipping attributes',
2766: 'Inv_Pick_Release_Pub.Pick_Release');
2759: print_debug('return error from update shipping attributes',
2760: 'Inv_Pick_Release_Pub.Pick_Release');
2761: END IF;
2762: RAISE FND_API.G_EXC_ERROR;
2763: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2764: IF is_debug THEN
2765: print_debug('return error from update shipping attributes',
2766: 'Inv_Pick_Release_Pub.Pick_Release');
2767: END IF;
2764: IF is_debug THEN
2765: print_debug('return error from update shipping attributes',
2766: 'Inv_Pick_Release_Pub.Pick_Release');
2767: END IF;
2768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2769: END IF;
2770: END IF; -- for IF (l_allocation_method = g_prioritize_inventory) AND (p_wsh...
2771:
2772: -- HW INVCONV Added secondary_quantity
2776: -- Close the move order line created since no quantity was allocated
2777: UPDATE mtl_txn_request_lines
2778: SET line_status = 5,
2779: quantity = l_transaction_quantity,
2780: secondary_quantity = DECODE(secondary_quantity, fnd_api.g_miss_num, NULL,
2781: l_transaction_quantity2)
2782: WHERE line_id = l_mo_line.line_id;
2783:
2784: -- Bug# 4258360: For allocation modes of I (Inventory Only) or
2799: ELSE
2800: -- Update the move order line to the partial quantity that was allocated
2801: UPDATE mtl_txn_request_lines
2802: SET quantity = l_transaction_quantity,
2803: secondary_quantity = DECODE(secondary_quantity, fnd_api.g_miss_num, NULL,
2804: l_transaction_quantity2)
2805: WHERE line_id = l_mo_line.line_id;
2806: END IF;
2807:
2822: IF (is_debug) THEN
2823: print_debug('Error setting cache for WDD delivery line',
2824: 'INV_Pick_Release_Pub.Pick_Release');
2825: END IF;
2826: RAISE fnd_api.g_exc_unexpected_error;
2827: END IF;
2828: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2829:
2830: -- Update WDD record in release table with a released status of 'S'
2865: END IF;
2866: l_detail_rec_count := 0;
2867: --Update the Pick Release API's return status to an error if the line could
2868: -- not be processed. Note that processing of other lines will continue.
2869: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2870: l_api_return_status = fnd_api.g_ret_sts_error THEN
2871: x_return_status := fnd_api.g_ret_sts_error;
2872: END IF;
2873: END IF; -- mo line return status <> ERROR
2866: l_detail_rec_count := 0;
2867: --Update the Pick Release API's return status to an error if the line could
2868: -- not be processed. Note that processing of other lines will continue.
2869: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2870: l_api_return_status = fnd_api.g_ret_sts_error THEN
2871: x_return_status := fnd_api.g_ret_sts_error;
2872: END IF;
2873: END IF; -- mo line return status <> ERROR
2874:
2867: --Update the Pick Release API's return status to an error if the line could
2868: -- not be processed. Note that processing of other lines will continue.
2869: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2870: l_api_return_status = fnd_api.g_ret_sts_error THEN
2871: x_return_status := fnd_api.g_ret_sts_error;
2872: END IF;
2873: END IF; -- mo line return status <> ERROR
2874:
2875: -- Bug 2776309
2911: IF is_debug THEN
2912: print_debug('Error in Deleting Move Order Lines: ' || sqlerrm
2913: ,'Inv_Pick_Release_Pub.Pick_Release');
2914: END IF;
2915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2916: END;
2917:
2918: IF l_wms_installed THEN
2919: -- 09/14/2000 added call to cartonization api
2953:
2954: WMS_CARTNZN_PUB.cartonize
2955: (
2956: p_api_version => 1,
2957: p_init_msg_list => fnd_api.g_false,
2958: p_commit => fnd_api.g_false,
2959: p_validation_level => fnd_api.g_valid_level_full,
2960: x_return_status => l_api_return_status,
2961: x_msg_count => x_msg_count,
2954: WMS_CARTNZN_PUB.cartonize
2955: (
2956: p_api_version => 1,
2957: p_init_msg_list => fnd_api.g_false,
2958: p_commit => fnd_api.g_false,
2959: p_validation_level => fnd_api.g_valid_level_full,
2960: x_return_status => l_api_return_status,
2961: x_msg_count => x_msg_count,
2962: x_msg_data => x_msg_data,
2955: (
2956: p_api_version => 1,
2957: p_init_msg_list => fnd_api.g_false,
2958: p_commit => fnd_api.g_false,
2959: p_validation_level => fnd_api.g_valid_level_full,
2960: x_return_status => l_api_return_status,
2961: x_msg_count => x_msg_count,
2962: x_msg_data => x_msg_data,
2963: p_out_bound => 'Y',
2964: p_org_id => l_mo_line_tbl(l_line_index).organization_id,
2965: p_move_order_header_id => l_mo_line_tbl(l_line_index).header_id
2966: );
2967:
2968: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2969: l_api_return_status = fnd_api.g_ret_sts_error THEN
2970: If is_debug then
2971: print_debug('error from cartonize api',
2972: 'Inv_Pick_Release_Pub.Pick_Release');
2965: p_move_order_header_id => l_mo_line_tbl(l_line_index).header_id
2966: );
2967:
2968: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2969: l_api_return_status = fnd_api.g_ret_sts_error THEN
2970: If is_debug then
2971: print_debug('error from cartonize api',
2972: 'Inv_Pick_Release_Pub.Pick_Release');
2973: print_debug('error count ' || x_msg_count,
2973: print_debug('error count ' || x_msg_count,
2974: 'Inv_Pick_Release_Pub.Pick_Release');
2975: print_debug('error msg ' || x_msg_data,
2976: 'Inv_Pick_Release_Pub.Pick_Release');
2977: x_return_status := fnd_api.g_ret_sts_error;
2978: End If;
2979: ELSE -- patchset J bulk picking
2980: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
2981: IF (is_debug) THEN
2990: p_ps_mode => l_print_mode,
2991: p_grouping_rule_id => p_grouping_rule_id,
2992: p_allow_partial_pick => p_allow_partial_pick);
2993:
2994: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2995: l_api_return_status = fnd_api.g_ret_sts_error THEN
2996: print_debug('error from assign_pick_slip_number api',
2997: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2991: p_grouping_rule_id => p_grouping_rule_id,
2992: p_allow_partial_pick => p_allow_partial_pick);
2993:
2994: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2995: l_api_return_status = fnd_api.g_ret_sts_error THEN
2996: print_debug('error from assign_pick_slip_number api',
2997: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2999: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2999: 'Inv_Pick_Release_Pub.Pick_Release');
3000: print_debug('error msg ' || x_msg_data,
3001: 'Inv_Pick_Release_Pub.Pick_Release');
3002: x_return_status := fnd_api.g_ret_sts_error;
3003: END IF;
3004: IF (is_debug) THEN
3005: print_debug('PATCHSET J -- BULK PICKING --- END',
3006: 'Inv_Pick_Release_Pub.Pick_Release');
3021:
3022: WMS_CARTNZN_PUB.cartonize
3023: (
3024: p_api_version => 1,
3025: p_init_msg_list => fnd_api.g_false,
3026: p_commit => fnd_api.g_false,
3027: p_validation_level => fnd_api.g_valid_level_full,
3028: x_return_status => l_api_return_status,
3029: x_msg_count => x_msg_count,
3022: WMS_CARTNZN_PUB.cartonize
3023: (
3024: p_api_version => 1,
3025: p_init_msg_list => fnd_api.g_false,
3026: p_commit => fnd_api.g_false,
3027: p_validation_level => fnd_api.g_valid_level_full,
3028: x_return_status => l_api_return_status,
3029: x_msg_count => x_msg_count,
3030: x_msg_data => x_msg_data,
3023: (
3024: p_api_version => 1,
3025: p_init_msg_list => fnd_api.g_false,
3026: p_commit => fnd_api.g_false,
3027: p_validation_level => fnd_api.g_valid_level_full,
3028: x_return_status => l_api_return_status,
3029: x_msg_count => x_msg_count,
3030: x_msg_data => x_msg_data,
3031: p_out_bound => 'Y',
3032: p_org_id => l_mo_line_tbl(l_line_index).organization_id,
3033: p_move_order_header_id => l_mo_line_tbl(l_line_index).header_id
3034: );
3035:
3036: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3037: l_api_return_status = fnd_api.g_ret_sts_error THEN
3038: If is_debug then
3039: print_debug('error from cartonize api',
3040: 'Inv_Pick_Release_Pub.Pick_Release');
3033: p_move_order_header_id => l_mo_line_tbl(l_line_index).header_id
3034: );
3035:
3036: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3037: l_api_return_status = fnd_api.g_ret_sts_error THEN
3038: If is_debug then
3039: print_debug('error from cartonize api',
3040: 'Inv_Pick_Release_Pub.Pick_Release');
3041: print_debug('error count ' || x_msg_count,
3042: 'Inv_Pick_Release_Pub.Pick_Release');
3043: print_debug('error msg ' || x_msg_data,
3044: 'Inv_Pick_Release_Pub.Pick_Release');
3045: End If;
3046: x_return_status := fnd_api.g_ret_sts_error;
3047: ELSE -- patchset J bulk picking
3048: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
3049: IF (is_debug) THEN
3050: print_debug('PATCHSET J -- BULK PICKING --- START',
3061: p_ps_mode => l_print_mode,
3062: p_grouping_rule_id => p_grouping_rule_id,
3063: p_allow_partial_pick => p_allow_partial_pick);
3064:
3065: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3066: l_api_return_status = fnd_api.g_ret_sts_error THEN
3067: print_debug('error from assign_pick_slip_number api',
3068: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3062: p_grouping_rule_id => p_grouping_rule_id,
3063: p_allow_partial_pick => p_allow_partial_pick);
3064:
3065: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3066: l_api_return_status = fnd_api.g_ret_sts_error THEN
3067: print_debug('error from assign_pick_slip_number api',
3068: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3070: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3070: 'Inv_Pick_Release_Pub.Pick_Release');
3071: print_debug('error msg ' || x_msg_data,
3072: 'Inv_Pick_Release_Pub.Pick_Release');
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: END IF;
3075: IF (is_debug) THEN
3076: print_debug('PATCHSET J -- BULK PICKING --- END',
3077: 'Inv_Pick_Release_Pub.Pick_Release');
3141: END IF;
3142: END LOOP;
3143:
3144: IF l_counter > 1 THEN
3145: l_return_status := fnd_api.g_ret_sts_success;
3146:
3147: inv_label.print_label (
3148: x_return_status => l_return_status
3149: , x_msg_count => x_msg_count
3153: , p_print_mode => 1
3154: , p_business_flow_code => 42 --Business Flow Pick Release
3155: , p_transaction_id => v_transaction_id);
3156:
3157: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
3158: IF (l_debug = 1) THEN
3159: print_debug('failed to print labels', 'Inv_Pick_Release_Pub.Pick_Release');
3160: END IF;
3161: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
3206: --2509322
3207: backorder_smc_details(l_api_return_status,
3208: x_msg_data,
3209: x_msg_count);
3210: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
3211: RAISE fnd_api.g_exc_error;
3212: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
3213: RAISE fnd_api.g_exc_unexpected_error;
3214: END IF;
3207: backorder_smc_details(l_api_return_status,
3208: x_msg_data,
3209: x_msg_count);
3210: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
3211: RAISE fnd_api.g_exc_error;
3212: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
3213: RAISE fnd_api.g_exc_unexpected_error;
3214: END IF;
3215: -- END IF;
3208: x_msg_data,
3209: x_msg_count);
3210: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
3211: RAISE fnd_api.g_exc_error;
3212: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
3213: RAISE fnd_api.g_exc_unexpected_error;
3214: END IF;
3215: -- END IF;
3216:
3209: x_msg_count);
3210: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
3211: RAISE fnd_api.g_exc_error;
3212: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
3213: RAISE fnd_api.g_exc_unexpected_error;
3214: END IF;
3215: -- END IF;
3216:
3217: --bug 2408329: Since Quantity trees are cached and not built in a pick release
3270: 'Inv_Pick_Release_Pub.Pick_Release');
3271: END IF;
3272: WMS_XDOCK_PEGGING_PUB.Planned_Cross_Dock
3273: (p_api_version => 1.0,
3274: p_init_msg_list => fnd_api.g_false,
3275: p_commit => fnd_api.g_false,
3276: x_return_status => l_api_return_status,
3277: x_msg_count => x_msg_count,
3278: x_msg_data => x_msg_data,
3271: END IF;
3272: WMS_XDOCK_PEGGING_PUB.Planned_Cross_Dock
3273: (p_api_version => 1.0,
3274: p_init_msg_list => fnd_api.g_false,
3275: p_commit => fnd_api.g_false,
3276: x_return_status => l_api_return_status,
3277: x_msg_count => x_msg_count,
3278: x_msg_data => x_msg_data,
3279: p_batch_id => INV_CACHE.wpb_rec.batch_id,
3280: p_wsh_release_table => p_wsh_release_table,
3281: p_trolin_delivery_ids => p_trolin_delivery_ids,
3282: p_del_detail_id => p_del_detail_id);
3283:
3284: IF (l_api_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3285: IF (is_debug) THEN
3286: print_debug('Success returned from Planned_Cross_Dock API',
3287: 'Inv_Pick_Release_Pub.Pick_Release');
3288: END IF;
3285: IF (is_debug) THEN
3286: print_debug('Success returned from Planned_Cross_Dock API',
3287: 'Inv_Pick_Release_Pub.Pick_Release');
3288: END IF;
3289: ELSIF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
3290: IF (is_debug) THEN
3291: print_debug('Error returned from Planned_Cross_Dock API',
3292: 'Inv_Pick_Release_Pub.Pick_Release');
3293: END IF;
3290: IF (is_debug) THEN
3291: print_debug('Error returned from Planned_Cross_Dock API',
3292: 'Inv_Pick_Release_Pub.Pick_Release');
3293: END IF;
3294: RAISE FND_API.G_EXC_ERROR;
3295: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3296: IF (is_debug) THEN
3297: print_debug('Unexpected error returned from Planned_Cross_Dock API',
3298: 'Inv_Pick_Release_Pub.Pick_Release');
3291: print_debug('Error returned from Planned_Cross_Dock API',
3292: 'Inv_Pick_Release_Pub.Pick_Release');
3293: END IF;
3294: RAISE FND_API.G_EXC_ERROR;
3295: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3296: IF (is_debug) THEN
3297: print_debug('Unexpected error returned from Planned_Cross_Dock API',
3298: 'Inv_Pick_Release_Pub.Pick_Release');
3299: END IF;
3296: IF (is_debug) THEN
3297: print_debug('Unexpected error returned from Planned_Cross_Dock API',
3298: 'Inv_Pick_Release_Pub.Pick_Release');
3299: END IF;
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302: END IF;
3303:
3304: -- Standard call to commit
3301: END IF;
3302: END IF;
3303:
3304: -- Standard call to commit
3305: IF p_commit = fnd_api.g_true THEN
3306: COMMIT;
3307: END IF;
3308:
3309: -- Standard call to get message count and if count is 1, get message info
3316: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3317: inv_log_util.g_maintain_log_profile := FALSE;
3318:
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_ERROR THEN
3321: --
3322: x_return_status := FND_API.G_RET_STS_ERROR;
3323: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3324: inv_log_util.g_maintain_log_profile := TRUE;
3318:
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_ERROR THEN
3321: --
3322: x_return_status := FND_API.G_RET_STS_ERROR;
3323: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3324: inv_log_util.g_maintain_log_profile := TRUE;
3325: --
3326: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3325: --
3326: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3327: , p_data => x_msg_data);
3328: --
3329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3330: --
3331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3332: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3333: inv_log_util.g_maintain_log_profile := TRUE;
3327: , p_data => x_msg_data);
3328: --
3329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3330: --
3331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3332: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3333: inv_log_util.g_maintain_log_profile := TRUE;
3334: --
3335: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3344: ROLLBACK TO Pick_Release_PUB;
3345: --
3346: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3347: inv_log_util.g_maintain_log_profile := TRUE;
3348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3349: --
3350: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3351: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3352: END IF;
3392: --
3393: -- Output Parameters
3394: -- x_return_status
3395: -- if the pick release process succeeds, the value is
3396: -- fnd_api.g_ret_sts_success;
3397: -- if there is an expected error, the value is
3398: -- fnd_api.g_ret_sts_error;
3399: -- if there is an unexpected error, the value is
3400: -- fnd_api.g_ret_sts_unexp_error;
3394: -- x_return_status
3395: -- if the pick release process succeeds, the value is
3396: -- fnd_api.g_ret_sts_success;
3397: -- if there is an expected error, the value is
3398: -- fnd_api.g_ret_sts_error;
3399: -- if there is an unexpected error, the value is
3400: -- fnd_api.g_ret_sts_unexp_error;
3401: -- x_msg_count
3402: -- if there is one or more errors, the number of error messages
3396: -- fnd_api.g_ret_sts_success;
3397: -- if there is an expected error, the value is
3398: -- fnd_api.g_ret_sts_error;
3399: -- if there is an unexpected error, the value is
3400: -- fnd_api.g_ret_sts_unexp_error;
3401: -- x_msg_count
3402: -- if there is one or more errors, the number of error messages
3403: -- in the buffer
3404: -- x_msg_data
3402: -- if there is one or more errors, the number of error messages
3403: -- in the buffer
3404: -- x_msg_data
3405: -- if there is one and only one error, the error message
3406: -- (See fnd_api package for more details about the above output parameters)
3407: --
3408:
3409: -- HW INVCONV added p_missing_quantity2
3410:
3410:
3411: PROCEDURE Reserve_Unconfirmed_Quantity
3412: (
3413: p_api_version IN NUMBER
3414: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3415: ,p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3416: ,x_return_status OUT NOCOPY VARCHAR2
3417: ,x_msg_count OUT NOCOPY NUMBER
3418: ,x_msg_data OUT NOCOPY VARCHAR2
3411: PROCEDURE Reserve_Unconfirmed_Quantity
3412: (
3413: p_api_version IN NUMBER
3414: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3415: ,p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3416: ,x_return_status OUT NOCOPY VARCHAR2
3417: ,x_msg_count OUT NOCOPY NUMBER
3418: ,x_msg_data OUT NOCOPY VARCHAR2
3419: ,p_missing_quantity IN NUMBER
3416: ,x_return_status OUT NOCOPY VARCHAR2
3417: ,x_msg_count OUT NOCOPY NUMBER
3418: ,x_msg_data OUT NOCOPY VARCHAR2
3419: ,p_missing_quantity IN NUMBER
3420: ,p_missing_quantity2 IN NUMBER DEFAULT fnd_api.g_miss_num
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3417: ,x_msg_count OUT NOCOPY NUMBER
3418: ,x_msg_data OUT NOCOPY VARCHAR2
3419: ,p_missing_quantity IN NUMBER
3420: ,p_missing_quantity2 IN NUMBER DEFAULT fnd_api.g_miss_num
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3418: ,x_msg_data OUT NOCOPY VARCHAR2
3419: ,p_missing_quantity IN NUMBER
3420: ,p_missing_quantity2 IN NUMBER DEFAULT fnd_api.g_miss_num
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3419: ,p_missing_quantity IN NUMBER
3420: ,p_missing_quantity2 IN NUMBER DEFAULT fnd_api.g_miss_num
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3420: ,p_missing_quantity2 IN NUMBER DEFAULT fnd_api.g_miss_num
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3421: ,p_reservation_id IN NUMBER DEFAULT fnd_api.g_miss_num
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3429: ,p_lot_number IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3422: ,p_demand_source_header_id IN NUMBER DEFAULT fnd_api.g_miss_num
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3429: ,p_lot_number IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3430: ) IS
3423: ,p_demand_source_line_id IN NUMBER DEFAULT fnd_api.g_miss_num
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3429: ,p_lot_number IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3430: ) IS
3431: l_api_version CONSTANT NUMBER := 1.0;
3424: ,p_organization_id IN NUMBER DEFAULT fnd_api.g_miss_num
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3429: ,p_lot_number IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3430: ) IS
3431: l_api_version CONSTANT NUMBER := 1.0;
3432: l_api_name CONSTANT VARCHAR2(30) := 'Reserve_Unconfirmed_Quantity';
3425: ,p_inventory_item_id IN NUMBER DEFAULT fnd_api.g_miss_num
3426: ,p_subinventory_code IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3427: ,p_locator_id IN NUMBER DEFAULT fnd_api.g_miss_num
3428: ,p_revision IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3429: ,p_lot_number IN VARCHAR2 DEFAULT fnd_api.g_miss_char
3430: ) IS
3431: l_api_version CONSTANT NUMBER := 1.0;
3432: l_api_name CONSTANT VARCHAR2(30) := 'Reserve_Unconfirmed_Quantity';
3433:
3466: -- Set savepoint for this API
3467: SAVEPOINT Reserve_Unconfirmed_Qty_PUB;
3468:
3469: -- Standard Call to check for call compatibility
3470: IF NOT fnd_api.Compatible_API_Call(l_api_version
3471: , p_api_version
3472: , l_api_name
3473: , G_PKG_NAME) THEN
3474: RAISE fnd_api.g_exc_unexpected_error;
3470: IF NOT fnd_api.Compatible_API_Call(l_api_version
3471: , p_api_version
3472: , l_api_name
3473: , G_PKG_NAME) THEN
3474: RAISE fnd_api.g_exc_unexpected_error;
3475: END IF;
3476:
3477: -- Initialize message list if p_init_msg_list is set to true
3478: IF fnd_api.to_Boolean(p_init_msg_list) THEN
3474: RAISE fnd_api.g_exc_unexpected_error;
3475: END IF;
3476:
3477: -- Initialize message list if p_init_msg_list is set to true
3478: IF fnd_api.to_Boolean(p_init_msg_list) THEN
3479: fnd_msg_pub.initialize;
3480: END IF;
3481:
3482: -- Initialize API return status to success
3479: fnd_msg_pub.initialize;
3480: END IF;
3481:
3482: -- Initialize API return status to success
3483: x_return_status := fnd_api.g_ret_sts_success;
3484:
3485: -- Validate parameters
3486:
3487: -- First make sure that missing quantity is not <= 0
3487: -- First make sure that missing quantity is not <= 0
3488: IF p_missing_quantity <= 0 THEN
3489: FND_MESSAGE.SET_NAME('INV','INV_NO_QTY_TO_TRANSFER');
3490: FND_MSG_PUB.Add;
3491: RAISE fnd_api.g_exc_unexpected_error;
3492: END IF;
3493:
3494: -- Determine whether the reservation id was given, or if it must be derived
3495: -- based on the supply source parameters.
3492: END IF;
3493:
3494: -- Determine whether the reservation id was given, or if it must be derived
3495: -- based on the supply source parameters.
3496: IF p_reservation_id <> fnd_api.g_miss_num AND
3497: p_reservation_id IS NOT NULL THEN
3498: -- Initialize the reservation querying record with the reservation ID
3499: l_reservation_id := p_reservation_id;
3500: l_reservation_rec.reservation_id := l_reservation_id;
3501: ELSE
3502: -- Initialize the reservation record with the demand/supply source
3503: -- information. At minimum, must have a demand source type, line and header,
3504: -- and an item and organization ID
3505: IF p_inventory_item_id = fnd_api.g_miss_num OR
3506: p_inventory_item_id IS NULL OR
3507: p_organization_id = fnd_api.g_miss_num OR
3508: p_organization_id IS NULL OR
3509: p_demand_source_header_id = fnd_api.g_miss_num OR
3503: -- information. At minimum, must have a demand source type, line and header,
3504: -- and an item and organization ID
3505: IF p_inventory_item_id = fnd_api.g_miss_num OR
3506: p_inventory_item_id IS NULL OR
3507: p_organization_id = fnd_api.g_miss_num OR
3508: p_organization_id IS NULL OR
3509: p_demand_source_header_id = fnd_api.g_miss_num OR
3510: p_demand_source_header_id IS NULL OR
3511: p_demand_source_line_id = fnd_api.g_miss_num OR
3505: IF p_inventory_item_id = fnd_api.g_miss_num OR
3506: p_inventory_item_id IS NULL OR
3507: p_organization_id = fnd_api.g_miss_num OR
3508: p_organization_id IS NULL OR
3509: p_demand_source_header_id = fnd_api.g_miss_num OR
3510: p_demand_source_header_id IS NULL OR
3511: p_demand_source_line_id = fnd_api.g_miss_num OR
3512: p_demand_source_line_id IS NULL THEN
3513: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_ID_RSV');
3507: p_organization_id = fnd_api.g_miss_num OR
3508: p_organization_id IS NULL OR
3509: p_demand_source_header_id = fnd_api.g_miss_num OR
3510: p_demand_source_header_id IS NULL OR
3511: p_demand_source_line_id = fnd_api.g_miss_num OR
3512: p_demand_source_line_id IS NULL THEN
3513: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_ID_RSV');
3514: FND_MSG_PUB.Add;
3515: RAISE fnd_api.g_exc_unexpected_error;
3511: p_demand_source_line_id = fnd_api.g_miss_num OR
3512: p_demand_source_line_id IS NULL THEN
3513: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_ID_RSV');
3514: FND_MSG_PUB.Add;
3515: RAISE fnd_api.g_exc_unexpected_error;
3516: END IF;
3517:
3518: -- First attempt to convert the demand source header id given
3519: -- (the OE header id) to the MTL_SALES_ORDERS id to be used.
3521: inv_salesorder.get_salesorder_for_oeheader(p_demand_source_header_id);
3522: IF l_mso_header_id IS NULL THEN
3523: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_GET_MSO_HEADER');
3524: FND_MSG_PUB.Add;
3525: RAISE fnd_api.g_exc_unexpected_error;
3526: END IF;*/
3527:
3528: l_reservation_rec.inventory_item_id := p_inventory_item_id;
3529: l_reservation_rec.organization_id := p_organization_id;
3533: l_reservation_rec.demand_source_line_id := p_demand_source_line_id;
3534: -- R12 Crossdock changes
3535: l_reservation_rec.demand_source_line_detail := NULL;
3536:
3537: IF p_subinventory_code <> fnd_api.g_miss_char THEN
3538: l_reservation_rec.subinventory_code := p_subinventory_code;
3539: ELSE
3540: l_reservation_rec.subinventory_code := NULL;
3541: END IF;
3539: ELSE
3540: l_reservation_rec.subinventory_code := NULL;
3541: END IF;
3542:
3543: IF p_locator_id <> fnd_api.g_miss_num THEN
3544: l_reservation_rec.locator_id := p_locator_id;
3545: ELSE
3546: l_reservation_rec.locator_id := NULL;
3547: END IF;
3545: ELSE
3546: l_reservation_rec.locator_id := NULL;
3547: END IF;
3548:
3549: IF p_revision <> fnd_api.g_miss_char THEN
3550: l_reservation_rec.revision := p_revision;
3551: ELSE
3552: l_reservation_rec.revision := NULL;
3553: END IF;
3551: ELSE
3552: l_reservation_rec.revision := NULL;
3553: END IF;
3554:
3555: IF p_lot_number <> fnd_api.g_miss_char THEN
3556: l_reservation_rec.lot_number := p_lot_number;
3557: ELSE
3558: l_reservation_rec.lot_number := NULL;
3559: END IF;
3562: -- Retrieve the reservation information
3563: INV_Reservation_PUB.Query_Reservation
3564: (
3565: p_api_version_number => 1.0
3566: , p_init_msg_lst => fnd_api.g_false
3567: , x_return_status => l_api_return_status
3568: , x_msg_count => x_msg_count
3569: , x_msg_data => x_msg_data
3570: , p_query_input => l_reservation_rec
3572: , x_mtl_reservation_tbl_count => l_reservation_count
3573: , x_error_code => l_api_error_code
3574: );
3575: -- Return an error if the query reservations call failed
3576: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3577: FND_MESSAGE.SET_NAME('INV','INV_QRY_RSV_FAILED');
3578: FND_MSG_PUB.Add;
3579: RAISE fnd_api.g_exc_unexpected_error;
3580: END IF;
3575: -- Return an error if the query reservations call failed
3576: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3577: FND_MESSAGE.SET_NAME('INV','INV_QRY_RSV_FAILED');
3578: FND_MSG_PUB.Add;
3579: RAISE fnd_api.g_exc_unexpected_error;
3580: END IF;
3581:
3582: -- Only 1 reservation record should have been returned, since the parameters
3583: -- passed are supposed to uniquely identify a reservation record.
3583: -- passed are supposed to uniquely identify a reservation record.
3584: IF l_reservation_count = 0 THEN
3585: FND_MESSAGE.SET_NAME('INV','INV_NO_RSVS_FOUND');
3586: FND_MSG_PUB.Add;
3587: RAISE fnd_api.g_exc_unexpected_error;
3588: END IF;
3589:
3590: IF l_reservation_count > 1 THEN
3591: FND_MESSAGE.SET_NAME('INV','INV_NON_UNIQUE_RSV');
3589:
3590: IF l_reservation_count > 1 THEN
3591: FND_MESSAGE.SET_NAME('INV','INV_NON_UNIQUE_RSV');
3592: FND_MSG_PUB.Add;
3593: RAISE fnd_api.g_exc_unexpected_error;
3594: END IF;
3595:
3596: -- Determine whether the quantity to transfer is greater
3597: -- than the currently reserved quantity
3597: -- than the currently reserved quantity
3598: IF p_missing_quantity > l_reservations_tbl(1).primary_reservation_quantity THEN
3599: FND_MESSAGE.SET_NAME('INV','INV_INSUFF_QTY_RSV');
3600: FND_MSG_PUB.Add;
3601: RAISE fnd_api.g_exc_unexpected_error;
3602: END IF;
3603:
3604: -- Initialize the querying record with the reservation ID so that the update
3605: -- will be more efficient.
3628: -- Make the call to the Transfer Reservation API
3629: INV_Reservation_PUB.Transfer_Reservation
3630: (
3631: p_api_version_number => 1.0
3632: , p_init_msg_lst => fnd_api.g_true
3633: , x_return_status => l_api_return_status
3634: , x_msg_count => x_msg_count
3635: , x_msg_data => x_msg_data
3636: , p_original_rsv_rec => l_reservation_rec
3636: , p_original_rsv_rec => l_reservation_rec
3637: , p_to_rsv_rec => l_cc_reservation_rec
3638: , p_original_serial_number => l_dummy_sn
3639: , p_to_serial_number => l_dummy_sn
3640: , p_validation_flag => fnd_api.g_true
3641: , x_to_reservation_id => l_new_rsv_id
3642: );
3643: -- Return an error if the transfer reservations call failed
3644: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3640: , p_validation_flag => fnd_api.g_true
3641: , x_to_reservation_id => l_new_rsv_id
3642: );
3643: -- Return an error if the transfer reservations call failed
3644: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3645: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
3646: FND_MSG_PUB.Add;
3647: RAISE fnd_api.g_exc_unexpected_error;
3648: END IF;
3643: -- Return an error if the transfer reservations call failed
3644: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3645: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
3646: FND_MSG_PUB.Add;
3647: RAISE fnd_api.g_exc_unexpected_error;
3648: END IF;
3649:
3650: -- Commit if necessary
3651: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3647: RAISE fnd_api.g_exc_unexpected_error;
3648: END IF;
3649:
3650: -- Commit if necessary
3651: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3652: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
3653: ELSE
3654: -- Standard call to commit
3655: IF p_commit = fnd_api.g_true THEN
3651: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3652: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
3653: ELSE
3654: -- Standard call to commit
3655: IF p_commit = fnd_api.g_true THEN
3656: COMMIT;
3657: END IF;
3658: END IF;
3659:
3657: END IF;
3658: END IF;
3659:
3660: EXCEPTION
3661: WHEN FND_API.G_EXC_ERROR THEN
3662: --
3663: x_return_status := FND_API.G_RET_STS_ERROR;
3664: --
3665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3659:
3660: EXCEPTION
3661: WHEN FND_API.G_EXC_ERROR THEN
3662: --
3663: x_return_status := FND_API.G_RET_STS_ERROR;
3664: --
3665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3666: , p_data => x_msg_data);
3667: --
3664: --
3665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3666: , p_data => x_msg_data);
3667: --
3668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3669: --
3670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3671: --
3672: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3666: , p_data => x_msg_data);
3667: --
3668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3669: --
3670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3671: --
3672: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3673: , p_data => x_msg_data);
3674: --
3674: --
3675: WHEN OTHERS THEN
3676: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
3677: --
3678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3679: --
3680: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3681: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3682: END IF;
3743: End If;
3744: --ROLLBACK TO Pick_Release_PUB;
3745: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
3746: FND_MSG_PUB.Add;
3747: RAISE fnd_api.g_exc_unexpected_error;
3748: END;
3749:
3750: g_organization_id := p_org_id;
3751: g_print_mode := l_print_mode;
3758: End If;
3759: WMS_CARTNZN_PUB.cartonize
3760: (
3761: p_api_version => 1,
3762: p_init_msg_list => fnd_api.g_false,
3763: p_commit => fnd_api.g_false,
3764: p_validation_level => fnd_api.g_valid_level_full,
3765: x_return_status => l_api_return_status,
3766: x_msg_count => x_msg_count,
3759: WMS_CARTNZN_PUB.cartonize
3760: (
3761: p_api_version => 1,
3762: p_init_msg_list => fnd_api.g_false,
3763: p_commit => fnd_api.g_false,
3764: p_validation_level => fnd_api.g_valid_level_full,
3765: x_return_status => l_api_return_status,
3766: x_msg_count => x_msg_count,
3767: x_msg_data => x_msg_data,
3760: (
3761: p_api_version => 1,
3762: p_init_msg_list => fnd_api.g_false,
3763: p_commit => fnd_api.g_false,
3764: p_validation_level => fnd_api.g_valid_level_full,
3765: x_return_status => l_api_return_status,
3766: x_msg_count => x_msg_count,
3767: x_msg_data => x_msg_data,
3768: p_out_bound => 'Y',
3768: p_out_bound => 'Y',
3769: p_org_id => p_org_id,
3770: p_move_order_header_id => p_move_order_header_id
3771: );
3772: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3773: l_api_return_status = fnd_api.g_ret_sts_error THEN
3774: If is_debug then
3775: print_debug('error from cartonize api',
3776: 'Inv_Pick_Release_Pub.Call_Cartonization');
3769: p_org_id => p_org_id,
3770: p_move_order_header_id => p_move_order_header_id
3771: );
3772: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3773: l_api_return_status = fnd_api.g_ret_sts_error THEN
3774: If is_debug then
3775: print_debug('error from cartonize api',
3776: 'Inv_Pick_Release_Pub.Call_Cartonization');
3777: print_debug('error count ' || x_msg_count,
3778: 'Inv_Pick_Release_Pub.Call_Cartonization');
3779: print_debug('error msg ' || x_msg_data,
3780: 'Inv_Pick_Release_Pub.Call_Cartonization');
3781: End If;
3782: x_return_status := fnd_api.g_ret_sts_error;
3783: ELSE
3784: IF (is_debug) THEN print_debug('PATCHSET J -- BULK PICKING --- START',
3785: 'Inv_Pick_Release_Pub.Call_Cartonization');
3786: print_debug('calling assign_pick_slip_number',
3793: p_move_order_header_id => p_move_order_header_id,
3794: p_ps_mode => l_print_mode,
3795: p_grouping_rule_id => p_grouping_rule_id,
3796: p_allow_partial_pick => p_allow_partial_pick);
3797: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3798: l_api_return_status = fnd_api.g_ret_sts_error THEN
3799: print_debug('error from assign_pick_slip_number api',
3800: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3794: p_ps_mode => l_print_mode,
3795: p_grouping_rule_id => p_grouping_rule_id,
3796: p_allow_partial_pick => p_allow_partial_pick);
3797: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3798: l_api_return_status = fnd_api.g_ret_sts_error THEN
3799: print_debug('error from assign_pick_slip_number api',
3800: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3802: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3802: 'Inv_Pick_Release_Pub.Call_Cartonization');
3803: print_debug('error msg ' || x_msg_data,
3804: 'Inv_Pick_Release_Pub.Call_Cartonization');
3805: x_return_status := fnd_api.g_ret_sts_error;
3806: END IF;
3807: END IF;
3808:
3809: If is_debug then
3811: 'Inv_Pick_Release_Pub.Call_Cartonization');
3812: End If;
3813: END IF; --l_do_Cartonization=1
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3816: --
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: --
3819: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3813: END IF; --l_do_Cartonization=1
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3816: --
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: --
3819: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3820: , p_data => x_msg_data);
3821: --
3818: --
3819: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3820: , p_data => x_msg_data);
3821: --
3822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3823: --
3824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3825: --
3826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3820: , p_data => x_msg_data);
3821: --
3822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3823: --
3824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3825: --
3826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3827: , p_data => x_msg_data);
3828: --
3828: --
3829: WHEN OTHERS THEN
3830: ROLLBACK TO PR_Call_cartonization;
3831: --
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: --
3834: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3835: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Call_Cartonization');
3836: END IF;