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';
167: IF NOT l_return_status = l_fnd_success THEN
168: IF (l_debug > 0) THEN
169: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
170: END IF;
171: RAISE fnd_api.g_exc_error;
172: END IF;
173:
174: IF (l_debug > 0) THEN
175: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
190: IF NOT l_return_status = l_fnd_success THEN
191: IF (l_debug > 0) THEN
192: 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);
193: END IF;
194: RAISE fnd_api.g_exc_error;
195: END IF;
196:
197: -- Call get_fnd_employee_id and get the employee id
198: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
221: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
222: l_mtl_item_tbl(i).organization_id);
223:
224: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number_control_code in (1,6) THEN
225: l_instance_status := FND_API.G_FALSE;
226: ELSE
227: l_instance_status := FND_API.G_TRUE;
228: END IF;
229:
223:
224: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number_control_code in (1,6) THEN
225: l_instance_status := FND_API.G_FALSE;
226: ELSE
227: l_instance_status := FND_API.G_TRUE;
228: END IF;
229:
230: IF (l_debug > 0) THEN
231: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
298: IF (l_debug > 0) THEN
299: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
300: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
301: END IF;
302: RAISE fnd_api.g_exc_error;
303: END IF;
304:
305: IF (l_debug > 0) THEN
306: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
336: IF NOT l_return_status = l_fnd_success THEN
337: IF (l_debug > 0) THEN
338: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
339: END IF;
340: RAISE fnd_api.g_exc_error;
341: END IF;
342:
343: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
344:
440: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
441: END IF;
442: l_msg_index := 1;
443: WHILE l_msg_count > 0 loop
444: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
445: l_msg_index := l_msg_index + 1;
446: l_msg_count := l_msg_count - 1;
447: END LOOP;
448: RAISE fnd_api.g_exc_error;
444: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
445: l_msg_index := l_msg_index + 1;
446: l_msg_count := l_msg_count - 1;
447: END LOOP;
448: RAISE fnd_api.g_exc_error;
449: END IF;
450:
451: IF (l_debug > 0) THEN
452: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist');
519: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
520: END IF;
521: l_msg_index := 1;
522: WHILE l_msg_count > 0 loop
523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
524: l_msg_index := l_msg_index + 1;
525: l_msg_count := l_msg_count - 1;
526: END LOOP;
527: RAISE fnd_api.g_exc_error;
523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
524: l_msg_index := l_msg_index + 1;
525: l_msg_count := l_msg_count - 1;
526: END LOOP;
527: RAISE fnd_api.g_exc_error;
528: END IF;
529:
530: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
531:
597: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
598: END IF;
599: l_msg_index := 1;
600: WHILE l_msg_count > 0 loop
601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
602: l_msg_index := l_msg_index + 1;
603: l_msg_count := l_msg_count - 1;
604: END LOOP;
605: RAISE fnd_api.g_exc_error;
601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
602: l_msg_index := l_msg_index + 1;
603: l_msg_count := l_msg_count - 1;
604: END LOOP;
605: RAISE fnd_api.g_exc_error;
606: END IF;
607:
608: IF j = 1 THEN -- Look for IN Transit Non Serial If not there create or Update only 1 time
609: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
662: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
663: END IF;
664: l_msg_index := 1;
665: WHILE l_msg_count > 0 loop
666: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
667: l_msg_index := l_msg_index + 1;
668: l_msg_count := l_msg_count - 1;
669: END LOOP;
670: RAISE fnd_api.g_exc_error;
666: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
667: l_msg_index := l_msg_index + 1;
668: l_msg_count := l_msg_count - 1;
669: END LOOP;
670: RAISE fnd_api.g_exc_error;
671: END IF;
672:
673: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
674:
737: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
738: END IF;
739: l_msg_index := 1;
740: WHILE l_msg_count > 0 loop
741: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
742: l_msg_index := l_msg_index + 1;
743: l_msg_count := l_msg_count - 1;
744: END LOOP;
745: RAISE fnd_api.g_exc_error;
741: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
742: l_msg_index := l_msg_index + 1;
743: l_msg_count := l_msg_count - 1;
744: END LOOP;
745: RAISE fnd_api.g_exc_error;
746: END IF;
747:
748: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
749:
814: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
815: END IF;
816: l_msg_index := 1;
817: WHILE l_msg_count > 0 loop
818: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
819: l_msg_index := l_msg_index + 1;
820: l_msg_count := l_msg_count - 1;
821: END LOOP;
822: RAISE fnd_api.g_exc_error;
818: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
819: l_msg_index := l_msg_index + 1;
820: l_msg_count := l_msg_count - 1;
821: END LOOP;
822: RAISE fnd_api.g_exc_error;
823: END IF;
824:
825: ELSE -- Error No dest non serial recs round
826: IF (l_debug > 0) THEN
831: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
832: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
833: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
834: l_error_message := fnd_message.get;
835: RAISE fnd_api.g_exc_error;
836: END IF; -- End of Destination Record If
837:
838: END IF; -- End of j=1 for Control Code 1
839: END IF; -- serial control <> 1
847: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
848: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
849: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
850: l_error_message := fnd_message.get;
851: RAISE fnd_api.g_exc_error;
852:
853: END IF; -- SRC Table Count
854:
855: ELSIF l_mtl_item_tbl(j).serial_number_control_code in (1,6) THEN
931: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
932: END IF;
933: l_msg_index := 1;
934: WHILE l_msg_count > 0 loop
935: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
936: l_msg_index := l_msg_index + 1;
937: l_msg_count := l_msg_count - 1;
938: END LOOP;
939: RAISE fnd_api.g_exc_error;
935: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
936: l_msg_index := l_msg_index + 1;
937: l_msg_count := l_msg_count - 1;
938: END LOOP;
939: RAISE fnd_api.g_exc_error;
940: END IF;
941:
942: ELSE -- Inv Does not allowe neg qty and source is not found
943: IF (l_debug > 0) THEN
947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
948: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
949: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
950: l_error_message := fnd_message.get;
951: RAISE fnd_api.g_exc_error;
952:
953: END IF; -- End of Neg Qty IF
954: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
955:
1013: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1014: END IF;
1015: l_msg_index := 1;
1016: WHILE l_msg_count > 0 loop
1017: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1018: l_msg_index := l_msg_index + 1;
1019: l_msg_count := l_msg_count - 1;
1020: END LOOP;
1021: RAISE fnd_api.g_exc_error;
1017: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1018: l_msg_index := l_msg_index + 1;
1019: l_msg_count := l_msg_count - 1;
1020: END LOOP;
1021: RAISE fnd_api.g_exc_error;
1022: END IF;
1023:
1024: ELSIF l_src_instance_header_tbl.count > 1 THEN
1025: -- Multiple Instances were found so throw error
1031: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1032: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1033: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1034: l_error_message := fnd_message.get;
1035: RAISE fnd_api.g_exc_error;
1036: END IF; -- End of If for Main Source
1037: END IF; -- End of J If
1038:
1039: -- Get Destination Records
1121: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1122: END IF;
1123: l_msg_index := 1;
1124: WHILE l_msg_count > 0 loop
1125: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1126: l_msg_index := l_msg_index + 1;
1127: l_msg_count := l_msg_count - 1;
1128: END LOOP;
1129: RAISE fnd_api.g_exc_error;
1125: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1126: l_msg_index := l_msg_index + 1;
1127: l_msg_count := l_msg_count - 1;
1128: END LOOP;
1129: RAISE fnd_api.g_exc_error;
1130: END IF;
1131:
1132: IF l_receipt_action_flag = 'N' THEN -- Do regular processing to In Transit
1133: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1199: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1200: END IF;
1201: l_msg_index := 1;
1202: WHILE l_msg_count > 0 loop
1203: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1204: l_msg_index := l_msg_index + 1;
1205: l_msg_count := l_msg_count - 1;
1206: END LOOP;
1207: RAISE fnd_api.g_exc_error;
1203: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1204: l_msg_index := l_msg_index + 1;
1205: l_msg_count := l_msg_count - 1;
1206: END LOOP;
1207: RAISE fnd_api.g_exc_error;
1208: END IF;
1209:
1210: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1211:
1296: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1297: END IF;
1298: l_msg_index := 1;
1299: WHILE l_msg_count > 0 loop
1300: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1301: l_msg_index := l_msg_index + 1;
1302: l_msg_count := l_msg_count - 1;
1303: END LOOP;
1304: RAISE fnd_api.g_exc_error;
1300: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1301: l_msg_index := l_msg_index + 1;
1302: l_msg_count := l_msg_count - 1;
1303: END LOOP;
1304: RAISE fnd_api.g_exc_error;
1305: END IF;
1306:
1307: ELSE -- Error No Src Recs with usage of In Transit or Returned
1308: IF (l_debug > 0) THEN
1313: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1314: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1315: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1316: l_error_message := fnd_message.get;
1317: RAISE fnd_api.g_exc_error;
1318: END IF; -- In Transit and Returned Usage Code Check
1319: END IF; -- End of Destination Record If
1320:
1321: ELSIF l_receipt_action_flag = 'Y' THEN -- Set Serial Numbers to be Out Of Enterprise
1388: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1389: END IF;
1390: l_msg_index := 1;
1391: WHILE l_msg_count > 0 loop
1392: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1393: l_msg_index := l_msg_index + 1;
1394: l_msg_count := l_msg_count - 1;
1395: END LOOP;
1396: RAISE fnd_api.g_exc_error;
1392: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1393: l_msg_index := l_msg_index + 1;
1394: l_msg_count := l_msg_count - 1;
1395: END LOOP;
1396: RAISE fnd_api.g_exc_error;
1397: END IF;
1398:
1399: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1400:
1465: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1466: END IF;
1467: l_msg_index := 1;
1468: WHILE l_msg_count > 0 loop
1469: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1470: l_msg_index := l_msg_index + 1;
1471: l_msg_count := l_msg_count - 1;
1472: END LOOP;
1473: RAISE fnd_api.g_exc_error;
1469: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1470: l_msg_index := l_msg_index + 1;
1471: l_msg_count := l_msg_count - 1;
1472: END LOOP;
1473: RAISE fnd_api.g_exc_error;
1474: END IF;
1475: END IF; -- End of Destination Record If
1476:
1477: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1542: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1543: END IF;
1544: l_msg_index := 1;
1545: WHILE l_msg_count > 0 loop
1546: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1547: l_msg_index := l_msg_index + 1;
1548: l_msg_count := l_msg_count - 1;
1549: END LOOP;
1550: RAISE fnd_api.g_exc_error;
1546: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1547: l_msg_index := l_msg_index + 1;
1548: l_msg_count := l_msg_count - 1;
1549: END LOOP;
1550: RAISE fnd_api.g_exc_error;
1551: END IF;
1552:
1553: l_expire_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1554: l_expire_instance_rec.instance_id := l_new_dest_instance_rec.instance_id;
1606: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1607: END IF;
1608: l_msg_index := 1;
1609: WHILE l_msg_count > 0 loop
1610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1611: l_msg_index := l_msg_index + 1;
1612: l_msg_count := l_msg_count - 1;
1613: END LOOP;
1614: RAISE fnd_api.g_exc_error;
1610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1611: l_msg_index := l_msg_index + 1;
1612: l_msg_count := l_msg_count - 1;
1613: END LOOP;
1614: RAISE fnd_api.g_exc_error;
1615: END IF;
1616:
1617: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1618:
1684: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1685: END IF;
1686: l_msg_index := 1;
1687: WHILE l_msg_count > 0 loop
1688: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1689: l_msg_index := l_msg_index + 1;
1690: l_msg_count := l_msg_count - 1;
1691: END LOOP;
1692: RAISE fnd_api.g_exc_error;
1688: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1689: l_msg_index := l_msg_index + 1;
1690: l_msg_count := l_msg_count - 1;
1691: END LOOP;
1692: RAISE fnd_api.g_exc_error;
1693: END IF;
1694:
1695: END IF; -- Destination IF
1696:
1750: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1751: END IF;
1752: l_msg_index := 1;
1753: WHILE l_msg_count > 0 loop
1754: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1755: l_msg_index := l_msg_index + 1;
1756: l_msg_count := l_msg_count - 1;
1757: END LOOP;
1758: RAISE fnd_api.g_exc_error;
1754: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1755: l_msg_index := l_msg_index + 1;
1756: l_msg_count := l_msg_count - 1;
1757: END LOOP;
1758: RAISE fnd_api.g_exc_error;
1759: END IF;
1760:
1761: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1762:
1824: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1825: END IF;
1826: l_msg_index := 1;
1827: WHILE l_msg_count > 0 loop
1828: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1829: l_msg_index := l_msg_index + 1;
1830: l_msg_count := l_msg_count - 1;
1831: END LOOP;
1832: RAISE fnd_api.g_exc_error;
1828: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1829: l_msg_index := l_msg_index + 1;
1830: l_msg_count := l_msg_count - 1;
1831: END LOOP;
1832: RAISE fnd_api.g_exc_error;
1833: END IF;
1834:
1835: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1836:
1901: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1902: END IF;
1903: l_msg_index := 1;
1904: WHILE l_msg_count > 0 loop
1905: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1906: l_msg_index := l_msg_index + 1;
1907: l_msg_count := l_msg_count - 1;
1908: END LOOP;
1909: RAISE fnd_api.g_exc_error;
1905: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1906: l_msg_index := l_msg_index + 1;
1907: l_msg_count := l_msg_count - 1;
1908: END LOOP;
1909: RAISE fnd_api.g_exc_error;
1910: END IF;
1911:
1912: ELSE -- Error No dest non serial recs round
1913: IF (l_debug > 0) THEN
1918: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1919: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1920: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1921: l_error_message := fnd_message.get;
1922: RAISE fnd_api.g_exc_error;
1923:
1924: end if; --End of Destination Record If
1925:
1926: END IF; -- End of j=1 for Control Code 1
1934: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1935: END IF;
1936:
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1939: IF (l_debug > 0) THEN
1940: 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');
1941: END IF;
1942: x_return_status := l_fnd_error;
1936:
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1939: IF (l_debug > 0) THEN
1940: 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');
1941: END IF;
1942: x_return_status := l_fnd_error;
1943:
1944: IF l_mtl_item_tbl.count > 0 THEN
2014:
2015: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
2016: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2017: l_api_version NUMBER := 1.0;
2018: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2019: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2015: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
2016: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2017: l_api_version NUMBER := 1.0;
2018: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2019: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2023: l_transaction_id NUMBER := NULL;
2016: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_RECEIPT';
2017: l_api_version NUMBER := 1.0;
2018: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2019: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2023: l_transaction_id NUMBER := NULL;
2024: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2017: l_api_version NUMBER := 1.0;
2018: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2019: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2023: l_transaction_id NUMBER := NULL;
2024: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2025: l_object_version_number NUMBER := 1;
2018: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2019: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2023: l_transaction_id NUMBER := NULL;
2024: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2025: l_object_version_number NUMBER := 1;
2026: l_sysdate DATE := SYSDATE;
2020: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2021: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
2022: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
2023: l_transaction_id NUMBER := NULL;
2024: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
2025: l_object_version_number NUMBER := 1;
2026: l_sysdate DATE := SYSDATE;
2027: l_master_organization_id NUMBER;
2028: l_depreciable VARCHAR2(1);
2052: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
2053: l_sub_inventory VARCHAR2(10);
2054: l_location_type VARCHAR2(20);
2055: l_trx_action_type VARCHAR2(50);
2056: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2057: l_fnd_warning VARCHAR2(1) := 'W';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2054: l_location_type VARCHAR2(20);
2055: l_trx_action_type VARCHAR2(50);
2056: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2057: l_fnd_warning VARCHAR2(1) := 'W';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2061: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2062: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2055: l_trx_action_type VARCHAR2(50);
2056: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2057: l_fnd_warning VARCHAR2(1) := 'W';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2061: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2062: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2063: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2056: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2057: l_fnd_warning VARCHAR2(1) := 'W';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2061: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2062: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2063: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2064: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2057: l_fnd_warning VARCHAR2(1) := 'W';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2061: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2062: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2063: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2064: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2065: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
2058: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2059: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2060: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
2061: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
2062: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
2063: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2064: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
2065: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
2066: l_out_of_enterprise VARCHAR2(25) := 'OUT_OF_ENTERPRISE';
2199: IF NOT l_return_status = l_fnd_success THEN
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2202: END IF;
2203: RAISE fnd_api.g_exc_error;
2204: END IF;
2205:
2206: IF (l_debug > 0) THEN
2207: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2218: IF NOT l_return_status = l_fnd_success THEN
2219: IF (l_debug > 0) THEN
2220: 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);
2221: END IF;
2222: RAISE fnd_api.g_exc_error;
2223: END IF;
2224:
2225: -- Call get_fnd_employee_id and get the employee id
2226: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2243: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2244: END IF;
2245:
2246: -- Set so we only Query Valid Records.
2247: l_instance_status := FND_API.G_TRUE;
2248:
2249: -- Determine Transaction Type for this
2250:
2251: l_trans_type_code := 'ISO_REQUISITION_RECEIPT';
2318: IF (l_debug > 0) THEN
2319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2321: END IF;
2322: RAISE fnd_api.g_exc_error;
2323: END IF;
2324:
2325: IF (l_debug > 0) THEN
2326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2356: IF NOT l_return_status = l_fnd_success THEN
2357: IF (l_debug > 0) THEN
2358: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2359: END IF;
2360: RAISE fnd_api.g_exc_error;
2361: END IF;
2362:
2363: -- Now loop through the PL/SQL Table.
2364: j := 1;
2519: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2520: END IF;
2521: l_msg_index := 1;
2522: WHILE l_msg_count > 0 loop
2523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2524: l_msg_index := l_msg_index + 1;
2525: l_msg_count := l_msg_count - 1;
2526: END LOOP;
2527: RAISE fnd_api.g_exc_error;
2523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2524: l_msg_index := l_msg_index + 1;
2525: l_msg_count := l_msg_count - 1;
2526: END LOOP;
2527: RAISE fnd_api.g_exc_error;
2528: END IF;
2529:
2530: IF l_src_instance_header_tbl.count > 0 OR
2531: l_12_loop = 1 THEN -- Installed Base Records Found
2616: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2617: END IF;
2618: l_msg_index := 1;
2619: WHILE l_msg_count > 0 loop
2620: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2621: l_msg_index := l_msg_index + 1;
2622: l_msg_count := l_msg_count - 1;
2623: END LOOP;
2624: RAISE fnd_api.g_exc_error;
2620: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2621: l_msg_index := l_msg_index + 1;
2622: l_msg_count := l_msg_count - 1;
2623: END LOOP;
2624: RAISE fnd_api.g_exc_error;
2625: END IF;
2626:
2627: -- Added case 2,4,6 for serial in transit being RETURNED - JPW
2628:
2696: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2697: END IF;
2698: l_msg_index := 1;
2699: WHILE l_msg_count > 0 loop
2700: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2701: l_msg_index := l_msg_index + 1;
2702: l_msg_count := l_msg_count - 1;
2703: END LOOP;
2704: RAISE fnd_api.g_exc_error;
2700: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2701: l_msg_index := l_msg_index + 1;
2702: l_msg_count := l_msg_count - 1;
2703: END LOOP;
2704: RAISE fnd_api.g_exc_error;
2705: END IF;
2706:
2707: -- IF j = 1 THEN
2708: -- Now Query for Non Serialized In Inventory Record 1 Time Only
2754: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2755: END IF;
2756: l_msg_index := 1;
2757: WHILE l_msg_count > 0 loop
2758: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2759: l_msg_index := l_msg_index + 1;
2760: l_msg_count := l_msg_count - 1;
2761: END LOOP;
2762: RAISE fnd_api.g_exc_error;
2758: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2759: l_msg_index := l_msg_index + 1;
2760: l_msg_count := l_msg_count - 1;
2761: END LOOP;
2762: RAISE fnd_api.g_exc_error;
2763: END IF;
2764:
2765: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
2766:
2830: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2831: END IF;
2832: l_msg_index := 1;
2833: WHILE l_msg_count > 0 loop
2834: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2835: l_msg_index := l_msg_index + 1;
2836: l_msg_count := l_msg_count - 1;
2837: END LOOP;
2838: RAISE fnd_api.g_exc_error;
2834: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2835: l_msg_index := l_msg_index + 1;
2836: l_msg_count := l_msg_count - 1;
2837: END LOOP;
2838: RAISE fnd_api.g_exc_error;
2839: END IF;
2840:
2841: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
2842:
2896: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
2897: END IF;
2898: l_msg_index := 1;
2899: WHILE l_msg_count > 0 loop
2900: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2901: l_msg_index := l_msg_index + 1;
2902: l_msg_count := l_msg_count - 1;
2903: END LOOP;
2904: RAISE fnd_api.g_exc_error;
2900: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2901: l_msg_index := l_msg_index + 1;
2902: l_msg_count := l_msg_count - 1;
2903: END LOOP;
2904: RAISE fnd_api.g_exc_error;
2905: END IF;
2906:
2907: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2908: -- Multiple Instances were found so throw error
2914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2917: l_error_message := fnd_message.get;
2918: RAISE fnd_api.g_exc_error;
2919:
2920: END IF; -- End of Destination Record If
2921: --END IF; -- End of J Index Loop
2922:
3009: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3010: END IF;
3011: l_msg_index := 1;
3012: WHILE l_msg_count > 0 loop
3013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3014: l_msg_index := l_msg_index + 1;
3015: l_msg_count := l_msg_count - 1;
3016: END LOOP;
3017: RAISE fnd_api.g_exc_error;
3013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3014: l_msg_index := l_msg_index + 1;
3015: l_msg_count := l_msg_count - 1;
3016: END LOOP;
3017: RAISE fnd_api.g_exc_error;
3018: END IF;
3019:
3020: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3021:
3072: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3073: END IF;
3074: l_msg_index := 1;
3075: WHILE l_msg_count > 0 loop
3076: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3077: l_msg_index := l_msg_index + 1;
3078: l_msg_count := l_msg_count - 1;
3079: END LOOP;
3080: RAISE fnd_api.g_exc_error;
3076: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3077: l_msg_index := l_msg_index + 1;
3078: l_msg_count := l_msg_count - 1;
3079: END LOOP;
3080: RAISE fnd_api.g_exc_error;
3081: END IF;
3082:
3083: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
3084:
3151: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3152: END IF;
3153: l_msg_index := 1;
3154: WHILE l_msg_count > 0 loop
3155: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3156: l_msg_index := l_msg_index + 1;
3157: l_msg_count := l_msg_count - 1;
3158: END LOOP;
3159: RAISE fnd_api.g_exc_error;
3155: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3156: l_msg_index := l_msg_index + 1;
3157: l_msg_count := l_msg_count - 1;
3158: END LOOP;
3159: RAISE fnd_api.g_exc_error;
3160: END IF;
3161:
3162: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3163:
3216: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3217: END IF;
3218: l_msg_index := 1;
3219: WHILE l_msg_count > 0 loop
3220: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3221: l_msg_index := l_msg_index + 1;
3222: l_msg_count := l_msg_count - 1;
3223: END LOOP;
3224: RAISE fnd_api.g_exc_error;
3220: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3221: l_msg_index := l_msg_index + 1;
3222: l_msg_count := l_msg_count - 1;
3223: END LOOP;
3224: RAISE fnd_api.g_exc_error;
3225: END IF;
3226:
3227: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3228: -- Multiple Instances were found so throw error
3234: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3235: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3236: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3237: l_error_message := fnd_message.get;
3238: RAISE fnd_api.g_exc_error;
3239:
3240: END IF; -- End of Destination Record If
3241: END IF; -- End J Loop IF
3242:
3294: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3295: END IF;
3296: l_msg_index := 1;
3297: WHILE l_msg_count > 0 loop
3298: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3299: l_msg_index := l_msg_index + 1;
3300: l_msg_count := l_msg_count - 1;
3301: END LOOP;
3302: RAISE fnd_api.g_exc_error;
3298: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3299: l_msg_index := l_msg_index + 1;
3300: l_msg_count := l_msg_count - 1;
3301: END LOOP;
3302: RAISE fnd_api.g_exc_error;
3303: END IF;
3304:
3305: -- Now Query for Dest Non Serialized Instances and Update (Unexpire)/ Create Instances
3306: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
3351: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3352: END IF;
3353: l_msg_index := 1;
3354: WHILE l_msg_count > 0 loop
3355: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3356: l_msg_index := l_msg_index + 1;
3357: l_msg_count := l_msg_count - 1;
3358: END LOOP;
3359: RAISE fnd_api.g_exc_error;
3355: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3356: l_msg_index := l_msg_index + 1;
3357: l_msg_count := l_msg_count - 1;
3358: END LOOP;
3359: RAISE fnd_api.g_exc_error;
3360: END IF;
3361:
3362: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
3363:
3428: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3429: END IF;
3430: l_msg_index := 1;
3431: WHILE l_msg_count > 0 loop
3432: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3433: l_msg_index := l_msg_index + 1;
3434: l_msg_count := l_msg_count - 1;
3435: END LOOP;
3436: RAISE fnd_api.g_exc_error;
3432: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3433: l_msg_index := l_msg_index + 1;
3434: l_msg_count := l_msg_count - 1;
3435: END LOOP;
3436: RAISE fnd_api.g_exc_error;
3437: END IF;
3438:
3439: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3440:
3493: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3494: END IF;
3495: l_msg_index := 1;
3496: WHILE l_msg_count > 0 loop
3497: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3498: l_msg_index := l_msg_index + 1;
3499: l_msg_count := l_msg_count - 1;
3500: END LOOP;
3501: RAISE fnd_api.g_exc_error;
3497: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3498: l_msg_index := l_msg_index + 1;
3499: l_msg_count := l_msg_count - 1;
3500: END LOOP;
3501: RAISE fnd_api.g_exc_error;
3502: END IF;
3503:
3504: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3505: -- Multiple Instances were found so throw error
3512: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3513: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3514: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3515: l_error_message := fnd_message.get;
3516: RAISE fnd_api.g_exc_error;
3517: END IF; -- End of Destination Record If
3518:
3519:
3520: ELSIF (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
3581: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3582: END IF;
3583: l_msg_index := 1;
3584: WHILE l_msg_count > 0 loop
3585: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3586: l_msg_index := l_msg_index + 1;
3587: l_msg_count := l_msg_count - 1;
3588: END LOOP;
3589: RAISE fnd_api.g_exc_error;
3585: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3586: l_msg_index := l_msg_index + 1;
3587: l_msg_count := l_msg_count - 1;
3588: END LOOP;
3589: RAISE fnd_api.g_exc_error;
3590: END IF;
3591: END IF; -- End of J = 1 If to update Source 1 time
3592:
3593: -- Now Query for Dest Serialized Instances and Update (Unexpire)/ Create Instances
3640: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3641: END IF;
3642: l_msg_index := 1;
3643: WHILE l_msg_count > 0 loop
3644: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3645: l_msg_index := l_msg_index + 1;
3646: l_msg_count := l_msg_count - 1;
3647: END LOOP;
3648: RAISE fnd_api.g_exc_error;
3644: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3645: l_msg_index := l_msg_index + 1;
3646: l_msg_count := l_msg_count - 1;
3647: END LOOP;
3648: RAISE fnd_api.g_exc_error;
3649: END IF;
3650:
3651: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
3652:
3718: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3719: END IF;
3720: l_msg_index := 1;
3721: WHILE l_msg_count > 0 loop
3722: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3723: l_msg_index := l_msg_index + 1;
3724: l_msg_count := l_msg_count - 1;
3725: END LOOP;
3726: RAISE fnd_api.g_exc_error;
3722: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3723: l_msg_index := l_msg_index + 1;
3724: l_msg_count := l_msg_count - 1;
3725: END LOOP;
3726: RAISE fnd_api.g_exc_error;
3727: END IF;
3728:
3729: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3730:
3747:
3748: IF NOT l_return_status = l_fnd_success then
3749: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3750: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3751: RAISE fnd_api.g_exc_error;
3752: END IF;
3753:
3754: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3755:
3801: l_commit,
3802: l_init_msg_list,
3803: l_validation_level,
3804: l_instance_header_rec,
3805: fnd_api.g_true, -- Get Parties
3806: l_party_header_tbl,
3807: fnd_api.g_false, -- Get Accounts
3808: l_account_header_tbl,
3809: fnd_api.g_false, -- Get Org Assi.
3803: l_validation_level,
3804: l_instance_header_rec,
3805: fnd_api.g_true, -- Get Parties
3806: l_party_header_tbl,
3807: fnd_api.g_false, -- Get Accounts
3808: l_account_header_tbl,
3809: fnd_api.g_false, -- Get Org Assi.
3810: l_org_header_tbl,
3811: fnd_api.g_false, -- Get Price Att
3805: fnd_api.g_true, -- Get Parties
3806: l_party_header_tbl,
3807: fnd_api.g_false, -- Get Accounts
3808: l_account_header_tbl,
3809: fnd_api.g_false, -- Get Org Assi.
3810: l_org_header_tbl,
3811: fnd_api.g_false, -- Get Price Att
3812: l_pricing_header_tbl,
3813: fnd_api.g_false, -- Get Ext Attr
3807: fnd_api.g_false, -- Get Accounts
3808: l_account_header_tbl,
3809: fnd_api.g_false, -- Get Org Assi.
3810: l_org_header_tbl,
3811: fnd_api.g_false, -- Get Price Att
3812: l_pricing_header_tbl,
3813: fnd_api.g_false, -- Get Ext Attr
3814: l_ext_attrib_header_tbl,
3815: l_ext_attrib_def_tbl,
3809: fnd_api.g_false, -- Get Org Assi.
3810: l_org_header_tbl,
3811: fnd_api.g_false, -- Get Price Att
3812: l_pricing_header_tbl,
3813: fnd_api.g_false, -- Get Ext Attr
3814: l_ext_attrib_header_tbl,
3815: l_ext_attrib_def_tbl,
3816: fnd_api.g_false, -- Get Asset Assi
3817: l_asset_header_tbl,
3812: l_pricing_header_tbl,
3813: fnd_api.g_false, -- Get Ext Attr
3814: l_ext_attrib_header_tbl,
3815: l_ext_attrib_def_tbl,
3816: fnd_api.g_false, -- Get Asset Assi
3817: l_asset_header_tbl,
3818: fnd_api.g_false, -- Resolve IDs
3819: NULL, -- Time Stamp
3820: l_return_status,
3814: l_ext_attrib_header_tbl,
3815: l_ext_attrib_def_tbl,
3816: fnd_api.g_false, -- Get Asset Assi
3817: l_asset_header_tbl,
3818: fnd_api.g_false, -- Resolve IDs
3819: NULL, -- Time Stamp
3820: l_return_status,
3821: l_msg_count,
3822: l_msg_data);
3905: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3906: END IF;
3907: l_msg_index := 1;
3908: WHILE l_msg_count > 0 loop
3909: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3910: l_msg_index := l_msg_index + 1;
3911: l_msg_count := l_msg_count - 1;
3912: END LOOP;
3913: RAISE fnd_api.g_exc_error;
3909: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3910: l_msg_index := l_msg_index + 1;
3911: l_msg_count := l_msg_count - 1;
3912: END LOOP;
3913: RAISE fnd_api.g_exc_error;
3914: END IF;
3915:
3916: ELSE -- No Records Found So throw Error
3917: IF (l_debug > 0) THEN
3922: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3923: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3924: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3925: l_error_message := fnd_message.get;
3926: RAISE fnd_api.g_exc_error;
3927: END IF; -- Usage Code If
3928:
3929: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3930:
3937: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3938: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3939: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3940: l_error_message := fnd_message.get;
3941: RAISE fnd_api.g_exc_error;
3942:
3943: END IF; -- End of Destination Record If
3944:
3945: END IF; -- Serial Control IF
3952: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3953: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3954: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3955: l_error_message := fnd_message.get;
3956: RAISE fnd_api.g_exc_error;
3957: END IF; -- End of Main Source Header Tbl IF
3958: END LOOP; -- End of For Loop
3959:
3960: IF (l_debug > 0) THEN
3962: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3963: END IF;
3964:
3965: EXCEPTION
3966: WHEN fnd_api.g_exc_error THEN
3967: IF (l_debug > 0) THEN
3968: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3969: END IF;
3970: x_return_status := l_fnd_error;
3964:
3965: EXCEPTION
3966: WHEN fnd_api.g_exc_error THEN
3967: IF (l_debug > 0) THEN
3968: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3969: END IF;
3970: x_return_status := l_fnd_error;
3971:
3972: IF l_mtl_item_tbl.count > 0 THEN
4044:
4045: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
4046: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4047: l_api_version NUMBER := 1.0;
4048: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4049: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4045: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
4046: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4047: l_api_version NUMBER := 1.0;
4048: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4049: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4053: l_transaction_id NUMBER := NULL;
4046: l_api_name VARCHAR2(100) := 'CSI_INV_ISO_PKG.ISO_DIRECT';
4047: l_api_version NUMBER := 1.0;
4048: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4049: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4053: l_transaction_id NUMBER := NULL;
4054: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4047: l_api_version NUMBER := 1.0;
4048: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4049: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4053: l_transaction_id NUMBER := NULL;
4054: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4055: l_object_version_number NUMBER := 1;
4048: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4049: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4053: l_transaction_id NUMBER := NULL;
4054: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4055: l_object_version_number NUMBER := 1;
4056: l_sysdate DATE := SYSDATE;
4050: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
4051: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
4052: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
4053: l_transaction_id NUMBER := NULL;
4054: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
4055: l_object_version_number NUMBER := 1;
4056: l_sysdate DATE := SYSDATE;
4057: l_master_organization_id NUMBER;
4058: l_depreciable VARCHAR2(1);
4082: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
4083: l_sub_inventory VARCHAR2(10);
4084: l_location_type VARCHAR2(20);
4085: l_trx_action_type VARCHAR2(50);
4086: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4087: l_fnd_warning VARCHAR2(1) := 'W';
4088: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4089: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4090: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4084: l_location_type VARCHAR2(20);
4085: l_trx_action_type VARCHAR2(50);
4086: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4087: l_fnd_warning VARCHAR2(1) := 'W';
4088: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4089: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4090: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4091: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4092: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4085: l_trx_action_type VARCHAR2(50);
4086: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4087: l_fnd_warning VARCHAR2(1) := 'W';
4088: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
4089: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4090: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4091: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4092: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4093: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4089: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
4090: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4091: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4092: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4093: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4094: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4095: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4096: l_instance_usage_code VARCHAR2(25);
4097: l_organization_id NUMBER;
4090: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
4091: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4092: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4093: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4094: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4095: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4096: l_instance_usage_code VARCHAR2(25);
4097: l_organization_id NUMBER;
4098: l_subinventory_name VARCHAR2(10);
4091: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
4092: l_in_relationship VARCHAR2(25) := 'IN_RELATIONSHIP';
4093: l_fnd_g_num NUMBER := FND_API.G_MISS_NUM;
4094: l_fnd_g_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
4095: l_fnd_g_date DATE := FND_API.G_MISS_DATE;
4096: l_instance_usage_code VARCHAR2(25);
4097: l_organization_id NUMBER;
4098: l_subinventory_name VARCHAR2(10);
4099: l_locator_id NUMBER;
4225: IF NOT l_return_status = l_fnd_success THEN
4226: IF (l_debug > 0) THEN
4227: 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);
4228: END IF;
4229: RAISE fnd_api.g_exc_error;
4230: END IF;
4231:
4232: -- Get the Master Organization ID
4233: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
4238: IF NOT l_return_status = l_fnd_success THEN
4239: IF (l_debug > 0) THEN
4240: 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);
4241: END IF;
4242: RAISE fnd_api.g_exc_error;
4243: END IF;
4244:
4245: -- Call get_fnd_employee_id and get the employee id
4246: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
4341: IF (l_debug > 0) THEN
4342: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4343: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4344: END IF;
4345: RAISE fnd_api.g_exc_error;
4346: END IF;
4347:
4348: IF (l_debug > 0) THEN
4349: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4379: IF NOT l_return_status = l_fnd_success THEN
4380: IF (l_debug > 0) THEN
4381: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
4382: END IF;
4383: RAISE fnd_api.g_exc_error;
4384: END IF;
4385:
4386: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4387:
4419: END IF;
4420:
4421: -- Set Query Instance Status
4422: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4423: l_instance_status := FND_API.G_FALSE;
4424: ELSE
4425: l_instance_status := FND_API.G_TRUE;
4426: END IF;
4427:
4421: -- Set Query Instance Status
4422: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4423: l_instance_status := FND_API.G_FALSE;
4424: ELSE
4425: l_instance_status := FND_API.G_TRUE;
4426: END IF;
4427:
4428: IF (l_debug > 0) THEN
4429: csi_t_gen_utility_pvt.add('Query Inst Status : '||l_instance_status);
4510: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4511: END IF;
4512: l_msg_index := 1;
4513: WHILE l_msg_count > 0 loop
4514: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4515: l_msg_index := l_msg_index + 1;
4516: l_msg_count := l_msg_count - 1;
4517: END LOOP;
4518: RAISE fnd_api.g_exc_error;
4514: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4515: l_msg_index := l_msg_index + 1;
4516: l_msg_count := l_msg_count - 1;
4517: END LOOP;
4518: RAISE fnd_api.g_exc_error;
4519: END IF;
4520:
4521: IF (l_debug > 0) THEN
4522: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist'); END IF;
4606: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4607: END IF;
4608: l_msg_index := 1;
4609: WHILE l_msg_count > 0 loop
4610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4611: l_msg_index := l_msg_index + 1;
4612: l_msg_count := l_msg_count - 1;
4613: END LOOP;
4614: RAISE fnd_api.g_exc_error;
4610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4611: l_msg_index := l_msg_index + 1;
4612: l_msg_count := l_msg_count - 1;
4613: END LOOP;
4614: RAISE fnd_api.g_exc_error;
4615: END IF;
4616:
4617: ELSE -- No Src Records found so error
4618: IF (l_debug > 0) THEN
4624: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
4625: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
4626: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4627: l_error_message := fnd_message.get;
4628: RAISE fnd_api.g_exc_error;
4629: END IF; -- End of 2,5 and 2,5 IF
4630:
4631: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
4632: l_sr_control = 1) OR -- Rec
4721: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4722: END IF;
4723: l_msg_index := 1;
4724: WHILE l_msg_count > 0 loop
4725: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4726: l_msg_index := l_msg_index + 1;
4727: l_msg_count := l_msg_count - 1;
4728: END LOOP;
4729: RAISE fnd_api.g_exc_error;
4725: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4726: l_msg_index := l_msg_index + 1;
4727: l_msg_count := l_msg_count - 1;
4728: END LOOP;
4729: RAISE fnd_api.g_exc_error;
4730: END IF;
4731:
4732: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
4733: IF (l_debug > 0) THEN
4739: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
4740: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
4741: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4742: l_error_message := fnd_message.get;
4743: RAISE fnd_api.g_exc_error;
4744:
4745: END IF; -- End of Neg Qty If
4746:
4747: ELSIF l_src_instance_header_tbl.count = 1 THEN
4806: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4807: END IF;
4808: l_msg_index := 1;
4809: WHILE l_msg_count > 0 loop
4810: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4811: l_msg_index := l_msg_index + 1;
4812: l_msg_count := l_msg_count - 1;
4813: END LOOP;
4814: RAISE fnd_api.g_exc_error;
4810: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4811: l_msg_index := l_msg_index + 1;
4812: l_msg_count := l_msg_count - 1;
4813: END LOOP;
4814: RAISE fnd_api.g_exc_error;
4815: END IF;
4816:
4817: ELSIF l_src_instance_header_tbl.count > 1 THEN
4818: -- Multiple Instances were found so throw error
4824: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4825: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4826: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4827: l_error_message := fnd_message.get;
4828: RAISE fnd_api.g_exc_error;
4829:
4830: END IF; -- End of If for Source Count
4831:
4832: -- Get Destination Records
4879: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4880: END IF;
4881: l_msg_index := 1;
4882: WHILE l_msg_count > 0 loop
4883: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4884: l_msg_index := l_msg_index + 1;
4885: l_msg_count := l_msg_count - 1;
4886: END LOOP;
4887: RAISE fnd_api.g_exc_error;
4883: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4884: l_msg_index := l_msg_index + 1;
4885: l_msg_count := l_msg_count - 1;
4886: END LOOP;
4887: RAISE fnd_api.g_exc_error;
4888: END IF;
4889:
4890: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
4891:
4954: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4955: END IF;
4956: l_msg_index := 1;
4957: WHILE l_msg_count > 0 loop
4958: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4959: l_msg_index := l_msg_index + 1;
4960: l_msg_count := l_msg_count - 1;
4961: END LOOP;
4962: RAISE fnd_api.g_exc_error;
4958: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4959: l_msg_index := l_msg_index + 1;
4960: l_msg_count := l_msg_count - 1;
4961: END LOOP;
4962: RAISE fnd_api.g_exc_error;
4963: END IF;
4964:
4965: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
4966:
5019: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5020: END IF;
5021: l_msg_index := 1;
5022: WHILE l_msg_count > 0 loop
5023: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5024: l_msg_index := l_msg_index + 1;
5025: l_msg_count := l_msg_count - 1;
5026: END LOOP;
5027: RAISE fnd_api.g_exc_error;
5023: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5024: l_msg_index := l_msg_index + 1;
5025: l_msg_count := l_msg_count - 1;
5026: END LOOP;
5027: RAISE fnd_api.g_exc_error;
5028: END IF;
5029:
5030: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5031: -- Multiple Instances were found so throw error
5037: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5038: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5039: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5040: l_error_message := fnd_message.get;
5041: RAISE fnd_api.g_exc_error;
5042:
5043: END IF; -- End of Destination Record If
5044:
5045: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
5120: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5121: END IF;
5122: l_msg_index := 1;
5123: WHILE l_msg_count > 0 loop
5124: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5125: l_msg_index := l_msg_index + 1;
5126: l_msg_count := l_msg_count - 1;
5127: END LOOP;
5128: RAISE fnd_api.g_exc_error;
5124: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5125: l_msg_index := l_msg_index + 1;
5126: l_msg_count := l_msg_count - 1;
5127: END LOOP;
5128: RAISE fnd_api.g_exc_error;
5129: END IF;
5130:
5131: -- Bug 3880731 Take out the loop
5132: -- END LOOP; -- End For Loop for Update of Sr Instances
5182: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5183: END IF;
5184: l_msg_index := 1;
5185: WHILE l_msg_count > 0 loop
5186: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5187: l_msg_index := l_msg_index + 1;
5188: l_msg_count := l_msg_count - 1;
5189: END LOOP;
5190: RAISE fnd_api.g_exc_error;
5186: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5187: l_msg_index := l_msg_index + 1;
5188: l_msg_count := l_msg_count - 1;
5189: END LOOP;
5190: RAISE fnd_api.g_exc_error;
5191: END IF;
5192:
5193: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5194:
5257: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5258: END IF;
5259: l_msg_index := 1;
5260: WHILE l_msg_count > 0 loop
5261: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5262: l_msg_index := l_msg_index + 1;
5263: l_msg_count := l_msg_count - 1;
5264: END LOOP;
5265: RAISE fnd_api.g_exc_error;
5261: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5262: l_msg_index := l_msg_index + 1;
5263: l_msg_count := l_msg_count - 1;
5264: END LOOP;
5265: RAISE fnd_api.g_exc_error;
5266: END IF;
5267:
5268: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
5269:
5322: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5323: END IF;
5324: l_msg_index := 1;
5325: WHILE l_msg_count > 0 loop
5326: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5327: l_msg_index := l_msg_index + 1;
5328: l_msg_count := l_msg_count - 1;
5329: END LOOP;
5330: RAISE fnd_api.g_exc_error;
5326: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5327: l_msg_index := l_msg_index + 1;
5328: l_msg_count := l_msg_count - 1;
5329: END LOOP;
5330: RAISE fnd_api.g_exc_error;
5331: END IF;
5332:
5333: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5334: -- Multiple Instances were found so throw error
5340: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5341: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5342: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5343: l_error_message := fnd_message.get;
5344: RAISE fnd_api.g_exc_error;
5345:
5346: END IF; -- End of Destination Record If
5347: END IF; -- End of J Index Loop
5348:
5416: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5417: END IF;
5418: l_msg_index := 1;
5419: WHILE l_msg_count > 0 loop
5420: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5421: l_msg_index := l_msg_index + 1;
5422: l_msg_count := l_msg_count - 1;
5423: END LOOP;
5424: RAISE fnd_api.g_exc_error;
5420: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5421: l_msg_index := l_msg_index + 1;
5422: l_msg_count := l_msg_count - 1;
5423: END LOOP;
5424: RAISE fnd_api.g_exc_error;
5425: END IF;
5426: END IF; -- End of J = 1 If to update Source 1 time
5427:
5428: -- Now Query for Dest Serialized Instances and Update (Unexpire)/ Create Instances
5475: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5476: END IF;
5477: l_msg_index := 1;
5478: WHILE l_msg_count > 0 loop
5479: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5480: l_msg_index := l_msg_index + 1;
5481: l_msg_count := l_msg_count - 1;
5482: END LOOP;
5483: RAISE fnd_api.g_exc_error;
5479: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5480: l_msg_index := l_msg_index + 1;
5481: l_msg_count := l_msg_count - 1;
5482: END LOOP;
5483: RAISE fnd_api.g_exc_error;
5484: END IF;
5485:
5486: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5487:
5553: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5554: END IF;
5555: l_msg_index := 1;
5556: WHILE l_msg_count > 0 loop
5557: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5558: l_msg_index := l_msg_index + 1;
5559: l_msg_count := l_msg_count - 1;
5560: END LOOP;
5561: RAISE fnd_api.g_exc_error;
5557: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5558: l_msg_index := l_msg_index + 1;
5559: l_msg_count := l_msg_count - 1;
5560: END LOOP;
5561: RAISE fnd_api.g_exc_error;
5562: END IF;
5563:
5564: ELSIF l_dest_instance_header_tbl.count > 0 THEN -- Installed Base Destination Records Found
5565:
5575:
5576: IF NOT l_return_status = l_fnd_success then
5577: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5578: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5579: RAISE fnd_api.g_exc_error;
5580: END IF;
5581:
5582: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5583:
5644: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5645: END IF;
5646: l_msg_index := 1;
5647: WHILE l_msg_count > 0 loop
5648: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5649: l_msg_index := l_msg_index + 1;
5650: l_msg_count := l_msg_count - 1;
5651: END LOOP;
5652: RAISE fnd_api.g_exc_error;
5648: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5649: l_msg_index := l_msg_index + 1;
5650: l_msg_count := l_msg_count - 1;
5651: END LOOP;
5652: RAISE fnd_api.g_exc_error;
5653: END IF;
5654:
5655: ELSE -- No Serialized Instances with In Inventory or In Relationship Exist
5656:
5662: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
5663: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
5664: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
5665: l_error_message := fnd_message.get;
5666: RAISE fnd_api.g_exc_error;
5667:
5668: END IF; -- End of inv or in rel IF
5669:
5670: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5677: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5678: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
5679: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
5680: l_error_message := fnd_message.get;
5681: RAISE fnd_api.g_exc_error;
5682:
5683: END IF; -- End of Destination Record If
5684:
5685: END IF; -- End of Serial Control IF
5700: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5701: END IF;
5702:
5703: EXCEPTION
5704: WHEN fnd_api.g_exc_error THEN
5705: IF (l_debug > 0) THEN
5706: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5707: END IF;
5708: x_return_status := l_fnd_error;
5702:
5703: EXCEPTION
5704: WHEN fnd_api.g_exc_error THEN
5705: IF (l_debug > 0) THEN
5706: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5707: END IF;
5708: x_return_status := l_fnd_error;
5709:
5710: IF l_mtl_item_tbl.count > 0 THEN