11:
12: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
13: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.ISSUE_TO_PROJECT';
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_PROJECT_PKG.ISSUE_TO_PROJECT';
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_transaction_id NUMBER := NULL;
13: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.ISSUE_TO_PROJECT';
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_transaction_id NUMBER := NULL;
21: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
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_transaction_id NUMBER := NULL;
21: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
22: l_object_version_number NUMBER := 1;
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_transaction_id NUMBER := NULL;
21: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
22: l_object_version_number NUMBER := 1;
23: l_sysdate DATE := SYSDATE;
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_transaction_id NUMBER := NULL;
21: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
22: l_object_version_number NUMBER := 1;
23: l_sysdate DATE := SYSDATE;
24: l_master_organization_id NUMBER;
25: l_depreciable VARCHAR2(1);
44: l_account_tbl CSI_DATASTRUCTURES_PUB.PARTY_ACCOUNT_TBL;
45: l_pricing_attrib_tbl CSI_DATASTRUCTURES_PUB.PRICING_ATTRIBS_TBL;
46: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
47: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
48: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
49: l_fnd_warning VARCHAR2(1) := 'W';
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
46: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
47: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
48: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
49: l_fnd_warning VARCHAR2(1) := 'W';
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
47: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
48: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
49: l_fnd_warning VARCHAR2(1) := 'W';
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
107: IF NOT l_return_status = l_fnd_success THEN
108: IF (l_debug > 0) THEN
109: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
110: END IF;
111: RAISE fnd_api.g_exc_error;
112: END IF;
113:
114: -- Get the Master Organization ID
115: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
120: IF NOT l_return_status = l_fnd_success THEN
121: IF (l_debug > 0) THEN
122: 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);
123: END IF;
124: RAISE fnd_api.g_exc_error;
125: END IF;
126:
127: -- Call get_fnd_employee_id and get the employee id
128: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
163: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
164: l_mtl_item_tbl(i).organization_id);
165:
166: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
167: l_instance_status := FND_API.G_FALSE;
168: ELSE
169: l_instance_status := FND_API.G_TRUE;
170: END IF;
171:
165:
166: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
167: l_instance_status := FND_API.G_FALSE;
168: ELSE
169: l_instance_status := FND_API.G_TRUE;
170: END IF;
171:
172: IF (l_debug > 0) THEN
173: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
203: IF (l_debug > 0) THEN
204: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
205: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
206: END IF;
207: RAISE fnd_api.g_exc_error;
208: END IF;
209:
210: IF (l_debug > 0) THEN
211: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
242: IF NOT l_return_status = l_fnd_success THEN
243: IF (l_debug > 0) THEN
244: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
245: END IF;
246: RAISE fnd_api.g_exc_error;
247: END IF;
248:
249: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
250:
299: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
300: END IF;
301: l_msg_index := 1;
302: WHILE l_msg_count > 0 loop
303: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
304: l_msg_index := l_msg_index + 1;
305: l_msg_count := l_msg_count - 1;
306: END LOOP;
307: RAISE fnd_api.g_exc_error;
303: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
304: l_msg_index := l_msg_index + 1;
305: l_msg_count := l_msg_count - 1;
306: END LOOP;
307: RAISE fnd_api.g_exc_error;
308: END IF;
309:
310:
311: IF l_mtl_item_tbl(j).serial_number is NULL THEN
378: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
379: END IF;
380: l_msg_index := 1;
381: WHILE l_msg_count > 0 loop
382: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
383: l_msg_index := l_msg_index + 1;
384: l_msg_count := l_msg_count - 1;
385: END LOOP;
386: RAISE fnd_api.g_exc_error;
382: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
383: l_msg_index := l_msg_index + 1;
384: l_msg_count := l_msg_count - 1;
385: END LOOP;
386: RAISE fnd_api.g_exc_error;
387: END IF;
388:
389: ELSE -- No Records were found and Neg Qtys Not Allowed
390: IF (l_debug > 0) THEN
391: csi_t_gen_utility_pvt.add('No Records were found in Install Base andNeg Qtys not allowed to error');
392: END IF;
393: fnd_message.set_name('CSI','CSI_NO_NEG_BAL_ALLOWED');
394: l_error_message := fnd_message.get;
395: RAISE fnd_api.g_exc_error;
396:
397: END IF; -- Neg Qty If
398:
399: ELSIF l_src_instance_header_tbl.count = 1 THEN
457: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
458: END IF;
459: l_msg_index := 1;
460: WHILE l_msg_count > 0 loop
461: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
462: l_msg_index := l_msg_index + 1;
463: l_msg_count := l_msg_count - 1;
464: END LOOP;
465: RAISE fnd_api.g_exc_error;
461: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
462: l_msg_index := l_msg_index + 1;
463: l_msg_count := l_msg_count - 1;
464: END LOOP;
465: RAISE fnd_api.g_exc_error;
466: END IF;
467:
468: ELSIF l_src_instance_header_tbl.count > 1 THEN
469: -- Multiple Instances were found so throw error
474: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
475: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
476: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
477: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
478: RAISE fnd_api.g_exc_error;
479:
480: END IF; -- End of Source Record IF
481:
482: -- Now query and get the destination record.
522: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
523: END IF;
524: l_msg_index := 1;
525: WHILE l_msg_count > 0 loop
526: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
527: l_msg_index := l_msg_index + 1;
528: l_msg_count := l_msg_count - 1;
529: END LOOP;
530: RAISE fnd_api.g_exc_error;
526: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
527: l_msg_index := l_msg_index + 1;
528: l_msg_count := l_msg_count - 1;
529: END LOOP;
530: RAISE fnd_api.g_exc_error;
531: END IF;
532:
533: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found
534: IF (l_debug > 0) THEN
596: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
597: END IF;
598: l_msg_index := 1;
599: WHILE l_msg_count > 0 loop
600: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
601: l_msg_index := l_msg_index + 1;
602: l_msg_count := l_msg_count - 1;
603: END LOOP;
604: RAISE fnd_api.g_exc_error;
600: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
601: l_msg_index := l_msg_index + 1;
602: l_msg_count := l_msg_count - 1;
603: END LOOP;
604: RAISE fnd_api.g_exc_error;
605: END IF;
606:
607: ELSIF l_dest_instance_header_tbl.count = 1 THEN-- Installed Base Destination Records Found
608:
659: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
660: END IF;
661: l_msg_index := 1;
662: WHILE l_msg_count > 0 loop
663: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
664: l_msg_index := l_msg_index + 1;
665: l_msg_count := l_msg_count - 1;
666: END LOOP;
667: RAISE fnd_api.g_exc_error;
663: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
664: l_msg_index := l_msg_index + 1;
665: l_msg_count := l_msg_count - 1;
666: END LOOP;
667: RAISE fnd_api.g_exc_error;
668: END IF;
669:
670: ELSIF l_dest_instance_header_tbl.count > 1 THEN
671: -- Multiple Instances were found so throw error
676: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
677: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
678: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
679: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
680: RAISE fnd_api.g_exc_error;
681:
682: END IF; -- End of Destination Non Serial IF
683:
684: ELSIF l_mtl_item_tbl(j).serial_number is NOT NULL THEN
747: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
748: END IF;
749: l_msg_index := 1;
750: WHILE l_msg_count > 0 loop
751: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
752: l_msg_index := l_msg_index + 1;
753: l_msg_count := l_msg_count - 1;
754: END LOOP;
755: RAISE fnd_api.g_exc_error;
751: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
752: l_msg_index := l_msg_index + 1;
753: l_msg_count := l_msg_count - 1;
754: END LOOP;
755: RAISE fnd_api.g_exc_error;
756: END IF;
757: ELSIF l_src_instance_header_tbl.count = 0 THEN
758: IF (l_debug > 0) THEN
759: csi_t_gen_utility_pvt.add('No Records were found in Install Base');
762: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
763: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
764: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
765: l_error_message := fnd_message.get;
766: RAISE fnd_api.g_exc_error;
767:
768: ELSIF l_src_instance_header_tbl.count > 1 THEN
769: -- Multiple Instances were found so throw error
770: IF (l_debug > 0) THEN
774: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
775: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
776: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
777: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
778: RAISE fnd_api.g_exc_error;
779: END IF; -- End of Source Record IF for Serialized
780:
781: END IF; -- End of Serial Number If
782: END LOOP; -- End of For Loop
785: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
786: END IF;
787:
788: EXCEPTION
789: WHEN fnd_api.g_exc_error THEN
790: IF (l_debug > 0) THEN
791: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
792: END IF;
793: x_return_status := l_fnd_error;
787:
788: EXCEPTION
789: WHEN fnd_api.g_exc_error THEN
790: IF (l_debug > 0) THEN
791: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
792: END IF;
793: x_return_status := l_fnd_error;
794:
795: IF l_mtl_item_tbl.count > 0 THEN
854:
855: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
856: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_RECEIPT_PROJTASK';
857: l_api_version NUMBER := 1.0;
858: l_commit VARCHAR2(1) := FND_API.G_FALSE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
855: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
856: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_RECEIPT_PROJTASK';
857: l_api_version NUMBER := 1.0;
858: l_commit VARCHAR2(1) := FND_API.G_FALSE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
863: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
856: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_RECEIPT_PROJTASK';
857: l_api_version NUMBER := 1.0;
858: l_commit VARCHAR2(1) := FND_API.G_FALSE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
863: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
864: l_transaction_id NUMBER := NULL;
857: l_api_version NUMBER := 1.0;
858: l_commit VARCHAR2(1) := FND_API.G_FALSE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
863: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
864: l_transaction_id NUMBER := NULL;
865: l_object_version_number NUMBER := 1;
858: l_commit VARCHAR2(1) := FND_API.G_FALSE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
863: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
864: l_transaction_id NUMBER := NULL;
865: l_object_version_number NUMBER := 1;
866: l_sysdate DATE := SYSDATE;
859: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
860: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
861: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
862: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
863: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
864: l_transaction_id NUMBER := NULL;
865: l_object_version_number NUMBER := 1;
866: l_sysdate DATE := SYSDATE;
867: l_master_organization_id NUMBER;
889: l_account_tbl CSI_DATASTRUCTURES_PUB.PARTY_ACCOUNT_TBL;
890: l_pricing_attrib_tbl CSI_DATASTRUCTURES_PUB.PRICING_ATTRIBS_TBL;
891: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
892: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
893: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
894: l_fnd_warning VARCHAR2(1) := 'W';
895: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
896: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
897: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
891: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
892: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
893: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
894: l_fnd_warning VARCHAR2(1) := 'W';
895: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
896: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
897: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
898: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
899: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
892: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
893: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
894: l_fnd_warning VARCHAR2(1) := 'W';
895: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
896: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
897: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
898: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
899: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
900: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
952: IF NOT l_return_status = l_fnd_success THEN
953: IF (l_debug > 0) THEN
954: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
955: END IF;
956: RAISE fnd_api.g_exc_error;
957: END IF;
958:
959: -- Get the Master Organization ID
960: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
965: IF NOT l_return_status = l_fnd_success THEN
966: IF (l_debug > 0) THEN
967: 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);
968: END IF;
969: RAISE fnd_api.g_exc_error;
970: END IF;
971:
972: -- Call get_fnd_employee_id and get the employee id
973: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
1023: IF (l_debug > 0) THEN
1024: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1025: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
1026: END IF;
1027: RAISE fnd_api.g_exc_error;
1028: END IF;
1029:
1030: IF (l_debug > 0) THEN
1031: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1060: IF NOT l_return_status = l_fnd_success THEN
1061: IF (l_debug > 0) THEN
1062: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
1063: END IF;
1064: RAISE fnd_api.g_exc_error;
1065: END IF;
1066:
1067: -- Now loop through the PL/SQL Table.
1068: j := 1;
1124: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1125: END IF;
1126: l_msg_index := 1;
1127: WHILE l_msg_count > 0 loop
1128: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1129: l_msg_index := l_msg_index + 1;
1130: l_msg_count := l_msg_count - 1;
1131: END LOOP;
1132: RAISE fnd_api.g_exc_error;
1128: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1129: l_msg_index := l_msg_index + 1;
1130: l_msg_count := l_msg_count - 1;
1131: END LOOP;
1132: RAISE fnd_api.g_exc_error;
1133: END IF;
1134:
1135: --Added code for bug 13801081
1136: IF l_src_instance_header_tbl.count > 0 THEN -- Bug 14631198
1146: IF (l_debug > 0) THEN
1147: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
1148: END IF;
1149: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
1150: RAISE fnd_api.g_exc_error;
1151: END IF;
1152: IF (l_debug > 0) THEN
1153: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_src_instance_header_tbl(i).object_version_number);
1154: END IF;
1241: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1242: END IF;
1243: l_msg_index := 1;
1244: WHILE l_msg_count > 0 loop
1245: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1246: l_msg_index := l_msg_index + 1;
1247: l_msg_count := l_msg_count - 1;
1248: END LOOP;
1249: RAISE fnd_api.g_exc_error;
1245: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1246: l_msg_index := l_msg_index + 1;
1247: l_msg_count := l_msg_count - 1;
1248: END LOOP;
1249: RAISE fnd_api.g_exc_error;
1250: END IF;
1251: ELSE
1252: l_status := 'In Inventory, Out of Service, Installed, In Service or In Process';
1253: IF (l_debug > 0) THEN
1257: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
1258: fnd_message.set_token('STATUS',l_status);
1259: l_error_message := fnd_message.get;
1260: l_return_status := l_fnd_error;
1261: RAISE fnd_api.g_exc_error;
1262: END IF;
1263:
1264: ELSIF l_src_instance_header_tbl.count = 0 THEN
1265:
1321: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1322: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1323: l_msg_index := 1;
1324: WHILE l_msg_count > 0 loop
1325: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1326: l_msg_index := l_msg_index + 1;
1327: l_msg_count := l_msg_count - 1;
1328: END LOOP;
1329: RAISE fnd_api.g_exc_error;
1325: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1326: l_msg_index := l_msg_index + 1;
1327: l_msg_count := l_msg_count - 1;
1328: END LOOP;
1329: RAISE fnd_api.g_exc_error;
1330: END IF;
1331:
1332: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_instance_rec.instance_id);
1333:
1339: -- fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1340: -- fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1341: -- fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1342: -- l_error_message := fnd_message.get;
1343: -- RAISE fnd_api.g_exc_error;
1344:
1345: ELSIF l_src_instance_header_tbl.count > 1 THEN
1346: -- Multiple Instances were found so throw error
1347: IF (l_debug > 0) THEN
1351: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1352: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1353: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1354: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1355: RAISE fnd_api.g_exc_error;
1356: END IF; -- No Records Found
1357:
1358: ELSIF l_mtl_item_tbl(j).serial_number IS NULL THEN -- Non Serialized
1359:
1401: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1402: END IF;
1403: l_msg_index := 1;
1404: WHILE l_msg_count > 0 loop
1405: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1406: l_msg_index := l_msg_index + 1;
1407: l_msg_count := l_msg_count - 1;
1408: END LOOP;
1409: RAISE fnd_api.g_exc_error;
1405: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1406: l_msg_index := l_msg_index + 1;
1407: l_msg_count := l_msg_count - 1;
1408: END LOOP;
1409: RAISE fnd_api.g_exc_error;
1410: END IF;
1411:
1412: IF l_src_instance_header_tbl.count = 1 THEN -- Records found so update either Serialized or Non Serialized
1413:
1458: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1459: END IF;
1460: l_msg_index := 1;
1461: WHILE l_msg_count > 0 loop
1462: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1463: l_msg_index := l_msg_index + 1;
1464: l_msg_count := l_msg_count - 1;
1465: END LOOP;
1466: RAISE fnd_api.g_exc_error;
1462: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1463: l_msg_index := l_msg_index + 1;
1464: l_msg_count := l_msg_count - 1;
1465: END LOOP;
1466: RAISE fnd_api.g_exc_error;
1467: END IF;
1468:
1469: -- Now query and get the destination record.
1470: l_instance_dest_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1511: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1512: END IF;
1513: l_msg_index := 1;
1514: WHILE l_msg_count > 0 loop
1515: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1516: l_msg_index := l_msg_index + 1;
1517: l_msg_count := l_msg_count - 1;
1518: END LOOP;
1519: RAISE fnd_api.g_exc_error;
1515: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1516: l_msg_index := l_msg_index + 1;
1517: l_msg_count := l_msg_count - 1;
1518: END LOOP;
1519: RAISE fnd_api.g_exc_error;
1520: END IF;
1521:
1522: IF l_dest_instance_header_tbl.count = 0 THEN
1523:
1584: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1585: END IF;
1586: l_msg_index := 1;
1587: WHILE l_msg_count > 0 loop
1588: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1589: l_msg_index := l_msg_index + 1;
1590: l_msg_count := l_msg_count - 1;
1591: END LOOP;
1592: RAISE fnd_api.g_exc_error;
1588: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1589: l_msg_index := l_msg_index + 1;
1590: l_msg_count := l_msg_count - 1;
1591: END LOOP;
1592: RAISE fnd_api.g_exc_error;
1593: END IF;
1594:
1595: ELSIF l_dest_instance_header_tbl.count = 1 THEN
1596:
1644: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1645: END IF;
1646: l_msg_index := 1;
1647: WHILE l_msg_count > 0 loop
1648: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1649: l_msg_index := l_msg_index + 1;
1650: l_msg_count := l_msg_count - 1;
1651: END LOOP;
1652: RAISE fnd_api.g_exc_error;
1648: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1649: l_msg_index := l_msg_index + 1;
1650: l_msg_count := l_msg_count - 1;
1651: END LOOP;
1652: RAISE fnd_api.g_exc_error;
1653: END IF;
1654:
1655: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1656: -- Multiple Instances were found so throw error
1661: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1662: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1663: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1664: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1665: RAISE fnd_api.g_exc_error;
1666:
1667: END IF; -- End of Destination Record If
1668:
1669: ELSIF l_src_instance_header_tbl.count = 0 THEN
1715: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1716: END IF;
1717: l_msg_index := 1;
1718: WHILE l_msg_count > 0 loop
1719: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1720: l_msg_index := l_msg_index + 1;
1721: l_msg_count := l_msg_count - 1;
1722: END LOOP;
1723: RAISE fnd_api.g_exc_error;
1719: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1720: l_msg_index := l_msg_index + 1;
1721: l_msg_count := l_msg_count - 1;
1722: END LOOP;
1723: RAISE fnd_api.g_exc_error;
1724: END IF;
1725:
1726: IF l_dest_instance_header_tbl.count = 0 THEN
1727:
1790: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1791: END IF;
1792: l_msg_index := 1;
1793: WHILE l_msg_count > 0 loop
1794: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1795: l_msg_index := l_msg_index + 1;
1796: l_msg_count := l_msg_count - 1;
1797: END LOOP;
1798: RAISE fnd_api.g_exc_error;
1794: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1795: l_msg_index := l_msg_index + 1;
1796: l_msg_count := l_msg_count - 1;
1797: END LOOP;
1798: RAISE fnd_api.g_exc_error;
1799: END IF;
1800:
1801: ELSIF l_dest_instance_header_tbl.count = 1 THEN
1802:
1852: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1853: END IF;
1854: l_msg_index := 1;
1855: WHILE l_msg_count > 0 loop
1856: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1857: l_msg_index := l_msg_index + 1;
1858: l_msg_count := l_msg_count - 1;
1859: END LOOP;
1860: RAISE fnd_api.g_exc_error;
1856: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1857: l_msg_index := l_msg_index + 1;
1858: l_msg_count := l_msg_count - 1;
1859: END LOOP;
1860: RAISE fnd_api.g_exc_error;
1861: END IF;
1862:
1863: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1864: -- Multiple Instances were found so throw error
1869: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1870: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1871: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1872: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1873: RAISE fnd_api.g_exc_error;
1874:
1875: END IF; -- End of Destination Record If for checking for In Inventory Records because the Project/Source Instance was not there.
1876:
1877: -- Bug 4378656 - If the instance is not there then we still need to create one that is In Inventory.
1882: -- fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1883: -- fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1884: -- fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
1885: -- l_error_message := fnd_message.get;
1886: -- RAISE fnd_api.g_exc_error;
1887:
1888: ELSIF l_src_instance_header_tbl.count > 1 THEN
1889: -- Multiple Instances were found so throw error
1890: IF (l_debug > 0) THEN
1894: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1895: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1896: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1897: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1898: RAISE fnd_api.g_exc_error;
1899:
1900: END IF; -- End of No Records Found If
1901: END IF; -- End of Serial Number If
1902: END LOOP; -- End of For Loop
1905: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
1906: END IF;
1907:
1908: EXCEPTION
1909: WHEN fnd_api.g_exc_error THEN
1910: IF (l_debug > 0) THEN
1911: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
1912: END IF;
1913: x_return_status := l_fnd_error;
1907:
1908: EXCEPTION
1909: WHEN fnd_api.g_exc_error THEN
1910: IF (l_debug > 0) THEN
1911: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
1912: END IF;
1913: x_return_status := l_fnd_error;
1914:
1915: IF l_mtl_item_tbl.count > 0 THEN
1975:
1976: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
1977: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_ISSUE_PROJTASK';
1978: l_api_version NUMBER := 1.0;
1979: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1980: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1976: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
1977: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_ISSUE_PROJTASK';
1978: l_api_version NUMBER := 1.0;
1979: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1980: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1984: l_transaction_id NUMBER := NULL;
1977: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_ISSUE_PROJTASK';
1978: l_api_version NUMBER := 1.0;
1979: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1980: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1984: l_transaction_id NUMBER := NULL;
1985: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
1978: l_api_version NUMBER := 1.0;
1979: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1980: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1984: l_transaction_id NUMBER := NULL;
1985: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
1986: l_object_version_number NUMBER := 1;
1979: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1980: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1984: l_transaction_id NUMBER := NULL;
1985: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
1986: l_object_version_number NUMBER := 1;
1987: l_sysdate DATE := SYSDATE;
1981: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1982: l_active_instance_only VARCHAR2(10) := FND_API.G_TRUE;
1983: l_inactive_instance_only VARCHAR2(10) := FND_API.G_FALSE;
1984: l_transaction_id NUMBER := NULL;
1985: l_resolve_id_columns VARCHAR2(10) := FND_API.G_FALSE;
1986: l_object_version_number NUMBER := 1;
1987: l_sysdate DATE := SYSDATE;
1988: l_master_organization_id NUMBER;
1989: l_depreciable VARCHAR2(1);
2008: l_account_tbl CSI_DATASTRUCTURES_PUB.PARTY_ACCOUNT_TBL;
2009: l_pricing_attrib_tbl CSI_DATASTRUCTURES_PUB.PRICING_ATTRIBS_TBL;
2010: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
2011: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
2012: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2013: l_fnd_warning VARCHAR2(1) := 'W';
2014: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2015: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2016: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2010: l_org_assignments_tbl CSI_DATASTRUCTURES_PUB.ORGANIZATION_UNITS_TBL;
2011: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
2012: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2013: l_fnd_warning VARCHAR2(1) := 'W';
2014: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2015: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2016: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2017: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
2018: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
2011: l_asset_assignment_tbl CSI_DATASTRUCTURES_PUB.INSTANCE_ASSET_TBL;
2012: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2013: l_fnd_warning VARCHAR2(1) := 'W';
2014: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
2015: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
2016: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
2017: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
2018: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
2019: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
2071: IF NOT l_return_status = l_fnd_success THEN
2072: IF (l_debug > 0) THEN
2073: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2074: END IF;
2075: RAISE fnd_api.g_exc_error;
2076: END IF;
2077:
2078: -- Get the Master Organization ID
2079: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
2084: IF NOT l_return_status = l_fnd_success THEN
2085: IF (l_debug > 0) THEN
2086: 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);
2087: END IF;
2088: RAISE fnd_api.g_exc_error;
2089: END IF;
2090:
2091: -- Call get_fnd_employee_id and get the employee id
2092: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2125: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
2126: l_mtl_item_tbl(i).organization_id);
2127:
2128: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
2129: l_instance_status := FND_API.G_FALSE;
2130: ELSE
2131: l_instance_status := FND_API.G_TRUE;
2132: END IF;
2133:
2127:
2128: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
2129: l_instance_status := FND_API.G_FALSE;
2130: ELSE
2131: l_instance_status := FND_API.G_TRUE;
2132: END IF;
2133:
2134: IF (l_debug > 0) THEN
2135: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
2161: IF (l_debug > 0) THEN
2162: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2163: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2164: END IF;
2165: RAISE fnd_api.g_exc_error;
2166: END IF;
2167:
2168: IF (l_debug > 0) THEN
2169: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2198: IF NOT l_return_status = l_fnd_success THEN
2199: IF (l_debug > 0) THEN
2200: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2201: END IF;
2202: RAISE fnd_api.g_exc_error;
2203: END IF;
2204:
2205: -- Now loop through the PL/SQL Table.
2206: j := 1;
2263: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2264: END IF;
2265: l_msg_index := 1;
2266: WHILE l_msg_count > 0 loop
2267: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2268: l_msg_index := l_msg_index + 1;
2269: l_msg_count := l_msg_count - 1;
2270: END LOOP;
2271: RAISE fnd_api.g_exc_error;
2267: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2268: l_msg_index := l_msg_index + 1;
2269: l_msg_count := l_msg_count - 1;
2270: END LOOP;
2271: RAISE fnd_api.g_exc_error;
2272: END IF;
2273:
2274:
2275: IF l_mtl_item_tbl(j).serial_number is NULL THEN
2341: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2342: END IF;
2343: l_msg_index := 1;
2344: WHILE l_msg_count > 0 loop
2345: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2346: l_msg_index := l_msg_index + 1;
2347: l_msg_count := l_msg_count - 1;
2348: END LOOP;
2349: RAISE fnd_api.g_exc_error;
2345: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2346: l_msg_index := l_msg_index + 1;
2347: l_msg_count := l_msg_count - 1;
2348: END LOOP;
2349: RAISE fnd_api.g_exc_error;
2350: END IF;
2351:
2352: ELSE -- No Records were found and Neg Qtys Not Allowed
2353: IF (l_debug > 0) THEN
2354: csi_t_gen_utility_pvt.add('No Records were found in Install Base andNeg Qtys not allowed to error');
2355: END IF;
2356: fnd_message.set_name('CSI','CSI_NO_NEG_BAL_ALLOWED');
2357: l_error_message := fnd_message.get;
2358: RAISE fnd_api.g_exc_error;
2359:
2360: END IF; -- Neg Qty If
2361:
2362: ELSIF l_src_instance_header_tbl.count = 1 THEN
2420: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2421: END IF;
2422: l_msg_index := 1;
2423: WHILE l_msg_count > 0 loop
2424: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2425: l_msg_index := l_msg_index + 1;
2426: l_msg_count := l_msg_count - 1;
2427: END LOOP;
2428: RAISE fnd_api.g_exc_error;
2424: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2425: l_msg_index := l_msg_index + 1;
2426: l_msg_count := l_msg_count - 1;
2427: END LOOP;
2428: RAISE fnd_api.g_exc_error;
2429: END IF;
2430:
2431: ELSIF l_src_instance_header_tbl.count > 1 THEN
2432: -- Multiple Instances were found so throw error
2437: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2438: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2439: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2440: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2441: RAISE fnd_api.g_exc_error;
2442:
2443: END IF; -- End of Source Record If
2444:
2445: -- Now query and get the destination record.
2487: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2488: END IF;
2489: l_msg_index := 1;
2490: WHILE l_msg_count > 0 loop
2491: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2492: l_msg_index := l_msg_index + 1;
2493: l_msg_count := l_msg_count - 1;
2494: END LOOP;
2495: RAISE fnd_api.g_exc_error;
2491: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2492: l_msg_index := l_msg_index + 1;
2493: l_msg_count := l_msg_count - 1;
2494: END LOOP;
2495: RAISE fnd_api.g_exc_error;
2496: END IF;
2497:
2498: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found
2499: IF (l_debug > 0) THEN
2562: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2563: END IF;
2564: l_msg_index := 1;
2565: WHILE l_msg_count > 0 loop
2566: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2567: l_msg_index := l_msg_index + 1;
2568: l_msg_count := l_msg_count - 1;
2569: END LOOP;
2570: RAISE fnd_api.g_exc_error;
2566: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2567: l_msg_index := l_msg_index + 1;
2568: l_msg_count := l_msg_count - 1;
2569: END LOOP;
2570: RAISE fnd_api.g_exc_error;
2571: END IF;
2572:
2573: ELSIF l_dest_instance_header_tbl.count = 1 THEN
2574: -- Installed Base Destination Records Found
2627: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2628: END IF;
2629: l_msg_index := 1;
2630: WHILE l_msg_count > 0 loop
2631: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2632: l_msg_index := l_msg_index + 1;
2633: l_msg_count := l_msg_count - 1;
2634: END LOOP;
2635: RAISE fnd_api.g_exc_error;
2631: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2632: l_msg_index := l_msg_index + 1;
2633: l_msg_count := l_msg_count - 1;
2634: END LOOP;
2635: RAISE fnd_api.g_exc_error;
2636: END IF;
2637:
2638: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2639: -- Multiple Instances were found so throw error
2644: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2645: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2646: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2647: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2648: RAISE fnd_api.g_exc_error;
2649:
2650: END IF; -- End of Destination Record If
2651:
2652: ELSIF l_mtl_item_tbl(j).serial_number is NOT NULL THEN
2709: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2710: END IF;
2711: l_msg_index := 1;
2712: WHILE l_msg_count > 0 loop
2713: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2714: l_msg_index := l_msg_index + 1;
2715: l_msg_count := l_msg_count - 1;
2716: END LOOP;
2717: RAISE fnd_api.g_exc_error;
2713: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2714: l_msg_index := l_msg_index + 1;
2715: l_msg_count := l_msg_count - 1;
2716: END LOOP;
2717: RAISE fnd_api.g_exc_error;
2718: END IF;
2719:
2720: ELSIF l_src_instance_header_tbl.count = 0 THEN
2721: IF (l_debug > 0) THEN
2725: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2726: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2727: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2728: l_error_message := fnd_message.get;
2729: RAISE fnd_api.g_exc_error;
2730:
2731: ELSIF l_src_instance_header_tbl.count > 1 THEN
2732: -- Multiple Instances were found so throw error
2733: IF (l_debug > 0) THEN
2737: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2738: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2739: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2740: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2741: RAISE fnd_api.g_exc_error;
2742: END IF; -- End of Source Record IF for Serialized
2743: END IF; -- End of Serial Number If
2744: END LOOP; -- End of For Loop
2745:
2747: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2748: END IF;
2749:
2750: EXCEPTION
2751: WHEN fnd_api.g_exc_error THEN
2752: IF (l_debug > 0) THEN
2753: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
2754: END IF;
2755: x_return_status := l_fnd_error;
2749:
2750: EXCEPTION
2751: WHEN fnd_api.g_exc_error THEN
2752: IF (l_debug > 0) THEN
2753: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
2754: END IF;
2755: x_return_status := l_fnd_error;
2756:
2757: IF l_mtl_item_tbl.count > 0 THEN