443: ELSE -- No Serialized Instances found so Error.
444:
445: debug('No Records were found in Install Base - 7');
446:
447: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
444:
445: debug('No Records were found in Install Base - 7');
446:
447: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
452: l_error_message := fnd_message.get;
445: debug('No Records were found in Install Base - 7');
446:
447: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
452: l_error_message := fnd_message.get;
453: RAISE fnd_api.g_exc_error;
446:
447: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
452: l_error_message := fnd_message.get;
453: RAISE fnd_api.g_exc_error;
454: END IF; -- End of Usage Code Check
447: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
452: l_error_message := fnd_message.get;
453: RAISE fnd_api.g_exc_error;
454: END IF; -- End of Usage Code Check
455:
448: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
449: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
450: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
451: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
452: l_error_message := fnd_message.get;
453: RAISE fnd_api.g_exc_error;
454: END IF; -- End of Usage Code Check
455:
456: ELSE -- -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
726: END IF;
727:
728: ELSE -- Error No dest non serial recs round
729: 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);
730: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
727:
728: ELSE -- Error No dest non serial recs round
729: 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);
730: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
735: l_error_message := fnd_message.get;
728: ELSE -- Error No dest non serial recs round
729: 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);
730: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
735: l_error_message := fnd_message.get;
736: RAISE fnd_api.g_exc_error;
729: 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);
730: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
735: l_error_message := fnd_message.get;
736: RAISE fnd_api.g_exc_error;
737: END IF; -- End of Destination Record If
730: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
735: l_error_message := fnd_message.get;
736: RAISE fnd_api.g_exc_error;
737: END IF; -- End of Destination Record If
738:
731: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
732: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
733: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
734: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
735: l_error_message := fnd_message.get;
736: RAISE fnd_api.g_exc_error;
737: END IF; -- End of Destination Record If
738:
739: END IF; -- End of j=1 for Control Code 1
740:
741: ELSE -- No Serialized Instances found so Error.
742: debug('No Records were found in Install Base - 18');
743:
744: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
741: ELSE -- No Serialized Instances found so Error.
742: debug('No Records were found in Install Base - 18');
743:
744: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
749: l_error_message := fnd_message.get;
742: debug('No Records were found in Install Base - 18');
743:
744: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
749: l_error_message := fnd_message.get;
750: RAISE fnd_api.g_exc_error;
743:
744: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
749: l_error_message := fnd_message.get;
750: RAISE fnd_api.g_exc_error;
751: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
744: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
749: l_error_message := fnd_message.get;
750: RAISE fnd_api.g_exc_error;
751: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
752:
745: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
746: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
747: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
748: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
749: l_error_message := fnd_message.get;
750: RAISE fnd_api.g_exc_error;
751: END IF; -- End of Usage Code Check if Ship is 2,5 and Rec is 1
752:
753: END IF; -- End of If for Rec Serial Code Check
755:
756: ELSE -- No Serialized Instances found so Error.
757: debug('No Records were found in Install Base - 19');
758:
759: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
756: ELSE -- No Serialized Instances found so Error.
757: debug('No Records were found in Install Base - 19');
758:
759: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
764: l_error_message := fnd_message.get;
757: debug('No Records were found in Install Base - 19');
758:
759: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
764: l_error_message := fnd_message.get;
765: RAISE fnd_api.g_exc_error;
758:
759: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
764: l_error_message := fnd_message.get;
765: RAISE fnd_api.g_exc_error;
766:
759: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
764: l_error_message := fnd_message.get;
765: RAISE fnd_api.g_exc_error;
766:
767: END IF; -- End of 2,5 Serial Control
760: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
761: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
762: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
763: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
764: l_error_message := fnd_message.get;
765: RAISE fnd_api.g_exc_error;
766:
767: END IF; -- End of 2,5 Serial Control
768:
837:
838: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
839: debug('No Records were found in Install Base - 11');
840:
841: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
838: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
839: debug('No Records were found in Install Base - 11');
840:
841: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
846: l_error_message := fnd_message.get;
839: debug('No Records were found in Install Base - 11');
840:
841: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
846: l_error_message := fnd_message.get;
847: RAISE fnd_api.g_exc_error;
840:
841: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
846: l_error_message := fnd_message.get;
847: RAISE fnd_api.g_exc_error;
848:
841: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
846: l_error_message := fnd_message.get;
847: RAISE fnd_api.g_exc_error;
848:
849: END IF; -- End of Neg Qty If
842: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
843: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
844: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
845: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
846: l_error_message := fnd_message.get;
847: RAISE fnd_api.g_exc_error;
848:
849: END IF; -- End of Neg Qty If
850:
908:
909: ELSIF l_src_instance_header_tbl.count > 1 THEN
910: -- Multiple Instances were found so throw error
911: debug('Multiple Instances were Found in Install Base-30');
912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
909: ELSIF l_src_instance_header_tbl.count > 1 THEN
910: -- Multiple Instances were found so throw error
911: debug('Multiple Instances were Found in Install Base-30');
912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
917: l_error_message := fnd_message.get;
910: -- Multiple Instances were found so throw error
911: debug('Multiple Instances were Found in Install Base-30');
912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
917: l_error_message := fnd_message.get;
918: RAISE fnd_api.g_exc_error;
911: debug('Multiple Instances were Found in Install Base-30');
912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
917: l_error_message := fnd_message.get;
918: RAISE fnd_api.g_exc_error;
919: END IF; -- End of If for Source Count
912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
917: l_error_message := fnd_message.get;
918: RAISE fnd_api.g_exc_error;
919: END IF; -- End of If for Source Count
920:
913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
915: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
916: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
917: l_error_message := fnd_message.get;
918: RAISE fnd_api.g_exc_error;
919: END IF; -- End of If for Source Count
920:
921: -- Get Destination Records
1106:
1107: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1108: -- Multiple Instances were found so throw error
1109: debug('Multiple Instances were Found in Install Base-30');
1110: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1107: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1108: -- Multiple Instances were found so throw error
1109: debug('Multiple Instances were Found in Install Base-30');
1110: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1115: l_error_message := fnd_message.get;
1108: -- Multiple Instances were found so throw error
1109: debug('Multiple Instances were Found in Install Base-30');
1110: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1115: l_error_message := fnd_message.get;
1116: RAISE fnd_api.g_exc_error;
1109: debug('Multiple Instances were Found in Install Base-30');
1110: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1115: l_error_message := fnd_message.get;
1116: RAISE fnd_api.g_exc_error;
1117:
1110: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1115: l_error_message := fnd_message.get;
1116: RAISE fnd_api.g_exc_error;
1117:
1118: END IF; -- End of Destination Record If
1111: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1112: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1113: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
1114: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
1115: l_error_message := fnd_message.get;
1116: RAISE fnd_api.g_exc_error;
1117:
1118: END IF; -- End of Destination Record If
1119: END IF; -- End of Serial Control If
1158:
1159: debug('You have encountered a "when others" exception in the Inter-Organization Transaction - In Transit Shipment');
1160: debug('SQL Error: '||l_sql_error);
1161:
1162: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1163: fnd_message.set_token('API_NAME',l_api_name);
1164: fnd_message.set_token('SQL_ERROR',SQLERRM);
1165: x_return_status := l_fnd_unexpected;
1166:
1159: debug('You have encountered a "when others" exception in the Inter-Organization Transaction - In Transit Shipment');
1160: debug('SQL Error: '||l_sql_error);
1161:
1162: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1163: fnd_message.set_token('API_NAME',l_api_name);
1164: fnd_message.set_token('SQL_ERROR',SQLERRM);
1165: x_return_status := l_fnd_unexpected;
1166:
1167: IF l_mtl_item_tbl.count > 0 THEN
1160: debug('SQL Error: '||l_sql_error);
1161:
1162: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1163: fnd_message.set_token('API_NAME',l_api_name);
1164: fnd_message.set_token('SQL_ERROR',SQLERRM);
1165: x_return_status := l_fnd_unexpected;
1166:
1167: IF l_mtl_item_tbl.count > 0 THEN
1168: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
1180: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
1181: x_trx_error_rec.transaction_error_date := l_sysdate ;
1182: END IF;
1183:
1184: x_trx_error_rec.error_text := fnd_message.get;
1185: x_trx_error_rec.transaction_id := NULL;
1186: x_trx_error_rec.source_type := 'CSIORGTS';
1187: x_trx_error_rec.source_id := p_transaction_id;
1188: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2131: ELSE
2132: l_status := 'In Inventory, Out of Service or Out of Enterprise';
2133: 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');
2134: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2135: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2136: fnd_message.set_token('STATUS',l_status);
2137: l_error_message := fnd_message.get;
2138: l_return_status := l_fnd_error;
2139: RAISE fnd_api.g_exc_error;
2132: l_status := 'In Inventory, Out of Service or Out of Enterprise';
2133: 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');
2134: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2135: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2136: fnd_message.set_token('STATUS',l_status);
2137: l_error_message := fnd_message.get;
2138: l_return_status := l_fnd_error;
2139: RAISE fnd_api.g_exc_error;
2140: END IF;
2133: 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');
2134: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2135: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2136: fnd_message.set_token('STATUS',l_status);
2137: l_error_message := fnd_message.get;
2138: l_return_status := l_fnd_error;
2139: RAISE fnd_api.g_exc_error;
2140: END IF;
2141:
2142: ELSE
2143: l_status := 'IN_INVENTORY OR IN_TRANSIT';
2144: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2145: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2146: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2147: fnd_message.set_token('STATUS',l_status);
2148: l_error_message := fnd_message.get;
2149: RAISE fnd_api.g_exc_error;
2150: END IF;
2143: l_status := 'IN_INVENTORY OR IN_TRANSIT';
2144: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2145: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2146: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2147: fnd_message.set_token('STATUS',l_status);
2148: l_error_message := fnd_message.get;
2149: RAISE fnd_api.g_exc_error;
2150: END IF;
2151: END IF; -- End of Destination Record If
2144: debug('Serialized Item with a usage other then IN INVENTORY or IN TRANSIT exists.');
2145: debug('Instance Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
2146: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
2147: fnd_message.set_token('STATUS',l_status);
2148: l_error_message := fnd_message.get;
2149: RAISE fnd_api.g_exc_error;
2150: END IF;
2151: END IF; -- End of Destination Record If
2152:
2396:
2397: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2398: -- Multiple Instances were found so throw error
2399: debug('Multiple Instances were Found in Install Base-30');
2400: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2397: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2398: -- Multiple Instances were found so throw error
2399: debug('Multiple Instances were Found in Install Base-30');
2400: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2405: l_error_message := fnd_message.get;
2398: -- Multiple Instances were found so throw error
2399: debug('Multiple Instances were Found in Install Base-30');
2400: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2405: l_error_message := fnd_message.get;
2406: RAISE fnd_api.g_exc_error;
2399: debug('Multiple Instances were Found in Install Base-30');
2400: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2405: l_error_message := fnd_message.get;
2406: RAISE fnd_api.g_exc_error;
2407:
2400: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2405: l_error_message := fnd_message.get;
2406: RAISE fnd_api.g_exc_error;
2407:
2408: END IF; -- End of Destination Record If
2401: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2402: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2403: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2404: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2405: l_error_message := fnd_message.get;
2406: RAISE fnd_api.g_exc_error;
2407:
2408: END IF; -- End of Destination Record If
2409:
2657:
2658: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2659: -- Multiple Instances were found so throw error
2660: debug('Multiple Instances were Found in Install Base-30');
2661: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2658: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2659: -- Multiple Instances were found so throw error
2660: debug('Multiple Instances were Found in Install Base-30');
2661: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2666: l_error_message := fnd_message.get;
2659: -- Multiple Instances were found so throw error
2660: debug('Multiple Instances were Found in Install Base-30');
2661: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2666: l_error_message := fnd_message.get;
2667: RAISE fnd_api.g_exc_error;
2660: debug('Multiple Instances were Found in Install Base-30');
2661: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2666: l_error_message := fnd_message.get;
2667: RAISE fnd_api.g_exc_error;
2668:
2661: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2666: l_error_message := fnd_message.get;
2667: RAISE fnd_api.g_exc_error;
2668:
2669: END IF; -- End of Destination Record If
2662: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2663: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2664: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2665: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2666: l_error_message := fnd_message.get;
2667: RAISE fnd_api.g_exc_error;
2668:
2669: END IF; -- End of Destination Record If
2670: END IF; -- End of J Index Loop
2914:
2915: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2916: -- Multiple Instances were found so throw error
2917: debug('Multiple Instances were Found in Install Base-30');
2918: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2915: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2916: -- Multiple Instances were found so throw error
2917: debug('Multiple Instances were Found in Install Base-30');
2918: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2923: l_error_message := fnd_message.get;
2916: -- Multiple Instances were found so throw error
2917: debug('Multiple Instances were Found in Install Base-30');
2918: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2923: l_error_message := fnd_message.get;
2924: RAISE fnd_api.g_exc_error;
2917: debug('Multiple Instances were Found in Install Base-30');
2918: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2923: l_error_message := fnd_message.get;
2924: RAISE fnd_api.g_exc_error;
2925: END IF; -- End of Destination Record If
2918: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2923: l_error_message := fnd_message.get;
2924: RAISE fnd_api.g_exc_error;
2925: END IF; -- End of Destination Record If
2926:
2919: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2920: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2921: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
2922: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
2923: l_error_message := fnd_message.get;
2924: RAISE fnd_api.g_exc_error;
2925: END IF; -- End of Destination Record If
2926:
2927: ELSE -- No Records Found So throw Error
2926:
2927: ELSE -- No Records Found So throw Error
2928: debug('No Records were found in Install Base - 48');
2929:
2930: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2927: ELSE -- No Records Found So throw Error
2928: debug('No Records were found in Install Base - 48');
2929:
2930: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2935: l_error_message := fnd_message.get;
2928: debug('No Records were found in Install Base - 48');
2929:
2930: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2935: l_error_message := fnd_message.get;
2936: RAISE fnd_api.g_exc_error;
2929:
2930: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2935: l_error_message := fnd_message.get;
2936: RAISE fnd_api.g_exc_error;
2937:
2930: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2935: l_error_message := fnd_message.get;
2936: RAISE fnd_api.g_exc_error;
2937:
2938: END IF; -- Serial Control IF
2931: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2932: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2933: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2934: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2935: l_error_message := fnd_message.get;
2936: RAISE fnd_api.g_exc_error;
2937:
2938: END IF; -- Serial Control IF
2939:
2939:
2940: ELSE
2941: debug('No Records were found in Install Base - 49');
2942:
2943: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2940: ELSE
2941: debug('No Records were found in Install Base - 49');
2942:
2943: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2948: l_error_message := fnd_message.get;
2941: debug('No Records were found in Install Base - 49');
2942:
2943: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2948: l_error_message := fnd_message.get;
2949: RAISE fnd_api.g_exc_error;
2942:
2943: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2948: l_error_message := fnd_message.get;
2949: RAISE fnd_api.g_exc_error;
2950:
2943: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2948: l_error_message := fnd_message.get;
2949: RAISE fnd_api.g_exc_error;
2950:
2951: END IF; -- End of Main Source Header Tbl IF
2944: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2945: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2946: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
2947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2948: l_error_message := fnd_message.get;
2949: RAISE fnd_api.g_exc_error;
2950:
2951: END IF; -- End of Main Source Header Tbl IF
2952: END LOOP; -- End of For Loop
2989: WHEN others THEN
2990: l_sql_error := SQLERRM;
2991: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2992: debug('SQL Error: '||l_sql_error);
2993: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2994: fnd_message.set_token('API_NAME',l_api_name);
2995: fnd_message.set_token('SQL_ERROR',SQLERRM);
2996: x_return_status := l_fnd_unexpected;
2997:
2990: l_sql_error := SQLERRM;
2991: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2992: debug('SQL Error: '||l_sql_error);
2993: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2994: fnd_message.set_token('API_NAME',l_api_name);
2995: fnd_message.set_token('SQL_ERROR',SQLERRM);
2996: x_return_status := l_fnd_unexpected;
2997:
2998: IF l_mtl_item_tbl.count > 0 THEN
2991: debug('You have encountered a "when others" exception in the Inter-Organization Transaction In Transit Receipt');
2992: debug('SQL Error: '||l_sql_error);
2993: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2994: fnd_message.set_token('API_NAME',l_api_name);
2995: fnd_message.set_token('SQL_ERROR',SQLERRM);
2996: x_return_status := l_fnd_unexpected;
2997:
2998: IF l_mtl_item_tbl.count > 0 THEN
2999: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
3011: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
3012: x_trx_error_rec.transaction_error_date := l_sysdate ;
3013: END IF;
3014:
3015: x_trx_error_rec.error_text := fnd_message.get;
3016: x_trx_error_rec.transaction_id := NULL;
3017: x_trx_error_rec.source_type := 'CSIORGTR';
3018: x_trx_error_rec.source_id := p_transaction_id;
3019: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
3501:
3502: ELSE -- No Src Records found so error
3503:
3504: debug('No Records were found in Install Base - 5');
3505: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3502: ELSE -- No Src Records found so error
3503:
3504: debug('No Records were found in Install Base - 5');
3505: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3510: l_error_message := fnd_message.get;
3503:
3504: debug('No Records were found in Install Base - 5');
3505: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3510: l_error_message := fnd_message.get;
3511: RAISE fnd_api.g_exc_error;
3504: debug('No Records were found in Install Base - 5');
3505: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3510: l_error_message := fnd_message.get;
3511: RAISE fnd_api.g_exc_error;
3512: END IF; -- End of 5 and 2,5 IF
3505: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3510: l_error_message := fnd_message.get;
3511: RAISE fnd_api.g_exc_error;
3512: END IF; -- End of 5 and 2,5 IF
3513:
3506: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3507: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3508: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3509: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3510: l_error_message := fnd_message.get;
3511: RAISE fnd_api.g_exc_error;
3512: END IF; -- End of 5 and 2,5 IF
3513:
3514: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
3589: RAISE fnd_api.g_exc_error;
3590: END IF;
3591: ELSE -- Inv Does not allowe neg qty and source is not found
3592: debug('No Records were found in Install Base - 9');
3593: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3590: END IF;
3591: ELSE -- Inv Does not allowe neg qty and source is not found
3592: debug('No Records were found in Install Base - 9');
3593: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3598: l_error_message := fnd_message.get;
3591: ELSE -- Inv Does not allowe neg qty and source is not found
3592: debug('No Records were found in Install Base - 9');
3593: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3598: l_error_message := fnd_message.get;
3599: RAISE fnd_api.g_exc_error;
3592: debug('No Records were found in Install Base - 9');
3593: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3598: l_error_message := fnd_message.get;
3599: RAISE fnd_api.g_exc_error;
3600:
3593: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3598: l_error_message := fnd_message.get;
3599: RAISE fnd_api.g_exc_error;
3600:
3601: END IF; -- End of Neg Qty IF
3594: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3595: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3596: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3597: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3598: l_error_message := fnd_message.get;
3599: RAISE fnd_api.g_exc_error;
3600:
3601: END IF; -- End of Neg Qty IF
3602: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
3667: END IF;
3668:
3669: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3670: debug('No Records were found in Install Base - 12');
3671: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3668:
3669: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3670: debug('No Records were found in Install Base - 12');
3671: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3676: l_error_message := fnd_message.get;
3669: ELSE -- Error No Src Recs and Inv Does not allow neg qtys
3670: debug('No Records were found in Install Base - 12');
3671: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3676: l_error_message := fnd_message.get;
3677: RAISE fnd_api.g_exc_error;
3670: debug('No Records were found in Install Base - 12');
3671: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3676: l_error_message := fnd_message.get;
3677: RAISE fnd_api.g_exc_error;
3678: END IF; -- End of If for Main Source
3671: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3676: l_error_message := fnd_message.get;
3677: RAISE fnd_api.g_exc_error;
3678: END IF; -- End of If for Main Source
3679:
3672: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3673: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3674: fnd_message.set_token('ORG_ID',l_mtl_item_tbl(j).organization_id);
3675: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3676: l_error_message := fnd_message.get;
3677: RAISE fnd_api.g_exc_error;
3678: END IF; -- End of If for Main Source
3679:
3680: -- Get Destination Records
3855:
3856: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3857: -- Multiple Instances were found so throw error
3858: debug('Multiple Instances were Found in Install Base-30');
3859: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3856: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3857: -- Multiple Instances were found so throw error
3858: debug('Multiple Instances were Found in Install Base-30');
3859: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3864: l_error_message := fnd_message.get;
3857: -- Multiple Instances were found so throw error
3858: debug('Multiple Instances were Found in Install Base-30');
3859: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3864: l_error_message := fnd_message.get;
3865: RAISE fnd_api.g_exc_error;
3858: debug('Multiple Instances were Found in Install Base-30');
3859: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3864: l_error_message := fnd_message.get;
3865: RAISE fnd_api.g_exc_error;
3866: END IF; -- End of Destination Record If
3859: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3864: l_error_message := fnd_message.get;
3865: RAISE fnd_api.g_exc_error;
3866: END IF; -- End of Destination Record If
3867:
3860: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3861: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3862: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
3863: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
3864: l_error_message := fnd_message.get;
3865: RAISE fnd_api.g_exc_error;
3866: END IF; -- End of Destination Record If
3867:
3868: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4110:
4111: ELSIF l_dest_instance_header_tbl.count > 1 THEN
4112: -- Multiple Instances were found so throw error
4113: debug('Multiple Instances were Found in Install Base-30');
4114: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4111: ELSIF l_dest_instance_header_tbl.count > 1 THEN
4112: -- Multiple Instances were found so throw error
4113: debug('Multiple Instances were Found in Install Base-30');
4114: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4119: l_error_message := fnd_message.get;
4112: -- Multiple Instances were found so throw error
4113: debug('Multiple Instances were Found in Install Base-30');
4114: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4119: l_error_message := fnd_message.get;
4120: RAISE fnd_api.g_exc_error;
4113: debug('Multiple Instances were Found in Install Base-30');
4114: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4119: l_error_message := fnd_message.get;
4120: RAISE fnd_api.g_exc_error;
4121: END IF; -- End of Destination Record If
4114: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4119: l_error_message := fnd_message.get;
4120: RAISE fnd_api.g_exc_error;
4121: END IF; -- End of Destination Record If
4122: END IF; -- End of J Index Loop
4115: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4116: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4117: fnd_message.set_token('INV_ORG_ID',l_mtl_item_tbl(j).organization_id);
4118: fnd_message.set_token('LOCATOR',l_mtl_item_tbl(j).locator_id);
4119: l_error_message := fnd_message.get;
4120: RAISE fnd_api.g_exc_error;
4121: END IF; -- End of Destination Record If
4122: END IF; -- End of J Index Loop
4123:
4142: debug('Shipping Serial Control is: '||l_mtl_item_tbl(j).serial_number_control_code);
4143: debug('Receiving Serial Control is: '||l_sr_control);
4144:
4145: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4146: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4143: debug('Receiving Serial Control is: '||l_sr_control);
4144:
4145: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4146: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4144:
4145: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4146: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4152: l_error_message := fnd_message.get;
4145: debug('This is a NON Supported Transaction Combination in Inventory - 38');
4146: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4152: l_error_message := fnd_message.get;
4153: RAISE fnd_api.g_exc_error;
4146: fnd_message.set_name('CSI','CSI_INV_NOT_SUPPORTED');
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4152: l_error_message := fnd_message.get;
4153: RAISE fnd_api.g_exc_error;
4154: END IF; -- End of Serial Control IF
4147: fnd_message.set_token('SHIP_ORG',l_mtl_item_tbl(j).organization_id);
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4152: l_error_message := fnd_message.get;
4153: RAISE fnd_api.g_exc_error;
4154: END IF; -- End of Serial Control IF
4155: END LOOP; -- End of main For Inv Loop
4148: fnd_message.set_token('SHIP_SC',l_mtl_item_tbl(j).serial_number_control_code);
4149: fnd_message.set_token('REC_ORG',l_mtl_item_tbl(j).transfer_organization_id);
4150: fnd_message.set_token('REC_SC',l_sr_control);
4151: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4152: l_error_message := fnd_message.get;
4153: RAISE fnd_api.g_exc_error;
4154: END IF; -- End of Serial Control IF
4155: END LOOP; -- End of main For Inv Loop
4156:
4191: WHEN others THEN
4192: l_sql_error := SQLERRM;
4193: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4194: debug('SQL Error: '||l_sql_error);
4195: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4196: fnd_message.set_token('API_NAME',l_api_name);
4197: fnd_message.set_token('SQL_ERROR',SQLERRM);
4198: x_return_status := l_fnd_unexpected;
4199:
4192: l_sql_error := SQLERRM;
4193: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4194: debug('SQL Error: '||l_sql_error);
4195: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4196: fnd_message.set_token('API_NAME',l_api_name);
4197: fnd_message.set_token('SQL_ERROR',SQLERRM);
4198: x_return_status := l_fnd_unexpected;
4199:
4200: IF l_mtl_item_tbl.count > 0 THEN
4193: debug('You have encountered a "when others" exception in the Direct Inter Org Transaction');
4194: debug('SQL Error: '||l_sql_error);
4195: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4196: fnd_message.set_token('API_NAME',l_api_name);
4197: fnd_message.set_token('SQL_ERROR',SQLERRM);
4198: x_return_status := l_fnd_unexpected;
4199:
4200: IF l_mtl_item_tbl.count > 0 THEN
4201: x_trx_error_rec.serial_number := l_mtl_item_tbl(j).serial_number;
4213: x_trx_error_rec.comms_nl_trackable_flag := l_mtl_item_tbl(j).comms_nl_trackable_flag;
4214: x_trx_error_rec.transaction_error_date := l_sysdate ;
4215: END IF;
4216:
4217: x_trx_error_rec.error_text := fnd_message.get;
4218: x_trx_error_rec.transaction_id := NULL;
4219: x_trx_error_rec.source_type := 'CSIORGDS';
4220: x_trx_error_rec.source_id := p_transaction_id;
4221: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;