277: -- Standard Start of API savepoint
278: SAVEPOINT create_forecast_pvt;
279:
280: -- Standard call to check for call compatibility.
281: IF NOT FND_API.Compatible_API_Call (l_api_version ,
282: p_api_version ,
283: l_api_name ,
284: G_PKG_NAME )
285: THEN
282: p_api_version ,
283: l_api_name ,
284: G_PKG_NAME )
285: THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize API return status to success
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290:
285: THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize API return status to success
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290:
291: open c_forecast_info;
292: fetch c_forecast_info into l_rec;
293: close c_forecast_info;
391: x_start_date := trunc(sysdate) - l_rec.history_periods * l_rec.period_size;
392: x_end_date := trunc(sysdate) + (l_rec.forecast_periods - 1) * l_rec.period_size;
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
397: P_API_NAME => L_API_NAME
398: ,P_PKG_NAME => G_PKG_NAME
399: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR