168: END IF;
169: --
170: IF FND_API.to_boolean(p_init_msg_list)
171: THEN
172: FND_MSG_PUB.initialize;
173: END IF;
174: --
175: p_flag := 'Y' ;
176:
621: NO_NO_EXCP := 'N' ;
622: END IF ;
623:
624: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
625: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
626:
627:
628: EXCEPTION
629: WHEN date_null
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638: X_return_code := SQLCODE;
639: x_return_status := FND_API.G_RET_STS_ERROR;
640: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
641:
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: X_return_code := SQLCODE;
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641:
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: X_return_code := SQLCODE;
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
646:
647: WHEN OTHERS THEN
648: X_return_code := SQLCODE;
649: x_return_status := FND_API.G_RET_STS_ERROR;
646:
647: WHEN OTHERS THEN
648: X_return_code := SQLCODE;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
651:
652: /*
653: WHEN OTHERS
654: THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715:
716: IF FND_API.to_Boolean(p_init_msg_list) THEN
717: FND_MSG_PUB.initialize;
718: END IF;
719:
720: OPEN plant_cur;
721: FETCH plant_cur INTO l_organization_id, l_calendar_code;
759: x_return_code,
760: p_rec,p_flag);
761:
762: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
763: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
764:
765:
766: EXCEPTION
767: WHEN undetermined_calendar THEN
766: EXCEPTION
767: WHEN undetermined_calendar THEN
768: X_return_code := -100;
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
771: log_message('The Calendar is not assigned to resource and organizations ');
772:
773: WHEN invalid_resource_id THEN
774: X_return_code := -101;
772:
773: WHEN invalid_resource_id THEN
774: X_return_code := -101;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
776: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
777: log_message('Invalid Resouce Id ');
778:
779: WHEN FND_API.G_EXC_ERROR THEN
780: X_return_code := SQLCODE;
778:
779: WHEN FND_API.G_EXC_ERROR THEN
780: X_return_code := SQLCODE;
781: x_return_status := FND_API.G_RET_STS_ERROR;
782: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
783:
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: X_return_code := SQLCODE;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
783:
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: X_return_code := SQLCODE;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
788:
789: WHEN OTHERS THEN
790: X_return_code := SQLCODE;
791: x_return_status := FND_API.G_RET_STS_ERROR;
788:
789: WHEN OTHERS THEN
790: X_return_code := SQLCODE;
791: x_return_status := FND_API.G_RET_STS_ERROR;
792: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
793:
794: END rsrc_avl ; /* the proc without cal_id */
795:
796: END gmp_rsrc_avl_pkg; /* End of package rsrc_avl_pkg */