68: print_debug('in proc_update_mmtt .. p_cost_group_id : '|| p_cost_group_id );
69: print_debug('in proc_update_mmtt .. p_transaction_action_id : '|| p_transaction_action_id );
70: print_debug('in proc_update_mmtt .. p_transfer_organization : '|| p_transfer_organization );
71: END IF;
72: x_return_status := fnd_api.g_ret_sts_success;
73:
74: IF p_transaction_action_id IN (inv_globals.g_action_subxfr,
75: inv_globals.g_action_stgxfr,
76: inv_globals.g_action_ownxfr)
118: primary_quantity = Nvl(p_primary_quantity, primary_quantity),
119: transaction_quantity = Nvl(p_transaction_quantity, transaction_quantity)
120: WHERE transaction_temp_id = p_transaction_temp_id;
121: IF (SQL%NOTFOUND )THEN
122: x_return_status := FND_API.G_RET_STS_ERROR ;
123: fnd_message.set_name('INV', 'INV_UPDATE_ERROR');
124: fnd_message.set_token('ENTITY1', 'mtl_material_transactions_temp');
125: -- MESSAGE_TEXT = "Error Updating ENTITY1 "
126: fnd_msg_pub.add;
129: END IF;
130: END IF;
131:
132: EXCEPTION
133: WHEN FND_API.G_EXC_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: IF (l_debug = 1) THEN
136: print_debug('proc_update_mmtt .. EXCEP G_EXC_ERROR : ' );
137: END IF;
130: END IF;
131:
132: EXCEPTION
133: WHEN FND_API.G_EXC_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: IF (l_debug = 1) THEN
136: print_debug('proc_update_mmtt .. EXCEP G_EXC_ERROR : ' );
137: END IF;
138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: IF (l_debug = 1) THEN
136: print_debug('proc_update_mmtt .. EXCEP G_EXC_ERROR : ' );
137: END IF;
138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
140: IF (l_debug = 1) THEN
141: print_debug('proc_update_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
142: END IF;
135: IF (l_debug = 1) THEN
136: print_debug('proc_update_mmtt .. EXCEP G_EXC_ERROR : ' );
137: END IF;
138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
140: IF (l_debug = 1) THEN
141: print_debug('proc_update_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
142: END IF;
143: WHEN OTHERS THEN
140: IF (l_debug = 1) THEN
141: print_debug('proc_update_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
142: END IF;
143: WHEN OTHERS THEN
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: IF (l_debug = 1) THEN
146: print_debug('proc_update_mmtt .. UNEXCEP OTHERS : ' );
147: END IF;
148: END proc_update_mmtt ;
162: print_debug('in proc_update_msnt .. p_from_serial_number: '|| p_from_serial_number);
163: print_debug('in proc_update_msnt .. p_to_serial_number: '|| p_to_serial_number);
164: END IF;
165:
166: x_return_status := fnd_api.g_ret_sts_success;
167:
168: UPDATE mtl_serial_numbers_temp
169: SET
170: transaction_temp_id = p_new_transaction_temp_id,
172: to_serial_number = p_to_serial_number
173: WHERE ROWID = p_rowid;
174:
175: IF (SQL%NOTFOUND) THEN
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: fnd_message.set_name('INV', 'INV_UPDATE_ERROR');
178: fnd_message.set_token('ENTITY1', 'MTL_SERIAL_NUMBERS_TEMP');
179: -- MESSAGE_TEXT = "Error Updating ENTITY1 "
180: fnd_msg_pub.add;
184: END IF;
185:
186: EXCEPTION
187: WHEN OTHERS THEN
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
189: IF (l_debug = 1) THEN
190: print_debug('proc_update_msnt .. UNEXCEP OTHERS : ');
191: END IF;
192: END proc_update_msnt;
210: print_debug('in proc_update_mtlt .. p_transaction_quantity: '|| p_transaction_quantity);
211: print_debug('in proc_update_mtlt .. p_new_serial_trx_temp_id: '|| p_new_serial_trx_temp_id);
212: END IF;
213:
214: x_return_status := fnd_api.g_ret_sts_success;
215:
216: UPDATE mtl_transaction_lots_temp
217: SET
218: transaction_temp_id = p_new_transaction_temp_id,
222: serial_transaction_temp_id = p_new_serial_trx_temp_id
223: WHERE ROWID = p_rowid;
224:
225: IF (SQL%NOTFOUND) THEN
226: x_return_status := FND_API.G_RET_STS_ERROR ;
227: fnd_message.set_name('INV', 'INV_UPDATE_ERROR');
228: fnd_message.set_token('ENTITY1', 'MTL_LOT_NUMBERS_TEMP');
229: -- MESSAGE_TEXT = "Error Updating ENTITY1 "
230: fnd_msg_pub.add;
234: END IF;
235:
236: EXCEPTION
237: WHEN OTHERS THEN
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
239: IF (l_debug = 1) THEN
240: print_debug('proc_update_mtlt .. UNEXCEP OTHERS : ');
241: END IF;
242: END proc_update_mtlt;
391: l_negative_balances_allowed NUMBER;
392: l_override_neg_for_backflush NUMBER := 0;
393: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
394:
395: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
396: l_msg_data VARCHAR2(255) := NULL;
397: l_msg_count NUMBER;
398: l_cost_group_id NUMBER;
399:
397: l_msg_count NUMBER;
398: l_cost_group_id NUMBER;
399:
400: BEGIN
401: x_return_status := fnd_api.g_ret_sts_success;
402:
403: SELECT primary_cost_method, negative_inv_receipt_code
404: INTO l_primary_cost_method, l_negative_balances_allowed
405: FROM mtl_parameters
451: print_debug('get_cg_for_neg_onhand ret l_return_status '||l_return_status);
452: print_debug('get_cg_for_neg_onhand ret l_cost_group_id '||l_cost_group_id);
453: END IF;
454:
455: IF l_return_status <> fnd_api.g_ret_sts_success THEN
456: IF (l_debug = 1) THEN
457: print_debug('get_cg_for_neg_onhand ret l_msg_data '||l_msg_data);
458: END IF;
459: RAISE FND_API.G_EXC_ERROR;
455: IF l_return_status <> fnd_api.g_ret_sts_success THEN
456: IF (l_debug = 1) THEN
457: print_debug('get_cg_for_neg_onhand ret l_msg_data '||l_msg_data);
458: END IF;
459: RAISE FND_API.G_EXC_ERROR;
460:
461: ELSIF (l_return_status = fnd_api.g_ret_sts_success) AND
462: (l_cost_group_id IS NOT NULL) THEN
463:
457: print_debug('get_cg_for_neg_onhand ret l_msg_data '||l_msg_data);
458: END IF;
459: RAISE FND_API.G_EXC_ERROR;
460:
461: ELSIF (l_return_status = fnd_api.g_ret_sts_success) AND
462: (l_cost_group_id IS NOT NULL) THEN
463:
464: IF valid_cost_group(p_cost_group_id => l_cost_group_id,
465: p_organization_id => p_organization_id) THEN
467: ELSE
468: IF (l_debug = 1) THEN
469: print_debug('Invalid cost group returned from inv_user_cost_group.get_cg_for_neg_onhand');
470: END IF;
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473: --2690948 Bug fix
474:
475: ELSE
504: END IF;
505: END IF;
506: END IF;
507: ELSIF l_negative_balances_allowed = 2 THEN -- Negative balances are not allowed
508: x_return_status := FND_API.G_RET_STS_ERROR ;
509: fnd_message.set_name('INV', 'INV_ZERO_ONHAND');
510: fnd_msg_pub.add;
511: END IF;
512: EXCEPTION
510: fnd_msg_pub.add;
511: END IF;
512: EXCEPTION
513: WHEN no_data_found THEN
514: x_return_status := FND_API.G_RET_STS_ERROR ;
515: fnd_message.set_name('INV', 'INV_ZERO_ONHAND');
516: fnd_msg_pub.add;
517: IF (l_debug = 1) THEN
518: print_debug('proc_get_default_costgroup .. no_data_found' );
538: BEGIN
539: IF (l_debug = 1) THEN
540: print_debug('In proc_get_pending_costgroup... ');
541: END IF;
542: x_return_status := fnd_api.g_ret_sts_success;
543:
544: IF p_serial_number IS NULL THEN
545: IF (l_debug = 1) THEN
546: print_debug('In proc_get_pending_costgroup...No Control ');
764: IF (l_debug = 1) THEN
765: print_debug('proc_get_pendingcostgroup...cg is null or cg is zero for pending txn :x_cost_group_id' || x_cost_group_id);
766: print_debug('returning error to call proc_get_default_costgroup() api..');
767: END IF;
768: x_return_status := FND_API.G_RET_STS_ERROR ; --8715706
769: ELSE
770: IF (l_debug = 1) THEN
771: print_debug('proc_get_pendingcostgroup... Returning success with CG:'|| x_cost_group_id);
772: END IF;
769: ELSE
770: IF (l_debug = 1) THEN
771: print_debug('proc_get_pendingcostgroup... Returning success with CG:'|| x_cost_group_id);
772: END IF;
773: x_return_status := FND_API.g_ret_sts_success;
774: END IF;
775:
776: EXCEPTION
777: WHEN no_data_found THEN
774: END IF;
775:
776: EXCEPTION
777: WHEN no_data_found THEN
778: x_return_status := FND_API.G_RET_STS_ERROR ;
779: fnd_message.set_name('INV', 'INV_ZERO_ONHAND');
780: fnd_msg_pub.add;
781: IF (l_debug = 1) THEN
782: print_debug('proc_get_pending_costgroup .. no_data_found' );
781: IF (l_debug = 1) THEN
782: print_debug('proc_get_pending_costgroup .. no_data_found' );
783: END IF;
784: WHEN OTHERS THEN
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
786: IF (l_debug = 1) THEN
787: print_debug('proc_get_pending_costgroup .. UNEXCEP OTHERS : ' );
788: END IF;
789: END proc_get_pending_costgroup;
819: print_debug('p_lpn_id'||p_lpn_id);
820: print_debug('p_transaction_action_id'||p_transaction_action_id);
821: END IF;
822:
823: x_return_status := fnd_api.g_ret_sts_success;
824: IF p_lpn_id IS NULL THEN
825: IF p_serial_number IS NULL THEN
826: SELECT moq.cost_group_id -- Loose material, no serial control
827: INTO x_cost_group_id
933: ELSE
934: IF (l_debug = 1) THEN
935: print_debug('proc_get_costgroup... Returning success with CG:'|| x_cost_group_id);
936: END IF;
937: x_return_status := FND_API.g_ret_sts_success;
938: END IF;
939:
940: EXCEPTION
941: WHEN FND_API.G_EXC_ERROR THEN
937: x_return_status := FND_API.g_ret_sts_success;
938: END IF;
939:
940: EXCEPTION
941: WHEN FND_API.G_EXC_ERROR THEN
942: IF (l_debug = 1) THEN
943: print_debug('proc_get_costgroup .. EXCEP G_EXC_ERROR : ' );
944: END IF;
945: x_return_status := FND_API.G_RET_STS_ERROR ;
941: WHEN FND_API.G_EXC_ERROR THEN
942: IF (l_debug = 1) THEN
943: print_debug('proc_get_costgroup .. EXCEP G_EXC_ERROR : ' );
944: END IF;
945: x_return_status := FND_API.G_RET_STS_ERROR ;
946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
947: IF (l_debug = 1) THEN
948: print_debug('proc_get_costgroup .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
949: END IF;
942: IF (l_debug = 1) THEN
943: print_debug('proc_get_costgroup .. EXCEP G_EXC_ERROR : ' );
944: END IF;
945: x_return_status := FND_API.G_RET_STS_ERROR ;
946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
947: IF (l_debug = 1) THEN
948: print_debug('proc_get_costgroup .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
949: END IF;
950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
947: IF (l_debug = 1) THEN
948: print_debug('proc_get_costgroup .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
949: END IF;
950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
951: WHEN no_data_found THEN
952: IF (l_debug = 1) THEN
953: print_debug('proc_get_costgroup .. No data found in MOQ, checking MMTT' );
954: END IF;
964: p_transaction_action_id => p_transaction_action_id,
965: x_cost_group_id => x_cost_group_id,
966: x_return_status => x_return_status);
967: WHEN OTHERS THEN
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
969: IF (l_debug = 1) THEN
970: print_debug('proc_get_costgroup .. UNEXCEP OTHERS : ' );
971: END IF;
972:
1010: print_debug('proc_get_costgroup returned ' || x_return_status);
1011: END IF;
1012:
1013: IF x_return_status = g_corrupt_cg_error THEN
1014: x_return_status := fnd_api.g_ret_sts_error;
1015: ELSIF x_return_status <> fnd_api.g_ret_sts_success THEN
1016: proc_get_default_costgroup(p_organization_id => p_organization_id,
1017: p_inventory_item_id => p_inventory_item_id,
1018: p_subinventory_code => p_subinventory_code,
1011: END IF;
1012:
1013: IF x_return_status = g_corrupt_cg_error THEN
1014: x_return_status := fnd_api.g_ret_sts_error;
1015: ELSIF x_return_status <> fnd_api.g_ret_sts_success THEN
1016: proc_get_default_costgroup(p_organization_id => p_organization_id,
1017: p_inventory_item_id => p_inventory_item_id,
1018: p_subinventory_code => p_subinventory_code,
1019: p_locator_id => p_locator_id,
1040: IS
1041: l_api_name CONSTANT VARCHAR2(100) := 'proc_insert_msnt';
1042: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1043: BEGIN
1044: x_return_status := fnd_api.g_ret_sts_success;
1045: SAVEPOINT sp_proc_insert_msnt;
1046: IF (l_debug = 1) THEN
1047: print_debug('proc_insert_msnt.. FSN: ' || p_from_serial_number);
1048: print_debug('proc_insert_msnt.. TSN: ' || p_to_serial_number);
1221: IF (l_debug = 1) THEN
1222: print_debug( 'proc_insert_msnt .. EXCEP others : ' );
1223: END IF;
1224: ROLLBACK TO sp_proc_insert_msnt;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: END proc_insert_msnt;
1227: --
1228: PROCEDURE proc_insert_mtlt (p_mtlt_rec IN cur_mtlt%ROWTYPE,
1229: p_new_txn_temp_id IN NUMBER,
1233: x_return_status OUT NOCOPY VARCHAR2)
1234: IS
1235: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1236: BEGIN
1237: x_return_status := fnd_api.g_ret_sts_success;
1238: SAVEPOINT sp_proc_insert_mtlt;
1239:
1240: IF (l_debug = 1) THEN
1241: print_debug( 'proc_insert_mtlt ..p_new_txn_temp_id :'|| p_new_txn_temp_id );
1439: IF (l_debug = 1) THEN
1440: print_debug( 'proc_insert_mtlt .. EXCEP others : ' );
1441: END IF;
1442: ROLLBACK TO sp_proc_insert_mtlt;
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444: END proc_insert_mtlt;
1445: --
1446: PROCEDURE proc_insert_mmtt(p_mmtt_rec IN mtl_material_transactions_temp%ROWTYPE,
1447: p_transfer_wms_org IN BOOLEAN,
1464: l_msg_count NUMBER := NULL;
1465:
1466: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1467: BEGIN
1468: x_return_status := fnd_api.g_ret_sts_success;
1469: IF (l_debug = 1) THEN
1470: print_debug( 'Begin proc_insert_mmtt: action_id: ' || p_mmtt_rec.transaction_action_id );
1471: END IF;
1472: SAVEPOINT sp_proc_insert_mmtt;
1987: , x_msg_data => L_msg_data
1988: , x_comingling_occurs => l_comingling_occurs
1989: , p_transaction_temp_id => p_mmtt_rec.transaction_temp_id);
1990:
1991: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1992: RAISE fnd_api.g_exc_unexpected_error;
1993: ELSIF l_comingling_occurs = 'Y' THEN
1994: IF (l_debug = 1) THEN
1995: print_debug('proc_insert_mmtt .. comigling occurs : ' );
1988: , x_comingling_occurs => l_comingling_occurs
1989: , p_transaction_temp_id => p_mmtt_rec.transaction_temp_id);
1990:
1991: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1992: RAISE fnd_api.g_exc_unexpected_error;
1993: ELSIF l_comingling_occurs = 'Y' THEN
1994: IF (l_debug = 1) THEN
1995: print_debug('proc_insert_mmtt .. comigling occurs : ' );
1996: END IF;
2001: x_return_status := inv_cost_group_pvt.g_comingle_error;
2002: END IF;
2003:
2004: EXCEPTION
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR ;
2007: IF (l_debug = 1) THEN
2008: print_debug('proc_insert_mmtt .. EXCEP G_EXC_ERROR : ' );
2009: END IF;
2002: END IF;
2003:
2004: EXCEPTION
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR ;
2007: IF (l_debug = 1) THEN
2008: print_debug('proc_insert_mmtt .. EXCEP G_EXC_ERROR : ' );
2009: END IF;
2010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR ;
2007: IF (l_debug = 1) THEN
2008: print_debug('proc_insert_mmtt .. EXCEP G_EXC_ERROR : ' );
2009: END IF;
2010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2012: IF (l_debug = 1) THEN
2013: print_debug('proc_insert_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2014: END IF;
2007: IF (l_debug = 1) THEN
2008: print_debug('proc_insert_mmtt .. EXCEP G_EXC_ERROR : ' );
2009: END IF;
2010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2012: IF (l_debug = 1) THEN
2013: print_debug('proc_insert_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2014: END IF;
2015: WHEN OTHERS THEN
2012: IF (l_debug = 1) THEN
2013: print_debug('proc_insert_mmtt .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2014: END IF;
2015: WHEN OTHERS THEN
2016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2017: IF (l_debug = 1) THEN
2018: print_debug('proc_insert_mmtt .. EXCEP others: ' || SQLERRM(SQLCODE) );
2019: END IF;
2020: END proc_insert_mmtt;
2037: l_onhand_exists BOOLEAN := TRUE;
2038: l_is_backflush_txn BOOLEAN := FALSE;
2039: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2040: BEGIN
2041: x_return_status := fnd_api.g_ret_sts_success;
2042: IF (l_debug = 1) THEN
2043: print_debug( 'in proc_process_nocontrol p_mmtt_rec.transaction_temp_id:' || p_mmtt_rec.transaction_temp_id || ':');
2044: print_debug( '1: '||p_mmtt_rec.organization_id || ':');
2045: print_debug( '2: '||p_mmtt_rec.inventory_item_id || ':');
2082: print_debug('Getting transfer cost group id from rules engine...: ');
2083: END IF;
2084: wms_costgroupengine_pvt.assign_cost_group
2085: (p_api_version => 1.0,
2086: p_init_msg_list => FND_API.G_FALSE,
2087: p_commit => FND_API.G_FALSE,
2088: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2089: x_return_status => x_return_Status,
2090: x_msg_count => x_msg_count,
2083: END IF;
2084: wms_costgroupengine_pvt.assign_cost_group
2085: (p_api_version => 1.0,
2086: p_init_msg_list => FND_API.G_FALSE,
2087: p_commit => FND_API.G_FALSE,
2088: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2089: x_return_status => x_return_Status,
2090: x_msg_count => x_msg_count,
2091: x_msg_data => x_msg_data,
2084: wms_costgroupengine_pvt.assign_cost_group
2085: (p_api_version => 1.0,
2086: p_init_msg_list => FND_API.G_FALSE,
2087: p_commit => FND_API.G_FALSE,
2088: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2089: x_return_status => x_return_Status,
2090: x_msg_count => x_msg_count,
2091: x_msg_data => x_msg_data,
2092: p_line_id => p_mmtt_rec.transaction_temp_id,
2091: x_msg_data => x_msg_data,
2092: p_line_id => p_mmtt_rec.transaction_temp_id,
2093: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
2094:
2095: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2096: IF (l_debug = 1) THEN
2097: print_debug('return error from wms_costgroupengine_pvt');
2098: END IF;
2099: RAISE FND_API.G_EXC_ERROR;
2095: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2096: IF (l_debug = 1) THEN
2097: print_debug('return error from wms_costgroupengine_pvt');
2098: END IF;
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: IF (l_debug = 1) THEN
2102: print_debug('return unexpected error from wms_costgroupengine_pvt');
2103: END IF;
2096: IF (l_debug = 1) THEN
2097: print_debug('return error from wms_costgroupengine_pvt');
2098: END IF;
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: IF (l_debug = 1) THEN
2102: print_debug('return unexpected error from wms_costgroupengine_pvt');
2103: END IF;
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: IF (l_debug = 1) THEN
2102: print_debug('return unexpected error from wms_costgroupengine_pvt');
2103: END IF;
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: END IF;
2108: ELSIF (p_mmtt_rec.transaction_source_type_id = inv_globals.g_sourcetype_salesorder
2163: IF (l_debug = 1) THEN
2164: print_debug('proc_determine_costgroup return : ' || x_return_status);
2165: print_debug('proc_determine_costgroup cg : ' || l_cost_group_id);
2166: END IF;
2167: IF (x_return_status = fnd_api.g_ret_sts_error)
2168: THEN
2169: RAISE fnd_api.g_exc_error ;
2170: END IF;
2171:
2165: print_debug('proc_determine_costgroup cg : ' || l_cost_group_id);
2166: END IF;
2167: IF (x_return_status = fnd_api.g_ret_sts_error)
2168: THEN
2169: RAISE fnd_api.g_exc_error ;
2170: END IF;
2171:
2172: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2173: THEN
2168: THEN
2169: RAISE fnd_api.g_exc_error ;
2170: END IF;
2171:
2172: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2173: THEN
2174: RAISE fnd_api.g_exc_unexpected_error ;
2175: END IF;
2176:
2170: END IF;
2171:
2172: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2173: THEN
2174: RAISE fnd_api.g_exc_unexpected_error ;
2175: END IF;
2176:
2177: IF (l_debug = 1) THEN
2178: print_debug('call :proc_update_mmtt :p_transaction_temp_id: ' || p_mmtt_rec.transaction_temp_id);
2197:
2198: IF (l_debug = 1) THEN
2199: print_debug('proc_update_mmtt return : ' || x_return_status);
2200: END IF;
2201: IF (x_return_status = fnd_api.g_ret_sts_error)
2202: THEN
2203: RAISE fnd_api.g_exc_error ;
2204: END IF;
2205:
2199: print_debug('proc_update_mmtt return : ' || x_return_status);
2200: END IF;
2201: IF (x_return_status = fnd_api.g_ret_sts_error)
2202: THEN
2203: RAISE fnd_api.g_exc_error ;
2204: END IF;
2205:
2206: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2207: THEN
2202: THEN
2203: RAISE fnd_api.g_exc_error ;
2204: END IF;
2205:
2206: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2207: THEN
2208: RAISE fnd_api.g_exc_unexpected_error ;
2209: END IF;
2210: END IF; -- Onhand exists
2204: END IF;
2205:
2206: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2207: THEN
2208: RAISE fnd_api.g_exc_unexpected_error ;
2209: END IF;
2210: END IF; -- Onhand exists
2211:
2212: EXCEPTION
2209: END IF;
2210: END IF; -- Onhand exists
2211:
2212: EXCEPTION
2213: WHEN FND_API.G_EXC_ERROR THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR ;
2215: IF (l_debug = 1) THEN
2216: print_debug('no process control .. EXCEP G_EXC_ERROR : ' );
2217: END IF;
2210: END IF; -- Onhand exists
2211:
2212: EXCEPTION
2213: WHEN FND_API.G_EXC_ERROR THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR ;
2215: IF (l_debug = 1) THEN
2216: print_debug('no process control .. EXCEP G_EXC_ERROR : ' );
2217: END IF;
2218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR ;
2215: IF (l_debug = 1) THEN
2216: print_debug('no process control .. EXCEP G_EXC_ERROR : ' );
2217: END IF;
2218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2220: IF (l_debug = 1) THEN
2221: print_debug('no process control .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2222: END IF;
2215: IF (l_debug = 1) THEN
2216: print_debug('no process control .. EXCEP G_EXC_ERROR : ' );
2217: END IF;
2218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2220: IF (l_debug = 1) THEN
2221: print_debug('no process control .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2222: END IF;
2223: WHEN OTHERS THEN
2220: IF (l_debug = 1) THEN
2221: print_debug('no process control .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2222: END IF;
2223: WHEN OTHERS THEN
2224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2225: IF (l_debug = 1) THEN
2226: print_debug('no process control .. EXCEP OTHERS : ' );
2227: END IF;
2228: END proc_process_nocontrol;
2274: l_lpn_id NUMBER := p_mmtt_rec.lpn_id;
2275:
2276: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2277: BEGIN
2278: x_return_status := fnd_api.g_ret_sts_success;
2279: SAVEPOINT sp_proc_process_lots;
2280:
2281: IF (l_debug = 1) THEN
2282: print_debug('IN proc_process_lots.. ');
2329: END IF;
2330:
2331: wms_costgroupengine_pvt.assign_cost_group
2332: (p_api_version => 1.0,
2333: p_init_msg_list => FND_API.G_FALSE,
2334: p_commit => FND_API.G_FALSE,
2335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2336: x_return_status => x_return_Status,
2337: x_msg_count => x_msg_count,
2330:
2331: wms_costgroupengine_pvt.assign_cost_group
2332: (p_api_version => 1.0,
2333: p_init_msg_list => FND_API.G_FALSE,
2334: p_commit => FND_API.G_FALSE,
2335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2336: x_return_status => x_return_Status,
2337: x_msg_count => x_msg_count,
2338: x_msg_data => x_msg_data,
2331: wms_costgroupengine_pvt.assign_cost_group
2332: (p_api_version => 1.0,
2333: p_init_msg_list => FND_API.G_FALSE,
2334: p_commit => FND_API.G_FALSE,
2335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2336: x_return_status => x_return_Status,
2337: x_msg_count => x_msg_count,
2338: x_msg_data => x_msg_data,
2339: p_line_id => p_mmtt_rec.transaction_temp_id,
2338: x_msg_data => x_msg_data,
2339: p_line_id => p_mmtt_rec.transaction_temp_id,
2340: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
2341:
2342: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2343: IF (l_debug = 1) THEN
2344: print_debug('return error from wms_costgroupengine_pvt');
2345: END IF;
2346: RAISE FND_API.G_EXC_ERROR;
2342: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2343: IF (l_debug = 1) THEN
2344: print_debug('return error from wms_costgroupengine_pvt');
2345: END IF;
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: IF (l_debug = 1) THEN
2349: print_debug('return unexpected error from wms_costgroupengine_pvt');
2350: END IF;
2343: IF (l_debug = 1) THEN
2344: print_debug('return error from wms_costgroupengine_pvt');
2345: END IF;
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: IF (l_debug = 1) THEN
2349: print_debug('return unexpected error from wms_costgroupengine_pvt');
2350: END IF;
2351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2347: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: IF (l_debug = 1) THEN
2349: print_debug('return unexpected error from wms_costgroupengine_pvt');
2350: END IF;
2351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2352: END IF;
2353: END IF;
2354: ELSIF (p_mmtt_rec.transaction_source_type_id = inv_globals.g_sourcetype_salesorder
2355: OR p_mmtt_rec.transaction_source_type_id = inv_globals.g_sourcetype_intorder)
2416:
2417:
2418: l_lots_table(l_lti).cost_group_id := l_cost_group_id;
2419:
2420: IF x_return_status = fnd_api.g_ret_sts_error THEN
2421: RAISE fnd_api.g_exc_error ;
2422: END IF;
2423:
2424: IF l_cg_quantity_table.exists(l_cost_group_id) THEN
2417:
2418: l_lots_table(l_lti).cost_group_id := l_cost_group_id;
2419:
2420: IF x_return_status = fnd_api.g_ret_sts_error THEN
2421: RAISE fnd_api.g_exc_error ;
2422: END IF;
2423:
2424: IF l_cg_quantity_table.exists(l_cost_group_id) THEN
2425: l_cg_quantity_table(l_cost_group_id).primary_quantity :=
2523: print_debug('proc_update_mmtt return : ' || x_return_status);
2524: END IF;
2525: END IF;
2526:
2527: IF (x_return_status = fnd_api.g_ret_sts_error)
2528: THEN
2529: RAISE fnd_api.g_exc_error;
2530: END IF;
2531:
2525: END IF;
2526:
2527: IF (x_return_status = fnd_api.g_ret_sts_error)
2528: THEN
2529: RAISE fnd_api.g_exc_error;
2530: END IF;
2531:
2532: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2533: THEN
2528: THEN
2529: RAISE fnd_api.g_exc_error;
2530: END IF;
2531:
2532: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2533: THEN
2534: RAISE fnd_api.g_exc_unexpected_error;
2535: END IF;
2536:
2530: END IF;
2531:
2532: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2533: THEN
2534: RAISE fnd_api.g_exc_unexpected_error;
2535: END IF;
2536:
2537: EXIT WHEN i = l_cg_quantity_table.last;
2538: i := l_cg_quantity_table.next(i);
2558: IF (l_debug = 1) THEN
2559: print_debug('proc_update_mtlt return : ' || x_return_status);
2560: END IF;
2561:
2562: IF (x_return_status = fnd_api.g_ret_sts_error)
2563: THEN
2564: RAISE fnd_api.g_exc_error ;
2565: END IF;
2566:
2560: END IF;
2561:
2562: IF (x_return_status = fnd_api.g_ret_sts_error)
2563: THEN
2564: RAISE fnd_api.g_exc_error ;
2565: END IF;
2566:
2567: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2568: THEN
2563: THEN
2564: RAISE fnd_api.g_exc_error ;
2565: END IF;
2566:
2567: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2568: THEN
2569: RAISE fnd_api.g_exc_unexpected_error ;
2570: END IF;
2571: END LOOP;
2565: END IF;
2566:
2567: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2568: THEN
2569: RAISE fnd_api.g_exc_unexpected_error ;
2570: END IF;
2571: END LOOP;
2572:
2573: END IF;
2571: END LOOP;
2572:
2573: END IF;
2574: EXCEPTION
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: IF (l_debug = 1) THEN
2577: print_debug('proc_process_lots .. EXCEP G_EXC_ERROR : ' );
2578: END IF;
2579: x_return_status := FND_API.G_RET_STS_ERROR ;
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: IF (l_debug = 1) THEN
2577: print_debug('proc_process_lots .. EXCEP G_EXC_ERROR : ' );
2578: END IF;
2579: x_return_status := FND_API.G_RET_STS_ERROR ;
2580: IF cur_mtlt%isopen THEN
2581: CLOSE cur_mtlt;
2582: END IF;
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579: x_return_status := FND_API.G_RET_STS_ERROR ;
2580: IF cur_mtlt%isopen THEN
2581: CLOSE cur_mtlt;
2582: END IF;
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2584: IF (l_debug = 1) THEN
2585: print_debug('proc_process_lots .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2586: END IF;
2587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2584: IF (l_debug = 1) THEN
2585: print_debug('proc_process_lots .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
2586: END IF;
2587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2588: IF cur_mtlt%isopen THEN
2589: CLOSE cur_mtlt;
2590: END IF;
2591: WHEN OTHERS THEN
2591: WHEN OTHERS THEN
2592: IF (l_debug = 1) THEN
2593: print_debug('proc_process_lots .. EXCEP OTHERS : ' || SQLERRM(SQLCODE));
2594: END IF;
2595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2596: IF cur_mtlt%isopen THEN
2597: CLOSE cur_mtlt;
2598: END IF;
2599: END proc_process_lots;
2657: l_to_ser_number NUMBER := NULL;
2658: --Bug 3686015 fix
2659: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2660: BEGIN
2661: x_return_status := fnd_api.g_ret_sts_success;
2662: SAVEPOINT sp_proc_process_serial;
2663:
2664: IF (l_debug = 1) THEN
2665: print_debug('IN proc_process_serial.. ');
2696: END IF;
2697: fnd_message.set_name('INV', 'Cannot find the serial number
2698: for the transaction being processed');
2699: fnd_msg_pub.add;
2700: RAISE FND_API.G_EXC_ERROR;
2701: END IF;
2702:
2703: WHILE cur_msnt%found LOOP
2704: IF (l_debug = 1) THEN
2731: fnd_message.set_name('INV', 'INV_FROM_TO_SER_DIFF_LENGTH');
2732: fnd_message.set_token('FM_SER_NUM',rec_msnt.fm_serial_number);
2733: fnd_message.set_token('TO_SER_NUM', rec_msnt.to_serial_number);
2734: fnd_msg_pub.add;
2735: RAISE fnd_api.g_exc_error;
2736: END IF;
2737:
2738: -- get the number part of the to serial
2739: inv_validate.number_from_sequence(rec_msnt.to_serial_number, l_to_temp_prefix, l_to_ser_number);
2751: fnd_message.set_name('INV', 'INV_FROM_TO_SER_DIFF_PFX');
2752: fnd_message.set_token('FM_SER_NUM',rec_msnt.fm_serial_number);
2753: fnd_message.set_token('TO_SER_NUM', rec_msnt.to_serial_number);
2754: fnd_msg_pub.add;
2755: RAISE fnd_api.g_exc_error;
2756: END IF;
2757:
2758: END IF;
2759: --Bug 3686015
2807: print_debug('Getting transfer cost group id from rules engine...: ');
2808: END IF;
2809: wms_costgroupengine_pvt.assign_cost_group
2810: (p_api_version => 1.0,
2811: p_init_msg_list => FND_API.G_FALSE,
2812: p_commit => FND_API.G_FALSE,
2813: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2814: x_return_status => x_return_Status,
2815: x_msg_count => x_msg_count,
2808: END IF;
2809: wms_costgroupengine_pvt.assign_cost_group
2810: (p_api_version => 1.0,
2811: p_init_msg_list => FND_API.G_FALSE,
2812: p_commit => FND_API.G_FALSE,
2813: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2814: x_return_status => x_return_Status,
2815: x_msg_count => x_msg_count,
2816: x_msg_data => x_msg_data,
2809: wms_costgroupengine_pvt.assign_cost_group
2810: (p_api_version => 1.0,
2811: p_init_msg_list => FND_API.G_FALSE,
2812: p_commit => FND_API.G_FALSE,
2813: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2814: x_return_status => x_return_Status,
2815: x_msg_count => x_msg_count,
2816: x_msg_data => x_msg_data,
2817: p_line_id => p_mmtt_rec.transaction_temp_id,
2816: x_msg_data => x_msg_data,
2817: p_line_id => p_mmtt_rec.transaction_temp_id,
2818: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
2819:
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: IF (l_debug = 1) THEN
2822: print_debug('return error from wms_costgroupengine_pvt');
2823: END IF;
2824: RAISE FND_API.G_EXC_ERROR;
2820: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2821: IF (l_debug = 1) THEN
2822: print_debug('return error from wms_costgroupengine_pvt');
2823: END IF;
2824: RAISE FND_API.G_EXC_ERROR;
2825: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2826: IF (l_debug = 1) THEN
2827: print_debug('return unexpected error from wms_costgroupengine_pvt');
2828: END IF;
2821: IF (l_debug = 1) THEN
2822: print_debug('return error from wms_costgroupengine_pvt');
2823: END IF;
2824: RAISE FND_API.G_EXC_ERROR;
2825: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2826: IF (l_debug = 1) THEN
2827: print_debug('return unexpected error from wms_costgroupengine_pvt');
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2826: IF (l_debug = 1) THEN
2827: print_debug('return unexpected error from wms_costgroupengine_pvt');
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2830: END IF;
2831:
2832: END IF;
2833: ELSIF (p_mmtt_rec.transaction_source_type_id = inv_globals.g_sourcetype_salesorder
2903: p_transaction_action_id => p_mmtt_rec.transaction_action_id,
2904: x_cost_group_id => l_cost_group_id,
2905: x_return_status => x_return_status);
2906: rec_msn.cost_group_id := l_cost_group_id;
2907: IF x_return_status = fnd_api.g_ret_sts_error THEN
2908: RAISE fnd_api.g_exc_error;
2909: END IF;
2910: END IF;
2911:
2904: x_cost_group_id => l_cost_group_id,
2905: x_return_status => x_return_status);
2906: rec_msn.cost_group_id := l_cost_group_id;
2907: IF x_return_status = fnd_api.g_ret_sts_error THEN
2908: RAISE fnd_api.g_exc_error;
2909: END IF;
2910: END IF;
2911:
2912: IF l_cg_quantity_table.exists(rec_msn.cost_group_id) THEN
3010: IF (l_debug = 1) THEN
3011: print_debug('proc_update_mmtt return : ' || x_return_status);
3012: END IF;
3013: END IF;
3014: IF (x_return_status = fnd_api.g_ret_sts_error)
3015: THEN
3016: RAISE fnd_api.g_exc_error ;
3017: END IF;
3018:
3012: END IF;
3013: END IF;
3014: IF (x_return_status = fnd_api.g_ret_sts_error)
3015: THEN
3016: RAISE fnd_api.g_exc_error ;
3017: END IF;
3018:
3019: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3020: THEN
3015: THEN
3016: RAISE fnd_api.g_exc_error ;
3017: END IF;
3018:
3019: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3020: THEN
3021: RAISE fnd_api.g_exc_unexpected_error ;
3022: END IF;
3023:
3017: END IF;
3018:
3019: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3020: THEN
3021: RAISE fnd_api.g_exc_unexpected_error ;
3022: END IF;
3023:
3024: EXIT WHEN i = l_cg_quantity_table.last;
3025: i := l_cg_quantity_table.next(i);
3065: print_debug('proc_insert_msnt return : ' || x_return_status);
3066: END IF;
3067: END IF;
3068:
3069: IF (x_return_status = fnd_api.g_ret_sts_error)
3070: THEN
3071: RAISE fnd_api.g_exc_error ;
3072: END IF;
3073:
3067: END IF;
3068:
3069: IF (x_return_status = fnd_api.g_ret_sts_error)
3070: THEN
3071: RAISE fnd_api.g_exc_error ;
3072: END IF;
3073:
3074: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3075: THEN
3070: THEN
3071: RAISE fnd_api.g_exc_error ;
3072: END IF;
3073:
3074: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3075: THEN
3076: RAISE fnd_api.g_exc_unexpected_error ;
3077: END IF;
3078:
3072: END IF;
3073:
3074: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3075: THEN
3076: RAISE fnd_api.g_exc_unexpected_error ;
3077: END IF;
3078:
3079: END LOOP;
3080: END IF;
3079: END LOOP;
3080: END IF;
3081:
3082: EXCEPTION
3083: WHEN FND_API.G_EXC_ERROR THEN
3084: IF (l_debug = 1) THEN
3085: print_debug('proc_process_serial .. EXCEP G_EXC_ERROR : ' );
3086: END IF;
3087: x_return_status := FND_API.G_RET_STS_ERROR ;
3083: WHEN FND_API.G_EXC_ERROR THEN
3084: IF (l_debug = 1) THEN
3085: print_debug('proc_process_serial .. EXCEP G_EXC_ERROR : ' );
3086: END IF;
3087: x_return_status := FND_API.G_RET_STS_ERROR ;
3088: IF cur_msnt%isopen THEN
3089: CLOSE cur_msnt;
3090: END IF;
3091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3087: x_return_status := FND_API.G_RET_STS_ERROR ;
3088: IF cur_msnt%isopen THEN
3089: CLOSE cur_msnt;
3090: END IF;
3091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3092: IF (l_debug = 1) THEN
3093: print_debug('proc_process_serial .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3092: IF (l_debug = 1) THEN
3093: print_debug('proc_process_serial .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3096: IF cur_msnt%isopen THEN
3097: CLOSE cur_msnt;
3098: END IF;
3099: WHEN OTHERS THEN
3099: WHEN OTHERS THEN
3100: IF (l_debug = 1) THEN
3101: print_debug('proc_process_serial .. EXCEP OTHERS:' || SQLERRM(SQLCODE) );
3102: END IF;
3103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3104: IF cur_msnt%isopen THEN
3105: CLOSE cur_msnt;
3106: END IF;
3107: END proc_process_serials;
3216: l_to_temp_prefix VARCHAR2(30) := NULL;
3217: l_to_ser_number NUMBER := NULL;
3218: --Bug 3686015 fix
3219: BEGIN
3220: x_return_status := fnd_api.g_ret_sts_success;
3221: SAVEPOINT sp_proc_process_lot_serial;
3222:
3223: IF (l_debug = 1) THEN
3224: print_debug('IN proc_process_lot_serial.. ');
3283: fnd_message.set_name('INV', 'INV_FROM_TO_SER_DIFF_LENGTH');
3284: fnd_message.set_token('FM_SER_NUM',rec_msnt.fm_serial_number);
3285: fnd_message.set_token('TO_SER_NUM', rec_msnt.to_serial_number);
3286: fnd_msg_pub.add;
3287: RAISE fnd_api.g_exc_error;
3288: END IF;
3289:
3290: -- get the number part of the to serial
3291: inv_validate.number_from_sequence(rec_msnt.to_serial_number, l_to_temp_prefix, l_to_ser_number);
3303: fnd_message.set_name('INV', 'INV_FROM_TO_SER_DIFF_PFX');
3304: fnd_message.set_token('FM_SER_NUM',rec_msnt.fm_serial_number);
3305: fnd_message.set_token('TO_SER_NUM', rec_msnt.to_serial_number);
3306: fnd_msg_pub.add;
3307: RAISE fnd_api.g_exc_error;
3308: END IF;
3309:
3310: END IF;
3311: --Bug 3686015
3360: print_debug('Getting transfer cost group id from rules engine...: ');
3361: END IF;
3362: wms_costgroupengine_pvt.assign_cost_group
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_FALSE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: x_return_status => x_return_Status,
3368: x_msg_count => x_msg_count,
3361: END IF;
3362: wms_costgroupengine_pvt.assign_cost_group
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_FALSE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: x_return_status => x_return_Status,
3368: x_msg_count => x_msg_count,
3369: x_msg_data => x_msg_data,
3362: wms_costgroupengine_pvt.assign_cost_group
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_FALSE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: x_return_status => x_return_Status,
3368: x_msg_count => x_msg_count,
3369: x_msg_data => x_msg_data,
3370: p_line_id => p_mmtt_rec.transaction_temp_id,
3369: x_msg_data => x_msg_data,
3370: p_line_id => p_mmtt_rec.transaction_temp_id,
3371: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
3372:
3373: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3374: IF (l_debug = 1) THEN
3375: print_debug('return error from wms_costgroupengine_pvt');
3376: END IF;
3377: RAISE FND_API.G_EXC_ERROR;
3373: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3374: IF (l_debug = 1) THEN
3375: print_debug('return error from wms_costgroupengine_pvt');
3376: END IF;
3377: RAISE FND_API.G_EXC_ERROR;
3378: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3379: IF (l_debug = 1) THEN
3380: print_debug('return unexpected error from wms_costgroupengine_pvt');
3381: END IF;
3374: IF (l_debug = 1) THEN
3375: print_debug('return error from wms_costgroupengine_pvt');
3376: END IF;
3377: RAISE FND_API.G_EXC_ERROR;
3378: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3379: IF (l_debug = 1) THEN
3380: print_debug('return unexpected error from wms_costgroupengine_pvt');
3381: END IF;
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3378: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3379: IF (l_debug = 1) THEN
3380: print_debug('return unexpected error from wms_costgroupengine_pvt');
3381: END IF;
3382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3383: END IF;
3384:
3385: END IF;
3386: ELSIF (p_mmtt_rec.transaction_source_type_id = inv_globals.g_sourcetype_salesorder
3520: IF lot_cg_qty_table.exists(rec_msn.cost_group_id) then
3521: lot_cg_qty_table(rec_msn.cost_group_id).quantity :=
3522: lot_cg_qty_table(rec_msn.cost_group_id).quantity + 1 ;
3523: ELSE
3524: RAISE fnd_api.g_exc_error ;
3525: END IF;
3526: --Bug 3390284
3527: ELSE
3528: l_serial_table(l_sti).from_serial_number := rec_msn.serial_number;
3570: p_transaction_action_id => p_mmtt_rec.transaction_action_id,
3571: x_cost_group_id => l_cost_group_id,
3572: x_return_status => x_return_status);
3573: rec_msn.cost_group_id := l_cost_group_id;
3574: IF x_return_status = fnd_api.g_ret_sts_error THEN
3575: RAISE fnd_api.g_exc_error ;
3576: END IF;
3577: END IF;
3578:
3571: x_cost_group_id => l_cost_group_id,
3572: x_return_status => x_return_status);
3573: rec_msn.cost_group_id := l_cost_group_id;
3574: IF x_return_status = fnd_api.g_ret_sts_error THEN
3575: RAISE fnd_api.g_exc_error ;
3576: END IF;
3577: END IF;
3578:
3579: IF l_cg_quantity_table.exists(rec_msn.cost_group_id) THEN
3730: print_debug('proc_update_mmtt return : ' || x_return_status);
3731: END IF;
3732: END IF;
3733:
3734: IF (x_return_status = fnd_api.g_ret_sts_error)
3735: THEN
3736: RAISE fnd_api.g_exc_error;
3737: END IF;
3738:
3732: END IF;
3733:
3734: IF (x_return_status = fnd_api.g_ret_sts_error)
3735: THEN
3736: RAISE fnd_api.g_exc_error;
3737: END IF;
3738:
3739: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3740: THEN
3735: THEN
3736: RAISE fnd_api.g_exc_error;
3737: END IF;
3738:
3739: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3740: THEN
3741: RAISE fnd_api.g_exc_unexpected_error;
3742: END IF;
3743:
3737: END IF;
3738:
3739: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3740: THEN
3741: RAISE fnd_api.g_exc_unexpected_error;
3742: END IF;
3743:
3744: EXIT WHEN i = l_cg_quantity_table.last;
3745: i := l_cg_quantity_table.next(i);
3779: l_lot_table(lot_i).serial_transaction_temp_id,
3780: x_return_status);
3781: END IF;
3782:
3783: IF (x_return_status = fnd_api.g_ret_sts_error)
3784: THEN
3785: RAISE fnd_api.g_exc_error ;
3786: END IF;
3787:
3781: END IF;
3782:
3783: IF (x_return_status = fnd_api.g_ret_sts_error)
3784: THEN
3785: RAISE fnd_api.g_exc_error ;
3786: END IF;
3787:
3788: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3789: THEN
3784: THEN
3785: RAISE fnd_api.g_exc_error ;
3786: END IF;
3787:
3788: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3789: THEN
3790: RAISE fnd_api.g_exc_unexpected_error ;
3791: END IF;
3792:
3786: END IF;
3787:
3788: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3789: THEN
3790: RAISE fnd_api.g_exc_unexpected_error ;
3791: END IF;
3792:
3793: END LOOP;
3794:
3829: print_debug('proc_insert_msnt return : ' || x_return_status);
3830: END IF;
3831: END IF;
3832:
3833: IF (x_return_status = fnd_api.g_ret_sts_error)
3834: THEN
3835: RAISE fnd_api.g_exc_error ;
3836: END IF;
3837:
3831: END IF;
3832:
3833: IF (x_return_status = fnd_api.g_ret_sts_error)
3834: THEN
3835: RAISE fnd_api.g_exc_error ;
3836: END IF;
3837:
3838: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3839: THEN
3834: THEN
3835: RAISE fnd_api.g_exc_error ;
3836: END IF;
3837:
3838: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3839: THEN
3840: RAISE fnd_api.g_exc_unexpected_error ;
3841: END IF;
3842:
3836: END IF;
3837:
3838: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3839: THEN
3840: RAISE fnd_api.g_exc_unexpected_error ;
3841: END IF;
3842:
3843: END LOOP;
3844: END IF;
3842:
3843: END LOOP;
3844: END IF;
3845: EXCEPTION
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: IF (l_debug = 1) THEN
3848: print_debug('proc_process_lot_serial .. EXCEP G_EXC_ERROR : ' );
3849: END IF;
3850: x_return_status := FND_API.G_RET_STS_ERROR ;
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: IF (l_debug = 1) THEN
3848: print_debug('proc_process_lot_serial .. EXCEP G_EXC_ERROR : ' );
3849: END IF;
3850: x_return_status := FND_API.G_RET_STS_ERROR ;
3851: IF cur_msnt%isopen THEN
3852: CLOSE cur_msnt;
3853: END IF;
3854: IF cur_mtlt%isopen THEN
3853: END IF;
3854: IF cur_mtlt%isopen THEN
3855: CLOSE cur_mtlt;
3856: END IF;
3857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3858: IF (l_debug = 1) THEN
3859: print_debug('proc_process_lot_serial .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
3860: END IF;
3861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3858: IF (l_debug = 1) THEN
3859: print_debug('proc_process_lot_serial .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
3860: END IF;
3861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3862: IF cur_msnt%isopen THEN
3863: CLOSE cur_msnt;
3864: END IF;
3865: IF cur_mtlt%isopen THEN
3868: WHEN OTHERS THEN
3869: IF (l_debug = 1) THEN
3870: print_debug('proc_process_lot_serial .. EXCEP OTHERS : ' || SQLERRM(SQLCODE));
3871: END IF;
3872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3873: IF cur_msnt%isopen THEN
3874: CLOSE cur_msnt;
3875: END IF;
3876: IF cur_mtlt%isopen THEN
3910: BEGIN
3911: -- Standard Start of API savepoint
3912:
3913: SAVEPOINT API_updatecostgroups;
3914: x_return_status := fnd_api.g_ret_sts_success;
3915:
3916: IF (l_debug = 1) THEN
3917: print_debug('Beginning get_cost_group.... with temp_id: ' ||
3918: l_mmtt_rec.transaction_temp_id);
3937: print_debug('Getting transfer cost group id from rules engine...: ');
3938: END IF;
3939: wms_costgroupengine_pvt.assign_cost_group
3940: (p_api_version => 1.0,
3941: p_init_msg_list => FND_API.G_FALSE,
3942: p_commit => FND_API.G_FALSE,
3943: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3944: x_return_status => x_return_Status,
3945: x_msg_count => x_msg_count,
3938: END IF;
3939: wms_costgroupengine_pvt.assign_cost_group
3940: (p_api_version => 1.0,
3941: p_init_msg_list => FND_API.G_FALSE,
3942: p_commit => FND_API.G_FALSE,
3943: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3944: x_return_status => x_return_Status,
3945: x_msg_count => x_msg_count,
3946: x_msg_data => x_msg_data,
3939: wms_costgroupengine_pvt.assign_cost_group
3940: (p_api_version => 1.0,
3941: p_init_msg_list => FND_API.G_FALSE,
3942: p_commit => FND_API.G_FALSE,
3943: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3944: x_return_status => x_return_Status,
3945: x_msg_count => x_msg_count,
3946: x_msg_data => x_msg_data,
3947: p_line_id => l_mmtt_rec.transaction_temp_id,
3946: x_msg_data => x_msg_data,
3947: p_line_id => l_mmtt_rec.transaction_temp_id,
3948: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
3949:
3950: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3951: IF (l_debug = 1) THEN
3952: print_debug('return error from wms_costgroupengine_pvt');
3953: END IF;
3954: RAISE FND_API.G_EXC_ERROR;
3950: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3951: IF (l_debug = 1) THEN
3952: print_debug('return error from wms_costgroupengine_pvt');
3953: END IF;
3954: RAISE FND_API.G_EXC_ERROR;
3955: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3956: IF (l_debug = 1) THEN
3957: print_debug('return unexpected error from wms_costgroupengine_pvt');
3958: END IF;
3951: IF (l_debug = 1) THEN
3952: print_debug('return error from wms_costgroupengine_pvt');
3953: END IF;
3954: RAISE FND_API.G_EXC_ERROR;
3955: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3956: IF (l_debug = 1) THEN
3957: print_debug('return unexpected error from wms_costgroupengine_pvt');
3958: END IF;
3959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3955: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3956: IF (l_debug = 1) THEN
3957: print_debug('return unexpected error from wms_costgroupengine_pvt');
3958: END IF;
3959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3960: END IF;
3961:
3962: -- Requery MMTT to get the fresh records
3963: SELECT *
4006: x_return_status);
4007: IF (l_debug = 1) THEN
4008: print_debug('proc_update_mmtt : ' || x_return_status);
4009: END IF;
4010: IF (x_return_status = fnd_api.g_ret_sts_error)
4011: THEN
4012: RAISE fnd_api.g_exc_error ;
4013: END IF;
4014:
4008: print_debug('proc_update_mmtt : ' || x_return_status);
4009: END IF;
4010: IF (x_return_status = fnd_api.g_ret_sts_error)
4011: THEN
4012: RAISE fnd_api.g_exc_error ;
4013: END IF;
4014:
4015: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4016: THEN
4011: THEN
4012: RAISE fnd_api.g_exc_error ;
4013: END IF;
4014:
4015: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4016: THEN
4017: RAISE fnd_api.g_exc_unexpected_error ;
4018: END IF;
4019: RETURN;
4013: END IF;
4014:
4015: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4016: THEN
4017: RAISE fnd_api.g_exc_unexpected_error ;
4018: END IF;
4019: RETURN;
4020: END IF;
4021:
4082: WHEN OTHERS THEN
4083: IF (l_debug = 1) THEN
4084: print_debug('Unexpected error:' || Sqlerrm);
4085: END IF;
4086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4087: END;
4088: END IF;
4089:
4090: IF l_mmtt_rec.transaction_action_id IN (inv_globals.g_type_cycle_count_adj,
4121: print_debug('Getting transfer cost group id from rules engine...: ');
4122: END IF;
4123: wms_costgroupengine_pvt.assign_cost_group
4124: (p_api_version => 1.0,
4125: p_init_msg_list => FND_API.G_FALSE,
4126: p_commit => FND_API.G_FALSE,
4127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4128: x_return_status => x_return_Status,
4129: x_msg_count => x_msg_count,
4122: END IF;
4123: wms_costgroupengine_pvt.assign_cost_group
4124: (p_api_version => 1.0,
4125: p_init_msg_list => FND_API.G_FALSE,
4126: p_commit => FND_API.G_FALSE,
4127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4128: x_return_status => x_return_Status,
4129: x_msg_count => x_msg_count,
4130: x_msg_data => x_msg_data,
4123: wms_costgroupengine_pvt.assign_cost_group
4124: (p_api_version => 1.0,
4125: p_init_msg_list => FND_API.G_FALSE,
4126: p_commit => FND_API.G_FALSE,
4127: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4128: x_return_status => x_return_Status,
4129: x_msg_count => x_msg_count,
4130: x_msg_data => x_msg_data,
4131: p_line_id => l_mmtt_rec.transaction_temp_id,
4130: x_msg_data => x_msg_data,
4131: p_line_id => l_mmtt_rec.transaction_temp_id,
4132: p_input_type => wms_costgroupengine_pvt.g_input_mmtt);
4133:
4134: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4135: IF (l_debug = 1) THEN
4136: print_debug('return error from wms_costgroupengine_pvt');
4137: END IF;
4138: RAISE FND_API.G_EXC_ERROR;
4134: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4135: IF (l_debug = 1) THEN
4136: print_debug('return error from wms_costgroupengine_pvt');
4137: END IF;
4138: RAISE FND_API.G_EXC_ERROR;
4139: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4140: IF (l_debug = 1) THEN
4141: print_debug('return unexpected error from wms_costgroupengine_pvt');
4142: END IF;
4135: IF (l_debug = 1) THEN
4136: print_debug('return error from wms_costgroupengine_pvt');
4137: END IF;
4138: RAISE FND_API.G_EXC_ERROR;
4139: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4140: IF (l_debug = 1) THEN
4141: print_debug('return unexpected error from wms_costgroupengine_pvt');
4142: END IF;
4143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4139: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4140: IF (l_debug = 1) THEN
4141: print_debug('return unexpected error from wms_costgroupengine_pvt');
4142: END IF;
4143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4144: END IF;
4145:
4146: END IF;
4147: END IF;
4174: print_debug('proc_determine_costgroup return : ' || x_return_status);
4175: print_debug('cost_group_id: ' || l_cost_group_id);
4176: END IF;
4177:
4178: IF (x_return_status = fnd_api.g_ret_sts_error)
4179: THEN
4180: RAISE fnd_api.g_exc_error ;
4181: END IF;
4182:
4176: END IF;
4177:
4178: IF (x_return_status = fnd_api.g_ret_sts_error)
4179: THEN
4180: RAISE fnd_api.g_exc_error ;
4181: END IF;
4182:
4183: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4184: THEN
4179: THEN
4180: RAISE fnd_api.g_exc_error ;
4181: END IF;
4182:
4183: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4184: THEN
4185: RAISE fnd_api.g_exc_unexpected_error ;
4186: END IF;
4187:
4181: END IF;
4182:
4183: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4184: THEN
4185: RAISE fnd_api.g_exc_unexpected_error ;
4186: END IF;
4187:
4188: proc_update_mmtt(l_mmtt_rec.transaction_temp_id,
4189: p_transfer_wms_org,
4202: x_return_status);
4203: IF (l_debug = 1) THEN
4204: print_debug('proc_update_mmtt : ' || x_return_status);
4205: END IF;
4206: IF (x_return_status = fnd_api.g_ret_sts_error)
4207: THEN
4208: RAISE fnd_api.g_exc_error ;
4209: END IF;
4210:
4204: print_debug('proc_update_mmtt : ' || x_return_status);
4205: END IF;
4206: IF (x_return_status = fnd_api.g_ret_sts_error)
4207: THEN
4208: RAISE fnd_api.g_exc_error ;
4209: END IF;
4210:
4211: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4212: THEN
4207: THEN
4208: RAISE fnd_api.g_exc_error ;
4209: END IF;
4210:
4211: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4212: THEN
4213: RAISE fnd_api.g_exc_unexpected_error ;
4214: END IF;
4215: END IF; -- If onhand exists
4209: END IF;
4210:
4211: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4212: THEN
4213: RAISE fnd_api.g_exc_unexpected_error ;
4214: END IF;
4215: END IF; -- If onhand exists
4216: ELSE
4217: IF l_is_lot_control THEN
4233: x_msg_data => x_msg_data);
4234: IF (l_debug = 1) THEN
4235: print_debug('proc_process_lot_serial: x_return_status: ' || x_return_status);
4236: END IF;
4237: IF (x_return_status = fnd_api.g_ret_sts_error)
4238: THEN
4239: RAISE fnd_api.g_exc_error ;
4240: END IF;
4241:
4235: print_debug('proc_process_lot_serial: x_return_status: ' || x_return_status);
4236: END IF;
4237: IF (x_return_status = fnd_api.g_ret_sts_error)
4238: THEN
4239: RAISE fnd_api.g_exc_error ;
4240: END IF;
4241:
4242: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4243: THEN
4238: THEN
4239: RAISE fnd_api.g_exc_error ;
4240: END IF;
4241:
4242: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4243: THEN
4244: RAISE fnd_api.g_exc_unexpected_error ;
4245: END IF;
4246: ELSE
4240: END IF;
4241:
4242: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4243: THEN
4244: RAISE fnd_api.g_exc_unexpected_error ;
4245: END IF;
4246: ELSE
4247: -- Lot controlled
4248: proc_process_lots
4259:
4260: IF (l_debug = 1) THEN
4261: print_debug('proc_process_lots return: ' || x_return_status);
4262: END IF;
4263: IF (x_return_status = fnd_api.g_ret_sts_error)
4264: THEN
4265: RAISE fnd_api.g_exc_error ;
4266: END IF;
4267:
4261: print_debug('proc_process_lots return: ' || x_return_status);
4262: END IF;
4263: IF (x_return_status = fnd_api.g_ret_sts_error)
4264: THEN
4265: RAISE fnd_api.g_exc_error ;
4266: END IF;
4267:
4268: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4269: THEN
4264: THEN
4265: RAISE fnd_api.g_exc_error ;
4266: END IF;
4267:
4268: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4269: THEN
4270: RAISE fnd_api.g_exc_unexpected_error ;
4271: END IF;
4272: END IF;
4266: END IF;
4267:
4268: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4269: THEN
4270: RAISE fnd_api.g_exc_unexpected_error ;
4271: END IF;
4272: END IF;
4273: ELSE
4274: IF l_is_serial_control THEN
4291:
4292: IF (l_debug = 1) THEN
4293: print_debug('proc_process_serials return: ' || x_return_status);
4294: END IF;
4295: IF (x_return_status = fnd_api.g_ret_sts_error)
4296: THEN
4297: RAISE fnd_api.g_exc_error ;
4298: END IF;
4299:
4293: print_debug('proc_process_serials return: ' || x_return_status);
4294: END IF;
4295: IF (x_return_status = fnd_api.g_ret_sts_error)
4296: THEN
4297: RAISE fnd_api.g_exc_error ;
4298: END IF;
4299:
4300: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4301: THEN
4296: THEN
4297: RAISE fnd_api.g_exc_error ;
4298: END IF;
4299:
4300: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4301: THEN
4302: RAISE fnd_api.g_exc_unexpected_error ;
4303: END IF;
4304: ELSE
4298: END IF;
4299:
4300: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4301: THEN
4302: RAISE fnd_api.g_exc_unexpected_error ;
4303: END IF;
4304: ELSE
4305: -- No control
4306: IF (l_debug = 1) THEN
4321: x_msg_data => x_msg_data);
4322: IF (l_debug = 1) THEN
4323: print_debug('proc_process_nocontrol return : ' || x_return_status);
4324: END IF;
4325: IF (x_return_status = fnd_api.g_ret_sts_error)
4326: THEN
4327: RAISE fnd_api.g_exc_error ;
4328: END IF;
4329:
4323: print_debug('proc_process_nocontrol return : ' || x_return_status);
4324: END IF;
4325: IF (x_return_status = fnd_api.g_ret_sts_error)
4326: THEN
4327: RAISE fnd_api.g_exc_error ;
4328: END IF;
4329:
4330: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4331: THEN
4326: THEN
4327: RAISE fnd_api.g_exc_error ;
4328: END IF;
4329:
4330: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4331: THEN
4332: RAISE fnd_api.g_exc_unexpected_error ;
4333: END IF;
4334: IF (l_debug = 1) THEN
4328: END IF;
4329:
4330: IF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4331: THEN
4332: RAISE fnd_api.g_exc_unexpected_error ;
4333: END IF;
4334: IF (l_debug = 1) THEN
4335: print_debug('after call to nocontrol');
4336: END IF;
4341: print_debug('Processing Over... ' || x_return_status );
4342: END IF;
4343:
4344: EXCEPTION
4345: WHEN FND_API.G_EXC_ERROR THEN
4346: IF (l_debug = 1) THEN
4347: print_debug('inv_cost_group_update .. EXCEP G_EXC_ERROR : ' );
4348: END IF;
4349: ROLLBACK TO API_updatecostgroups;
4346: IF (l_debug = 1) THEN
4347: print_debug('inv_cost_group_update .. EXCEP G_EXC_ERROR : ' );
4348: END IF;
4349: ROLLBACK TO API_updatecostgroups;
4350: x_return_status := FND_API.G_RET_STS_ERROR ;
4351: FND_MSG_PUB.Count_And_Get
4352: (p_encoded => FND_API.G_FALSE,
4353: p_count => x_msg_count,
4354: p_data => x_msg_data);
4348: END IF;
4349: ROLLBACK TO API_updatecostgroups;
4350: x_return_status := FND_API.G_RET_STS_ERROR ;
4351: FND_MSG_PUB.Count_And_Get
4352: (p_encoded => FND_API.G_FALSE,
4353: p_count => x_msg_count,
4354: p_data => x_msg_data);
4355: IF (l_debug = 1) THEN
4356: print_debug(' over ');
4354: p_data => x_msg_data);
4355: IF (l_debug = 1) THEN
4356: print_debug(' over ');
4357: END IF;
4358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4359: IF (l_debug = 1) THEN
4360: print_debug('inv_cost_group_update .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
4361: END IF;
4362: ROLLBACK TO API_updatecostgroups;
4359: IF (l_debug = 1) THEN
4360: print_debug('inv_cost_group_update .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
4361: END IF;
4362: ROLLBACK TO API_updatecostgroups;
4363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4364: FND_MSG_PUB.Count_And_Get
4365: (p_encoded => FND_API.G_FALSE,
4366: p_count => x_msg_count,
4367: p_data => x_msg_data);
4361: END IF;
4362: ROLLBACK TO API_updatecostgroups;
4363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4364: FND_MSG_PUB.Count_And_Get
4365: (p_encoded => FND_API.G_FALSE,
4366: p_count => x_msg_count,
4367: p_data => x_msg_data);
4368: IF (l_debug = 1) THEN
4369: print_debug(' over ' );
4372: IF (l_debug = 1) THEN
4373: print_debug('inv_cost_group_update .. EXCEP G_EXC_UNEXPECTED_ERROR : ' );
4374: END IF;
4375: ROLLBACK TO API_updatecostgroups;
4376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4377: IF fnd_msg_pub.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4378: THEN
4379: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name,
4380: l_api_name );
4379: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name,
4380: l_api_name );
4381: END IF;
4382: FND_MSG_PUB.Count_And_Get
4383: (p_encoded => FND_API.G_FALSE,
4384: p_count => x_msg_count,
4385: p_data => x_msg_data);
4386: IF (l_debug = 1) THEN
4387: print_debug(' over ');