239: EXCEPTION
240: WHEN PRESENT_VALUE_NOT_FOUND THEN
241: ROLLBACK TO CREATE_LEASE;
242: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
243: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
244: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
245: FND_MSG_PUB.ADD;
246: WHEN VALUE_ERROR_EXCEPTION THEN
247: ROLLBACK TO CREATE_LEASE;
240: WHEN PRESENT_VALUE_NOT_FOUND THEN
241: ROLLBACK TO CREATE_LEASE;
242: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
243: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
244: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
245: FND_MSG_PUB.ADD;
246: WHEN VALUE_ERROR_EXCEPTION THEN
247: ROLLBACK TO CREATE_LEASE;
248: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
318: ----------------------------------------------------
319: -- CHECK FOR G_MISS_CHAR
320: ----------------------------------------------------
321: IF L_LEASE_DETAILS_REC_NEW.DESCRIPTION = FND_API.G_MISS_CHAR THEN
322: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
323: FND_MESSAGE.SET_TOKEN ('CALLING_FN','UPDATE_LEASE');
324: FND_MSG_PUB.ADD;
325: RAISE VALUE_ERROR_EXCEPTION;
326: END IF;
319: -- CHECK FOR G_MISS_CHAR
320: ----------------------------------------------------
321: IF L_LEASE_DETAILS_REC_NEW.DESCRIPTION = FND_API.G_MISS_CHAR THEN
322: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
323: FND_MESSAGE.SET_TOKEN ('CALLING_FN','UPDATE_LEASE');
324: FND_MSG_PUB.ADD;
325: RAISE VALUE_ERROR_EXCEPTION;
326: END IF;
327: