[Home] [Help]
175: END IF;
176:
177: -- Initialize message list if p_init_msg_list is set to TRUE
178: IF FND_API.To_Boolean(p_init_msg_list) THEN
179: FND_MSG_PUB.Initialize;
180: END IF;
181:
182: -- Initialize API return status to success
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
254: -- SATHAPLI::Component Maintenance Planning Project, 14-Nov-2011, end
272: Convert_value_to_id(p_x_parts_rec => p_x_parts_rec_tbl(i),
273: X_Return_Status => x_return_status);
274:
275: -- Check Error Message stack.
276: l_msg_count := FND_MSG_PUB.count_msg;
277: IF l_msg_count > 0 THEN
278: RAISE FND_API.G_EXC_ERROR;
279: END IF;
280:
290: p_module_type => p_module_type,
291: X_Return_Status => X_Return_Status);
292:
293: -- Check Error Message stack.
294: l_msg_count := FND_MSG_PUB.count_msg;
295:
296: IF l_msg_count > 0 THEN
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
509: AHL_DEBUG_PUB.debug('Completed Processing. Checking for errors', '');
510: END IF;
511:
512: -- Standard call to get message count and if count is 1, get message
513: FND_MSG_PUB.Count_And_Get
514: ( p_count => x_msg_count,
515: p_data => x_msg_data,
516: p_encoded => fnd_api.g_false);
517:
523: EXCEPTION
524: WHEN FND_API.G_EXC_ERROR THEN
525: x_return_status := FND_API.G_RET_STS_ERROR;
526: Rollback to perform_part_changes_pvt;
527: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
528: p_data => x_msg_data,
529: p_encoded => fnd_api.g_false);
530: -- Disable debug
531: IF G_DEBUG = 'Y' THEN
535:
536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: Rollback to perform_part_changes_pvt;
539: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
540: p_data => x_msg_data,
541: p_encoded => fnd_api.g_false);
542: -- Disable debug
543: IF G_DEBUG = 'Y' THEN
545: END IF;
546: WHEN OTHERS THEN
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: Rollback to perform_part_changes_pvt;
549: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
551: p_procedure_name => 'process_parts',
552: p_error_text => SQLERRM);
553: --END IF;
546: WHEN OTHERS THEN
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: Rollback to perform_part_changes_pvt;
549: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
551: p_procedure_name => 'process_parts',
552: p_error_text => SQLERRM);
553: --END IF;
554: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
550: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
551: p_procedure_name => 'process_parts',
552: p_error_text => SQLERRM);
553: --END IF;
554: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
555: p_data => x_msg_data,
556: p_encoded => fnd_api.g_false);
557:
558: -- Disable debug
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:
690: --rroy
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:
702: --rroy
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:
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:
721: --*********** Check that the operation sequence exists for the work order. ---
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;
734: CLOSE ahl_wo_oper_csr;
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;
747:
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:
754: -- To test pending transactions in WIP interface.
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;
772:
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
793: p_x_parts_rec.removed_instance_id is null )
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
800: (p_x_parts_rec.installed_instance_id is null) )
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
807: (p_x_parts_rec.parent_installed_instance_id is null ))
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***--
814: -- Check whether teh part being installed is valid or not.
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: */
827: FETCH ahl_location_type_csr into l_inst_job_id, l_wip_job_name;
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.
834: IF (l_inst_job_id <> l_wip_entity_id) THEN
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;
841: END IF;
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);
853: FETCH mtl_system_kfv_csr INTO l_junk;
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:
861: END IF;
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****************
879: IF (p_x_parts_rec.removal_reason_id is not null ) THEN
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 ***************__
903: IF (p_x_parts_rec.condition_id is not null ) THEN
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);
924: FND_MSG_PUB.ADD;
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:
928: /* SR is now created by Disposition API. ER#
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.
953:
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;
964: -- dbms_output.put_line('target viist id is valid');
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:
1015: END IF; -- operation type.
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;
1034:
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:
1061:
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:
1079: IF ( p_x_parts_rec.operation_type='C')THEN
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
1091: OPEN get_instance_attrib_csr(p_x_parts_rec.removed_instance_id);
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;
1107:
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;
1189:
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;
1203:
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;
1217: END IF;
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;
1233: END IF;
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;
1249: */
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;
1263: END IF;
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;
1278: END IF;
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;
1295: END IF;
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;
1310: end if;
1373: --
1374: BEGIN
1375:
1376: -- Initialize API return status to success
1377: FND_MSG_PUB.Initialize;
1378: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379:
1380: l_item_instance_id := p_item_instance_id;
1381:
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
1406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UC_UNAPPROVED');
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;
1411: END IF;
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
1425: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INST_STATUS_INVALID');
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;
1431:
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:
2409: l_serialized := FND_API.G_FALSE;
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
2624: AHL_DEBUG_PUB.debug('IB Processing- Swap');
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;
2727:
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;
2738:
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;
2821:
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
2923: l_sr_task_tbl(i).Request_date:= sysdate;
3181: Savepoint ReturnTo_Workorder_Locator_pvt;
3182:
3183: -- Initialize message list if p_init_msg_list is set to TRUE
3184: IF FND_API.To_Boolean(p_init_msg_list) THEN
3185: FND_MSG_PUB.Initialize;
3186: END IF;
3187:
3188: -- Initialize API return status to success
3189: x_return_status := FND_API.G_RET_STS_SUCCESS;
3196: 'Input Parts_Change_id:' || p_part_change_id);
3197: END IF;
3198:
3199: -- get count of existing messages.
3200: l_msg_count := FND_MSG_PUB.Count_Msg;
3201:
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;
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;
3212:
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302:
3303: -- get count of message after calling Material txn api.
3304: x_msg_count := FND_MSG_PUB.Count_Msg;
3305:
3306: -- if return status success.. remove info messages from WIP/INV.
3307: FOR i IN l_msg_count+1..x_msg_count LOOP
3308: FND_MSG_PUB.Delete_Msg(i);
3304: x_msg_count := FND_MSG_PUB.Count_Msg;
3305:
3306: -- if return status success.. remove info messages from WIP/INV.
3307: FOR i IN l_msg_count+1..x_msg_count LOOP
3308: FND_MSG_PUB.Delete_Msg(i);
3309: END LOOP;
3310:
3311: -- log debug message.
3312: IF (l_debug_proc >= l_debug_level) THEN
3313: fnd_log.string(l_debug_proc,l_debug_module,
3314: '');
3315: END IF;
3316:
3317: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3318: p_data => x_msg_data,
3319: p_encoded => fnd_api.g_false);
3320:
3321: -- Call disposition api to associate material txn.
3366: EXCEPTION
3367: WHEN FND_API.G_EXC_ERROR THEN
3368: x_return_status := FND_API.G_RET_STS_ERROR;
3369: Rollback to ReturnTo_Workorder_Locator_pvt;
3370: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3371: p_data => x_msg_data,
3372: p_encoded => fnd_api.g_false);
3373: -- Disable debug
3374: IF G_DEBUG = 'Y' THEN
3378:
3379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3381: Rollback to ReturnTo_Workorder_Locator_pvt;
3382: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3383: p_data => x_msg_data,
3384: p_encoded => fnd_api.g_false);
3385: -- Disable debug
3386: IF G_DEBUG = 'Y' THEN
3389:
3390: WHEN OTHERS THEN
3391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3392: Rollback to ReturnTo_Workorder_Locator_pvt;
3393: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3394: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3395: p_procedure_name => 'process_parts',
3396: p_error_text => SQLERRM);
3397: --END IF;
3390: WHEN OTHERS THEN
3391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3392: Rollback to ReturnTo_Workorder_Locator_pvt;
3393: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3394: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3395: p_procedure_name => 'process_parts',
3396: p_error_text => SQLERRM);
3397: --END IF;
3398: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3394: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3395: p_procedure_name => 'process_parts',
3396: p_error_text => SQLERRM);
3397: --END IF;
3398: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3399: p_data => x_msg_data,
3400: p_encoded => fnd_api.g_false);
3401:
3402: -- Disable debug
3452: END IF;
3453:
3454: -- Initialize message list if p_init_msg_list is set to TRUE
3455: IF FND_API.To_Boolean(p_init_msg_list) THEN
3456: FND_MSG_PUB.Initialize;
3457: END IF;
3458:
3459: -- Initialize API return status to success
3460: x_return_status := FND_API.G_RET_STS_SUCCESS;
3567:
3568:
3569:
3570: -- Standard call to get message count and if count is 1, get message
3571: FND_MSG_PUB.Count_And_Get
3572: ( p_count => x_msg_count,
3573: p_data => x_msg_data,
3574: p_encoded => fnd_api.g_false);
3575:
3585: EXCEPTION
3586: WHEN FND_API.G_EXC_ERROR THEN
3587: x_return_status := FND_API.G_RET_STS_ERROR;
3588: Rollback to MOVE_INSTANCE_LOCATION;
3589: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3590: p_data => x_msg_data,
3591: p_encoded => fnd_api.g_false);
3592:
3593:
3593:
3594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3596: Rollback to MOVE_INSTANCE_LOCATION;
3597: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3598: p_data => x_msg_data,
3599: p_encoded => fnd_api.g_false);
3600:
3601: WHEN OTHERS THEN
3600:
3601: WHEN OTHERS THEN
3602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3603: Rollback to MOVE_INSTANCE_LOCATION;
3604: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3606: p_procedure_name => 'move_instance_location',
3607: p_error_text => SQLERRM);
3608: --END IF;
3601: WHEN OTHERS THEN
3602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3603: Rollback to MOVE_INSTANCE_LOCATION;
3604: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3606: p_procedure_name => 'move_instance_location',
3607: p_error_text => SQLERRM);
3608: --END IF;
3609: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3606: p_procedure_name => 'move_instance_location',
3607: p_error_text => SQLERRM);
3608: --END IF;
3609: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3610: p_data => x_msg_data,
3611: p_encoded => fnd_api.g_false);
3612:
3613: END move_instance_location;
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
3715: OPEN wip_entity_woid_csr(p_move_item_instance_rec.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;
3732: --dbms_output.put_line('point1');
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
3752: OPEN wip_entity_woid_csr(p_move_item_instance_rec.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;
3769:
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;
3780:
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
3811: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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;
3842:
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
3879: (NVL(p_move_item_instance_rec.quantity,1) > l_current_quantity))THEN
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;
3894:
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
3910: x_return_status := Fnd_Api.G_RET_STS_ERROR;
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
3910: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3911: RAISE Fnd_Api.G_EXC_ERROR;
3912: END IF;
3913:
4851: Savepoint Update_Part_Condition_pvt_S;
4852:
4853: -- Initialize message list if p_init_msg_list is set to TRUE
4854: IF FND_API.To_Boolean(p_init_msg_list) THEN
4855: FND_MSG_PUB.Initialize;
4856: END IF;
4857:
4858: -- Initialize API return status to success
4859: x_return_status := FND_API.G_RET_STS_SUCCESS;
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,
4887: p_encoded => fnd_api.g_false);
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,
4887: p_encoded => fnd_api.g_false);
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,
4897: p_data => x_msg_data,
4898: p_encoded => fnd_api.g_false);
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,
4898: p_encoded => fnd_api.g_false);
4899: RETURN;
4900: WHEN OTHERS THEN
4898: p_encoded => fnd_api.g_false);
4899: RETURN;
4900: WHEN OTHERS THEN
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4903: p_procedure_name => 'Update_Part_Condition',
4904: p_error_text => 'Validate Instance:' || SQLERRM);
4905: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4906: p_data => x_msg_data,
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4903: p_procedure_name => 'Update_Part_Condition',
4904: p_error_text => 'Validate Instance:' || SQLERRM);
4905: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4906: p_data => x_msg_data,
4907: p_encoded => fnd_api.g_false);
4908: RETURN;
4909: END;
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,
4938: p_encoded => fnd_api.g_false);
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,
4938: p_encoded => fnd_api.g_false);
4939: RETURN;
4940: WHEN OTHERS THEN
4938: p_encoded => fnd_api.g_false);
4939: RETURN;
4940: WHEN OTHERS THEN
4941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4942: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4943: p_procedure_name => 'Update_Part_Condition',
4944: p_error_text => 'Validate Condition:' || SQLERRM);
4945: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4946: p_data => x_msg_data,
4941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4942: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4943: p_procedure_name => 'Update_Part_Condition',
4944: p_error_text => 'Validate Condition:' || SQLERRM);
4945: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4946: p_data => x_msg_data,
4947: p_encoded => fnd_api.g_false);
4948: RETURN;
4949: END;
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,
4959: p_encoded => fnd_api.g_false);
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,
4959: p_encoded => fnd_api.g_false);
4960: RETURN;
4961: END IF; -- p_validation_level
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,
4976: p_encoded => fnd_api.g_false);
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,
4976: p_encoded => fnd_api.g_false);
4977: RETURN;
4978: END IF;