[Home] [Help]
245: IF G_DEBUG = 'Y' THEN
246: AHL_DEBUG_PUB.debug('component visit, so dont allow part chage');
247: END IF;
248: -- Part change operations are not allowed for a Component Visit.
249: FND_MESSAGE.Set_Name('AHL', 'AHL_CMP_PART_CNG_INVLD');
250: FND_MSG_PUB.ADD;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: CLOSE chk_comp_visit_csr;
681:
682: --********Test that the workorder_id is not null -----
683: IF ( p_x_parts_rec.workorder_id is null or p_x_parts_rec.workorder_id =FND_API.G_MISS_NUM) then
684:
685: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_WO_ID_MISSIN');
686: FND_MSG_PUB.ADD;
687: RAISE FND_API.G_EXC_ERROR;
688: END IF;
689:
693: p_ue_id => NULL,
694: p_visit_id => NULL,
695: p_item_instance_id => NULL);
696: IF l_return_status = FND_API.G_TRUE THEN
697: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_PRTCHG_UNTLCKD');
698: FND_MSG_PUB.ADD;
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
701:
703: -- ACL Changes
704:
705: --******** Test that operation type is not null -----
706: IF ( p_x_parts_rec.operation_type is null ) then
707: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_OP_TYPE_MISSIN');
708: FND_MSG_PUB.ADD;
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
711:
710: END IF;
711:
712: --*********** Operation Seq ********** -----
713: IF (p_x_parts_rec.operation_sequence_num is null ) then
714: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
715: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
716: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_ERROR;
711:
712: --*********** Operation Seq ********** -----
713: IF (p_x_parts_rec.operation_sequence_num is null ) then
714: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
715: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
716: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
712: --*********** Operation Seq ********** -----
713: IF (p_x_parts_rec.operation_sequence_num is null ) then
714: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
715: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
716: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
720:
722: OPEN ahl_wo_oper_csr(p_x_parts_rec.workorder_id,p_x_parts_rec.operation_sequence_num );
723:
724: FETCH ahl_wo_oper_csr INTO p_x_parts_rec.workorder_operation_id;
725: IF (ahl_wo_oper_csr%NOTFOUND) THEN
726: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
727: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
728:
729: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
730: FND_MSG_PUB.ADD;
723:
724: FETCH ahl_wo_oper_csr INTO p_x_parts_rec.workorder_operation_id;
725: IF (ahl_wo_oper_csr%NOTFOUND) THEN
726: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
727: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
728:
729: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
730: FND_MSG_PUB.ADD;
731: CLOSE ahl_wo_oper_csr;
725: IF (ahl_wo_oper_csr%NOTFOUND) THEN
726: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INVALID_OPERATION');
727: FND_MESSAGE.Set_Token('OPSEQ', p_x_parts_rec.operation_sequence_num);
728:
729: --FND_MESSAGE.Set_Token('WOID', p_x_parts_rec.workorder_id);
730: FND_MSG_PUB.ADD;
731: CLOSE ahl_wo_oper_csr;
732: RAISE FND_API.G_EXC_ERROR;
733: END IF;
737: OPEN ahl_job_csr(p_x_parts_rec.workorder_id );
738: FETCH ahl_job_csr INTO l_junk, l_org_id, l_wip_entity_id;
739: IF ( ahl_job_csr%NOTFOUND) THEN
740: CLOSE ahl_job_csr;
741: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_INVALID');
742: FND_MESSAGE.set_token('WOID', p_x_parts_rec.workorder_id);
743: FND_MSG_PUB.ADD;
744: RAISE FND_API.G_EXC_ERROR;
745: END IF;
738: FETCH ahl_job_csr INTO l_junk, l_org_id, l_wip_entity_id;
739: IF ( ahl_job_csr%NOTFOUND) THEN
740: CLOSE ahl_job_csr;
741: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_INVALID');
742: FND_MESSAGE.set_token('WOID', p_x_parts_rec.workorder_id);
743: FND_MSG_PUB.ADD;
744: RAISE FND_API.G_EXC_ERROR;
745: END IF;
746: CLOSE ahl_job_csr;
745: END IF;
746: CLOSE ahl_job_csr;
747:
748: IF (l_junk <> '3' and l_junk <> '19') THEN
749: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_JOB_CLOSED');
750: FND_MSG_PUB.ADD;
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
762:
763: FETCH ahl_uc_header_csr INTO l_junk;
764: IF ( ahl_uc_header_csr%NOTFOUND) THEN
765: CLOSE ahl_uc_header_csr;
766: FND_MESSAGE.set_name('AHL', 'AHL_PRD_UC_HEADER_INVALID');
767: FND_MESSAGE.set_token('UCID', p_x_parts_rec.unit_config_header_id);
768: FND_MSG_PUB.ADD;
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
763: FETCH ahl_uc_header_csr INTO l_junk;
764: IF ( ahl_uc_header_csr%NOTFOUND) THEN
765: CLOSE ahl_uc_header_csr;
766: FND_MESSAGE.set_name('AHL', 'AHL_PRD_UC_HEADER_INVALID');
767: FND_MESSAGE.set_token('UCID', p_x_parts_rec.unit_config_header_id);
768: FND_MSG_PUB.ADD;
769: RAISE FND_API.G_EXC_ERROR;
770: END IF;
771: END IF;
775: IF (p_x_parts_rec.mc_relationship_id is null
776: and p_x_parts_rec.Unit_Config_Header_Id is not null
777: and p_x_parts_rec.operation_type <> 'D')
778: THEN
779: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_NULL_POSN');
780: FND_MSG_PUB.ADD;
781: END IF;
782:
783: --*********Instance number **************--
784: -- It is mandatory.This should not be expired.
785: IF ( p_x_parts_rec.operation_type='D' and
786: p_x_parts_rec.removed_instance_id is null )
787: THEN
788: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_MISSING');
789: FND_MSG_PUB.ADD;
790: END IF;
791:
792: IF ( p_x_parts_rec.operation_type='M' and
791:
792: IF ( p_x_parts_rec.operation_type='M' and
793: p_x_parts_rec.removed_instance_id is null )
794: THEN
795: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_MISSING');
796: FND_MSG_PUB.ADD;
797: END IF;
798:
799: IF ( ( p_x_parts_rec.operation_type='C' or p_x_parts_rec.operation_type='M') and
798:
799: IF ( ( p_x_parts_rec.operation_type='C' or p_x_parts_rec.operation_type='M') and
800: (p_x_parts_rec.installed_instance_id is null) )
801: THEN
802: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INSTALL_ITEM_MISSIN');
803: FND_MSG_PUB.ADD;
804: END IF;
805:
806: IF ( (p_x_parts_rec.operation_type='C') and
805:
806: IF ( (p_x_parts_rec.operation_type='C') and
807: (p_x_parts_rec.parent_installed_instance_id is null ))
808: THEN
809: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PARENT_ITEM_MISSING');
810: FND_MSG_PUB.ADD;
811: END IF;
812:
813: --** validate item instance***--
818: /* replaced validation to fix bug# 6993283
819: FETCH ahl_location_type_csr into l_junk;
820: CLOSE ahl_location_type_csr;
821: IF l_junk is null then
822: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
823: FND_MSG_PUB.ADD;
824: --RAISE FND_API.G_EXC_ERROR;
825: END IF;
826: */
825: END IF;
826: */
827: FETCH ahl_location_type_csr into l_inst_job_id, l_wip_job_name;
828: IF (ahl_location_type_csr%NOTFOUND) THEN
829: FND_MESSAGE.Set_Name('AHL','AHL_PRD_ITEM_NOT_ISSUED');
830: FND_MSG_PUB.ADD;
831: ELSE
832: -- added to fix bug# 6993283
833: -- validate job ID.
831: ELSE
832: -- added to fix bug# 6993283
833: -- validate job ID.
834: IF (l_inst_job_id <> l_wip_entity_id) THEN
835: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_JOB_INVALID');
836: FND_MESSAGE.Set_Token('WO_NAME',l_wip_job_name);
837: FND_MSG_PUB.ADD;
838: END IF;
839: END IF;
832: -- added to fix bug# 6993283
833: -- validate job ID.
834: IF (l_inst_job_id <> l_wip_entity_id) THEN
835: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_JOB_INVALID');
836: FND_MESSAGE.Set_Token('WO_NAME',l_wip_job_name);
837: FND_MSG_PUB.ADD;
838: END IF;
839: END IF;
840: CLOSE ahl_location_type_csr;
844: IF (p_x_parts_rec.operation_type = 'D' or p_x_parts_rec.operation_type = 'M') THEN
845: OPEN ahl_item_instance_csr(p_x_parts_rec.removed_instance_id);
846: FETCH ahl_item_instance_csr INTO l_rm_inventory_item_id, l_rm_inst_number;
847: IF ahl_item_instance_csr%NOTFOUND THEN
848: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ITEM_INVALID');
849: FND_MSG_PUB.ADD;
850: ELSE
851: -- Validate that the item exists in the job's org.
852: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
851: -- Validate that the item exists in the job's org.
852: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
853: FETCH mtl_system_kfv_csr INTO l_junk;
854: IF (mtl_system_kfv_csr%NOTFOUND) THEN
855: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ORG_INVALID');
856: FND_MESSAGE.Set_Token('INST_ID', l_rm_inst_number);
857: FND_MSG_PUB.ADD;
858: END IF;
859: CLOSE mtl_system_kfv_csr;
852: OPEN mtl_system_kfv_csr(l_rm_inventory_item_id, l_org_id);
853: FETCH mtl_system_kfv_csr INTO l_junk;
854: IF (mtl_system_kfv_csr%NOTFOUND) THEN
855: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_ORG_INVALID');
856: FND_MESSAGE.Set_Token('INST_ID', l_rm_inst_number);
857: FND_MSG_PUB.ADD;
858: END IF;
859: CLOSE mtl_system_kfv_csr;
860:
870: IF ( p_x_parts_rec.removal_reason_id is null
871: and (p_x_parts_rec.operation_type='M' or p_x_parts_rec.operation_type='D')
872: )
873: THEN
874: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REASON_CODE_MISSING');
875: FND_MSG_PUB.ADD;
876: END IF;
877:
878: ---*****Validate reason****************
894: IF (p_x_parts_rec.condition_Id is null
895: and ( p_x_parts_rec.operation_type='M' or p_x_parts_rec.operation_type='D')
896: )
897: THEN
898: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_CONDN_MISSING');
899: FND_MSG_PUB.ADD;
900: END IF;
901:
902: --********* Validate Condition ***************__
915: --**** Removal Code- This is mandatory in case of part removal.
916: IF (p_x_parts_rec.operation_type='D'
917: OR p_x_parts_rec.operation_type='M') THEN
918: IF (p_x_parts_rec.removal_code is null) THEN
919: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
920: FND_MSG_PUB.ADD;
921: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
922: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
923: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
918: IF (p_x_parts_rec.removal_code is null) THEN
919: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
920: FND_MSG_PUB.ADD;
921: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
922: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
923: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
924: FND_MSG_PUB.ADD;
925: END IF;
926: END IF;
919: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_REMOVAL_CODE_MISSIN');
920: FND_MSG_PUB.ADD;
921: ELSIF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_REMOVAL_CODE',p_x_parts_rec.removal_code)) THEN
922: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
923: FND_MESSAGE.Set_Token('CODE', p_x_parts_rec.removal_code);
924: FND_MSG_PUB.ADD;
925: END IF;
926: END IF;
927:
935: p_x_parts_rec.Condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))))
936: THEN
937: --******* Problem Code- This should not be null in case of part removal.
938: -- if p_x_parts_rec.problem_code is null then
939: -- FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PROBLEM_CODE_MISSIN');
940: -- FND_MSG_PUB.ADD;
941: -- end if;
942:
943: --******* Target Visit ***********
944: -- Error out if target visit id is null for unserviceable/mrb type part removal.
945:
946: IF p_x_parts_rec.target_visit_id is null THEN
947: -- dbms_output.put_line('Target visit is null for unserviceable mrb');
948: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_VISIT_INVALID');
949: FND_MSG_PUB.ADD;
950: END IF;
951:
952: --If user sends a target visit, then check should be made that the visit is open.
955: OPEN ahl_visit_csr(p_x_parts_rec.target_visit_id );
956: FETCH ahl_visit_csr INTO l_junk;
957: CLOSE ahl_visit_csr;
958: IF l_junk = 'CLOSED' THEN
959: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_VISIT_INVALID');
960: FND_MSG_PUB.ADD;
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
963: END IF;
1006: p_x_parts_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
1007: and l_plan_id is not null
1008: and p_x_parts_rec.collection_id is null)
1009: THEN
1010: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_COLLECT_ID_MISSIN');
1011: FND_MSG_PUB.ADD;
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1025:
1026: --OPEN ahl_locator_csr(p_x_parts_rec.locator_code, l_org_id);
1027: --FETCH ahl_locator_csr INTO p_x_parts_rec.locator_id;
1028: --IF (ahl_locator_csr%NOTFOUND) then
1029: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_SUBINV_MANDATORY');
1030: FND_MSG_PUB.ADD;
1031: --END IF;
1032: --CLOSE ahl_locator_csr;
1033: END IF;
1051: IF (p_x_parts_rec.Removal_date is null or p_x_parts_rec.Removal_date = FND_API.G_MISS_DATE) THEN
1052:
1053: p_x_parts_rec.Removal_date := sysdate;
1054: ELSIF (trunc(p_x_parts_rec.Removal_date) > trunc(sysdate)) THEN
1055: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_DATE_INVALID');
1056: FND_MESSAGE.Set_Token('DATE',p_x_parts_rec.Removal_date);
1057: FND_MSG_PUB.ADD;
1058: END IF;
1059:
1052:
1053: p_x_parts_rec.Removal_date := sysdate;
1054: ELSIF (trunc(p_x_parts_rec.Removal_date) > trunc(sysdate)) THEN
1055: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_DATE_INVALID');
1056: FND_MESSAGE.Set_Token('DATE',p_x_parts_rec.Removal_date);
1057: FND_MSG_PUB.ADD;
1058: END IF;
1059:
1060:
1070: OPEN get_instance_attrib_csr(p_x_parts_rec.removed_instance_id);
1071: FETCH get_instance_attrib_csr INTO l_config_instance_rec;
1072: CLOSE get_instance_attrib_csr;
1073: 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
1074: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INRMV_QTY');
1075: FND_MSG_PUB.ADD;
1076: END IF;
1077: END IF;
1078:
1082: FETCH get_instance_attrib_csr INTO l_new_instance_rec;
1083: CLOSE get_instance_attrib_csr;
1084:
1085: 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
1086: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_ININST_QTY');
1087: FND_MSG_PUB.ADD;
1088: END IF;
1089:
1090: IF p_x_parts_rec.removed_instance_id IS NOT NULL THEN
1098: OR NVL(l_config_instance_rec.unit_of_measure,'x') <> NVL(l_new_instance_rec.unit_of_measure,'x')
1099: OR NVL(l_config_instance_rec.inventory_revision,'x') <> NVL(l_new_instance_rec.inventory_revision,'x')
1100: OR l_config_instance_rec.serial_number IS NOT NULL
1101: OR l_new_instance_rec.serial_number IS NOT NULL)THEN
1102: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INV_MRG');
1103: FND_MSG_PUB.ADD;
1104:
1105: END IF;
1106: END IF;
1179: OPEN ahl_header_id_csr(p_x_parts_rec.Unit_Config_Name);
1180: FETCH ahl_header_id_csr INTO p_x_parts_rec.Unit_Config_Header_Id;
1181: IF (ahl_header_id_csr%NOTFOUND) THEN
1182: CLOSE ahl_header_id_csr;
1183: FND_MESSAGE.Set_Name('AHL','AHL_UC_NAME_MISSING');
1184: FND_MESSAGE.Set_Token('NAME',p_x_parts_rec.unit_config_name);
1185: FND_MSG_PUB.ADD;
1186: ELSE
1187: CLOSE ahl_header_id_csr;
1180: FETCH ahl_header_id_csr INTO p_x_parts_rec.Unit_Config_Header_Id;
1181: IF (ahl_header_id_csr%NOTFOUND) THEN
1182: CLOSE ahl_header_id_csr;
1183: FND_MESSAGE.Set_Name('AHL','AHL_UC_NAME_MISSING');
1184: FND_MESSAGE.Set_Token('NAME',p_x_parts_rec.unit_config_name);
1185: FND_MSG_PUB.ADD;
1186: ELSE
1187: CLOSE ahl_header_id_csr;
1188: END IF; END IF;
1193: OPEN ahl_instance_id_csr(p_x_parts_rec.removed_instance_num);
1194: FETCH ahl_instance_id_csr INTO p_x_parts_rec.removed_instance_id;
1195: IF (ahl_instance_id_csr%NOTFOUND) THEN
1196: CLOSE ahl_instance_id_csr;
1197: FND_MESSAGE.Set_Name('AHL','AHL_PRD_RMV_INST_INVALID');
1198: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_num);
1199: FND_MSG_PUB.ADD;
1200: END IF;
1201: CLOSE ahl_instance_id_csr;
1194: FETCH ahl_instance_id_csr INTO p_x_parts_rec.removed_instance_id;
1195: IF (ahl_instance_id_csr%NOTFOUND) THEN
1196: CLOSE ahl_instance_id_csr;
1197: FND_MESSAGE.Set_Name('AHL','AHL_PRD_RMV_INST_INVALID');
1198: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_num);
1199: FND_MSG_PUB.ADD;
1200: END IF;
1201: CLOSE ahl_instance_id_csr;
1202: END IF;
1207: OPEN ahl_instance_id_csr(p_x_parts_rec.installed_instance_num);
1208: FETCH ahl_instance_id_csr INTO p_x_parts_rec.installed_instance_id;
1209: IF (ahl_instance_id_csr%NOTFOUND) THEN
1210: CLOSE ahl_instance_id_csr;
1211: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INSTAL_INST_INVALID');
1212: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.installed_instance_num);
1213: FND_MSG_PUB.ADD;
1214: ELSE
1215: CLOSE ahl_instance_id_csr;
1208: FETCH ahl_instance_id_csr INTO p_x_parts_rec.installed_instance_id;
1209: IF (ahl_instance_id_csr%NOTFOUND) THEN
1210: CLOSE ahl_instance_id_csr;
1211: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INSTAL_INST_INVALID');
1212: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.installed_instance_num);
1213: FND_MSG_PUB.ADD;
1214: ELSE
1215: CLOSE ahl_instance_id_csr;
1216: END IF;
1223: OPEN ahl_instance_id_csr(p_x_parts_rec.parent_installed_instance_num);
1224: FETCH ahl_instance_id_csr INTO p_x_parts_rec.parent_installed_instance_id;
1225: IF (ahl_instance_id_csr%NOTFOUND) THEN
1226: CLOSE ahl_instance_id_csr;
1227: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PINSTAL_INVALID');
1228: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.parent_installed_instance_num);
1229: FND_MSG_PUB.ADD;
1230: ELSE
1231: CLOSE ahl_instance_id_csr;
1224: FETCH ahl_instance_id_csr INTO p_x_parts_rec.parent_installed_instance_id;
1225: IF (ahl_instance_id_csr%NOTFOUND) THEN
1226: CLOSE ahl_instance_id_csr;
1227: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_PINSTAL_INVALID');
1228: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.parent_installed_instance_num);
1229: FND_MSG_PUB.ADD;
1230: ELSE
1231: CLOSE ahl_instance_id_csr;
1232: END IF;
1239: -- dbms_output.put_line('inside ahl_condition_csr');
1240: OPEN ahl_condition_csr(p_x_parts_rec.condition);
1241: FETCH ahl_condition_csr INTO p_x_parts_rec.condition_id;
1242: IF (ahl_condition_csr%NOTFOUND) THEN
1243: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
1244: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.condition);
1245: FND_MSG_PUB.ADD;
1246: END IF;
1247: CLOSE ahl_condition_csr;
1240: OPEN ahl_condition_csr(p_x_parts_rec.condition);
1241: FETCH ahl_condition_csr INTO p_x_parts_rec.condition_id;
1242: IF (ahl_condition_csr%NOTFOUND) THEN
1243: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
1244: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.condition);
1245: FND_MSG_PUB.ADD;
1246: END IF;
1247: CLOSE ahl_condition_csr;
1248: END IF;
1254: OPEN ahl_reason_csr(p_x_parts_rec.removal_reason_name);
1255: FETCH ahl_reason_csr INTO p_x_parts_rec.removal_reason_id;
1256: IF (ahl_reason_csr%NOTFOUND) THEN
1257: CLOSE ahl_reason_csr;
1258: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REASON_INVALID');
1259: FND_MSG_PUB.ADD;
1260: ELSE
1261: CLOSE ahl_reason_csr;
1262: END IF;
1268: OPEN ahl_removal_lookup_csr(p_x_parts_rec.removal_meaning);
1269: FETCH ahl_removal_lookup_csr INTO p_x_parts_rec.removal_code;
1270: IF (ahl_removal_lookup_csr%NOTFOUND) THEN
1271: CLOSE ahl_removal_lookup_csr;
1272: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
1273: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.removal_meaning);
1274: FND_MSG_PUB.ADD;
1275: ELSE
1276: CLOSE ahl_removal_lookup_csr;
1269: FETCH ahl_removal_lookup_csr INTO p_x_parts_rec.removal_code;
1270: IF (ahl_removal_lookup_csr%NOTFOUND) THEN
1271: CLOSE ahl_removal_lookup_csr;
1272: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVAL_CODE_INVALID');
1273: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.removal_meaning);
1274: FND_MSG_PUB.ADD;
1275: ELSE
1276: CLOSE ahl_removal_lookup_csr;
1277: END IF;
1285: OPEN ahl_target_visit_csr(p_x_parts_rec.target_visit_num);
1286: FETCH ahl_target_visit_csr INTO p_x_parts_rec.target_visit_id;
1287: IF (ahl_target_visit_csr%NOTFOUND) THEN
1288: CLOSE ahl_target_visit_csr;
1289: FND_MESSAGE.Set_Name('AHL','AHL_TARGET_VISIT_INVALID');
1290: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.target_visit_num);
1291: FND_MSG_PUB.ADD;
1292: ELSE
1293: CLOSE ahl_target_visit_csr;
1286: FETCH ahl_target_visit_csr INTO p_x_parts_rec.target_visit_id;
1287: IF (ahl_target_visit_csr%NOTFOUND) THEN
1288: CLOSE ahl_target_visit_csr;
1289: FND_MESSAGE.Set_Name('AHL','AHL_TARGET_VISIT_INVALID');
1290: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.target_visit_num);
1291: FND_MSG_PUB.ADD;
1292: ELSE
1293: CLOSE ahl_target_visit_csr;
1294: END IF;
1300: OPEN ahl_problem_lookup_csr(p_x_parts_rec.problem_meaning);
1301: FETCH ahl_problem_lookup_csr INTO p_x_parts_rec.problem_code;
1302: IF (ahl_problem_lookup_csr%NOTFOUND) THEN
1303: CLOSE ahl_problem_lookup_csr;
1304: FND_MESSAGE.Set_Name('AHL','AHL_PROBLEM_CODE_INVALID');
1305: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.problem_meaning);
1306: FND_MSG_PUB.ADD;
1307: else
1308: CLOSE ahl_problem_lookup_csr;
1301: FETCH ahl_problem_lookup_csr INTO p_x_parts_rec.problem_code;
1302: IF (ahl_problem_lookup_csr%NOTFOUND) THEN
1303: CLOSE ahl_problem_lookup_csr;
1304: FND_MESSAGE.Set_Name('AHL','AHL_PROBLEM_CODE_INVALID');
1305: FND_MESSAGE.Set_Token('CODE',p_x_parts_rec.problem_meaning);
1306: FND_MSG_PUB.ADD;
1307: else
1308: CLOSE ahl_problem_lookup_csr;
1309: end if;
1397: x_unit_config_name := NULL;
1398: x_unit_config_id := NULL;
1399: ELSE
1400: IF (l_unit_config_status_code = 'DRAFT') THEN
1401: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UC_DRAFT');
1402: FND_MSG_PUB.ADD;
1403: CLOSE ahl_uc_name_csr;
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSIF ((p_validation_mode = 'PARTS_CHG') AND (l_active_uc_status_code <> 'APPROVED')) THEN
1402: FND_MSG_PUB.ADD;
1403: CLOSE ahl_uc_name_csr;
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSIF ((p_validation_mode = 'PARTS_CHG') AND (l_active_uc_status_code <> 'APPROVED')) THEN
1406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UC_UNAPPROVED');
1407: FND_MSG_PUB.ADD;
1408: CLOSE ahl_uc_name_csr;
1409: RAISE FND_API.G_EXC_ERROR;
1410: END IF;
1416: OPEN ahl_location_type_csr(l_item_instance_id, G_CSI_LOCATION_TYPE_CODE);
1417: FETCH ahl_location_type_csr INTO l_location_type_code, l_location_meaning;
1418: IF (ahl_location_type_csr%NOTFOUND) THEN
1419: CLOSE ahl_location_type_csr;
1420: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_PC_INST_EXPIRED');
1421: FND_MSG_PUB.ADD;
1422: RAISE FND_API.G_EXC_ERROR;
1423: ELSE
1424: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1421: FND_MSG_PUB.ADD;
1422: RAISE FND_API.G_EXC_ERROR;
1423: ELSE
1424: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1425: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
1426: FND_MESSAGE.Set_Token('STATUS',l_location_meaning);
1427: FND_MSG_PUB.ADD;
1428: RAISE FND_API.G_EXC_ERROR;
1429: END IF;
1422: RAISE FND_API.G_EXC_ERROR;
1423: ELSE
1424: IF (l_location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
1425: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
1426: FND_MESSAGE.Set_Token('STATUS',l_location_meaning);
1427: FND_MSG_PUB.ADD;
1428: RAISE FND_API.G_EXC_ERROR;
1429: END IF;
1430: END IF;
2400: l_unit_config_header_name:= AHL_UMP_UTIL_PKG.get_UnitName(p_x_parts_rec.removed_instance_id);
2401:
2402:
2403: IF (l_unit_config_header_name is not null ) then
2404: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_PRT_INVALID');
2405: FND_MSG_PUB.ADD;
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2615: --Test that the part removed is ib config indeed
2616: l_unit_config_header_name:= AHL_UMP_UTIL_PKG.get_UnitName(p_x_parts_rec.removed_instance_id);
2617:
2618: IF (l_unit_config_header_name is not null ) then
2619: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_RMV_PRT_INVALID');
2620: FND_MSG_PUB.ADD;
2621: --RAISE FND_API.G_EXC_ERROR;
2622: end if;
2623: IF G_DEBUG = 'Y' THEN
2717: OPEN ahl_wip_entity_csr(p_x_parts_rec.workorder_id);
2718: FETCH ahl_wip_entity_csr INTO l_wip_entity_id,l_wip_entity_type;
2719: IF (ahl_wip_entity_csr%NOTFOUND) THEN
2720: CLOSE ahl_wip_entity_csr;
2721: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WIP_ENTITY_MISSING');
2722: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2723: FND_MSG_PUB.ADD;
2724: else
2725: CLOSE ahl_wip_entity_csr;
2718: FETCH ahl_wip_entity_csr INTO l_wip_entity_id,l_wip_entity_type;
2719: IF (ahl_wip_entity_csr%NOTFOUND) THEN
2720: CLOSE ahl_wip_entity_csr;
2721: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WIP_ENTITY_MISSING');
2722: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2723: FND_MSG_PUB.ADD;
2724: else
2725: CLOSE ahl_wip_entity_csr;
2726: END IF;
2728: --get the updated object_version number from csi_item_isntances
2729: OPEN ahl_obj_ver_csr(p_x_parts_rec.removed_instance_id);
2730: FETCH ahl_obj_ver_csr INTO p_x_parts_rec.removed_instance_obj_ver_num;
2731: IF (ahl_obj_ver_csr%NOTFOUND) THEN
2732: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVED_INSTANCE_INVALID');
2733: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_id);
2734: FND_MSG_PUB.ADD;
2735: CLOSE ahl_obj_ver_csr;
2736: else
2729: OPEN ahl_obj_ver_csr(p_x_parts_rec.removed_instance_id);
2730: FETCH ahl_obj_ver_csr INTO p_x_parts_rec.removed_instance_obj_ver_num;
2731: IF (ahl_obj_ver_csr%NOTFOUND) THEN
2732: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REMOVED_INSTANCE_INVALID');
2733: FND_MESSAGE.Set_Token('INST',p_x_parts_rec.removed_instance_id);
2734: FND_MSG_PUB.ADD;
2735: CLOSE ahl_obj_ver_csr;
2736: else
2737: CLOSE ahl_obj_ver_csr;
2811: L_revision, l_quantity, l_uom,
2812: l_serial_number, l_lot_number;
2813: IF (ahl_mtl_txn_param_csr%NOTFOUND) THEN
2814: CLOSE ahl_mtl_txn_param_csr;
2815: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_DATA_MISSING');
2816: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2817: FND_MSG_PUB.ADD;
2818: ELSE
2819: CLOSE ahl_mtl_txn_param_csr;
2812: l_serial_number, l_lot_number;
2813: IF (ahl_mtl_txn_param_csr%NOTFOUND) THEN
2814: CLOSE ahl_mtl_txn_param_csr;
2815: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_DATA_MISSING');
2816: FND_MESSAGE.Set_Token('WOID',p_x_parts_rec.workorder_id);
2817: FND_MSG_PUB.ADD;
2818: ELSE
2819: CLOSE ahl_mtl_txn_param_csr;
2820: END IF;
2914: p_x_parts_rec_tbl(i).Condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))))
2915: THEN
2916: --Summary is mandatory for SR API
2917: IF (p_x_parts_rec_tbl(i).summary is null) then
2918: Fnd_Message.SET_NAME('AHL','AHL_PRD_NRJ_SUMMARY_REQ');
2919: FND_MSG_PUB.ADD;
2920: END IF;
2921:
2922: -- Populate sr_task_tbl
3202: -- get disposition details.
3203: OPEN ahl_disp_csr(p_disposition_id, p_part_change_id);
3204: FETCH ahl_disp_csr INTO l_disposition_rec;
3205: IF (ahl_disp_csr%NOTFOUND) THEN
3206: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_DISP_INVALID');
3207: FND_MESSAGE.Set_Token('DISP_ID',p_disposition_id);
3208: FND_MSG_PUB.ADD;
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3203: OPEN ahl_disp_csr(p_disposition_id, p_part_change_id);
3204: FETCH ahl_disp_csr INTO l_disposition_rec;
3205: IF (ahl_disp_csr%NOTFOUND) THEN
3206: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_DISP_INVALID');
3207: FND_MESSAGE.Set_Token('DISP_ID',p_disposition_id);
3208: FND_MSG_PUB.ADD;
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3211: CLOSE ahl_disp_csr;
3705: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3706: 'wip_entity_not_found for from_workorder_number'
3707: );
3708: END IF;
3709: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3710: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.from_workorder_number);
3711: FND_MSG_PUB.ADD;
3712: END IF;
3713: CLOSE wip_entity_wonum_csr;
3706: 'wip_entity_not_found for from_workorder_number'
3707: );
3708: END IF;
3709: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3710: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.from_workorder_number);
3711: FND_MSG_PUB.ADD;
3712: END IF;
3713: CLOSE wip_entity_wonum_csr;
3714: ELSIF p_move_item_instance_rec.from_workorder_id IS NOT NULL THEN
3722: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3723: 'wip_entity_not_found for from_workorder_id'
3724: );
3725: END IF;
3726: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3727: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.from_workorder_id);
3728: FND_MSG_PUB.ADD;
3729: END IF;
3730: CLOSE wip_entity_woid_csr;
3723: 'wip_entity_not_found for from_workorder_id'
3724: );
3725: END IF;
3726: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3727: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.from_workorder_id);
3728: FND_MSG_PUB.ADD;
3729: END IF;
3730: CLOSE wip_entity_woid_csr;
3731: END IF;
3742: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3743: 'wip_entity_not_found for to_workorder_number'
3744: );
3745: END IF;
3746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3747: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3748: FND_MSG_PUB.ADD;
3749: END IF;
3750: CLOSE wip_entity_wonum_csr;
3743: 'wip_entity_not_found for to_workorder_number'
3744: );
3745: END IF;
3746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3747: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3748: FND_MSG_PUB.ADD;
3749: END IF;
3750: CLOSE wip_entity_wonum_csr;
3751: ELSE
3759: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3760: 'wip_entity_not_found for to_workorder_id'
3761: );
3762: END IF;
3763: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3764: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.to_workorder_id);
3765: FND_MSG_PUB.ADD;
3766: END IF;
3767: CLOSE wip_entity_woid_csr;
3760: 'wip_entity_not_found for to_workorder_id'
3761: );
3762: END IF;
3763: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_ID_MISSING');
3764: FND_MESSAGE.Set_Token('WOID',p_move_item_instance_rec.to_workorder_id);
3765: FND_MSG_PUB.ADD;
3766: END IF;
3767: CLOSE wip_entity_woid_csr;
3768: END IF;
3770: IF(l_from_wip_entity_id IS NOT NULL) THEN
3771: OPEN check_org_csr(l_from_wip_entity_id,l_to_wip_entity_id);
3772: FETCH check_org_csr INTO l_junk;
3773: IF(check_org_csr%NOTFOUND)THEN
3774: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3775: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3776: FND_MSG_PUB.ADD;
3777: END IF;
3778: CLOSE check_org_csr;
3771: OPEN check_org_csr(l_from_wip_entity_id,l_to_wip_entity_id);
3772: FETCH check_org_csr INTO l_junk;
3773: IF(check_org_csr%NOTFOUND)THEN
3774: FND_MESSAGE.Set_Name('AHL','AHL_PRD_WO_NUM_MISSING');
3775: FND_MESSAGE.Set_Token('WONUM',p_move_item_instance_rec.to_workorder_number);
3776: FND_MSG_PUB.ADD;
3777: END IF;
3778: CLOSE check_org_csr;
3779: END IF;
3801: 'removed instance_num not found ' || p_move_item_instance_rec.instance_number
3802: );
3803: END IF;
3804: l_check_qnt_flag := FALSE; --amsriniv
3805: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTNUM_INV');
3806: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_number);
3807: FND_MSG_PUB.ADD;
3808: END IF;
3809: CLOSE csi_item_instance_num_csr;
3802: );
3803: END IF;
3804: l_check_qnt_flag := FALSE; --amsriniv
3805: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTNUM_INV');
3806: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_number);
3807: FND_MSG_PUB.ADD;
3808: END IF;
3809: CLOSE csi_item_instance_num_csr;
3810: ELSE
3832: 'removed instance_id not found ' || p_move_item_instance_rec.instance_id
3833: );
3834: END IF;
3835: l_check_qnt_flag := FALSE; --amsriniv
3836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTID_INV');
3837: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_id);--amsriniv
3838: FND_MSG_PUB.ADD;
3839: END IF;
3840: CLOSE csi_item_instance_id_csr;
3833: );
3834: END IF;
3835: l_check_qnt_flag := FALSE; --amsriniv
3836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REM_INSTID_INV');
3837: FND_MESSAGE.Set_Token('INST',p_move_item_instance_rec.instance_id);--amsriniv
3838: FND_MSG_PUB.ADD;
3839: END IF;
3840: CLOSE csi_item_instance_id_csr;
3841: END IF;
3869: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3870: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3871: );
3872: END IF;
3873: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_SER_QTY');
3874: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3875: FND_MSG_PUB.ADD;
3876: END IF;
3877: ELSE
3870: 'invalid qty for serialized item ' || p_move_item_instance_rec.quantity
3871: );
3872: END IF;
3873: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_SER_QTY');
3874: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3875: FND_MSG_PUB.ADD;
3876: END IF;
3877: ELSE
3878: IF ((NVL(p_move_item_instance_rec.quantity,1) < 0) OR
3884: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3885: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3886: );
3887: END IF;
3888: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_NONSER_QTY');
3889: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3890: FND_MSG_PUB.ADD;
3891: END IF;
3892: END IF;
3885: 'invalid qty for non serialized item ' || p_move_item_instance_rec.quantity
3886: );
3887: END IF;
3888: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_NONSER_QTY');
3889: FND_MESSAGE.Set_Token('QTY',to_char(p_move_item_instance_rec.quantity));
3890: FND_MSG_PUB.ADD;
3891: END IF;
3892: END IF;
3893: END IF;
3900: 'ahl.plsql.' || G_PKG_NAME || '.' || l_api_name,
3901: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3902: );
3903: END IF;
3904: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_CURR_LOC');
3905: FND_MESSAGE.Set_Token('INST',l_instance_rec.instance_id);
3906: FND_MSG_PUB.ADD;
3907: END IF;
3908: --Standard check to count messages
3901: 'item not in from wip_entity_id location ' || l_from_wip_entity_id
3902: );
3903: END IF;
3904: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_CURR_LOC');
3905: FND_MESSAGE.Set_Token('INST',l_instance_rec.instance_id);
3906: FND_MSG_PUB.ADD;
3907: END IF;
3908: --Standard check to count messages
3909: IF Fnd_Msg_Pub.count_msg > 0 THEN
4877: INTO l_active_end_date, l_serial_number, l_instance_ovn, l_inst_condn_id
4878: FROM CSI_ITEM_INSTANCES
4879: WHERE instance_id = p_instance_id;
4880: IF (l_active_end_date <= sysdate) THEN
4881: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INST_EXPIRED');
4882: FND_MESSAGE.Set_Token('INST_ID', p_instance_id);
4883: FND_MSG_PUB.ADD;
4884: x_return_status := FND_API.G_RET_STS_ERROR;
4885: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4878: FROM CSI_ITEM_INSTANCES
4879: WHERE instance_id = p_instance_id;
4880: IF (l_active_end_date <= sysdate) THEN
4881: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INST_EXPIRED');
4882: FND_MESSAGE.Set_Token('INST_ID', p_instance_id);
4883: FND_MSG_PUB.ADD;
4884: x_return_status := FND_API.G_RET_STS_ERROR;
4885: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4886: p_data => x_msg_data,
4888: RETURN;
4889: END IF;
4890: EXCEPTION
4891: WHEN NO_DATA_FOUND THEN
4892: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INST_INVALID');
4893: FND_MESSAGE.Set_Token('INST_ID', p_instance_id);
4894: FND_MSG_PUB.ADD;
4895: x_return_status := FND_API.G_RET_STS_ERROR;
4896: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4889: END IF;
4890: EXCEPTION
4891: WHEN NO_DATA_FOUND THEN
4892: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PC_INST_INVALID');
4893: FND_MESSAGE.Set_Token('INST_ID', p_instance_id);
4894: FND_MSG_PUB.ADD;
4895: x_return_status := FND_API.G_RET_STS_ERROR;
4896: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4897: p_data => x_msg_data,
4928: AND enabled_flag = 1;
4929:
4930: EXCEPTION
4931: WHEN NO_DATA_FOUND THEN
4932: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
4933: FND_MESSAGE.Set_Token('CODE',p_instance_condition_id);
4934: FND_MSG_PUB.ADD;
4935: x_return_status := FND_API.G_RET_STS_ERROR;
4936: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4929:
4930: EXCEPTION
4931: WHEN NO_DATA_FOUND THEN
4932: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
4933: FND_MESSAGE.Set_Token('CODE',p_instance_condition_id);
4934: FND_MSG_PUB.ADD;
4935: x_return_status := FND_API.G_RET_STS_ERROR;
4936: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4937: p_data => x_msg_data,
4949: END;
4950: ELSIF (p_validation_level = 10) THEN
4951: l_instance_ovn := p_object_version_number;
4952: ELSE
4953: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VLDNLVL_INVALID');
4954: FND_MESSAGE.Set_Token('CODE',p_validation_level);
4955: FND_MSG_PUB.ADD;
4956: x_return_status := FND_API.G_RET_STS_ERROR;
4957: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4950: ELSIF (p_validation_level = 10) THEN
4951: l_instance_ovn := p_object_version_number;
4952: ELSE
4953: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VLDNLVL_INVALID');
4954: FND_MESSAGE.Set_Token('CODE',p_validation_level);
4955: FND_MSG_PUB.ADD;
4956: x_return_status := FND_API.G_RET_STS_ERROR;
4957: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4958: p_data => x_msg_data,
4966: -- get transaction_type_id .
4967: AHL_Util_UC_Pkg.GetCSI_Transaction_ID('UC_UPDATE',l_transaction_type_id, l_return_val);
4968:
4969: IF NOT(l_return_val) THEN
4970: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CSI_TXN_INVALID');
4971: FND_MESSAGE.Set_Token('CODE','UC_UPDATE');
4972: FND_MSG_PUB.ADD;
4973: x_return_status := FND_API.G_RET_STS_ERROR;
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4967: AHL_Util_UC_Pkg.GetCSI_Transaction_ID('UC_UPDATE',l_transaction_type_id, l_return_val);
4968:
4969: IF NOT(l_return_val) THEN
4970: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CSI_TXN_INVALID');
4971: FND_MESSAGE.Set_Token('CODE','UC_UPDATE');
4972: FND_MSG_PUB.ADD;
4973: x_return_status := FND_API.G_RET_STS_ERROR;
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4975: p_data => x_msg_data,