745: fnd_message.set_name('MRP', 'GEN-INVALID ENTITY');
746: fnd_message.set_token('ENTITY', 'EC_FORECAST_DATE', TRUE);
747: fnd_message.set_token('VALUE', to_char(p_start_date));
748: fnd_msg_pub.add;
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: IF adjust_date(p_end_date, l_new_end_date, 1, p_workday_control,
752: p_organization_id) = FALSE
753: THEN
754: fnd_message.set_name('MRP', 'GEN-INVALID ENTITY');
755: fnd_message.set_token('ENTITY', 'EC_FORECAST_DATE', TRUE);
756: fnd_message.set_token('VALUE', to_char(p_end_date));
757: fnd_msg_pub.add;
758: RAISE FND_API.G_EXC_ERROR;
759: END IF;
760:
761: l_count := mrp_calendar.days_between(p_organization_id,1,
762: l_new_start_date,l_new_end_date);
778: CLOSE C1;
779:
780: x_quantity_per_day := l_quantity_per_day;
781:
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: EXCEPTION
785:
786: WHEN FND_API.G_EXC_ERROR THEN
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: EXCEPTION
785:
786: WHEN FND_API.G_EXC_ERROR THEN
787:
788: x_return_status := FND_API.G_RET_STS_ERROR;
789:
790: -- Get message count and data
784: EXCEPTION
785:
786: WHEN FND_API.G_EXC_ERROR THEN
787:
788: x_return_status := FND_API.G_RET_STS_ERROR;
789:
790: -- Get message count and data
791:
792: FND_MSG_PUB.Count_And_Get
793: ( p_count => x_msg_count
794: , p_data => x_msg_data
795: );
796:
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798:
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
800:
801: -- Get message count and data
795: );
796:
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798:
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
800:
801: -- Get message count and data
802:
803: FND_MSG_PUB.Count_And_Get
806: );
807:
808: WHEN OTHERS THEN
809:
810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
811:
812: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
813: THEN
814: FND_MSG_PUB.Add_Exc_Msg