[Home] [Help]
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
1564: -- - else, all but 1 quantity is allowed
1565: IF (AHL_CMP_UTIL_PKG.Get_Rpr_Status_For_Inst(p_instance_id, p_item_inv_org_id) IN ('PLANNING', 'PRODUCTION')) THEN
1566: l_dummy := AHL_CMP_UTIL_PKG.Are_All_Workorders_Complete(NULL, p_instance_id, p_item_inv_org_id);
1567: IF (l_dummy = 'N') THEN
1568: -- repair quantity can't be complete
1569: IF (l_log_statement >= l_log_current_level) 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
1564: -- - else, all but 1 quantity is allowed
1565: IF (AHL_CMP_UTIL_PKG.Get_Rpr_Status_For_Inst(p_instance_id, p_item_inv_org_id) IN ('PLANNING', 'PRODUCTION')) THEN
1566: l_dummy := AHL_CMP_UTIL_PKG.Are_All_Workorders_Complete(NULL, p_instance_id, p_item_inv_org_id);
1567: IF (l_dummy = 'N') THEN
1568: -- repair quantity can't be complete
1569: IF (l_log_statement >= l_log_current_level) THEN
1570: FND_LOG.string(l_log_statement, l_full_name, 'repair quantity cant be complete');
1635: -- Else, get the locator id for the existing destination repair batch.
1636:
1637: IF (p_opr_flag = G_OP_CREATE) THEN
1638: -- 1) Get the Component Visit for the org
1639: l_visit_id := AHL_CMP_UTIL_PKG.Get_Comp_Visit_For_Org (p_item_inv_org_id);
1640: IF (l_visit_id IS NULL) THEN
1641: -- no component visit exists for the org
1642: IF (l_log_statement >= l_log_current_level) THEN
1643: FND_LOG.string(l_log_statement, l_full_name, 'no component visit exists for the org');
2075: CLOSE GET_WORKORDERS;
2076:
2077: IF l_close_wo_flag THEN -- Either all the associated Workorders have come to an end state(Complete,Closed,Cancelled,Complete-No-Charge)/no workorders have been associated.
2078:
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;
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);
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;
3354: x_return_status := FND_API.G_RET_STS_ERROR;
3355: END IF;
3356:
3357:
3358: l_result := AHL_CMP_UTIL_PKG.Are_All_Workorders_Complete(p_x_ahl_mtlrtn_rec.repair_batch_name, p_x_ahl_mtlrtn_rec.Instance_Id , p_x_ahl_mtlrtn_rec.Organization_Id);
3359:
3360: -- If all the workorders completed is false and Return Qty equals Instance Qty.
3361: IF l_result <> 'Y' AND p_x_ahl_mtlrtn_rec.Return_Qty = p_x_ahl_mtlrtn_rec.Instance_Qty THEN
3362: OPEN Get_Srl_Ctrl_Code(p_x_ahl_mtlrtn_rec.Organization_Id,p_x_ahl_mtlrtn_rec.Inventory_Item_Id);
3683: l_create_flag := false;
3684:
3685: -- For Serialized instances, if WO-WO reservation exists then transfer it to INV-WO reservation
3686: IF (p_x_ahl_mtlrtn_tbl(i).Serial_Number IS NOT NULL ) THEN
3687: IF ( AHL_CMP_UTIL_PKG.Check_Rts_Workorder_Exists(p_x_ahl_mtlrtn_tbl(i).Repair_Batch_Name, p_x_ahl_mtlrtn_tbl(i).Instance_Id) = 'Y' ) THEN
3688:
3689: OPEN Get_RTS_WO_Details(p_x_ahl_mtlrtn_tbl(i).Repair_Batch_Name, p_x_ahl_mtlrtn_tbl(i).Instance_Id);
3690: FETCH Get_RTS_WO_Details INTO l_rts_wo_dtls_rec;
3691: CLOSE Get_RTS_WO_Details;