[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 */
583: -- Standard call to check for call compatibility.
584: ------------------------------------------------
585: IF FND_API.to_boolean(p_init_msg_list)
586: THEN
587: FND_MSG_PUB.initialize;
588: END IF;
589:
590: -------------------------------------------
591: -- Initialize API return status to success
667: l_serialnum_change_rec.OSP_LINE_ID IS NULL
668: )
669: THEN
670: FND_MESSAGE.Set_Name('AHL','AHL_COM_REQD_PARAM_MISSING');
671: FND_MSG_PUB.ADD;
672: RAISE FND_API.G_EXC_ERROR;
673: END IF;
674:
675: -- Arunjk added to check if the data has been modified of not BUG NO : 12658658
685: END IF;
686: IF(L_MODIFIED_FLAG = FALSE) THEN
687: IF(VALUES_MODIFIED_CHK.OLD_LOT_NUM = L_SERIALNUM_CHANGE_REC.NEW_LOT_NUMBER OR (VALUES_MODIFIED_CHK.OLD_LOT_NUM IS NULL AND L_SERIALNUM_CHANGE_REC.NEW_LOT_NUMBER IS NULL)) THEN
688: FND_MESSAGE.Set_Name('AHL','AHL_COM_NO_CHANGES_TO_SAVE');
689: FND_MSG_PUB.ADD;
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692: END IF;
693: END IF;
788: IF l_get_workorder_rec.workorder_id IS NULL
789: THEN
790: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_MISSING');
791: FND_MESSAGE.Set_Token('JOBNUMBER',l_serialnum_change_rec.job_number);
792: FND_MSG_PUB.ADD;
793: CLOSE get_workorder_csr;
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796: CLOSE get_workorder_csr;
802: p_visit_id => NULL,
803: p_item_instance_id => NULL);
804: IF l_return_status = FND_API.G_TRUE THEN
805: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SNC_UNTLCKD');
806: FND_MSG_PUB.ADD;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809:
810: -- rroy
828: CLOSE c_get_inv_item_id;
829: --l_inventory_item_id := l_new_inventory_item_id;
830: ELSE
831: FND_MESSAGE.Set_Name('AHL','AHL_PP_INV_ID_REQUIRED');
832: FND_MSG_PUB.ADD;
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
836: -------------------------------------------------------------------------------------
843:
844: IF l_instance_dtls_rec.instance_id IS NULL
845: THEN
846: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
851: --Adithya added the location_type_code check to allow PN/SN change for the top node
859: -- new message that will be seeded.
860: IF (l_instance_dtls_rec.location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY'))
861: THEN
862: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_LOC_INVALID');
863: FND_MSG_PUB.ADD;
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
866: END IF;
867:
881: IF l_junk IS NULL
882: THEN
883: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CHG_ITEM_INVALID');
884: -- Source or Destination item should be serial controlled.
885: FND_MSG_PUB.ADD;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888: END IF;
889:
900: IF l_matches_flag = FND_API.G_FALSE
901: THEN
902: FND_MESSAGE.Set_Name('AHL','AHL_PRD_ITEM_POS_MISMATCH');
903: FND_MESSAGE.Set_Token('ITEM',l_serialnum_change_rec.NEW_ITEM_NUMBER);
904: FND_MSG_PUB.ADD;
905: RAISE FND_API.G_EXC_ERROR;
906: END IF;
907: END IF;
908: --Adithya changes end
926: l_return_val);
927: IF NOT(l_return_val) THEN
928: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
929: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
930: FND_MSG_PUB.ADD;
931: RAISE FND_API.G_EXC_ERROR;
932: ELSE
933: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
934: END IF;
951: l_mtl_system_items_rec.serial_number_control_code,
952: l_serialnum_change_rec.New_Serial_Tag_Code,
953: l_mtl_system_items_rec.concatenated_segments);
954:
955: l_msg_count := Fnd_Msg_Pub.count_msg;
956:
957: IF l_msg_count > 0 THEN
958: X_msg_count := l_msg_count;
959: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1007: GetCSI_Attribute_ID('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
1008: IF NOT(l_return_val) THEN
1009: FND_MESSAGE.Set_Name('AHL','AHL_ATTRIB_CODE_MISSING');
1010: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
1011: FND_MSG_PUB.ADD;
1012: ELSE
1013: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
1014: l_csi_extend_attrib_rec1.attribute_value := l_serialnum_change_rec.New_Serial_Tag_Code;
1015: l_csi_extend_attrib_rec1.instance_id := l_serialnum_change_rec.instance_id;
1175: end if; -- ARUNJK Changes End
1176: ------------------------End of Body---------------------------------------
1177:
1178: --Standard check to count messages
1179: x_msg_count := Fnd_Msg_Pub.count_msg;
1180:
1181: /*
1182: IF l_msg_count > 0 THEN
1183: X_msg_count := l_msg_count;
1201: EXCEPTION
1202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1203: ROLLBACK TO Process_Serialnum_Change;
1204: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1205: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1206: p_count => x_msg_count,
1207: p_data => x_msg_data);
1208: IF G_DEBUG='Y' THEN
1209: AHL_DEBUG_PUB.log_app_messages (
1215:
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: ROLLBACK TO Process_Serialnum_Change;
1218: X_return_status := FND_API.G_RET_STS_ERROR;
1219: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1220: p_count => x_msg_count,
1221: p_data => X_msg_data);
1222: IF G_DEBUG='Y' THEN
1223: -- Debug info.
1229: END IF;
1230: WHEN OTHERS THEN
1231: ROLLBACK TO Process_Serialnum_Change;
1232: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1233: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1234: THEN
1235: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1236: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1237: p_error_text => SUBSTR(SQLERRM,1,240));
1231: ROLLBACK TO Process_Serialnum_Change;
1232: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1233: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1234: THEN
1235: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1236: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1237: p_error_text => SUBSTR(SQLERRM,1,240));
1238: END IF;
1239: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1235: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_SERN_CHANGE_PVT',
1236: p_procedure_name => 'PROCESS_SERIALNUM_CHANGE',
1237: p_error_text => SUBSTR(SQLERRM,1,240));
1238: END IF;
1239: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => X_msg_data);
1242: IF G_DEBUG='Y' THEN
1243: -- Debug info.