84: REM+=========================================================================+
85: */
86: PROCEDURE rsrc_avl(
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
89: p_cal_code IN VARCHAR2, -- B4999940
90: p_resource_id IN NUMBER,
91: p_from_date IN DATE,
92: p_to_date IN DATE,
158:
159: BEGIN
160:
161: /* New Lines Added for API Standards */
162: IF NOT FND_API.compatible_api_call(gmp_api_version,
163: p_api_version,
164: gmp_api_name,
165: G_PKG_NAME)
166: THEN
163: p_api_version,
164: gmp_api_name,
165: G_PKG_NAME)
166: THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169: --
170: IF FND_API.to_boolean(p_init_msg_list)
171: THEN
166: THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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: --
231: stmt_no := 15;
232: OPEN cal_c1;
233:
234: IF cal_c1%NOTFOUND THEN
235: RAISE fnd_api.g_exc_error;
236: END IF;
237:
238: loop
239: FETCH cal_c1 INTO calendar_record;
256: /* OPEN Unavailable Cursor */
257: OPEN unavail_c2;
258:
259: IF unavail_c2%NOTFOUND THEN
260: RAISE fnd_api.g_exc_error;
261: END IF;
262:
263: loop
264: FETCH unavail_c2 INTO unavail_resource_record;
295: stmt_no := 20;
296:
297: FOR c in 1..cal_rec.COUNT
298: LOOP
299: x_return_status := FND_API.G_RET_STS_SUCCESS;
300: IF NO_NO_EXCP = 'Y' THEN
301: EXIT ;
302: END IF ;
303: NO_EXCP := 'N';
633: WHEN qty_null
634: THEN
635: log_message('Qty is 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:
635: log_message('Qty is 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;
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;
645: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
646:
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;
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;
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;
650: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
651:
652: /*
653: WHEN OTHERS
674: REM+=========================================================================+
675: */
676: PROCEDURE rsrc_avl(
677: p_api_version IN NUMBER,
678: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
679: p_resource_id IN NUMBER,
680: p_from_date IN DATE,
681: p_to_date IN DATE,
682: x_return_status OUT NOCOPY VARCHAR2,
705: WHERE organization_id = l_organization_id ;
706:
707: BEGIN
708:
709: IF NOT FND_API.compatible_api_call(gmp_api_version,
710: p_api_version,
711: gmp_api_name,
712: G_PKG_NAME) THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
709: IF NOT FND_API.compatible_api_call(gmp_api_version,
710: p_api_version,
711: gmp_api_name,
712: G_PKG_NAME) 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;
712: G_PKG_NAME) 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;
720: OPEN plant_cur;
721: FETCH plant_cur INTO l_organization_id, l_calendar_code;
722:
723: IF plant_cur%NOTFOUND THEN
724: RAISE fnd_api.g_exc_error;
725: END IF;
726:
727: IF plant_cur%ROWCOUNT <>1 THEN
728: p_flag := 'N' ;
735: OPEN org_calendar_cur ;
736: FETCH org_calendar_cur INTO l_calendar_code ;
737:
738: IF org_calendar_cur%NOTFOUND THEN
739: RAISE fnd_api.g_exc_error;
740: END IF;
741:
742: IF org_calendar_cur%NOTFOUND THEN
743: p_flag := 'N' ;
765:
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
771: log_message('The Calendar is not assigned to resource and organizations ');
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
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;
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:
777: log_message('Invalid Resouce Id ');
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;
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;
787: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
788:
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;
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;
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;
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: