[Home] [Help]
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: END IF;
217: -- Initialize message list if p_init_msg_list is set to TRUE
218: IF FND_API.To_Boolean(p_init_msg_list) THEN
219: FND_MSG_PUB.Initialize;
220: END IF;
221:
222: -- Initialize API return status to success
223: x_return_status := FND_API.G_RET_STS_SUCCESS;
325:
326: IF( l_result = -1 OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
327: IF G_DEBUG='Y' THEN
328: AHL_DEBUG_PUB.debug('INV_TXN_MANAGER_PUB.process_Transactions....errored');
329: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
330: END IF;
331:
332: END IF;
333: END IF;
353:
354: FND_MESSAGE.Set_Name('AHL','AHL_CMP_MTLXFR_ERROR');
355: FND_MESSAGE.Set_Token('MSG',l_error_msg);
356: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
357: FND_MSG_PUB.ADD;
358: l_error := true;
359: END IF;
360: CLOSE Txn_Error_cur;
361: END LOOP;
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: Rollback to PERFORM_MTL_XFR_PVT;
378: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
379: p_data => x_msg_data,
380: p_encoded => fnd_api.g_false);
381:
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381:
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: Rollback to PERFORM_MTL_XFR_PVT;
385: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
386: p_data => x_msg_data,
387: p_encoded => fnd_api.g_false);
388:
389: WHEN OTHERS THEN
388:
389: WHEN OTHERS THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: Rollback to PERFORM_MTL_XFR_PVT;
392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
393: p_procedure_name => 'Perform_Mtl_Xfr',
394: p_error_text => SQLERRM);
395: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
396: p_data => x_msg_data,
391: Rollback to PERFORM_MTL_XFR_PVT;
392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
393: p_procedure_name => 'Perform_Mtl_Xfr',
394: p_error_text => SQLERRM);
395: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
396: p_data => x_msg_data,
397: p_encoded => fnd_api.g_false);
398:
399: END PERFORM_MTL_XFR;
504:
505: -- Validate transaction type
506: IF p_x_ahl_mtlxfr_rec.Transaction_Type_Id IS NULL THEN
507: FND_MESSAGE.Set_Name('AHL','AHL_CMP_TXNTYPE_NULL');
508: FND_MSG_PUB.ADD;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: ELSE
511: OPEN TRX_ACTION_CUR(P_X_AHL_MTLXFR_REC.TRANSACTION_TYPE_ID);
512: FETCH TRX_ACTION_CUR INTO l_txn_type;
511: OPEN TRX_ACTION_CUR(P_X_AHL_MTLXFR_REC.TRANSACTION_TYPE_ID);
512: FETCH TRX_ACTION_CUR INTO l_txn_type;
513: IF(TRX_ACTION_CUR%NOTFOUND) THEN
514: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXNTYPE');
515: FND_MSG_PUB.ADD;
516: x_return_status := FND_API.G_RET_STS_ERROR;
517: END IF;
518: CLOSE TRX_ACTION_CUR;
519: END IF;
525:
526: IF(nvl(p_x_ahl_mtlxfr_rec.Quantity,0) <= 0) THEN
527: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_QTY');
528: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtlxfr_rec.Quantity);
529: FND_MSG_PUB.ADD;
530: x_return_status := FND_API.G_RET_STS_ERROR;
531: END IF;
532:
533: IF G_DEBUG='Y' THEN
543: FETCH AHL_ITEM_ID_CUR INTO l_serial_Control, l_lot_control, l_revision_control, l_location_control, l_primary_uom_code, l_concatenated_segments;
544: IF(AHL_ITEM_ID_CUR%NOTFOUND) THEN
545: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
546: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtlxfr_rec.Inventory_Item_Id);
547: FND_MSG_PUB.ADD;
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: END IF;
550: CLOSE AHL_ITEM_ID_CUR;
551: ELSE
550: CLOSE AHL_ITEM_ID_CUR;
551: ELSE
552: IF p_x_ahl_mtlxfr_rec.Organization_ID IS NULL THEN
553: FND_MESSAGE.Set_Name('AHL','AHL_CMP_ORG_NULL');
554: FND_MSG_PUB.ADD;
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: END IF;
557: IF p_x_ahl_mtlxfr_rec.Inventory_Item_Id IS NULL THEN
558: FND_MESSAGE.Set_Name('AHL','AHL_CMP_ITEM_NULL');
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: END IF;
557: IF p_x_ahl_mtlxfr_rec.Inventory_Item_Id IS NULL THEN
558: FND_MESSAGE.Set_Name('AHL','AHL_CMP_ITEM_NULL');
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_ERROR;
561: END IF;
562:
563: END IF;
572: AND (nvl(l_serial_Control,0) <> nvl(C_NO_SERIAL_CONTROL,0)) ) THEN
573: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
574: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtlxfr_rec.Serial_Number);
575: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
576: FND_MSG_PUB.ADD;
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579:
580: IF (p_x_ahl_mtlxfr_rec.Serial_Number IS NOT NULL AND
581: nvl(l_serial_Control,1) = 1) THEN
582: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
583: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtlxfr_rec.Serial_Number);
584: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
585: FND_MSG_PUB.ADD;
586: x_return_status := FND_API.G_RET_STS_ERROR;
587: END IF;
588:
589:
597: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
598: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
599: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtlxfr_rec.Lot_Number);
600: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
601: FND_MSG_PUB.ADD;
602: x_return_status := FND_API.G_RET_STS_ERROR;
603: END IF;
604: -- validate lot number.
605: IF (p_x_ahl_mtlxfr_rec.Lot_Number IS NOT NULL AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
610: IF (mtl_lot_num_csr%NOTFOUND) THEN
611: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
612: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtlxfr_rec.Lot_Number);
613: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
614: FND_MSG_PUB.ADD;
615: x_return_status := FND_API.G_RET_STS_ERROR;
616: END IF;
617: CLOSE mtl_lot_num_csr;
618: END IF;
620: -- raise error if item is not lot controlled.
621: IF (p_x_ahl_mtlxfr_rec.Lot_Number IS NOT NULL AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
622: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
623: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
624: FND_MSG_PUB.ADD;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: END IF;
627:
628:
632: FETCH AHL_SUBINV_CUR INTO l_Count;
633: IF(AHL_SUBINV_CUR%NOTFOUND) THEN
634: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVL_SRC_SUBINV');
635: FND_MESSAGE.Set_Token('INV',p_x_ahl_mtlxfr_rec.Src_Subinv_Name);
636: FND_MSG_PUB.ADD;
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: END IF;
639: CLOSE AHL_SUBINV_CUR;
640:
644: FETCH AHL_SUBINV_CUR INTO l_Count;
645: IF(AHL_SUBINV_CUR%NOTFOUND) THEN
646: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVL_DST_SUBINV');
647: FND_MESSAGE.Set_Token('INV',p_x_ahl_mtlxfr_rec.Dst_SubInv_Name);
648: FND_MSG_PUB.ADD;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: END IF;
651: CLOSE AHL_SUBINV_CUR;
652:
656: FETCH AHL_LOCATOR_CUR INTO l_Count;
657: IF(AHL_LOCATOR_CUR%NOTFOUND) THEN
658: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVL_SRC_LOCATOR');
659: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtlxfr_rec.Src_Locator_Id);
660: FND_MSG_PUB.ADD;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: END IF;
663: CLOSE AHL_LOCATOR_CUR;
664:
670: FETCH AHL_LOCATOR_CUR INTO l_Count;
671: IF(AHL_LOCATOR_CUR%NOTFOUND) THEN
672: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVL_DST_LOCATOR');
673: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtlxfr_rec.Dst_Locator_Id);
674: FND_MSG_PUB.ADD;
675: x_return_status := FND_API.G_RET_STS_ERROR;
676: END IF;
677: CLOSE AHL_LOCATOR_CUR;
678: END IF;
691: THEN
692: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
693: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtlxfr_rec.Revision);
694: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
695: FND_MSG_PUB.ADD;
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: ELSE
698: OPEN AHL_REVISION_CUR
699: (
706: THEN
707: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
708: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtlxfr_rec.Revision);
709: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
710: FND_MSG_PUB.ADD;
711: x_return_status := FND_API.G_RET_STS_ERROR;
712:
713: END IF;
714: CLOSE AHL_REVISION_CUR;
718: THEN
719: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
720: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtlxfr_rec.Revision);
721: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
722: FND_MSG_PUB.ADD;
723: x_return_status := FND_API.G_RET_STS_ERROR;
724: END IF;
725: END IF;
726:
736: IF (p_x_ahl_mtlxfr_rec.Quantity <> 1) THEN
737: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
738: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
739: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
740: FND_MSG_PUB.ADD;
741: x_return_status := FND_API.G_RET_STS_ERROR;
742: END IF;
743: END IF;
744:
764: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SUB_CODE');
765: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
766: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
767: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtlxfr_rec.Serial_Number);
768: FND_MSG_PUB.ADD;
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: END IF;
771:
772: IF G_DEBUG='Y' THEN
777: p_x_ahl_mtlxfr_rec.Src_Locator_Id <> l_curr_locator_id) THEN
778: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOC_CODE');
779: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
780: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtlxfr_rec.Serial_Number);
781: FND_MSG_PUB.ADD;
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: END IF;
784: ELSE
785: -- serial number not found.
785: -- serial number not found.
786: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
787: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
788: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtlxfr_rec.Serial_Number);
789: FND_MSG_PUB.ADD;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: END IF;
792:
793: CLOSE mtl_srl_num_csr;
1173: END IF;
1174: FND_MESSAGE.Set_Name('AHL','AHL_CMP_MTLXFR_ERROR');
1175: FND_MESSAGE.Set_Token('MSG',SQLERRM);
1176: FND_MESSAGE.Set_Token('ITEM',p_x_ahl_mtlxfr_rec.Inventory_Item_Id);
1177: FND_MSG_PUB.ADD;
1178: RAISE FND_API.G_EXC_ERROR;
1179:
1180: END INSERT_MTL_TXN_INTF;
1181: ---------------------------------------------------------------------------------------------------------
1433: END IF;
1434:
1435: -- Initialize message list if p_init_msg_list is set to TRUE
1436: IF FND_API.To_Boolean( p_init_msg_list) THEN
1437: FND_MSG_PUB.Initialize;
1438: END IF;
1439:
1440: -- Initialize Procedure return status to success
1441: x_return_status := FND_API.G_RET_STS_SUCCESS;
1458: -- If any of the user non-enterbale input parameter is invalid, throw the following error:
1459: -- AHL_UC_API_PARAMETER_INVALID The provided parameter NAME : VALUE is invalid.
1460:
1461: -- Get the error message count till this point
1462: l_msg_count := FND_MSG_PUB.count_msg;
1463:
1464: -- 1) Validate item and instance, and get the required details
1465: OPEN get_item_inst_det_csr (p_inv_item_id, p_item_mstr_org_id, p_item_inv_org_id, p_instance_id);
1466: FETCH get_item_inst_det_csr INTO l_item_inst_det_csr;
1471: END IF;
1472: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1473: FND_MESSAGE.Set_Token('NAME', 'p_inv_item_id');
1474: FND_MESSAGE.Set_Token('VALUE', p_inv_item_id);
1475: FND_MSG_PUB.ADD;
1476: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1477: FND_MESSAGE.Set_Token('NAME', 'p_item_mstr_org_id');
1478: FND_MESSAGE.Set_Token('VALUE', p_item_mstr_org_id);
1479: FND_MSG_PUB.ADD;
1475: FND_MSG_PUB.ADD;
1476: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1477: FND_MESSAGE.Set_Token('NAME', 'p_item_mstr_org_id');
1478: FND_MESSAGE.Set_Token('VALUE', p_item_mstr_org_id);
1479: FND_MSG_PUB.ADD;
1480: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1481: FND_MESSAGE.Set_Token('NAME', 'p_item_inv_org_id');
1482: FND_MESSAGE.Set_Token('VALUE', p_item_inv_org_id);
1483: FND_MSG_PUB.ADD;
1479: FND_MSG_PUB.ADD;
1480: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1481: FND_MESSAGE.Set_Token('NAME', 'p_item_inv_org_id');
1482: FND_MESSAGE.Set_Token('VALUE', p_item_inv_org_id);
1483: FND_MSG_PUB.ADD;
1484: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1485: FND_MESSAGE.Set_Token('NAME', 'p_instance_id');
1486: FND_MESSAGE.Set_Token('VALUE', p_instance_id);
1487: FND_MSG_PUB.ADD;
1483: FND_MSG_PUB.ADD;
1484: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1485: FND_MESSAGE.Set_Token('NAME', 'p_instance_id');
1486: FND_MESSAGE.Set_Token('VALUE', p_instance_id);
1487: FND_MSG_PUB.ADD;
1488: END IF;
1489: CLOSE get_item_inst_det_csr;
1490:
1491: -- 2) Validate the operation flag
1496: END IF;
1497: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1498: FND_MESSAGE.Set_Token('NAME', 'p_opr_flag');
1499: FND_MESSAGE.Set_Token('VALUE', p_opr_flag);
1500: FND_MSG_PUB.ADD;
1501: END IF;
1502:
1503: -- 3) Validate the source sub-inventory locator
1504: OPEN chk_locator_csr (p_item_inv_org_id, p_src_subinv_name, p_src_locator_id);
1510: END IF;
1511: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1512: FND_MESSAGE.Set_Token('NAME', 'p_src_subinv_name');
1513: FND_MESSAGE.Set_Token('VALUE', p_src_subinv_name);
1514: FND_MSG_PUB.ADD;
1515: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1516: FND_MESSAGE.Set_Token('NAME', 'p_src_locator_id');
1517: FND_MESSAGE.Set_Token('VALUE', p_src_locator_id);
1518: FND_MSG_PUB.ADD;
1514: FND_MSG_PUB.ADD;
1515: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1516: FND_MESSAGE.Set_Token('NAME', 'p_src_locator_id');
1517: FND_MESSAGE.Set_Token('VALUE', p_src_locator_id);
1518: FND_MSG_PUB.ADD;
1519: END IF;
1520: CLOSE chk_locator_csr;
1521:
1522: -- 4) Validate the source repair batch name
1530: END IF;
1531: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_API_PARAMETER_INVALID');
1532: FND_MESSAGE.Set_Token('NAME', 'p_src_rpr_batch_name');
1533: FND_MESSAGE.Set_Token('VALUE', p_src_rpr_batch_name);
1534: FND_MSG_PUB.ADD;
1535: END IF;
1536: CLOSE chk_rpr_batch_csr;
1537: END IF;
1538:
1536: CLOSE chk_rpr_batch_csr;
1537: END IF;
1538:
1539: -- If any errors occured, then raise them
1540: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1541: IF (l_log_statement >= l_log_current_level) THEN
1542: FND_LOG.string(l_log_statement, l_full_name, 'input parameters are invalid');
1543: END IF;
1544: RAISE FND_API.G_EXC_ERROR;
1555: FND_LOG.string(l_log_statement, l_full_name, 'repair quantity is NULL or greater than instance quantity');
1556: END IF;
1557: -- Please enter a positive number for the repair quantity, less than or equal to the instance quantity.
1558: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_RPR_QTY_INVLD');
1559: FND_MSG_PUB.ADD;
1560: RAISE FND_API.G_EXC_ERROR;
1561: ELSIF (p_repair_qty IS NOT NULL AND p_repair_qty = l_item_inst_det_csr.quantity) THEN
1562: -- if the repair status is 'PLANNING' or 'PRODUCTION', then check the workorders for the instance
1563: -- - if all are complete, then complete quantity is allowed
1570: FND_LOG.string(l_log_statement, l_full_name, 'repair quantity cant be complete');
1571: END IF;
1572: -- Please complete the open workorders for the instance before moving complete quantity.
1573: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_COMP_QTY_INVLD');
1574: FND_MSG_PUB.ADD;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF;
1577: l_dummy := NULL;
1578: END IF;
1593: -- The repair batch REPAIR_BATCH is invalid for the item ITEM.
1594: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_RPR_BATCH_INVLD');
1595: FND_MESSAGE.Set_Token('REPAIR_BATCH', p_x_dst_rpr_batch_name);
1596: FND_MESSAGE.Set_Token('ITEM', l_item_inst_det_csr.concatenated_segments);
1597: FND_MSG_PUB.ADD;
1598: RAISE FND_API.G_EXC_ERROR;
1599: END IF;
1600: CLOSE chk_rpr_batch_csr;
1601:
1606: END IF;
1607: -- The repair batch REPAIR_BATCH can contain only one lot-controlled item instance.
1608: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_LOT_UPDATE_INVLD');
1609: FND_MESSAGE.Set_Token('REPAIR_BATCH', p_x_dst_rpr_batch_name);
1610: FND_MSG_PUB.ADD;
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1613:
1614: OPEN Check_Past_Dated_Visit(p_x_dst_rpr_batch_name);
1621: END IF;
1622: -- Cannot add instances to the repair batch REPAIR_BATCH as it belongs to a past dated visit.
1623: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_CANNOT_ADD_INSTANCES');
1624: FND_MESSAGE.Set_Token('REPAIR_BATCH', p_x_dst_rpr_batch_name);
1625: FND_MSG_PUB.ADD;
1626: RAISE FND_API.G_EXC_ERROR;
1627: END IF;
1628: CLOSE Check_Past_Dated_Visit;
1629: END IF;
1647: CLOSE get_org_name_csr;
1648: -- No valid Component Visit exists for the organization 'ORG_NAME'.
1649: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CMP_COMP_VISIT_NULL');
1650: FND_MESSAGE.Set_Token('ORG_NAME', l_org_name);
1651: FND_MSG_PUB.ADD;
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654:
1655: -- 2) Create the summary task
1911: EXCEPTION
1912: WHEN FND_API.G_EXC_ERROR THEN
1913: ROLLBACK TO Process_Repair_Item_Pvt;
1914: x_return_status := FND_API.G_RET_STS_ERROR;
1915: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1916: p_data => x_msg_data,
1917: p_encoded => FND_API.G_FALSE);
1918: IF (l_log_exception >= l_log_current_level) THEN
1919: FND_LOG.string(l_log_exception, l_full_name, 'Execution Error: ' || x_msg_data);
1921:
1922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1923: ROLLBACK TO Process_Repair_Item_Pvt;
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1926: p_data => x_msg_data,
1927: p_encoded => FND_API.G_FALSE);
1928: IF (l_log_unexpected >= l_log_current_level) THEN
1929: FND_LOG.string(l_log_unexpected, l_full_name, 'Unexpected Exception: ' || x_msg_data);
1931:
1932: WHEN OTHERS THEN
1933: ROLLBACK TO Process_Repair_Item_Pvt;
1934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1936: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1937: p_procedure_name => l_api_name,
1938: p_error_text => SUBSTR(SQLERRM,1,500));
1939: END IF;
1932: WHEN OTHERS THEN
1933: ROLLBACK TO Process_Repair_Item_Pvt;
1934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1936: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1937: p_procedure_name => l_api_name,
1938: p_error_text => SUBSTR(SQLERRM,1,500));
1939: END IF;
1940: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1936: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1937: p_procedure_name => l_api_name,
1938: p_error_text => SUBSTR(SQLERRM,1,500));
1939: END IF;
1940: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1941: p_data => x_msg_data,
1942: p_encoded => fnd_api.G_FALSE);
1943: IF (l_log_unexpected >= l_log_current_level) THEN
1944: FND_LOG.string(l_log_unexpected, l_full_name, 'Other Exception: ' || x_msg_data);
2039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2040: END IF;
2041: -- Initialize message list if p_init_msg_list is set to TRUE
2042: IF FND_API.To_Boolean(p_init_msg_list) THEN
2043: FND_MSG_PUB.Initialize;
2044: END IF;
2045:
2046: -- Initialize API return status to success
2047: x_return_status := FND_API.G_RET_STS_SUCCESS;
2057:
2058: IF l_batch_dtl_rec.status_code IS NOT NULL AND l_batch_dtl_rec.status_code IN ('CLOSED','CANCELLED','DELETED') THEN
2059: FND_MESSAGE.SET_NAME('AHL','AHL_CMP_CANNOT_CLOSE');
2060: FND_MESSAGE.Set_Token('BATCH', l_batch_dtl_rec.repair_batch_name);
2061: FND_MSG_PUB.ADD;
2062: RAISE FND_API.G_EXC_ERROR;
2063: END IF;
2064:
2065: OPEN Get_Workorders(p_repair_batch_id);
2079: l_batch_qty := AHL_CMP_UTIL_PKG.Get_Batch_Qty(l_batch_dtl_rec.repair_batch_name);
2080: IF l_batch_qty <> 0 THEN
2081: FND_MESSAGE.SET_NAME('AHL','AHL_CMP_BATCH_QTY_NOT_ZERO');
2082: FND_MESSAGE.Set_Token('BATCH', l_batch_dtl_rec.repair_batch_name);
2083: FND_MSG_PUB.ADD;
2084: RAISE FND_API.G_EXC_ERROR;
2085: END IF;
2086:
2087: l_batch_wo_qty := AHL_CMP_UTIL_PKG.Get_Workorder_Qty(l_batch_dtl_rec.repair_batch_name);
2087: l_batch_wo_qty := AHL_CMP_UTIL_PKG.Get_Workorder_Qty(l_batch_dtl_rec.repair_batch_name);
2088: IF l_batch_wo_qty <> 0 THEN
2089: FND_MESSAGE.SET_NAME('AHL','AHL_CMP_WO_QTY_NOT_ZERO');
2090: FND_MESSAGE.Set_Token('BATCH', l_batch_dtl_rec.repair_batch_name);
2091: FND_MSG_PUB.ADD;
2092: RAISE FND_API.G_EXC_ERROR;
2093: END IF;
2094:
2095: l_cost_price_rec.visit_id := l_batch_dtl_rec.visit_id;
2119: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
2120: END IF;
2121:
2122: -- Check Error Message stack.
2123: l_msg_count := FND_MSG_PUB.count_msg;
2124: IF l_msg_count > 0 THEN
2125: x_return_status := FND_API.G_RET_STS_ERROR;
2126: RAISE FND_API.G_EXC_ERROR;
2127: END IF;
2168: END LOOP;
2169: CLOSE get_wip_entity;
2170:
2171: -- Check Error Message stack.
2172: l_msg_count := FND_MSG_PUB.count_msg;
2173: IF l_msg_count > 0 THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: RAISE FND_API.G_EXC_ERROR;
2176: END IF;
2191: ELSE
2192:
2193: FND_MESSAGE.SET_NAME('AHL','AHL_CMP_OPEN_WO_EXISTS'); --Repair Batch cannot be Closed as it has Open workorders.
2194: FND_MESSAGE.Set_Token('REPAIR_BATCH', l_batch_dtl_rec.repair_batch_name);
2195: FND_MSG_PUB.ADD;
2196: RAISE FND_API.G_EXC_ERROR;
2197: END IF;
2198:
2199: IF G_DEBUG='Y' THEN
2209: EXCEPTION
2210: WHEN FND_API.G_EXC_ERROR THEN
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212: Rollback to Close_Repair_Batch_Pvt;
2213: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2214: p_data => x_msg_data,
2215: P_ENCODED => FND_API.G_FALSE);
2216:
2217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216:
2217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2218: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
2219: Rollback to Close_Repair_Batch_Pvt;
2220: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2221: P_DATA => X_MSG_DATA,
2222: p_encoded => fnd_api.g_false);
2223:
2224: WHEN OTHERS THEN
2223:
2224: WHEN OTHERS THEN
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2226: Rollback to Close_Repair_Batch_Pvt;
2227: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2228: p_procedure_name => 'Close_Repair_Batch',
2229: p_error_text => SQLERRM);
2230: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2231: p_data => x_msg_data,
2226: Rollback to Close_Repair_Batch_Pvt;
2227: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2228: p_procedure_name => 'Close_Repair_Batch',
2229: p_error_text => SQLERRM);
2230: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2231: p_data => x_msg_data,
2232: p_encoded => fnd_api.g_false);
2233:
2234: END Close_Repair_Batch;
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452: END IF;
2453: -- Initialize message list if p_init_msg_list is set to TRUE
2454: IF FND_API.To_Boolean(p_init_msg_list) THEN
2455: FND_MSG_PUB.Initialize;
2456: END IF;
2457:
2458: -- Initialize API return status to success
2459: x_return_status := FND_API.G_RET_STS_SUCCESS;
2750:
2751: IF (get_csi_obj_ver_num%NOTFOUND) THEN
2752: CLOSE get_csi_obj_ver_num;
2753: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_DELETED');
2754: FND_MSG_PUB.add;
2755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2756: ELSE
2757: CLOSE get_csi_obj_ver_num;
2758: END IF;
2800: EXCEPTION
2801: WHEN FND_API.G_EXC_ERROR THEN
2802: x_return_status := FND_API.G_RET_STS_ERROR;
2803: Rollback to Move_To_InRepair_Locator_Pvt;
2804: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2805: p_data => x_msg_data,
2806: P_ENCODED => FND_API.G_FALSE);
2807:
2808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2807:
2808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2809: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
2810: Rollback to Move_To_InRepair_Locator_Pvt;
2811: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2812: P_DATA => X_MSG_DATA,
2813: p_encoded => fnd_api.g_false);
2814:
2815: WHEN OTHERS THEN
2814:
2815: WHEN OTHERS THEN
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: Rollback to Move_To_InRepair_Locator_Pvt;
2818: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2819: p_procedure_name => 'Move_To_InRepair_Locator',
2820: p_error_text => SQLERRM);
2821: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2822: p_data => x_msg_data,
2817: Rollback to Move_To_InRepair_Locator_Pvt;
2818: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2819: p_procedure_name => 'Move_To_InRepair_Locator',
2820: p_error_text => SQLERRM);
2821: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2822: p_data => x_msg_data,
2823: p_encoded => fnd_api.g_false);
2824:
2825: END Move_To_InRepair_Locator;
2919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2920: END IF;
2921: -- Initialize message list if p_init_msg_list is set to TRUE
2922: IF FND_API.To_Boolean(p_init_msg_list) THEN
2923: FND_MSG_PUB.Initialize;
2924: END IF;
2925:
2926: -- Initialize API return status to success
2927: x_return_status := FND_API.G_RET_STS_SUCCESS;
2937: FETCH get_csi_item_instance_det_csr INTO l_csi_item_instance_det;
2938: CLOSE get_csi_item_instance_det_csr;
2939:
2940: -- Get the error message count
2941: l_msg_count := FND_MSG_PUB.count_msg;
2942:
2943: -- Set csi instance record
2944: l_csi_instance_rec.inventory_item_id := l_csi_item_instance_det.inventory_item_id;
2945: l_csi_instance_rec.vld_organization_id := l_csi_item_instance_det.inv_organization_id;
2964:
2965: IF NOT(l_return_val) THEN
2966: FND_MESSAGE.set_name('AHL', 'AHL_UC_ATTRIB_CODE_MISSING');
2967: FND_MESSAGE.set_token('CODE', 'AHL_MFG_DATE');
2968: FND_MSG_PUB.ADD;
2969: RAISE FND_API.G_EXC_ERROR;
2970: ELSE
2971: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
2972: l_csi_extend_attrib_rec.attribute_value := TO_CHAR(SYSDATE, 'DD/MM/YYYY');
2995:
2996: IF NOT(l_return_val) THEN
2997: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_TXNCODE_INVALID');
2998: FND_MESSAGE.Set_Token('CODE', 'CMRO_MAINTENANCE_WORK_ORDER');
2999: FND_MSG_PUB.ADD;
3000: RAISE FND_API.G_EXC_ERROR;
3001: END IF;
3002:
3003: IF (l_log_statement >= l_log_current_level) THEN
3045: -- Error Handling
3046: EXCEPTION
3047: WHEN FND_API.G_EXC_ERROR THEN
3048: x_return_status := FND_API.G_RET_STS_ERROR;
3049: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3050: p_data => x_msg_data,
3051: P_ENCODED => FND_API.G_FALSE);
3052:
3053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3051: P_ENCODED => FND_API.G_FALSE);
3052:
3053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3054: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
3055: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3056: P_DATA => X_MSG_DATA,
3057: p_encoded => fnd_api.g_false);
3058:
3059: WHEN OTHERS THEN
3057: p_encoded => fnd_api.g_false);
3058:
3059: WHEN OTHERS THEN
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3062: p_procedure_name => 'Create_Instance_in_WIP',
3063: p_error_text => SQLERRM);
3064: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3065: p_data => x_msg_data,
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3062: p_procedure_name => 'Create_Instance_in_WIP',
3063: p_error_text => SQLERRM);
3064: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3065: p_data => x_msg_data,
3066: p_encoded => fnd_api.g_false);
3067: END Create_Instance_in_WIP;
3068:
3156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3157: END IF;
3158: -- Initialize message list if p_init_msg_list is set to TRUE
3159: IF FND_API.To_Boolean(p_init_msg_list) THEN
3160: FND_MSG_PUB.Initialize;
3161: END IF;
3162:
3163: -- Initialize API return status to success
3164: x_return_status := FND_API.G_RET_STS_SUCCESS;
3243: -- Error Handling
3244: EXCEPTION
3245: WHEN FND_API.G_EXC_ERROR THEN
3246: x_return_status := FND_API.G_RET_STS_ERROR;
3247: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3248: p_data => x_msg_data,
3249: P_ENCODED => FND_API.G_FALSE);
3250:
3251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3249: P_ENCODED => FND_API.G_FALSE);
3250:
3251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3252: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
3253: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3254: P_DATA => X_MSG_DATA,
3255: p_encoded => fnd_api.g_false);
3256:
3257: WHEN OTHERS THEN
3255: p_encoded => fnd_api.g_false);
3256:
3257: WHEN OTHERS THEN
3258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3259: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3260: p_procedure_name => 'Update_EAM_Workorders',
3261: p_error_text => SQLERRM);
3262: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3263: p_data => x_msg_data,
3258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3259: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3260: p_procedure_name => 'Update_EAM_Workorders',
3261: p_error_text => SQLERRM);
3262: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3263: p_data => x_msg_data,
3264: p_encoded => fnd_api.g_false);
3265: END Update_EAM_Workorders;
3266: --------------------------------------------------------------------------------------------------------------
3318: END IF;
3319:
3320: IF p_x_ahl_mtlrtn_rec.Return_Qty IS NULL THEN
3321: FND_MESSAGE.Set_Name('AHL','AHL_CMP_RTN_QTY_NULL'); -- Return quantity cannot be null.
3322: FND_MSG_PUB.ADD;
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: ELSIF p_x_ahl_mtlrtn_rec.Return_Qty <= 0 THEN
3325: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVALID_RTN_QTY'); -- Invalid Return quantity specified.
3326: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtlrtn_rec.Return_Qty);
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: ELSIF p_x_ahl_mtlrtn_rec.Return_Qty <= 0 THEN
3325: FND_MESSAGE.Set_Name('AHL','AHL_CMP_INVALID_RTN_QTY'); -- Invalid Return quantity specified.
3326: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtlrtn_rec.Return_Qty);
3327: FND_MSG_PUB.ADD;
3328: x_return_status := FND_API.G_RET_STS_ERROR;
3329: END IF;
3330:
3331: IF p_x_ahl_mtlrtn_rec.Instance_Qty IS NOT NULL THEN
3330:
3331: IF p_x_ahl_mtlrtn_rec.Instance_Qty IS NOT NULL THEN
3332: IF p_x_ahl_mtlrtn_rec.Return_Qty > p_x_ahl_mtlrtn_rec.Instance_Qty THEN
3333: FND_MESSAGE.Set_Name('AHL','AHL_CMP_RTNQTY_GRTR_INSTQTY'); -- Return quantity cannot be greater than instance quantity.
3334: FND_MSG_PUB.ADD;
3335: x_return_status := FND_API.G_RET_STS_ERROR;
3336: END IF;
3337: END IF;
3338:
3337: END IF;
3338:
3339: IF p_x_ahl_mtlrtn_rec.Return_Condition IS NULL THEN
3340: FND_MESSAGE.Set_Name('AHL','AHL_CMP_RET_COND_NULL'); -- Condition cannot be null.
3341: FND_MSG_PUB.ADD;
3342: x_return_status := FND_API.G_RET_STS_ERROR;
3343: END IF;
3344:
3345: IF p_x_ahl_mtlrtn_rec.Dst_SubInv_Name IS NULL THEN
3343: END IF;
3344:
3345: IF p_x_ahl_mtlrtn_rec.Dst_SubInv_Name IS NULL THEN
3346: FND_MESSAGE.Set_Name('AHL','AHL_CMP_SUBINV_NULL'); -- Sub Inventory cannot be null.
3347: FND_MSG_PUB.ADD;
3348: x_return_status := FND_API.G_RET_STS_ERROR;
3349: END IF;
3350:
3351: IF (p_x_ahl_mtlrtn_rec.Dst_Locator_Id IS NULL AND p_x_ahl_mtlrtn_rec.Dst_Locator_Segments IS NULL) THEN
3349: END IF;
3350:
3351: IF (p_x_ahl_mtlrtn_rec.Dst_Locator_Id IS NULL AND p_x_ahl_mtlrtn_rec.Dst_Locator_Segments IS NULL) THEN
3352: FND_MESSAGE.Set_Name('AHL','AHL_CMP_LOCATOR_NULL'); -- Locator cannot be null.
3353: FND_MSG_PUB.ADD;
3354: x_return_status := FND_API.G_RET_STS_ERROR;
3355: END IF;
3356:
3357:
3365:
3366: IF (nvl(l_srl_ctrl_code,0) <> nvl(C_NO_SERIAL_CONTROL,0) ) THEN --Serialized Item
3367: FND_MESSAGE.Set_Name('AHL','AHL_CMP_CANNOT_RETURN'); -- Cannot perform return as there exists open workorders associated to the instance
3368: FND_MESSAGE.Set_Token('INSTANCE',p_x_ahl_mtlrtn_rec.Instance_Id);
3369: FND_MSG_PUB.ADD;
3370: x_return_status := FND_API.G_RET_STS_ERROR;
3371: ELSE
3372: FND_MESSAGE.Set_Name('AHL','AHL_CMP_CANNOT_RTN_FULL_QTY'); -- Cannot return complete quantity as there exists open workorders associated to the instance
3373: FND_MESSAGE.Set_Token('INSTANCE',p_x_ahl_mtlrtn_rec.Instance_Id);
3370: x_return_status := FND_API.G_RET_STS_ERROR;
3371: ELSE
3372: FND_MESSAGE.Set_Name('AHL','AHL_CMP_CANNOT_RTN_FULL_QTY'); -- Cannot return complete quantity as there exists open workorders associated to the instance
3373: FND_MESSAGE.Set_Token('INSTANCE',p_x_ahl_mtlrtn_rec.Instance_Id);
3374: FND_MSG_PUB.ADD;
3375: x_return_status := FND_API.G_RET_STS_ERROR;
3376: END IF;
3377: END IF;
3378:
3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3509: END IF;
3510: -- Initialize message list if p_init_msg_list is set to TRUE
3511: IF FND_API.To_Boolean(p_init_msg_list) THEN
3512: FND_MSG_PUB.Initialize;
3513: END IF;
3514:
3515: -- Initialize API return status to success
3516: x_return_status := FND_API.G_RET_STS_SUCCESS;
3875: EXCEPTION
3876: WHEN FND_API.G_EXC_ERROR THEN
3877: x_return_status := FND_API.G_RET_STS_ERROR;
3878: Rollback to PERFORM_RETURN_TXN_PVT;
3879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3880: p_data => x_msg_data,
3881: p_encoded => fnd_api.g_false);
3882:
3883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3882:
3883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3885: Rollback to PERFORM_RETURN_TXN_PVT;
3886: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3887: p_data => x_msg_data,
3888: p_encoded => fnd_api.g_false);
3889:
3890: WHEN OTHERS THEN
3889:
3890: WHEN OTHERS THEN
3891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3892: Rollback to PERFORM_RETURN_TXN_PVT;
3893: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3894: p_procedure_name => 'Perform_Return_Txn',
3895: p_error_text => SQLERRM);
3896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3897: p_data => x_msg_data,
3892: Rollback to PERFORM_RETURN_TXN_PVT;
3893: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3894: p_procedure_name => 'Perform_Return_Txn',
3895: p_error_text => SQLERRM);
3896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3897: p_data => x_msg_data,
3898: p_encoded => fnd_api.g_false);
3899:
3900: END PERFORM_RETURN_TXN;