[Home] [Help]
33: FETCH csi_txn_types_csr INTO l_txn_type_id;
34: IF (csi_txn_types_csr%NOTFOUND) THEN
35: FND_MESSAGE.Set_Name('AHL','AHL__TXNCODE_INVALID');
36: FND_MESSAGE.Set_Token('CODE',p_txn_code);
37: FND_MSG_PUB.ADD;
38: --dbms_output.put_line('Transaction code not found');
39: l_return_val := FALSE;
40: END IF;
41: CLOSE csi_txn_types_csr;
182: -- serial number is mandatory.
183: IF (p_Serial_Number IS NULL) OR (p_Serial_Number = FND_API.G_MISS_CHAR) THEN
184: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NULL');
185: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
186: FND_MSG_PUB.ADD;
187: --dbms_output.put_line('Serial Number is null');
188: ELSE
189: -- If serial tag code = INVENTORY then validate serial number against inventory.
190: IF (p_serialnum_tag_code = 'INVENTORY') THEN
193: IF (mtl_serial_numbers_csr%NOTFOUND) THEN
194: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_INVALID');
195: FND_MESSAGE.Set_Token('SERIAL',p_Serial_Number);
196: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
197: FND_MSG_PUB.ADD;
198: --dbms_output.put_line('Serial Number does not exist in master ');
199: END IF;
200: CLOSE mtl_serial_numbers_csr;
201: END IF;
207: IF (p_Serial_Number <> FND_API.G_MISS_CHAR) AND (p_Serial_Number IS NOT NULL) THEN
208: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NOTNULL');
209: FND_MESSAGE.Set_Token('SERIAL',p_Serial_Number);
210: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
211: FND_MSG_PUB.ADD;
212: --dbms_output.put_line('Serial Number is not null');
213: END IF;
214:
215: END IF; /* for serial number control */
554: -- Standard call to check for call compatibility.
555: ------------------------------------------------
556: IF FND_API.to_boolean(p_init_msg_list)
557: THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560:
561: -------------------------------------------
562: -- Initialize API return status to success
638: l_serialnum_change_rec.OSP_LINE_ID IS NULL
639: )
640: THEN
641: FND_MESSAGE.Set_Name('AHL','AHL_COM_REQD_PARAM_MISSING');
642: FND_MSG_PUB.ADD;
643: RAISE FND_API.G_EXC_ERROR;
644: END IF;
645:
646: IF(l_serialnum_change_rec.OSP_LINE_ID IS NOT NULL) THEN
731: IF l_get_workorder_rec.workorder_id IS NULL
732: THEN
733: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_MISSING');
734: FND_MESSAGE.Set_Token('JOBNUMBER',l_serialnum_change_rec.job_number);
735: FND_MSG_PUB.ADD;
736: CLOSE get_workorder_csr;
737: RAISE FND_API.G_EXC_ERROR;
738: END IF;
739: CLOSE get_workorder_csr;
745: p_visit_id => NULL,
746: p_item_instance_id => NULL);
747: IF l_return_status = FND_API.G_TRUE THEN
748: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SNC_UNTLCKD');
749: FND_MSG_PUB.ADD;
750: RAISE FND_API.G_EXC_ERROR;
751: END IF;
752:
753: -- rroy
771: CLOSE c_get_inv_item_id;
772: --l_inventory_item_id := l_new_inventory_item_id;
773: ELSE
774: FND_MESSAGE.Set_Name('AHL','AHL_PP_INV_ID_REQUIRED');
775: FND_MSG_PUB.ADD;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
779: -------------------------------------------------------------------------------------
786:
787: IF l_instance_dtls_rec.instance_id IS NULL
788: THEN
789: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
790: FND_MSG_PUB.ADD;
791: RAISE FND_API.G_EXC_ERROR;
792: END IF;
793:
794: --Adithya added the location_type_code check to allow PN/SN change for the top node
802: -- new message that will be seeded.
803: IF (l_instance_dtls_rec.location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY'))
804: THEN
805: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_LOC_INVALID');
806: FND_MSG_PUB.ADD;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809: END IF;
810:
824: IF l_junk IS NULL
825: THEN
826: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CHG_ITEM_INVALID');
827: -- Source or Destination item should be serial controlled.
828: FND_MSG_PUB.ADD;
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831: END IF;
832:
843: IF l_matches_flag = FND_API.G_FALSE
844: THEN
845: FND_MESSAGE.Set_Name('AHL','AHL_PRD_ITEM_POS_MISMATCH');
846: FND_MESSAGE.Set_Token('ITEM',l_serialnum_change_rec.NEW_ITEM_NUMBER);
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850: END IF;
851: --Adithya changes end
869: l_return_val);
870: IF NOT(l_return_val) THEN
871: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
872: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
873: FND_MSG_PUB.ADD;
874: RAISE FND_API.G_EXC_ERROR;
875: ELSE
876: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
877: END IF;
894: l_mtl_system_items_rec.serial_number_control_code,
895: l_serialnum_change_rec.New_Serial_Tag_Code,
896: l_mtl_system_items_rec.concatenated_segments);
897:
898: l_msg_count := Fnd_Msg_Pub.count_msg;
899:
900: IF l_msg_count > 0 THEN
901: X_msg_count := l_msg_count;
902: X_return_status := Fnd_Api.G_RET_STS_ERROR;
950: GetCSI_Attribute_ID('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
951: IF NOT(l_return_val) THEN
952: FND_MESSAGE.Set_Name('AHL','AHL_ATTRIB_CODE_MISSING');
953: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
954: FND_MSG_PUB.ADD;
955: ELSE
956: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
957: l_csi_extend_attrib_rec1.attribute_value := l_serialnum_change_rec.New_Serial_Tag_Code;
958: l_csi_extend_attrib_rec1.instance_id := l_serialnum_change_rec.instance_id;
1086: END IF; -- END IF(l_serialnum_change_rec.OSP_LINE_ID IS NOT NULL)
1087: ------------------------End of Body---------------------------------------
1088:
1089: --Standard check to count messages
1090: x_msg_count := Fnd_Msg_Pub.count_msg;
1091:
1092: /*
1093: IF l_msg_count > 0 THEN
1094: X_msg_count := l_msg_count;
1112: EXCEPTION
1113: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1114: ROLLBACK TO Process_Serialnum_Change;
1115: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1117: p_count => x_msg_count,
1118: p_data => x_msg_data);
1119: IF G_DEBUG='Y' THEN
1120: AHL_DEBUG_PUB.log_app_messages (
1126:
1127: WHEN FND_API.G_EXC_ERROR THEN
1128: ROLLBACK TO Process_Serialnum_Change;
1129: X_return_status := FND_API.G_RET_STS_ERROR;
1130: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1131: p_count => x_msg_count,
1132: p_data => X_msg_data);
1133: IF G_DEBUG='Y' THEN
1134: -- Debug info.
1140: END IF;
1141: WHEN OTHERS THEN
1142: ROLLBACK TO Process_Serialnum_Change;
1143: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145: THEN
1146: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1147: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1148: p_error_text => SUBSTR(SQLERRM,1,240));
1142: ROLLBACK TO Process_Serialnum_Change;
1143: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145: THEN
1146: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1147: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1148: p_error_text => SUBSTR(SQLERRM,1,240));
1149: END IF;
1150: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1146: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1147: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1148: p_error_text => SUBSTR(SQLERRM,1,240));
1149: END IF;
1150: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1151: p_count => x_msg_count,
1152: p_data => X_msg_data);
1153: IF G_DEBUG='Y' THEN
1154: -- Debug info.