439: ELSE -- No Serialized Instances found so Error.
440:
441: debug('No Records were found in Install Base - 7');
442:
443: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
440:
441: debug('No Records were found in Install Base - 7');
442:
443: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
448: l_error_message := fnd_message.get;
441: debug('No Records were found in Install Base - 7');
442:
443: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
448: l_error_message := fnd_message.get;
449: RAISE fnd_api.g_exc_error;
442:
443: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
448: l_error_message := fnd_message.get;
449: RAISE fnd_api.g_exc_error;
450: END IF; -- End of Usage Code Check
443: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
448: l_error_message := fnd_message.get;
449: RAISE fnd_api.g_exc_error;
450: END IF; -- End of Usage Code Check
451:
444: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
445: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
446: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
447: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
448: l_error_message := fnd_message.get;
449: RAISE fnd_api.g_exc_error;
450: END IF; -- End of Usage Code Check
451:
452: ELSE -- -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
721: END IF;
722:
723: ELSE -- Error No dest non serial recs round
724: debug('No Records were found in Install Base but the usage is not correct-14, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
725: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
722:
723: ELSE -- Error No dest non serial recs round
724: debug('No Records were found in Install Base but the usage is not correct-14, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
725: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
730: l_error_message := fnd_message.get;
723: ELSE -- Error No dest non serial recs round
724: debug('No Records were found in Install Base but the usage is not correct-14, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
725: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
730: l_error_message := fnd_message.get;
731: RAISE fnd_api.g_exc_error;
724: debug('No Records were found in Install Base but the usage is not correct-14, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
725: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
730: l_error_message := fnd_message.get;
731: RAISE fnd_api.g_exc_error;
732: END IF; -- End of Destination Record If
725: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
730: l_error_message := fnd_message.get;
731: RAISE fnd_api.g_exc_error;
732: END IF; -- End of Destination Record If
733:
726: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
728: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
729: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
730: l_error_message := fnd_message.get;
731: RAISE fnd_api.g_exc_error;
732: END IF; -- End of Destination Record If
733:
734: END IF; -- End of j=1 for Control Code 1
735:
736: ELSE -- No Serialized Instances found so Error.
737: debug('No Records were found in Install Base - 18');
738:
739: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
736: ELSE -- No Serialized Instances found so Error.
737: debug('No Records were found in Install Base - 18');
738:
739: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
744: l_error_message := fnd_message.get;
737: debug('No Records were found in Install Base - 18');
738:
739: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
744: l_error_message := fnd_message.get;
745: RAISE fnd_api.g_exc_error;
738:
739: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
744: l_error_message := fnd_message.get;
745: RAISE fnd_api.g_exc_error;
746: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
739: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
744: l_error_message := fnd_message.get;
745: RAISE fnd_api.g_exc_error;
746: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
747:
740: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
742: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
743: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
744: l_error_message := fnd_message.get;
745: RAISE fnd_api.g_exc_error;
746: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
747:
748: END IF; -- End of If for Rec Serial Code Check
750:
751: ELSE -- No Serialized Instances found so Error.
752: debug('No Records were found in Install Base - 19');
753:
754: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
751: ELSE -- No Serialized Instances found so Error.
752: debug('No Records were found in Install Base - 19');
753:
754: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
759: l_error_message := fnd_message.get;
752: debug('No Records were found in Install Base - 19');
753:
754: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
759: l_error_message := fnd_message.get;
760: RAISE fnd_api.g_exc_error;
753:
754: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
759: l_error_message := fnd_message.get;
760: RAISE fnd_api.g_exc_error;
761:
754: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
759: l_error_message := fnd_message.get;
760: RAISE fnd_api.g_exc_error;
761:
762: END IF; -- End of 2,5 Serial Control
755: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
757: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
758: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
759: l_error_message := fnd_message.get;
760: RAISE fnd_api.g_exc_error;
761:
762: END IF; -- End of 2,5 Serial Control
763:
832:
833: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
834: debug('No Records were found in Install Base - 11');
835:
836: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
833: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
834: debug('No Records were found in Install Base - 11');
835:
836: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
841: l_error_message := fnd_message.get;
834: debug('No Records were found in Install Base - 11');
835:
836: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
841: l_error_message := fnd_message.get;
842: RAISE fnd_api.g_exc_error;
835:
836: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
841: l_error_message := fnd_message.get;
842: RAISE fnd_api.g_exc_error;
843:
836: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
841: l_error_message := fnd_message.get;
842: RAISE fnd_api.g_exc_error;
843:
844: END IF; -- End of Neg Qty If
837: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
840: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
841: l_error_message := fnd_message.get;
842: RAISE fnd_api.g_exc_error;
843:
844: END IF; -- End of Neg Qty If
845:
903:
904: ELSIF l_src_instance_header_tbl.count > 1 THEN
905: -- Multiple Instances were found so throw error
906: debug('Multiple Instances were Found in Install Base-30');
907: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
904: ELSIF l_src_instance_header_tbl.count > 1 THEN
905: -- Multiple Instances were found so throw error
906: debug('Multiple Instances were Found in Install Base-30');
907: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
912: l_error_message := fnd_message.get;
905: -- Multiple Instances were found so throw error
906: debug('Multiple Instances were Found in Install Base-30');
907: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
912: l_error_message := fnd_message.get;
913: RAISE fnd_api.g_exc_error;
906: debug('Multiple Instances were Found in Install Base-30');
907: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
912: l_error_message := fnd_message.get;
913: RAISE fnd_api.g_exc_error;
914: END IF; -- End of If for Source Count
907: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
912: l_error_message := fnd_message.get;
913: RAISE fnd_api.g_exc_error;
914: END IF; -- End of If for Source Count
915:
908: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
909: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
910: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
911: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
912: l_error_message := fnd_message.get;
913: RAISE fnd_api.g_exc_error;
914: END IF; -- End of If for Source Count
915:
916: -- Get Destination Records
1100:
1101: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1102: -- Multiple Instances were found so throw error
1103: debug('Multiple Instances were Found in Install Base-30');
1104: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1101: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1102: -- Multiple Instances were found so throw error
1103: debug('Multiple Instances were Found in Install Base-30');
1104: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1109: l_error_message := fnd_message.get;
1102: -- Multiple Instances were found so throw error
1103: debug('Multiple Instances were Found in Install Base-30');
1104: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1109: l_error_message := fnd_message.get;
1110: RAISE fnd_api.g_exc_error;
1103: debug('Multiple Instances were Found in Install Base-30');
1104: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1109: l_error_message := fnd_message.get;
1110: RAISE fnd_api.g_exc_error;
1111:
1104: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1109: l_error_message := fnd_message.get;
1110: RAISE fnd_api.g_exc_error;
1111:
1112: END IF; -- End of Destination Record If
1105: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1106: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1107: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1108: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1109: l_error_message := fnd_message.get;
1110: RAISE fnd_api.g_exc_error;
1111:
1112: END IF; -- End of Destination Record If
1113: END IF; -- End of Serial Control If
1152:
1153: debug('You have encountered a "when others" exception in the Inter-Organization Transaction - In Transit Shipment');
1154: debug('SQL Error: '||l_sql_error);
1155:
1156: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1157: fnd_message.set_token('API_NAME',l_api_name);
1158: fnd_message.set_token('SQL_ERROR',SQLERRM);
1159: x_return_status := l_fnd_unexpected;
1160:
1153: debug('You have encountered a "when others" exception in the Inter-Organization Transaction - In Transit Shipment');
1154: debug('SQL Error: '||l_sql_error);
1155:
1156: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1157: fnd_message.set_token('API_NAME',l_api_name);
1158: fnd_message.set_token('SQL_ERROR',SQLERRM);
1159: x_return_status := l_fnd_unexpected;
1160:
1161: IF l_mtl_item_tbl.count > 0 THEN
1154: debug('SQL Error: '||l_sql_error);
1155:
1156: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1157: fnd_message.set_token('API_NAME',l_api_name);
1158: fnd_message.set_token('SQL_ERROR',SQLERRM);
1159: x_return_status := l_fnd_unexpected;
1160:
1161: IF l_mtl_item_tbl.count > 0 THEN
1162: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
1174: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
1175: x_trx_error_rec.transaction_error_date := l_sysdate ;
1176: END IF;
1177:
1178: x_trx_error_rec.error_text := fnd_message.get;
1179: x_trx_error_rec.transaction_id := NULL;
1180: x_trx_error_rec.source_type := 'CSIORGTS';
1181: x_trx_error_rec.source_id := p_transaction_id;
1182: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2099: ELSE
2100: l_status := 'In Inventory, Out of Service or Out of Enterprise';
2101: debug('Serialized Item with Out of Enterprise exists however the ownership_override_at_txn flag is set to N so we will NOT bring this back into inventory');
2102: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2103: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2104: fnd_message.set_token('STATUS',l_status);
2105: l_error_message := fnd_message.get;
2106: l_return_status := l_fnd_error;
2107: RAISE fnd_api.g_exc_error;
2100: l_status := 'In Inventory, Out of Service or Out of Enterprise';
2101: debug('Serialized Item with Out of Enterprise exists however the ownership_override_at_txn flag is set to N so we will NOT bring this back into inventory');
2102: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2103: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2104: fnd_message.set_token('STATUS',l_status);
2105: l_error_message := fnd_message.get;
2106: l_return_status := l_fnd_error;
2107: RAISE fnd_api.g_exc_error;
2108: END IF;
2101: debug('Serialized Item with Out of Enterprise exists however the ownership_override_at_txn flag is set to N so we will NOT bring this back into inventory');
2102: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2103: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2104: fnd_message.set_token('STATUS',l_status);
2105: l_error_message := fnd_message.get;
2106: l_return_status := l_fnd_error;
2107: RAISE fnd_api.g_exc_error;
2108: END IF;
2109:
2110: ELSE
2111: l_status := 'IN_INVENTORY OR IN_TRANSIT';
2112: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2113: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2114: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2115: fnd_message.set_token('STATUS',l_status);
2116: l_error_message := fnd_message.get;
2117: RAISE fnd_api.g_exc_error;
2118: END IF;
2111: l_status := 'IN_INVENTORY OR IN_TRANSIT';
2112: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2113: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2114: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2115: fnd_message.set_token('STATUS',l_status);
2116: l_error_message := fnd_message.get;
2117: RAISE fnd_api.g_exc_error;
2118: END IF;
2119: END IF; -- End of Destination Record If
2112: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2113: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2114: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2115: fnd_message.set_token('STATUS',l_status);
2116: l_error_message := fnd_message.get;
2117: RAISE fnd_api.g_exc_error;
2118: END IF;
2119: END IF; -- End of Destination Record If
2120:
2360:
2361: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2362: -- Multiple Instances were found so throw error
2363: debug('Multiple Instances were Found in Install Base-30');
2364: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2361: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2362: -- Multiple Instances were found so throw error
2363: debug('Multiple Instances were Found in Install Base-30');
2364: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2369: l_error_message := fnd_message.get;
2362: -- Multiple Instances were found so throw error
2363: debug('Multiple Instances were Found in Install Base-30');
2364: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2369: l_error_message := fnd_message.get;
2370: RAISE fnd_api.g_exc_error;
2363: debug('Multiple Instances were Found in Install Base-30');
2364: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2369: l_error_message := fnd_message.get;
2370: RAISE fnd_api.g_exc_error;
2371:
2364: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2369: l_error_message := fnd_message.get;
2370: RAISE fnd_api.g_exc_error;
2371:
2372: END IF; -- End of Destination Record If
2365: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2366: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2367: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2368: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2369: l_error_message := fnd_message.get;
2370: RAISE fnd_api.g_exc_error;
2371:
2372: END IF; -- End of Destination Record If
2373:
2615:
2616: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2617: -- Multiple Instances were found so throw error
2618: debug('Multiple Instances were Found in Install Base-30');
2619: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2616: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2617: -- Multiple Instances were found so throw error
2618: debug('Multiple Instances were Found in Install Base-30');
2619: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2624: l_error_message := fnd_message.get;
2617: -- Multiple Instances were found so throw error
2618: debug('Multiple Instances were Found in Install Base-30');
2619: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2624: l_error_message := fnd_message.get;
2625: RAISE fnd_api.g_exc_error;
2618: debug('Multiple Instances were Found in Install Base-30');
2619: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2624: l_error_message := fnd_message.get;
2625: RAISE fnd_api.g_exc_error;
2626:
2619: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2624: l_error_message := fnd_message.get;
2625: RAISE fnd_api.g_exc_error;
2626:
2627: END IF; -- End of Destination Record If
2620: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2621: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2622: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2623: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2624: l_error_message := fnd_message.get;
2625: RAISE fnd_api.g_exc_error;
2626:
2627: END IF; -- End of Destination Record If
2628: END IF; -- End of J Index Loop
2858:
2859: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2860: -- Multiple Instances were found so throw error
2861: debug('Multiple Instances were Found in Install Base-30');
2862: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2859: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2860: -- Multiple Instances were found so throw error
2861: debug('Multiple Instances were Found in Install Base-30');
2862: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2867: l_error_message := fnd_message.get;
2860: -- Multiple Instances were found so throw error
2861: debug('Multiple Instances were Found in Install Base-30');
2862: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2867: l_error_message := fnd_message.get;
2868: RAISE fnd_api.g_exc_error;
2861: debug('Multiple Instances were Found in Install Base-30');
2862: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2867: l_error_message := fnd_message.get;
2868: RAISE fnd_api.g_exc_error;
2869: END IF; -- End of Destination Record If
2862: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2867: l_error_message := fnd_message.get;
2868: RAISE fnd_api.g_exc_error;
2869: END IF; -- End of Destination Record If
2870:
2863: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2864: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2865: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2866: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2867: l_error_message := fnd_message.get;
2868: RAISE fnd_api.g_exc_error;
2869: END IF; -- End of Destination Record If
2870:
2871: ELSE -- No Records Found So throw Error
2870:
2871: ELSE -- No Records Found So throw Error
2872: debug('No Records were found in Install Base - 48');
2873:
2874: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2871: ELSE -- No Records Found So throw Error
2872: debug('No Records were found in Install Base - 48');
2873:
2874: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2879: l_error_message := fnd_message.get;
2872: debug('No Records were found in Install Base - 48');
2873:
2874: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2879: l_error_message := fnd_message.get;
2880: RAISE fnd_api.g_exc_error;
2873:
2874: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2879: l_error_message := fnd_message.get;
2880: RAISE fnd_api.g_exc_error;
2881:
2874: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2879: l_error_message := fnd_message.get;
2880: RAISE fnd_api.g_exc_error;
2881:
2882: END IF; -- Serial Control IF
2875: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2876: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2877: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2878: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2879: l_error_message := fnd_message.get;
2880: RAISE fnd_api.g_exc_error;
2881:
2882: END IF; -- Serial Control IF
2883:
2883:
2884: ELSE
2885: debug('No Records were found in Install Base - 49');
2886:
2887: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2884: ELSE
2885: debug('No Records were found in Install Base - 49');
2886:
2887: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2892: l_error_message := fnd_message.get;
2885: debug('No Records were found in Install Base - 49');
2886:
2887: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2892: l_error_message := fnd_message.get;
2893: RAISE fnd_api.g_exc_error;
2886:
2887: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2892: l_error_message := fnd_message.get;
2893: RAISE fnd_api.g_exc_error;
2894:
2887: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2892: l_error_message := fnd_message.get;
2893: RAISE fnd_api.g_exc_error;
2894:
2895: END IF; -- End of Main Source Header Tbl IF
2888: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2889: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2890: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2891: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2892: l_error_message := fnd_message.get;
2893: RAISE fnd_api.g_exc_error;
2894:
2895: END IF; -- End of Main Source Header Tbl IF
2896: END LOOP; -- End of For Loop
2933: WHEN others THEN
2934: l_sql_error := SQLERRM;
2935: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2936: debug('SQL Error: '||l_sql_error);
2937: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2938: fnd_message.set_token('API_NAME',l_api_name);
2939: fnd_message.set_token('SQL_ERROR',SQLERRM);
2940: x_return_status := l_fnd_unexpected;
2941:
2934: l_sql_error := SQLERRM;
2935: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2936: debug('SQL Error: '||l_sql_error);
2937: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2938: fnd_message.set_token('API_NAME',l_api_name);
2939: fnd_message.set_token('SQL_ERROR',SQLERRM);
2940: x_return_status := l_fnd_unexpected;
2941:
2942: IF l_mtl_item_tbl.count > 0 THEN
2935: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2936: debug('SQL Error: '||l_sql_error);
2937: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2938: fnd_message.set_token('API_NAME',l_api_name);
2939: fnd_message.set_token('SQL_ERROR',SQLERRM);
2940: x_return_status := l_fnd_unexpected;
2941:
2942: IF l_mtl_item_tbl.count > 0 THEN
2943: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
2955: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
2956: x_trx_error_rec.transaction_error_date := l_sysdate ;
2957: END IF;
2958:
2959: x_trx_error_rec.error_text := fnd_message.get;
2960: x_trx_error_rec.transaction_id := NULL;
2961: x_trx_error_rec.source_type := 'CSIORGTR';
2962: x_trx_error_rec.source_id := p_transaction_id;
2963: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
3441:
3442: ELSE -- No Src Records found so error
3443:
3444: debug('No Records were found in Install Base - 5');
3445: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3442: ELSE -- No Src Records found so error
3443:
3444: debug('No Records were found in Install Base - 5');
3445: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3450: l_error_message := fnd_message.get;
3443:
3444: debug('No Records were found in Install Base - 5');
3445: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3450: l_error_message := fnd_message.get;
3451: RAISE fnd_api.g_exc_error;
3444: debug('No Records were found in Install Base - 5');
3445: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3450: l_error_message := fnd_message.get;
3451: RAISE fnd_api.g_exc_error;
3452: END IF; -- End of 5 and 2,5 IF
3445: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3450: l_error_message := fnd_message.get;
3451: RAISE fnd_api.g_exc_error;
3452: END IF; -- End of 5 and 2,5 IF
3453:
3446: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3447: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3448: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3449: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3450: l_error_message := fnd_message.get;
3451: RAISE fnd_api.g_exc_error;
3452: END IF; -- End of 5 and 2,5 IF
3453:
3454: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
3529: RAISE fnd_api.g_exc_error;
3530: END IF;
3531: ELSE -- Inv Does not allowe neg qty and source is not found
3532: debug('No Records were found in Install Base - 9');
3533: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3530: END IF;
3531: ELSE -- Inv Does not allowe neg qty and source is not found
3532: debug('No Records were found in Install Base - 9');
3533: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3538: l_error_message := fnd_message.get;
3531: ELSE -- Inv Does not allowe neg qty and source is not found
3532: debug('No Records were found in Install Base - 9');
3533: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3538: l_error_message := fnd_message.get;
3539: RAISE fnd_api.g_exc_error;
3532: debug('No Records were found in Install Base - 9');
3533: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3538: l_error_message := fnd_message.get;
3539: RAISE fnd_api.g_exc_error;
3540:
3533: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3538: l_error_message := fnd_message.get;
3539: RAISE fnd_api.g_exc_error;
3540:
3541: END IF; -- End of Neg Qty IF
3534: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3535: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3536: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3537: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3538: l_error_message := fnd_message.get;
3539: RAISE fnd_api.g_exc_error;
3540:
3541: END IF; -- End of Neg Qty IF
3542: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
3607: END IF;
3608:
3609: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3610: debug('No Records were found in Install Base - 12');
3611: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3608:
3609: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3610: debug('No Records were found in Install Base - 12');
3611: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3616: l_error_message := fnd_message.get;
3609: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3610: debug('No Records were found in Install Base - 12');
3611: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3616: l_error_message := fnd_message.get;
3617: RAISE fnd_api.g_exc_error;
3610: debug('No Records were found in Install Base - 12');
3611: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3616: l_error_message := fnd_message.get;
3617: RAISE fnd_api.g_exc_error;
3618: END IF; -- End of If for Main Source
3611: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3616: l_error_message := fnd_message.get;
3617: RAISE fnd_api.g_exc_error;
3618: END IF; -- End of If for Main Source
3619:
3612: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3613: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3614: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3615: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3616: l_error_message := fnd_message.get;
3617: RAISE fnd_api.g_exc_error;
3618: END IF; -- End of If for Main Source
3619:
3620: -- Get Destination Records
3795:
3796: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3797: -- Multiple Instances were found so throw error
3798: debug('Multiple Instances were Found in Install Base-30');
3799: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3796: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3797: -- Multiple Instances were found so throw error
3798: debug('Multiple Instances were Found in Install Base-30');
3799: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3804: l_error_message := fnd_message.get;
3797: -- Multiple Instances were found so throw error
3798: debug('Multiple Instances were Found in Install Base-30');
3799: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3804: l_error_message := fnd_message.get;
3805: RAISE fnd_api.g_exc_error;
3798: debug('Multiple Instances were Found in Install Base-30');
3799: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3804: l_error_message := fnd_message.get;
3805: RAISE fnd_api.g_exc_error;
3806: END IF; -- End of Destination Record If
3799: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3804: l_error_message := fnd_message.get;
3805: RAISE fnd_api.g_exc_error;
3806: END IF; -- End of Destination Record If
3807:
3800: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3801: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3802: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3803: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3804: l_error_message := fnd_message.get;
3805: RAISE fnd_api.g_exc_error;
3806: END IF; -- End of Destination Record If
3807:
3808: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4050:
4051: ELSIF l_dest_instance_header_tbl.count > 1 THEN
4052: -- Multiple Instances were found so throw error
4053: debug('Multiple Instances were Found in Install Base-30');
4054: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4051: ELSIF l_dest_instance_header_tbl.count > 1 THEN
4052: -- Multiple Instances were found so throw error
4053: debug('Multiple Instances were Found in Install Base-30');
4054: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4059: l_error_message := fnd_message.get;
4052: -- Multiple Instances were found so throw error
4053: debug('Multiple Instances were Found in Install Base-30');
4054: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4059: l_error_message := fnd_message.get;
4060: RAISE fnd_api.g_exc_error;
4053: debug('Multiple Instances were Found in Install Base-30');
4054: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4059: l_error_message := fnd_message.get;
4060: RAISE fnd_api.g_exc_error;
4061: END IF; -- End of Destination Record If
4054: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4059: l_error_message := fnd_message.get;
4060: RAISE fnd_api.g_exc_error;
4061: END IF; -- End of Destination Record If
4062: END IF; -- End of J Index Loop
4055: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4056: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4057: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4058: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4059: l_error_message := fnd_message.get;
4060: RAISE fnd_api.g_exc_error;
4061: END IF; -- End of Destination Record If
4062: END IF; -- End of J Index Loop
4063:
4082: debug('Shipping Serial Control is: '||l_mtl_item_tbl(j).serial_number_control_code);
4083: debug('Receiving Serial Control is: '||l_sr_control);
4084:
4085: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4086: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4083: debug('Receiving Serial Control is: '||l_sr_control);
4084:
4085: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4086: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4084:
4085: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4086: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4092: l_error_message := fnd_message.get;
4085: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4086: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4092: l_error_message := fnd_message.get;
4093: RAISE fnd_api.g_exc_error;
4086: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4092: l_error_message := fnd_message.get;
4093: RAISE fnd_api.g_exc_error;
4094: END IF; -- End of Serial Control IF
4087: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4092: l_error_message := fnd_message.get;
4093: RAISE fnd_api.g_exc_error;
4094: END IF; -- End of Serial Control IF
4095: END LOOP; -- End of main For Inv Loop
4088: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4089: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4090: fnd_message.set_token('REC_SC',l_sr_control);
4091: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4092: l_error_message := fnd_message.get;
4093: RAISE fnd_api.g_exc_error;
4094: END IF; -- End of Serial Control IF
4095: END LOOP; -- End of main For Inv Loop
4096:
4131: WHEN others THEN
4132: l_sql_error := SQLERRM;
4133: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4134: debug('SQL Error: '||l_sql_error);
4135: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4136: fnd_message.set_token('API_NAME',l_api_name);
4137: fnd_message.set_token('SQL_ERROR',SQLERRM);
4138: x_return_status := l_fnd_unexpected;
4139:
4132: l_sql_error := SQLERRM;
4133: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4134: debug('SQL Error: '||l_sql_error);
4135: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4136: fnd_message.set_token('API_NAME',l_api_name);
4137: fnd_message.set_token('SQL_ERROR',SQLERRM);
4138: x_return_status := l_fnd_unexpected;
4139:
4140: IF l_mtl_item_tbl.count > 0 THEN
4133: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4134: debug('SQL Error: '||l_sql_error);
4135: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4136: fnd_message.set_token('API_NAME',l_api_name);
4137: fnd_message.set_token('SQL_ERROR',SQLERRM);
4138: x_return_status := l_fnd_unexpected;
4139:
4140: IF l_mtl_item_tbl.count > 0 THEN
4141: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
4153: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
4154: x_trx_error_rec.transaction_error_date := l_sysdate ;
4155: END IF;
4156:
4157: x_trx_error_rec.error_text := fnd_message.get;
4158: x_trx_error_rec.transaction_id := NULL;
4159: x_trx_error_rec.source_type := 'CSIORGDS';
4160: x_trx_error_rec.source_id := p_transaction_id;
4161: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;