[Home] [Help]
648:
649: --********Test that the workorder_id is not null -----
650: IF ( p_x_parts_rec.workorder_id is null or p_x_parts_rec.workorder_id =FND_API.G_MISS_NUM) then
651:
652: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_WO_ID_MISSIN');
653: FND_MSG_PUB.ADD;
654: RAISE FND_API.G_EXC_ERROR;
655: END IF;
656:
660: p_ue_id => NULL,
661: p_visit_id => NULL,
662: p_item_instance_id => NULL);
663: IF l_return_status = FND_API.G_TRUE THEN
664: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_PRTCHG_UNTLCKD');
665: FND_MSG_PUB.ADD;
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668:
670: -- ACL Changes
671:
672: --******** Test that operation type is not null -----
673: IF ( p_x_parts_rec.operation_type is null ) then
674: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_OP_TYPE_MISSIN');
675: FND_MSG_PUB.ADD;
676: RAISE FND_API.G_EXC_ERROR;
677: END IF;
678:
677: END IF;
678:
679: --*********** Operation Seq ********** -----
680: IF (p_x_parts_rec.operation_sequence_num is null ) then
681: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
682: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
683: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
678:
679: --*********** Operation Seq ********** -----
680: IF (p_x_parts_rec.operation_sequence_num is null ) then
681: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
682: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
683: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
679: --*********** Operation Seq ********** -----
680: IF (p_x_parts_rec.operation_sequence_num is null ) then
681: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
682: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
683: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
689: OPEN ahl_wo_oper_csr(p_x_parts_rec.workorder_id,p_x_parts_rec.operation_sequence_num );
690:
691: FETCH ahl_wo_oper_csr INTO p_x_parts_rec.workorder_operation_id;
692: IF (ahl_wo_oper_csr%NOTFOUND) THEN
693: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
694: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
695:
696: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
697: FND_MSG_PUB.ADD;
690:
691: FETCH ahl_wo_oper_csr INTO p_x_parts_rec.workorder_operation_id;
692: IF (ahl_wo_oper_csr%NOTFOUND) THEN
693: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
694: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
695:
696: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
697: FND_MSG_PUB.ADD;
698: CLOSE ahl_wo_oper_csr;
692: IF (ahl_wo_oper_csr%NOTFOUND) THEN
693: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
694: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
695:
696: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
697: FND_MSG_PUB.ADD;
698: CLOSE ahl_wo_oper_csr;
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
704: OPEN ahl_job_csr(p_x_parts_rec.workorder_id );
705: FETCH ahl_job_csr INTO l_junk, l_org_id, l_wip_entity_id;
706: IF ( ahl_job_csr%NOTFOUND) THEN
707: CLOSE ahl_job_csr;
708: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_INVALID');
709: FND_MESSAGE.set_token('WOID', p_x_parts_rec.workorder_id);
710: FND_MSG_PUB.ADD;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
705: FETCH ahl_job_csr INTO l_junk, l_org_id, l_wip_entity_id;
706: IF ( ahl_job_csr%NOTFOUND) THEN
707: CLOSE ahl_job_csr;
708: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_INVALID');
709: FND_MESSAGE.set_token('WOID', p_x_parts_rec.workorder_id);
710: FND_MSG_PUB.ADD;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713: CLOSE ahl_job_csr;
712: END IF;
713: CLOSE ahl_job_csr;
714:
715: IF (l_junk <> '3' and l_junk <> '19') THEN
716: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_JOB_CLOSED');
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
720:
729:
730: FETCH ahl_uc_header_csr INTO l_junk;
731: IF ( ahl_uc_header_csr%NOTFOUND) THEN
732: CLOSE ahl_uc_header_csr;
733: FND_MESSAGE.set_name('AHL', 'AHL_PRD_UC_HEADER_INVALID');
734: FND_MESSAGE.set_token('UCID', p_x_parts_rec.unit_config_header_id);
735: FND_MSG_PUB.ADD;
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
730: FETCH ahl_uc_header_csr INTO l_junk;
731: IF ( ahl_uc_header_csr%NOTFOUND) THEN
732: CLOSE ahl_uc_header_csr;
733: FND_MESSAGE.set_name('AHL', 'AHL_PRD_UC_HEADER_INVALID');
734: FND_MESSAGE.set_token('UCID', p_x_parts_rec.unit_config_header_id);
735: FND_MSG_PUB.ADD;
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738: END IF;
742: IF (p_x_parts_rec.mc_relationship_id is null
743: and p_x_parts_rec.Unit_Config_Header_Id is not null
744: and p_x_parts_rec.operation_type <> 'D')
745: THEN
746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_NULL_POSN');
747: FND_MSG_PUB.ADD;
748: END IF;
749:
750: --*********Instance number **************--
751: -- It is mandatory.This should not be expired.
752: IF ( p_x_parts_rec.operation_type='D' and
753: p_x_parts_rec.removed_instance_id is null )
754: THEN
755: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_MISSING');
756: FND_MSG_PUB.ADD;
757: END IF;
758:
759: IF ( p_x_parts_rec.operation_type='M' and
758:
759: IF ( p_x_parts_rec.operation_type='M' and
760: p_x_parts_rec.removed_instance_id is null )
761: THEN
762: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_MISSING');
763: FND_MSG_PUB.ADD;
764: END IF;
765:
766: IF ( ( p_x_parts_rec.operation_type='C' or p_x_parts_rec.operation_type='M') and
765:
766: IF ( ( p_x_parts_rec.operation_type='C' or p_x_parts_rec.operation_type='M') and
767: (p_x_parts_rec.installed_instance_id is null) )
768: THEN
769: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INSTALL_ITEM_MISSIN');
770: FND_MSG_PUB.ADD;
771: END IF;
772:
773: IF ( (p_x_parts_rec.operation_type='C') and
772:
773: IF ( (p_x_parts_rec.operation_type='C') and
774: (p_x_parts_rec.parent_installed_instance_id is null ))
775: THEN
776: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PARENT_ITEM_MISSING');
777: FND_MSG_PUB.ADD;
778: END IF;
779:
780: --** validate item instance***--
785: /* replaced validation to fix bug# 6993283
786: FETCH ahl_location_type_csr into l_junk;
787: CLOSE ahl_location_type_csr;
788: IF l_junk is null then
789: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
790: FND_MSG_PUB.ADD;
791: --RAISE FND_API.G_EXC_ERROR;
792: END IF;
793: */
792: END IF;
793: */
794: FETCH ahl_location_type_csr into l_inst_job_id, l_wip_job_name;
795: IF (ahl_location_type_csr%NOTFOUND) THEN
796: FND_MESSAGE.Set_Name('AHL','AHL_PRD_ITEM_NOT_ISSUED');
797: FND_MSG_PUB.ADD;
798: ELSE
799: -- added to fix bug# 6993283
800: -- validate job ID.
798: ELSE
799: -- added to fix bug# 6993283
800: -- validate job ID.
801: IF (l_inst_job_id <> l_wip_entity_id) THEN
802: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_JOB_INVALID');
803: FND_MESSAGE.Set_Token('WO_NAME',l_wip_job_name);
804: FND_MSG_PUB.ADD;
805: END IF;
806: END IF;
799: -- added to fix bug# 6993283
800: -- validate job ID.
801: IF (l_inst_job_id <> l_wip_entity_id) THEN
802: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_JOB_INVALID');
803: FND_MESSAGE.Set_Token('WO_NAME',l_wip_job_name);
804: FND_MSG_PUB.ADD;
805: END IF;
806: END IF;
807: CLOSE ahl_location_type_csr;
811: IF (p_x_parts_rec.operation_type = 'D' or p_x_parts_rec.operation_type = 'M') THEN
812: OPEN ahl_item_instance_csr(p_x_parts_rec.removed_instance_id);
813: FETCH ahl_item_instance_csr INTO l_rm_inventory_item_id, l_rm_inst_number;
814: IF ahl_item_instance_csr%NOTFOUND THEN
815: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_INVALID');
816: FND_MSG_PUB.ADD;
817: ELSE
818: -- Validate that the item exists in the job's org.
819: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
818: -- Validate that the item exists in the job's org.
819: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
820: FETCH mtl_system_kfv_csr INTO l_junk;
821: IF (mtl_system_kfv_csr%NOTFOUND) THEN
822: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ORG_INVALID');
823: FND_MESSAGE.Set_Token('INST_ID', l_rm_inst_number);
824: FND_MSG_PUB.ADD;
825: END IF;
826: CLOSE mtl_system_kfv_csr;
819: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
820: FETCH mtl_system_kfv_csr INTO l_junk;
821: IF (mtl_system_kfv_csr%NOTFOUND) THEN
822: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ORG_INVALID');
823: FND_MESSAGE.Set_Token('INST_ID', l_rm_inst_number);
824: FND_MSG_PUB.ADD;
825: END IF;
826: CLOSE mtl_system_kfv_csr;
827:
837: IF ( p_x_parts_rec.removal_reason_id is null
838: and (p_x_parts_rec.operation_type='M' or p_x_parts_rec.operation_type='D')
839: )
840: THEN
841: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REASON_CODE_MISSING');
842: FND_MSG_PUB.ADD;
843: END IF;
844:
845: ---*****Validate reason****************
861: IF (p_x_parts_rec.condition_Id is null
862: and ( p_x_parts_rec.operation_type='M' or p_x_parts_rec.operation_type='D')
863: )
864: THEN
865: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_CONDN_MISSING');
866: FND_MSG_PUB.ADD;
867: END IF;
868:
869: --********* Validate Condition ***************__
882: --**** Removal Code- This is mandatory in case of part removal.
883: IF (p_x_parts_rec.operation_type='D'
884: OR p_x_parts_rec.operation_type='M') THEN
885: IF (p_x_parts_rec.removal_code is null) THEN
886: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
887: FND_MSG_PUB.ADD;
888: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
889: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
890: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
885: IF (p_x_parts_rec.removal_code is null) THEN
886: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
887: FND_MSG_PUB.ADD;
888: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
889: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
890: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
891: FND_MSG_PUB.ADD;
892: END IF;
893: END IF;
886: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
887: FND_MSG_PUB.ADD;
888: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
889: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
890: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
891: FND_MSG_PUB.ADD;
892: END IF;
893: END IF;
894:
902: p_x_parts_rec.Condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))))
903: THEN
904: --******* Problem Code- This should not be null in case of part removal.
905: -- if p_x_parts_rec.problem_code is null then
906: -- FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PROBLEM_CODE_MISSIN');
907: -- FND_MSG_PUB.ADD;
908: -- end if;
909:
910: --******* Target Visit ***********
911: -- Error out if target visit id is null for unserviceable/mrb type part removal.
912:
913: IF p_x_parts_rec.target_visit_id is null THEN
914: -- dbms_output.put_line('Target visit is null for unserviceable mrb');
915: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_VISIT_INVALID');
916: FND_MSG_PUB.ADD;
917: END IF;
918:
919: --If user sends a target visit, then check should be made that the visit is open.
922: OPEN ahl_visit_csr(p_x_parts_rec.target_visit_id );
923: FETCH ahl_visit_csr INTO l_junk;
924: CLOSE ahl_visit_csr;
925: IF l_junk = 'CLOSED' THEN
926: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_VISIT_INVALID');
927: FND_MSG_PUB.ADD;
928: RAISE FND_API.G_EXC_ERROR;
929: END IF;
930: END IF;
973: p_x_parts_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
974: and l_plan_id is not null
975: and p_x_parts_rec.collection_id is null)
976: THEN
977: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_COLLECT_ID_MISSIN');
978: FND_MSG_PUB.ADD;
979: RAISE FND_API.G_EXC_ERROR;
980: END IF;
981:
992:
993: --OPEN ahl_locator_csr(p_x_parts_rec.locator_code, l_org_id);
994: --FETCH ahl_locator_csr INTO p_x_parts_rec.locator_id;
995: --IF (ahl_locator_csr%NOTFOUND) then
996: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_SUBINV_MANDATORY');
997: FND_MSG_PUB.ADD;
998: --END IF;
999: --CLOSE ahl_locator_csr;
1000: END IF;
1018: IF (p_x_parts_rec.Removal_date is null or p_x_parts_rec.Removal_date = FND_API.G_MISS_DATE) THEN
1019:
1020: p_x_parts_rec.Removal_date := sysdate;
1021: ELSIF (trunc(p_x_parts_rec.Removal_date) > trunc(sysdate)) THEN
1022: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_DATE_INVALID');
1023: FND_MESSAGE.Set_Token('DATE',p_x_parts_rec.Removal_date);
1024: FND_MSG_PUB.ADD;
1025: END IF;
1026:
1019:
1020: p_x_parts_rec.Removal_date := sysdate;
1021: ELSIF (trunc(p_x_parts_rec.Removal_date) > trunc(sysdate)) THEN
1022: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_DATE_INVALID');
1023: FND_MESSAGE.Set_Token('DATE',p_x_parts_rec.Removal_date);
1024: FND_MSG_PUB.ADD;
1025: END IF;
1026:
1027:
1037: OPEN get_instance_attrib_csr(p_x_parts_rec.removed_instance_id);
1038: FETCH get_instance_attrib_csr INTO l_config_instance_rec;
1039: CLOSE get_instance_attrib_csr;
1040: IF(NVL(p_x_parts_rec.removed_quantity,1) <= 0 OR NVL(p_x_parts_rec.removed_quantity,1) > l_config_instance_rec.quantity)THEN
1041: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INRMV_QTY');
1042: FND_MSG_PUB.ADD;
1043: END IF;
1044: END IF;
1045:
1049: FETCH get_instance_attrib_csr INTO l_new_instance_rec;
1050: CLOSE get_instance_attrib_csr;
1051:
1052: IF(NVL(p_x_parts_rec.installed_quantity,1) <= 0 OR NVL(p_x_parts_rec.installed_quantity,1) > l_new_instance_rec.quantity)THEN
1053: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_ININST_QTY');
1054: FND_MSG_PUB.ADD;
1055: END IF;
1056:
1057: IF p_x_parts_rec.removed_instance_id IS NOT NULL THEN
1065: OR NVL(l_config_instance_rec.unit_of_measure,'x') <> NVL(l_new_instance_rec.unit_of_measure,'x')
1066: OR NVL(l_config_instance_rec.inventory_revision,'x') <> NVL(l_new_instance_rec.inventory_revision,'x')
1067: OR l_config_instance_rec.serial_number IS NOT NULL
1068: OR l_new_instance_rec.serial_number IS NOT NULL)THEN
1069: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INV_MRG');
1070: FND_MSG_PUB.ADD;
1071:
1072: END IF;
1073: END IF;
1146: OPEN ahl_header_id_csr(p_x_parts_rec.Unit_Config_Name);
1147: FETCH ahl_header_id_csr INTO p_x_parts_rec.Unit_Config_Header_Id;
1148: IF (ahl_header_id_csr%NOTFOUND) THEN
1149: CLOSE ahl_header_id_csr;
1150: FND_MESSAGE.Set_Name('AHL','AHL_UC_NAME_MISSING');
1151: FND_MESSAGE.Set_Token('NAME',p_x_parts_rec.unit_config_name);
1152: FND_MSG_PUB.ADD;
1153: ELSE
1154: CLOSE ahl_header_id_csr;
1147: FETCH ahl_header_id_csr INTO p_x_parts_rec.Unit_Config_Header_Id;
1148: IF (ahl_header_id_csr%NOTFOUND) THEN
1149: CLOSE ahl_header_id_csr;
1150: FND_MESSAGE.Set_Name('AHL','AHL_UC_NAME_MISSING');
1151: FND_MESSAGE.Set_Token('NAME',p_x_parts_rec.unit_config_name);
1152: FND_MSG_PUB.ADD;
1153: ELSE
1154: CLOSE ahl_header_id_csr;
1155: END IF; END IF;
1160: OPEN ahl_instance_id_csr(p_x_parts_rec.removed_instance_num);
1161: FETCH ahl_instance_id_csr INTO p_x_parts_rec.removed_instance_id;
1162: IF (ahl_instance_id_csr%NOTFOUND) THEN
1163: CLOSE ahl_instance_id_csr;
1164: FND_MESSAGE.Set_Name('AHL','AHL_PRD_RMV_INST_INVALID');
1165: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_num);
1166: FND_MSG_PUB.ADD;
1167: END IF;
1168: CLOSE ahl_instance_id_csr;
1161: FETCH ahl_instance_id_csr INTO p_x_parts_rec.removed_instance_id;
1162: IF (ahl_instance_id_csr%NOTFOUND) THEN
1163: CLOSE ahl_instance_id_csr;
1164: FND_MESSAGE.Set_Name('AHL','AHL_PRD_RMV_INST_INVALID');
1165: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_num);
1166: FND_MSG_PUB.ADD;
1167: END IF;
1168: CLOSE ahl_instance_id_csr;
1169: END IF;
1174: OPEN ahl_instance_id_csr(p_x_parts_rec.installed_instance_num);
1175: FETCH ahl_instance_id_csr INTO p_x_parts_rec.installed_instance_id;
1176: IF (ahl_instance_id_csr%NOTFOUND) THEN
1177: CLOSE ahl_instance_id_csr;
1178: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INSTAL_INST_INVALID');
1179: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.installed_instance_num);
1180: FND_MSG_PUB.ADD;
1181: ELSE
1182: CLOSE ahl_instance_id_csr;
1175: FETCH ahl_instance_id_csr INTO p_x_parts_rec.installed_instance_id;
1176: IF (ahl_instance_id_csr%NOTFOUND) THEN
1177: CLOSE ahl_instance_id_csr;
1178: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INSTAL_INST_INVALID');
1179: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.installed_instance_num);
1180: FND_MSG_PUB.ADD;
1181: ELSE
1182: CLOSE ahl_instance_id_csr;
1183: END IF;
1190: OPEN ahl_instance_id_csr(p_x_parts_rec.parent_installed_instance_num);
1191: FETCH ahl_instance_id_csr INTO p_x_parts_rec.parent_installed_instance_id;
1192: IF (ahl_instance_id_csr%NOTFOUND) THEN
1193: CLOSE ahl_instance_id_csr;
1194: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PINSTAL_INVALID');
1195: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.parent_installed_instance_num);
1196: FND_MSG_PUB.ADD;
1197: ELSE
1198: CLOSE ahl_instance_id_csr;
1191: FETCH ahl_instance_id_csr INTO p_x_parts_rec.parent_installed_instance_id;
1192: IF (ahl_instance_id_csr%NOTFOUND) THEN
1193: CLOSE ahl_instance_id_csr;
1194: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PINSTAL_INVALID');
1195: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.parent_installed_instance_num);
1196: FND_MSG_PUB.ADD;
1197: ELSE
1198: CLOSE ahl_instance_id_csr;
1199: END IF;
1206: -- dbms_output.put_line('inside ahl_condition_csr');
1207: OPEN ahl_condition_csr(p_x_parts_rec.condition);
1208: FETCH ahl_condition_csr INTO p_x_parts_rec.condition_id;
1209: IF (ahl_condition_csr%NOTFOUND) THEN
1210: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
1211: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.condition);
1212: FND_MSG_PUB.ADD;
1213: END IF;
1214: CLOSE ahl_condition_csr;
1207: OPEN ahl_condition_csr(p_x_parts_rec.condition);
1208: FETCH ahl_condition_csr INTO p_x_parts_rec.condition_id;
1209: IF (ahl_condition_csr%NOTFOUND) THEN
1210: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
1211: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.condition);
1212: FND_MSG_PUB.ADD;
1213: END IF;
1214: CLOSE ahl_condition_csr;
1215: END IF;
1221: OPEN ahl_reason_csr(p_x_parts_rec.removal_reason_name);
1222: FETCH ahl_reason_csr INTO p_x_parts_rec.removal_reason_id;
1223: IF (ahl_reason_csr%NOTFOUND) THEN
1224: CLOSE ahl_reason_csr;
1225: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REASON_INVALID');
1226: FND_MSG_PUB.ADD;
1227: ELSE
1228: CLOSE ahl_reason_csr;
1229: END IF;
1235: OPEN ahl_removal_lookup_csr(p_x_parts_rec.removal_meaning);
1236: FETCH ahl_removal_lookup_csr INTO p_x_parts_rec.removal_code;
1237: IF (ahl_removal_lookup_csr%NOTFOUND) THEN
1238: CLOSE ahl_removal_lookup_csr;
1239: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
1240: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.removal_meaning);
1241: FND_MSG_PUB.ADD;
1242: ELSE
1243: CLOSE ahl_removal_lookup_csr;
1236: FETCH ahl_removal_lookup_csr INTO p_x_parts_rec.removal_code;
1237: IF (ahl_removal_lookup_csr%NOTFOUND) THEN
1238: CLOSE ahl_removal_lookup_csr;
1239: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
1240: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.removal_meaning);
1241: FND_MSG_PUB.ADD;
1242: ELSE
1243: CLOSE ahl_removal_lookup_csr;
1244: END IF;
1252: OPEN ahl_target_visit_csr(p_x_parts_rec.target_visit_num);
1253: FETCH ahl_target_visit_csr INTO p_x_parts_rec.target_visit_id;
1254: IF (ahl_target_visit_csr%NOTFOUND) THEN
1255: CLOSE ahl_target_visit_csr;
1256: FND_MESSAGE.Set_Name('AHL','AHL_TARGET_VISIT_INVALID');
1257: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.target_visit_num);
1258: FND_MSG_PUB.ADD;
1259: ELSE
1260: CLOSE ahl_target_visit_csr;
1253: FETCH ahl_target_visit_csr INTO p_x_parts_rec.target_visit_id;
1254: IF (ahl_target_visit_csr%NOTFOUND) THEN
1255: CLOSE ahl_target_visit_csr;
1256: FND_MESSAGE.Set_Name('AHL','AHL_TARGET_VISIT_INVALID');
1257: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.target_visit_num);
1258: FND_MSG_PUB.ADD;
1259: ELSE
1260: CLOSE ahl_target_visit_csr;
1261: END IF;
1267: OPEN ahl_problem_lookup_csr(p_x_parts_rec.problem_meaning);
1268: FETCH ahl_problem_lookup_csr INTO p_x_parts_rec.problem_code;
1269: IF (ahl_problem_lookup_csr%NOTFOUND) THEN
1270: CLOSE ahl_problem_lookup_csr;
1271: FND_MESSAGE.Set_Name('AHL','AHL_PROBLEM_CODE_INVALID');
1272: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.problem_meaning);
1273: FND_MSG_PUB.ADD;
1274: else
1275: CLOSE ahl_problem_lookup_csr;
1268: FETCH ahl_problem_lookup_csr INTO p_x_parts_rec.problem_code;
1269: IF (ahl_problem_lookup_csr%NOTFOUND) THEN
1270: CLOSE ahl_problem_lookup_csr;
1271: FND_MESSAGE.Set_Name('AHL','AHL_PROBLEM_CODE_INVALID');
1272: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.problem_meaning);
1273: FND_MSG_PUB.ADD;
1274: else
1275: CLOSE ahl_problem_lookup_csr;
1276: end if;
1364: x_unit_config_name := NULL;
1365: x_unit_config_id := NULL;
1366: ELSE
1367: IF (l_unit_config_status_code = 'DRAFT') THEN
1368: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UC_DRAFT');
1369: FND_MSG_PUB.ADD;
1370: CLOSE ahl_uc_name_csr;
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF ((p_validation_mode = 'PARTS_CHG') AND (l_active_uc_status_code <> 'APPROVED')) THEN
1369: FND_MSG_PUB.ADD;
1370: CLOSE ahl_uc_name_csr;
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF ((p_validation_mode = 'PARTS_CHG') AND (l_active_uc_status_code <> 'APPROVED')) THEN
1373: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UC_UNAPPROVED');
1374: FND_MSG_PUB.ADD;
1375: CLOSE ahl_uc_name_csr;
1376: RAISE FND_API.G_EXC_ERROR;
1377: END IF;
1383: OPEN ahl_location_type_csr(l_item_instance_id, G_CSI_LOCATION_TYPE_CODE);
1384: FETCH ahl_location_type_csr INTO l_location_type_code, l_location_meaning;
1385: IF (ahl_location_type_csr%NOTFOUND) THEN
1386: CLOSE ahl_location_type_csr;
1387: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_PC_INST_EXPIRED');
1388: FND_MSG_PUB.ADD;
1389: RAISE FND_API.G_EXC_ERROR;
1390: ELSE
1391: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1388: FND_MSG_PUB.ADD;
1389: RAISE FND_API.G_EXC_ERROR;
1390: ELSE
1391: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1392: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
1393: FND_MESSAGE.Set_Token('STATUS',l_location_meaning);
1394: FND_MSG_PUB.ADD;
1395: RAISE FND_API.G_EXC_ERROR;
1396: END IF;
1389: RAISE FND_API.G_EXC_ERROR;
1390: ELSE
1391: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1392: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
1393: FND_MESSAGE.Set_Token('STATUS',l_location_meaning);
1394: FND_MSG_PUB.ADD;
1395: RAISE FND_API.G_EXC_ERROR;
1396: END IF;
1397: END IF;
2343: l_unit_config_header_name:= AHL_UMP_UTIL_PKG.get_UnitName(p_x_parts_rec.removed_instance_id);
2344:
2345:
2346: IF (l_unit_config_header_name is not null ) then
2347: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_PRT_INVALID');
2348: FND_MSG_PUB.ADD;
2349: RAISE FND_API.G_EXC_ERROR;
2350: END IF;
2351:
2558: --Test that the part removed is ib config indeed
2559: l_unit_config_header_name:= AHL_UMP_UTIL_PKG.get_UnitName(p_x_parts_rec.removed_instance_id);
2560:
2561: IF (l_unit_config_header_name is not null ) then
2562: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_PRT_INVALID');
2563: FND_MSG_PUB.ADD;
2564: --RAISE FND_API.G_EXC_ERROR;
2565: end if;
2566: IF G_DEBUG = 'Y' THEN
2660: OPEN ahl_wip_entity_csr(p_x_parts_rec.workorder_id);
2661: FETCH ahl_wip_entity_csr INTO l_wip_entity_id,l_wip_entity_type;
2662: IF (ahl_wip_entity_csr%NOTFOUND) THEN
2663: CLOSE ahl_wip_entity_csr;
2664: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WIP_ENTITY_MISSING');
2665: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2666: FND_MSG_PUB.ADD;
2667: else
2668: CLOSE ahl_wip_entity_csr;
2661: FETCH ahl_wip_entity_csr INTO l_wip_entity_id,l_wip_entity_type;
2662: IF (ahl_wip_entity_csr%NOTFOUND) THEN
2663: CLOSE ahl_wip_entity_csr;
2664: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WIP_ENTITY_MISSING');
2665: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2666: FND_MSG_PUB.ADD;
2667: else
2668: CLOSE ahl_wip_entity_csr;
2669: END IF;
2671: --get the updated object_version number from csi_item_isntances
2672: OPEN ahl_obj_ver_csr(p_x_parts_rec.removed_instance_id);
2673: FETCH ahl_obj_ver_csr INTO p_x_parts_rec.removed_instance_obj_ver_num;
2674: IF (ahl_obj_ver_csr%NOTFOUND) THEN
2675: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVED_INSTANCE_INVALID');
2676: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_id);
2677: FND_MSG_PUB.ADD;
2678: CLOSE ahl_obj_ver_csr;
2679: else
2672: OPEN ahl_obj_ver_csr(p_x_parts_rec.removed_instance_id);
2673: FETCH ahl_obj_ver_csr INTO p_x_parts_rec.removed_instance_obj_ver_num;
2674: IF (ahl_obj_ver_csr%NOTFOUND) THEN
2675: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVED_INSTANCE_INVALID');
2676: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_id);
2677: FND_MSG_PUB.ADD;
2678: CLOSE ahl_obj_ver_csr;
2679: else
2680: CLOSE ahl_obj_ver_csr;
2754: L_revision, l_quantity, l_uom,
2755: l_serial_number, l_lot_number;
2756: IF (ahl_mtl_txn_param_csr%NOTFOUND) THEN
2757: CLOSE ahl_mtl_txn_param_csr;
2758: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_DATA_MISSING');
2759: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2760: FND_MSG_PUB.ADD;
2761: ELSE
2762: CLOSE ahl_mtl_txn_param_csr;
2755: l_serial_number, l_lot_number;
2756: IF (ahl_mtl_txn_param_csr%NOTFOUND) THEN
2757: CLOSE ahl_mtl_txn_param_csr;
2758: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_DATA_MISSING');
2759: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2760: FND_MSG_PUB.ADD;
2761: ELSE
2762: CLOSE ahl_mtl_txn_param_csr;
2763: END IF;
2857: p_x_parts_rec_tbl(i).Condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))))
2858: THEN
2859: --Summary is mandatory for SR API
2860: IF (p_x_parts_rec_tbl(i).summary is null) then
2861: Fnd_Message.SET_NAME('AHL','AHL_PRD_NRJ_SUMMARY_REQ');
2862: FND_MSG_PUB.ADD;
2863: END IF;
2864:
2865: -- Populate sr_task_tbl
3145: -- get disposition details.
3146: OPEN ahl_disp_csr(p_disposition_id, p_part_change_id);
3147: FETCH ahl_disp_csr INTO l_disposition_rec;
3148: IF (ahl_disp_csr%NOTFOUND) THEN
3149: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_DISP_INVALID');
3150: FND_MESSAGE.Set_Token('DISP_ID',p_disposition_id);
3151: FND_MSG_PUB.ADD;
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3146: OPEN ahl_disp_csr(p_disposition_id, p_part_change_id);
3147: FETCH ahl_disp_csr INTO l_disposition_rec;
3148: IF (ahl_disp_csr%NOTFOUND) THEN
3149: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_DISP_INVALID');
3150: FND_MESSAGE.Set_Token('DISP_ID',p_disposition_id);
3151: FND_MSG_PUB.ADD;
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3154: CLOSE ahl_disp_csr;
3648: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3649: 'wip_entity_not_found for from_workorder_number'
3650: );
3651: END IF;
3652: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3653: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.from_workorder_number);
3654: FND_MSG_PUB.ADD;
3655: END IF;
3656: CLOSE wip_entity_wonum_csr;
3649: 'wip_entity_not_found for from_workorder_number'
3650: );
3651: END IF;
3652: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3653: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.from_workorder_number);
3654: FND_MSG_PUB.ADD;
3655: END IF;
3656: CLOSE wip_entity_wonum_csr;
3657: ELSIF p_move_item_instance_rec.from_workorder_id IS NOT NULL THEN
3665: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3666: 'wip_entity_not_found for from_workorder_id'
3667: );
3668: END IF;
3669: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3670: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.from_workorder_id);
3671: FND_MSG_PUB.ADD;
3672: END IF;
3673: CLOSE wip_entity_woid_csr;
3666: 'wip_entity_not_found for from_workorder_id'
3667: );
3668: END IF;
3669: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3670: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.from_workorder_id);
3671: FND_MSG_PUB.ADD;
3672: END IF;
3673: CLOSE wip_entity_woid_csr;
3674: END IF;
3685: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3686: 'wip_entity_not_found for to_workorder_number'
3687: );
3688: END IF;
3689: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3690: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3691: FND_MSG_PUB.ADD;
3692: END IF;
3693: CLOSE wip_entity_wonum_csr;
3686: 'wip_entity_not_found for to_workorder_number'
3687: );
3688: END IF;
3689: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3690: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3691: FND_MSG_PUB.ADD;
3692: END IF;
3693: CLOSE wip_entity_wonum_csr;
3694: ELSE
3702: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3703: 'wip_entity_not_found for to_workorder_id'
3704: );
3705: END IF;
3706: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3707: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.to_workorder_id);
3708: FND_MSG_PUB.ADD;
3709: END IF;
3710: CLOSE wip_entity_woid_csr;
3703: 'wip_entity_not_found for to_workorder_id'
3704: );
3705: END IF;
3706: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3707: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.to_workorder_id);
3708: FND_MSG_PUB.ADD;
3709: END IF;
3710: CLOSE wip_entity_woid_csr;
3711: END IF;
3713: IF(l_from_wip_entity_id IS NOT NULL) THEN
3714: OPEN check_org_csr(l_from_wip_entity_id,l_to_wip_entity_id);
3715: FETCH check_org_csr INTO l_junk;
3716: IF(check_org_csr%NOTFOUND)THEN
3717: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3718: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3719: FND_MSG_PUB.ADD;
3720: END IF;
3721: CLOSE check_org_csr;
3714: OPEN check_org_csr(l_from_wip_entity_id,l_to_wip_entity_id);
3715: FETCH check_org_csr INTO l_junk;
3716: IF(check_org_csr%NOTFOUND)THEN
3717: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3718: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3719: FND_MSG_PUB.ADD;
3720: END IF;
3721: CLOSE check_org_csr;
3722: END IF;
3744: 'removed instance_num not found ' || p_move_item_instance_rec.instance_number
3745: );
3746: END IF;
3747: l_check_qnt_flag := FALSE; --amsriniv
3748: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTNUM_INV');
3749: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_number);
3750: FND_MSG_PUB.ADD;
3751: END IF;
3752: CLOSE csi_item_instance_num_csr;
3745: );
3746: END IF;
3747: l_check_qnt_flag := FALSE; --amsriniv
3748: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTNUM_INV');
3749: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_number);
3750: FND_MSG_PUB.ADD;
3751: END IF;
3752: CLOSE csi_item_instance_num_csr;
3753: ELSE
3775: 'removed instance_id not found ' || p_move_item_instance_rec.instance_id
3776: );
3777: END IF;
3778: l_check_qnt_flag := FALSE; --amsriniv
3779: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTID_INV');
3780: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_id);--amsriniv
3781: FND_MSG_PUB.ADD;
3782: END IF;
3783: CLOSE csi_item_instance_id_csr;
3776: );
3777: END IF;
3778: l_check_qnt_flag := FALSE; --amsriniv
3779: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTID_INV');
3780: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_id);--amsriniv
3781: FND_MSG_PUB.ADD;
3782: END IF;
3783: CLOSE csi_item_instance_id_csr;
3784: END IF;
3812: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3813: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3814: );
3815: END IF;
3816: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_SER_QTY');
3817: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3818: FND_MSG_PUB.ADD;
3819: END IF;
3820: ELSE
3813: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3814: );
3815: END IF;
3816: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_SER_QTY');
3817: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3818: FND_MSG_PUB.ADD;
3819: END IF;
3820: ELSE
3821: IF ((NVL(p_move_item_instance_rec.quantity,1) < 0) OR
3827: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3828: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3829: );
3830: END IF;
3831: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_NONSER_QTY');
3832: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3833: FND_MSG_PUB.ADD;
3834: END IF;
3835: END IF;
3828: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3829: );
3830: END IF;
3831: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_NONSER_QTY');
3832: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3833: FND_MSG_PUB.ADD;
3834: END IF;
3835: END IF;
3836: END IF;
3843: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3844: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3845: );
3846: END IF;
3847: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_CURR_LOC');
3848: FND_MESSAGE.Set_Token('INST',l_instance_rec.instance_id);
3849: FND_MSG_PUB.ADD;
3850: END IF;
3851: --Standard check to count messages
3844: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3845: );
3846: END IF;
3847: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_CURR_LOC');
3848: FND_MESSAGE.Set_Token('INST',l_instance_rec.instance_id);
3849: FND_MSG_PUB.ADD;
3850: END IF;
3851: --Standard check to count messages
3852: IF Fnd_Msg_Pub.count_msg > 0 THEN