[Home] [Help]
69: -- Type : Private
70: -- Function : Reserves the serial numbers in the p_serial_number_tbl
71: PROCEDURE CREATE_RESERVATION(
72: p_api_version IN NUMBER := 1.0,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_module_type IN VARCHAR2,
77: x_return_status OUT NOCOPY VARCHAR2,
70: -- Function : Reserves the serial numbers in the p_serial_number_tbl
71: PROCEDURE CREATE_RESERVATION(
72: p_api_version IN NUMBER := 1.0,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_module_type IN VARCHAR2,
77: x_return_status OUT NOCOPY VARCHAR2,
78: x_msg_count OUT NOCOPY NUMBER,
71: PROCEDURE CREATE_RESERVATION(
72: p_api_version IN NUMBER := 1.0,
73: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
74: p_commit IN VARCHAR2 := FND_API.G_FALSE,
75: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
76: p_module_type IN VARCHAR2,
77: x_return_status OUT NOCOPY VARCHAR2,
78: x_msg_count OUT NOCOPY NUMBER,
79: x_msg_data OUT NOCOPY VARCHAR2,
101: BEGIN
102: -- Standard start of API savepoint
103: SAVEPOINT CREATE_RESERVATION_PVT;
104: -- Initialize return status to success before any code logic/validation
105: x_return_status:= FND_API.G_RET_STS_SUCCESS;
106:
107:
108: -- Standard call to check for call compatibility
109: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
105: x_return_status:= FND_API.G_RET_STS_SUCCESS;
106:
107:
108: -- Standard call to check for call compatibility
109: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
110: THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
107:
108: -- Standard call to check for call compatibility
109: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
110: THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114:
115: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114:
115: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
116: IF FND_API.TO_BOOLEAN(p_init_msg_list)
117: THEN
118: FND_MSG_PUB.INITIALIZE;
119: END IF;
112: END IF;
113:
114:
115: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
116: IF FND_API.TO_BOOLEAN(p_init_msg_list)
117: THEN
118: FND_MSG_PUB.INITIALIZE;
119: END IF;
120:
122: Initialize_create_rec(l_scheduled_material_id, -- the schedule material id
123: l_rsv_rec, -- record to be passed ti the WMS packages
124: l_return_status); -- return status
125:
126: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
127: IF (l_log_error >= l_log_current_level) THEN
128: fnd_log.string(
129: fnd_log.level_error,
130: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
129: fnd_log.level_error,
130: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
131: 'Call to Initialize_create_rec returned Unexpected Error');
132: END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: END IF;
135:
136: --Convert to Inv rec type
137: CONVERT_TO_INV_TABLE_TYPE(p_mtl_reservation_rec => l_rsv_rec,
169: 'get_mtl_req_dtls_csr, did not fetch any records'
170: );
171: END IF;
172: CLOSE get_mtl_req_dtls_csr;
173: RAISE FND_API.G_EXC_ERROR;
174: END IF; -- Material Requirement details not found
175: CLOSE get_mtl_req_dtls_csr;
176:
177: -- Validate whether the sum of already issued + reserved quantities is not more than the initially requested quantity
187: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
188: 'Already Completed Qty + Reserved Qty is equal or more than Requested Qty '
189: );
190: END IF;
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193:
194: IF(l_create_rsv_rec.supply_source_type_id = inv_reservation_global.g_source_type_inv) THEN
195:
205: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
206: 'Serial Number passed to the API is null'
207: );
208: END IF;
209: RAISE FND_API.G_EXC_ERROR;
210: END IF;
211:
212: FOR i IN l_serial_number_tbl.FIRST..l_serial_number_tbl.LAST
213: LOOP
218:
219: END IF;
220:
221:
222: IF(l_create_rsv_rec.primary_reservation_quantity = FND_API.G_MISS_NUM) THEN
223: l_create_rsv_rec.primary_reservation_quantity := l_serial_number_tbl.COUNT;
224: END IF;
225:
226:
255: 'After Calling WMS api: x_reservation_id := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
256: );
257: END IF;
258: -- Check the error status
259: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
260: -- log the error
261: IF (l_log_error >= l_log_current_level) THEN
262: fnd_log.string
263: (
265: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
266: 'Call to WMS returned Unexpected Error'
267: );
268: END IF;
269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
271: -- log the error
272: IF (l_log_error >= l_log_current_level) THEN
273: fnd_log.string
266: 'Call to WMS returned Unexpected Error'
267: );
268: END IF;
269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
271: -- log the error
272: IF (l_log_error >= l_log_current_level) THEN
273: fnd_log.string
274: (
276: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
277: 'Call to WMS returned Expected Error'
278: );
279: END IF;
280: --RAISE at the end of the API FND_API.G_EXC_ERROR;
281: END IF;
282:
283:
284: -- Check Error Message stack.
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
294: 'Call to WMS returned Errors in x_msg_count'
295: );
296: END IF;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: -- Commit if p_commit = FND_API.G_TRUE
301: IF FND_API.TO_BOOLEAN(p_commit)
296: END IF;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: -- Commit if p_commit = FND_API.G_TRUE
301: IF FND_API.TO_BOOLEAN(p_commit)
302: THEN
303: COMMIT WORK;
304: IF (l_log_statement >= l_log_current_level) THEN
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: -- Commit if p_commit = FND_API.G_TRUE
301: IF FND_API.TO_BOOLEAN(p_commit)
302: THEN
303: COMMIT WORK;
304: IF (l_log_statement >= l_log_current_level) THEN
305: fnd_log.string
315: FND_MSG_PUB.count_and_get
316: (
317: p_count => x_msg_count,
318: p_data => x_msg_data,
319: p_encoded => FND_API.G_FALSE
320: );
321:
322: -- Log API exit point
323: IF (l_log_procedure >= l_log_current_level)THEN
329: );
330: END IF;
331:
332: EXCEPTION
333: WHEN FND_API.G_EXC_ERROR THEN
334: ROLLBACK TO CREATE_RESERVATION_PVT;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: FND_MSG_PUB.count_and_get
337: (
331:
332: EXCEPTION
333: WHEN FND_API.G_EXC_ERROR THEN
334: ROLLBACK TO CREATE_RESERVATION_PVT;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: FND_MSG_PUB.count_and_get
337: (
338: p_count => x_msg_count,
339: p_data => x_msg_data,
336: FND_MSG_PUB.count_and_get
337: (
338: p_count => x_msg_count,
339: p_data => x_msg_data,
340: p_encoded => FND_API.G_FALSE
341: );
342:
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: ROLLBACK TO CREATE_RESERVATION_PVT;
339: p_data => x_msg_data,
340: p_encoded => FND_API.G_FALSE
341: );
342:
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: ROLLBACK TO CREATE_RESERVATION_PVT;
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: FND_MSG_PUB.count_and_get
347: (
341: );
342:
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: ROLLBACK TO CREATE_RESERVATION_PVT;
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: FND_MSG_PUB.count_and_get
347: (
348: p_count => x_msg_count,
349: p_data => x_msg_data,
346: FND_MSG_PUB.count_and_get
347: (
348: p_count => x_msg_count,
349: p_data => x_msg_data,
350: p_encoded => FND_API.G_FALSE
351: );
352:
353: WHEN OTHERS THEN
354: ROLLBACK TO CREATE_RESERVATION_PVT;
351: );
352:
353: WHEN OTHERS THEN
354: ROLLBACK TO CREATE_RESERVATION_PVT;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
357: THEN
358: FND_MSG_PUB.add_exc_msg
359: (
365: FND_MSG_PUB.count_and_get
366: (
367: p_count => x_msg_count,
368: p_data => x_msg_data,
369: p_encoded => FND_API.G_FALSE
370: );
371: END CREATE_RESERVATION;
372:
373: ------------------------------------------------------------------------------------------------------------------
378: -- Type : Private
379: -- Function : Updates reservation for serial numbers in the p_serial_number_tbl
380: PROCEDURE UPDATE_RESERVATION(
381: p_api_version IN NUMBER := 1.0,
382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
383: p_commit IN VARCHAR2 := FND_API.G_TRUE,
384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
385: p_module_type IN VARCHAR2,
386: x_return_status OUT NOCOPY VARCHAR2,
379: -- Function : Updates reservation for serial numbers in the p_serial_number_tbl
380: PROCEDURE UPDATE_RESERVATION(
381: p_api_version IN NUMBER := 1.0,
382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
383: p_commit IN VARCHAR2 := FND_API.G_TRUE,
384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
385: p_module_type IN VARCHAR2,
386: x_return_status OUT NOCOPY VARCHAR2,
387: x_msg_count OUT NOCOPY NUMBER,
380: PROCEDURE UPDATE_RESERVATION(
381: p_api_version IN NUMBER := 1.0,
382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
383: p_commit IN VARCHAR2 := FND_API.G_TRUE,
384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
385: p_module_type IN VARCHAR2,
386: x_return_status OUT NOCOPY VARCHAR2,
387: x_msg_count OUT NOCOPY NUMBER,
388: x_msg_data OUT NOCOPY VARCHAR2,
418: -- Standard start of API savepoint
419: SAVEPOINT UPDATE_RESERVATION_PVT;
420:
421: -- Initialize return status to success before any code logic/validation
422: x_return_status:= FND_API.G_RET_STS_SUCCESS;
423:
424: -- Standard call to check for call compatibility
425: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
426: THEN
421: -- Initialize return status to success before any code logic/validation
422: x_return_status:= FND_API.G_RET_STS_SUCCESS;
423:
424: -- Standard call to check for call compatibility
425: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
426: THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429:
423:
424: -- Standard call to check for call compatibility
425: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
426: THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429:
430: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
431: IF FND_API.TO_BOOLEAN(p_init_msg_list)
426: THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429:
430: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
431: IF FND_API.TO_BOOLEAN(p_init_msg_list)
432: THEN
433: FND_MSG_PUB.INITIALIZE;
434: END IF;
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429:
430: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
431: IF FND_API.TO_BOOLEAN(p_init_msg_list)
432: THEN
433: FND_MSG_PUB.INITIALIZE;
434: END IF;
435:
457: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
458: 'Invalid Reservation ID'
459: );
460: END IF;
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: END IF;
464:
465: --Convert to Inv rec type
497: END LOOP;
498:
499: /* ELSE
500:
501: l_to_rsv_rec.primary_reservation_quantity := FND_API.G_MISS_NUM;
502:
503: END IF; */
504: END IF;
505:
542: p_original_serial_number => l_from_serial_number_tbl,
543: p_to_serial_number => l_to_serial_number_tbl
544: );
545:
546: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
547: -- log the error
548: IF (l_log_error >= l_log_current_level) THEN
549: fnd_log.string
550: (
552: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
553: 'Call to WMS returned Unexpected Error'
554: );
555: END IF;
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
558: -- log the error
559: IF (l_log_error >= l_log_current_level) THEN
560: fnd_log.string
553: 'Call to WMS returned Unexpected Error'
554: );
555: END IF;
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
558: -- log the error
559: IF (l_log_error >= l_log_current_level) THEN
560: fnd_log.string
561: (
563: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
564: 'Call to WMS returned Expected Error'
565: );
566: END IF;
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569:
570: -- Check Error Message stack.
571: x_msg_count := FND_MSG_PUB.count_msg;
579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
580: 'Call to WMS returned Errors in x_msg_count'
581: );
582: END IF;
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: -- Commit if p_commit = FND_API.G_TRUE
587: IF FND_API.TO_BOOLEAN(p_commit)
582: END IF;
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: -- Commit if p_commit = FND_API.G_TRUE
587: IF FND_API.TO_BOOLEAN(p_commit)
588: THEN
589: COMMIT WORK;
590: IF (l_log_statement >= l_log_current_level) THEN
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: -- Commit if p_commit = FND_API.G_TRUE
587: IF FND_API.TO_BOOLEAN(p_commit)
588: THEN
589: COMMIT WORK;
590: IF (l_log_statement >= l_log_current_level) THEN
591: fnd_log.string
601: FND_MSG_PUB.count_and_get
602: (
603: p_count => x_msg_count,
604: p_data => x_msg_data,
605: p_encoded => FND_API.G_FALSE
606: );
607:
608: -- Log API exit point
609: IF (l_log_procedure >= l_log_current_level)THEN
614: 'At the end of PLSQL procedure'
615: );
616: END IF;
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
619: ROLLBACK TO UPDATE_RESERVATION_PVT;
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: FND_MSG_PUB.count_and_get
622: (
616: END IF;
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
619: ROLLBACK TO UPDATE_RESERVATION_PVT;
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: FND_MSG_PUB.count_and_get
622: (
623: p_count => x_msg_count,
624: p_data => x_msg_data,
621: FND_MSG_PUB.count_and_get
622: (
623: p_count => x_msg_count,
624: p_data => x_msg_data,
625: p_encoded => FND_API.G_FALSE
626: );
627:
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_RESERVATION_PVT;
624: p_data => x_msg_data,
625: p_encoded => FND_API.G_FALSE
626: );
627:
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_RESERVATION_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: FND_MSG_PUB.count_and_get
632: (
626: );
627:
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_RESERVATION_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: FND_MSG_PUB.count_and_get
632: (
633: p_count => x_msg_count,
634: p_data => x_msg_data,
631: FND_MSG_PUB.count_and_get
632: (
633: p_count => x_msg_count,
634: p_data => x_msg_data,
635: p_encoded => FND_API.G_FALSE
636: );
637:
638: WHEN OTHERS THEN
639: ROLLBACK TO UPDATE_RESERVATION_PVT;
636: );
637:
638: WHEN OTHERS THEN
639: ROLLBACK TO UPDATE_RESERVATION_PVT;
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
642: THEN
643: FND_MSG_PUB.add_exc_msg
644: (
650: FND_MSG_PUB.count_and_get
651: (
652: p_count => x_msg_count,
653: p_data => x_msg_data,
654: p_encoded => FND_API.G_FALSE
655: );
656: END UPDATE_RESERVATION;
657:
658: ---------------------------------------------------------------------------------------------------------------------
663: -- Type : Private
664: -- Function : API to delete all the reservation made for a requirement
665: PROCEDURE DELETE_RESERVATION(
666: p_api_version IN NUMBER := 1.0,
667: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
668: p_commit IN VARCHAR2 := FND_API.G_FALSE,
669: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
670: p_module_type IN VARCHAR2,
671: x_return_status OUT NOCOPY VARCHAR2,
664: -- Function : API to delete all the reservation made for a requirement
665: PROCEDURE DELETE_RESERVATION(
666: p_api_version IN NUMBER := 1.0,
667: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
668: p_commit IN VARCHAR2 := FND_API.G_FALSE,
669: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
670: p_module_type IN VARCHAR2,
671: x_return_status OUT NOCOPY VARCHAR2,
672: x_msg_count OUT NOCOPY NUMBER,
665: PROCEDURE DELETE_RESERVATION(
666: p_api_version IN NUMBER := 1.0,
667: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
668: p_commit IN VARCHAR2 := FND_API.G_FALSE,
669: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
670: p_module_type IN VARCHAR2,
671: x_return_status OUT NOCOPY VARCHAR2,
672: x_msg_count OUT NOCOPY NUMBER,
673: x_msg_data OUT NOCOPY VARCHAR2,
698: -- Standard start of API savepoint
699: SAVEPOINT DELETE_RESERVATION_PVT;
700:
701: -- Initialize return status to success before any code logic/validation
702: x_return_status:= FND_API.G_RET_STS_SUCCESS;
703:
704: -- Standard call to check for call compatibility
705: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
706: THEN
701: -- Initialize return status to success before any code logic/validation
702: x_return_status:= FND_API.G_RET_STS_SUCCESS;
703:
704: -- Standard call to check for call compatibility
705: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
706: THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
703:
704: -- Standard call to check for call compatibility
705: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
706: THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
711: IF FND_API.TO_BOOLEAN(p_init_msg_list)
706: THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
711: IF FND_API.TO_BOOLEAN(p_init_msg_list)
712: THEN
713: FND_MSG_PUB.INITIALIZE;
714: END IF;
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
711: IF FND_API.TO_BOOLEAN(p_init_msg_list)
712: THEN
713: FND_MSG_PUB.INITIALIZE;
714: END IF;
715:
737: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
738: 'Invalid Reservation ID'
739: );
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;
742: END IF;
743: END IF;
744:
745: -- Assign the reservation id to be deleted
759: fnd_log.string(fnd_log.level_statement, l_debug_module,
760: 'Returned from inv_reservation_pub.delete_reservation, l_return_status: ' || l_return_status);
761: END IF;
762: -- Check whether the return status is success, if not raise exception
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: -- log the error
765: IF (l_log_error >= l_log_current_level) THEN
766: fnd_log.string(fnd_log.level_error, l_debug_module,
767: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_UNEXP_ERROR');
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: -- log the error
765: IF (l_log_error >= l_log_current_level) THEN
766: fnd_log.string(fnd_log.level_error, l_debug_module,
767: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_UNEXP_ERROR');
768: END IF;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: -- log the error
765: IF (l_log_error >= l_log_current_level) THEN
766: fnd_log.string(fnd_log.level_error, l_debug_module,
767: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_UNEXP_ERROR');
768: END IF;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: -- log the error
772: IF (l_log_error >= l_log_current_level) THEN
773: fnd_log.string(fnd_log.level_error, l_debug_module,
766: fnd_log.string(fnd_log.level_error, l_debug_module,
767: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_UNEXP_ERROR');
768: END IF;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: -- log the error
772: IF (l_log_error >= l_log_current_level) THEN
773: fnd_log.string(fnd_log.level_error, l_debug_module,
774: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_ERROR');
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: -- log the error
772: IF (l_log_error >= l_log_current_level) THEN
773: fnd_log.string(fnd_log.level_error, l_debug_module,
774: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_ERROR');
775: END IF;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
772: IF (l_log_error >= l_log_current_level) THEN
773: fnd_log.string(fnd_log.level_error, l_debug_module,
774: 'inv_reservation_pub.delete_reservation returned FND_API.G_RET_STS_ERROR');
775: END IF;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
779: -- Log API exit point
780: IF (l_log_procedure >= l_log_current_level)THEN
789: -- Check Error Message stack.
790: x_msg_count := FND_MSG_PUB.count_msg;
791: IF x_msg_count > 0
792: THEN
793: RAISE FND_API.G_EXC_ERROR;
794: END IF;
795:
796: -- Commit if p_commit = FND_API.G_TRUE
797: IF FND_API.TO_BOOLEAN(p_commit)
792: THEN
793: RAISE FND_API.G_EXC_ERROR;
794: END IF;
795:
796: -- Commit if p_commit = FND_API.G_TRUE
797: IF FND_API.TO_BOOLEAN(p_commit)
798: THEN
799: COMMIT WORK;
800: IF (l_log_statement >= l_log_current_level) THEN
793: RAISE FND_API.G_EXC_ERROR;
794: END IF;
795:
796: -- Commit if p_commit = FND_API.G_TRUE
797: IF FND_API.TO_BOOLEAN(p_commit)
798: THEN
799: COMMIT WORK;
800: IF (l_log_statement >= l_log_current_level) THEN
801: fnd_log.string
811: FND_MSG_PUB.count_and_get
812: (
813: p_count => x_msg_count,
814: p_data => x_msg_data,
815: p_encoded => FND_API.G_FALSE
816: );
817:
818: EXCEPTION
819: WHEN FND_API.G_EXC_ERROR THEN
815: p_encoded => FND_API.G_FALSE
816: );
817:
818: EXCEPTION
819: WHEN FND_API.G_EXC_ERROR THEN
820: ROLLBACK TO DELETE_RESERVATION_PVT;
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.count_and_get
823: (
817:
818: EXCEPTION
819: WHEN FND_API.G_EXC_ERROR THEN
820: ROLLBACK TO DELETE_RESERVATION_PVT;
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.count_and_get
823: (
824: p_count => x_msg_count,
825: p_data => x_msg_data,
822: FND_MSG_PUB.count_and_get
823: (
824: p_count => x_msg_count,
825: p_data => x_msg_data,
826: p_encoded => FND_API.G_FALSE
827: );
828:
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: ROLLBACK TO DELETE_RESERVATION_PVT;
825: p_data => x_msg_data,
826: p_encoded => FND_API.G_FALSE
827: );
828:
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: ROLLBACK TO DELETE_RESERVATION_PVT;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: FND_MSG_PUB.count_and_get
833: (
827: );
828:
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: ROLLBACK TO DELETE_RESERVATION_PVT;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: FND_MSG_PUB.count_and_get
833: (
834: p_count => x_msg_count,
835: p_data => x_msg_data,
832: FND_MSG_PUB.count_and_get
833: (
834: p_count => x_msg_count,
835: p_data => x_msg_data,
836: p_encoded => FND_API.G_FALSE
837: );
838:
839: WHEN OTHERS THEN
840: ROLLBACK TO DELETE_RESERVATION_PVT;
837: );
838:
839: WHEN OTHERS THEN
840: ROLLBACK TO DELETE_RESERVATION_PVT;
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
843: THEN
844: FND_MSG_PUB.add_exc_msg
845: (
851: FND_MSG_PUB.count_and_get
852: (
853: p_count => x_msg_count,
854: p_data => x_msg_data,
855: p_encoded => FND_API.G_FALSE
856: );
857: END DELETE_RESERVATION;
858:
859:
866: -- Function : API to delete a particular serial number from the reservation.
867: ---------------------------------------------------------------------------------------------------------------------
868: PROCEDURE RELIEVE_RESERVATION(
869: p_api_version IN NUMBER := 1.0,
870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
873: p_module_type IN VARCHAR2,
874: x_return_status OUT NOCOPY VARCHAR2,
867: ---------------------------------------------------------------------------------------------------------------------
868: PROCEDURE RELIEVE_RESERVATION(
869: p_api_version IN NUMBER := 1.0,
870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
873: p_module_type IN VARCHAR2,
874: x_return_status OUT NOCOPY VARCHAR2,
875: x_msg_count OUT NOCOPY NUMBER,
868: PROCEDURE RELIEVE_RESERVATION(
869: p_api_version IN NUMBER := 1.0,
870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
873: p_module_type IN VARCHAR2,
874: x_return_status OUT NOCOPY VARCHAR2,
875: x_msg_count OUT NOCOPY NUMBER,
876: x_msg_data OUT NOCOPY VARCHAR2,
901: -- Standard start of API savepoint
902: SAVEPOINT RELIEVE_RESERVATION_PVT;
903:
904: -- Initialize return status to success before any code logic/validation
905: x_return_status:= FND_API.G_RET_STS_SUCCESS;
906:
907: -- Standard call to check for call compatibility
908: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
909: THEN
904: -- Initialize return status to success before any code logic/validation
905: x_return_status:= FND_API.G_RET_STS_SUCCESS;
906:
907: -- Standard call to check for call compatibility
908: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
909: THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
906:
907: -- Standard call to check for call compatibility
908: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
909: THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
914: IF FND_API.TO_BOOLEAN(p_init_msg_list)
909: THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
914: IF FND_API.TO_BOOLEAN(p_init_msg_list)
915: THEN
916: FND_MSG_PUB.INITIALIZE;
917: END IF;
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
914: IF FND_API.TO_BOOLEAN(p_init_msg_list)
915: THEN
916: FND_MSG_PUB.INITIALIZE;
917: END IF;
918:
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
948: 'Invalid Reservation ID'
949: );
950: END IF;
951: RAISE FND_API.G_EXC_ERROR;
952: END IF;
953:
954: -- Get the Material Requirements details
955: OPEN get_mtl_req_dtls_csr(l_scheduled_material_id);
958: IF get_mtl_req_dtls_csr%NOTFOUND THEN
959: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_INVLD_MAT_REQ' );
960: FND_MSG_PUB.add;
961: CLOSE get_mtl_req_dtls_csr;
962: RAISE FND_API.G_EXC_ERROR;
963: END IF; -- IF get_mtl_req_dtls_csr%NOTFOUND
964: CLOSE get_mtl_req_dtls_csr;
965:
966: -- Validate the Serial Number
974: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
975: 'l_serial_number_tbl is null'
976: );
977: END IF;
978: RAISE FND_API.G_EXC_ERROR;
979: END IF; -- IF l_serial_number_tbl IS NULL
980:
981: -- For all the serial numbers that need to be reserved
982: FOR i IN l_serial_number_tbl.FIRST..l_serial_number_tbl.LAST
1007: x_msg_count => l_msg_count,
1008: x_msg_data => l_msg_data,
1009: p_rsv_rec => l_rsv_rec,
1010: p_primary_relieved_quantity => l_serial_number_tbl.COUNT,
1011: p_relieve_all => fnd_api.g_false,
1012: p_original_serial_number => l_serial_number_tbl,
1013: x_primary_relieved_quantity => l_x_primary_relieved_quantity,
1014: x_primary_remain_quantity => l_x_primary_remain_quantity
1015: );
1014: x_primary_remain_quantity => l_x_primary_remain_quantity
1015: );
1016:
1017: -- Check for the returned status from these APIs
1018: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1019: IF (l_log_error >= l_log_current_level) THEN
1020: fnd_log.string
1021: (
1022: fnd_log.level_error,
1020: fnd_log.string
1021: (
1022: fnd_log.level_error,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1024: 'After Relieve/Delete FND_API.G_EXC_UNEXPECTED_ERROR'
1025: );
1026: END IF;
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1024: 'After Relieve/Delete FND_API.G_EXC_UNEXPECTED_ERROR'
1025: );
1026: END IF;
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: IF (l_log_error >= l_log_current_level) THEN
1030: fnd_log.string
1031: (
1024: 'After Relieve/Delete FND_API.G_EXC_UNEXPECTED_ERROR'
1025: );
1026: END IF;
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: IF (l_log_error >= l_log_current_level) THEN
1030: fnd_log.string
1031: (
1032: fnd_log.level_error,
1030: fnd_log.string
1031: (
1032: fnd_log.level_error,
1033: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1034: 'After Relieve/Delete FND_API.G_EXC_ERROR'
1035: );
1036: END IF;
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1033: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1034: 'After Relieve/Delete FND_API.G_EXC_ERROR'
1035: );
1036: END IF;
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: -- Log API exit point
1041: IF (l_log_procedure >= l_log_current_level)THEN
1050: -- Check Error Message stack.
1051: x_msg_count := FND_MSG_PUB.count_msg;
1052: IF x_msg_count > 0
1053: THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056:
1057: -- Commit if p_commit = FND_API.G_TRUE
1058: IF FND_API.TO_BOOLEAN(p_commit)
1053: THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056:
1057: -- Commit if p_commit = FND_API.G_TRUE
1058: IF FND_API.TO_BOOLEAN(p_commit)
1059: THEN
1060: COMMIT WORK;
1061: END IF;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056:
1057: -- Commit if p_commit = FND_API.G_TRUE
1058: IF FND_API.TO_BOOLEAN(p_commit)
1059: THEN
1060: COMMIT WORK;
1061: END IF;
1062:
1064: FND_MSG_PUB.count_and_get
1065: (
1066: p_count => x_msg_count,
1067: p_data => x_msg_data,
1068: p_encoded => FND_API.G_FALSE
1069: );
1070:
1071: EXCEPTION
1072: WHEN FND_API.G_EXC_ERROR THEN
1068: p_encoded => FND_API.G_FALSE
1069: );
1070:
1071: EXCEPTION
1072: WHEN FND_API.G_EXC_ERROR THEN
1073: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: FND_MSG_PUB.count_and_get
1076: (
1070:
1071: EXCEPTION
1072: WHEN FND_API.G_EXC_ERROR THEN
1073: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: FND_MSG_PUB.count_and_get
1076: (
1077: p_count => x_msg_count,
1078: p_data => x_msg_data,
1075: FND_MSG_PUB.count_and_get
1076: (
1077: p_count => x_msg_count,
1078: p_data => x_msg_data,
1079: p_encoded => FND_API.G_FALSE
1080: );
1081:
1082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1083: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1078: p_data => x_msg_data,
1079: p_encoded => FND_API.G_FALSE
1080: );
1081:
1082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1083: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: FND_MSG_PUB.count_and_get
1086: (
1080: );
1081:
1082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1083: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: FND_MSG_PUB.count_and_get
1086: (
1087: p_count => x_msg_count,
1088: p_data => x_msg_data,
1085: FND_MSG_PUB.count_and_get
1086: (
1087: p_count => x_msg_count,
1088: p_data => x_msg_data,
1089: p_encoded => FND_API.G_FALSE
1090: );
1091:
1092: WHEN OTHERS THEN
1093: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1090: );
1091:
1092: WHEN OTHERS THEN
1093: ROLLBACK TO RELIEVE_RESERVATION_PVT;
1094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1096: THEN
1097: FND_MSG_PUB.add_exc_msg
1098: (
1104: FND_MSG_PUB.count_and_get
1105: (
1106: p_count => x_msg_count,
1107: p_data => x_msg_data,
1108: p_encoded => FND_API.G_FALSE
1109: );
1110: END RELIEVE_RESERVATION;
1111:
1112: ---------------------------------------------------------------------------------------------------------------------
1117: -- Type : Private
1118: -- Function : API to change the demand/supply source type
1119: PROCEDURE TRANSFER_RESERVATION(
1120: p_api_version IN NUMBER := 1.0,
1121: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1122: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1123: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1124: p_module_type IN VARCHAR2,
1125: x_return_status OUT NOCOPY VARCHAR2,
1118: -- Function : API to change the demand/supply source type
1119: PROCEDURE TRANSFER_RESERVATION(
1120: p_api_version IN NUMBER := 1.0,
1121: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1122: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1123: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1124: p_module_type IN VARCHAR2,
1125: x_return_status OUT NOCOPY VARCHAR2,
1126: x_msg_count OUT NOCOPY NUMBER,
1119: PROCEDURE TRANSFER_RESERVATION(
1120: p_api_version IN NUMBER := 1.0,
1121: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1122: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1123: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1124: p_module_type IN VARCHAR2,
1125: x_return_status OUT NOCOPY VARCHAR2,
1126: x_msg_count OUT NOCOPY NUMBER,
1127: x_msg_data OUT NOCOPY VARCHAR2,
1165: -- Standard start of API savepoint
1166: SAVEPOINT TRANSFER_RESERVATION_PVT;
1167:
1168: -- Initialize return status to success before any code logic/validation
1169: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1170:
1171: -- Standard call to check for call compatibility
1172: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1173: THEN
1168: -- Initialize return status to success before any code logic/validation
1169: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1170:
1171: -- Standard call to check for call compatibility
1172: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1173: THEN
1174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1175: END IF;
1176:
1170:
1171: -- Standard call to check for call compatibility
1172: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1173: THEN
1174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1175: END IF;
1176:
1177: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1178: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1173: THEN
1174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1175: END IF;
1176:
1177: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1178: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1179: THEN
1180: FND_MSG_PUB.INITIALIZE;
1181: END IF;
1174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1175: END IF;
1176:
1177: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1178: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1179: THEN
1180: FND_MSG_PUB.INITIALIZE;
1181: END IF;
1182:
1205: 'p_schedule_material_id is null for demand, p_schedule_material_id:' ||l_rsv_rec.demand_source_line_detail);
1206: END IF;
1207: FND_MESSAGE.set_name( 'AHL', 'AHL_MM_INV_REQ' );
1208: FND_MSG_PUB.add;
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: RETURN;
1211: END IF;
1212: -- Validate the reservation id
1213: l_scheduled_material_id := validate_reservation_id(p_from_reservation_id);
1222: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1223: 'Invalid Reservation ID'
1224: );
1225: END IF;
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228:
1229: -- Get the Material Requirements details
1230: OPEN get_mtl_req_dtls_csr(l_scheduled_material_id);
1233: IF get_mtl_req_dtls_csr%NOTFOUND THEN
1234: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_INVLD_MAT_REQ' );
1235: FND_MSG_PUB.add;
1236: CLOSE get_mtl_req_dtls_csr;
1237: RAISE FND_API.G_EXC_ERROR;
1238: END IF; -- IF get_mtl_req_dtls_csr%NOTFOUND
1239: CLOSE get_mtl_req_dtls_csr;
1240:
1241: IF (l_serial_number_tbl.COUNT > 0)THEN
1251: END IF;
1252: END IF;
1253:
1254: -- Create new record
1255: IF(l_rsv_rec.reservation_id IS NULL OR l_rsv_rec.reservation_id = FND_API.G_MISS_NUM) THEN
1256: -- Initialize the record to be send to the WMS package
1257: Initialize_create_rec( l_rsv_rec.demand_source_line_detail, -- the schedule material id,
1258: l_rsv_rec, -- record to be passed ti the WMS packages
1259: l_return_status); -- return status
1258: l_rsv_rec, -- record to be passed ti the WMS packages
1259: l_return_status); -- return status
1260:
1261:
1262: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1263: IF (l_log_error >= l_log_current_level) THEN
1264: fnd_log.string(
1265: fnd_log.level_error,
1266: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1265: fnd_log.level_error,
1266: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1267: 'Call to Initialize_create_rec returned Unexpected Error');
1268: END IF;
1269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1270: END IF;
1271: ELSE -- Fetch rec from reservation
1272:
1273: Initialize_rec_from_resv(l_rsv_rec.reservation_id, -- reservation_id
1274: l_rsv_rec); -- resv rec
1275: END IF;
1276:
1277: -- Considering l_serial_number_tbl table has all the items to be transferred.
1278: IF(l_rsv_rec.primary_reservation_quantity = FND_API.G_MISS_NUM) THEN
1279: IF(l_serial_number_tbl.COUNT > 0) THEN
1280: l_rsv_rec.primary_reservation_quantity := l_serial_number_tbl.COUNT;
1281: END IF;
1282: END IF;
1372: p_init_msg_lst => l_init_msg_list,
1373: x_return_status => l_return_status,
1374: x_msg_count => l_msg_count,
1375: x_msg_data => l_msg_data,
1376: p_is_transfer_supply => fnd_api.g_false,
1377: p_original_rsv_rec => l_from_rsv_rec,
1378: p_to_rsv_rec => l_to_rsv_rec,
1379: p_original_serial_number=> l_from_serial_number_tbl,
1380: p_to_serial_number => l_to_serial_number_tbl,
1381: x_to_reservation_id => l_x_to_reservation_id
1382: );
1383:
1384: -- Check for the returned status from these APIs
1385: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1386: IF (l_log_error >= l_log_current_level) THEN
1387: fnd_log.string
1388: (
1389: fnd_log.level_error,
1387: fnd_log.string
1388: (
1389: fnd_log.level_error,
1390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1391: 'inv_reservation_pub.transfer_reservation returned FND_API.G_EXC_ERROR'
1392: );
1393: END IF;
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1391: 'inv_reservation_pub.transfer_reservation returned FND_API.G_EXC_ERROR'
1392: );
1393: END IF;
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: IF (l_log_error >= l_log_current_level) THEN
1397: fnd_log.string
1398: (
1391: 'inv_reservation_pub.transfer_reservation returned FND_API.G_EXC_ERROR'
1392: );
1393: END IF;
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: IF (l_log_error >= l_log_current_level) THEN
1397: fnd_log.string
1398: (
1399: fnd_log.level_error,
1397: fnd_log.string
1398: (
1399: fnd_log.level_error,
1400: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1401: 'inv_reservation_pub.transfer_reservation returned FND_API.G_RET_STS_ERROR'
1402: );
1403: END IF;
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1400: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1401: 'inv_reservation_pub.transfer_reservation returned FND_API.G_RET_STS_ERROR'
1402: );
1403: END IF;
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1406: l_x_to_reservation_id := x_to_reservation_id;
1407:
1408: -- Log API exit point
1418: -- Check Error Message stack.
1419: x_msg_count := FND_MSG_PUB.count_msg;
1420: IF x_msg_count > 0
1421: THEN
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1424:
1425: -- Commit if p_commit = FND_API.G_TRUE
1426: IF FND_API.TO_BOOLEAN(p_commit)
1421: THEN
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1424:
1425: -- Commit if p_commit = FND_API.G_TRUE
1426: IF FND_API.TO_BOOLEAN(p_commit)
1427: THEN
1428: COMMIT WORK;
1429: END IF;
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1424:
1425: -- Commit if p_commit = FND_API.G_TRUE
1426: IF FND_API.TO_BOOLEAN(p_commit)
1427: THEN
1428: COMMIT WORK;
1429: END IF;
1430:
1432: FND_MSG_PUB.count_and_get
1433: (
1434: p_count => x_msg_count,
1435: p_data => x_msg_data,
1436: p_encoded => FND_API.G_FALSE
1437: );
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1436: p_encoded => FND_API.G_FALSE
1437: );
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: FND_MSG_PUB.count_and_get
1444: (
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: FND_MSG_PUB.count_and_get
1444: (
1445: p_count => x_msg_count,
1446: p_data => x_msg_data,
1443: FND_MSG_PUB.count_and_get
1444: (
1445: p_count => x_msg_count,
1446: p_data => x_msg_data,
1447: p_encoded => FND_API.G_FALSE
1448: );
1449:
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1446: p_data => x_msg_data,
1447: p_encoded => FND_API.G_FALSE
1448: );
1449:
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MSG_PUB.count_and_get
1454: (
1448: );
1449:
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MSG_PUB.count_and_get
1454: (
1455: p_count => x_msg_count,
1456: p_data => x_msg_data,
1453: FND_MSG_PUB.count_and_get
1454: (
1455: p_count => x_msg_count,
1456: p_data => x_msg_data,
1457: p_encoded => FND_API.G_FALSE
1458: );
1459:
1460: WHEN OTHERS THEN
1461: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1458: );
1459:
1460: WHEN OTHERS THEN
1461: ROLLBACK TO TRANSFER_RESERVATION_PVT;
1462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1464: THEN
1465: FND_MSG_PUB.add_exc_msg
1466: (
1472: FND_MSG_PUB.count_and_get
1473: (
1474: p_count => x_msg_count,
1475: p_data => x_msg_data,
1476: p_encoded => FND_API.G_FALSE
1477: );
1478: END TRANSFER_RESERVATION;
1479:
1480:
1484: -- Type : Private
1485: -- Function : Reserves the serial numbers in the p_serial_number_tbl
1486: PROCEDURE PROCESS_RESERVATION(
1487: p_api_version IN NUMBER := 1.0,
1488: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1489: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1490: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1491: p_module_type IN VARCHAR2,
1492: x_return_status OUT NOCOPY VARCHAR2,
1485: -- Function : Reserves the serial numbers in the p_serial_number_tbl
1486: PROCEDURE PROCESS_RESERVATION(
1487: p_api_version IN NUMBER := 1.0,
1488: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1489: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1490: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1491: p_module_type IN VARCHAR2,
1492: x_return_status OUT NOCOPY VARCHAR2,
1493: x_msg_count OUT NOCOPY NUMBER,
1486: PROCEDURE PROCESS_RESERVATION(
1487: p_api_version IN NUMBER := 1.0,
1488: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1489: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1490: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1491: p_module_type IN VARCHAR2,
1492: x_return_status OUT NOCOPY VARCHAR2,
1493: x_msg_count OUT NOCOPY NUMBER,
1494: x_msg_data OUT NOCOPY VARCHAR2,
1542: BEGIN
1543: -- Standard start of API savepoint
1544: SAVEPOINT PROCESS_RESERVATION_PVT;
1545: -- Initialize return status to success before any code logic/validation
1546: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1547:
1548:
1549: -- Standard call to check for call compatibility
1550: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1546: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1547:
1548:
1549: -- Standard call to check for call compatibility
1550: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1551: THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554:
1548:
1549: -- Standard call to check for call compatibility
1550: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1551: THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554:
1555:
1556: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554:
1555:
1556: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1557: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1558: THEN
1559: FND_MSG_PUB.INITIALIZE;
1560: END IF;
1553: END IF;
1554:
1555:
1556: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1557: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1558: THEN
1559: FND_MSG_PUB.INITIALIZE;
1560: END IF;
1561:
1585: 'get_mtl_req_dtls_csr, did not fetch any records'
1586: );
1587: END IF;
1588: CLOSE get_mtl_req_dtls_csr;
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF; -- Material Requirement details not found
1591: CLOSE get_mtl_req_dtls_csr;
1592:
1593: -- Validate whether the sum of already issued + reserved quantities is not more than the initially requested quantity
1603: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1604: 'Already Completed Qty + Reserved Qty is equal or more than Requested Qty '
1605: );
1606: END IF;
1607: RAISE FND_API.G_EXC_ERROR;
1608: END IF;
1609:
1610:
1611:
1612: IF(l_create_rsv_rec.supply_source_type_id = inv_reservation_global.g_source_type_inv) THEN
1613:
1614: -- If reservation Id passed, then call Update reservation directly.
1615: -- For the case when we want to update reservation from IR to Inv
1616: IF(l_create_rsv_rec.reservation_id IS NOT NULL AND l_create_rsv_rec.reservation_id <> FND_API.G_MISS_NUM)
1617: THEN
1618: IF (l_log_statement >= l_log_current_level) THEN
1619: fnd_log.string
1620: (
1627: AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION
1628: (
1629: p_api_version => l_api_version,
1630: p_init_msg_list => l_init_msg_list,
1631: p_commit => FND_API.G_FALSE,
1632: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1633: p_module_type => G_PKG_NAME,
1634: x_return_status => l_return_status,
1635: x_msg_count => l_msg_count,
1628: (
1629: p_api_version => l_api_version,
1630: p_init_msg_list => l_init_msg_list,
1631: p_commit => FND_API.G_FALSE,
1632: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1633: p_module_type => G_PKG_NAME,
1634: x_return_status => l_return_status,
1635: x_msg_count => l_msg_count,
1636: x_msg_data => l_msg_data,
1648: );
1649: END IF;
1650:
1651: -- Check the error status
1652: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1653: -- log the error
1654: IF (l_log_error >= l_log_current_level) THEN
1655: fnd_log.string
1656: (
1658: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1659: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1660: );
1661: END IF;
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1664: -- log the error
1665: IF (l_log_error >= l_log_current_level) THEN
1666: fnd_log.string
1659: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1660: );
1661: END IF;
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1664: -- log the error
1665: IF (l_log_error >= l_log_current_level) THEN
1666: fnd_log.string
1667: (
1669: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1670: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
1671: );
1672: END IF;
1673: --RAISE at the end of the API FND_API.G_EXC_ERROR;
1674: END IF;
1675:
1676: ELSE -- Check for Create/Update/Transfer
1677:
1687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1688: 'Serial Number passed to the API is null'
1689: );
1690: END IF;
1691: RAISE FND_API.G_EXC_ERROR;
1692: END IF;
1693:
1694: -- For all the serial numbers that need to be reserved
1695: FOR i IN l_serial_number_tbl.FIRST..l_serial_number_tbl.LAST LOOP
1708:
1709: AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION(
1710: p_api_version => l_api_version,
1711: p_init_msg_list => l_init_msg_list,
1712: p_commit => FND_API.G_FALSE,
1713: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1714: p_module_type => G_PKG_NAME,
1715: x_return_status => l_return_status,
1716: x_msg_count => l_msg_count,
1709: AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION(
1710: p_api_version => l_api_version,
1711: p_init_msg_list => l_init_msg_list,
1712: p_commit => FND_API.G_FALSE,
1713: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1714: p_module_type => G_PKG_NAME,
1715: x_return_status => l_return_status,
1716: x_msg_count => l_msg_count,
1717: X_MSG_DATA => L_MSG_DATA,
1727: );
1728: END IF;
1729:
1730: -- Check the error status
1731: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1732: -- log the error
1733: IF (l_log_error >= l_log_current_level) THEN
1734: fnd_log.string
1735: (
1737: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1738: 'Call to AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION returned Unexpected Error'
1739: );
1740: END IF;
1741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1743: -- log the error
1744: IF (l_log_error >= l_log_current_level) THEN
1745: fnd_log.string
1738: 'Call to AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION returned Unexpected Error'
1739: );
1740: END IF;
1741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1743: -- log the error
1744: IF (l_log_error >= l_log_current_level) THEN
1745: fnd_log.string
1746: (
1748: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1749: 'Call to AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION returned Expected Error'
1750: );
1751: END IF;
1752: RAISE FND_API.G_EXC_ERROR;
1753: END IF;
1754:
1755: END IF;
1756: l_reservation_id := null;
1835: END IF;
1836: AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION(
1837: p_api_version => l_api_version,
1838: p_init_msg_list => l_init_msg_list,
1839: p_commit => FND_API.G_FALSE,
1840: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1841: p_module_type => G_PKG_NAME,
1842: x_return_status => l_return_status,
1843: x_msg_count => l_msg_count,
1836: AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION(
1837: p_api_version => l_api_version,
1838: p_init_msg_list => l_init_msg_list,
1839: p_commit => FND_API.G_FALSE,
1840: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1841: p_module_type => G_PKG_NAME,
1842: x_return_status => l_return_status,
1843: x_msg_count => l_msg_count,
1844: X_MSG_DATA => L_MSG_DATA,
1855: );
1856: END IF;
1857:
1858: -- Check the error status
1859: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1860: -- log the error
1861: IF (l_log_error >= l_log_current_level) THEN
1862: fnd_log.string
1863: (
1865: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1866: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1867: );
1868: END IF;
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1871: -- log the error
1872: IF (l_log_error >= l_log_current_level) THEN
1873: fnd_log.string
1866: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1867: );
1868: END IF;
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1871: -- log the error
1872: IF (l_log_error >= l_log_current_level) THEN
1873: fnd_log.string
1874: (
1876: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1877: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
1878: );
1879: END IF;
1880: --RAISE at the end of the API FND_API.G_EXC_ERROR;
1881: END IF;
1882: ELSE
1883: IF (l_log_statement >= l_log_current_level) THEN
1884: fnd_log.string
1897:
1898: AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION(
1899: p_api_version => l_api_version,
1900: p_init_msg_list => l_init_msg_list,
1901: p_commit => FND_API.G_FALSE,
1902: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1903: p_module_type => G_PKG_NAME,
1904: x_return_status => l_return_status,
1905: x_msg_count => l_msg_count,
1898: AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION(
1899: p_api_version => l_api_version,
1900: p_init_msg_list => l_init_msg_list,
1901: p_commit => FND_API.G_FALSE,
1902: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
1903: p_module_type => G_PKG_NAME,
1904: x_return_status => l_return_status,
1905: x_msg_count => l_msg_count,
1906: X_MSG_DATA => L_MSG_DATA,
1917: );
1918: END IF;
1919:
1920: -- Check the error status
1921: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1922: -- log the error
1923: IF (l_log_error >= l_log_current_level) THEN
1924: fnd_log.string
1925: (
1927: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1928: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION returned Unexpected Error'
1929: );
1930: END IF;
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1933: -- log the error
1934: IF (l_log_error >= l_log_current_level) THEN
1935: fnd_log.string
1928: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION returned Unexpected Error'
1929: );
1930: END IF;
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1933: -- log the error
1934: IF (l_log_error >= l_log_current_level) THEN
1935: fnd_log.string
1936: (
1938: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1939: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION returned Expected Error'
1940: );
1941: END IF;
1942: --RAISE at the end of the API FND_API.G_EXC_ERROR;
1943: END IF;
1944:
1945: END IF;
1946:
1979: );
1980: END IF;
1981: END IF;
1982:
1983: IF(l_create_rsv_rec.reservation_id IS NOT NULL AND l_create_rsv_rec.reservation_id <> FND_API.G_MISS_NUM)
1984: THEN
1985: IF (l_log_statement >= l_log_current_level)
1986: THEN
1987: fnd_log.string
2016: AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION
2017: (
2018: p_api_version => l_api_version,
2019: p_init_msg_list => l_init_msg_list,
2020: p_commit => FND_API.G_FALSE,
2021: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2022: p_module_type => G_PKG_NAME,
2023: x_return_status => l_return_status,
2024: x_msg_count => l_msg_count,
2017: (
2018: p_api_version => l_api_version,
2019: p_init_msg_list => l_init_msg_list,
2020: p_commit => FND_API.G_FALSE,
2021: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2022: p_module_type => G_PKG_NAME,
2023: x_return_status => l_return_status,
2024: x_msg_count => l_msg_count,
2025: x_msg_data => l_msg_data,
2037: );
2038: END IF;
2039:
2040: -- Check the error status
2041: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2042: -- log the error
2043: IF (l_log_error >= l_log_current_level) THEN
2044: fnd_log.string
2045: (
2047: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2048: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
2049: );
2050: END IF;
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2053: -- log the error
2054: IF (l_log_error >= l_log_current_level) THEN
2055: fnd_log.string
2048: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
2049: );
2050: END IF;
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2053: -- log the error
2054: IF (l_log_error >= l_log_current_level) THEN
2055: fnd_log.string
2056: (
2058: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2059: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
2060: );
2061: END IF;
2062: --RAISE at the end of the API FND_API.G_EXC_ERROR;
2063: END IF;
2064:
2065: ELSE -- Create
2066:
2075: AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION
2076: (
2077: p_api_version => l_api_version,
2078: p_init_msg_list => l_init_msg_list,
2079: p_commit => FND_API.G_FALSE,
2080: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2081: p_module_type => G_PKG_NAME,
2082: x_return_status => l_return_status,
2083: x_msg_count => l_msg_count,
2076: (
2077: p_api_version => l_api_version,
2078: p_init_msg_list => l_init_msg_list,
2079: p_commit => FND_API.G_FALSE,
2080: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2081: p_module_type => G_PKG_NAME,
2082: x_return_status => l_return_status,
2083: x_msg_count => l_msg_count,
2084: x_msg_data => l_msg_data,
2096: 'After AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION x_reservation_id := '|| x_reservation_id || ' and l_return_status = '||l_return_status
2097: );
2098: END IF;
2099: -- Check the error status
2100: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2101: -- log the error
2102: IF (l_log_error >= l_log_current_level) THEN
2103: fnd_log.string
2104: (
2106: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2107: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Unexpected Error'
2108: );
2109: END IF;
2110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2111: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2112: -- log the error
2113: IF (l_log_error >= l_log_current_level) THEN
2114: fnd_log.string
2107: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Unexpected Error'
2108: );
2109: END IF;
2110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2111: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2112: -- log the error
2113: IF (l_log_error >= l_log_current_level) THEN
2114: fnd_log.string
2115: (
2117: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2118: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Expected Error'
2119: );
2120: END IF;
2121: --RAISE at the end of the API FND_API.G_EXC_ERROR;
2122: END IF;
2123: END IF;
2124:
2125: ELSE -- Inventory, Workorder, IR is not the supply source thorw an error
2134: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
2135: 'Invalid Supply source'
2136: );
2137: END IF;
2138: RAISE FND_API.G_EXC_ERROR;
2139:
2140: END IF; -- supply type inventory => l_create_rsv_rec.supply_source_type_id = inv_reservation_global.g_source_type_inv
2141:
2142: -- Check Error Message stack.
2151: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2152: 'Call to WMS returned Errors in x_msg_count'
2153: );
2154: END IF;
2155: RAISE FND_API.G_EXC_ERROR;
2156: END IF;
2157:
2158: -- Commit if p_commit = FND_API.G_TRUE
2159: IF FND_API.TO_BOOLEAN(p_commit)
2154: END IF;
2155: RAISE FND_API.G_EXC_ERROR;
2156: END IF;
2157:
2158: -- Commit if p_commit = FND_API.G_TRUE
2159: IF FND_API.TO_BOOLEAN(p_commit)
2160: THEN
2161: COMMIT WORK;
2162: IF (l_log_statement >= l_log_current_level) THEN
2155: RAISE FND_API.G_EXC_ERROR;
2156: END IF;
2157:
2158: -- Commit if p_commit = FND_API.G_TRUE
2159: IF FND_API.TO_BOOLEAN(p_commit)
2160: THEN
2161: COMMIT WORK;
2162: IF (l_log_statement >= l_log_current_level) THEN
2163: fnd_log.string
2173: FND_MSG_PUB.count_and_get
2174: (
2175: p_count => x_msg_count,
2176: p_data => x_msg_data,
2177: p_encoded => FND_API.G_FALSE
2178: );
2179:
2180: -- Log API exit point
2181: IF (l_log_procedure >= l_log_current_level)THEN
2187: );
2188: END IF;
2189:
2190: EXCEPTION
2191: WHEN FND_API.G_EXC_ERROR THEN
2192: ROLLBACK TO PROCESS_RESERVATION_PVT;
2193: x_return_status := FND_API.G_RET_STS_ERROR;
2194: FND_MSG_PUB.count_and_get
2195: (
2189:
2190: EXCEPTION
2191: WHEN FND_API.G_EXC_ERROR THEN
2192: ROLLBACK TO PROCESS_RESERVATION_PVT;
2193: x_return_status := FND_API.G_RET_STS_ERROR;
2194: FND_MSG_PUB.count_and_get
2195: (
2196: p_count => x_msg_count,
2197: p_data => x_msg_data,
2194: FND_MSG_PUB.count_and_get
2195: (
2196: p_count => x_msg_count,
2197: p_data => x_msg_data,
2198: p_encoded => FND_API.G_FALSE
2199: );
2200:
2201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202: ROLLBACK TO PROCESS_RESERVATION_PVT;
2197: p_data => x_msg_data,
2198: p_encoded => FND_API.G_FALSE
2199: );
2200:
2201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202: ROLLBACK TO PROCESS_RESERVATION_PVT;
2203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2204: FND_MSG_PUB.count_and_get
2205: (
2199: );
2200:
2201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202: ROLLBACK TO PROCESS_RESERVATION_PVT;
2203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2204: FND_MSG_PUB.count_and_get
2205: (
2206: p_count => x_msg_count,
2207: p_data => x_msg_data,
2204: FND_MSG_PUB.count_and_get
2205: (
2206: p_count => x_msg_count,
2207: p_data => x_msg_data,
2208: p_encoded => FND_API.G_FALSE
2209: );
2210:
2211: WHEN OTHERS THEN
2212: ROLLBACK TO PROCESS_RESERVATION_PVT;
2209: );
2210:
2211: WHEN OTHERS THEN
2212: ROLLBACK TO PROCESS_RESERVATION_PVT;
2213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2215: THEN
2216: FND_MSG_PUB.add_exc_msg
2217: (
2223: FND_MSG_PUB.count_and_get
2224: (
2225: p_count => x_msg_count,
2226: p_data => x_msg_data,
2227: p_encoded => FND_API.G_FALSE
2228: );
2229: END PROCESS_RESERVATION;
2230:
2231:
2235: -- Type : Private
2236: -- Function : API to relieve given serial numbers from their respective reservation.
2237: PROCEDURE CANCEL_RESERVATION(
2238: p_api_version IN NUMBER := 1.0,
2239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2240: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2242: p_module_type IN VARCHAR2,
2243: x_return_status OUT NOCOPY VARCHAR2,
2236: -- Function : API to relieve given serial numbers from their respective reservation.
2237: PROCEDURE CANCEL_RESERVATION(
2238: p_api_version IN NUMBER := 1.0,
2239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2240: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2242: p_module_type IN VARCHAR2,
2243: x_return_status OUT NOCOPY VARCHAR2,
2244: x_msg_count OUT NOCOPY NUMBER,
2237: PROCEDURE CANCEL_RESERVATION(
2238: p_api_version IN NUMBER := 1.0,
2239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2240: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2241: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2242: p_module_type IN VARCHAR2,
2243: x_return_status OUT NOCOPY VARCHAR2,
2244: x_msg_count OUT NOCOPY NUMBER,
2245: x_msg_data OUT NOCOPY VARCHAR2,
2283: BEGIN
2284: -- Standard start of API savepoint
2285: SAVEPOINT CANCEL_RESERVATION_PVT;
2286: -- Initialize return status to success before any code logic/validation
2287: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2288:
2289:
2290: -- Standard call to check for call compatibility
2291: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2287: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2288:
2289:
2290: -- Standard call to check for call compatibility
2291: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2292: THEN
2293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2294: END IF;
2295:
2289:
2290: -- Standard call to check for call compatibility
2291: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2292: THEN
2293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2294: END IF;
2295:
2296:
2297: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2294: END IF;
2295:
2296:
2297: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2298: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2299: THEN
2300: FND_MSG_PUB.INITIALIZE;
2301: END IF;
2294: END IF;
2295:
2296:
2297: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2298: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2299: THEN
2300: FND_MSG_PUB.INITIALIZE;
2301: END IF;
2302:
2323: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2324: 'Serial Number passed to the API is null'
2325: );
2326: END IF;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2329: */
2330:
2331: -- Validate to make sure that the Serial Number is not empty, when Supply is Inventory.
2340: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2341: 'reservation table passed to the API is null'
2342: );
2343: END IF;
2344: RAISE FND_API.G_EXC_ERROR;
2345: END IF;
2346:
2347:
2348: -- For all records in reservation table
2421: 'Serial number '||l_serial_tbl(j)||' does not match the reservation_id'||l_reservation_id
2422: );
2423: END IF;
2424: CLOSE get_resrv_detials_csr;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END IF;
2427: CLOSE get_resrv_detials_csr;
2428:
2429: l_tmp_serial_number_tbl(j).serial_number := l_serial_tbl(j);
2459:
2460: AHL_MM_RESERVATIONS_PVT.DELETE_RESERVATION(
2461: p_api_version => l_api_version,
2462: p_init_msg_list => l_init_msg_list,
2463: p_commit => FND_API.G_FALSE,
2464: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2465: p_module_type => G_PKG_NAME,
2466: x_return_status => l_return_status,
2467: x_msg_count => l_msg_count,
2460: AHL_MM_RESERVATIONS_PVT.DELETE_RESERVATION(
2461: p_api_version => l_api_version,
2462: p_init_msg_list => l_init_msg_list,
2463: p_commit => FND_API.G_FALSE,
2464: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2465: p_module_type => G_PKG_NAME,
2466: x_return_status => l_return_status,
2467: x_msg_count => l_msg_count,
2468: X_MSG_DATA => L_MSG_DATA,
2472: ELSE
2473: AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION(
2474: p_api_version => l_api_version,
2475: p_init_msg_list => l_init_msg_list,
2476: p_commit => FND_API.G_FALSE,
2477: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2478: p_module_type => G_PKG_NAME,
2479: x_return_status => l_return_status,
2480: x_msg_count => l_msg_count,
2473: AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION(
2474: p_api_version => l_api_version,
2475: p_init_msg_list => l_init_msg_list,
2476: p_commit => FND_API.G_FALSE,
2477: p_validation_level => FND_API.G_VALID_LEVEL_FULL, -- the validation level
2478: p_module_type => G_PKG_NAME,
2479: x_return_status => l_return_status,
2480: x_msg_count => l_msg_count,
2481: X_MSG_DATA => L_MSG_DATA,
2493: );
2494: END IF;
2495:
2496: -- Check the error status
2497: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2498: -- log the error
2499: IF (l_log_error >= l_log_current_level) THEN
2500: fnd_log.string
2501: (
2503: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2504: 'Call to AHL_MM_RESERVATIONS_PVT.Relieve/Delete returned Unexpected Error'
2505: );
2506: END IF;
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2509: -- log the error
2510: IF (l_log_error >= l_log_current_level) THEN
2511: fnd_log.string
2504: 'Call to AHL_MM_RESERVATIONS_PVT.Relieve/Delete returned Unexpected Error'
2505: );
2506: END IF;
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2509: -- log the error
2510: IF (l_log_error >= l_log_current_level) THEN
2511: fnd_log.string
2512: (
2514: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2515: 'Call to AHL_MM_RESERVATIONS_PVT.Relieve/Delete returned Expected Error'
2516: );
2517: END IF;
2518: RAISE FND_API.G_EXC_ERROR;
2519: END IF;
2520:
2521: l_serial_tbl.DELETE;
2522: l_inventory_item_id := null;
2546: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2547: 'Call to WMS returned Errors in x_msg_count'
2548: );
2549: END IF;
2550: RAISE FND_API.G_EXC_ERROR;
2551: END IF;
2552:
2553: -- Commit if p_commit = FND_API.G_TRUE
2554: IF FND_API.TO_BOOLEAN(p_commit)
2549: END IF;
2550: RAISE FND_API.G_EXC_ERROR;
2551: END IF;
2552:
2553: -- Commit if p_commit = FND_API.G_TRUE
2554: IF FND_API.TO_BOOLEAN(p_commit)
2555: THEN
2556: COMMIT WORK;
2557: IF (l_log_statement >= l_log_current_level) THEN
2550: RAISE FND_API.G_EXC_ERROR;
2551: END IF;
2552:
2553: -- Commit if p_commit = FND_API.G_TRUE
2554: IF FND_API.TO_BOOLEAN(p_commit)
2555: THEN
2556: COMMIT WORK;
2557: IF (l_log_statement >= l_log_current_level) THEN
2558: fnd_log.string
2568: FND_MSG_PUB.count_and_get
2569: (
2570: p_count => x_msg_count,
2571: p_data => x_msg_data,
2572: p_encoded => FND_API.G_FALSE
2573: );
2574:
2575: -- Log API exit point
2576: IF (l_log_procedure >= l_log_current_level)THEN
2582: );
2583: END IF;
2584:
2585: EXCEPTION
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: ROLLBACK TO CANCEL_RESERVATION_PVT;
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589: FND_MSG_PUB.count_and_get
2590: (
2584:
2585: EXCEPTION
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: ROLLBACK TO CANCEL_RESERVATION_PVT;
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589: FND_MSG_PUB.count_and_get
2590: (
2591: p_count => x_msg_count,
2592: p_data => x_msg_data,
2589: FND_MSG_PUB.count_and_get
2590: (
2591: p_count => x_msg_count,
2592: p_data => x_msg_data,
2593: p_encoded => FND_API.G_FALSE
2594: );
2595:
2596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2597: ROLLBACK TO CANCEL_RESERVATION_PVT;
2592: p_data => x_msg_data,
2593: p_encoded => FND_API.G_FALSE
2594: );
2595:
2596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2597: ROLLBACK TO CANCEL_RESERVATION_PVT;
2598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2599: FND_MSG_PUB.count_and_get
2600: (
2594: );
2595:
2596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2597: ROLLBACK TO CANCEL_RESERVATION_PVT;
2598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2599: FND_MSG_PUB.count_and_get
2600: (
2601: p_count => x_msg_count,
2602: p_data => x_msg_data,
2599: FND_MSG_PUB.count_and_get
2600: (
2601: p_count => x_msg_count,
2602: p_data => x_msg_data,
2603: p_encoded => FND_API.G_FALSE
2604: );
2605:
2606: WHEN OTHERS THEN
2607: ROLLBACK TO CANCEL_RESERVATION_PVT;
2604: );
2605:
2606: WHEN OTHERS THEN
2607: ROLLBACK TO CANCEL_RESERVATION_PVT;
2608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2610: THEN
2611: FND_MSG_PUB.add_exc_msg
2612: (
2618: FND_MSG_PUB.count_and_get
2619: (
2620: p_count => x_msg_count,
2621: p_data => x_msg_data,
2622: p_encoded => FND_API.G_FALSE
2623: );
2624: END CANCEL_RESERVATION;
2625:
2626: ---------------------------------------------------------------------------------------------------------------------
2767: 'At the start of PLSQL procedure'
2768: );
2769: END IF;
2770: -- Initialize return status to success before any code logic/validation
2771: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2772:
2773: IF (l_log_statement >= l_log_current_level) THEN
2774: fnd_log.string
2775: (
2793: 'Required demand is not for a workorder/wip_entity_id, p_schedule_material_id:' ||p_schedule_material_id);
2794: END IF;
2795: FND_MESSAGE.set_name( 'AHL', 'AHL_MM_INV_REQ' );
2796: FND_MSG_PUB.add;
2797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2798: RETURN;
2799: END IF;
2800:
2801: IF (l_log_statement >= l_log_current_level) THEN
2820: P_X_RSV_REC.PRIMARY_UOM_CODE := L_MTL_REQ_DTLS_REC.UOM;
2821: P_X_RSV_REC.PROJECT_ID := L_MTL_REQ_DTLS_REC.PROJECT_ID;
2822: P_X_RSV_REC.TASK_ID := L_MTL_REQ_DTLS_REC.TASK_ID;
2823:
2824: /* IF(p_x_rsv_rec.primary_reservation_quantity = FND_API.G_MISS_NUM) THEN
2825: p_x_rsv_rec.primary_reservation_quantity := 1;
2826: END IF;
2827: */
2828: p_x_rsv_rec.reservation_uom_code := l_mtl_req_dtls_rec.uom;
2829: p_x_rsv_rec.reservation_uom_id := NULL;
2830: p_x_rsv_rec.reservation_quantity := NULL;
2831: p_x_rsv_rec.demand_ship_date := NULL;
2832: --Supply Details
2833: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
2834: p_x_rsv_rec.subinventory_code := NULL;
2835: END IF;
2836: --Defaulting to inventory reservation. Otherwise, expected to be passed by the caller API.
2837: IF(p_x_rsv_rec.supply_source_type_id IS NULL OR p_x_rsv_rec.supply_source_type_id = FND_API.G_MISS_NUM) THEN
2833: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
2834: p_x_rsv_rec.subinventory_code := NULL;
2835: END IF;
2836: --Defaulting to inventory reservation. Otherwise, expected to be passed by the caller API.
2837: IF(p_x_rsv_rec.supply_source_type_id IS NULL OR p_x_rsv_rec.supply_source_type_id = FND_API.G_MISS_NUM) THEN
2838: p_x_rsv_rec.supply_source_type_id := inv_reservation_global.g_source_type_inv;
2839: p_x_rsv_rec.supply_source_header_id := NULL;
2840: p_x_rsv_rec.supply_source_line_id := NULL;
2841: p_x_rsv_rec.supply_source_line_detail := NULL;
2842: END IF;
2843:
2844: p_x_rsv_rec.supply_source_name := null;
2845:
2846: IF(p_x_rsv_rec.supply_source_header_id = FND_API.G_MISS_NUM) THEN
2847: p_x_rsv_rec.supply_source_header_id := NULL;
2848: END IF;
2849: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
2850: p_x_rsv_rec.supply_source_line_id := NULL;
2845:
2846: IF(p_x_rsv_rec.supply_source_header_id = FND_API.G_MISS_NUM) THEN
2847: p_x_rsv_rec.supply_source_header_id := NULL;
2848: END IF;
2849: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
2850: p_x_rsv_rec.supply_source_line_id := NULL;
2851: END IF;
2852: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
2853: p_x_rsv_rec.supply_source_line_detail := NULL;
2848: END IF;
2849: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
2850: p_x_rsv_rec.supply_source_line_id := NULL;
2851: END IF;
2852: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
2853: p_x_rsv_rec.supply_source_line_detail := NULL;
2854: END IF;
2855: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
2856: p_x_rsv_rec.revision := NULL;
2851: END IF;
2852: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
2853: p_x_rsv_rec.supply_source_line_detail := NULL;
2854: END IF;
2855: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
2856: p_x_rsv_rec.revision := NULL;
2857: END IF;
2858: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
2859: p_x_rsv_rec.subinventory_code := NULL;
2854: END IF;
2855: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
2856: p_x_rsv_rec.revision := NULL;
2857: END IF;
2858: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
2859: p_x_rsv_rec.subinventory_code := NULL;
2860: END IF;
2861: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
2862: p_x_rsv_rec.locator_id := NULL;
2857: END IF;
2858: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
2859: p_x_rsv_rec.subinventory_code := NULL;
2860: END IF;
2861: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
2862: p_x_rsv_rec.locator_id := NULL;
2863: END IF;
2864: IF(p_x_rsv_rec.lot_number = FND_API.G_MISS_CHAR) THEN
2865: p_x_rsv_rec.lot_number := NULL;
2860: END IF;
2861: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
2862: p_x_rsv_rec.locator_id := NULL;
2863: END IF;
2864: IF(p_x_rsv_rec.lot_number = FND_API.G_MISS_CHAR) THEN
2865: p_x_rsv_rec.lot_number := NULL;
2866: END IF;
2867: p_x_rsv_rec.supply_receipt_date := NULL;
2868: --Common Detials
2870: p_x_rsv_rec.external_source_line_id := 867;
2871: p_x_rsv_rec.inventory_item_id := l_mtl_req_dtls_rec.inventory_item_id;
2872: p_x_rsv_rec.serial_number := NULL;
2873: p_x_rsv_rec.ship_ready_flag := NULL;
2874: IF(p_x_rsv_rec.reservation_id = FND_API.G_MISS_NUM) THEN
2875: p_x_rsv_rec.reservation_id := NULL;
2876: END IF;
2877: p_x_rsv_rec.primary_uom_id := NULL;
2878: p_x_rsv_rec.autodetail_group_id := NULL;
3131: 'At the start of PLSQL procedure'
3132: );
3133: END IF;
3134: -- Initialize return status to success before any code logic/validation
3135: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3136:
3137: IF (l_log_statement >= l_log_current_level) THEN
3138: fnd_log.string
3139: (
3157: 'Required demand is not for a workorder/wip_entity_id, p_schedule_material_id:' ||p_schedule_material_id);
3158: END IF;
3159: FND_MESSAGE.set_name( 'AHL', 'AHL_MM_INV_REQ' );
3160: FND_MSG_PUB.add;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3162: RETURN;
3163: END IF;
3164:
3165: IF (l_log_statement >= l_log_current_level) THEN
3184: P_X_RSV_REC.PROJECT_ID := L_MTL_REQ_DTLS_REC.PROJECT_ID;
3185: P_X_RSV_REC.TASK_ID := L_MTL_REQ_DTLS_REC.TASK_ID;
3186: p_x_rsv_rec.primary_reservation_quantity := 1;
3187:
3188: /* IF(p_x_rsv_rec.primary_reservation_quantity = FND_API.G_MISS_NUM) THEN
3189: p_x_rsv_rec.primary_reservation_quantity := 1;
3190: END IF;
3191: */
3192: p_x_rsv_rec.reservation_uom_code := l_mtl_req_dtls_rec.uom;
3193: p_x_rsv_rec.reservation_uom_id := NULL;
3194: p_x_rsv_rec.reservation_quantity := NULL;
3195: p_x_rsv_rec.demand_ship_date := NULL;
3196: --Supply Details
3197: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
3198: p_x_rsv_rec.subinventory_code := NULL;
3199: END IF;
3200: --Defaulting to inventory reservation. Otherwise, expected to be passed by the caller API.
3201:
3200: --Defaulting to inventory reservation. Otherwise, expected to be passed by the caller API.
3201:
3202:
3203: /* Removed extra supply details from the record
3204: IF(p_x_rsv_rec.supply_source_type_id IS NULL OR p_x_rsv_rec.supply_source_type_id = FND_API.G_MISS_NUM) THEN
3205: p_x_rsv_rec.supply_source_type_id := inv_reservation_global.g_source_type_inv;
3206: p_x_rsv_rec.supply_source_header_id := NULL;
3207: p_x_rsv_rec.supply_source_line_id := NULL;
3208: p_x_rsv_rec.supply_source_line_detail := NULL;
3209: END IF;
3210:
3211: p_x_rsv_rec.supply_source_name := null;
3212:
3213: IF(p_x_rsv_rec.supply_source_header_id = FND_API.G_MISS_NUM) THEN
3214: p_x_rsv_rec.supply_source_header_id := NULL;
3215: END IF;
3216: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
3217: p_x_rsv_rec.supply_source_line_id := NULL;
3212:
3213: IF(p_x_rsv_rec.supply_source_header_id = FND_API.G_MISS_NUM) THEN
3214: p_x_rsv_rec.supply_source_header_id := NULL;
3215: END IF;
3216: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
3217: p_x_rsv_rec.supply_source_line_id := NULL;
3218: END IF;
3219: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
3220: p_x_rsv_rec.supply_source_line_detail := NULL;
3215: END IF;
3216: IF(p_x_rsv_rec.supply_source_line_id = FND_API.G_MISS_NUM) THEN
3217: p_x_rsv_rec.supply_source_line_id := NULL;
3218: END IF;
3219: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
3220: p_x_rsv_rec.supply_source_line_detail := NULL;
3221: END IF; */
3222: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
3223: p_x_rsv_rec.revision := NULL;
3218: END IF;
3219: IF(p_x_rsv_rec.supply_source_line_detail = FND_API.G_MISS_NUM) THEN
3220: p_x_rsv_rec.supply_source_line_detail := NULL;
3221: END IF; */
3222: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
3223: p_x_rsv_rec.revision := NULL;
3224: END IF;
3225: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
3226: p_x_rsv_rec.subinventory_code := NULL;
3221: END IF; */
3222: IF(p_x_rsv_rec.revision = FND_API.G_MISS_CHAR) THEN
3223: p_x_rsv_rec.revision := NULL;
3224: END IF;
3225: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
3226: p_x_rsv_rec.subinventory_code := NULL;
3227: END IF;
3228: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
3229: p_x_rsv_rec.locator_id := NULL;
3224: END IF;
3225: IF(p_x_rsv_rec.subinventory_code = FND_API.G_MISS_CHAR) THEN
3226: p_x_rsv_rec.subinventory_code := NULL;
3227: END IF;
3228: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
3229: p_x_rsv_rec.locator_id := NULL;
3230: END IF;
3231: IF(p_x_rsv_rec.lot_number = FND_API.G_MISS_CHAR) THEN
3232: p_x_rsv_rec.lot_number := NULL;
3227: END IF;
3228: IF(p_x_rsv_rec.locator_id = FND_API.G_MISS_NUM) THEN
3229: p_x_rsv_rec.locator_id := NULL;
3230: END IF;
3231: IF(p_x_rsv_rec.lot_number = FND_API.G_MISS_CHAR) THEN
3232: p_x_rsv_rec.lot_number := NULL;
3233: END IF;
3234: p_x_rsv_rec.supply_receipt_date := NULL;
3235: --Common Detials
3237: p_x_rsv_rec.external_source_line_id := 867;
3238: p_x_rsv_rec.inventory_item_id := l_mtl_req_dtls_rec.inventory_item_id;
3239: p_x_rsv_rec.serial_number := NULL;
3240: p_x_rsv_rec.ship_ready_flag := NULL;
3241: IF(p_x_rsv_rec.reservation_id = FND_API.G_MISS_NUM) THEN
3242: p_x_rsv_rec.reservation_id := NULL;
3243: END IF;
3244: p_x_rsv_rec.primary_uom_id := NULL;
3245: p_x_rsv_rec.autodetail_group_id := NULL;