[Home] [Help]
17: END print_debug;
18:
19: PROCEDURE Get_Catch_Weight_Attributes (
20: p_api_version IN NUMBER
21: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
22: , x_return_status OUT NOCOPY VARCHAR2
23: , x_msg_count OUT NOCOPY NUMBER
24: , x_msg_data OUT NOCOPY VARCHAR2
25: , p_organization_id IN NUMBER
43: l_secondary_uom_code VARCHAR2(3);
44: l_result VARCHAR2(30);
45: BEGIN
46: -- Standard call to check for call compatibility.
47: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
48: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
49: fnd_msg_pub.ADD;
50: RAISE fnd_api.g_exc_unexpected_error;
51: END IF;
46: -- Standard call to check for call compatibility.
47: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
48: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
49: fnd_msg_pub.ADD;
50: RAISE fnd_api.g_exc_unexpected_error;
51: END IF;
52:
53: -- Initialize message list if p_init_msg_list is set to TRUE.
54: IF fnd_api.to_boolean(p_init_msg_list) THEN
50: RAISE fnd_api.g_exc_unexpected_error;
51: END IF;
52:
53: -- Initialize message list if p_init_msg_list is set to TRUE.
54: IF fnd_api.to_boolean(p_init_msg_list) THEN
55: fnd_msg_pub.initialize;
56: END IF;
57:
58: -- Initialize API return status to success
55: fnd_msg_pub.initialize;
56: END IF;
57:
58: -- Initialize API return status to success
59: x_return_status := fnd_api.g_ret_sts_success;
60:
61: IF ( l_debug = 1 ) THEN
62: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
63: print_debug('orgid='||p_organization_id||' itemid='||p_inventory_item_id||' qty='||p_quantity||' uom='||p_uom_code, 4);
68: x_return_status => x_return_status
69: , x_msg_count => x_msg_count
70: , x_msg_data => x_msg_data
71: , p_organization_id => p_organization_id );
72: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
73: IF ( l_debug = 1 ) THEN
74: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
75: END IF;
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
72: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
73: IF ( l_debug = 1 ) THEN
74: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
75: END IF;
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78:
79: l_progress := '100';
80: IF ( l_wms_org_flag ) THEN
110: , x_ont_pricing_qty_source => x_ont_pricing_qty_source
111: , x_secondary_uom_code => x_secondary_uom_code
112: , x_secondary_quantity => x_secondary_quantity);
113:
114: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
115: IF ( l_debug = 1 ) THEN
116: print_debug('Call to Get_Default_Secondary_Quantity failed', 1);
117: END IF;
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
115: IF ( l_debug = 1 ) THEN
116: print_debug('Call to Get_Default_Secondary_Quantity failed', 1);
117: END IF;
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120: END IF;
121: ELSE -- not a wms org
122: IF ( l_debug = 1 ) THEN
145: IF ( SQLCODE IS NOT NULL ) THEN
146: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
147: END IF;
148: END IF;
149: x_return_status := fnd_api.g_ret_sts_error;
150: fnd_message.set_name('WMS', 'WMS_GET_CWT_ATTR_FAIL');
151: fnd_msg_pub.ADD;
152: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
153: END Get_Catch_Weight_Attributes;
154:
155:
156: FUNCTION Get_Ont_Pricing_Qty_Source (
157: p_api_version IN NUMBER
158: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
159: , x_return_status OUT NOCOPY VARCHAR2
160: , x_msg_count OUT NOCOPY NUMBER
161: , x_msg_data OUT NOCOPY VARCHAR2
162: , p_organization_id IN NUMBER
170: l_wms_org_flag BOOLEAN;
171: l_ont_pricing_qty_source VARCHAR(30);
172: BEGIN
173: -- Standard call to check for call compatibility.
174: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
175: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
176: fnd_msg_pub.ADD;
177: RAISE fnd_api.g_exc_unexpected_error;
178: END IF;
173: -- Standard call to check for call compatibility.
174: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
175: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
176: fnd_msg_pub.ADD;
177: RAISE fnd_api.g_exc_unexpected_error;
178: END IF;
179:
180: -- Initialize message list if p_init_msg_list is set to TRUE.
181: IF fnd_api.to_boolean(p_init_msg_list) THEN
177: RAISE fnd_api.g_exc_unexpected_error;
178: END IF;
179:
180: -- Initialize message list if p_init_msg_list is set to TRUE.
181: IF fnd_api.to_boolean(p_init_msg_list) THEN
182: fnd_msg_pub.initialize;
183: END IF;
184:
185: -- Initialize API return status to success
182: fnd_msg_pub.initialize;
183: END IF;
184:
185: -- Initialize API return status to success
186: x_return_status := fnd_api.g_ret_sts_success;
187:
188: IF ( l_debug = 1 ) THEN
189: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
190: print_debug('orgid='||p_organization_id||' itemid='||p_inventory_item_id, 4);
195: x_return_status => x_return_status
196: , x_msg_count => x_msg_count
197: , x_msg_data => x_msg_data
198: , p_organization_id => p_organization_id );
199: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
200: IF ( l_debug = 1 ) THEN
201: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
202: END IF;
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
200: IF ( l_debug = 1 ) THEN
201: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
202: END IF;
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205:
206: IF ( l_wms_org_flag ) THEN
207: SELECT NVL(ont_pricing_qty_source, G_PRICE_PRIMARY)
231: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
232: END IF;
233: END IF;
234:
235: x_return_status := fnd_api.g_ret_sts_error;
236: fnd_message.set_name('WMS', 'WMS_API_FAIL');
237: fnd_msg_pub.ADD;
238: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
239: END Get_Ont_Pricing_Qty_Source;
240:
241:
242: PROCEDURE Get_Default_Secondary_Quantity (
243: p_api_version IN NUMBER
244: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
245: , x_return_status OUT NOCOPY VARCHAR2
246: , x_msg_count OUT NOCOPY NUMBER
247: , x_msg_data OUT NOCOPY VARCHAR2
248: , p_organization_id IN NUMBER
264: l_uom_code VARCHAR(3);
265: l_secondary_uom VARCHAR(3);
266: BEGIN
267: -- Standard call to check for call compatibility.
268: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
269: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
270: fnd_msg_pub.ADD;
271: RAISE fnd_api.g_exc_unexpected_error;
272: END IF;
267: -- Standard call to check for call compatibility.
268: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
269: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
270: fnd_msg_pub.ADD;
271: RAISE fnd_api.g_exc_unexpected_error;
272: END IF;
273:
274: -- Initialize message list if p_init_msg_list is set to TRUE.
275: IF fnd_api.to_boolean(p_init_msg_list) THEN
271: RAISE fnd_api.g_exc_unexpected_error;
272: END IF;
273:
274: -- Initialize message list if p_init_msg_list is set to TRUE.
275: IF fnd_api.to_boolean(p_init_msg_list) THEN
276: fnd_msg_pub.initialize;
277: END IF;
278:
279: -- Initialize API return status to success
276: fnd_msg_pub.initialize;
277: END IF;
278:
279: -- Initialize API return status to success
280: x_return_status := fnd_api.g_ret_sts_success;
281:
282: IF ( l_debug = 1 ) THEN
283: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
284: print_debug('orgid='||p_organization_id||' itemid='||p_inventory_item_id||' qty='||p_quantity||' uom='||p_uom_code, 4);
293: x_return_status => x_return_status
294: , x_msg_count => x_msg_count
295: , x_msg_data => x_msg_data
296: , p_organization_id => p_organization_id );
297: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
298: IF ( l_debug = 1 ) THEN
299: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
300: END IF;
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
298: IF ( l_debug = 1 ) THEN
299: print_debug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
300: END IF;
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: END IF;
303:
304: IF ( l_wms_org_flag ) THEN
305: SELECT ont_pricing_qty_source,
337: print_debug('Secondary UOM is not defined for this secondary priced item', 1);
338: END IF;
339: fnd_message.set_name('WMS', 'WMS_SEC_UOM_UNDEF_ERROR');
340: fnd_msg_pub.ADD;
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343:
344: -- Use user specified uom if passed
345: IF ( p_uom_code IS NOT NULL ) THEN
363: fnd_message.set_token('uom1', p_uom_code);
364: fnd_message.set_token('uom2', x_secondary_uom_code);
365: fnd_message.set_token('module', l_api_name);
366: fnd_msg_pub.ADD;
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369: l_progress := '400';
370: ELSE
371: x_secondary_quantity := NULL;
385: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
386: END IF;
387: END IF;
388:
389: x_return_status := fnd_api.g_ret_sts_error;
390: fnd_message.set_name('WMS', 'WMS_CALC_SEC_QTY_FAIL');
391: fnd_msg_pub.ADD;
392: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
393: END Get_Default_Secondary_Quantity;
394:
395:
396: FUNCTION Check_Secondary_Qty_Tolerance (
397: p_api_version IN NUMBER
398: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
399: , x_return_status OUT NOCOPY VARCHAR2
400: , x_msg_count OUT NOCOPY NUMBER
401: , x_msg_data OUT NOCOPY VARCHAR2
402: , p_organization_id IN NUMBER
427: l_uom_code VARCHAR2(3) := p_uom_code;
428: l_converted_qty NUMBER;
429: BEGIN
430: -- Standard call to check for call compatibility.
431: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
432: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
433: fnd_msg_pub.ADD;
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
430: -- Standard call to check for call compatibility.
431: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
432: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
433: fnd_msg_pub.ADD;
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
436:
437: -- Initialize message list if p_init_msg_list is set to TRUE.
438: IF fnd_api.to_boolean(p_init_msg_list) THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
436:
437: -- Initialize message list if p_init_msg_list is set to TRUE.
438: IF fnd_api.to_boolean(p_init_msg_list) THEN
439: fnd_msg_pub.initialize;
440: END IF;
441:
442: -- Initialize API return status to success
439: fnd_msg_pub.initialize;
440: END IF;
441:
442: -- Initialize API return status to success
443: x_return_status := fnd_api.g_ret_sts_success;
444:
445: IF ( l_debug = 1 ) THEN
446: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
447: print_debug('orgid='||p_organization_id||' itemid='||p_inventory_item_id||' qty='||p_quantity||' uom='||p_uom_code||' secqty='||p_secondary_quantity, 4);
470: l_uom_deviation_high := p_uom_deviation_high;
471: l_uom_deviation_low := p_uom_deviation_low;
472: END IF;
473:
474: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
475: IF ( l_debug = 1 ) THEN
476: print_debug('Call to Get_Catch_Weight_Attributes failed', 1);
477: END IF;
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
475: IF ( l_debug = 1 ) THEN
476: print_debug('Call to Get_Catch_Weight_Attributes failed', 1);
477: END IF;
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END IF;
480:
481: l_progress := '100';
482: IF ( l_ont_pricing_qty_source = G_PRICE_SECONDARY AND
498: fnd_message.set_token('uom1', l_uom_code);
499: fnd_message.set_token('uom2', l_secondary_uom_code);
500: fnd_message.set_token('module', l_api_name);
501: fnd_msg_pub.ADD;
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504:
505: IF ( l_uom_deviation_high IS NOT NULL ) THEN
506: l_progress := '300';
540: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
541: END IF;
542: END IF;
543:
544: x_return_status := fnd_api.g_ret_sts_error;
545: fnd_message.set_name('WMS', 'WMS_API_FAIL');
546: fnd_msg_pub.ADD;
547: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
548: END Check_Secondary_Qty_Tolerance;
582: BEGIN
583: SAVEPOINT UPDATE_SHIPPING_SECONDARY_QTY;
584:
585: -- Standard call to check for call compatibility.
586: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
587: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
588: fnd_msg_pub.ADD;
589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
590: END IF;
585: -- Standard call to check for call compatibility.
586: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
587: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
588: fnd_msg_pub.ADD;
589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
590: END IF;
591:
592: -- Initialize message list if p_init_msg_list is set to TRUE.
593: IF fnd_api.to_boolean(p_init_msg_list) THEN
589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
590: END IF;
591:
592: -- Initialize message list if p_init_msg_list is set to TRUE.
593: IF fnd_api.to_boolean(p_init_msg_list) THEN
594: fnd_msg_pub.initialize;
595: END IF;
596:
597: -- Initialize API return status to success
594: fnd_msg_pub.initialize;
595: END IF;
596:
597: -- Initialize API return status to success
598: x_return_status := fnd_api.g_ret_sts_success;
599:
600: IF ( l_debug = 1 ) THEN
601: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
602: print_debug('deldetid='||p_delivery_detail_id||' secqty='||p_secondary_quantity||' secuom='||p_secondary_uom_code, 4);
612: print_debug('got from WDD orgid='||l_organization_id||' itemid='||l_inventory_item_id||' pkdqty='||l_picked_quantity||' requom='||l_requested_quantity_uom, 4);
613: END IF;
614: EXCEPTION
615: WHEN OTHERS THEN
616: x_return_status := fnd_api.g_ret_sts_error;
617: fnd_message.set_name('WMS', 'WMS_MISSING_WDD_ERR');
618: fnd_msg_pub.ADD;
619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
620: END;
615: WHEN OTHERS THEN
616: x_return_status := fnd_api.g_ret_sts_error;
617: fnd_message.set_name('WMS', 'WMS_MISSING_WDD_ERR');
618: fnd_msg_pub.ADD;
619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
620: END;
621:
622: Get_Default_Secondary_Quantity (
623: p_api_version => 1.0
631: , x_ont_pricing_qty_source => l_pricing_ind
632: , x_secondary_uom_code => l_secondary_quantity
633: , x_secondary_quantity => l_secondary_uom_code);
634:
635: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
636: IF ( l_debug = 1 ) THEN
637: print_debug('Call to Get_Default_Secondary_Quantity failed', 1);
638: END IF;
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
636: IF ( l_debug = 1 ) THEN
637: print_debug('Call to Get_Default_Secondary_Quantity failed', 1);
638: END IF;
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: IF ( l_pricing_ind = G_PRICE_SECONDARY ) THEN
643: l_progress := '100';
646: fnd_message.set_name('WMS', 'WMS_SEC_UOM_MISMATCH');
647: fnd_message.set_token('uom1', p_secondary_uom_code);
648: fnd_message.set_token('uom2', l_secondary_uom_code);
649: fnd_msg_pub.ADD;
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
651: END IF;
652:
653: IF ( p_secondary_quantity = FND_API.G_MISS_NUM ) THEN
654: l_progress := '200';
649: fnd_msg_pub.ADD;
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
651: END IF;
652:
653: IF ( p_secondary_quantity = FND_API.G_MISS_NUM ) THEN
654: l_progress := '200';
655:
656: -- User wishes to set secondary values to null
657: l_secondary_quantity := FND_API.G_MISS_NUM;
653: IF ( p_secondary_quantity = FND_API.G_MISS_NUM ) THEN
654: l_progress := '200';
655:
656: -- User wishes to set secondary values to null
657: l_secondary_quantity := FND_API.G_MISS_NUM;
658: l_secondary_uom_code := FND_API.G_MISS_CHAR;
659: ELSIF ( p_secondary_quantity IS NOT NULL ) THEN
660: l_progress := '300';
661:
654: l_progress := '200';
655:
656: -- User wishes to set secondary values to null
657: l_secondary_quantity := FND_API.G_MISS_NUM;
658: l_secondary_uom_code := FND_API.G_MISS_CHAR;
659: ELSIF ( p_secondary_quantity IS NOT NULL ) THEN
660: l_progress := '300';
661:
662: -- Check to make sure that the secondary qty is within tolerance
670: , p_quantity => l_picked_quantity
671: , p_uom_code => l_requested_quantity_uom
672: , p_secondary_quantity => p_secondary_quantity );
673:
674: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
675: IF ( l_debug = 1 ) THEN
676: print_debug('Check_Secondary_Qty_Tolerance failed ', 4);
677: END IF;
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
675: IF ( l_debug = 1 ) THEN
676: print_debug('Check_Secondary_Qty_Tolerance failed ', 4);
677: END IF;
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680:
681: l_progress := '400';
682: IF ( l_tolerance <> 0 ) THEN
684: print_debug('Secondary quantity out of tolerance', 4);
685: END IF;
686: fnd_message.set_name('WMS', 'WMS_CTWT_TOLERANCE_ERROR');
687: fnd_msg_pub.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690:
691: -- User specified sec qty, do not need to use the default value.
692: l_secondary_quantity := p_secondary_quantity;
696: print_debug('Cannot default secondary quantity', 4);
697: END IF;
698: fnd_message.set_name('WMS','WMS_CTWT_DEFAULT_ERROR');
699: fnd_msg_pub.ADD;
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: -- If everything checks out, update wdd.picked_quantity2 with catch weight.
704: l_shipping_attr(1).delivery_detail_id := p_delivery_detail_id;
709: l_shipping_in_rec.action_code := 'UPDATE';
710:
711: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail (
712: p_api_version_number => 1.0
713: , p_init_msg_list => fnd_api.g_false
714: , p_commit => fnd_api.g_false
715: , x_return_status => x_return_status
716: , x_msg_count => x_msg_count
717: , x_msg_data => x_msg_data
710:
711: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail (
712: p_api_version_number => 1.0
713: , p_init_msg_list => fnd_api.g_false
714: , p_commit => fnd_api.g_false
715: , x_return_status => x_return_status
716: , x_msg_count => x_msg_count
717: , x_msg_data => x_msg_data
718: , p_detail_info_tab => l_shipping_attr
718: , p_detail_info_tab => l_shipping_attr
719: , p_IN_rec => l_shipping_in_rec
720: , x_OUT_rec => l_shipping_out_rec );
721:
722: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
723: --Get error messages from shipping
724: WSH_UTIL_CORE.get_messages('Y', x_msg_data, l_msg_details, x_msg_count);
725: IF x_msg_count > 1 then
726: x_msg_data := x_msg_data || l_msg_details;
733: END IF;
734: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_DELIVERY_ERROR' );
735: fnd_message.set_token('MSG1', x_msg_data);
736: FND_MSG_PUB.ADD;
737: RAISE FND_API.g_exc_unexpected_error;
738: END IF;
739:
740: l_progress := '400';
741: END IF;
740: l_progress := '400';
741: END IF;
742:
743: -- End of API body
744: IF fnd_api.to_boolean(p_commit) THEN
745: COMMIT WORK;
746: END IF;
747:
748: IF ( l_debug = 1 ) THEN
759: END IF;
760: END IF;
761:
762: ROLLBACK TO UPDATE_SHIPPING_SECONDARY_QTY;
763: x_return_status := fnd_api.g_ret_sts_error;
764: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
765: fnd_msg_pub.ADD;
766: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
767: END Update_Shipping_Secondary_Qty;
768:
769:
770: PROCEDURE Update_Parent_Delivery_Sec_Qty (
771: p_api_version IN NUMBER
772: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
773: , p_commit IN VARCHAR2 := fnd_api.g_false
774: , x_return_status OUT NOCOPY VARCHAR2
775: , x_msg_count OUT NOCOPY NUMBER
776: , x_msg_data OUT NOCOPY VARCHAR2
769:
770: PROCEDURE Update_Parent_Delivery_Sec_Qty (
771: p_api_version IN NUMBER
772: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
773: , p_commit IN VARCHAR2 := fnd_api.g_false
774: , x_return_status OUT NOCOPY VARCHAR2
775: , x_msg_count OUT NOCOPY NUMBER
776: , x_msg_data OUT NOCOPY VARCHAR2
777: , p_organization_id IN NUMBER
812: BEGIN
813: SAVEPOINT UPDATE_PARENT_DELIVERY_SEC_QTY;
814:
815: -- Standard call to check for call compatibility.
816: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
817: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
818: fnd_msg_pub.ADD;
819: RAISE fnd_api.g_exc_unexpected_error;
820: END IF;
815: -- Standard call to check for call compatibility.
816: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
817: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
818: fnd_msg_pub.ADD;
819: RAISE fnd_api.g_exc_unexpected_error;
820: END IF;
821:
822: -- Initialize message list if p_init_msg_list is set to TRUE.
823: IF fnd_api.to_boolean(p_init_msg_list) THEN
819: RAISE fnd_api.g_exc_unexpected_error;
820: END IF;
821:
822: -- Initialize message list if p_init_msg_list is set to TRUE.
823: IF fnd_api.to_boolean(p_init_msg_list) THEN
824: fnd_msg_pub.initialize;
825: END IF;
826:
827: -- Initialize API return status to success
824: fnd_msg_pub.initialize;
825: END IF;
826:
827: -- Initialize API return status to success
828: x_return_status := fnd_api.g_ret_sts_success;
829:
830: IF ( l_debug = 1 ) THEN
831: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
832: print_debug('orgid='||p_organization_id||' parddid='||p_parent_del_det_id||' itemid='||p_inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, 4);
844: -- but only if they are not already null
845: IF ( wdd_rec.picked_quantity2 IS NOT NULL OR
846: wdd_rec.requested_quantity_uom2 IS NOT NULL ) THEN
847: l_shipping_attr(l_attr_counter).delivery_detail_id := wdd_rec.delivery_detail_id;
848: l_shipping_attr(l_attr_counter).picked_quantity2 := FND_API.G_MISS_NUM;
849: l_shipping_attr(l_attr_counter).requested_quantity_uom2 := FND_API.G_MISS_CHAR;
850: l_attr_counter := l_attr_counter + 1;
851: END IF;
852: ELSE
845: IF ( wdd_rec.picked_quantity2 IS NOT NULL OR
846: wdd_rec.requested_quantity_uom2 IS NOT NULL ) THEN
847: l_shipping_attr(l_attr_counter).delivery_detail_id := wdd_rec.delivery_detail_id;
848: l_shipping_attr(l_attr_counter).picked_quantity2 := FND_API.G_MISS_NUM;
849: l_shipping_attr(l_attr_counter).requested_quantity_uom2 := FND_API.G_MISS_CHAR;
850: l_attr_counter := l_attr_counter + 1;
851: END IF;
852: ELSE
853: IF ( wdd_rec.requested_quantity_uom <> p_uom_code ) THEN
867: fnd_message.set_token('uom1', wdd_rec.requested_quantity_uom);
868: fnd_message.set_token('uom2', p_uom_code);
869: fnd_message.set_token('module', l_api_name);
870: fnd_msg_pub.ADD;
871: RAISE FND_API.G_EXC_ERROR;
872: END IF;
873: ELSE
874: l_line_quantity := wdd_rec.picked_quantity;
875: END IF;
892: FND_MESSAGE.SET_NAME('WMS','WMS_QTY_UPD_MISMATCH_ERR');
893: FND_MESSAGE.SET_TOKEN('QTY1', p_quantity);
894: FND_MESSAGE.SET_TOKEN('QTY2', l_total_quantity);
895: FND_MSG_PUB.ADD;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898:
899: l_progress := '200';
900:
907: END IF;
908:
909: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail (
910: p_api_version_number => 1.0
911: , p_init_msg_list => fnd_api.g_false
912: , p_commit => fnd_api.g_false
913: , x_return_status => x_return_status
914: , x_msg_count => x_msg_count
915: , x_msg_data => x_msg_data
908:
909: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail (
910: p_api_version_number => 1.0
911: , p_init_msg_list => fnd_api.g_false
912: , p_commit => fnd_api.g_false
913: , x_return_status => x_return_status
914: , x_msg_count => x_msg_count
915: , x_msg_data => x_msg_data
916: , p_detail_info_tab => l_shipping_attr
916: , p_detail_info_tab => l_shipping_attr
917: , p_IN_rec => l_shipping_in_rec
918: , x_OUT_rec => l_shipping_out_rec );
919:
920: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
921: --Get error messages from shipping
922: WSH_UTIL_CORE.get_messages('Y', x_msg_data, l_msg_details, x_msg_count);
923: IF x_msg_count > 1 then
924: x_msg_data := x_msg_data || l_msg_details;
931: END IF;
932: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_DELIVERY_ERROR' );
933: fnd_message.set_token('MSG1', x_msg_data);
934: FND_MSG_PUB.ADD;
935: RAISE FND_API.g_exc_unexpected_error;
936: END IF;
937: END IF;
938:
939: l_progress := '300';
937: END IF;
938:
939: l_progress := '300';
940: -- End of API body
941: IF fnd_api.to_boolean(p_commit) THEN
942: COMMIT WORK;
943: END IF;
944:
945: IF ( l_debug = 1 ) THEN
956: END IF;
957: END IF;
958:
959: ROLLBACK TO UPDATE_PARENT_DELIVERY_SEC_QTY;
960: x_return_status := fnd_api.g_ret_sts_error;
961: fnd_message.set_name('WMS', 'WMS_API_FAIL');
962: fnd_msg_pub.ADD;
963: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
964: END Update_Parent_Delivery_Sec_Qty;
969: -- Description:
970: --
971: PROCEDURE Update_LPN_Secondary_Quantity (
972: p_api_version IN NUMBER
973: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
974: , p_commit IN VARCHAR2 := fnd_api.g_false
975: , x_return_status OUT NOCOPY VARCHAR2
976: , x_msg_count OUT NOCOPY NUMBER
977: , x_msg_data OUT NOCOPY VARCHAR2
970: --
971: PROCEDURE Update_LPN_Secondary_Quantity (
972: p_api_version IN NUMBER
973: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
974: , p_commit IN VARCHAR2 := fnd_api.g_false
975: , x_return_status OUT NOCOPY VARCHAR2
976: , x_msg_count OUT NOCOPY NUMBER
977: , x_msg_data OUT NOCOPY VARCHAR2
978: , p_record_source IN VARCHAR2
1013: BEGIN
1014: SAVEPOINT UPDATE_LPN_SECONDARY_QUANTITY;
1015:
1016: -- Standard call to check for call compatibility.
1017: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1018: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1019: fnd_msg_pub.ADD;
1020: RAISE fnd_api.g_exc_unexpected_error;
1021: END IF;
1016: -- Standard call to check for call compatibility.
1017: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1018: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1019: fnd_msg_pub.ADD;
1020: RAISE fnd_api.g_exc_unexpected_error;
1021: END IF;
1022:
1023: -- Initialize message list if p_init_msg_list is set to TRUE.
1024: IF fnd_api.to_boolean(p_init_msg_list) THEN
1020: RAISE fnd_api.g_exc_unexpected_error;
1021: END IF;
1022:
1023: -- Initialize message list if p_init_msg_list is set to TRUE.
1024: IF fnd_api.to_boolean(p_init_msg_list) THEN
1025: fnd_msg_pub.initialize;
1026: END IF;
1027:
1028: -- Initialize API return status to success
1025: fnd_msg_pub.initialize;
1026: END IF;
1027:
1028: -- Initialize API return status to success
1029: x_return_status := fnd_api.g_ret_sts_success;
1030:
1031: IF ( l_debug = 1 ) THEN
1032: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
1033: print_debug('recsrc='||p_record_source ||' orgid='||p_organization_id||' lpnid='||p_lpn_id||' itemid='||p_inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, 4);
1067: , p_uom_code => p_uom_code
1068: , p_secondary_quantity => p_secondary_quantity
1069: , p_secondary_uom_code => p_secondary_uom_code );
1070:
1071: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: END IF;
1074: END IF;
1075: ELSIF ( p_record_source = 'MMTT' OR p_record_source = 'mmtt' ) THEN
1068: , p_secondary_quantity => p_secondary_quantity
1069: , p_secondary_uom_code => p_secondary_uom_code );
1070:
1071: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: END IF;
1074: END IF;
1075: ELSIF ( p_record_source = 'MMTT' OR p_record_source = 'mmtt' ) THEN
1076: l_progress := '300';
1111: fnd_message.set_token('uom1', mmtt_rec.transaction_uom);
1112: fnd_message.set_token('uom2', p_uom_code);
1113: fnd_message.set_token('module', l_api_name);
1114: fnd_msg_pub.ADD;
1115: RAISE FND_API.G_EXC_ERROR;
1116: END IF;
1117: ELSE
1118: l_line_quantity := mmtt_rec.transaction_quantity;
1119: END IF;
1173: fnd_message.set_token('uom1', mmtt_rec.transaction_uom);
1174: fnd_message.set_token('uom2', p_uom_code);
1175: fnd_message.set_token('module', l_api_name);
1176: fnd_msg_pub.ADD;
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179: ELSE
1180: l_line_quantity := mtlt_rec.transaction_quantity;
1181: END IF;
1200: FND_MESSAGE.SET_NAME('WMS','WMS_QTY_UPD_MISMATCH_ERROR');
1201: FND_MESSAGE.SET_TOKEN('QTY1', p_quantity);
1202: FND_MESSAGE.SET_TOKEN('QTY2', l_total_quantity);
1203: FND_MSG_PUB.ADD;
1204: RAISE FND_API.G_EXC_ERROR;
1205: END IF;
1206: END IF;
1207:
1208: l_progress := '800';
1206: END IF;
1207:
1208: l_progress := '800';
1209: -- End of API body
1210: IF fnd_api.to_boolean(p_commit) THEN
1211: COMMIT WORK;
1212: END IF;
1213:
1214: IF ( l_debug = 1 ) THEN
1225: END IF;
1226: END IF;
1227:
1228: ROLLBACK TO UPDATE_LPN_SECONDARY_QUANTITY;
1229: x_return_status := fnd_api.g_ret_sts_error;
1230: fnd_message.set_name('WMS', 'WMS_OTHERS_ERROR_CALL'||l_progress);
1231: fnd_msg_pub.ADD;
1232: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1233: END Update_LPN_Secondary_Quantity;
1234:
1235:
1236: FUNCTION Check_LPN_Secondary_Quantity (
1237: p_api_version IN NUMBER
1238: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1239: , x_return_status OUT NOCOPY VARCHAR2
1240: , x_msg_count OUT NOCOPY NUMBER
1241: , x_msg_data OUT NOCOPY VARCHAR2
1242: , p_organization_id IN NUMBER
1296: l_lot_control_code NUMBER;
1297: l_uom_conv_rate NUMBER;
1298: BEGIN
1299: -- Standard call to check for call compatibility.
1300: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1301: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1302: fnd_msg_pub.ADD;
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1299: -- Standard call to check for call compatibility.
1300: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1301: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1302: fnd_msg_pub.ADD;
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1305:
1306: -- Initialize message list if p_init_msg_list is set to TRUE.
1307: IF fnd_api.to_boolean(p_init_msg_list) THEN
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1305:
1306: -- Initialize message list if p_init_msg_list is set to TRUE.
1307: IF fnd_api.to_boolean(p_init_msg_list) THEN
1308: fnd_msg_pub.initialize;
1309: END IF;
1310:
1311: -- Initialize API return status to success
1308: fnd_msg_pub.initialize;
1309: END IF;
1310:
1311: -- Initialize API return status to success
1312: x_return_status := fnd_api.g_ret_sts_success;
1313:
1314: IF ( l_debug = 1 ) THEN
1315: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
1316: print_debug('orgid='||p_organization_id||' outerlpnid='||p_outermost_lpn_id, 4);
1326: WHEN NO_DATA_FOUND THEN
1327: IF ( l_debug = 1 ) THEN
1328: print_debug('Error Could not find outermost lpn', 1);
1329: END IF;
1330: RAISE FND_API.G_EXC_ERROR;
1331: WHEN OTHERS THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END;
1334:
1328: print_debug('Error Could not find outermost lpn', 1);
1329: END IF;
1330: RAISE FND_API.G_EXC_ERROR;
1331: WHEN OTHERS THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END;
1334:
1335: l_progress := '000';
1336: IF ( l_lpn_context = WMS_CONTAINER_PVT.LPN_CONTEXT_PICKED OR
1373: WHEN NO_DATA_FOUND THEN
1374: -- All the items in this lpn check out, continue
1375: NULL;
1376: WHEN OTHERS THEN
1377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1378: END;
1379:
1380: -- Check LPN that all catch weight enabled items that are defaultable and do not
1381: -- have sec qty defined have a valid uom conversion.
1428: WHEN NO_DATA_FOUND THEN
1429: IF ( l_debug = 1 ) THEN
1430: print_debug('Error: could not find item in MSI: orgid='||mmtt_item_rec.organization_id||' itemid='||mmtt_item_rec.inventory_item_id, 1);
1431: END IF;
1432: RAISE FND_API.G_EXC_ERROR;
1433: WHEN OTHERS THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END;
1436:
1430: print_debug('Error: could not find item in MSI: orgid='||mmtt_item_rec.organization_id||' itemid='||mmtt_item_rec.inventory_item_id, 1);
1431: END IF;
1432: RAISE FND_API.G_EXC_ERROR;
1433: WHEN OTHERS THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END;
1436:
1437: IF ( l_pricing_ind = G_PRICE_SECONDARY ) THEN
1438: -- If the item is not lot controlled, return to user that lpn still needs catch weight
1488: END IF;
1489:
1490: l_temp := 0;
1491: WHEN OTHERS THEN
1492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1493: END;
1494:
1495: -- If this lot item was found to not have catch weigth but can be defaulted
1496: -- Check UOM conversion to make sure it's valid
1553: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
1554: END IF;
1555: END IF;
1556:
1557: x_return_status := fnd_api.g_ret_sts_error;
1558: fnd_message.set_name('WMS', 'WMS_API_FAIL');
1559: fnd_msg_pub.ADD;
1560: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1561: END Check_LPN_Secondary_Quantity;
2198: l_progress := '10';
2199: print_debug(' out 2 Loop l_from_item_pri_qty => '||l_from_item_pri_qty,4);
2200: if (l_from_item_pri_qty IS NULL OR l_from_item_pri_qty = 0 ) THEN
2201: x_show_ct_wt := 0;
2202: x_return_status := fnd_api.g_ret_sts_success;
2203: RETURN;
2204: END IF;
2205:
2206: l_progress := '20';
2205:
2206: l_progress := '20';
2207: if (p_to_lpn_id IS NULL) THEN
2208: x_show_ct_wt := 1 ;
2209: x_return_status := fnd_api.g_ret_sts_success;
2210: RETURN;
2211: END IF;
2212: IF (p_to_lpn_id IS NOT NULL) THEN
2213: OPEN itemCur(p_to_lpn_id);
2223: print_debug('After Loop l_to_sec_qty => '||l_to_sec_qty,4);
2224:
2225: if (l_to_sec_qty IS NULL) THEN
2226: x_show_ct_wt := 0 ;
2227: x_return_status := fnd_api.g_ret_sts_success;
2228: RETURN;
2229: END IF;
2230:
2231: l_progress := '40';
2230:
2231: l_progress := '40';
2232: if (l_to_sec_qty = 0) THEN
2233: x_show_ct_wt := 1;
2234: x_return_status := fnd_api.g_ret_sts_success;
2235: RETURN;
2236: END IF;
2237: END IF;
2238: l_progress := '50';
2258: ELSE
2259: x_show_ct_wt := 0;
2260: END IF;
2261: l_progress := '70';
2262: x_return_status := fnd_api.g_ret_sts_success;
2263:
2264: EXCEPTION
2265: WHEN OTHERS THEN
2266: IF (l_debug = 1) THEN
2399:
2400: l_progress := '60';
2401: returnTolerance := Check_Secondary_Qty_Tolerance (
2402: p_api_version => 1
2403: , p_init_msg_list => fnd_api.g_false
2404: , x_return_status => x_return_status
2405: , x_msg_count => x_msg_count
2406: , x_msg_data => x_msg_data
2407: , p_organization_id => p_org_id
2432: END IS_CT_WT_SPLIT_VALID;
2433:
2434: FUNCTION VALIDATE_CT_WT_FOR_DELIVERYNUM(
2435: p_api_version IN NUMBER
2436: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2437: , x_return_status OUT NOCOPY VARCHAR2
2438: , x_msg_count OUT NOCOPY NUMBER
2439: , x_msg_data OUT NOCOPY VARCHAR2
2440: , p_org_id IN NUMBER
2475: BEGIN
2476:
2477:
2478: -- Standard call to check for call compatibility.
2479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
2481: fnd_msg_pub.ADD;
2482: RAISE fnd_api.g_exc_unexpected_error;
2483: END IF;
2478: -- Standard call to check for call compatibility.
2479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
2481: fnd_msg_pub.ADD;
2482: RAISE fnd_api.g_exc_unexpected_error;
2483: END IF;
2484:
2485: -- Initialize message list if p_init_msg_list is set to TRUE.
2486: IF fnd_api.to_boolean(p_init_msg_list) THEN
2482: RAISE fnd_api.g_exc_unexpected_error;
2483: END IF;
2484:
2485: -- Initialize message list if p_init_msg_list is set to TRUE.
2486: IF fnd_api.to_boolean(p_init_msg_list) THEN
2487: fnd_msg_pub.initialize;
2488: END IF;
2489:
2490: -- Initialize API return status to success
2487: fnd_msg_pub.initialize;
2488: END IF;
2489:
2490: -- Initialize API return status to success
2491: x_return_status := fnd_api.g_ret_sts_success;
2492:
2493:
2494: IF ( l_debug = 1 ) THEN
2495: print_debug(l_api_name || ' Entered ' || g_pkg_version, 1);
2559: IF ( SQLCODE IS NOT NULL ) THEN
2560: print_debug('SQL error: ' || SQLERRM(SQLCODE), 1);
2561: END IF;
2562: END IF;
2563: x_return_status := fnd_api.g_ret_sts_error;
2564: fnd_message.set_name('WMS', 'WMS_CALC_SEC_QTY_FAIL');
2565: fnd_msg_pub.ADD;
2566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2567: END VALIDATE_CT_WT_FOR_DELIVERYNUM;