88: */
89: PROCEDURE Query_Reservation
90: (
91: p_api_version_number IN NUMBER
92: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
93: , x_return_status OUT NOCOPY VARCHAR2
94: , x_msg_count OUT NOCOPY NUMBER
95: , x_msg_data OUT NOCOPY VARCHAR2
96: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
92: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
93: , x_return_status OUT NOCOPY VARCHAR2
94: , x_msg_count OUT NOCOPY NUMBER
95: , x_msg_data OUT NOCOPY VARCHAR2
96: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
97: , p_query_input IN inv_reservation_global.mtl_reservation_rec_type
98: , p_lock_records IN VARCHAR2 DEFAULT fnd_api.g_false
99: , p_sort_by_req_date IN NUMBER DEFAULT inv_reservation_global.g_query_no_sort
100: , p_cancel_order_mode IN NUMBER DEFAULT inv_reservation_global.g_cancel_order_no
94: , x_msg_count OUT NOCOPY NUMBER
95: , x_msg_data OUT NOCOPY VARCHAR2
96: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
97: , p_query_input IN inv_reservation_global.mtl_reservation_rec_type
98: , p_lock_records IN VARCHAR2 DEFAULT fnd_api.g_false
99: , p_sort_by_req_date IN NUMBER DEFAULT inv_reservation_global.g_query_no_sort
100: , p_cancel_order_mode IN NUMBER DEFAULT inv_reservation_global.g_cancel_order_no
101: , x_mtl_reservation_tbl OUT NOCOPY inv_reservation_global.mtl_reservation_tbl_type
102: , x_mtl_reservation_tbl_count OUT NOCOPY NUMBER
107:
108: BEGIN
109:
110: /* Initialize API return status to success */
111: x_return_status := FND_API.G_RET_STS_SUCCESS;
112:
113: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc GMI_Reservation_PUB.query_reservation ');
114:
115: GMI_Reservation_Util.PrintLn('(opm_dbg) in QueryPub org_id='||p_query_input.organization_id);
122: If validation flag is NONE, then no check.
123: ( used if the call comes from another GMI_reservation)
124: ======================================================================= */
125:
126: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
127: IF (p_validation_flag = FND_API.G_TRUE)
128: THEN
129: /* ==========================================================================
130: Call Data Validation
123: ( used if the call comes from another GMI_reservation)
124: ======================================================================= */
125:
126: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
127: IF (p_validation_flag = FND_API.G_TRUE)
128: THEN
129: /* ==========================================================================
130: Call Data Validation
131: =========================================================================*/
136: , x_msg_count => x_msg_count
137: , x_msg_data => x_msg_data
138: );
139:
140: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : after Check_Missing : return='||x_return_status||', Succes='||FND_API.G_RET_STS_SUCCESS);
141: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
142: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
143: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
144: FND_MESSAGE.Set_Token('WHERE', 'Query_Reservation');
137: , x_msg_data => x_msg_data
138: );
139:
140: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : after Check_Missing : return='||x_return_status||', Succes='||FND_API.G_RET_STS_SUCCESS);
141: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
142: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
143: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
144: FND_MESSAGE.Set_Token('WHERE', 'Query_Reservation');
145: FND_MSG_PUB.Add;
142: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
143: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
144: FND_MESSAGE.Set_Token('WHERE', 'Query_Reservation');
145: FND_MSG_PUB.Add;
146: raise FND_API.G_EXC_ERROR;
147: END IF;
148:
149: END IF;
150:
164: , x_mtl_reservation_tbl_count => x_mtl_reservation_tbl_count
165: , x_error_code => x_error_code
166: );
167:
168: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
169: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
170: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Query_Reservation');
171: FND_MESSAGE.Set_Token('WHERE', 'Query_Reservation');
172: FND_MSG_PUB.Add;
170: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Query_Reservation');
171: FND_MESSAGE.Set_Token('WHERE', 'Query_Reservation');
172: FND_MSG_PUB.Add;
173: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of PUB q ERROR:Returned by PVT q.');
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
177:
178:
181: ========================================================================= */
182: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.query_reservation NO Error');
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: x_return_status := FND_API.G_RET_STS_ERROR;
187:
188: /* Get message count and data */
189: FND_MSG_Pub.Count_and_Get
182: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.query_reservation NO Error');
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: x_return_status := FND_API.G_RET_STS_ERROR;
187:
188: /* Get message count and data */
189: FND_MSG_Pub.Count_and_Get
190: ( p_count => x_msg_count
201: */
202: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.Query_Reservation Exp_Error count='||x_msg_count);
203:
204: WHEN OTHERS THEN
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206:
207: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
208: , l_api_name
209: );
264: */
265: PROCEDURE Create_Reservation
266: (
267: p_api_version_number IN NUMBER
268: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
269: , x_return_status OUT NOCOPY VARCHAR2
270: , x_msg_count OUT NOCOPY NUMBER
271: , x_msg_data OUT NOCOPY VARCHAR2
272: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
268: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
269: , x_return_status OUT NOCOPY VARCHAR2
270: , x_msg_count OUT NOCOPY NUMBER
271: , x_msg_data OUT NOCOPY VARCHAR2
272: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
273: , p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
274: , p_serial_number IN inv_reservation_global.serial_number_tbl_type
275: , x_serial_number OUT NOCOPY inv_reservation_global.serial_number_tbl_type
276: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
272: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
273: , p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
274: , p_serial_number IN inv_reservation_global.serial_number_tbl_type
275: , x_serial_number OUT NOCOPY inv_reservation_global.serial_number_tbl_type
276: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
277: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
278: , x_quantity_reserved OUT NOCOPY NUMBER
279: , x_reservation_id OUT NOCOPY NUMBER
280: ) IS
273: , p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
274: , p_serial_number IN inv_reservation_global.serial_number_tbl_type
275: , x_serial_number OUT NOCOPY inv_reservation_global.serial_number_tbl_type
276: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
277: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
278: , x_quantity_reserved OUT NOCOPY NUMBER
279: , x_reservation_id OUT NOCOPY NUMBER
280: ) IS
281:
283:
284: BEGIN
285:
286: /* Initialize API return status to success */
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: SAVEPOINT GMI_Create_Reservation_PUB;
289:
290: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc GMI_Reservation_PUB.create_reservation ');
291:
296: If validation flag is 0, then no check.
297: ( used if the call comes from another OPM_reservation)
298: ========================================================================= */
299:
300: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
301: IF (p_validation_flag = FND_API.G_TRUE)
302: THEN
303: /*========================================================================
304: Call Data Validation
297: ( used if the call comes from another OPM_reservation)
298: ========================================================================= */
299:
300: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
301: IF (p_validation_flag = FND_API.G_TRUE)
302: THEN
303: /*========================================================================
304: Call Data Validation
305: ========================================================================*/
310: , x_msg_count => x_msg_count
311: , x_msg_data => x_msg_data
312: );
313:
314: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
315: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
316: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
317: FND_MESSAGE.Set_Token('WHERE', 'Create_Reservation');
318: FND_MSG_PUB.Add;
316: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
317: FND_MESSAGE.Set_Token('WHERE', 'Create_Reservation');
318: FND_MSG_PUB.Add;
319: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB c : after Check_Missing : Error='||x_return_status);
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: END IF;
323:
324:
340: , x_quantity_reserved => x_quantity_reserved
341: , x_reservation_id => x_reservation_id
342: );
343:
344: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
345: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
346: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Create_Reservation');
347: FND_MESSAGE.Set_Token('WHERE', 'Create_Reservation');
348: FND_MSG_PUB.Add;
346: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Create_Reservation');
347: FND_MESSAGE.Set_Token('WHERE', 'Create_Reservation');
348: FND_MSG_PUB.Add;
349: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB c : after create(PVT) : Error='||x_return_status);
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: /* ========================================================================
354: Set the return values
356: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.create_reservation : NO Error');
357:
358:
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: GMI_Reservation_Util.PrintLn('in end of GMI_Reservation_PUB.create_reservation : Error');
362: ROLLBACK TO SAVEPOINT GMI_Create_Reservation_PUB;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364:
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: GMI_Reservation_Util.PrintLn('in end of GMI_Reservation_PUB.create_reservation : Error');
362: ROLLBACK TO SAVEPOINT GMI_Create_Reservation_PUB;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364:
365: /* Get message count and data */
366: FND_MSG_Pub.Count_and_Get
367: ( p_count => x_msg_count
373:
374: WHEN OTHERS THEN
375: GMI_Reservation_Util.PrintLn('in end of GMI_Reservation_PUB.create_reservation : ErrorOther');
376: ROLLBACK TO SAVEPOINT GMI_Create_Reservation_PUB;
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378:
379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
380: , l_api_name
381: );
427: */
428: PROCEDURE Update_Reservation
429: (
430: p_api_version_number IN NUMBER
431: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
432: , x_return_status OUT NOCOPY VARCHAR2
433: , x_msg_count OUT NOCOPY NUMBER
434: , x_msg_data OUT NOCOPY VARCHAR2
435: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
431: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
432: , x_return_status OUT NOCOPY VARCHAR2
433: , x_msg_count OUT NOCOPY NUMBER
434: , x_msg_data OUT NOCOPY VARCHAR2
435: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
436: , p_original_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
437: , p_to_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
438: , p_original_serial_number IN inv_reservation_global.serial_number_tbl_type
439: , p_to_serial_number IN inv_reservation_global.serial_number_tbl_type
443:
444: BEGIN
445:
446: /* Initialize API return status to success */
447: x_return_status := FND_API.G_RET_STS_SUCCESS;
448: SAVEPOINT GMI_Update_Reservation_PUB;
449:
450: /* ==============================================================
451: Check the validation flag :
454: If validation flag is NONE, then no check.
455: ( used if the call comes from another GMI_reservation)
456: ================================================================ */
457:
458: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
459: IF (p_validation_flag = FND_API.G_TRUE)
460: THEN
461: /* =================================================================
462: Call Data Validation
455: ( used if the call comes from another GMI_reservation)
456: ================================================================ */
457:
458: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
459: IF (p_validation_flag = FND_API.G_TRUE)
460: THEN
461: /* =================================================================
462: Call Data Validation
463: ==================================================================== */
468: , x_msg_count => x_msg_count
469: , x_msg_data => x_msg_data
470: );
471:
472: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
473: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
474: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
475: FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
476: FND_MSG_PUB.Add;
473: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
474: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
475: FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
476: FND_MSG_PUB.Add;
477: raise FND_API.G_EXC_ERROR;
478: END IF;
479:
480: END IF;
481:
494: , p_original_serial_number => p_original_serial_number
495: , p_to_serial_number => p_to_serial_number
496: );
497:
498: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
499: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
500: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Update_Reservation');
501: FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
502: FND_MSG_PUB.Add;
500: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Update_Reservation');
501: FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
502: FND_MSG_PUB.Add;
503: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of PUB u: ERROR:Returned by PVT u.');
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506:
507:
508:
511: ============================================================================= */
512: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.update_reservation NO Error');
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO SAVEPOINT GMI_Update_Reservation_PUB;
517: x_return_status := FND_API.G_RET_STS_ERROR;
518:
519: /* Get message count and data */
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO SAVEPOINT GMI_Update_Reservation_PUB;
517: x_return_status := FND_API.G_RET_STS_ERROR;
518:
519: /* Get message count and data */
520: FND_MSG_Pub.Count_and_Get
521: ( p_count => x_msg_count
526:
527:
528: WHEN OTHERS THEN
529: ROLLBACK TO SAVEPOINT GMI_Update_Reservation_PUB;
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531:
532: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
533: , l_api_name
534: );
582: */
583: PROCEDURE Delete_Reservation
584: (
585: p_api_version_number IN NUMBER
586: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
587: , x_return_status OUT NOCOPY VARCHAR2
588: , x_msg_count OUT NOCOPY NUMBER
589: , x_msg_data OUT NOCOPY VARCHAR2
590: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
586: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
587: , x_return_status OUT NOCOPY VARCHAR2
588: , x_msg_count OUT NOCOPY NUMBER
589: , x_msg_data OUT NOCOPY VARCHAR2
590: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
591: , p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
592: , p_serial_number IN inv_reservation_global.serial_number_tbl_type
593: ) IS
594:
603:
604: BEGIN
605:
606: /* Initialize API return status to success */
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: /* =========================================================================
610: Check the validation flag :
611: If validation flag is G_TRUE, then check
613: If validation flag is NONE, then no check.
614: ( used if the call comes from another GMI_reservation)
615: ============================================================================ */
616:
617: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
618: IF (p_validation_flag = FND_API.G_TRUE)
619: THEN
620: /* =======================================================================
621: Call Data Validation
614: ( used if the call comes from another GMI_reservation)
615: ============================================================================ */
616:
617: GMI_Reservation_Util.PrintLn('(opm_dbg) in proc PUB q : before Check_Missing : flag='||p_validation_flag||', G_TRUE='||FND_API.G_TRUE);
618: IF (p_validation_flag = FND_API.G_TRUE)
619: THEN
620: /* =======================================================================
621: Call Data Validation
622: ====================================================================== */
627: , x_msg_count => x_msg_count
628: , x_msg_data => x_msg_data
629: );
630:
631: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
632: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
633: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
634: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
635: FND_MSG_PUB.Add;
632: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
633: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Check_Missing');
634: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
635: FND_MSG_PUB.Add;
636: raise FND_API.G_EXC_ERROR;
637: END IF;
638:
639: END IF;
640:
647: , x_return_status => x_return_status
648: , x_msg_count => x_msg_count
649: , x_msg_data => x_msg_data);
650:
651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
652: FND_MESSAGE.Set_Name('GMI','GMI_NOT_ALLOWED_TO_DELETE_RSV');
653: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Check_Shipping_Details');
654: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
655: FND_MSG_PUB.Add;
653: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Check_Shipping_Details');
654: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
655: FND_MSG_PUB.Add;
656: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of PUB d: WARNING: Cannot call Delete_Reservation because of shipping status.');
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
659: (odaboval) */
660:
661: /* ==========================================================================
671: , p_rsv_rec => p_rsv_rec
672: , p_serial_number => p_serial_number
673: );
674:
675: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
676: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
677: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
678: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
679: FND_MSG_PUB.Add;
677: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
678: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
679: FND_MSG_PUB.Add;
680: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of PUB d: ERROR:Returned by PVT d.');
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683:
684:
685:
690:
691:
692:
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696:
697: /* Get message count and data */
698: FND_MSG_Pub.Count_and_Get
691:
692:
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696:
697: /* Get message count and data */
698: FND_MSG_Pub.Count_and_Get
699: ( p_count => x_msg_count
702:
703: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.delete_reservation Exp_Error count='||x_msg_count);
704:
705: WHEN OTHERS THEN
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707:
708: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
709: , l_api_name
710: );
759: */
760: PROCEDURE Transfer_Reservation
761: (
762: p_api_version_number IN NUMBER
763: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
764: , x_return_status OUT NOCOPY VARCHAR2
765: , x_msg_count OUT NOCOPY NUMBER
766: , x_msg_data OUT NOCOPY VARCHAR2
767: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
763: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
764: , x_return_status OUT NOCOPY VARCHAR2
765: , x_msg_count OUT NOCOPY NUMBER
766: , x_msg_data OUT NOCOPY VARCHAR2
767: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
768: , p_is_transfer_supply IN VARCHAR2 DEFAULT fnd_api.g_true
769: , p_original_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
770: , p_to_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
771: , p_original_serial_number IN inv_reservation_global.serial_number_tbl_type
764: , x_return_status OUT NOCOPY VARCHAR2
765: , x_msg_count OUT NOCOPY NUMBER
766: , x_msg_data OUT NOCOPY VARCHAR2
767: , p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
768: , p_is_transfer_supply IN VARCHAR2 DEFAULT fnd_api.g_true
769: , p_original_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
770: , p_to_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
771: , p_original_serial_number IN inv_reservation_global.serial_number_tbl_type
772: , p_to_serial_number IN inv_reservation_global.serial_number_tbl_type
778: BEGIN
779:
780: FND_MESSAGE.SET_NAME('GMI','GMI_RSV_UNAVAILABLE');
781: FND_MSG_PUB.Add;
782: RAISE FND_API.G_EXC_ERROR;
783:
784: EXCEPTION
785: WHEN FND_API.G_EXC_ERROR THEN
786: x_return_status := FND_API.G_RET_STS_ERROR;
781: FND_MSG_PUB.Add;
782: RAISE FND_API.G_EXC_ERROR;
783:
784: EXCEPTION
785: WHEN FND_API.G_EXC_ERROR THEN
786: x_return_status := FND_API.G_RET_STS_ERROR;
787:
788: /* Get message count and data */
789: FND_MSG_Pub.Count_and_Get
782: RAISE FND_API.G_EXC_ERROR;
783:
784: EXCEPTION
785: WHEN FND_API.G_EXC_ERROR THEN
786: x_return_status := FND_API.G_RET_STS_ERROR;
787:
788: /* Get message count and data */
789: FND_MSG_Pub.Count_and_Get
790: ( p_count => x_msg_count
793:
794: GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.transfer_reservation Exp_Error count='||x_msg_count);
795:
796: WHEN OTHERS THEN
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798:
799: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
800: , l_api_name
801: );