[Home] [Help]
2: /* $Header: AHLVMMRB.pls 120.0.12020000.2 2012/12/14 10:35:47 shnatu noship $ */
3: ------------------------------------
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
3: ------------------------------------
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11:
4: -- Common constants and variables --
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11:
12:
5: ------------------------------------
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11:
12:
13: FUNCTION validate_reservation_id(p_reservation_id IN NUMBER) RETURN NUMBER;
6: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
7: l_log_statement NUMBER := fnd_log.level_statement;
8: l_log_procedure NUMBER := fnd_log.level_procedure;
9: l_log_error NUMBER := fnd_log.level_error;
10: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11:
12:
13: FUNCTION validate_reservation_id(p_reservation_id IN NUMBER) RETURN NUMBER;
14: PROCEDURE INITIALIZE_CREATE_REC(
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,
131: 'Call to Initialize_create_rec returned Unexpected Error');
132: END IF;
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,
131: 'Call to Initialize_create_rec returned Unexpected Error');
132: END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: x_serial_number_tbl => l_serial_number_tbl);
141:
142: -- Log API entry point
143: IF (l_log_procedure >= l_log_current_level) THEN
144: fnd_log.string
145: (
146: fnd_log.level_procedure,
147: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
148: 'At the start of PL SQL procedure scheduled_material_id : ' || l_scheduled_material_id ||
142: -- Log API entry point
143: IF (l_log_procedure >= l_log_current_level) THEN
144: fnd_log.string
145: (
146: fnd_log.level_procedure,
147: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
148: 'At the start of PL SQL procedure scheduled_material_id : ' || l_scheduled_material_id ||
149: 'total serial_number count: '||l_serial_number_tbl.COUNT
150: );
161: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_INVLD_MAT_REQ' );
162: FND_MSG_PUB.add;
163: -- log the error
164: IF (l_log_error >= l_log_current_level) THEN
165: fnd_log.string
166: (
167: fnd_log.level_error,
168: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
169: 'get_mtl_req_dtls_csr, did not fetch any records'
163: -- log the error
164: IF (l_log_error >= l_log_current_level) THEN
165: fnd_log.string
166: (
167: fnd_log.level_error,
168: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
169: 'get_mtl_req_dtls_csr, did not fetch any records'
170: );
171: END IF;
180: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_QTY_EXCDS_REQSTD' );
181: FND_MSG_PUB.add;
182: -- log the error
183: IF (l_log_error >= l_log_current_level) THEN
184: fnd_log.string
185: (
186: fnd_log.level_error,
187: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
188: 'Already Completed Qty + Reserved Qty is equal or more than Requested Qty '
182: -- log the error
183: IF (l_log_error >= l_log_current_level) THEN
184: fnd_log.string
185: (
186: fnd_log.level_error,
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;
198: FND_MESSAGE.set_name( 'AHL', 'AHL_PP_SERIAL_MISSING' );
199: FND_MSG_PUB.add;
200: -- log the error
201: IF (l_log_error >= l_log_current_level) THEN
202: fnd_log.string
203: (
204: fnd_log.level_error,
205: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
206: 'Serial Number passed to the API is null'
200: -- log the error
201: IF (l_log_error >= l_log_current_level) THEN
202: fnd_log.string
203: (
204: fnd_log.level_error,
205: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
206: 'Serial Number passed to the API is null'
207: );
208: END IF;
224: END IF;
225:
226:
227: IF (l_log_statement >= l_log_current_level) THEN
228: fnd_log.string
229: (
230: fnd_log.level_statement,
231: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
232: 'Calling WMS api:inv_reservation_pub.create_reservation :'
226:
227: IF (l_log_statement >= l_log_current_level) THEN
228: fnd_log.string
229: (
230: fnd_log.level_statement,
231: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
232: 'Calling WMS api:inv_reservation_pub.create_reservation :'
233: );
234: END IF;
247: x_reservation_id => l_x_reservation_id
248: );
249: x_reservation_id := l_x_reservation_id;
250: IF (l_log_statement >= l_log_current_level) THEN
251: fnd_log.string
252: (
253: fnd_log.level_statement,
254: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
255: 'After Calling WMS api: x_reservation_id := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
249: x_reservation_id := l_x_reservation_id;
250: IF (l_log_statement >= l_log_current_level) THEN
251: fnd_log.string
252: (
253: fnd_log.level_statement,
254: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
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: (
264: fnd_log.level_error,
265: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
266: 'Call to WMS returned Unexpected Error'
260: -- log the error
261: IF (l_log_error >= l_log_current_level) THEN
262: fnd_log.string
263: (
264: fnd_log.level_error,
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
274: (
275: fnd_log.level_error,
276: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
277: 'Call to WMS returned Expected Error'
271: -- log the error
272: IF (l_log_error >= l_log_current_level) THEN
273: fnd_log.string
274: (
275: fnd_log.level_error,
276: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
277: 'Call to WMS returned Expected Error'
278: );
279: END IF;
286: IF x_msg_count > 0
287: THEN
288: -- log the error
289: IF (l_log_error >= l_log_current_level) THEN
290: fnd_log.string
291: (
292: fnd_log.level_error,
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
294: 'Call to WMS returned Errors in x_msg_count'
288: -- log the error
289: IF (l_log_error >= l_log_current_level) THEN
290: fnd_log.string
291: (
292: fnd_log.level_error,
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
294: 'Call to WMS returned Errors in x_msg_count'
295: );
296: END IF;
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
306: (
307: fnd_log.level_statement,
308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
309: 'Committed'
303: COMMIT WORK;
304: IF (l_log_statement >= l_log_current_level) THEN
305: fnd_log.string
306: (
307: fnd_log.level_statement,
308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
309: 'Committed'
310: );
311: END IF;
320: );
321:
322: -- Log API exit point
323: IF (l_log_procedure >= l_log_current_level)THEN
324: fnd_log.string
325: (
326: fnd_log.level_procedure,
327: l_debug_module||'.end',
328: 'At the end of PLSQL procedure'
322: -- Log API exit point
323: IF (l_log_procedure >= l_log_current_level)THEN
324: fnd_log.string
325: (
326: fnd_log.level_procedure,
327: l_debug_module||'.end',
328: 'At the end of PLSQL procedure'
329: );
330: END IF;
434: END IF;
435:
436: -- Log API entry point
437: IF (l_log_procedure >= l_log_current_level)THEN
438: fnd_log.string
439: (
440: fnd_log.level_procedure,
441: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
442: 'At the start of PL SQL procedure, p_reservation_id : '|| p_reservation_id
436: -- Log API entry point
437: IF (l_log_procedure >= l_log_current_level)THEN
438: fnd_log.string
439: (
440: fnd_log.level_procedure,
441: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
442: 'At the start of PL SQL procedure, p_reservation_id : '|| p_reservation_id
443: );
444: END IF;
450: FND_MESSAGE.set_name( 'AHL', 'AHL_LTP_MULTI_ORG' );
451: FND_MSG_PUB.add;
452: -- log the error
453: IF (l_log_error >= l_log_current_level) THEN
454: fnd_log.string
455: (
456: fnd_log.level_error,
457: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
458: 'Invalid Reservation ID'
452: -- log the error
453: IF (l_log_error >= l_log_current_level) THEN
454: fnd_log.string
455: (
456: fnd_log.level_error,
457: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
458: 'Invalid Reservation ID'
459: );
460: END IF;
474: FETCH get_reservation_csr into l_primary_reservation_quantity,l_inventory_item_id;
475: CLOSE get_reservation_csr;
476:
477: IF (l_log_statement >= l_log_current_level) THEN
478: fnd_log.string
479: (
480: fnd_log.level_statement,
481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
482: 'l_primary_reservation_quantity = '||l_primary_reservation_quantity||
476:
477: IF (l_log_statement >= l_log_current_level) THEN
478: fnd_log.string
479: (
480: fnd_log.level_statement,
481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
482: 'l_primary_reservation_quantity = '||l_primary_reservation_quantity||
483: 'l_to_rsv_rec.primary_reservation_quantity = '||l_to_rsv_rec.primary_reservation_quantity||
484: ' l_to_serial_number_tbl.count = '|| l_to_serial_number_tbl.count
506: l_from_rsv_rec.reservation_id := p_reservation_id;
507: l_to_rsv_rec.reservation_id := p_reservation_id;
508:
509: IF (l_log_statement >= l_log_current_level) THEN
510: fnd_log.string
511: (
512: fnd_log.level_statement,
513: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
514: 'Calling WMS api:inv_reservation_pub.update_reservation'
508:
509: IF (l_log_statement >= l_log_current_level) THEN
510: fnd_log.string
511: (
512: fnd_log.level_statement,
513: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
514: 'Calling WMS api:inv_reservation_pub.update_reservation'
515: );
516: END IF;
516: END IF;
517:
518:
519: IF (l_log_statement >= l_log_current_level) THEN
520: fnd_log.string
521: (
522: fnd_log.level_statement,
523: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
524: ',l_from_rsv_rec.project_id - ' || L_FROM_RSV_REC.PROJECT_ID ||
518:
519: IF (l_log_statement >= l_log_current_level) THEN
520: fnd_log.string
521: (
522: fnd_log.level_statement,
523: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
524: ',l_from_rsv_rec.project_id - ' || L_FROM_RSV_REC.PROJECT_ID ||
525: ', l_from_rsv_rec.task_id - ' || L_FROM_RSV_REC.TASK_ID ||
526: ', l_to_rsv_rec.project_id - ' || L_TO_RSV_REC.PROJECT_ID ||
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: (
551: fnd_log.level_error,
552: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
553: 'Call to WMS returned Unexpected Error'
547: -- log the error
548: IF (l_log_error >= l_log_current_level) THEN
549: fnd_log.string
550: (
551: fnd_log.level_error,
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
561: (
562: fnd_log.level_error,
563: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
564: 'Call to WMS returned Expected Error'
558: -- log the error
559: IF (l_log_error >= l_log_current_level) THEN
560: fnd_log.string
561: (
562: fnd_log.level_error,
563: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
564: 'Call to WMS returned Expected Error'
565: );
566: END IF;
572: IF x_msg_count > 0
573: THEN
574: -- log the error
575: IF (l_log_error >= l_log_current_level) THEN
576: fnd_log.string
577: (
578: fnd_log.level_error,
579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
580: 'Call to WMS returned Errors in x_msg_count'
574: -- log the error
575: IF (l_log_error >= l_log_current_level) THEN
576: fnd_log.string
577: (
578: fnd_log.level_error,
579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
580: 'Call to WMS returned Errors in x_msg_count'
581: );
582: END IF;
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
592: (
593: fnd_log.level_statement,
594: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
595: 'Committed'
589: COMMIT WORK;
590: IF (l_log_statement >= l_log_current_level) THEN
591: fnd_log.string
592: (
593: fnd_log.level_statement,
594: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
595: 'Committed'
596: );
597: END IF;
606: );
607:
608: -- Log API exit point
609: IF (l_log_procedure >= l_log_current_level)THEN
610: fnd_log.string
611: (
612: fnd_log.level_procedure,
613: l_debug_module||'.end',
614: 'At the end of PLSQL procedure'
608: -- Log API exit point
609: IF (l_log_procedure >= l_log_current_level)THEN
610: fnd_log.string
611: (
612: fnd_log.level_procedure,
613: l_debug_module||'.end',
614: 'At the end of PLSQL procedure'
615: );
616: END IF;
714: END IF;
715:
716: -- Log API entry point
717: IF (l_log_procedure >= l_log_current_level)THEN
718: fnd_log.string
719: (
720: fnd_log.level_procedure,
721: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
722: 'At the start of PL SQL procedure '
716: -- Log API entry point
717: IF (l_log_procedure >= l_log_current_level)THEN
718: fnd_log.string
719: (
720: fnd_log.level_procedure,
721: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
722: 'At the start of PL SQL procedure '
723: );
724: END IF;
730: FND_MESSAGE.set_name( 'AHL', 'AHL_LTP_MULTI_ORG' );
731: FND_MSG_PUB.add;
732: -- log the error
733: IF (l_log_error >= l_log_current_level) THEN
734: fnd_log.string
735: (
736: fnd_log.level_error,
737: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
738: 'Invalid Reservation ID'
732: -- log the error
733: IF (l_log_error >= l_log_current_level) THEN
734: fnd_log.string
735: (
736: fnd_log.level_error,
737: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
738: 'Invalid Reservation ID'
739: );
740: END IF;
755: p_rsv_rec => l_rsv_rec,
756: p_serial_number => l_serial_number_tbl
757: );
758: IF (l_log_statement >= l_log_current_level) THEN
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
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');
768: END IF;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
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');
775: END IF;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
777: END IF;
778:
779: -- Log API exit point
780: IF (l_log_procedure >= l_log_current_level)THEN
781: fnd_log.string
782: (
783: fnd_log.level_procedure,
784: l_debug_module||'.end',
785: 'At the end of PLSQL procedure'
779: -- Log API exit point
780: IF (l_log_procedure >= l_log_current_level)THEN
781: fnd_log.string
782: (
783: fnd_log.level_procedure,
784: l_debug_module||'.end',
785: 'At the end of PLSQL procedure'
786: );
787: END IF;
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
802: (
803: fnd_log.level_statement,
804: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
805: 'delete reservation COMMITTED'
799: COMMIT WORK;
800: IF (l_log_statement >= l_log_current_level) THEN
801: fnd_log.string
802: (
803: fnd_log.level_statement,
804: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
805: 'delete reservation COMMITTED'
806: );
807: END IF;
917: END IF;
918:
919: -- Log API entry point
920: IF (l_log_procedure >= l_log_current_level)THEN
921: fnd_log.string
922: (
923: fnd_log.level_procedure,
924: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
925: 'At the start of PL SQL procedure '
919: -- Log API entry point
920: IF (l_log_procedure >= l_log_current_level)THEN
921: fnd_log.string
922: (
923: fnd_log.level_procedure,
924: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
925: 'At the start of PL SQL procedure '
926: );
927: END IF;
940: FND_MESSAGE.set_name( 'AHL', 'AHL_LTP_MULTI_ORG' );
941: FND_MSG_PUB.add;
942: -- log the error
943: IF (l_log_error >= l_log_current_level) THEN
944: fnd_log.string
945: (
946: fnd_log.level_error,
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
948: 'Invalid Reservation ID'
942: -- log the error
943: IF (l_log_error >= l_log_current_level) THEN
944: fnd_log.string
945: (
946: fnd_log.level_error,
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
948: 'Invalid Reservation ID'
949: );
950: END IF;
967: IF (l_serial_number_tbl.COUNT < 1) THEN
968: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_INVLD_SL_NUM' );
969: FND_MSG_PUB.add;
970: IF (l_log_error>= l_log_current_level)THEN
971: fnd_log.string
972: (
973: fnd_log.level_error,
974: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
975: 'l_serial_number_tbl is null'
969: FND_MSG_PUB.add;
970: IF (l_log_error>= l_log_current_level)THEN
971: fnd_log.string
972: (
973: fnd_log.level_error,
974: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
975: 'l_serial_number_tbl is null'
976: );
977: END IF;
982: FOR i IN l_serial_number_tbl.FIRST..l_serial_number_tbl.LAST
983: LOOP
984: l_serial_number_tbl(i).inventory_item_id := l_mtl_req_dtls_rec.inventory_item_id;
985: IF (l_log_statement >= l_log_current_level) THEN
986: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
987: 'Serial Number '||i||' to be Deleted: ' || l_serial_number_tbl(i).serial_number);
988: END IF;
989: END LOOP;
990:
988: END IF;
989: END LOOP;
990:
991: IF (l_log_statement >= l_log_current_level) THEN
992: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
993: 'l_mtl_req_dtls_rec.inventory_item_id:' ||l_mtl_req_dtls_rec.inventory_item_id );
994: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
995: 'l_mtl_req_dtls_rec.organization_id:' || l_mtl_req_dtls_rec.organization_id );
996: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
990:
991: IF (l_log_statement >= l_log_current_level) THEN
992: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
993: 'l_mtl_req_dtls_rec.inventory_item_id:' ||l_mtl_req_dtls_rec.inventory_item_id );
994: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
995: 'l_mtl_req_dtls_rec.organization_id:' || l_mtl_req_dtls_rec.organization_id );
996: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
997: 'l_scheduled_material_id:' || l_scheduled_material_id );
998: END IF;
992: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
993: 'l_mtl_req_dtls_rec.inventory_item_id:' ||l_mtl_req_dtls_rec.inventory_item_id );
994: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
995: 'l_mtl_req_dtls_rec.organization_id:' || l_mtl_req_dtls_rec.organization_id );
996: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
997: 'l_scheduled_material_id:' || l_scheduled_material_id );
998: END IF;
999: END IF; -- IF(p_module_type <> G_PKG_NAME ) THEN
1000:
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,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1024: 'After Relieve/Delete FND_API.G_EXC_UNEXPECTED_ERROR'
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,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1024: 'After Relieve/Delete FND_API.G_EXC_UNEXPECTED_ERROR'
1025: );
1026: END IF;
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,
1033: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1034: 'After Relieve/Delete FND_API.G_EXC_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,
1033: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1034: 'After Relieve/Delete FND_API.G_EXC_ERROR'
1035: );
1036: END IF;
1038: END IF;
1039:
1040: -- Log API exit point
1041: IF (l_log_procedure >= l_log_current_level)THEN
1042: fnd_log.string
1043: (
1044: fnd_log.level_procedure,
1045: l_debug_module||'.end',
1046: 'At the end of PLSQL procedure x_primary_relieved_quantity :=' ||l_x_primary_relieved_quantity||' x_primary_remain_quantity:= '||l_x_primary_remain_quantity
1040: -- Log API exit point
1041: IF (l_log_procedure >= l_log_current_level)THEN
1042: fnd_log.string
1043: (
1044: fnd_log.level_procedure,
1045: l_debug_module||'.end',
1046: 'At the end of PLSQL procedure x_primary_relieved_quantity :=' ||l_x_primary_relieved_quantity||' x_primary_remain_quantity:= '||l_x_primary_remain_quantity
1047: );
1048: END IF;
1185:
1186:
1187: -- Log API entry point
1188: IF (l_log_procedure >= l_log_current_level)THEN
1189: fnd_log.string
1190: (
1191: fnd_log.level_procedure,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1193: 'At the start of PL SQL procedure : demand ASM_ID = '|| l_rsv_rec.demand_source_line_detail|| ' to_reservation_id = '|| l_rsv_rec.reservation_id
1187: -- Log API entry point
1188: IF (l_log_procedure >= l_log_current_level)THEN
1189: fnd_log.string
1190: (
1191: fnd_log.level_procedure,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1193: 'At the start of PL SQL procedure : demand ASM_ID = '|| l_rsv_rec.demand_source_line_detail|| ' to_reservation_id = '|| l_rsv_rec.reservation_id
1194: );
1195: END IF;
1198: IF(p_module_type <> G_PKG_NAME ) THEN
1199: -- Validate to make sure that the p_schedule_material_id is not empty
1200: IF(l_rsv_rec.demand_source_line_detail IS NULL AND l_rsv_rec.reservation_id IS NULL) THEN
1201: IF (l_log_statement >= l_log_current_level) THEN
1202: fnd_log.string(
1203: fnd_log.level_statement,
1204: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1205: 'p_schedule_material_id is null for demand, p_schedule_material_id:' ||l_rsv_rec.demand_source_line_detail);
1206: END IF;
1199: -- Validate to make sure that the p_schedule_material_id is not empty
1200: IF(l_rsv_rec.demand_source_line_detail IS NULL AND l_rsv_rec.reservation_id IS NULL) THEN
1201: IF (l_log_statement >= l_log_current_level) THEN
1202: fnd_log.string(
1203: fnd_log.level_statement,
1204: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
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' );
1215: FND_MESSAGE.set_name( 'AHL', 'AHL_LTP_MULTI_ORG' );
1216: FND_MSG_PUB.add;
1217: -- log the error
1218: IF (l_log_error >= l_log_current_level) THEN
1219: fnd_log.string
1220: (
1221: fnd_log.level_error,
1222: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1223: 'Invalid Reservation ID'
1217: -- log the error
1218: IF (l_log_error >= l_log_current_level) THEN
1219: fnd_log.string
1220: (
1221: fnd_log.level_error,
1222: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1223: 'Invalid Reservation ID'
1224: );
1225: END IF;
1243: FOR i IN l_serial_number_tbl.FIRST..l_serial_number_tbl.LAST
1244: LOOP
1245: l_serial_number_tbl(i).inventory_item_id := l_mtl_req_dtls_rec.inventory_item_id;
1246: IF (l_log_statement >= l_log_current_level) THEN
1247: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1248: 'Serial Number '||i||' to be reserved: ' || l_serial_number_tbl(i).serial_number);
1249: END IF;
1250: END LOOP;
1251: END IF;
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,
1267: 'Call to Initialize_create_rec returned Unexpected Error');
1268: END IF;
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,
1267: 'Call to Initialize_create_rec returned Unexpected Error');
1268: END IF;
1269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1283:
1284: --rec type
1285: IF (l_log_statement >= l_log_current_level) THEN
1286: fnd_log.string
1287: (
1288: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1289: 'Before Converting'
1290: );
1284: --rec type
1285: IF (l_log_statement >= l_log_current_level) THEN
1286: fnd_log.string
1287: (
1288: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1289: 'Before Converting'
1290: );
1291: fnd_log.string
1292: (
1287: (
1288: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1289: 'Before Converting'
1290: );
1291: fnd_log.string
1292: (
1293: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1294: 'l_rsv_rec.demand_source_type_id' || l_rsv_rec.demand_source_type_id
1295: );
1289: 'Before Converting'
1290: );
1291: fnd_log.string
1292: (
1293: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1294: 'l_rsv_rec.demand_source_type_id' || l_rsv_rec.demand_source_type_id
1295: );
1296: fnd_log.string
1297: (
1292: (
1293: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1294: 'l_rsv_rec.demand_source_type_id' || l_rsv_rec.demand_source_type_id
1295: );
1296: fnd_log.string
1297: (
1298: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1299: 'l_rsv_rec.reservation_id' || l_rsv_rec.reservation_id
1300: );
1294: 'l_rsv_rec.demand_source_type_id' || l_rsv_rec.demand_source_type_id
1295: );
1296: fnd_log.string
1297: (
1298: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1299: 'l_rsv_rec.reservation_id' || l_rsv_rec.reservation_id
1300: );
1301: fnd_log.string
1302: (
1297: (
1298: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1299: 'l_rsv_rec.reservation_id' || l_rsv_rec.reservation_id
1300: );
1301: fnd_log.string
1302: (
1303: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1304: 'l_rsv_rec.primary_reservation_quantity' || l_rsv_rec.primary_reservation_quantity
1305: );
1299: 'l_rsv_rec.reservation_id' || l_rsv_rec.reservation_id
1300: );
1301: fnd_log.string
1302: (
1303: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1304: 'l_rsv_rec.primary_reservation_quantity' || l_rsv_rec.primary_reservation_quantity
1305: );
1306: fnd_log.string
1307: (
1302: (
1303: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1304: 'l_rsv_rec.primary_reservation_quantity' || l_rsv_rec.primary_reservation_quantity
1305: );
1306: fnd_log.string
1307: (
1308: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1309: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1310: );
1304: 'l_rsv_rec.primary_reservation_quantity' || l_rsv_rec.primary_reservation_quantity
1305: );
1306: fnd_log.string
1307: (
1308: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1309: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1310: );
1311: fnd_log.string
1312: (
1307: (
1308: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1309: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1310: );
1311: fnd_log.string
1312: (
1313: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1314: 'l_rsv_rec.inventory_item_id' || l_rsv_rec.inventory_item_id
1315: );
1309: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1310: );
1311: fnd_log.string
1312: (
1313: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1314: 'l_rsv_rec.inventory_item_id' || l_rsv_rec.inventory_item_id
1315: );
1316: fnd_log.string
1317: (
1312: (
1313: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1314: 'l_rsv_rec.inventory_item_id' || l_rsv_rec.inventory_item_id
1315: );
1316: fnd_log.string
1317: (
1318: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1319: 'l_rsv_rec.subinventory_code: ' || l_rsv_rec.subinventory_code|| ' and l_rsv_rec.locator_id: '||l_rsv_rec.locator_id
1320: );
1314: 'l_rsv_rec.inventory_item_id' || l_rsv_rec.inventory_item_id
1315: );
1316: fnd_log.string
1317: (
1318: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1319: 'l_rsv_rec.subinventory_code: ' || l_rsv_rec.subinventory_code|| ' and l_rsv_rec.locator_id: '||l_rsv_rec.locator_id
1320: );
1321: END IF;
1322:
1326: x_serial_number_tbl => l_to_serial_number_tbl);
1327:
1328:
1329: IF (l_log_statement >= l_log_current_level) THEN
1330: fnd_log.string
1331: (
1332: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1333: 'Before Calling inv_reservation_pub.transfer_reservation'
1334: );
1328:
1329: IF (l_log_statement >= l_log_current_level) THEN
1330: fnd_log.string
1331: (
1332: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1333: 'Before Calling inv_reservation_pub.transfer_reservation'
1334: );
1335: fnd_log.string
1336: (
1331: (
1332: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1333: 'Before Calling inv_reservation_pub.transfer_reservation'
1334: );
1335: fnd_log.string
1336: (
1337: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1338: 'l_to_rsv_rec.demand_source_type_id' || l_to_rsv_rec.demand_source_type_id
1339: );
1333: 'Before Calling inv_reservation_pub.transfer_reservation'
1334: );
1335: fnd_log.string
1336: (
1337: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1338: 'l_to_rsv_rec.demand_source_type_id' || l_to_rsv_rec.demand_source_type_id
1339: );
1340: fnd_log.string
1341: (
1336: (
1337: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1338: 'l_to_rsv_rec.demand_source_type_id' || l_to_rsv_rec.demand_source_type_id
1339: );
1340: fnd_log.string
1341: (
1342: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1343: 'l_to_rsv_rec.reservation_id' || l_to_rsv_rec.reservation_id
1344: );
1338: 'l_to_rsv_rec.demand_source_type_id' || l_to_rsv_rec.demand_source_type_id
1339: );
1340: fnd_log.string
1341: (
1342: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1343: 'l_to_rsv_rec.reservation_id' || l_to_rsv_rec.reservation_id
1344: );
1345: fnd_log.string
1346: (
1341: (
1342: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1343: 'l_to_rsv_rec.reservation_id' || l_to_rsv_rec.reservation_id
1344: );
1345: fnd_log.string
1346: (
1347: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1348: 'l_to_rsv_rec.demand_source_line_detail' || l_to_rsv_rec.demand_source_line_detail
1349: );
1343: 'l_to_rsv_rec.reservation_id' || l_to_rsv_rec.reservation_id
1344: );
1345: fnd_log.string
1346: (
1347: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1348: 'l_to_rsv_rec.demand_source_line_detail' || l_to_rsv_rec.demand_source_line_detail
1349: );
1350: fnd_log.string
1351: (
1346: (
1347: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1348: 'l_to_rsv_rec.demand_source_line_detail' || l_to_rsv_rec.demand_source_line_detail
1349: );
1350: fnd_log.string
1351: (
1352: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1353: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1354: );
1348: 'l_to_rsv_rec.demand_source_line_detail' || l_to_rsv_rec.demand_source_line_detail
1349: );
1350: fnd_log.string
1351: (
1352: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1353: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1354: );
1355: fnd_log.string
1356: (
1351: (
1352: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1353: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1354: );
1355: fnd_log.string
1356: (
1357: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1358: 'From Rec scheduled_material_id' || l_scheduled_material_id
1359: );
1353: 'l_from_rsv_rec.reservation_id' || l_from_rsv_rec.reservation_id
1354: );
1355: fnd_log.string
1356: (
1357: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1358: 'From Rec scheduled_material_id' || l_scheduled_material_id
1359: );
1360: fnd_log.string
1361: (
1356: (
1357: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1358: 'From Rec scheduled_material_id' || l_scheduled_material_id
1359: );
1360: fnd_log.string
1361: (
1362: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1363: 'l_to_rsv_rec.subinventory_code: ' || l_to_rsv_rec.subinventory_code|| ' and l_to_rsv_rec.locator_id: '||l_to_rsv_rec.locator_id
1364: );
1358: 'From Rec scheduled_material_id' || l_scheduled_material_id
1359: );
1360: fnd_log.string
1361: (
1362: fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1363: 'l_to_rsv_rec.subinventory_code: ' || l_to_rsv_rec.subinventory_code|| ' and l_to_rsv_rec.locator_id: '||l_to_rsv_rec.locator_id
1364: );
1365: END IF;
1366:
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,
1390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1391: 'inv_reservation_pub.transfer_reservation returned FND_API.G_EXC_ERROR'
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,
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;
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,
1400: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1401: 'inv_reservation_pub.transfer_reservation returned FND_API.G_RET_STS_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,
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;
1406: l_x_to_reservation_id := x_to_reservation_id;
1407:
1408: -- Log API exit point
1409: IF (l_log_procedure >= l_log_current_level)THEN
1410: fnd_log.string
1411: (
1412: fnd_log.level_procedure,
1413: l_debug_module||'.end',
1414: 'At the end of PLSQL procedure'
1408: -- Log API exit point
1409: IF (l_log_procedure >= l_log_current_level)THEN
1410: fnd_log.string
1411: (
1412: fnd_log.level_procedure,
1413: l_debug_module||'.end',
1414: 'At the end of PLSQL procedure'
1415: );
1416: END IF;
1560: END IF;
1561:
1562: -- Log API entry point
1563: IF (l_log_procedure >= l_log_current_level) THEN
1564: fnd_log.string
1565: (
1566: fnd_log.level_procedure,
1567: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1568: 'At the start of PL SQL procedure scheduled_material_id : ' || l_scheduled_material_id ||
1562: -- Log API entry point
1563: IF (l_log_procedure >= l_log_current_level) THEN
1564: fnd_log.string
1565: (
1566: fnd_log.level_procedure,
1567: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1568: 'At the start of PL SQL procedure scheduled_material_id : ' || l_scheduled_material_id ||
1569: 'total serial_number count: '||p_serial_number_tbl.COUNT
1570: );
1577: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_INVLD_MAT_REQ' );
1578: FND_MSG_PUB.add;
1579: -- log the error
1580: IF (l_log_error >= l_log_current_level) THEN
1581: fnd_log.string
1582: (
1583: fnd_log.level_error,
1584: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1585: 'get_mtl_req_dtls_csr, did not fetch any records'
1579: -- log the error
1580: IF (l_log_error >= l_log_current_level) THEN
1581: fnd_log.string
1582: (
1583: fnd_log.level_error,
1584: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1585: 'get_mtl_req_dtls_csr, did not fetch any records'
1586: );
1587: END IF;
1596: FND_MESSAGE.set_name( 'AHL', 'AHL_RSV_QTY_EXCDS_REQSTD' );
1597: FND_MSG_PUB.add;
1598: -- log the error
1599: IF (l_log_error >= l_log_current_level) THEN
1600: fnd_log.string
1601: (
1602: fnd_log.level_error,
1603: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1604: 'Already Completed Qty + Reserved Qty is equal or more than Requested Qty '
1598: -- log the error
1599: IF (l_log_error >= l_log_current_level) THEN
1600: fnd_log.string
1601: (
1602: fnd_log.level_error,
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;
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: (
1621: fnd_log.level_statement,
1622: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1623: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : '
1617: THEN
1618: IF (l_log_statement >= l_log_current_level) THEN
1619: fnd_log.string
1620: (
1621: fnd_log.level_statement,
1622: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1623: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : '
1624: );
1625: END IF;
1639: p_serial_number_tbl => l_serial_number_tbl
1640: );
1641:
1642: IF (l_log_statement >= l_log_current_level) THEN
1643: fnd_log.string
1644: (
1645: fnd_log.level_statement,
1646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1647: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1641:
1642: IF (l_log_statement >= l_log_current_level) THEN
1643: fnd_log.string
1644: (
1645: fnd_log.level_statement,
1646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1647: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1648: );
1649: END IF;
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: (
1657: fnd_log.level_error,
1658: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1659: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1653: -- log the error
1654: IF (l_log_error >= l_log_current_level) THEN
1655: fnd_log.string
1656: (
1657: fnd_log.level_error,
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
1667: (
1668: fnd_log.level_error,
1669: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1670: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
1664: -- log the error
1665: IF (l_log_error >= l_log_current_level) THEN
1666: fnd_log.string
1667: (
1668: fnd_log.level_error,
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;
1680: FND_MESSAGE.set_name( 'AHL', 'AHL_PP_SERIAL_MISSING' );
1681: FND_MSG_PUB.add;
1682: -- log the error
1683: IF (l_log_error >= l_log_current_level) THEN
1684: fnd_log.string
1685: (
1686: fnd_log.level_error,
1687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1688: 'Serial Number passed to the API is null'
1682: -- log the error
1683: IF (l_log_error >= l_log_current_level) THEN
1684: fnd_log.string
1685: (
1686: fnd_log.level_error,
1687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1688: 'Serial Number passed to the API is null'
1689: );
1690: END IF;
1718: p_reservation_id => l_reservation_id,
1719: p_serial_number_tbl => l_filter_srl_number_tbl);
1720:
1721: IF (l_log_statement >= l_log_current_level) THEN
1722: fnd_log.string
1723: (
1724: fnd_log.level_statement,
1725: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1726: 'After Calling AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION: and l_return_status = '||l_return_status
1720:
1721: IF (l_log_statement >= l_log_current_level) THEN
1722: fnd_log.string
1723: (
1724: fnd_log.level_statement,
1725: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1726: 'After Calling AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION: and l_return_status = '||l_return_status
1727: );
1728: END IF;
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: (
1736: fnd_log.level_error,
1737: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1738: 'Call to AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION returned Unexpected Error'
1732: -- log the error
1733: IF (l_log_error >= l_log_current_level) THEN
1734: fnd_log.string
1735: (
1736: fnd_log.level_error,
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
1746: (
1747: fnd_log.level_error,
1748: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1749: 'Call to AHL_MM_RESERVATIONS_PVT.RELIEVE_RESERVATION returned Expected Error'
1743: -- log the error
1744: IF (l_log_error >= l_log_current_level) THEN
1745: fnd_log.string
1746: (
1747: fnd_log.level_error,
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;
1764: l_locator_id := l_locator_id_tbl(i);
1765: l_lot_number := l_lot_number_tbl(i);
1766: l_revision := l_revision_tbl(i);
1767: IF (l_log_statement >= l_log_current_level) THEN
1768: fnd_log.string
1769: (
1770: fnd_log.level_statement,
1771: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1772: '1st sub inv : = '|| l_sub_inv_code
1766: l_revision := l_revision_tbl(i);
1767: IF (l_log_statement >= l_log_current_level) THEN
1768: fnd_log.string
1769: (
1770: fnd_log.level_statement,
1771: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1772: '1st sub inv : = '|| l_sub_inv_code
1773: );
1774: END IF;
1804: l_sub_inv_code_tbl.DELETE(l_index_tbl(k));
1805: END LOOP;
1806:
1807: IF (l_log_statement >= l_log_current_level) THEN
1808: fnd_log.string
1809: (
1810: fnd_log.level_statement,
1811: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1812: 'For sub inv : = '|| l_sub_inv_code|| ', locator : '||l_locator_id||
1806:
1807: IF (l_log_statement >= l_log_current_level) THEN
1808: fnd_log.string
1809: (
1810: fnd_log.level_statement,
1811: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1812: 'For sub inv : = '|| l_sub_inv_code|| ', locator : '||l_locator_id||
1813: ', lot_number : '||l_lot_number||', and l_revision'||l_revision||' => total serial := '||l_filter_srl_number_tbl.COUNT
1814: );
1825: x_reservation_quantity => l_x_quantity_reserved);
1826:
1827: IF(l_x_reservation_id IS NOT NULL) THEN
1828: IF (l_log_statement >= l_log_current_level) THEN
1829: fnd_log.string
1830: (
1831: fnd_log.level_statement,
1832: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1833: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : Supply is Inventory'
1827: IF(l_x_reservation_id IS NOT NULL) THEN
1828: IF (l_log_statement >= l_log_current_level) THEN
1829: fnd_log.string
1830: (
1831: fnd_log.level_statement,
1832: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1833: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : Supply is Inventory'
1834: );
1835: END IF;
1846: p_rsv_rec => l_create_rsv_rec,
1847: p_serial_number_tbl => l_filter_srl_number_tbl);
1848:
1849: IF (l_log_statement >= l_log_current_level) THEN
1850: fnd_log.string
1851: (
1852: fnd_log.level_statement,
1853: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1854: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1848:
1849: IF (l_log_statement >= l_log_current_level) THEN
1850: fnd_log.string
1851: (
1852: fnd_log.level_statement,
1853: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1854: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1855: );
1856: END IF;
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: (
1864: fnd_log.level_error,
1865: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1866: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
1860: -- log the error
1861: IF (l_log_error >= l_log_current_level) THEN
1862: fnd_log.string
1863: (
1864: fnd_log.level_error,
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
1874: (
1875: fnd_log.level_error,
1876: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1877: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
1871: -- log the error
1872: IF (l_log_error >= l_log_current_level) THEN
1873: fnd_log.string
1874: (
1875: fnd_log.level_error,
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
1885: (
1886: fnd_log.level_statement,
1887: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1888: 'Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION : Supply is Inventory'
1882: ELSE
1883: IF (l_log_statement >= l_log_current_level) THEN
1884: fnd_log.string
1885: (
1886: fnd_log.level_statement,
1887: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1888: 'Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION : Supply is Inventory'
1889: );
1890: END IF;
1908: p_serial_number_tbl => l_filter_srl_number_tbl,
1909: x_reservation_id => l_x_reservation_id);
1910:
1911: IF (l_log_statement >= l_log_current_level) THEN
1912: fnd_log.string
1913: (
1914: fnd_log.level_statement,
1915: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1916: 'After Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION: x_reservation_id := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1910:
1911: IF (l_log_statement >= l_log_current_level) THEN
1912: fnd_log.string
1913: (
1914: fnd_log.level_statement,
1915: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1916: 'After Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION: x_reservation_id := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
1917: );
1918: END IF;
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: (
1926: fnd_log.level_error,
1927: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1928: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION returned Unexpected Error'
1922: -- log the error
1923: IF (l_log_error >= l_log_current_level) THEN
1924: fnd_log.string
1925: (
1926: fnd_log.level_error,
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
1936: (
1937: fnd_log.level_error,
1938: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1939: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION returned Expected Error'
1933: -- log the error
1934: IF (l_log_error >= l_log_current_level) THEN
1935: fnd_log.string
1936: (
1937: fnd_log.level_error,
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;
1963: THEN
1964: IF (l_log_statement >= l_log_current_level) THEN
1965: IF(l_create_rsv_rec.supply_source_type_id = inv_reservation_global.g_source_type_wip)
1966: THEN
1967: fnd_log.string
1968: (
1969: fnd_log.level_statement,
1970: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1971: 'Supply Source Type is ::Workorder---Source Type Id is::'||l_create_rsv_rec.supply_source_type_id
1965: IF(l_create_rsv_rec.supply_source_type_id = inv_reservation_global.g_source_type_wip)
1966: THEN
1967: fnd_log.string
1968: (
1969: fnd_log.level_statement,
1970: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1971: 'Supply Source Type is ::Workorder---Source Type Id is::'||l_create_rsv_rec.supply_source_type_id
1972: );
1973: ELSE
1970: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1971: 'Supply Source Type is ::Workorder---Source Type Id is::'||l_create_rsv_rec.supply_source_type_id
1972: );
1973: ELSE
1974: fnd_log.string
1975: (
1976: fnd_log.level_statement,
1977: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1978: 'Supply Source Type is ::Internal Requesition---Source Type Id is:: '||l_create_rsv_rec.supply_source_type_id
1972: );
1973: ELSE
1974: fnd_log.string
1975: (
1976: fnd_log.level_statement,
1977: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1978: 'Supply Source Type is ::Internal Requesition---Source Type Id is:: '||l_create_rsv_rec.supply_source_type_id
1979: );
1980: END IF;
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
1988: (
1989: fnd_log.level_statement,
1990: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1991: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : Supply is Workorder or Internal Requesition '
1985: IF (l_log_statement >= l_log_current_level)
1986: THEN
1987: fnd_log.string
1988: (
1989: fnd_log.level_statement,
1990: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
1991: 'Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION : Supply is Workorder or Internal Requesition '
1992: );
1993: END IF;
2002: x_return_status => l_return_status
2003: );
2004:
2005: IF (l_log_statement >= l_log_current_level) THEN
2006: fnd_log.string
2007: (
2008: fnd_log.level_statement,
2009: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2010: 'After Calling INITIALIZE_WO_UPDATE_REC :l_return_status = '||l_return_status||
2004:
2005: IF (l_log_statement >= l_log_current_level) THEN
2006: fnd_log.string
2007: (
2008: fnd_log.level_statement,
2009: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2010: 'After Calling INITIALIZE_WO_UPDATE_REC :l_return_status = '||l_return_status||
2011: ' And the project id is '||l_create_rsv_rec.project_id
2012: );
2028: p_serial_number_tbl => l_serial_number_tbl
2029: );
2030:
2031: IF (l_log_statement >= l_log_current_level) THEN
2032: fnd_log.string
2033: (
2034: fnd_log.level_statement,
2035: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2036: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
2030:
2031: IF (l_log_statement >= l_log_current_level) THEN
2032: fnd_log.string
2033: (
2034: fnd_log.level_statement,
2035: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2036: 'After Calling AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION: P_RESERVATION_ID := '|| l_x_reservation_id || ' and l_return_status = '||l_return_status
2037: );
2038: END IF;
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: (
2046: fnd_log.level_error,
2047: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2048: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Unexpected Error'
2042: -- log the error
2043: IF (l_log_error >= l_log_current_level) THEN
2044: fnd_log.string
2045: (
2046: fnd_log.level_error,
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
2056: (
2057: fnd_log.level_error,
2058: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2059: 'Call to AHL_MM_RESERVATIONS_PVT.UPDATE_RESERVATION returned Expected Error'
2053: -- log the error
2054: IF (l_log_error >= l_log_current_level) THEN
2055: fnd_log.string
2056: (
2057: fnd_log.level_error,
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;
2064:
2065: ELSE -- Create
2066:
2067: IF (l_log_statement >= l_log_current_level) THEN
2068: fnd_log.string
2069: (
2070: fnd_log.level_statement,
2071: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2072: 'Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION: Supply is Workorder or Internal Requesition'
2066:
2067: IF (l_log_statement >= l_log_current_level) THEN
2068: fnd_log.string
2069: (
2070: fnd_log.level_statement,
2071: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2072: 'Calling AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION: Supply is Workorder or Internal Requesition'
2073: );
2074: END IF;
2088: );
2089:
2090: x_reservation_id_tbl(1) := x_reservation_id;
2091: IF (l_log_statement >= l_log_current_level) THEN
2092: fnd_log.string
2093: (
2094: fnd_log.level_statement,
2095: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2096: 'After AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION x_reservation_id := '|| x_reservation_id || ' and l_return_status = '||l_return_status
2090: x_reservation_id_tbl(1) := x_reservation_id;
2091: IF (l_log_statement >= l_log_current_level) THEN
2092: fnd_log.string
2093: (
2094: fnd_log.level_statement,
2095: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
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: (
2105: fnd_log.level_error,
2106: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2107: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Unexpected Error'
2101: -- log the error
2102: IF (l_log_error >= l_log_current_level) THEN
2103: fnd_log.string
2104: (
2105: fnd_log.level_error,
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
2115: (
2116: fnd_log.level_error,
2117: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2118: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Expected Error'
2112: -- log the error
2113: IF (l_log_error >= l_log_current_level) THEN
2114: fnd_log.string
2115: (
2116: fnd_log.level_error,
2117: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2118: 'Call to AHL_MM_RESERVATIONS_PVT.CREATE_RESERVATION Expected Error'
2119: );
2120: END IF;
2127: FND_MESSAGE.set_name( 'AHL', 'AHL_MM_INV_SUP_SRC_TYPE' );
2128: FND_MSG_PUB.add;
2129: -- log the error
2130: IF (l_log_error >= l_log_current_level) THEN
2131: fnd_log.string
2132: (
2133: fnd_log.level_error,
2134: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
2135: 'Invalid Supply source'
2129: -- log the error
2130: IF (l_log_error >= l_log_current_level) THEN
2131: fnd_log.string
2132: (
2133: fnd_log.level_error,
2134: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
2135: 'Invalid Supply source'
2136: );
2137: END IF;
2144: IF x_msg_count > 0
2145: THEN
2146: -- log the error
2147: IF (l_log_error >= l_log_current_level) THEN
2148: fnd_log.string
2149: (
2150: fnd_log.level_error,
2151: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2152: 'Call to WMS returned Errors in x_msg_count'
2146: -- log the error
2147: IF (l_log_error >= l_log_current_level) THEN
2148: fnd_log.string
2149: (
2150: fnd_log.level_error,
2151: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2152: 'Call to WMS returned Errors in x_msg_count'
2153: );
2154: END IF;
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
2164: (
2165: fnd_log.level_statement,
2166: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2167: 'Committed'
2161: COMMIT WORK;
2162: IF (l_log_statement >= l_log_current_level) THEN
2163: fnd_log.string
2164: (
2165: fnd_log.level_statement,
2166: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2167: 'Committed'
2168: );
2169: END IF;
2178: );
2179:
2180: -- Log API exit point
2181: IF (l_log_procedure >= l_log_current_level)THEN
2182: fnd_log.string
2183: (
2184: fnd_log.level_procedure,
2185: l_debug_module||'.end',
2186: 'At the end of PLSQL procedure'
2180: -- Log API exit point
2181: IF (l_log_procedure >= l_log_current_level)THEN
2182: fnd_log.string
2183: (
2184: fnd_log.level_procedure,
2185: l_debug_module||'.end',
2186: 'At the end of PLSQL procedure'
2187: );
2188: END IF;
2301: END IF;
2302:
2303: -- Log API entry point
2304: IF (l_log_procedure >= l_log_current_level) THEN
2305: fnd_log.string
2306: (
2307: fnd_log.level_procedure,
2308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
2309: 'At the start of PL SQL procedure, total serial_number count: '||p_serial_number_tbl.COUNT
2303: -- Log API entry point
2304: IF (l_log_procedure >= l_log_current_level) THEN
2305: fnd_log.string
2306: (
2307: fnd_log.level_procedure,
2308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
2309: 'At the start of PL SQL procedure, total serial_number count: '||p_serial_number_tbl.COUNT
2310: );
2311: END IF;
2316: FND_MESSAGE.set_name( 'AHL', 'AHL_PP_SERIAL_MISSING' );
2317: FND_MSG_PUB.add;
2318: -- log the error
2319: IF (l_log_error >= l_log_current_level) THEN
2320: fnd_log.string
2321: (
2322: fnd_log.level_error,
2323: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2324: 'Serial Number passed to the API is null'
2318: -- log the error
2319: IF (l_log_error >= l_log_current_level) THEN
2320: fnd_log.string
2321: (
2322: fnd_log.level_error,
2323: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2324: 'Serial Number passed to the API is null'
2325: );
2326: END IF;
2333: FND_MESSAGE.set_name( 'AHL', 'AHL_LTP_MULTI_ORG' );
2334: FND_MSG_PUB.add;
2335: -- log the error
2336: IF (l_log_error >= l_log_current_level) THEN
2337: fnd_log.string
2338: (
2339: fnd_log.level_error,
2340: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2341: 'reservation table passed to the API is null'
2335: -- log the error
2336: IF (l_log_error >= l_log_current_level) THEN
2337: fnd_log.string
2338: (
2339: fnd_log.level_error,
2340: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2341: 'reservation table passed to the API is null'
2342: );
2343: END IF;
2347:
2348: -- For all records in reservation table
2349: FOR i IN l_reservation_id_tbl.FIRST..l_reservation_id_tbl.LAST LOOP
2350: IF (l_log_error >= l_log_current_level) THEN
2351: fnd_log.string
2352: (
2353: fnd_log.level_error,
2354: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2355: 'Inside reservtion table, iteration : '|| i|| ' reservation_id = '|| l_reservation_id_tbl(i)
2349: FOR i IN l_reservation_id_tbl.FIRST..l_reservation_id_tbl.LAST LOOP
2350: IF (l_log_error >= l_log_current_level) THEN
2351: fnd_log.string
2352: (
2353: fnd_log.level_error,
2354: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2355: 'Inside reservtion table, iteration : '|| i|| ' reservation_id = '|| l_reservation_id_tbl(i)
2356: );
2357: END IF;
2358: IF(l_reserv_serial_tbl.EXISTS(l_reservation_id_tbl(i))) THEN
2359: l_serial_tbl := l_reserv_serial_tbl(l_reservation_id_tbl(i));
2360: l_index := l_serial_tbl.COUNT;
2361: IF (l_log_error >= l_log_current_level) THEN
2362: fnd_log.string
2363: (
2364: fnd_log.level_error,
2365: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2366: 'reservation exists : '|| l_reservation_id_tbl(i) || ' present count := '||l_index||
2360: l_index := l_serial_tbl.COUNT;
2361: IF (l_log_error >= l_log_current_level) THEN
2362: fnd_log.string
2363: (
2364: fnd_log.level_error,
2365: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2366: 'reservation exists : '|| l_reservation_id_tbl(i) || ' present count := '||l_index||
2367: 'serial number := '|| l_serial_number_tbl(i).serial_number
2368: );
2373: ELSE
2374: IF (l_serial_number_tbl.EXISTS(i)) THEN
2375: -- l_serial_tbl := varchar_table_type(); -- initialize varray
2376: IF (l_log_error >= l_log_current_level) THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2380: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2381: 'serial number := '|| l_serial_number_tbl(i).serial_number
2375: -- l_serial_tbl := varchar_table_type(); -- initialize varray
2376: IF (l_log_error >= l_log_current_level) THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2380: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2381: 'serial number := '|| l_serial_number_tbl(i).serial_number
2382: );
2383: END IF;
2383: END IF;
2384: l_serial_tbl(1) := l_serial_number_tbl(i).serial_number;
2385: ELSE
2386: IF (l_log_error >= l_log_current_level) THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_error,
2390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2391: 'serial number not passed for this reservation := '||l_reservation_id_tbl(i)
2385: ELSE
2386: IF (l_log_error >= l_log_current_level) THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_error,
2390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2391: 'serial number not passed for this reservation := '||l_reservation_id_tbl(i)
2392: );
2393: END IF;
2413: FND_MESSAGE.set_name( 'AHL', 'AHL_MM_SRL_RSRV_INVALID' );
2414: FND_MSG_PUB.add;
2415: -- log the error
2416: IF (l_log_error >= l_log_current_level) THEN
2417: fnd_log.string
2418: (
2419: fnd_log.level_error,
2420: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2421: 'Serial number '||l_serial_tbl(j)||' does not match the reservation_id'||l_reservation_id
2415: -- log the error
2416: IF (l_log_error >= l_log_current_level) THEN
2417: fnd_log.string
2418: (
2419: fnd_log.level_error,
2420: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2421: 'Serial number '||l_serial_tbl(j)||' does not match the reservation_id'||l_reservation_id
2422: );
2423: END IF;
2431:
2432: END LOOP;
2433:
2434: IF (l_log_error >= l_log_current_level) THEN
2435: fnd_log.string
2436: (
2437: fnd_log.level_error,
2438: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2439: 'Resrv id := '|| l_reservation_id || ' serial count = '||l_tmp_serial_number_tbl.COUNT||
2433:
2434: IF (l_log_error >= l_log_current_level) THEN
2435: fnd_log.string
2436: (
2437: fnd_log.level_error,
2438: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2439: 'Resrv id := '|| l_reservation_id || ' serial count = '||l_tmp_serial_number_tbl.COUNT||
2440: ' l_resrved_quantity := '|| l_resrv_quantity
2441: );
2443: ELSE
2444: -- No serials passed, delete entire reservation
2445: l_resrv_quantity := l_tmp_serial_number_tbl.COUNT;
2446: IF (l_log_error >= l_log_current_level) THEN
2447: fnd_log.string
2448: (
2449: fnd_log.level_error,
2450: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2451: 'Resrv id := '|| l_reservation_id || ' Serial number not passed '||
2445: l_resrv_quantity := l_tmp_serial_number_tbl.COUNT;
2446: IF (l_log_error >= l_log_current_level) THEN
2447: fnd_log.string
2448: (
2449: fnd_log.level_error,
2450: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2451: 'Resrv id := '|| l_reservation_id || ' Serial number not passed '||
2452: ' l_tmp_serial_number_tbl.COUNT := '|| l_resrv_quantity
2453: );
2484:
2485: END IF;
2486:
2487: IF (l_log_statement >= l_log_current_level) THEN
2488: fnd_log.string
2489: (
2490: fnd_log.level_statement,
2491: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2492: 'After Calling Relieve/Delete reservation for reservation_id := '|| l_reservation_id || ' and l_return_status = '||l_return_status
2486:
2487: IF (l_log_statement >= l_log_current_level) THEN
2488: fnd_log.string
2489: (
2490: fnd_log.level_statement,
2491: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2492: 'After Calling Relieve/Delete reservation for reservation_id := '|| l_reservation_id || ' and l_return_status = '||l_return_status
2493: );
2494: END IF;
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: (
2502: fnd_log.level_error,
2503: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2504: 'Call to AHL_MM_RESERVATIONS_PVT.Relieve/Delete returned Unexpected Error'
2498: -- log the error
2499: IF (l_log_error >= l_log_current_level) THEN
2500: fnd_log.string
2501: (
2502: fnd_log.level_error,
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
2512: (
2513: fnd_log.level_error,
2514: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2515: 'Call to AHL_MM_RESERVATIONS_PVT.Relieve/Delete returned Expected Error'
2509: -- log the error
2510: IF (l_log_error >= l_log_current_level) THEN
2511: fnd_log.string
2512: (
2513: fnd_log.level_error,
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;
2523: l_resrv_quantity := null;
2524: l_tmp_serial_number_tbl.DELETE;
2525: l_reservation_id := l_reserv_serial_tbl.NEXT(l_reservation_id);
2526: IF (l_log_statement >= l_log_current_level) THEN
2527: fnd_log.string
2528: (
2529: fnd_log.level_statement,
2530: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2531: 'Next reservation_id := '|| l_reservation_id
2525: l_reservation_id := l_reserv_serial_tbl.NEXT(l_reservation_id);
2526: IF (l_log_statement >= l_log_current_level) THEN
2527: fnd_log.string
2528: (
2529: fnd_log.level_statement,
2530: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2531: 'Next reservation_id := '|| l_reservation_id
2532: );
2533: END IF;
2539: IF x_msg_count > 0
2540: THEN
2541: -- log the error
2542: IF (l_log_error >= l_log_current_level) THEN
2543: fnd_log.string
2544: (
2545: fnd_log.level_error,
2546: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2547: 'Call to WMS returned Errors in x_msg_count'
2541: -- log the error
2542: IF (l_log_error >= l_log_current_level) THEN
2543: fnd_log.string
2544: (
2545: fnd_log.level_error,
2546: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2547: 'Call to WMS returned Errors in x_msg_count'
2548: );
2549: END IF;
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
2559: (
2560: fnd_log.level_statement,
2561: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2562: 'Committed'
2556: COMMIT WORK;
2557: IF (l_log_statement >= l_log_current_level) THEN
2558: fnd_log.string
2559: (
2560: fnd_log.level_statement,
2561: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2562: 'Committed'
2563: );
2564: END IF;
2573: );
2574:
2575: -- Log API exit point
2576: IF (l_log_procedure >= l_log_current_level)THEN
2577: fnd_log.string
2578: (
2579: fnd_log.level_procedure,
2580: l_debug_module||'.end',
2581: 'At the end of PLSQL procedure'
2575: -- Log API exit point
2576: IF (l_log_procedure >= l_log_current_level)THEN
2577: fnd_log.string
2578: (
2579: fnd_log.level_procedure,
2580: l_debug_module||'.end',
2581: 'At the end of PLSQL procedure'
2582: );
2583: END IF;
2661: BEGIN
2662:
2663: -- Log API exit point
2664: IF (l_log_procedure >= l_log_current_level)THEN
2665: fnd_log.string
2666: (
2667: fnd_log.level_procedure,
2668: l_debug_module||'.start',
2669: 'At the start of PLSQL procedure'
2663: -- Log API exit point
2664: IF (l_log_procedure >= l_log_current_level)THEN
2665: fnd_log.string
2666: (
2667: fnd_log.level_procedure,
2668: l_debug_module||'.start',
2669: 'At the start of PLSQL procedure'
2670: );
2671: END IF;
2670: );
2671: END IF;
2672:
2673: IF (l_log_statement >= l_log_current_level) THEN
2674: fnd_log.string
2675: (
2676: fnd_log.level_statement,
2677: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2678: 'p_reservation_id is: ' || p_reservation_id
2672:
2673: IF (l_log_statement >= l_log_current_level) THEN
2674: fnd_log.string
2675: (
2676: fnd_log.level_statement,
2677: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2678: 'p_reservation_id is: ' || p_reservation_id
2679: );
2680: END IF;
2706: P_X_RSV_REC.SHIP_READY_FLAG := RSV_REC.SHIP_READY_FLAG;
2707:
2708:
2709: IF (l_log_statement >= l_log_current_level) THEN
2710: fnd_log.string
2711: (
2712: fnd_log.level_statement,
2713: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
2714: 'INITIALIZE_REC_FROM_RESV, P_X_RSV_REC.project_id : ' || P_X_RSV_REC.PROJECT_ID ||
2708:
2709: IF (l_log_statement >= l_log_current_level) THEN
2710: fnd_log.string
2711: (
2712: fnd_log.level_statement,
2713: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
2714: 'INITIALIZE_REC_FROM_RESV, P_X_RSV_REC.project_id : ' || P_X_RSV_REC.PROJECT_ID ||
2715: ', P_X_RSV_REC.task_id : ' || P_X_RSV_REC.TASK_ID
2716: );
2717: END IF;
2718:
2719: -- Log API exit point
2720: IF (l_log_procedure >= l_log_current_level)THEN
2721: fnd_log.string
2722: (
2723: fnd_log.level_procedure,
2724: l_debug_module||'.end',
2725: 'At the end of PLSQL procedure'
2719: -- Log API exit point
2720: IF (l_log_procedure >= l_log_current_level)THEN
2721: fnd_log.string
2722: (
2723: fnd_log.level_procedure,
2724: l_debug_module||'.end',
2725: 'At the end of PLSQL procedure'
2726: );
2727: END IF;
2759: BEGIN
2760:
2761: -- Log API exit point
2762: IF (l_log_procedure >= l_log_current_level)THEN
2763: fnd_log.string
2764: (
2765: fnd_log.level_procedure,
2766: l_debug_module||'.start',
2767: 'At the start of PLSQL procedure'
2761: -- Log API exit point
2762: IF (l_log_procedure >= l_log_current_level)THEN
2763: fnd_log.string
2764: (
2765: fnd_log.level_procedure,
2766: l_debug_module||'.start',
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: (
2776: fnd_log.level_statement,
2777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2778: 'p_schedule_material_id is: ' || p_schedule_material_id
2772:
2773: IF (l_log_statement >= l_log_current_level) THEN
2774: fnd_log.string
2775: (
2776: fnd_log.level_statement,
2777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2778: 'p_schedule_material_id is: ' || p_schedule_material_id
2779: );
2780: END IF;
2786:
2787: -- Check the WIP entity id for demand_source_header_id
2788: IF(l_mtl_req_dtls_rec.wip_entity_id is NULL) THEN
2789: IF (l_log_statement >= l_log_current_level) THEN
2790: fnd_log.string(
2791: fnd_log.level_statement,
2792: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
2793: 'Required demand is not for a workorder/wip_entity_id, p_schedule_material_id:' ||p_schedule_material_id);
2794: END IF;
2787: -- Check the WIP entity id for demand_source_header_id
2788: IF(l_mtl_req_dtls_rec.wip_entity_id is NULL) THEN
2789: IF (l_log_statement >= l_log_current_level) THEN
2790: fnd_log.string(
2791: fnd_log.level_statement,
2792: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
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' );
2798: RETURN;
2799: END IF;
2800:
2801: IF (l_log_statement >= l_log_current_level) THEN
2802: fnd_log.string
2803: (
2804: fnd_log.level_statement,
2805: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
2806: 'INITIALIZE_CREATE_REC, l_mtl_req_dtls_rec.project_id : ' || l_mtl_req_dtls_rec.PROJECT_ID ||
2800:
2801: IF (l_log_statement >= l_log_current_level) THEN
2802: fnd_log.string
2803: (
2804: fnd_log.level_statement,
2805: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
2806: 'INITIALIZE_CREATE_REC, l_mtl_req_dtls_rec.project_id : ' || l_mtl_req_dtls_rec.PROJECT_ID ||
2807: ', l_mtl_req_dtls_rec.task_id : ' || l_mtl_req_dtls_rec.TASK_ID
2808: );
2899: p_x_rsv_rec.attribute15 := NULL;
2900:
2901: -- Log API exit point
2902: IF (l_log_procedure >= l_log_current_level)THEN
2903: fnd_log.string
2904: (
2905: fnd_log.level_procedure,
2906: l_debug_module||'.end',
2907: 'At the end of PLSQL procedure'
2901: -- Log API exit point
2902: IF (l_log_procedure >= l_log_current_level)THEN
2903: fnd_log.string
2904: (
2905: fnd_log.level_procedure,
2906: l_debug_module||'.end',
2907: 'At the end of PLSQL procedure'
2908: );
2909: END IF;
2963: BEGIN
2964:
2965: -- Log API exit point
2966: IF (l_log_procedure >= l_log_current_level) THEN
2967: fnd_log.string(fnd_log.level_procedure, l_debug_module||'.start',
2968: 'At the start of PLSQL procedure, p_scheduled_material_id = ' || p_scheduled_material_id ||
2969: ', p_sub_inv_code = ' || p_sub_inv_code);
2970: END IF;
2971:
2974: CLOSE get_reservation_csr;
2975:
2976: -- Log API exit point
2977: IF (l_log_procedure >= l_log_current_level) THEN
2978: fnd_log.string(fnd_log.level_procedure, l_debug_module||'.end',
2979: 'At the end of PLSQL procedure, x_reservation_id = ' || x_reservation_id ||
2980: ', x_reservation_quantity = ' || x_reservation_quantity);
2981: END IF;
2982: END GET_MATCHING_RESERVATION;
2992: BEGIN
2993:
2994: -- Log API exit point
2995: IF (l_log_procedure >= l_log_current_level) THEN
2996: fnd_log.string(fnd_log.level_procedure, l_debug_module||'.start',
2997: 'At the start of PLSQL procedure, p_mtl_reservation_rec = ' ||
2998: ', p_serial_number_tbl = ' || p_serial_number_tbl.COUNT);
2999: END IF;
3000:
3083: END LOOP;
3084: END IF;
3085: -- Log API exit point
3086: IF (l_log_procedure >= l_log_current_level) THEN
3087: fnd_log.string(fnd_log.level_procedure, l_debug_module||'.end',
3088: 'At the end of PLSQL procedure, x_mtl_reservation_rec = ' ||
3089: ', x_serial_number_tbl = ' || x_serial_number_tbl.COUNT);
3090: END IF;
3091: END CONVERT_TO_INV_TABLE_TYPE;
3123: BEGIN
3124:
3125: -- Log API exit point
3126: IF (l_log_procedure >= l_log_current_level)THEN
3127: fnd_log.string
3128: (
3129: fnd_log.level_procedure,
3130: l_debug_module||'.start',
3131: 'At the start of PLSQL procedure'
3125: -- Log API exit point
3126: IF (l_log_procedure >= l_log_current_level)THEN
3127: fnd_log.string
3128: (
3129: fnd_log.level_procedure,
3130: l_debug_module||'.start',
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: (
3140: fnd_log.level_statement,
3141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
3142: 'p_schedule_material_id is: ' || p_schedule_material_id
3136:
3137: IF (l_log_statement >= l_log_current_level) THEN
3138: fnd_log.string
3139: (
3140: fnd_log.level_statement,
3141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
3142: 'p_schedule_material_id is: ' || p_schedule_material_id
3143: );
3144: END IF;
3150:
3151: -- Check the WIP entity id for demand_source_header_id
3152: IF(l_mtl_req_dtls_rec.wip_entity_id is NULL) THEN
3153: IF (l_log_statement >= l_log_current_level) THEN
3154: fnd_log.string(
3155: fnd_log.level_statement,
3156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
3157: 'Required demand is not for a workorder/wip_entity_id, p_schedule_material_id:' ||p_schedule_material_id);
3158: END IF;
3151: -- Check the WIP entity id for demand_source_header_id
3152: IF(l_mtl_req_dtls_rec.wip_entity_id is NULL) THEN
3153: IF (l_log_statement >= l_log_current_level) THEN
3154: fnd_log.string(
3155: fnd_log.level_statement,
3156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
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' );
3162: RETURN;
3163: END IF;
3164:
3165: IF (l_log_statement >= l_log_current_level) THEN
3166: fnd_log.string
3167: (
3168: fnd_log.level_statement,
3169: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3170: 'INITIALIZE_WO_UPDATE_REC, l_mtl_req_dtls_rec.project_id : ' || l_mtl_req_dtls_rec.PROJECT_ID ||
3164:
3165: IF (l_log_statement >= l_log_current_level) THEN
3166: fnd_log.string
3167: (
3168: fnd_log.level_statement,
3169: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3170: 'INITIALIZE_WO_UPDATE_REC, l_mtl_req_dtls_rec.project_id : ' || l_mtl_req_dtls_rec.PROJECT_ID ||
3171: ', l_mtl_req_dtls_rec.task_id : ' || l_mtl_req_dtls_rec.TASK_ID
3172: );
3266: p_x_rsv_rec.attribute15 := NULL;
3267:
3268: -- Log API exit point
3269: IF (l_log_procedure >= l_log_current_level)THEN
3270: fnd_log.string
3271: (
3272: fnd_log.level_procedure,
3273: l_debug_module||'.end',
3274: 'At the end of PLSQL procedure'
3268: -- Log API exit point
3269: IF (l_log_procedure >= l_log_current_level)THEN
3270: fnd_log.string
3271: (
3272: fnd_log.level_procedure,
3273: l_debug_module||'.end',
3274: 'At the end of PLSQL procedure'
3275: );
3276: END IF;