1457:
1458: END LOOP;
1459:
1460: -- Initialize API return status to success
1461: p_return_status := FND_API.G_RET_STS_SUCCESS;
1462:
1463: IF l_flag THEN
1464: p_return_status := 'SUCCESS_FIRE_RECALC';
1465: END IF;
1467: PNP_DEBUG_PKG.debug ('PN_INDEX_LEASE_COMMON_PKG.UPDATE_LOCATION_FOR_IR_TERMS (-)');
1468:
1469: EXCEPTION
1470:
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: p_return_status := FND_API.G_RET_STS_ERROR;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1468:
1469: EXCEPTION
1470:
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: p_return_status := FND_API.G_RET_STS_ERROR;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476:
1470:
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: p_return_status := FND_API.G_RET_STS_ERROR;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476:
1477: WHEN OTHERS THEN
1478: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: p_return_status := FND_API.G_RET_STS_ERROR;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476:
1477: WHEN OTHERS THEN
1478: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1479:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476:
1477: WHEN OTHERS THEN
1478: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1479:
1480: END UPDATE_LOCATION_FOR_IR_TERMS;
1481:
1482: /* --- OVERLOADED functions and procedures for MOAC START --- */