[Home] [Help]
24: --
25: -- End of Comments
26:
27: PROCEDURE print_debug(p_message IN VARCHAR2) IS
28: --Bug 3559334 fix. Need not call the fnd_api again here since
29: --this procedure is invoked only if the Inv:Debug Trace is enabled
30: --l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31: BEGIN
32:
116: , p_cost_group_type_id => 3);
117: end if;
118:
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
123: p_data => x_msg_data);
124:
117: end if;
118:
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
123: p_data => x_msg_data);
124:
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
123: p_data => x_msg_data);
124:
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
127: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
128: p_data => x_msg_data);
129:
122: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
123: p_data => x_msg_data);
124:
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
127: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
128: p_data => x_msg_data);
129:
130: WHEN OTHERS THEN
127: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
128: p_data => x_msg_data);
129:
130: WHEN OTHERS THEN
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
133: FND_MSG_PUB.Add_Exc_Msg
134: ( G_PKG_NAME, 'INV_COST_GROUP_PUB');
135: END IF;
157: l_primary_cost_method NUMBER := 1 ;
158: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
159: BEGIN
160: SAVEPOINT Calculate_Transfer_Cost_SP;
161: x_return_status := fnd_api.g_ret_sts_success;
162:
163: IF ( l_debug = 1) THEN
164: print_debug('Calculate_Transfer_Cost : Entered with temp id:' ||p_mmtt_temp_id );
165: END IF;
238: ROLLBACK TO Calculate_Transfer_Cost_SP;
239: IF (l_debug = 1) THEN
240: print_debug('Calculate_Transfer_Cost :No Data found !!!! ');
241: END IF;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243:
244: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
245: p_data => x_msg_data);
246:
248: ROLLBACK TO Calculate_Transfer_Cost_SP;
249: IF (l_debug = 1) THEN
250: print_debug('Calculate_Transfer_Cost :Others Exception !!!! ');
251: END IF;
252: x_return_status := FND_API.G_RET_STS_ERROR;
253:
254: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
255: p_data => x_msg_data);
256: END Calculate_Transfer_Cost;
258:
259: PROCEDURE Assign_Cost_Group
260: (
261: p_api_version_number IN NUMBER
262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
263: , p_commit IN VARCHAR2 := FND_API.G_FALSE
264: , x_return_status OUT NOCOPY VARCHAR2
265: , x_msg_count OUT NOCOPY NUMBER
266: , x_msg_data OUT NOCOPY VARCHAR2
259: PROCEDURE Assign_Cost_Group
260: (
261: p_api_version_number IN NUMBER
262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
263: , p_commit IN VARCHAR2 := FND_API.G_FALSE
264: , x_return_status OUT NOCOPY VARCHAR2
265: , x_msg_count OUT NOCOPY NUMBER
266: , x_msg_data OUT NOCOPY VARCHAR2
267: , p_transaction_header_id IN NUMBER
288: SAVEPOINT assign_cost_group_hdr;
289:
290: g_failure_txn_temp_id := NULL; -- Bug 5214602
291:
292: x_return_status := fnd_api.g_ret_sts_success;
293: IF (l_debug = 1) THEN
294: print_debug('In assign cost group pass with header id ' || l_transaction_header_id);
295: END IF;
296:
324: x_transfer_cost_group_id => l_transfer_cost_Group_id);
325:
326: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
327: RAISE inv_comingle_error;
328: elsif( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) then
329: raise FND_API.G_EXC_UNEXPECTED_ERROR;
330: elsif( x_return_status = FND_API.G_RET_STS_ERROR ) then
331: raise FND_API.G_EXC_ERROR;
332: end if;
325:
326: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
327: RAISE inv_comingle_error;
328: elsif( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) then
329: raise FND_API.G_EXC_UNEXPECTED_ERROR;
330: elsif( x_return_status = FND_API.G_RET_STS_ERROR ) then
331: raise FND_API.G_EXC_ERROR;
332: end if;
333: END LOOP;
326: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
327: RAISE inv_comingle_error;
328: elsif( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) then
329: raise FND_API.G_EXC_UNEXPECTED_ERROR;
330: elsif( x_return_status = FND_API.G_RET_STS_ERROR ) then
331: raise FND_API.G_EXC_ERROR;
332: end if;
333: END LOOP;
334:
327: RAISE inv_comingle_error;
328: elsif( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) then
329: raise FND_API.G_EXC_UNEXPECTED_ERROR;
330: elsif( x_return_status = FND_API.G_RET_STS_ERROR ) then
331: raise FND_API.G_EXC_ERROR;
332: end if;
333: END LOOP;
334:
335: EXCEPTION
334:
335: EXCEPTION
336: WHEN inv_comingle_error THEN
337: ROLLBACK TO assign_cost_group_hdr;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: --Bug 5214602 : FP of 2879206
340: g_failure_txn_temp_id := g_current_txn_temp_id;
341: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
342: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
339: --Bug 5214602 : FP of 2879206
340: g_failure_txn_temp_id := g_current_txn_temp_id;
341: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
342: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
343: WHEN FND_API.G_EXC_ERROR THEN
344: ROLLBACK TO assign_cost_group_hdr;
345: x_return_status := FND_API.G_RET_STS_ERROR;
346: --Bug 5214602 : FP of 2879206
347: g_failure_txn_temp_id := g_current_txn_temp_id;
341: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
342: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
343: WHEN FND_API.G_EXC_ERROR THEN
344: ROLLBACK TO assign_cost_group_hdr;
345: x_return_status := FND_API.G_RET_STS_ERROR;
346: --Bug 5214602 : FP of 2879206
347: g_failure_txn_temp_id := g_current_txn_temp_id;
348: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
346: --Bug 5214602 : FP of 2879206
347: g_failure_txn_temp_id := g_current_txn_temp_id;
348: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: ROLLBACK TO assign_cost_group_hdr;
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
353: --Bug 5214602 : FP of 2879206
354: g_failure_txn_temp_id := g_current_txn_temp_id;
348: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: ROLLBACK TO assign_cost_group_hdr;
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
353: --Bug 5214602 : FP of 2879206
354: g_failure_txn_temp_id := g_current_txn_temp_id;
355: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
356: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
356: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
357:
358: WHEN OTHERS THEN
359: ROLLBACK TO assign_cost_group_hdr;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
361: --Bug 5214602 : FP of 2879206
362: g_failure_txn_temp_id := g_current_txn_temp_id;
363: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
364: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
429: -- even though they are LPN triggered transactions. We have to
430: -- account FOR them specifically
431: IF (p_mmtt_rec.inventory_item_id = -1) THEN
432:
433: x_return_status := fnd_api.g_ret_sts_success;
434: RETURN;
435:
436: -- Bug: 4959753: The WIP phantom items are not transactable items
437: -- but are still inserted into MMTT. No onhand or MMT is created for these items
442: (nvl(p_mmtt_rec.OPERATION_SEQ_NUM,1) < 0) AND (nvl(p_mmtt_rec.WIP_SUPPLY_TYPE,0) = 6)) THEN
443: IF (l_debug = 1) THEN
444: print_debug ('Phantom item, Hence skipping processing');
445: END IF;
446: x_return_status := fnd_api.g_ret_sts_success;
447: RETURN;
448:
449: -- If the transaction is a logical receipt or a logical delivery
450: -- adjustment, we will not go through the cost group logic. We will
489: WHERE transaction_temp_id = p_mmtt_rec.transaction_temp_id;
490:
491: print_debug('Return Status after update' ||x_return_status );
492:
493: x_return_status := fnd_api.g_ret_sts_success;
494: RETURN;
495:
496: ELSE
497: IF p_mmtt_rec.transaction_action_id IN (INV_Globals.G_Action_IntransitShipment,
521: END IF;
522: FND_MESSAGE.SET_NAME('INV', 'INV_FOB_NOT_DEFINED');
523: fnd_message.set_token('ENTITY1',p_mmtt_rec.organization_id );
524: FND_MSG_PUB.ADD;
525: RAISE FND_API.G_EXC_ERROR;
526: END IF;
527: EXCEPTION
528: WHEN NO_DATA_FOUND THEN
529: IF (l_debug = 1) THEN
531: END IF;
532: FND_MESSAGE.SET_NAME('INV', 'INV_FOB_NOT_DEFINED');
533: fnd_message.set_token('ENTITY1',p_mmtt_rec.organization_id );
534: FND_MSG_PUB.ADD;
535: RAISE FND_API.G_EXC_ERROR;
536: END;
537: END IF;-- l_fob_point is null
538: END IF;--actions
539:
580: WHEN OTHERS THEN
581: IF (l_debug = 1) THEN
582: print_debug('exception in getting to project: ' || Sqlerrm);
583: END IF;
584: RAISE fnd_api.g_exc_unexpected_error;
585: END;
586: ELSE
587: l_to_project_id := NULL;
588: END IF;
673: , x_msg_data => x_msg_data
674: , x_comingling_occurs => l_comingling_occurs
675: , p_mmtt_rec => p_mmtt_rec);
676:
677: IF x_return_status <> fnd_api.g_ret_sts_success THEN
678: RAISE fnd_api.g_exc_unexpected_error;
679: ELSIF l_comingling_occurs = 'Y' THEN
680: IF (l_debug = 1) THEN
681: print_debug('assign_cost_group comingling occurs : ' );
674: , x_comingling_occurs => l_comingling_occurs
675: , p_mmtt_rec => p_mmtt_rec);
676:
677: IF x_return_status <> fnd_api.g_ret_sts_success THEN
678: RAISE fnd_api.g_exc_unexpected_error;
679: ELSIF l_comingling_occurs = 'Y' THEN
680: IF (l_debug = 1) THEN
681: print_debug('assign_cost_group comingling occurs : ' );
682: END IF;
690:
691: END IF; -- IF (p_input_type = G_INPUT_MMTT) THEN
692: /****************Code added*********************/
693:
694: x_return_status := fnd_api.g_ret_sts_success;
695:
696: IF (l_debug = 1) THEN
697: print_debug('in inv_cost_group_pub.assign_cost_group');
698: print_debug('l_line_id : ' || l_line_id);
718: (x_return_status => x_return_status,
719: x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data,
721: p_organization_id => l_organization_id);
722: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
719: x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data,
721: p_organization_id => l_organization_id);
722: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
720: x_msg_data => x_msg_data,
721: p_organization_id => l_organization_id);
722: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728: IF (p_input_type = G_INPUT_MMTT) THEN
721: p_organization_id => l_organization_id);
722: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728: IF (p_input_type = G_INPUT_MMTT) THEN
729: l_cost_group_id := p_mmtt_rec.cost_group_id;
747: WHEN OTHERS THEN
748: IF (l_debug = 1) THEN
749: print_debug('exception in getting from project: ' || Sqlerrm);
750: END IF;
751: RAISE fnd_api.g_exc_unexpected_error;
752: END;
753: END IF;
754:
755: IF(p_mmtt_rec.transfer_to_location IS NOT NULL) then
763: WHEN OTHERS THEN
764: IF (l_debug = 1) THEN
765: print_debug('exception in getting to project: ' || Sqlerrm);
766: END IF;
767: RAISE fnd_api.g_exc_unexpected_error;
768: END;
769: END IF;
770:
771: IF (l_debug = 1) THEN
796: (x_return_status => x_return_status,
797: x_msg_count => x_msg_count,
798: x_msg_data => x_msg_data,
799: p_organization_id => l_transfer_organization_id);
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
797: x_msg_count => x_msg_count,
798: x_msg_data => x_msg_data,
799: p_organization_id => l_transfer_organization_id);
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
798: x_msg_data => x_msg_data,
799: p_organization_id => l_transfer_organization_id);
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: SELECT default_cost_group_id,
799: p_organization_id => l_transfer_organization_id);
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: SELECT default_cost_group_id,
807: primary_cost_method
819: WHEN OTHERS THEN
820: IF (l_debug = 1) THEN
821: print_debug('exception in getting from project: ' || Sqlerrm);
822: END IF;
823: RAISE fnd_api.g_exc_unexpected_error;
824: END;
825: END IF;
826:
827: IF( l_to_locator_id IS NOT NULL) then
837: WHEN OTHERS THEN
838: IF (l_debug = 1) THEN
839: print_debug('exception in getting to project: ' || Sqlerrm);
840: END IF;
841: RAISE fnd_api.g_exc_unexpected_error;
842: END;
843: END IF;
844:
845: IF (l_debug = 1) THEN
980: ' is ' || l_transfer_cost_group_id);
981: END IF;
982: EXCEPTION
983: WHEN no_data_found THEN
984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
985: l_transfer_cost_group_id := l_tfr_org_cost_group_id;
986: IF (l_debug = 1) THEN
987: print_debug('default cost group of org ' || p_mmtt_rec.transfer_organization ||
988: ' is ' || l_transfer_cost_group_id);
1071: print_debug('Calling the Rules Engine: ');
1072: END IF;
1073: wms_costgroupengine_pvt.assign_cost_group
1074: (p_api_version => 1.0,
1075: p_init_msg_list => fnd_api.g_false,
1076: p_commit => fnd_api.g_false,
1077: p_validation_level => fnd_api.g_valid_level_full,
1078: x_return_status => x_return_status,
1079: x_msg_count => x_msg_count,
1072: END IF;
1073: wms_costgroupengine_pvt.assign_cost_group
1074: (p_api_version => 1.0,
1075: p_init_msg_list => fnd_api.g_false,
1076: p_commit => fnd_api.g_false,
1077: p_validation_level => fnd_api.g_valid_level_full,
1078: x_return_status => x_return_status,
1079: x_msg_count => x_msg_count,
1080: x_msg_data => x_msg_data,
1073: wms_costgroupengine_pvt.assign_cost_group
1074: (p_api_version => 1.0,
1075: p_init_msg_list => fnd_api.g_false,
1076: p_commit => fnd_api.g_false,
1077: p_validation_level => fnd_api.g_valid_level_full,
1078: x_return_status => x_return_status,
1079: x_msg_count => x_msg_count,
1080: x_msg_data => x_msg_data,
1081: p_line_id => l_line_id,
1079: x_msg_count => x_msg_count,
1080: x_msg_data => x_msg_data,
1081: p_line_id => l_line_id,
1082: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
1083: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1084: IF (l_debug = 1) THEN
1085: print_debug('return error from wms_costgroupengine_pvt');
1086: END IF;
1087: RAISE fnd_api.g_exc_error;
1083: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1084: IF (l_debug = 1) THEN
1085: print_debug('return error from wms_costgroupengine_pvt');
1086: END IF;
1087: RAISE fnd_api.g_exc_error;
1088: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1089: IF (l_debug = 1) THEN
1090: print_debug('return unexpected error from wms_costgroupengine_pvt');
1091: END IF;
1084: IF (l_debug = 1) THEN
1085: print_debug('return error from wms_costgroupengine_pvt');
1086: END IF;
1087: RAISE fnd_api.g_exc_error;
1088: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1089: IF (l_debug = 1) THEN
1090: print_debug('return unexpected error from wms_costgroupengine_pvt');
1091: END IF;
1092: RAISE fnd_api.g_exc_unexpected_error;
1088: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1089: IF (l_debug = 1) THEN
1090: print_debug('return unexpected error from wms_costgroupengine_pvt');
1091: END IF;
1092: RAISE fnd_api.g_exc_unexpected_error;
1093: END IF;
1094:
1095: IF p_input_type = G_INPUT_MMTT THEN
1096: IF (l_debug = 1) THEN
1260: print_debug('before calling wms_costgroupengine_pvt for mtl_txn_request_lines record');
1261: END IF;
1262: wms_costgroupengine_pvt.assign_cost_group
1263: (p_api_version => 1.0,
1264: p_init_msg_list => fnd_api.g_false,
1265: p_commit => fnd_api.g_false,
1266: p_validation_level => fnd_api.g_valid_level_full,
1267: x_return_status => x_return_status,
1268: x_msg_count => x_msg_count,
1261: END IF;
1262: wms_costgroupengine_pvt.assign_cost_group
1263: (p_api_version => 1.0,
1264: p_init_msg_list => fnd_api.g_false,
1265: p_commit => fnd_api.g_false,
1266: p_validation_level => fnd_api.g_valid_level_full,
1267: x_return_status => x_return_status,
1268: x_msg_count => x_msg_count,
1269: x_msg_data => x_msg_data,
1262: wms_costgroupengine_pvt.assign_cost_group
1263: (p_api_version => 1.0,
1264: p_init_msg_list => fnd_api.g_false,
1265: p_commit => fnd_api.g_false,
1266: p_validation_level => fnd_api.g_valid_level_full,
1267: x_return_status => x_return_status,
1268: x_msg_count => x_msg_count,
1269: x_msg_data => x_msg_data,
1270: p_line_id => l_line_id,
1268: x_msg_count => x_msg_count,
1269: x_msg_data => x_msg_data,
1270: p_line_id => l_line_id,
1271: p_input_type => wms_costgroupengine_pvt.g_input_mtrl);
1272: IF (x_return_status = fnd_api.g_ret_sts_error) then
1273: IF (l_debug = 1) THEN
1274: print_debug('return error from wms_costgroupengine_pvt');
1275: END IF;
1276: RAISE fnd_api.g_exc_error;
1272: IF (x_return_status = fnd_api.g_ret_sts_error) then
1273: IF (l_debug = 1) THEN
1274: print_debug('return error from wms_costgroupengine_pvt');
1275: END IF;
1276: RAISE fnd_api.g_exc_error;
1277: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1278: IF (l_debug = 1) THEN
1279: print_debug('return unexpected error from wms_costgroupengine_pvt');
1280: END IF;
1273: IF (l_debug = 1) THEN
1274: print_debug('return error from wms_costgroupengine_pvt');
1275: END IF;
1276: RAISE fnd_api.g_exc_error;
1277: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1278: IF (l_debug = 1) THEN
1279: print_debug('return unexpected error from wms_costgroupengine_pvt');
1280: END IF;
1281: RAISE fnd_api.g_exc_unexpected_error;
1277: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1278: IF (l_debug = 1) THEN
1279: print_debug('return unexpected error from wms_costgroupengine_pvt');
1280: END IF;
1281: RAISE fnd_api.g_exc_unexpected_error;
1282: end if;
1283:
1284: IF (l_debug = 1) THEN
1285: print_debug('Setting from cost group as null ');
1295: print_debug('Calling Rules Engine : ');
1296: END IF;
1297: wms_costgroupengine_pvt.assign_cost_group
1298: (p_api_version => 1.0,
1299: p_init_msg_list => FND_API.G_FALSE,
1300: p_commit => FND_API.G_FALSE,
1301: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1302: x_return_status => x_return_Status,
1303: x_msg_count => x_msg_count,
1296: END IF;
1297: wms_costgroupengine_pvt.assign_cost_group
1298: (p_api_version => 1.0,
1299: p_init_msg_list => FND_API.G_FALSE,
1300: p_commit => FND_API.G_FALSE,
1301: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1302: x_return_status => x_return_Status,
1303: x_msg_count => x_msg_count,
1304: x_msg_data => x_msg_data,
1297: wms_costgroupengine_pvt.assign_cost_group
1298: (p_api_version => 1.0,
1299: p_init_msg_list => FND_API.G_FALSE,
1300: p_commit => FND_API.G_FALSE,
1301: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1302: x_return_status => x_return_Status,
1303: x_msg_count => x_msg_count,
1304: x_msg_data => x_msg_data,
1305: p_line_id => l_line_id,
1304: x_msg_data => x_msg_data,
1305: p_line_id => l_line_id,
1306: p_input_type => WMS_CostGroupEngine_PVT.G_INPUT_MMTT);
1307:
1308: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1309: IF (l_debug = 1) THEN
1310: print_debug('return error from wms_costgroupengine_pvt');
1311: END IF;
1312: RAISE fnd_api.g_exc_error;
1308: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1309: IF (l_debug = 1) THEN
1310: print_debug('return error from wms_costgroupengine_pvt');
1311: END IF;
1312: RAISE fnd_api.g_exc_error;
1313: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1314: IF (l_debug = 1) THEN
1315: print_debug('return unexpected error from wms_costgroupengine_pvt');
1316: END IF;
1309: IF (l_debug = 1) THEN
1310: print_debug('return error from wms_costgroupengine_pvt');
1311: END IF;
1312: RAISE fnd_api.g_exc_error;
1313: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1314: IF (l_debug = 1) THEN
1315: print_debug('return unexpected error from wms_costgroupengine_pvt');
1316: END IF;
1317: RAISE fnd_api.g_exc_unexpected_error;
1313: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1314: IF (l_debug = 1) THEN
1315: print_debug('return unexpected error from wms_costgroupengine_pvt');
1316: END IF;
1317: RAISE fnd_api.g_exc_unexpected_error;
1318: END IF;
1319:
1320: IF (l_debug = 1) THEN
1321: print_debug('Setting from cost group as null ');
1466: x_msg_count => x_msg_count,
1467: x_msg_data => x_msg_data);
1468: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1469: RAISE inv_comingle_error;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: RAISE FND_API.G_EXC_ERROR;
1472: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: END IF;
1467: x_msg_data => x_msg_data);
1468: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1469: RAISE inv_comingle_error;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: RAISE FND_API.G_EXC_ERROR;
1472: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: END IF;
1475: END IF;
1468: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1469: RAISE inv_comingle_error;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: RAISE FND_API.G_EXC_ERROR;
1472: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: END IF;
1475: END IF;
1476: -- Container transactions
1469: RAISE inv_comingle_error;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: RAISE FND_API.G_EXC_ERROR;
1472: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: END IF;
1475: END IF;
1476: -- Container transactions
1477: ELSIF (l_transaction_action_id = inv_globals.g_action_containerpack) OR
1493: x_msg_count => x_msg_count,
1494: x_msg_data => x_msg_data);
1495: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1496: RAISE inv_comingle_error;
1497: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1498: RAISE fnd_api.g_exc_error;
1499: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) then
1500: RAISE fnd_api.g_exc_unexpected_error;
1501: END IF;
1494: x_msg_data => x_msg_data);
1495: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1496: RAISE inv_comingle_error;
1497: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1498: RAISE fnd_api.g_exc_error;
1499: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) then
1500: RAISE fnd_api.g_exc_unexpected_error;
1501: END IF;
1502: END IF;
1495: if( x_return_status = INV_COST_GROUP_PVT.G_COMINGLE_ERROR ) then
1496: RAISE inv_comingle_error;
1497: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1498: RAISE fnd_api.g_exc_error;
1499: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) then
1500: RAISE fnd_api.g_exc_unexpected_error;
1501: END IF;
1502: END IF;
1503: ELSE
1496: RAISE inv_comingle_error;
1497: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) then
1498: RAISE fnd_api.g_exc_error;
1499: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) then
1500: RAISE fnd_api.g_exc_unexpected_error;
1501: END IF;
1502: END IF;
1503: ELSE
1504: -- Receipt transactions
1522: print_debug('Calling Rules Engine : ');
1523: END IF;
1524: wms_costgroupengine_pvt.assign_cost_group
1525: (p_api_version => 1.0,
1526: p_init_msg_list => FND_API.G_FALSE,
1527: p_commit => FND_API.G_FALSE,
1528: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1529: x_return_status => x_return_Status,
1530: x_msg_count => x_msg_count,
1523: END IF;
1524: wms_costgroupengine_pvt.assign_cost_group
1525: (p_api_version => 1.0,
1526: p_init_msg_list => FND_API.G_FALSE,
1527: p_commit => FND_API.G_FALSE,
1528: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1529: x_return_status => x_return_Status,
1530: x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data,
1524: wms_costgroupengine_pvt.assign_cost_group
1525: (p_api_version => 1.0,
1526: p_init_msg_list => FND_API.G_FALSE,
1527: p_commit => FND_API.G_FALSE,
1528: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1529: x_return_status => x_return_Status,
1530: x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data,
1532: p_line_id => l_line_id,
1531: x_msg_data => x_msg_data,
1532: p_line_id => l_line_id,
1533: p_input_type => WMS_CostGroupEngine_PVT.G_INPUT_MMTT);
1534:
1535: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1536: IF (l_debug = 1) THEN
1537: print_debug('return error from wms_costgroupengine_pvt');
1538: END IF;
1539: RAISE fnd_api.g_exc_error;
1535: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1536: IF (l_debug = 1) THEN
1537: print_debug('return error from wms_costgroupengine_pvt');
1538: END IF;
1539: RAISE fnd_api.g_exc_error;
1540: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1541: IF (l_debug = 1) THEN
1542: print_debug('return unexpected error from wms_costgroupengine_pvt');
1543: END IF;
1536: IF (l_debug = 1) THEN
1537: print_debug('return error from wms_costgroupengine_pvt');
1538: END IF;
1539: RAISE fnd_api.g_exc_error;
1540: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1541: IF (l_debug = 1) THEN
1542: print_debug('return unexpected error from wms_costgroupengine_pvt');
1543: END IF;
1544: RAISE fnd_api.g_exc_unexpected_error;
1540: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1541: IF (l_debug = 1) THEN
1542: print_debug('return unexpected error from wms_costgroupengine_pvt');
1543: END IF;
1544: RAISE fnd_api.g_exc_unexpected_error;
1545: END IF;
1546: END IF;
1547: END IF;
1548: ELSIF (p_input_type = g_input_moline) THEN
1551: END IF;
1552: wms_costgroupengine_pvt.assign_cost_group
1553: (
1554: p_api_version => 1.0,
1555: p_init_msg_list => fnd_api.g_false,
1556: p_commit => fnd_api.g_false,
1557: p_validation_level => fnd_api.g_valid_level_full,
1558: x_return_status => x_return_status,
1559: x_msg_count => x_msg_count,
1552: wms_costgroupengine_pvt.assign_cost_group
1553: (
1554: p_api_version => 1.0,
1555: p_init_msg_list => fnd_api.g_false,
1556: p_commit => fnd_api.g_false,
1557: p_validation_level => fnd_api.g_valid_level_full,
1558: x_return_status => x_return_status,
1559: x_msg_count => x_msg_count,
1560: x_msg_data => x_msg_data,
1553: (
1554: p_api_version => 1.0,
1555: p_init_msg_list => fnd_api.g_false,
1556: p_commit => fnd_api.g_false,
1557: p_validation_level => fnd_api.g_valid_level_full,
1558: x_return_status => x_return_status,
1559: x_msg_count => x_msg_count,
1560: x_msg_data => x_msg_data,
1561: p_line_id => l_line_id,
1559: x_msg_count => x_msg_count,
1560: x_msg_data => x_msg_data,
1561: p_line_id => l_line_id,
1562: p_input_type => wms_costgroupengine_pvt.g_input_mtrl);
1563: IF (x_return_status = fnd_api.g_ret_sts_error) then
1564: IF (l_debug = 1) THEN
1565: print_debug('return error from wms_costgroupengine_pvt');
1566: END IF;
1567: RAISE fnd_api.g_exc_error;
1563: IF (x_return_status = fnd_api.g_ret_sts_error) then
1564: IF (l_debug = 1) THEN
1565: print_debug('return error from wms_costgroupengine_pvt');
1566: END IF;
1567: RAISE fnd_api.g_exc_error;
1568: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1569: IF (l_debug = 1) THEN
1570: print_debug('return unexpected error from wms_costgroupengine_pvt');
1571: END IF;
1564: IF (l_debug = 1) THEN
1565: print_debug('return error from wms_costgroupengine_pvt');
1566: END IF;
1567: RAISE fnd_api.g_exc_error;
1568: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1569: IF (l_debug = 1) THEN
1570: print_debug('return unexpected error from wms_costgroupengine_pvt');
1571: END IF;
1572: RAISE fnd_api.g_exc_unexpected_error;
1568: elsif( x_return_status = fnd_api.g_ret_sts_unexp_error) then
1569: IF (l_debug = 1) THEN
1570: print_debug('return unexpected error from wms_costgroupengine_pvt');
1571: END IF;
1572: RAISE fnd_api.g_exc_unexpected_error;
1573: end if;
1574:
1575: x_cost_group_id := NULL;
1576: x_transfer_cost_group_id := NULL;
1605: , x_return_status => x_return_status
1606: , x_msg_count => x_msg_count
1607: , x_msg_data => x_msg_data );
1608:
1609: IF ( x_return_status <> FND_API.g_ret_sts_success ) THEN
1610: IF (l_debug = 1) THEN
1611: print_debug('Error while executing Calculate_transfer_cost : ' );
1612: END IF;
1613: RAISE FND_API.G_EXC_ERROR;
1609: IF ( x_return_status <> FND_API.g_ret_sts_success ) THEN
1610: IF (l_debug = 1) THEN
1611: print_debug('Error while executing Calculate_transfer_cost : ' );
1612: END IF;
1613: RAISE FND_API.G_EXC_ERROR;
1614: END IF;
1615: END IF ; --End of Bug#6343400
1616: END IF;
1617:
1616: END IF;
1617:
1618: EXCEPTION
1619: WHEN inv_comingle_error THEN
1620: x_return_status := FND_API.G_RET_STS_ERROR;
1621: ROLLBACK TO assign_cost_group;
1622: --Bug 5214602 : FP of 2879206
1623: g_failure_txn_temp_id := g_current_txn_temp_id;
1624: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1627: --fnd_message.set_name('INV', 'INV_COMINGLE_ERROR');
1628: --fnd_msg_pub.add;
1629: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1630:
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: --Bug 5214602 : FP of 2879206
1633: g_failure_txn_temp_id := g_current_txn_temp_id;
1634: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: --Bug 5214602 : FP of 2879206
1633: g_failure_txn_temp_id := g_current_txn_temp_id;
1634: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1636: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1637:
1638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1639: --Bug 5214602 : FP of 2879206
1634: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1636: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1637:
1638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1639: --Bug 5214602 : FP of 2879206
1640: g_failure_txn_temp_id := g_current_txn_temp_id;
1641: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1639: --Bug 5214602 : FP of 2879206
1640: g_failure_txn_temp_id := g_current_txn_temp_id;
1641: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1643: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1644:
1645: WHEN OTHERS THEN
1646: --Bug 5214602 : FP of 2879206
1645: WHEN OTHERS THEN
1646: --Bug 5214602 : FP of 2879206
1647: g_failure_txn_temp_id := g_current_txn_temp_id;
1648: print_debug('Failed Txn Temp Id : ' || g_failure_txn_temp_id );
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1650: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1651: FND_MSG_PUB.Add_Exc_Msg
1652: ( G_PKG_NAME, 'INV_COST_GROUP_PVT');
1653: end if;
1747: GROUP BY ccg.cost_group_id, ccg.cost_group;
1748: END IF;
1749: END IF;
1750:
1751: x_return_status := FND_API.g_ret_sts_success;
1752:
1753: EXCEPTION
1754: WHEN too_many_rows THEN
1755: FND_MESSAGE.SET_NAME('WMS', 'WMS_COMMINGLE_EXISTS'); /*bug#2795266*/
1753: EXCEPTION
1754: WHEN too_many_rows THEN
1755: FND_MESSAGE.SET_NAME('WMS', 'WMS_COMMINGLE_EXISTS'); /*bug#2795266*/
1756: FND_MSG_PUB.ADD;
1757: x_return_status := FND_API.g_ret_sts_error;
1758: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1759: p_data => x_msg_data);
1760:
1761: WHEN NO_DATA_FOUND THEN
1758: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1759: p_data => x_msg_data);
1760:
1761: WHEN NO_DATA_FOUND THEN
1762: x_return_status := FND_API.g_ret_sts_success;
1763: /* BUG 2657862
1764: In this Procedure ,the costgroup is taken from the MOQD
1765: If there is no system quantity ,then this procedure will fails.
1766: So if no record is there ,we need to return sucess and transaction Manager
1769: x_cost_group_id :=NULL;
1770: x_cost_group :=NULL;
1771:
1772: WHEN OTHERS THEN
1773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1774: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1775: p_data => x_msg_data);
1776: END get_cost_group;
1777: