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;
250: /* OPEN Unavailable Cursor */
251: OPEN unavail_c2;
252:
253: IF unavail_c2%NOTFOUND THEN
254: RAISE fnd_api.g_exc_error;
255: END IF;
256:
257: loop
258: FETCH unavail_c2 INTO unavail_resource_record;
289: stmt_no := 20;
290:
291: FOR c in 1..cal_rec.COUNT
292: LOOP
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294: IF NO_NO_EXCP = 'Y' THEN
295: EXIT ;
296: END IF ;
297: NO_EXCP := 'N';
603: WHEN qty_null
604: THEN
605: log_message('Qty is NULL :' );
606:
607: WHEN FND_API.G_EXC_ERROR THEN
608: X_return_code := SQLCODE;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
611:
605: log_message('Qty is NULL :' );
606:
607: WHEN FND_API.G_EXC_ERROR THEN
608: X_return_code := SQLCODE;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
611:
612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
613: X_return_code := SQLCODE;
608: X_return_code := SQLCODE;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
611:
612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
613: X_return_code := SQLCODE;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
616:
610: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
611:
612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
613: X_return_code := SQLCODE;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
616:
617: WHEN OTHERS THEN
618: X_return_code := SQLCODE;
615: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
616:
617: WHEN OTHERS THEN
618: X_return_code := SQLCODE;
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
621:
622: /*
623: WHEN OTHERS
644: REM+=========================================================================+
645: */
646: PROCEDURE rsrc_avl(
647: p_api_version IN NUMBER,
648: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
649: p_resource_id IN NUMBER,
650: p_from_date IN DATE,
651: p_to_date IN DATE,
652: x_return_status OUT NOCOPY VARCHAR2,
675: WHERE organization_id = l_organization_id ;
676:
677: BEGIN
678:
679: IF NOT FND_API.compatible_api_call(gmp_api_version,
680: p_api_version,
681: gmp_api_name,
682: G_PKG_NAME) THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: IF NOT FND_API.compatible_api_call(gmp_api_version,
680: p_api_version,
681: gmp_api_name,
682: G_PKG_NAME) THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
686: IF FND_API.to_Boolean(p_init_msg_list) THEN
687: FND_MSG_PUB.initialize;
682: G_PKG_NAME) THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
686: IF FND_API.to_Boolean(p_init_msg_list) THEN
687: FND_MSG_PUB.initialize;
688: END IF;
689:
690: OPEN plant_cur;
690: OPEN plant_cur;
691: FETCH plant_cur INTO l_organization_id, l_calendar_code;
692:
693: IF plant_cur%NOTFOUND THEN
694: RAISE fnd_api.g_exc_error;
695: END IF;
696:
697: IF plant_cur%ROWCOUNT <>1 THEN
698: p_flag := 'N' ;
705: OPEN org_calendar_cur ;
706: FETCH org_calendar_cur INTO l_calendar_code ;
707:
708: IF org_calendar_cur%NOTFOUND THEN
709: RAISE fnd_api.g_exc_error;
710: END IF;
711:
712: IF org_calendar_cur%NOTFOUND THEN
713: p_flag := 'N' ;
735:
736: EXCEPTION
737: WHEN undetermined_calendar THEN
738: X_return_code := -100;
739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
741: log_message('The Calendar is not assigned to resource and organizations ');
742:
743: WHEN invalid_resource_id THEN
741: log_message('The Calendar is not assigned to resource and organizations ');
742:
743: WHEN invalid_resource_id THEN
744: X_return_code := -101;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
747: log_message('Invalid Resouce Id ');
748:
749: WHEN FND_API.G_EXC_ERROR THEN
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
747: log_message('Invalid Resouce Id ');
748:
749: WHEN FND_API.G_EXC_ERROR THEN
750: X_return_code := SQLCODE;
751: x_return_status := FND_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
753:
747: log_message('Invalid Resouce Id ');
748:
749: WHEN FND_API.G_EXC_ERROR THEN
750: X_return_code := SQLCODE;
751: x_return_status := FND_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
753:
754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
755: X_return_code := SQLCODE;
750: X_return_code := SQLCODE;
751: x_return_status := FND_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
753:
754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
755: X_return_code := SQLCODE;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
758:
752: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
753:
754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
755: X_return_code := SQLCODE;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
758:
759: WHEN OTHERS THEN
760: X_return_code := SQLCODE;
757: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
758:
759: WHEN OTHERS THEN
760: X_return_code := SQLCODE;
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
763:
764: END rsrc_avl ; /* the proc without cal_id */
765: