11:
12: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
13: l_api_name VARCHAR2(100) := 'CSI_INV_TRXS_PKG.ISO_SHIPMENT';
14: l_api_version NUMBER := 1.0;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
12: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
13: l_api_name VARCHAR2(100) := 'CSI_INV_TRXS_PKG.ISO_SHIPMENT';
14: l_api_version NUMBER := 1.0;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
13: l_api_name VARCHAR2(100) := 'CSI_INV_TRXS_PKG.ISO_SHIPMENT';
14: l_api_version NUMBER := 1.0;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
21: l_transaction_id NUMBER := NULL;
14: l_api_version NUMBER := 1.0;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
21: l_transaction_id NUMBER := NULL;
22: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
21: l_transaction_id NUMBER := NULL;
22: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
23: l_object_version_number NUMBER := 1;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
21: l_transaction_id NUMBER := NULL;
22: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
23: l_object_version_number NUMBER := 1;
24: l_sysdate DATE := SYSDATE;
18: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
19: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
20: l_expire_children VARCHAR2(1) := FND_API.G_FALSE;
21: l_transaction_id NUMBER := NULL;
22: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
23: l_object_version_number NUMBER := 1;
24: l_sysdate DATE := SYSDATE;
25: l_master_organization_id NUMBER;
26: l_depreciable VARCHAR2(1);
52: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
53: l_sub_inventory VARCHAR2(10);
54: l_location_type VARCHAR2(20);
55: l_trx_action_type VARCHAR2(50);
56: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57: l_fnd_warning VARCHAR2(1) := 'W';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
54: l_location_type VARCHAR2(20);
55: l_trx_action_type VARCHAR2(50);
56: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57: l_fnd_warning VARCHAR2(1) := 'W';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
61: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
62: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
55: l_trx_action_type VARCHAR2(50);
56: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57: l_fnd_warning VARCHAR2(1) := 'W';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
61: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
62: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
63: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
56: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57: l_fnd_warning VARCHAR2(1) := 'W';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
61: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
62: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
63: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
64: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_fnd_warning VARCHAR2(1) := 'W';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
61: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
62: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
63: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
64: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
65: l_returned VARCHAR2(25) := 'RETURNED';
58: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
59: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
60: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
61: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
62: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
63: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
64: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
65: l_returned VARCHAR2(25) := 'RETURNED';
66: l_out_of_enterprise VARCHAR2(25) := 'OUT_OF_ENTERPRISE';
165: IF NOT l_return_status = l_fnd_success THEN
166: IF (l_debug > 0) THEN
167: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
168: END IF;
169: RAISE fnd_api.g_exc_error;
170: END IF;
171:
172: IF (l_debug > 0) THEN
173: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
188: IF NOT l_return_status = l_fnd_success THEN
189: IF (l_debug > 0) THEN
190: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
191: END IF;
192: RAISE fnd_api.g_exc_error;
193: END IF;
194:
195: -- Call get_fnd_employee_id and get the employee id
196: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
218: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
219: l_mtl_item_tbl(i).organization_id);
220:
221: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number_control_code in (1,6) THEN
222: l_instance_status := FND_API.G_FALSE;
223: ELSE
224: l_instance_status := FND_API.G_TRUE;
225: END IF;
226:
220:
221: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number_control_code in (1,6) THEN
222: l_instance_status := FND_API.G_FALSE;
223: ELSE
224: l_instance_status := FND_API.G_TRUE;
225: END IF;
226:
227: IF (l_debug > 0) THEN
228: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
295: IF (l_debug > 0) THEN
296: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
297: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
298: END IF;
299: RAISE fnd_api.g_exc_error;
300: END IF;
301:
302: IF (l_debug > 0) THEN
303: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
333: IF NOT l_return_status = l_fnd_success THEN
334: IF (l_debug > 0) THEN
335: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
336: END IF;
337: RAISE fnd_api.g_exc_error;
338: END IF;
339:
340: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
341:
436: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
437: END IF;
438: l_msg_index := 1;
439: WHILE l_msg_count > 0 loop
440: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
441: l_msg_index := l_msg_index + 1;
442: l_msg_count := l_msg_count - 1;
443: END LOOP;
444: RAISE fnd_api.g_exc_error;
440: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
441: l_msg_index := l_msg_index + 1;
442: l_msg_count := l_msg_count - 1;
443: END LOOP;
444: RAISE fnd_api.g_exc_error;
445: END IF;
446:
447: IF (l_debug > 0) THEN
448: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist');
515: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
516: END IF;
517: l_msg_index := 1;
518: WHILE l_msg_count > 0 loop
519: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
520: l_msg_index := l_msg_index + 1;
521: l_msg_count := l_msg_count - 1;
522: END LOOP;
523: RAISE fnd_api.g_exc_error;
519: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
520: l_msg_index := l_msg_index + 1;
521: l_msg_count := l_msg_count - 1;
522: END LOOP;
523: RAISE fnd_api.g_exc_error;
524: END IF;
525:
526: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
527:
593: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
594: END IF;
595: l_msg_index := 1;
596: WHILE l_msg_count > 0 loop
597: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
598: l_msg_index := l_msg_index + 1;
599: l_msg_count := l_msg_count - 1;
600: END LOOP;
601: RAISE fnd_api.g_exc_error;
597: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
598: l_msg_index := l_msg_index + 1;
599: l_msg_count := l_msg_count - 1;
600: END LOOP;
601: RAISE fnd_api.g_exc_error;
602: END IF;
603:
604: IF j = 1 THEN -- Look for IN Transit Non Serial If not there create or Update only 1 time
605: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
658: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
659: END IF;
660: l_msg_index := 1;
661: WHILE l_msg_count > 0 loop
662: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
663: l_msg_index := l_msg_index + 1;
664: l_msg_count := l_msg_count - 1;
665: END LOOP;
666: RAISE fnd_api.g_exc_error;
662: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
663: l_msg_index := l_msg_index + 1;
664: l_msg_count := l_msg_count - 1;
665: END LOOP;
666: RAISE fnd_api.g_exc_error;
667: END IF;
668:
669: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
670:
733: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
734: END IF;
735: l_msg_index := 1;
736: WHILE l_msg_count > 0 loop
737: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
738: l_msg_index := l_msg_index + 1;
739: l_msg_count := l_msg_count - 1;
740: END LOOP;
741: RAISE fnd_api.g_exc_error;
737: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
738: l_msg_index := l_msg_index + 1;
739: l_msg_count := l_msg_count - 1;
740: END LOOP;
741: RAISE fnd_api.g_exc_error;
742: END IF;
743:
744: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
745:
810: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
811: END IF;
812: l_msg_index := 1;
813: WHILE l_msg_count > 0 loop
814: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
815: l_msg_index := l_msg_index + 1;
816: l_msg_count := l_msg_count - 1;
817: END LOOP;
818: RAISE fnd_api.g_exc_error;
814: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
815: l_msg_index := l_msg_index + 1;
816: l_msg_count := l_msg_count - 1;
817: END LOOP;
818: RAISE fnd_api.g_exc_error;
819: END IF;
820:
821: ELSE -- Error No dest non serial recs round
822: IF (l_debug > 0) THEN
827: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
828: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
829: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
830: l_error_message := fnd_message.get;
831: RAISE fnd_api.g_exc_error;
832: END IF; -- End of Destination Record If
833:
834: END IF; -- End of j=1 for Control Code 1
835: END IF; -- serial control <> 1
843: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
844: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
845: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
846: l_error_message := fnd_message.get;
847: RAISE fnd_api.g_exc_error;
848:
849: END IF; -- SRC Table Count
850:
851: ELSIF l_mtl_item_tbl(j).serial_number_control_code in (1,6) THEN
927: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
928: END IF;
929: l_msg_index := 1;
930: WHILE l_msg_count > 0 loop
931: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
932: l_msg_index := l_msg_index + 1;
933: l_msg_count := l_msg_count - 1;
934: END LOOP;
935: RAISE fnd_api.g_exc_error;
931: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
932: l_msg_index := l_msg_index + 1;
933: l_msg_count := l_msg_count - 1;
934: END LOOP;
935: RAISE fnd_api.g_exc_error;
936: END IF;
937:
938: ELSE -- Inv Does not allowe neg qty and source is not found
939: IF (l_debug > 0) THEN
943: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
944: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
945: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
946: l_error_message := fnd_message.get;
947: RAISE fnd_api.g_exc_error;
948:
949: END IF; -- End of Neg Qty IF
950: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
951:
1009: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1010: END IF;
1011: l_msg_index := 1;
1012: WHILE l_msg_count > 0 loop
1013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1014: l_msg_index := l_msg_index + 1;
1015: l_msg_count := l_msg_count - 1;
1016: END LOOP;
1017: RAISE fnd_api.g_exc_error;
1013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1014: l_msg_index := l_msg_index + 1;
1015: l_msg_count := l_msg_count - 1;
1016: END LOOP;
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019:
1020: ELSIF l_src_instance_header_tbl.count > 1 THEN
1021: -- Multiple Instances were found so throw error
1027: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1028: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1029: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1030: l_error_message := fnd_message.get;
1031: RAISE fnd_api.g_exc_error;
1032: END IF; -- End of If for Main Source
1033: END IF; -- End of J If
1034:
1035: -- Get Destination Records
1117: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1118: END IF;
1119: l_msg_index := 1;
1120: WHILE l_msg_count > 0 loop
1121: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1122: l_msg_index := l_msg_index + 1;
1123: l_msg_count := l_msg_count - 1;
1124: END LOOP;
1125: RAISE fnd_api.g_exc_error;
1121: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1122: l_msg_index := l_msg_index + 1;
1123: l_msg_count := l_msg_count - 1;
1124: END LOOP;
1125: RAISE fnd_api.g_exc_error;
1126: END IF;
1127:
1128: IF l_receipt_action_flag = 'N' THEN -- Do regular processing to In Transit
1129: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1195: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1196: END IF;
1197: l_msg_index := 1;
1198: WHILE l_msg_count > 0 loop
1199: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1200: l_msg_index := l_msg_index + 1;
1201: l_msg_count := l_msg_count - 1;
1202: END LOOP;
1203: RAISE fnd_api.g_exc_error;
1199: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1200: l_msg_index := l_msg_index + 1;
1201: l_msg_count := l_msg_count - 1;
1202: END LOOP;
1203: RAISE fnd_api.g_exc_error;
1204: END IF;
1205:
1206: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1207:
1292: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1293: END IF;
1294: l_msg_index := 1;
1295: WHILE l_msg_count > 0 loop
1296: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1297: l_msg_index := l_msg_index + 1;
1298: l_msg_count := l_msg_count - 1;
1299: END LOOP;
1300: RAISE fnd_api.g_exc_error;
1296: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1297: l_msg_index := l_msg_index + 1;
1298: l_msg_count := l_msg_count - 1;
1299: END LOOP;
1300: RAISE fnd_api.g_exc_error;
1301: END IF;
1302:
1303: ELSE -- Error No Src Recs with usage of In Transit or Returned
1304: IF (l_debug > 0) THEN
1309: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1310: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1311: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1312: l_error_message := fnd_message.get;
1313: RAISE fnd_api.g_exc_error;
1314: END IF; -- In Transit and Returned Usage Code Check
1315: END IF; -- End of Destination Record If
1316:
1317: ELSIF l_receipt_action_flag = 'Y' THEN -- Set Serial Numbers to be Out Of Enterprise
1384: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1385: END IF;
1386: l_msg_index := 1;
1387: WHILE l_msg_count > 0 loop
1388: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1389: l_msg_index := l_msg_index + 1;
1390: l_msg_count := l_msg_count - 1;
1391: END LOOP;
1392: RAISE fnd_api.g_exc_error;
1388: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1389: l_msg_index := l_msg_index + 1;
1390: l_msg_count := l_msg_count - 1;
1391: END LOOP;
1392: RAISE fnd_api.g_exc_error;
1393: END IF;
1394:
1395: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1396:
1461: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1462: END IF;
1463: l_msg_index := 1;
1464: WHILE l_msg_count > 0 loop
1465: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1466: l_msg_index := l_msg_index + 1;
1467: l_msg_count := l_msg_count - 1;
1468: END LOOP;
1469: RAISE fnd_api.g_exc_error;
1465: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1466: l_msg_index := l_msg_index + 1;
1467: l_msg_count := l_msg_count - 1;
1468: END LOOP;
1469: RAISE fnd_api.g_exc_error;
1470: END IF;
1471: END IF; -- End of Destination Record If
1472:
1473: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1538: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1539: END IF;
1540: l_msg_index := 1;
1541: WHILE l_msg_count > 0 loop
1542: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1543: l_msg_index := l_msg_index + 1;
1544: l_msg_count := l_msg_count - 1;
1545: END LOOP;
1546: RAISE fnd_api.g_exc_error;
1542: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1543: l_msg_index := l_msg_index + 1;
1544: l_msg_count := l_msg_count - 1;
1545: END LOOP;
1546: RAISE fnd_api.g_exc_error;
1547: END IF;
1548:
1549: l_expire_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1550: l_expire_instance_rec.instance_id := l_new_dest_instance_rec.instance_id;
1602: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1603: END IF;
1604: l_msg_index := 1;
1605: WHILE l_msg_count > 0 loop
1606: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1607: l_msg_index := l_msg_index + 1;
1608: l_msg_count := l_msg_count - 1;
1609: END LOOP;
1610: RAISE fnd_api.g_exc_error;
1606: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1607: l_msg_index := l_msg_index + 1;
1608: l_msg_count := l_msg_count - 1;
1609: END LOOP;
1610: RAISE fnd_api.g_exc_error;
1611: END IF;
1612:
1613: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1614:
1680: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1681: END IF;
1682: l_msg_index := 1;
1683: WHILE l_msg_count > 0 loop
1684: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1685: l_msg_index := l_msg_index + 1;
1686: l_msg_count := l_msg_count - 1;
1687: END LOOP;
1688: RAISE fnd_api.g_exc_error;
1684: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1685: l_msg_index := l_msg_index + 1;
1686: l_msg_count := l_msg_count - 1;
1687: END LOOP;
1688: RAISE fnd_api.g_exc_error;
1689: END IF;
1690:
1691: END IF; -- Destination IF
1692:
1746: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1747: END IF;
1748: l_msg_index := 1;
1749: WHILE l_msg_count > 0 loop
1750: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1751: l_msg_index := l_msg_index + 1;
1752: l_msg_count := l_msg_count - 1;
1753: END LOOP;
1754: RAISE fnd_api.g_exc_error;
1750: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1751: l_msg_index := l_msg_index + 1;
1752: l_msg_count := l_msg_count - 1;
1753: END LOOP;
1754: RAISE fnd_api.g_exc_error;
1755: END IF;
1756:
1757: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1758:
1820: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1821: END IF;
1822: l_msg_index := 1;
1823: WHILE l_msg_count > 0 loop
1824: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1825: l_msg_index := l_msg_index + 1;
1826: l_msg_count := l_msg_count - 1;
1827: END LOOP;
1828: RAISE fnd_api.g_exc_error;
1824: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1825: l_msg_index := l_msg_index + 1;
1826: l_msg_count := l_msg_count - 1;
1827: END LOOP;
1828: RAISE fnd_api.g_exc_error;
1829: END IF;
1830:
1831: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1832:
1897: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1898: END IF;
1899: l_msg_index := 1;
1900: WHILE l_msg_count > 0 loop
1901: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1902: l_msg_index := l_msg_index + 1;
1903: l_msg_count := l_msg_count - 1;
1904: END LOOP;
1905: RAISE fnd_api.g_exc_error;
1901: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1902: l_msg_index := l_msg_index + 1;
1903: l_msg_count := l_msg_count - 1;
1904: END LOOP;
1905: RAISE fnd_api.g_exc_error;
1906: END IF;
1907:
1908: ELSE -- Error No dest non serial recs round
1909: IF (l_debug > 0) THEN
1914: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1915: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1916: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1917: l_error_message := fnd_message.get;
1918: RAISE fnd_api.g_exc_error;
1919:
1920: end if; --End of Destination Record If
1921:
1922: END IF; -- End of j=1 for Control Code 1
1930: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1931: END IF;
1932:
1933: EXCEPTION
1934: WHEN fnd_api.g_exc_error THEN
1935: IF (l_debug > 0) THEN
1936: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Sales Order Transaction - In Transit Shipment');
1937: END IF;
1938: x_return_status := l_fnd_error;
1932:
1933: EXCEPTION
1934: WHEN fnd_api.g_exc_error THEN
1935: IF (l_debug > 0) THEN
1936: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Sales Order Transaction - In Transit Shipment');
1937: END IF;
1938: x_return_status := l_fnd_error;
1939:
1940: IF l_mtl_item_tbl.count > 0 THEN
2010:
2011: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
2012: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2013: l_api_version NUMBER := 1.0;
2014: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2015: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2011: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
2012: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2013: l_api_version NUMBER := 1.0;
2014: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2015: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2019: l_transaction_id NUMBER := NULL;
2012: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2013: l_api_version NUMBER := 1.0;
2014: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2015: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2019: l_transaction_id NUMBER := NULL;
2020: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2013: l_api_version NUMBER := 1.0;
2014: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2015: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2019: l_transaction_id NUMBER := NULL;
2020: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2021: l_object_version_number NUMBER := 1;
2014: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2015: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2019: l_transaction_id NUMBER := NULL;
2020: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2021: l_object_version_number NUMBER := 1;
2022: l_sysdate DATE := SYSDATE;
2016: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2017: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2018: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2019: l_transaction_id NUMBER := NULL;
2020: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2021: l_object_version_number NUMBER := 1;
2022: l_sysdate DATE := SYSDATE;
2023: l_master_organization_id NUMBER;
2024: l_depreciable VARCHAR2(1);
2048: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
2049: l_sub_inventory VARCHAR2(10);
2050: l_location_type VARCHAR2(20);
2051: l_trx_action_type VARCHAR2(50);
2052: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2053: l_fnd_warning VARCHAR2(1) := 'W';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2050: l_location_type VARCHAR2(20);
2051: l_trx_action_type VARCHAR2(50);
2052: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2053: l_fnd_warning VARCHAR2(1) := 'W';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2057: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2058: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2051: l_trx_action_type VARCHAR2(50);
2052: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2053: l_fnd_warning VARCHAR2(1) := 'W';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2057: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2058: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2059: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2052: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2053: l_fnd_warning VARCHAR2(1) := 'W';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2057: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2058: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2059: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2060: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2053: l_fnd_warning VARCHAR2(1) := 'W';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2057: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2058: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2059: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2060: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2061: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
2054: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2055: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2056: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2057: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2058: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2059: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2060: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2061: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
2062: l_out_of_enterprise VARCHAR2(25) := 'OUT_OF_ENTERPRISE';
2193: IF NOT l_return_status = l_fnd_success THEN
2194: IF (l_debug > 0) THEN
2195: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2196: END IF;
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2199:
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2212: IF NOT l_return_status = l_fnd_success THEN
2213: IF (l_debug > 0) THEN
2214: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
2215: END IF;
2216: RAISE fnd_api.g_exc_error;
2217: END IF;
2218:
2219: -- Call get_fnd_employee_id and get the employee id
2220: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2236: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2237: END IF;
2238:
2239: -- Set so we only Query Valid Records.
2240: l_instance_status := FND_API.G_TRUE;
2241:
2242: -- Determine Transaction Type for this
2243:
2244: l_trans_type_code := 'ISO_REQUISITION_RECEIPT';
2311: IF (l_debug > 0) THEN
2312: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2313: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2314: END IF;
2315: RAISE fnd_api.g_exc_error;
2316: END IF;
2317:
2318: IF (l_debug > 0) THEN
2319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2349: IF NOT l_return_status = l_fnd_success THEN
2350: IF (l_debug > 0) THEN
2351: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2352: END IF;
2353: RAISE fnd_api.g_exc_error;
2354: END IF;
2355:
2356: -- Now loop through the PL/SQL Table.
2357: j := 1;
2500: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2501: END IF;
2502: l_msg_index := 1;
2503: WHILE l_msg_count > 0 loop
2504: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2505: l_msg_index := l_msg_index + 1;
2506: l_msg_count := l_msg_count - 1;
2507: END LOOP;
2508: RAISE fnd_api.g_exc_error;
2504: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2505: l_msg_index := l_msg_index + 1;
2506: l_msg_count := l_msg_count - 1;
2507: END LOOP;
2508: RAISE fnd_api.g_exc_error;
2509: END IF;
2510:
2511: IF l_src_instance_header_tbl.count > 0 OR
2512: l_12_loop = 1 THEN -- Installed Base Records Found
2597: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2598: END IF;
2599: l_msg_index := 1;
2600: WHILE l_msg_count > 0 loop
2601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2602: l_msg_index := l_msg_index + 1;
2603: l_msg_count := l_msg_count - 1;
2604: END LOOP;
2605: RAISE fnd_api.g_exc_error;
2601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2602: l_msg_index := l_msg_index + 1;
2603: l_msg_count := l_msg_count - 1;
2604: END LOOP;
2605: RAISE fnd_api.g_exc_error;
2606: END IF;
2607:
2608: -- Added case 2,4,6 for serial in transit being RETURNED - JPW
2609:
2677: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2678: END IF;
2679: l_msg_index := 1;
2680: WHILE l_msg_count > 0 loop
2681: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2682: l_msg_index := l_msg_index + 1;
2683: l_msg_count := l_msg_count - 1;
2684: END LOOP;
2685: RAISE fnd_api.g_exc_error;
2681: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2682: l_msg_index := l_msg_index + 1;
2683: l_msg_count := l_msg_count - 1;
2684: END LOOP;
2685: RAISE fnd_api.g_exc_error;
2686: END IF;
2687:
2688: -- IF j = 1 THEN
2689: -- Now Query for Non Serialized In Inventory Record 1 Time Only
2735: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2736: END IF;
2737: l_msg_index := 1;
2738: WHILE l_msg_count > 0 loop
2739: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2740: l_msg_index := l_msg_index + 1;
2741: l_msg_count := l_msg_count - 1;
2742: END LOOP;
2743: RAISE fnd_api.g_exc_error;
2739: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2740: l_msg_index := l_msg_index + 1;
2741: l_msg_count := l_msg_count - 1;
2742: END LOOP;
2743: RAISE fnd_api.g_exc_error;
2744: END IF;
2745:
2746: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
2747:
2811: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2812: END IF;
2813: l_msg_index := 1;
2814: WHILE l_msg_count > 0 loop
2815: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2816: l_msg_index := l_msg_index + 1;
2817: l_msg_count := l_msg_count - 1;
2818: END LOOP;
2819: RAISE fnd_api.g_exc_error;
2815: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2816: l_msg_index := l_msg_index + 1;
2817: l_msg_count := l_msg_count - 1;
2818: END LOOP;
2819: RAISE fnd_api.g_exc_error;
2820: END IF;
2821:
2822: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
2823:
2877: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
2878: END IF;
2879: l_msg_index := 1;
2880: WHILE l_msg_count > 0 loop
2881: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2882: l_msg_index := l_msg_index + 1;
2883: l_msg_count := l_msg_count - 1;
2884: END LOOP;
2885: RAISE fnd_api.g_exc_error;
2881: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2882: l_msg_index := l_msg_index + 1;
2883: l_msg_count := l_msg_count - 1;
2884: END LOOP;
2885: RAISE fnd_api.g_exc_error;
2886: END IF;
2887:
2888: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2889: -- Multiple Instances were found so throw error
2895: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2896: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2897: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2898: l_error_message := fnd_message.get;
2899: RAISE fnd_api.g_exc_error;
2900:
2901: END IF; -- End of Destination Record If
2902: --END IF; -- End of J Index Loop
2903:
2989: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2990: END IF;
2991: l_msg_index := 1;
2992: WHILE l_msg_count > 0 loop
2993: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2994: l_msg_index := l_msg_index + 1;
2995: l_msg_count := l_msg_count - 1;
2996: END LOOP;
2997: RAISE fnd_api.g_exc_error;
2993: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2994: l_msg_index := l_msg_index + 1;
2995: l_msg_count := l_msg_count - 1;
2996: END LOOP;
2997: RAISE fnd_api.g_exc_error;
2998: END IF;
2999:
3000: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3001:
3052: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3053: END IF;
3054: l_msg_index := 1;
3055: WHILE l_msg_count > 0 loop
3056: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3057: l_msg_index := l_msg_index + 1;
3058: l_msg_count := l_msg_count - 1;
3059: END LOOP;
3060: RAISE fnd_api.g_exc_error;
3056: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3057: l_msg_index := l_msg_index + 1;
3058: l_msg_count := l_msg_count - 1;
3059: END LOOP;
3060: RAISE fnd_api.g_exc_error;
3061: END IF;
3062:
3063: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
3064:
3131: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3132: END IF;
3133: l_msg_index := 1;
3134: WHILE l_msg_count > 0 loop
3135: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3136: l_msg_index := l_msg_index + 1;
3137: l_msg_count := l_msg_count - 1;
3138: END LOOP;
3139: RAISE fnd_api.g_exc_error;
3135: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3136: l_msg_index := l_msg_index + 1;
3137: l_msg_count := l_msg_count - 1;
3138: END LOOP;
3139: RAISE fnd_api.g_exc_error;
3140: END IF;
3141:
3142: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3143:
3196: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3197: END IF;
3198: l_msg_index := 1;
3199: WHILE l_msg_count > 0 loop
3200: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3201: l_msg_index := l_msg_index + 1;
3202: l_msg_count := l_msg_count - 1;
3203: END LOOP;
3204: RAISE fnd_api.g_exc_error;
3200: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3201: l_msg_index := l_msg_index + 1;
3202: l_msg_count := l_msg_count - 1;
3203: END LOOP;
3204: RAISE fnd_api.g_exc_error;
3205: END IF;
3206:
3207: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3208: -- Multiple Instances were found so throw error
3214: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3215: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3216: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3217: l_error_message := fnd_message.get;
3218: RAISE fnd_api.g_exc_error;
3219:
3220: END IF; -- End of Destination Record If
3221: END IF; -- End J Loop IF
3222:
3274: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3275: END IF;
3276: l_msg_index := 1;
3277: WHILE l_msg_count > 0 loop
3278: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3279: l_msg_index := l_msg_index + 1;
3280: l_msg_count := l_msg_count - 1;
3281: END LOOP;
3282: RAISE fnd_api.g_exc_error;
3278: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3279: l_msg_index := l_msg_index + 1;
3280: l_msg_count := l_msg_count - 1;
3281: END LOOP;
3282: RAISE fnd_api.g_exc_error;
3283: END IF;
3284:
3285: -- Now Query for Dest Non Serialized Instances and Update (Unexpire)/ Create Instances
3286: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
3331: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3332: END IF;
3333: l_msg_index := 1;
3334: WHILE l_msg_count > 0 loop
3335: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3336: l_msg_index := l_msg_index + 1;
3337: l_msg_count := l_msg_count - 1;
3338: END LOOP;
3339: RAISE fnd_api.g_exc_error;
3335: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3336: l_msg_index := l_msg_index + 1;
3337: l_msg_count := l_msg_count - 1;
3338: END LOOP;
3339: RAISE fnd_api.g_exc_error;
3340: END IF;
3341:
3342: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
3343:
3408: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3409: END IF;
3410: l_msg_index := 1;
3411: WHILE l_msg_count > 0 loop
3412: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3413: l_msg_index := l_msg_index + 1;
3414: l_msg_count := l_msg_count - 1;
3415: END LOOP;
3416: RAISE fnd_api.g_exc_error;
3412: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3413: l_msg_index := l_msg_index + 1;
3414: l_msg_count := l_msg_count - 1;
3415: END LOOP;
3416: RAISE fnd_api.g_exc_error;
3417: END IF;
3418:
3419: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3420:
3473: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3474: END IF;
3475: l_msg_index := 1;
3476: WHILE l_msg_count > 0 loop
3477: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3478: l_msg_index := l_msg_index + 1;
3479: l_msg_count := l_msg_count - 1;
3480: END LOOP;
3481: RAISE fnd_api.g_exc_error;
3477: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3478: l_msg_index := l_msg_index + 1;
3479: l_msg_count := l_msg_count - 1;
3480: END LOOP;
3481: RAISE fnd_api.g_exc_error;
3482: END IF;
3483:
3484: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3485: -- Multiple Instances were found so throw error
3492: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3493: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3494: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3495: l_error_message := fnd_message.get;
3496: RAISE fnd_api.g_exc_error;
3497: END IF; -- End of Destination Record If
3498:
3499:
3500: ELSIF (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
3561: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3562: END IF;
3563: l_msg_index := 1;
3564: WHILE l_msg_count > 0 loop
3565: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3566: l_msg_index := l_msg_index + 1;
3567: l_msg_count := l_msg_count - 1;
3568: END LOOP;
3569: RAISE fnd_api.g_exc_error;
3565: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3566: l_msg_index := l_msg_index + 1;
3567: l_msg_count := l_msg_count - 1;
3568: END LOOP;
3569: RAISE fnd_api.g_exc_error;
3570: END IF;
3571: END IF; -- End of J = 1 If to update Source 1 time
3572:
3573: -- Now Query for Dest Serialized Instances and Update (Unexpire)/ Create Instances
3620: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3621: END IF;
3622: l_msg_index := 1;
3623: WHILE l_msg_count > 0 loop
3624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3625: l_msg_index := l_msg_index + 1;
3626: l_msg_count := l_msg_count - 1;
3627: END LOOP;
3628: RAISE fnd_api.g_exc_error;
3624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3625: l_msg_index := l_msg_index + 1;
3626: l_msg_count := l_msg_count - 1;
3627: END LOOP;
3628: RAISE fnd_api.g_exc_error;
3629: END IF;
3630:
3631: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
3632:
3698: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3699: END IF;
3700: l_msg_index := 1;
3701: WHILE l_msg_count > 0 loop
3702: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3703: l_msg_index := l_msg_index + 1;
3704: l_msg_count := l_msg_count - 1;
3705: END LOOP;
3706: RAISE fnd_api.g_exc_error;
3702: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3703: l_msg_index := l_msg_index + 1;
3704: l_msg_count := l_msg_count - 1;
3705: END LOOP;
3706: RAISE fnd_api.g_exc_error;
3707: END IF;
3708:
3709: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3710:
3727:
3728: IF NOT l_return_status = l_fnd_success then
3729: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3730: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3731: RAISE fnd_api.g_exc_error;
3732: END IF;
3733:
3734: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3735:
3781: l_commit,
3782: l_init_msg_list,
3783: l_validation_level,
3784: l_instance_header_rec,
3785: fnd_api.g_true, -- Get Parties
3786: l_party_header_tbl,
3787: fnd_api.g_false, -- Get Accounts
3788: l_account_header_tbl,
3789: fnd_api.g_false, -- Get Org Assi.
3783: l_validation_level,
3784: l_instance_header_rec,
3785: fnd_api.g_true, -- Get Parties
3786: l_party_header_tbl,
3787: fnd_api.g_false, -- Get Accounts
3788: l_account_header_tbl,
3789: fnd_api.g_false, -- Get Org Assi.
3790: l_org_header_tbl,
3791: fnd_api.g_false, -- Get Price Att
3785: fnd_api.g_true, -- Get Parties
3786: l_party_header_tbl,
3787: fnd_api.g_false, -- Get Accounts
3788: l_account_header_tbl,
3789: fnd_api.g_false, -- Get Org Assi.
3790: l_org_header_tbl,
3791: fnd_api.g_false, -- Get Price Att
3792: l_pricing_header_tbl,
3793: fnd_api.g_false, -- Get Ext Attr
3787: fnd_api.g_false, -- Get Accounts
3788: l_account_header_tbl,
3789: fnd_api.g_false, -- Get Org Assi.
3790: l_org_header_tbl,
3791: fnd_api.g_false, -- Get Price Att
3792: l_pricing_header_tbl,
3793: fnd_api.g_false, -- Get Ext Attr
3794: l_ext_attrib_header_tbl,
3795: l_ext_attrib_def_tbl,
3789: fnd_api.g_false, -- Get Org Assi.
3790: l_org_header_tbl,
3791: fnd_api.g_false, -- Get Price Att
3792: l_pricing_header_tbl,
3793: fnd_api.g_false, -- Get Ext Attr
3794: l_ext_attrib_header_tbl,
3795: l_ext_attrib_def_tbl,
3796: fnd_api.g_false, -- Get Asset Assi
3797: l_asset_header_tbl,
3792: l_pricing_header_tbl,
3793: fnd_api.g_false, -- Get Ext Attr
3794: l_ext_attrib_header_tbl,
3795: l_ext_attrib_def_tbl,
3796: fnd_api.g_false, -- Get Asset Assi
3797: l_asset_header_tbl,
3798: fnd_api.g_false, -- Resolve IDs
3799: NULL, -- Time Stamp
3800: l_return_status,
3794: l_ext_attrib_header_tbl,
3795: l_ext_attrib_def_tbl,
3796: fnd_api.g_false, -- Get Asset Assi
3797: l_asset_header_tbl,
3798: fnd_api.g_false, -- Resolve IDs
3799: NULL, -- Time Stamp
3800: l_return_status,
3801: l_msg_count,
3802: l_msg_data);
3885: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3886: END IF;
3887: l_msg_index := 1;
3888: WHILE l_msg_count > 0 loop
3889: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3890: l_msg_index := l_msg_index + 1;
3891: l_msg_count := l_msg_count - 1;
3892: END LOOP;
3893: RAISE fnd_api.g_exc_error;
3889: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3890: l_msg_index := l_msg_index + 1;
3891: l_msg_count := l_msg_count - 1;
3892: END LOOP;
3893: RAISE fnd_api.g_exc_error;
3894: END IF;
3895:
3896: ELSE -- No Records Found So throw Error
3897: IF (l_debug > 0) THEN
3902: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3903: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3904: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3905: l_error_message := fnd_message.get;
3906: RAISE fnd_api.g_exc_error;
3907: END IF; -- Usage Code If
3908:
3909: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3910:
3917: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3918: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3919: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3920: l_error_message := fnd_message.get;
3921: RAISE fnd_api.g_exc_error;
3922:
3923: END IF; -- End of Destination Record If
3924:
3925: END IF; -- Serial Control IF
3932: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3933: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3934: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3935: l_error_message := fnd_message.get;
3936: RAISE fnd_api.g_exc_error;
3937: END IF; -- End of Main Source Header Tbl IF
3938: END LOOP; -- End of For Loop
3939:
3940: IF (l_debug > 0) THEN
3942: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3943: END IF;
3944:
3945: EXCEPTION
3946: WHEN fnd_api.g_exc_error THEN
3947: IF (l_debug > 0) THEN
3948: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3949: END IF;
3950: x_return_status := l_fnd_error;
3944:
3945: EXCEPTION
3946: WHEN fnd_api.g_exc_error THEN
3947: IF (l_debug > 0) THEN
3948: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3949: END IF;
3950: x_return_status := l_fnd_error;
3951:
3952: IF l_mtl_item_tbl.count > 0 THEN
4024:
4025: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
4026: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4027: l_api_version NUMBER := 1.0;
4028: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4029: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4025: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
4026: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4027: l_api_version NUMBER := 1.0;
4028: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4029: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4033: l_transaction_id NUMBER := NULL;
4026: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4027: l_api_version NUMBER := 1.0;
4028: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4029: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4033: l_transaction_id NUMBER := NULL;
4034: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4027: l_api_version NUMBER := 1.0;
4028: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4029: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4033: l_transaction_id NUMBER := NULL;
4034: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4035: l_object_version_number NUMBER := 1;
4028: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4029: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4033: l_transaction_id NUMBER := NULL;
4034: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4035: l_object_version_number NUMBER := 1;
4036: l_sysdate DATE := SYSDATE;
4030: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4031: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4032: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4033: l_transaction_id NUMBER := NULL;
4034: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4035: l_object_version_number NUMBER := 1;
4036: l_sysdate DATE := SYSDATE;
4037: l_master_organization_id NUMBER;
4038: l_depreciable VARCHAR2(1);
4062: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
4063: l_sub_inventory VARCHAR2(10);
4064: l_location_type VARCHAR2(20);
4065: l_trx_action_type VARCHAR2(50);
4066: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4067: l_fnd_warning VARCHAR2(1) := 'W';
4068: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4069: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4070: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4064: l_location_type VARCHAR2(20);
4065: l_trx_action_type VARCHAR2(50);
4066: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4067: l_fnd_warning VARCHAR2(1) := 'W';
4068: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4069: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4070: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4071: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4072: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4065: l_trx_action_type VARCHAR2(50);
4066: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4067: l_fnd_warning VARCHAR2(1) := 'W';
4068: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4069: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4070: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4071: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4072: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4073: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4069: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4070: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4071: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4072: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4073: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4074: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4075: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4076: l_instance_usage_code VARCHAR2(25);
4077: l_organization_id NUMBER;
4070: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4071: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4072: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4073: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4074: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4075: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4076: l_instance_usage_code VARCHAR2(25);
4077: l_organization_id NUMBER;
4078: l_subinventory_name VARCHAR2(10);
4071: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4072: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4073: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4074: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4075: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4076: l_instance_usage_code VARCHAR2(25);
4077: l_organization_id NUMBER;
4078: l_subinventory_name VARCHAR2(10);
4079: l_locator_id NUMBER;
4203: IF NOT l_return_status = l_fnd_success THEN
4204: IF (l_debug > 0) THEN
4205: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||r_mtl.transfer_transaction_id);
4206: END IF;
4207: RAISE fnd_api.g_exc_error;
4208: END IF;
4209:
4210: -- Get the Master Organization ID
4211: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
4216: IF NOT l_return_status = l_fnd_success THEN
4217: IF (l_debug > 0) THEN
4218: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
4219: END IF;
4220: RAISE fnd_api.g_exc_error;
4221: END IF;
4222:
4223: -- Call get_fnd_employee_id and get the employee id
4224: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
4318: IF (l_debug > 0) THEN
4319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4321: END IF;
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324:
4325: IF (l_debug > 0) THEN
4326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4356: IF NOT l_return_status = l_fnd_success THEN
4357: IF (l_debug > 0) THEN
4358: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
4359: END IF;
4360: RAISE fnd_api.g_exc_error;
4361: END IF;
4362:
4363: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4364:
4395: END IF;
4396:
4397: -- Set Query Instance Status
4398: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4399: l_instance_status := FND_API.G_FALSE;
4400: ELSE
4401: l_instance_status := FND_API.G_TRUE;
4402: END IF;
4403:
4397: -- Set Query Instance Status
4398: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4399: l_instance_status := FND_API.G_FALSE;
4400: ELSE
4401: l_instance_status := FND_API.G_TRUE;
4402: END IF;
4403:
4404: IF (l_debug > 0) THEN
4405: csi_t_gen_utility_pvt.add('Query Inst Status : '||l_instance_status);
4486: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4487: END IF;
4488: l_msg_index := 1;
4489: WHILE l_msg_count > 0 loop
4490: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4491: l_msg_index := l_msg_index + 1;
4492: l_msg_count := l_msg_count - 1;
4493: END LOOP;
4494: RAISE fnd_api.g_exc_error;
4490: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4491: l_msg_index := l_msg_index + 1;
4492: l_msg_count := l_msg_count - 1;
4493: END LOOP;
4494: RAISE fnd_api.g_exc_error;
4495: END IF;
4496:
4497: IF (l_debug > 0) THEN
4498: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist'); END IF;
4582: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4583: END IF;
4584: l_msg_index := 1;
4585: WHILE l_msg_count > 0 loop
4586: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4587: l_msg_index := l_msg_index + 1;
4588: l_msg_count := l_msg_count - 1;
4589: END LOOP;
4590: RAISE fnd_api.g_exc_error;
4586: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4587: l_msg_index := l_msg_index + 1;
4588: l_msg_count := l_msg_count - 1;
4589: END LOOP;
4590: RAISE fnd_api.g_exc_error;
4591: END IF;
4592:
4593: ELSE -- No Src Records found so error
4594: IF (l_debug > 0) THEN
4600: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
4601: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
4602: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4603: l_error_message := fnd_message.get;
4604: RAISE fnd_api.g_exc_error;
4605: END IF; -- End of 2,5 and 2,5 IF
4606:
4607: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
4608: l_sr_control = 1) OR -- Rec
4697: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4698: END IF;
4699: l_msg_index := 1;
4700: WHILE l_msg_count > 0 loop
4701: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4702: l_msg_index := l_msg_index + 1;
4703: l_msg_count := l_msg_count - 1;
4704: END LOOP;
4705: RAISE fnd_api.g_exc_error;
4701: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4702: l_msg_index := l_msg_index + 1;
4703: l_msg_count := l_msg_count - 1;
4704: END LOOP;
4705: RAISE fnd_api.g_exc_error;
4706: END IF;
4707:
4708: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
4709: IF (l_debug > 0) THEN
4715: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
4716: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
4717: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4718: l_error_message := fnd_message.get;
4719: RAISE fnd_api.g_exc_error;
4720:
4721: END IF; -- End of Neg Qty If
4722:
4723: ELSIF l_src_instance_header_tbl.count = 1 THEN
4782: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4783: END IF;
4784: l_msg_index := 1;
4785: WHILE l_msg_count > 0 loop
4786: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4787: l_msg_index := l_msg_index + 1;
4788: l_msg_count := l_msg_count - 1;
4789: END LOOP;
4790: RAISE fnd_api.g_exc_error;
4786: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4787: l_msg_index := l_msg_index + 1;
4788: l_msg_count := l_msg_count - 1;
4789: END LOOP;
4790: RAISE fnd_api.g_exc_error;
4791: END IF;
4792:
4793: ELSIF l_src_instance_header_tbl.count > 1 THEN
4794: -- Multiple Instances were found so throw error
4800: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4801: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4802: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4803: l_error_message := fnd_message.get;
4804: RAISE fnd_api.g_exc_error;
4805:
4806: END IF; -- End of If for Source Count
4807:
4808: -- Get Destination Records
4855: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4856: END IF;
4857: l_msg_index := 1;
4858: WHILE l_msg_count > 0 loop
4859: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4860: l_msg_index := l_msg_index + 1;
4861: l_msg_count := l_msg_count - 1;
4862: END LOOP;
4863: RAISE fnd_api.g_exc_error;
4859: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4860: l_msg_index := l_msg_index + 1;
4861: l_msg_count := l_msg_count - 1;
4862: END LOOP;
4863: RAISE fnd_api.g_exc_error;
4864: END IF;
4865:
4866: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
4867:
4930: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4931: END IF;
4932: l_msg_index := 1;
4933: WHILE l_msg_count > 0 loop
4934: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4935: l_msg_index := l_msg_index + 1;
4936: l_msg_count := l_msg_count - 1;
4937: END LOOP;
4938: RAISE fnd_api.g_exc_error;
4934: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4935: l_msg_index := l_msg_index + 1;
4936: l_msg_count := l_msg_count - 1;
4937: END LOOP;
4938: RAISE fnd_api.g_exc_error;
4939: END IF;
4940:
4941: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
4942:
4995: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
4996: END IF;
4997: l_msg_index := 1;
4998: WHILE l_msg_count > 0 loop
4999: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5000: l_msg_index := l_msg_index + 1;
5001: l_msg_count := l_msg_count - 1;
5002: END LOOP;
5003: RAISE fnd_api.g_exc_error;
4999: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5000: l_msg_index := l_msg_index + 1;
5001: l_msg_count := l_msg_count - 1;
5002: END LOOP;
5003: RAISE fnd_api.g_exc_error;
5004: END IF;
5005:
5006: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5007: -- Multiple Instances were found so throw error
5013: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5014: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5015: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5016: l_error_message := fnd_message.get;
5017: RAISE fnd_api.g_exc_error;
5018:
5019: END IF; -- End of Destination Record If
5020:
5021: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
5096: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5097: END IF;
5098: l_msg_index := 1;
5099: WHILE l_msg_count > 0 loop
5100: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5101: l_msg_index := l_msg_index + 1;
5102: l_msg_count := l_msg_count - 1;
5103: END LOOP;
5104: RAISE fnd_api.g_exc_error;
5100: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5101: l_msg_index := l_msg_index + 1;
5102: l_msg_count := l_msg_count - 1;
5103: END LOOP;
5104: RAISE fnd_api.g_exc_error;
5105: END IF;
5106:
5107: -- Bug 3880731 Take out the loop
5108: -- END LOOP; -- End For Loop for Update of Sr Instances
5158: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5159: END IF;
5160: l_msg_index := 1;
5161: WHILE l_msg_count > 0 loop
5162: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5163: l_msg_index := l_msg_index + 1;
5164: l_msg_count := l_msg_count - 1;
5165: END LOOP;
5166: RAISE fnd_api.g_exc_error;
5162: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5163: l_msg_index := l_msg_index + 1;
5164: l_msg_count := l_msg_count - 1;
5165: END LOOP;
5166: RAISE fnd_api.g_exc_error;
5167: END IF;
5168:
5169: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5170:
5233: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5234: END IF;
5235: l_msg_index := 1;
5236: WHILE l_msg_count > 0 loop
5237: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5238: l_msg_index := l_msg_index + 1;
5239: l_msg_count := l_msg_count - 1;
5240: END LOOP;
5241: RAISE fnd_api.g_exc_error;
5237: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5238: l_msg_index := l_msg_index + 1;
5239: l_msg_count := l_msg_count - 1;
5240: END LOOP;
5241: RAISE fnd_api.g_exc_error;
5242: END IF;
5243:
5244: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
5245:
5298: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5299: END IF;
5300: l_msg_index := 1;
5301: WHILE l_msg_count > 0 loop
5302: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5303: l_msg_index := l_msg_index + 1;
5304: l_msg_count := l_msg_count - 1;
5305: END LOOP;
5306: RAISE fnd_api.g_exc_error;
5302: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5303: l_msg_index := l_msg_index + 1;
5304: l_msg_count := l_msg_count - 1;
5305: END LOOP;
5306: RAISE fnd_api.g_exc_error;
5307: END IF;
5308:
5309: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5310: -- Multiple Instances were found so throw error
5316: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5317: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5318: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5319: l_error_message := fnd_message.get;
5320: RAISE fnd_api.g_exc_error;
5321:
5322: END IF; -- End of Destination Record If
5323: END IF; -- End of J Index Loop
5324:
5392: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5393: END IF;
5394: l_msg_index := 1;
5395: WHILE l_msg_count > 0 loop
5396: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5397: l_msg_index := l_msg_index + 1;
5398: l_msg_count := l_msg_count - 1;
5399: END LOOP;
5400: RAISE fnd_api.g_exc_error;
5396: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5397: l_msg_index := l_msg_index + 1;
5398: l_msg_count := l_msg_count - 1;
5399: END LOOP;
5400: RAISE fnd_api.g_exc_error;
5401: END IF;
5402: END IF; -- End of J = 1 If to update Source 1 time
5403:
5404: -- Now Query for Dest Serialized Instances and Update (Unexpire)/ Create Instances
5451: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5452: END IF;
5453: l_msg_index := 1;
5454: WHILE l_msg_count > 0 loop
5455: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5456: l_msg_index := l_msg_index + 1;
5457: l_msg_count := l_msg_count - 1;
5458: END LOOP;
5459: RAISE fnd_api.g_exc_error;
5455: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5456: l_msg_index := l_msg_index + 1;
5457: l_msg_count := l_msg_count - 1;
5458: END LOOP;
5459: RAISE fnd_api.g_exc_error;
5460: END IF;
5461:
5462: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5463:
5529: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5530: END IF;
5531: l_msg_index := 1;
5532: WHILE l_msg_count > 0 loop
5533: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5534: l_msg_index := l_msg_index + 1;
5535: l_msg_count := l_msg_count - 1;
5536: END LOOP;
5537: RAISE fnd_api.g_exc_error;
5533: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5534: l_msg_index := l_msg_index + 1;
5535: l_msg_count := l_msg_count - 1;
5536: END LOOP;
5537: RAISE fnd_api.g_exc_error;
5538: END IF;
5539:
5540: ELSIF l_dest_instance_header_tbl.count > 0 THEN -- Installed Base Destination Records Found
5541:
5551:
5552: IF NOT l_return_status = l_fnd_success then
5553: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5554: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5555: RAISE fnd_api.g_exc_error;
5556: END IF;
5557:
5558: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5559:
5620: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5621: END IF;
5622: l_msg_index := 1;
5623: WHILE l_msg_count > 0 loop
5624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5625: l_msg_index := l_msg_index + 1;
5626: l_msg_count := l_msg_count - 1;
5627: END LOOP;
5628: RAISE fnd_api.g_exc_error;
5624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5625: l_msg_index := l_msg_index + 1;
5626: l_msg_count := l_msg_count - 1;
5627: END LOOP;
5628: RAISE fnd_api.g_exc_error;
5629: END IF;
5630:
5631: ELSE -- No Serialized Instances with In Inventory or In Relationship Exist
5632:
5638: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
5639: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
5640: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
5641: l_error_message := fnd_message.get;
5642: RAISE fnd_api.g_exc_error;
5643:
5644: END IF; -- End of inv or in rel IF
5645:
5646: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5653: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5654: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5655: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5656: l_error_message := fnd_message.get;
5657: RAISE fnd_api.g_exc_error;
5658:
5659: END IF; -- End of Destination Record If
5660:
5661: END IF; -- End of Serial Control IF
5676: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5677: END IF;
5678:
5679: EXCEPTION
5680: WHEN fnd_api.g_exc_error THEN
5681: IF (l_debug > 0) THEN
5682: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5683: END IF;
5684: x_return_status := l_fnd_error;
5678:
5679: EXCEPTION
5680: WHEN fnd_api.g_exc_error THEN
5681: IF (l_debug > 0) THEN
5682: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5683: END IF;
5684: x_return_status := l_fnd_error;
5685:
5686: IF l_mtl_item_tbl.count > 0 THEN