386: IF FND_API.To_Boolean(p_init_msg_list) THEN
387: FND_MSG_PUB.Initialize;
388: END IF;
389:
390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
391: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
392: END IF;
393:
394: -- Start processing
387: FND_MSG_PUB.Initialize;
388: END IF;
389:
390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
391: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
392: END IF;
393:
394: -- Start processing
395:
397: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
398: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
399: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
400: FND_MSG_PUB.ADD;
401: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
402: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
403: END IF;
404: RAISE Fnd_Api.g_exc_error;
405: END IF;
398: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
399: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
400: FND_MSG_PUB.ADD;
401: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
402: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
403: END IF;
404: RAISE Fnd_Api.g_exc_error;
405: END IF;
406:
408: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
409: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
410: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
411: FND_MSG_PUB.ADD;
412: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
414: END IF;
415: RAISE Fnd_Api.g_exc_error;
416: END IF;
409: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
410: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
411: FND_MSG_PUB.ADD;
412: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
414: END IF;
415: RAISE Fnd_Api.g_exc_error;
416: END IF;
417:
419: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
420: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
421: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
422: FND_MSG_PUB.ADD;
423: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
425: END IF;
426: RAISE Fnd_Api.g_exc_error;
427: END IF;
420: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
421: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
422: FND_MSG_PUB.ADD;
423: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
425: END IF;
426: RAISE Fnd_Api.g_exc_error;
427: END IF;
428:
425: END IF;
426: RAISE Fnd_Api.g_exc_error;
427: END IF;
428:
429: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
431: END IF;
432:
433: Convert_Header_rec(p_header_rec => p_x_header_rec,
426: RAISE Fnd_Api.g_exc_error;
427: END IF;
428:
429: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
431: END IF;
432:
433: Convert_Header_rec(p_header_rec => p_x_header_rec,
434: p_module_type => p_module_type,
434: p_module_type => p_module_type,
435: x_header_rec => l_header_rec,
436: x_header_val_rec => l_header_val_rec );
437:
438: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Header_rec, About to Process_Line_Tbl');
440: END IF;
441:
442: Process_Line_Tbl(p_osp_order_id => p_x_header_rec.osp_order_id,
435: x_header_rec => l_header_rec,
436: x_header_val_rec => l_header_val_rec );
437:
438: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Header_rec, About to Process_Line_Tbl');
440: END IF;
441:
442: Process_Line_Tbl(p_osp_order_id => p_x_header_rec.osp_order_id,
443: p_operation_flag => p_x_header_rec.operation,
443: p_operation_flag => p_x_header_rec.operation,
444: p_module_type => p_module_type,
445: p_x_line_tbl => p_x_lines_tbl);
446:
447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Process_Line_Tbl, About to Convert_Line_Tbl');
449: END IF;
450:
451: Convert_Line_Tbl(p_line_tbl => p_x_lines_tbl,
444: p_module_type => p_module_type,
445: p_x_line_tbl => p_x_lines_tbl);
446:
447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Process_Line_Tbl, About to Convert_Line_Tbl');
449: END IF;
450:
451: Convert_Line_Tbl(p_line_tbl => p_x_lines_tbl,
452: p_module_type => p_module_type,
462: we call a Public API in this procedure, its better we throw the error here itself.
463: */
464: l_msg_count := FND_MSG_PUB.count_msg;
465: IF l_msg_count > 0 THEN
466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
468: END IF;
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
463: */
464: l_msg_count := FND_MSG_PUB.count_msg;
465: IF l_msg_count > 0 THEN
466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
468: END IF;
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
471:
470: END IF;
471:
472: -- jaramana End
473:
474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
476: END IF;
477:
478: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
471:
472: -- jaramana End
473:
474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
476: END IF;
477:
478: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
479: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
510: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
511: x_action_request_tbl => x_action_request_tbl );
512:
513:
514: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
515: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
516: END IF;
517:
518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
511: x_action_request_tbl => x_action_request_tbl );
512:
513:
514: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
515: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
516: END IF;
517:
518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
519: FOR i IN 1..x_msg_count LOOP
523: p_msg_index_out => l_msg_index_out);
524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
525: p_procedure_name => 'processOrder',
526: p_error_text => substr(l_msg_data,1,240));
527: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
529: END IF;
530:
531: END LOOP;
524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
525: p_procedure_name => 'processOrder',
526: p_error_text => substr(l_msg_data,1,240));
527: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
529: END IF;
530:
531: END LOOP;
532: END IF;
543: OE_ORDER_GRP.PROCESS_ORDER
544: */
545:
546: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
549: FND_MSG_PUB.get (
550: p_msg_index => i,
551: p_encoded => FND_API.G_FALSE,
550: p_msg_index => i,
551: p_encoded => FND_API.G_FALSE,
552: p_data => l_msg_data,
553: p_msg_index_out => l_msg_index_out );
554: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
555: END LOOP;
556: END IF;
557: FND_MSG_PUB.Initialize;
558: -- jaramana End
561: IF (p_x_header_rec.operation = 'C') THEN
562: p_x_header_rec.header_id := x_header_rec.header_id;
563:
564: --Update AHL_OSP_ORDERS tables with ids/new id
565: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order');
567: END IF;
568: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
569: p_oe_header_id => p_x_header_rec.header_id );
562: p_x_header_rec.header_id := x_header_rec.header_id;
563:
564: --Update AHL_OSP_ORDERS tables with ids/new id
565: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order');
567: END IF;
568: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
569: p_oe_header_id => p_x_header_rec.header_id );
570: ELSIF (p_x_header_rec.operation = 'D') THEN
568: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
569: p_oe_header_id => p_x_header_rec.header_id );
570: ELSIF (p_x_header_rec.operation = 'D') THEN
571: --Update AHL_OSP_ORDERS/OSP_ORDER_LINES tables with ids/new id
572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order');
574: END IF;
575: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
576: END IF;
569: p_oe_header_id => p_x_header_rec.header_id );
570: ELSIF (p_x_header_rec.operation = 'D') THEN
571: --Update AHL_OSP_ORDERS/OSP_ORDER_LINES tables with ids/new id
572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order');
574: END IF;
575: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
576: END IF;
577:
575: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
576: END IF;
577:
578: -- Handle Shipment Line Deletions
579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
581: END IF;
582: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: END IF;
577:
578: -- Handle Shipment Line Deletions
579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
581: END IF;
582: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
581: END IF;
582: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
585: END IF;
586: Delete_Cancel_Order (
587: p_api_version => 1.0,
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
581: END IF;
582: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
585: END IF;
586: Delete_Cancel_Order (
587: p_api_version => 1.0,
588: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
593: x_return_status => x_return_status ,
594: x_msg_count => x_msg_count ,
595: x_msg_data => x_msg_data
596: );
597: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
594: x_msg_count => x_msg_count ,
595: x_msg_data => x_msg_data
596: );
597: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
617: END IF;
618:
619: IF p_x_lines_tbl(i).csi_item_instance_id IS NOT NULL THEN
620:
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Create_IB_Transaction');
623: END IF;
624: /*
625: Modified by jaramana on January 11, 2008 for fixing the Bug 5935388/6504122
618:
619: IF p_x_lines_tbl(i).csi_item_instance_id IS NOT NULL THEN
620:
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Create_IB_Transaction');
623: END IF;
624: /*
625: Modified by jaramana on January 11, 2008 for fixing the Bug 5935388/6504122
626: The "Create Shipment" action passes p_init_msg_list as TRUE as it is the starting point.
639: p_osp_order_type => p_x_lines_tbl(i).order_type,
640: p_oe_line_type => l_line_type,
641: p_oe_line_id => p_x_lines_tbl(i).line_id,
642: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
640: p_oe_line_type => l_line_type,
641: p_oe_line_id => p_x_lines_tbl(i).line_id,
642: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651:
652: --Update OSP Order Lines with the new line_id
653: --FIX LINE TYPE ID validation
654:
655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
657: END IF;
658: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
659: Update_OSP_Order_Lines(
652: --Update OSP Order Lines with the new line_id
653: --FIX LINE TYPE ID validation
654:
655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
657: END IF;
658: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
659: Update_OSP_Order_Lines(
660: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
661: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
662: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
663: p_oe_return_line_id => FND_API.G_MISS_NUM);
664: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || p_x_lines_tbl(i).line_id );
667: END IF;
668: Update_OSP_Order_Lines(
669: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
662: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
663: p_oe_return_line_id => FND_API.G_MISS_NUM);
664: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || p_x_lines_tbl(i).line_id );
667: END IF;
668: Update_OSP_Order_Lines(
669: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
670: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
673: END IF;
674:
675: ELSE -- instance id is null
676:
677: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
679: END IF;
680: IF p_x_lines_tbl(i).osp_line_id IS NOT NULL THEN
681: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
674:
675: ELSE -- instance id is null
676:
677: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
679: END IF;
680: IF p_x_lines_tbl(i).osp_line_id IS NOT NULL THEN
681: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
682: Update_OSP_Order_Lines(
685: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
686: p_oe_return_line_id => FND_API.G_MISS_NUM);
687: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
688: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).ship_from_org_id :' ||p_x_lines_tbl(i).ship_from_org_id);
693: END IF;
686: p_oe_return_line_id => FND_API.G_MISS_NUM);
687: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
688: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).ship_from_org_id :' ||p_x_lines_tbl(i).ship_from_org_id);
693: END IF;
694: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
687: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
688: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).ship_from_org_id :' ||p_x_lines_tbl(i).ship_from_org_id);
693: END IF;
694: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
695: /*
688: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).ship_from_org_id :' ||p_x_lines_tbl(i).ship_from_org_id);
693: END IF;
694: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
695: /*
696: For exchange orders, the return line's sub-transaction record is to be created by ourselves even though
713: p_osp_order_type => p_x_lines_tbl(i).order_type,
714: p_oe_line_type => l_line_type,
715: p_oe_line_id => p_x_lines_tbl(i).line_id,
716: p_csi_instance_id => NULL);
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
714: p_oe_line_type => l_line_type,
715: p_oe_line_id => p_x_lines_tbl(i).line_id,
716: p_csi_instance_id => NULL);
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
726: CLOSE is_oe_item_IB_tracked;
727: END IF;
728: --mpothuku End
729: END IF;
730: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || p_x_lines_tbl(i).line_id );
732: END IF;
733: Update_OSP_Order_Lines(
734: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
727: END IF;
728: --mpothuku End
729: END IF;
730: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || p_x_lines_tbl(i).line_id );
732: END IF;
733: Update_OSP_Order_Lines(
734: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
735: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
746: -- from the UI (after the order has been booked) is necessary.
747: -- If the shipment is booked, Delete_Cancel_Order just zeroes out the ordered quantity.
748: -- If not, it actually deletes the shipment line.
749: ELSIF (p_x_lines_tbl(i).operation = 'D') THEN
750: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
751: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_IB_Transaction');
752: END IF;
753: Delete_IB_Transaction(
754: p_init_msg_list => p_init_msg_list,
747: -- If the shipment is booked, Delete_Cancel_Order just zeroes out the ordered quantity.
748: -- If not, it actually deletes the shipment line.
749: ELSIF (p_x_lines_tbl(i).operation = 'D') THEN
750: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
751: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_IB_Transaction');
752: END IF;
753: Delete_IB_Transaction(
754: p_init_msg_list => p_init_msg_list,
755: p_commit => p_commit,
758: x_msg_count => x_msg_count,
759: x_msg_data => x_msg_data,
760: p_oe_line_id => p_x_lines_tbl(i).line_id );
761:
762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
759: x_msg_data => x_msg_data,
760: p_oe_line_id => p_x_lines_tbl(i).line_id );
761:
762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
770:
771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
773: END IF;
774: --Remove all instances of Shipment Line from OSP_ORDER_LINES table
775: Delete_OE_Lines(p_oe_line_id => p_x_lines_tbl(i).line_id);
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
770:
771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
773: END IF;
774: --Remove all instances of Shipment Line from OSP_ORDER_LINES table
775: Delete_OE_Lines(p_oe_line_id => p_x_lines_tbl(i).line_id);
776: */
805: IF(l_osp_order_id is null AND p_x_lines_tbl.COUNT > 0) THEN
806: l_osp_order_id := p_x_lines_tbl(p_x_lines_tbl.FIRST).osp_order_id;
807: END IF;
808:
809: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Going to loop for multiple services for the Order = ' || l_osp_order_id );
811: END IF;
812:
813: IF(l_osp_order_id is not null) THEN
806: l_osp_order_id := p_x_lines_tbl(p_x_lines_tbl.FIRST).osp_order_id;
807: END IF;
808:
809: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Going to loop for multiple services for the Order = ' || l_osp_order_id );
811: END IF;
812:
813: IF(l_osp_order_id is not null) THEN
814:
830:
831: IF (l_osp_line_ship_id_type.oe_ship_line_id is not null
832: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
833:
834: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_ship_line_id = ' || l_osp_line_ship_id_type.oe_ship_line_id );
836: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || l_osp_line_ship_id_type.oe_return_line_id );
837: END IF;
838:
831: IF (l_osp_line_ship_id_type.oe_ship_line_id is not null
832: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
833:
834: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_ship_line_id = ' || l_osp_line_ship_id_type.oe_ship_line_id );
836: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || l_osp_line_ship_id_type.oe_return_line_id );
837: END IF;
838:
839: Update_OSP_Order_Lines(
832: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
833:
834: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_ship_line_id = ' || l_osp_line_ship_id_type.oe_ship_line_id );
836: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || l_osp_line_ship_id_type.oe_return_line_id );
837: END IF;
838:
839: Update_OSP_Order_Lines(
840: p_osp_order_id => l_osp_order_id,
849: -- yazhou 07-Aug-2006 ends
850:
851: -- Standard check of p_commit
852: IF FND_API.To_Boolean(p_commit) THEN
853: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
854: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
855: END IF;
856: COMMIT WORK;
857: END IF;
850:
851: -- Standard check of p_commit
852: IF FND_API.To_Boolean(p_commit) THEN
853: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
854: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
855: END IF;
856: COMMIT WORK;
857: END IF;
858:
860: FND_MSG_PUB.Count_And_Get
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => fnd_api.g_false);
864: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
865: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
866: END IF;
867:
868: EXCEPTION
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => fnd_api.g_false);
864: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
865: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
866: END IF;
867:
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
946:
947: -- Initialize API return status to success
948: x_return_status := FND_API.G_RET_STS_SUCCESS;
949:
950: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
952: END IF;
953:
954: --LOOP throught all header ids
947: -- Initialize API return status to success
948: x_return_status := FND_API.G_RET_STS_SUCCESS;
949:
950: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
952: END IF;
953:
954: --LOOP throught all header ids
955: IF (p_oe_header_tbl.COUNT > 0) THEN
968: we call a Public API in this procedure, its better we throw the error here itself.
969: */
970: l_msg_count := FND_MSG_PUB.count_msg;
971: IF l_msg_count > 0 THEN
972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
974: END IF;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
969: */
970: l_msg_count := FND_MSG_PUB.count_msg;
971: IF l_msg_count > 0 THEN
972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
974: END IF;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
977:
1016: p_msg_index_out => l_msg_index_out);
1017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1018: p_procedure_name => 'bookOrder',
1019: p_error_text => substr(l_msg_data,1,240));
1020: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1022: END IF;
1023:
1024: END LOOP;
1017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1018: p_procedure_name => 'bookOrder',
1019: p_error_text => substr(l_msg_data,1,240));
1020: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1022: END IF;
1023:
1024: END LOOP;
1025: END IF;
1023:
1024: END LOOP;
1025: END IF;
1026:
1027: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1029: END IF;
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1024: END LOOP;
1025: END IF;
1026:
1027: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1029: END IF;
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1032: RAISE FND_API.G_EXC_ERROR;
1039: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1040: OE_ORDER_GRP.PROCESS_ORDER
1041: */
1042: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1045: FND_MSG_PUB.get (
1046: p_msg_index => i,
1047: p_encoded => FND_API.G_FALSE,
1046: p_msg_index => i,
1047: p_encoded => FND_API.G_FALSE,
1048: p_data => l_msg_data,
1049: p_msg_index_out => l_msg_index_out );
1050: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1051: END LOOP;
1052: END IF;
1053: FND_MSG_PUB.Initialize;
1054: -- jaramana End
1064: ( p_count => x_msg_count,
1065: p_data => x_msg_data,
1066: p_encoded => fnd_api.g_false);
1067:
1068: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1069: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1070: END IF;
1071:
1072: EXCEPTION
1065: p_data => x_msg_data,
1066: p_encoded => fnd_api.g_false);
1067:
1068: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1069: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1070: END IF;
1071:
1072: EXCEPTION
1073: WHEN FND_API.G_EXC_ERROR THEN
1178:
1179: -- Initialize API return status to success
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1184: END IF;
1185:
1186: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1179: -- Initialize API return status to success
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1184: END IF;
1185:
1186: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1187: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1189: -- Try delete/cancel header first.
1190: IF (p_oe_header_id IS NOT NULL AND
1191: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1192:
1193: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order with p_oe_header_id = ' || p_oe_header_id);
1195: END IF;
1196:
1197: -- Remove references in OSP tables
1190: IF (p_oe_header_id IS NOT NULL AND
1191: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1192:
1193: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order with p_oe_header_id = ' || p_oe_header_id);
1195: END IF;
1196:
1197: -- Remove references in OSP tables
1198: Delete_OSP_Order(p_oe_header_id => p_oe_header_id );
1216: CLOSE ahl_is_header_deleteable_csr;
1217:
1218: ELSIF (p_oe_lines_tbl.COUNT > 0) THEN
1219:
1220: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1221: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_oe_lines_tbl.COUNT = ' || p_oe_lines_tbl.COUNT);
1222: END IF;
1223:
1224: -- Process lines into cancel or delete
1217:
1218: ELSIF (p_oe_lines_tbl.COUNT > 0) THEN
1219:
1220: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1221: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_oe_lines_tbl.COUNT = ' || p_oe_lines_tbl.COUNT);
1222: END IF;
1223:
1224: -- Process lines into cancel or delete
1225: FOR i IN p_oe_lines_tbl.FIRST..p_oe_lines_tbl.LAST LOOP
1225: FOR i IN p_oe_lines_tbl.FIRST..p_oe_lines_tbl.LAST LOOP
1226:
1227: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1228:
1229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines with p_oe_line_id = ' || p_oe_lines_tbl(i));
1231: END IF;
1232: --Remove line_id references in OSP tables
1233: Delete_OE_Lines(p_oe_line_id => p_oe_lines_tbl(i));
1226:
1227: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1228:
1229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines with p_oe_line_id = ' || p_oe_lines_tbl(i));
1231: END IF;
1232: --Remove line_id references in OSP tables
1233: Delete_OE_Lines(p_oe_line_id => p_oe_lines_tbl(i));
1234:
1237: OPEN ahl_is_line_deleteable_csr(p_oe_lines_tbl(i));
1238: FETCH ahl_is_line_deleteable_csr INTO l_dummy;
1239: -- If deleteable
1240: IF (ahl_is_line_deleteable_csr%FOUND) THEN
1241: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1243: END IF;
1244: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1245: ELSE
1238: FETCH ahl_is_line_deleteable_csr INTO l_dummy;
1239: -- If deleteable
1240: IF (ahl_is_line_deleteable_csr%FOUND) THEN
1241: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1243: END IF;
1244: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1245: ELSE
1246: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1243: END IF;
1244: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1245: ELSE
1246: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is not deletable: Setting Quantity to 0 and change_reason to Not provided');
1248: END IF;
1249: l_line_rec.ordered_quantity := 0;
1250: l_line_rec.change_reason := 'Not provided'; --No reason provided
1243: END IF;
1244: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1245: ELSE
1246: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is not deletable: Setting Quantity to 0 and change_reason to Not provided');
1248: END IF;
1249: l_line_rec.ordered_quantity := 0;
1250: l_line_rec.change_reason := 'Not provided'; --No reason provided
1251: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1264: we call a Public API in this procedure, its better we throw the error here itself.
1265: */
1266: l_msg_count := FND_MSG_PUB.count_msg;
1267: IF l_msg_count > 0 THEN
1268: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1269: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1270: END IF;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1265: */
1266: l_msg_count := FND_MSG_PUB.count_msg;
1267: IF l_msg_count > 0 THEN
1268: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1269: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1270: END IF;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273:
1311: p_msg_index_out => l_msg_index_out);
1312: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1313: p_procedure_name => 'deleteCancelOrder',
1314: p_error_text => substr(l_msg_data,1,240));
1315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1317: END IF;
1318: END LOOP;
1319: END IF;
1312: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1313: p_procedure_name => 'deleteCancelOrder',
1314: p_error_text => substr(l_msg_data,1,240));
1315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1317: END IF;
1318: END LOOP;
1319: END IF;
1320:
1329: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1330: OE_ORDER_GRP.PROCESS_ORDER
1331: */
1332: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1335: FND_MSG_PUB.get (
1336: p_msg_index => i,
1337: p_encoded => FND_API.G_FALSE,
1336: p_msg_index => i,
1337: p_encoded => FND_API.G_FALSE,
1338: p_data => l_msg_data,
1339: p_msg_index_out => l_msg_index_out );
1340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1341: END LOOP;
1342: END IF;
1343: FND_MSG_PUB.Initialize;
1344: END IF;
1374: ( p_count => x_msg_count,
1375: p_data => x_msg_data,
1376: p_encoded => fnd_api.g_false);
1377:
1378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1380: END IF;
1381:
1382: EXCEPTION
1375: p_data => x_msg_data,
1376: p_encoded => fnd_api.g_false);
1377:
1378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1380: END IF;
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1443: --l_dummy NUMBER;
1444: l_ahl_osp_oe_closed_csr ahl_osp_oe_closed_csr%rowtype;
1445: BEGIN
1446:
1447: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1449: END IF;
1450:
1451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1444: l_ahl_osp_oe_closed_csr ahl_osp_oe_closed_csr%rowtype;
1445: BEGIN
1446:
1447: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1449: END IF;
1450:
1451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1447: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1449: END IF;
1450:
1451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1453: END IF;
1454: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1455: /*
1448: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1449: END IF;
1450:
1451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1453: END IF;
1454: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1455: /*
1456: OPEN ahl_osp_header_id_csr(p_oe_header_id);
1485: RAISE Fnd_Api.g_exc_error;
1486: END IF;
1487: CLOSE ahl_osp_oe_closed_csr;
1488: END IF;
1489: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1490: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1491: END IF;
1492:
1493: RETURN l_closed;
1486: END IF;
1487: CLOSE ahl_osp_oe_closed_csr;
1488: END IF;
1489: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1490: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1491: END IF;
1492:
1493: RETURN l_closed;
1494:
1517: l_usr_prf_opt_name VARCHAR2(240);
1518:
1519: BEGIN
1520:
1521: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1523: END IF;
1524:
1525: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1518:
1519: BEGIN
1520:
1521: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1523: END IF;
1524:
1525: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1526: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1525: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1526: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1527: IF (get_user_prf_opt_name_csr%NOTFOUND) THEN
1528: l_usr_prf_opt_name := null;
1529: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1530: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error: '||p_profile_option_name|| ' needs to be defined');
1531: END IF;
1532: END IF;
1533: CLOSE get_user_prf_opt_name_csr;
1526: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1527: IF (get_user_prf_opt_name_csr%NOTFOUND) THEN
1528: l_usr_prf_opt_name := null;
1529: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1530: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error: '||p_profile_option_name|| ' needs to be defined');
1531: END IF;
1532: END IF;
1533: CLOSE get_user_prf_opt_name_csr;
1534:
1532: END IF;
1533: CLOSE get_user_prf_opt_name_csr;
1534:
1535:
1536: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure. l_usr_prf_opt_name is: ' || l_usr_prf_opt_name);
1538: END IF;
1539:
1540: RETURN l_usr_prf_opt_name;
1533: CLOSE get_user_prf_opt_name_csr;
1534:
1535:
1536: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure. l_usr_prf_opt_name is: ' || l_usr_prf_opt_name);
1538: END IF;
1539:
1540: RETURN l_usr_prf_opt_name;
1541:
1635: l_contact_count NUMBER;
1636: ---
1637: BEGIN
1638:
1639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1641: END IF;
1642:
1643: IF (p_header_rec.operation = 'D') THEN
1636: ---
1637: BEGIN
1638:
1639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1641: END IF;
1642:
1643: IF (p_header_rec.operation = 'D') THEN
1644: x_header_rec := OE_HEADER_UTIL.QUERY_ROW(p_header_id => p_header_rec.header_id);
1655: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1656: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1657:
1658: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1662: END IF;
1663:
1656: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1657:
1658: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1662: END IF;
1663:
1664: --If no operation, then invalid order
1657:
1658: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1662: END IF;
1663:
1664: --If no operation, then invalid order
1665: IF (p_header_rec.operation IS NULL OR
1707: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
1708: CLOSE ahl_order_vendor_detls_csr;
1709:
1710: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1714: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1708: CLOSE ahl_order_vendor_detls_csr;
1709:
1710: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1714: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1716: END IF;
1709:
1710: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1714: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1716: END IF;
1717:
1710: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1714: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1716: END IF;
1717:
1718: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1714: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1716: END IF;
1717:
1718: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1719: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1806: FETCH ahl_get_ship_from_org_csr INTO x_header_rec.ship_from_org_id;
1807: CLOSE ahl_get_ship_from_org_csr;
1808: END IF;
1809:
1810: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_header_rec.ship_from_org_id = ' || x_header_rec.ship_from_org_id);
1812: END IF;
1813:
1814: --Sold to contact (Uses ship_to_contact param name)
1807: CLOSE ahl_get_ship_from_org_csr;
1808: END IF;
1809:
1810: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_header_rec.ship_from_org_id = ' || x_header_rec.ship_from_org_id);
1812: END IF;
1813:
1814: --Sold to contact (Uses ship_to_contact param name)
1815: OPEN ahl_sold_to_contact_count_csr(p_header_rec.ship_to_contact,
1956: x_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1957: END IF;
1958: END IF; -- Not 'D'
1959:
1960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1962: END IF;
1963:
1964: END Convert_Header_rec;
1957: END IF;
1958: END IF; -- Not 'D'
1959:
1960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1962: END IF;
1963:
1964: END Convert_Header_rec;
1965:
2511: --Bug fix 4580226 ends
2512: --
2513: BEGIN
2514:
2515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2517: END IF;
2518:
2519: -- yazhou 31-Jul-2006 starts
2512: --
2513: BEGIN
2514:
2515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2517: END IF;
2518:
2519: -- yazhou 31-Jul-2006 starts
2520: -- bug fix#5442904
2533: Also its being used when creating shipments from the Create/Edit Shipment Line UI
2534: */
2535:
2536: IF (p_x_line_tbl.COUNT > 0) THEN
2537: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2538: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.COUNT = ' || p_x_line_tbl.COUNT);
2539: END IF;
2540: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2541: -- Get the OSP Order Type if not known
2534: */
2535:
2536: IF (p_x_line_tbl.COUNT > 0) THEN
2537: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2538: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.COUNT = ' || p_x_line_tbl.COUNT);
2539: END IF;
2540: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2541: -- Get the OSP Order Type if not known
2542: IF(p_x_line_tbl(i).osp_order_id IS NOT NULL AND
2551: IF (p_x_line_tbl(i).order_type IS NULL OR p_x_line_tbl(i).order_type = FND_API.G_MISS_CHAR) THEN
2552: p_x_line_tbl(i).order_type := l_curr_osp_type;
2553: END IF;
2554:
2555: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl(i).order_type = ' || p_x_line_tbl(i).order_type ||
2557: ', p_x_line_tbl(i).osp_order_id = ' || p_x_line_tbl(i).osp_order_id ||
2558: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2559: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2552: p_x_line_tbl(i).order_type := l_curr_osp_type;
2553: END IF;
2554:
2555: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl(i).order_type = ' || p_x_line_tbl(i).order_type ||
2557: ', p_x_line_tbl(i).osp_order_id = ' || p_x_line_tbl(i).osp_order_id ||
2558: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2559: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2560: ', p_x_line_tbl(i).line_id = ' || p_x_line_tbl(i).line_id);
2590: --Get the Shipment Line status.
2591: OPEN get_so_line_details(p_x_line_tbl(i).line_id);
2592: FETCH get_so_line_details INTO l_get_so_line_details;
2593: IF get_so_line_details%NOTFOUND THEN
2594: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2596: END IF;
2597: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2598: FND_MSG_PUB.ADD;
2591: OPEN get_so_line_details(p_x_line_tbl(i).line_id);
2592: FETCH get_so_line_details INTO l_get_so_line_details;
2593: IF get_so_line_details%NOTFOUND THEN
2594: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2596: END IF;
2597: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2598: FND_MSG_PUB.ADD;
2599: CLOSE get_so_line_details;
2600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2601: END IF;
2602: CLOSE get_so_line_details;
2603:
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.flow_status_code: '||l_get_so_line_details.flow_status_code);
2607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2601: END IF;
2602: CLOSE get_so_line_details;
2603:
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.flow_status_code: '||l_get_so_line_details.flow_status_code);
2607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2609: END IF;
2602: CLOSE get_so_line_details;
2603:
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.flow_status_code: '||l_get_so_line_details.flow_status_code);
2607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2609: END IF;
2610:
2603:
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.flow_status_code: '||l_get_so_line_details.flow_status_code);
2607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2609: END IF;
2610:
2611: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.flow_status_code: '||l_get_so_line_details.flow_status_code);
2607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2609: END IF;
2610:
2611: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2612: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2632: -- use user defined vendor service duration if available
2633:
2634: l_service_duration := null;
2635:
2636: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2633:
2634: l_service_duration := null;
2635:
2636: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_org_id is ' ||l_osp_line_det_type.inventory_org_id);
2634: l_service_duration := null;
2635:
2636: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_org_id is ' ||l_osp_line_det_type.inventory_org_id);
2642: END IF;
2635:
2636: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_org_id is ' ||l_osp_line_det_type.inventory_org_id);
2642: END IF;
2643:
2636: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_org_id is ' ||l_osp_line_det_type.inventory_org_id);
2642: END IF;
2643:
2644: IF l_osp_header_det.vendor_id is not null
2637: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_site_id is' ||l_osp_header_det.vendor_site_id);
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.service_item_id is ' ||l_osp_line_det_type.service_item_id);
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_item_id is ' ||l_osp_line_det_type.inventory_item_id);
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.inventory_org_id is ' ||l_osp_line_det_type.inventory_org_id);
2642: END IF;
2643:
2644: IF l_osp_header_det.vendor_id is not null
2645: AND l_osp_header_det.vendor_site_id is not NULL
2650: CLOSE ahl_max_service_duration_csr;
2651:
2652: END IF;
2653:
2654: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2655: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_service_duration is '||l_service_duration);
2656: END IF;
2657:
2658: IF l_service_duration is null THEN
2651:
2652: END IF;
2653:
2654: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2655: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_service_duration is '||l_service_duration);
2656: END IF;
2657:
2658: IF l_service_duration is null THEN
2659: -- Check if the Default Duration Profile has been Set
2661: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
2662: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2663: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2664: FND_MSG_PUB.ADD;
2665: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2666: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2667: END IF;
2668: RAISE Fnd_Api.g_exc_error;
2669: END IF;
2662: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2663: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2664: FND_MSG_PUB.ADD;
2665: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2666: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2667: END IF;
2668: RAISE Fnd_Api.g_exc_error;
2669: END IF;
2670:
2677: END IF; -- Shipment Line is for a OSP Line
2678:
2679: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2680: -- Shipment Line is for an OSP Line
2681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2683: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2684: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2685: END IF;
2678:
2679: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2680: -- Shipment Line is for an OSP Line
2681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2683: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2684: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2685: END IF;
2686:
2679: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2680: -- Shipment Line is for an OSP Line
2681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2682: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2683: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2684: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2685: END IF;
2686:
2687: --Jerry added on 11/01/05 in order to fix bug 4580226
2690: l_old_quantity := p_x_line_tbl(i).ordered_quantity;
2691: l_old_uom :=p_x_line_tbl(i).order_quantity_uom;
2692: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2693: --Debug statements added by mpothuku on 14-Dec-05
2694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2691: l_old_uom :=p_x_line_tbl(i).order_quantity_uom;
2692: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2693: --Debug statements added by mpothuku on 14-Dec-05
2694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2692: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2693: --Debug statements added by mpothuku on 14-Dec-05
2694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2700: END IF;
2693: --Debug statements added by mpothuku on 14-Dec-05
2694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2700: END IF;
2701: --Bug fix 4580226 ends
2694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2700: END IF;
2701: --Bug fix 4580226 ends
2702:
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2700: END IF;
2701: --Bug fix 4580226 ends
2702:
2703: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2701: --Bug fix 4580226 ends
2702:
2703: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2704: -- Shipment Line Corresponds to an Work order
2705: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2706: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id is not null');
2707: END IF;
2708:
2709: -- Get the Workorder Details
2702:
2703: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2704: -- Shipment Line Corresponds to an Work order
2705: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2706: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id is not null');
2707: END IF;
2708:
2709: -- Get the Workorder Details
2710: OPEN ahl_osp_work_csr(l_osp_line_det_type.workorder_id);
2765: p_x_line_tbl(i).ordered_quantity,
2766: p_x_line_tbl(i).order_quantity_uom,
2767: p_x_line_tbl(i).lot_number; --jeli 12/01/05
2768: CLOSE ahl_exc_inst_details;
2769: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2770: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
2771: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
2772: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
2773: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
2766: p_x_line_tbl(i).order_quantity_uom,
2767: p_x_line_tbl(i).lot_number; --jeli 12/01/05
2768: CLOSE ahl_exc_inst_details;
2769: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2770: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
2771: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
2772: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
2773: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
2774: ', ordered_quantity = ' || p_x_line_tbl(i).ordered_quantity ||
2808: p_x_line_tbl(i).csi_item_instance_id := null;
2809:
2810: -- If the serial number user entered corresponds to a tracked instance, derive the
2811: -- instance number and update the Osp Order Line's Exchange Instance column transparently
2812: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2813: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
2814: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
2815: END IF;
2816:
2809:
2810: -- If the serial number user entered corresponds to a tracked instance, derive the
2811: -- instance number and update the Osp Order Line's Exchange Instance column transparently
2812: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2813: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
2814: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
2815: END IF;
2816:
2817:
2832: END IF; -- user entered SN AND/OR Lot number
2833:
2834: --If the SN/LOT user entered corresponds to a non-tracked item
2835: -- simply ignore the serial number entered by the user without throwing an error.
2836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.csi_item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id);
2838: END IF;
2839:
2840: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2833:
2834: --If the SN/LOT user entered corresponds to a non-tracked item
2835: -- simply ignore the serial number entered by the user without throwing an error.
2836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.csi_item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id);
2838: END IF;
2839:
2840: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2841:
2839:
2840: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2841:
2842: -- update the Osp Order Line's Exchange Instance column
2843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2844: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
2845: END IF;
2846:
2847: Update_OSP_Line_Exch_Instance(
2840: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2841:
2842: -- update the Osp Order Line's Exchange Instance column
2843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2844: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
2845: END IF;
2846:
2847: Update_OSP_Line_Exch_Instance(
2848: p_osp_order_id => p_x_line_tbl(i).osp_order_id,
2876: END IF; -- Exchange Order Return Lines
2877:
2878: --Check that ship to or return instance is top node in CSI.
2879: -- If not unit, then throw error cause can't ship part of a unit.
2880: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2881: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
2882: END IF;
2883:
2884: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2877:
2878: --Check that ship to or return instance is top node in CSI.
2879: -- If not unit, then throw error cause can't ship part of a unit.
2880: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2881: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
2882: END IF;
2883:
2884: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2885: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(i).csi_item_instance_id);
2900:
2901:
2902: -- Do additional Validation, Defaulting if not deleting Ship Line
2903: IF (p_x_line_tbl(i).operation <> 'D') THEN
2904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
2906: END IF;
2907:
2908: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2901:
2902: -- Do additional Validation, Defaulting if not deleting Ship Line
2903: IF (p_x_line_tbl(i).operation <> 'D') THEN
2904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
2906: END IF;
2907:
2908: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2909: -- Ship-Only Line
2906: END IF;
2907:
2908: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2909: -- Ship-Only Line
2910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2912: END IF;
2913: -- Default the Ship Date if not already Set
2914: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
2907:
2908: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2909: -- Ship-Only Line
2910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2912: END IF;
2913: -- Default the Ship Date if not already Set
2914: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
2915:
2944: END IF;
2945: RAISE Fnd_Api.g_exc_error;
2946: END IF;
2947: CLOSE ahl_oe_ship_id_csr;
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
2950: END IF;
2951:
2952: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
2945: RAISE Fnd_Api.g_exc_error;
2946: END IF;
2947: CLOSE ahl_oe_ship_id_csr;
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
2950: END IF;
2951:
2952: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
2953: p_x_line_tbl(i).csi_item_instance_id);
2995: END IF; -- Return Date is not null
2996: CLOSE ahl_oe_schedule_date_csr;
2997: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
2998: -- Return Line
2999: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3001: END IF;
3002: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3003:
2996: CLOSE ahl_oe_schedule_date_csr;
2997: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
2998: -- Return Line
2999: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3001: END IF;
3002: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3003:
3004: -- yazhou 31-Jul-2006 starts
3073: END IF; -- Line Type Check: Ship or Return
3074: END IF; -- Line Operation is not 'D'
3075: ELSIF l_osp_line_det_type.osp_order_line_id IS NOT NULL THEN -- workorder_id is null
3076: -- Shipment Line does not correspond to a work order, But still corresponds to a OSP Line
3077: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Workorder Id is null and osp_order_line_id is not null');
3079: END IF;
3080: -- Begin changes by jaramana on August 27, 2005 to fix the bug for exchange orders
3081: -- (without work orders), where the return line incorrectly picks up the item of the ship line
3074: END IF; -- Line Operation is not 'D'
3075: ELSIF l_osp_line_det_type.osp_order_line_id IS NOT NULL THEN -- workorder_id is null
3076: -- Shipment Line does not correspond to a work order, But still corresponds to a OSP Line
3077: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Workorder Id is null and osp_order_line_id is not null');
3079: END IF;
3080: -- Begin changes by jaramana on August 27, 2005 to fix the bug for exchange orders
3081: -- (without work orders), where the return line incorrectly picks up the item of the ship line
3082: -- If the user had picked a new item, save it in a temporary variable so that
3160: p_x_line_tbl(i).ordered_quantity,
3161: p_x_line_tbl(i).order_quantity_uom,
3162: p_x_line_tbl(i).lot_number; --jeli 12/01/05
3163: CLOSE ahl_exc_inst_details;
3164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
3166: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
3167: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3168: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
3161: p_x_line_tbl(i).order_quantity_uom,
3162: p_x_line_tbl(i).lot_number; --jeli 12/01/05
3163: CLOSE ahl_exc_inst_details;
3164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
3166: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
3167: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3168: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
3169: ', ordered_quantity = ' || p_x_line_tbl(i).ordered_quantity ||
3203: p_x_line_tbl(i).csi_item_instance_id := null;
3204:
3205: -- If the serial number user entered corresponds to a tracked instance, derive the
3206: -- instance number and update the Osp Order Line's Exchange Instance column transparently
3207: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3208: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
3209: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
3210: END IF;
3211:
3204:
3205: -- If the serial number user entered corresponds to a tracked instance, derive the
3206: -- instance number and update the Osp Order Line's Exchange Instance column transparently
3207: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3208: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
3209: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
3210: END IF;
3211:
3212:
3227: END IF; -- user entered SN AND/OR Lot number
3228:
3229: --If the SN/LOT user entered corresponds to a non-tracked item
3230: -- simply ignore the serial number entered by the user without throwing an error.
3231: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.csi_item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id);
3233: END IF;
3234:
3235: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3228:
3229: --If the SN/LOT user entered corresponds to a non-tracked item
3230: -- simply ignore the serial number entered by the user without throwing an error.
3231: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.csi_item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id);
3233: END IF;
3234:
3235: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3236:
3234:
3235: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3236:
3237: -- update the Osp Order Line's Exchange Instance column
3238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3239: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
3240: END IF;
3241:
3242: Update_OSP_Line_Exch_Instance(
3235: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3236:
3237: -- update the Osp Order Line's Exchange Instance column
3238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3239: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
3240: END IF;
3241:
3242: Update_OSP_Line_Exch_Instance(
3243: p_osp_order_id => p_x_line_tbl(i).osp_order_id,
3271: END IF; -- Exchange Order Return Lines
3272:
3273: --Check that ship to or return instance is top node in CSI.
3274: -- If not unit, then throw error cause can't ship part of a unit.
3275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3277: END IF;
3278:
3279: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3272:
3273: --Check that ship to or return instance is top node in CSI.
3274: -- If not unit, then throw error cause can't ship part of a unit.
3275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3277: END IF;
3278:
3279: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3280: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(i).csi_item_instance_id);
3296:
3297:
3298: -- Do additional Validation, Defaulting if not deleting Ship Line
3299: IF (p_x_line_tbl(i).operation <> 'D') THEN
3300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3302: END IF;
3303: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3304: -- Ship-Only Line
3297:
3298: -- Do additional Validation, Defaulting if not deleting Ship Line
3299: IF (p_x_line_tbl(i).operation <> 'D') THEN
3300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3302: END IF;
3303: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3304: -- Ship-Only Line
3305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3302: END IF;
3303: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3304: -- Ship-Only Line
3305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3307: END IF;
3308: -- Default the Ship Date if not already Set
3309: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3302: END IF;
3303: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3304: -- Ship-Only Line
3305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3307: END IF;
3308: -- Default the Ship Date if not already Set
3309: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3310:
3349: CLOSE ahl_oe_ship_id_csr;
3350:
3351: --yazhou 06-Jun-2006 ends
3352:
3353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
3355: END IF;
3356:
3357: OPEN ahl_oe_Inv_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3350:
3351: --yazhou 06-Jun-2006 ends
3352:
3353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
3355: END IF;
3356:
3357: OPEN ahl_oe_Inv_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3358: p_x_line_tbl(i).inventory_item_id,
3404: END IF; -- Borrow or Exchange or Other
3405: END IF; -- Return Date is not null
3406: CLOSE ahl_oe_Inv_schedule_date_csr;
3407: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3408: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3410: END IF;
3411: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3412:
3405: END IF; -- Return Date is not null
3406: CLOSE ahl_oe_Inv_schedule_date_csr;
3407: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3408: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3410: END IF;
3411: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3412:
3413: -- yazhou 31-Jul-2006 starts
3501: END IF; -- Line Operation is not 'D'
3502: END IF; -- Work Order or OSP Order Line Id is not Null
3503: ELSE
3504: -- OSP Line Flag is Not Y: Shipment Line is for a spare part or tool.
3505: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is NOT Y: Shipment Line is for a spare part or tool.');
3507: END IF;
3508: p_x_line_tbl(i).osp_line_id := null;
3509: p_x_line_tbl(i).osp_line_number := null;
3502: END IF; -- Work Order or OSP Order Line Id is not Null
3503: ELSE
3504: -- OSP Line Flag is Not Y: Shipment Line is for a spare part or tool.
3505: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is NOT Y: Shipment Line is for a spare part or tool.');
3507: END IF;
3508: p_x_line_tbl(i).osp_line_id := null;
3509: p_x_line_tbl(i).osp_line_number := null;
3510:
3536: END IF;
3537:
3538:
3539: -- Validate the Spare part to be shipped
3540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to validate spare item to be shipped with ' ||
3542: 'p_x_line_tbl(i).inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3543: ', p_x_line_tbl(i).inventory_org_id = ' || p_x_line_tbl(i).inventory_org_id ||
3544: ', p_x_line_tbl(i).serial_number = ' || p_x_line_tbl(i).serial_number ||
3537:
3538:
3539: -- Validate the Spare part to be shipped
3540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to validate spare item to be shipped with ' ||
3542: 'p_x_line_tbl(i).inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3543: ', p_x_line_tbl(i).inventory_org_id = ' || p_x_line_tbl(i).inventory_org_id ||
3544: ', p_x_line_tbl(i).serial_number = ' || p_x_line_tbl(i).serial_number ||
3545: ', p_x_line_tbl(i).LOT_NUMBER = ' || p_x_line_tbl(i).LOT_NUMBER);
3562: CLOSE validate_item;
3563: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3564: END IF; -- OSP Line Flag is Y or Not Y
3565:
3566: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Ship Line with index i = ' || i);
3568: END IF;
3569: END LOOP;
3570:
3563: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3564: END IF; -- OSP Line Flag is Y or Not Y
3565:
3566: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Ship Line with index i = ' || i);
3568: END IF;
3569: END LOOP;
3570:
3571: /*
3574: */
3575:
3576: ELSIF p_operation_flag = 'C' THEN -- Line Table Count is Zero
3577: -- Creating Shipment using OSP Header
3578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line Table Count is Zero: Creating Shipment using OSP Header');
3580: END IF;
3581:
3582: -- yazhou 31-Jul-2006 starts
3575:
3576: ELSIF p_operation_flag = 'C' THEN -- Line Table Count is Zero
3577: -- Creating Shipment using OSP Header
3578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line Table Count is Zero: Creating Shipment using OSP Header');
3580: END IF;
3581:
3582: -- yazhou 31-Jul-2006 starts
3583: -- bug fix#5442904
3589: -- yazhou 31-Jul-2006 ends
3590:
3591: l_index := 0;
3592: FOR I IN osp_line_details_csr2(p_osp_order_id) LOOP
3593: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting details for OSP Line with id ' || I.osp_order_line_id);
3595: END IF;
3596: -- Modified by jaramana on January 11, 2008 to fix the Bug 5688387/5842229
3597: l_index := l_index + 2;
3590:
3591: l_index := 0;
3592: FOR I IN osp_line_details_csr2(p_osp_order_id) LOOP
3593: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting details for OSP Line with id ' || I.osp_order_line_id);
3595: END IF;
3596: -- Modified by jaramana on January 11, 2008 to fix the Bug 5688387/5842229
3597: l_index := l_index + 2;
3598: -- First Prepare data for Return Lines
3649: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3650: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3651: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3652: FND_MSG_PUB.ADD;
3653: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3655: END IF;
3656: RAISE Fnd_Api.g_exc_error;
3657: END IF;
3650: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3651: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3652: FND_MSG_PUB.ADD;
3653: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3655: END IF;
3656: RAISE Fnd_Api.g_exc_error;
3657: END IF;
3658:
3692: p_x_line_tbl(l_index).osp_line_id := I.OSP_ORDER_LINE_ID;
3693: p_x_line_tbl(l_index).osp_line_number := I.OSP_LINE_NUMBER;
3694: p_x_line_tbl(l_index).instance_id := NULL;
3695:
3696: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line based and sub_inv='||p_x_line_tbl(l_index).subinventory);
3698: END IF;
3699:
3700: -- Get additional details from the Work order, if the OSP Line is work order based
3693: p_x_line_tbl(l_index).osp_line_number := I.OSP_LINE_NUMBER;
3694: p_x_line_tbl(l_index).instance_id := NULL;
3695:
3696: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line based and sub_inv='||p_x_line_tbl(l_index).subinventory);
3698: END IF;
3699:
3700: -- Get additional details from the Work order, if the OSP Line is work order based
3701: IF I.WORKORDER_ID IS NOT NULL THEN
3698: END IF;
3699:
3700: -- Get additional details from the Work order, if the OSP Line is work order based
3701: IF I.WORKORDER_ID IS NOT NULL THEN
3702: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is Work order based. Getting details from Workorder with id ' || I.WORKORDER_ID);
3704: END IF;
3705: OPEN ahl_osp_work_csr(I.WORKORDER_ID);
3706: FETCH ahl_osp_work_csr INTO l_work_det;
3699:
3700: -- Get additional details from the Work order, if the OSP Line is work order based
3701: IF I.WORKORDER_ID IS NOT NULL THEN
3702: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is Work order based. Getting details from Workorder with id ' || I.WORKORDER_ID);
3704: END IF;
3705: OPEN ahl_osp_work_csr(I.WORKORDER_ID);
3706: FETCH ahl_osp_work_csr INTO l_work_det;
3707: -- jaramana June 4, 2005: Added check for Workorder
3723:
3724: --Added by mpothuku on 04-May-06 to fix the Bug 5113542
3725: --Check that ship to or return instance is top node in CSI.
3726: -- If not unit, then throw error cause can't ship part of a unit.
3727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3729: END IF;
3730:
3731: IF p_x_line_tbl(l_index).csi_item_instance_id IS NOT NULL THEN
3724: --Added by mpothuku on 04-May-06 to fix the Bug 5113542
3725: --Check that ship to or return instance is top node in CSI.
3726: -- If not unit, then throw error cause can't ship part of a unit.
3727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3729: END IF;
3730:
3731: IF p_x_line_tbl(l_index).csi_item_instance_id IS NOT NULL THEN
3732: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(l_index).csi_item_instance_id);
3744: END IF;
3745: --mpothuku on 04-May-06 Ends
3746:
3747: ELSIF p_x_line_tbl(l_index).serial_number IS NOT NULL THEN
3748: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is not Work order based. Getting details for Serial Number ' || p_x_line_tbl(l_index).serial_number);
3750: END IF;
3751: OPEN get_inv_inst_csr(p_x_line_tbl(l_index).inventory_item_id ,
3752: -- p_x_line_tbl(l_index).inventory_org_id,
3745: --mpothuku on 04-May-06 Ends
3746:
3747: ELSIF p_x_line_tbl(l_index).serial_number IS NOT NULL THEN
3748: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is not Work order based. Getting details for Serial Number ' || p_x_line_tbl(l_index).serial_number);
3750: END IF;
3751: OPEN get_inv_inst_csr(p_x_line_tbl(l_index).inventory_item_id ,
3752: -- p_x_line_tbl(l_index).inventory_org_id,
3753: p_x_line_tbl(l_index).serial_number);
3754: FETCH get_inv_inst_csr INTO p_x_line_tbl(l_index).csi_item_instance_id;
3755: CLOSE get_inv_inst_csr;
3756: -- Added by jaramana on June 4, 2005 to get details about lot controlled items
3757: ELSIF p_x_line_tbl(l_index).lot_number IS NOT NULL THEN
3758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3759: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is not Work order based. Getting details for Lot Number ' || p_x_line_tbl(l_index).lot_number);
3760: END IF;
3761: OPEN get_inv_inst_from_lot_csr(p_x_line_tbl(l_index).inventory_item_id ,
3762: p_x_line_tbl(l_index).lot_number);
3755: CLOSE get_inv_inst_csr;
3756: -- Added by jaramana on June 4, 2005 to get details about lot controlled items
3757: ELSIF p_x_line_tbl(l_index).lot_number IS NOT NULL THEN
3758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3759: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line is not Work order based. Getting details for Lot Number ' || p_x_line_tbl(l_index).lot_number);
3760: END IF;
3761: OPEN get_inv_inst_from_lot_csr(p_x_line_tbl(l_index).inventory_item_id ,
3762: p_x_line_tbl(l_index).lot_number);
3763: FETCH get_inv_inst_from_lot_csr INTO p_x_line_tbl(l_index).csi_item_instance_id;
3768: -- All return lines were being created upfront and then the ship lines
3769: -- which was creating confusion with the sequencing of the ship/return lines
3770: -- Changing the logic henceforth.
3771: l_ship_index := l_index-1;
3772: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3773: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting the shipline: index ' || l_ship_index );
3774: END IF;
3775:
3776: -- Copy all the details about from the Return Line
3769: -- which was creating confusion with the sequencing of the ship/return lines
3770: -- Changing the logic henceforth.
3771: l_ship_index := l_index-1;
3772: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3773: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting the shipline: index ' || l_ship_index );
3774: END IF;
3775:
3776: -- Copy all the details about from the Return Line
3777: p_x_line_tbl(l_ship_index) := p_x_line_tbl(l_index);
3813: CLOSE exchange_instance_dtls_csr;
3814: END IF;
3815: -- jaramana End
3816:
3817: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3818: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed details for OSP Line with id ' || I.osp_order_line_id);
3819: END IF;
3820: END LOOP;
3821:
3814: END IF;
3815: -- jaramana End
3816:
3817: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3818: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed details for OSP Line with id ' || I.osp_order_line_id);
3819: END IF;
3820: END LOOP;
3821:
3822: /* Begin commenting out by jaramana on January 11, 2008
3819: END IF;
3820: END LOOP;
3821:
3822: /* Begin commenting out by jaramana on January 11, 2008
3823: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Preparing Return Lines. Prepare for Ship Lines');
3825: END IF;
3826: -- To create shipment return lines.
3827: IF p_x_line_tbl.count > 0 THEN
3820: END LOOP;
3821:
3822: /* Begin commenting out by jaramana on January 11, 2008
3823: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Preparing Return Lines. Prepare for Ship Lines');
3825: END IF;
3826: -- To create shipment return lines.
3827: IF p_x_line_tbl.count > 0 THEN
3828: l_index := p_x_line_tbl.last;
3883: END LOOP; -- (Ship-only line for every Return line)
3884: END IF; -- if p_x_line_tbl.count > 0
3885: */ -- End commenting out by jaramana
3886: END IF; -- Line Table Count is Zero or c_operation_flag = 'C'
3887: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3888: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3889: END IF;
3890: END Process_Line_Tbl;
3891:
3884: END IF; -- if p_x_line_tbl.count > 0
3885: */ -- End commenting out by jaramana
3886: END IF; -- Line Table Count is Zero or c_operation_flag = 'C'
3887: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3888: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3889: END IF;
3890: END Process_Line_Tbl;
3891:
3892:
3938: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3941:
3942: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3943: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3944: END IF;
3945:
3946: IF (p_line_tbl.COUNT > 0) THEN
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3941:
3942: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3943: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3944: END IF;
3945:
3946: IF (p_line_tbl.COUNT > 0) THEN
3947: FOR i IN p_line_tbl.FIRST..p_line_tbl.LAST LOOP
4037: END IF;
4038: l_line_val_rec.ship_from_org := p_line_tbl(i).ship_from_org;
4039:
4040: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4041: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4045: END IF;
4038: l_line_val_rec.ship_from_org := p_line_tbl(i).ship_from_org;
4039:
4040: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4041: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4045: END IF;
4046:
4039:
4040: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4041: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4045: END IF;
4046:
4047: IF (p_module_type = 'JSP') THEN
4040: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4041: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4045: END IF;
4046:
4047: IF (p_module_type = 'JSP') THEN
4048: -- Set all Ids to G_MISS Values
4127: END IF; --return line type
4128: l_line_table_index := l_line_table_index + 1;
4129: x_line_tbl(l_line_table_index) := l_line_rec;
4130: x_line_val_tbl(l_line_table_index) := l_line_val_rec;
4131: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4133: END IF;
4134: END IF; -- Operation is not 'D'
4135: END LOOP; -- For all lines in Line Table
4128: l_line_table_index := l_line_table_index + 1;
4129: x_line_tbl(l_line_table_index) := l_line_rec;
4130: x_line_val_tbl(l_line_table_index) := l_line_val_rec;
4131: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4133: END IF;
4134: END IF; -- Operation is not 'D'
4135: END LOOP; -- For all lines in Line Table
4136: END IF; -- Line Table Count > 0
4133: END IF;
4134: END IF; -- Operation is not 'D'
4135: END LOOP; -- For all lines in Line Table
4136: END IF; -- Line Table Count > 0
4137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4139: END IF;
4140:
4141: END Convert_Line_Tbl;
4134: END IF; -- Operation is not 'D'
4135: END LOOP; -- For all lines in Line Table
4136: END IF; -- Line Table Count > 0
4137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4139: END IF;
4140:
4141: END Convert_Line_Tbl;
4142:
5003:
5004: -- Initialize return status.
5005: x_return_status := FND_API.G_RET_STS_SUCCESS;
5006:
5007: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5009: END IF;
5010:
5011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5004: -- Initialize return status.
5005: x_return_status := FND_API.G_RET_STS_SUCCESS;
5006:
5007: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5009: END IF;
5010:
5011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_OSP_order_type = ' || p_OSP_order_type || ', p_oe_line_type = ' || p_oe_line_type ||
5007: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5009: END IF;
5010:
5011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_OSP_order_type = ' || p_OSP_order_type || ', p_oe_line_type = ' || p_oe_line_type ||
5013: ', p_oe_line_id = ' || p_oe_line_id || ', p_csi_instance_id = ' || p_csi_instance_id);
5014: END IF;
5015:
5008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5009: END IF;
5010:
5011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_OSP_order_type = ' || p_OSP_order_type || ', p_oe_line_type = ' || p_oe_line_type ||
5013: ', p_oe_line_id = ' || p_oe_line_id || ', p_csi_instance_id = ' || p_csi_instance_id);
5014: END IF;
5015:
5016: -- Check input order and line types.
5089: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5090:
5091: l_txn_party_tbl(1) := l_party_dtl_rec;
5092: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5090:
5091: l_txn_party_tbl(1) := l_party_dtl_rec;
5092: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5091: l_txn_party_tbl(1) := l_party_dtl_rec;
5092: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5092: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5097: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5098: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5106: END IF;
5099: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5106: END IF;
5107: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5100: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5106: END IF;
5107: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5108: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_SHIP');
5101:
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5105: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5106: END IF;
5107: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5108: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_SHIP');
5109: IF l_subtxn_id IS NULL THEN
5206: END IF;
5207: ---mpothuku End
5208: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5209: l_txn_party_tbl(1) := l_party_dtl_rec;
5210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5207: ---mpothuku End
5208: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5209: l_txn_party_tbl(1) := l_party_dtl_rec;
5210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5208: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5209: l_txn_party_tbl(1) := l_party_dtl_rec;
5210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5209: l_txn_party_tbl(1) := l_party_dtl_rec;
5210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5218: END IF;
5211: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5218: END IF;
5219: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5212: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5218: END IF;
5219: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5220: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_RETURN');
5213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5218: END IF;
5219: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5220: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_RETURN');
5221: IF l_subtxn_id IS NULL THEN
5320: l_txn_line_dtl_tbl(1).RETURN_BY_DATE := l_return_by_date;
5321:
5322: END IF;
5323:
5324: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5321:
5322: END IF;
5323:
5324: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5322: END IF;
5323:
5324: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5323:
5324: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5324: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5329:
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5333: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5346: END IF;
5339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5346: END IF;
5347:
5340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5346: END IF;
5347:
5348:
5341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5344: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5346: END IF;
5347:
5348:
5349: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5345: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5346: END IF;
5347:
5348:
5349: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5350: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.create_transaction_dtls.');
5351: END IF;
5352: csi_t_txn_details_grp.create_transaction_dtls(
5353: p_api_version => 1.0,
5346: END IF;
5347:
5348:
5349: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5350: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.create_transaction_dtls.');
5351: END IF;
5352: csi_t_txn_details_grp.create_transaction_dtls(
5353: p_api_version => 1.0,
5354: p_commit => p_commit,
5366: x_msg_count => x_msg_count,
5367: x_msg_data => x_msg_data);
5368:
5369:
5370: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5371: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.create_transaction_dtls. x_return_status = ' || x_return_status);
5372: END IF;
5373: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5367: x_msg_data => x_msg_data);
5368:
5369:
5370: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5371: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.create_transaction_dtls. x_return_status = ' || x_return_status);
5372: END IF;
5373: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5375: END IF;
5369:
5370: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5371: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.create_transaction_dtls. x_return_status = ' || x_return_status);
5372: END IF;
5373: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5375: END IF;
5376:
5377: END Create_IB_Transaction;
5370: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5371: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.create_transaction_dtls. x_return_status = ' || x_return_status);
5372: END IF;
5373: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5375: END IF;
5376:
5377: END Create_IB_Transaction;
5378:
5401: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Delete_IB_Transaction';
5402:
5403: BEGIN
5404:
5405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5406: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5407: END IF;
5408:
5409: -- Initialize return status.
5402:
5403: BEGIN
5404:
5405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5406: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5407: END IF;
5408:
5409: -- Initialize return status.
5410: x_return_status := FND_API.G_RET_STS_SUCCESS;
5414: CLOSE csi_txn_lines_csr;
5415:
5416: IF (l_transaction_line_id IS NOT NULL) THEN
5417:
5418: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.delete_transaction_dtls.');
5420: END IF;
5421:
5422: csi_t_txn_details_grp.delete_transaction_dtls
5415:
5416: IF (l_transaction_line_id IS NOT NULL) THEN
5417:
5418: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.delete_transaction_dtls.');
5420: END IF;
5421:
5422: csi_t_txn_details_grp.delete_transaction_dtls
5423: ( p_api_version => 1.0,
5429: x_return_status => x_return_status,
5430: x_msg_count => x_msg_count,
5431: x_msg_data => x_msg_data);
5432:
5433: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5434: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.delete_transaction_dtls. x_return_status = ' || x_return_status);
5435: END IF;
5436:
5437: END IF;
5430: x_msg_count => x_msg_count,
5431: x_msg_data => x_msg_data);
5432:
5433: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5434: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to csi_t_txn_details_grp.delete_transaction_dtls. x_return_status = ' || x_return_status);
5435: END IF;
5436:
5437: END IF;
5438:
5435: END IF;
5436:
5437: END IF;
5438:
5439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5441: END IF;
5442:
5443: END Delete_IB_Transaction;
5436:
5437: END IF;
5438:
5439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5441: END IF;
5442:
5443: END Delete_IB_Transaction;
5444:
5537: IF FND_API.To_Boolean(p_init_msg_list) THEN
5538: FND_MSG_PUB.Initialize;
5539: END IF;
5540:
5541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5543: END IF;
5544:
5545: -- Validate the OSP Order Id
5538: FND_MSG_PUB.Initialize;
5539: END IF;
5540:
5541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5543: END IF;
5544:
5545: -- Validate the OSP Order Id
5546: OPEN validate_osp_id_csr(p_osp_order_id);
5554: RAISE Fnd_Api.g_exc_error;
5555: END IF;
5556: CLOSE validate_osp_id_csr;
5557:
5558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Id validated.');
5560: END IF;
5561:
5562: -- Validate the type codes
5555: END IF;
5556: CLOSE validate_osp_id_csr;
5557:
5558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Id validated.');
5560: END IF;
5561:
5562: -- Validate the type codes
5563: IF ((p_old_order_type_code IS NULL) OR
5569: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5570: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5571: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5572: Fnd_Msg_Pub.ADD;
5573: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5574: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5575: END IF;
5576: END IF;
5577: RAISE Fnd_Api.g_exc_error;
5570: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5571: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5572: Fnd_Msg_Pub.ADD;
5573: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5574: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5575: END IF;
5576: END IF;
5577: RAISE Fnd_Api.g_exc_error;
5578: END IF;
5576: END IF;
5577: RAISE Fnd_Api.g_exc_error;
5578: END IF;
5579:
5580: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5582: END IF;
5583:
5584: -- Validate that the return quantity is zero
5577: RAISE Fnd_Api.g_exc_error;
5578: END IF;
5579:
5580: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5582: END IF;
5583:
5584: -- Validate that the return quantity is zero
5585: OPEN get_return_line_ids_csr(p_osp_order_id);
5593: -- Return line is already shipped: Too late to convert!
5594: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5595: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5596: Fnd_Msg_Pub.ADD;
5597: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5599: END IF;
5600: END IF;
5601: CLOSE get_return_line_ids_csr;
5594: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5595: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5596: Fnd_Msg_Pub.ADD;
5597: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5599: END IF;
5600: END IF;
5601: CLOSE get_return_line_ids_csr;
5602: RAISE Fnd_Api.g_exc_error;
5606: l_oe_line_ids_tbl(l_temp_count) := l_oe_return_line_id;
5607: END LOOP;
5608: CLOSE get_return_line_ids_csr;
5609:
5610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5611: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated return quantities.');
5612: END IF;
5613:
5614: IF (l_temp_count > 0) THEN
5607: END LOOP;
5608: CLOSE get_return_line_ids_csr;
5609:
5610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5611: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated return quantities.');
5612: END IF;
5613:
5614: IF (l_temp_count > 0) THEN
5615: -- Delete all return shipment lines
5612: END IF;
5613:
5614: IF (l_temp_count > 0) THEN
5615: -- Delete all return shipment lines
5616: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5617: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5618: END IF;
5619:
5620: Delete_Cancel_Order (p_api_version => 1.0,
5613:
5614: IF (l_temp_count > 0) THEN
5615: -- Delete all return shipment lines
5616: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5617: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5618: END IF;
5619:
5620: Delete_Cancel_Order (p_api_version => 1.0,
5621: p_init_msg_list => FND_API.G_FALSE,
5626: p_cancel_flag => FND_API.G_FALSE,
5627: x_return_status => x_return_status,
5628: x_msg_count => x_msg_count,
5629: x_msg_data => x_msg_data);
5630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5631: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5632: END IF;
5633: ELSE
5634: null;
5627: x_return_status => x_return_status,
5628: x_msg_count => x_msg_count,
5629: x_msg_data => x_msg_data);
5630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5631: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5632: END IF;
5633: ELSE
5634: null;
5635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5631: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5632: END IF;
5633: ELSE
5634: null;
5635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not calling Delete_Cancel_Order since there are no return shipment lines');
5637: END IF;
5638: END IF;
5639:
5632: END IF;
5633: ELSE
5634: null;
5635: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not calling Delete_Cancel_Order since there are no return shipment lines');
5637: END IF;
5638: END IF;
5639:
5640: -- If the deletion has succeeded, proceed with converting the
5642: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5643: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5644: p_old_order_type_code => p_old_order_type_code,
5645: p_new_order_type_code => p_new_order_type_code);
5646: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Convert_Ship_Only_Lines returned with no exception');
5648: END IF;
5649: END IF;
5650:
5643: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5644: p_old_order_type_code => p_old_order_type_code,
5645: p_new_order_type_code => p_new_order_type_code);
5646: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Convert_Ship_Only_Lines returned with no exception');
5648: END IF;
5649: END IF;
5650:
5651: -- Standard check of p_commit
5658: ( p_count => x_msg_count,
5659: p_data => x_msg_data,
5660: p_encoded => fnd_api.g_false);
5661:
5662: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5664: END IF;
5665:
5666: EXCEPTION
5659: p_data => x_msg_data,
5660: p_encoded => fnd_api.g_false);
5661:
5662: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5664: END IF;
5665:
5666: EXCEPTION
5667: WHEN FND_API.G_EXC_ERROR THEN
5775: l_msg_count NUMBER;
5776: l_msg_data VARCHAR2(2000);
5777:
5778: BEGIN
5779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5781: END IF;
5782: -- Get internal Party Id
5783: OPEN get_internal_party_csr;
5776: l_msg_data VARCHAR2(2000);
5777:
5778: BEGIN
5779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5781: END IF;
5782: -- Get internal Party Id
5783: OPEN get_internal_party_csr;
5784: FETCH get_internal_party_csr INTO l_internal_party_id;
5785: IF (get_internal_party_csr%NOTFOUND) THEN
5786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5787: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5788: Fnd_Msg_Pub.ADD;
5789: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5790: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5791: END IF;
5792: END IF;
5793: CLOSE get_internal_party_csr;
5786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5787: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5788: Fnd_Msg_Pub.ADD;
5789: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5790: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5791: END IF;
5792: END IF;
5793: CLOSE get_internal_party_csr;
5794: RAISE Fnd_Api.g_exc_error;
5794: RAISE Fnd_Api.g_exc_error;
5795: END IF;
5796: CLOSE get_internal_party_csr;
5797:
5798: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got Internal Party Id: ' || l_internal_party_id);
5800: END IF;
5801:
5802: -- Process ship only lines
5795: END IF;
5796: CLOSE get_internal_party_csr;
5797:
5798: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got Internal Party Id: ' || l_internal_party_id);
5800: END IF;
5801:
5802: -- Process ship only lines
5803: OPEN get_ship_only_lines_csr(p_osp_order_id);
5806: l_item_instance_id,
5807: l_shipped_quantity;
5808: EXIT WHEN get_ship_only_lines_csr%NOTFOUND;
5809: l_temp_count := l_temp_count + 1;
5810: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'index = ' || l_temp_count || ', l_oe_ship_line_id = ' || l_oe_ship_line_id || ', l_shipped_quantity = ' || l_shipped_quantity || ', l_item_instance_id = ' || l_item_instance_id);
5812: END IF;
5813: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5814: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5807: l_shipped_quantity;
5808: EXIT WHEN get_ship_only_lines_csr%NOTFOUND;
5809: l_temp_count := l_temp_count + 1;
5810: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'index = ' || l_temp_count || ', l_oe_ship_line_id = ' || l_oe_ship_line_id || ', l_shipped_quantity = ' || l_shipped_quantity || ', l_item_instance_id = ' || l_item_instance_id);
5812: END IF;
5813: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5814: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5815: -- Already shipped: Need to change ownership
5812: END IF;
5813: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5814: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5815: -- Already shipped: Need to change ownership
5816: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5817: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity > 0, need to change owner');
5818: END IF;
5819: OPEN get_owner_ip_id(l_item_instance_id);
5820: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5813: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5814: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5815: -- Already shipped: Need to change ownership
5816: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5817: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity > 0, need to change owner');
5818: END IF;
5819: OPEN get_owner_ip_id(l_item_instance_id);
5820: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5821: l_curr_pty_id,
5824: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5825: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5826: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5827: Fnd_Msg_Pub.ADD;
5828: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5829: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5830: END IF;
5831: END IF;
5832: CLOSE get_owner_ip_id;
5825: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5826: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5827: Fnd_Msg_Pub.ADD;
5828: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5829: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5830: END IF;
5831: END IF;
5832: CLOSE get_owner_ip_id;
5833: CLOSE get_ship_only_lines_csr;
5833: CLOSE get_ship_only_lines_csr;
5834: RAISE Fnd_Api.g_exc_error;
5835: END IF;
5836: CLOSE get_owner_ip_id;
5837: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5838: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got current owner, l_curr_pty_id = ' || l_curr_pty_id || ', l_curr_inst_pty_id = ' || l_curr_inst_pty_id);
5839: END IF;
5840:
5841: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5834: RAISE Fnd_Api.g_exc_error;
5835: END IF;
5836: CLOSE get_owner_ip_id;
5837: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5838: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got current owner, l_curr_pty_id = ' || l_curr_pty_id || ', l_curr_inst_pty_id = ' || l_curr_inst_pty_id);
5839: END IF;
5840:
5841: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5842: -- Exchange to Service conversion: New owner will be internal
5841: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5842: -- Exchange to Service conversion: New owner will be internal
5843: l_new_party_id := l_internal_party_id;
5844: -- l_new_party_acc_id will be null
5845: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange to Service conversion: New internal owner = ' || l_new_party_id);
5847: END IF;
5848: ELSIF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
5849: -- Service to Exchange conversion: New owner will be the ship to org
5842: -- Exchange to Service conversion: New owner will be internal
5843: l_new_party_id := l_internal_party_id;
5844: -- l_new_party_acc_id will be null
5845: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange to Service conversion: New internal owner = ' || l_new_party_id);
5847: END IF;
5848: ELSIF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
5849: -- Service to Exchange conversion: New owner will be the ship to org
5850: -- Determine the id of this party
5854: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5855: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5856: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5857: Fnd_Msg_Pub.ADD;
5858: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5859: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5860: END IF;
5861: END IF;
5862: CLOSE get_sold_to_org;
5855: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5856: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5857: Fnd_Msg_Pub.ADD;
5858: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5859: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5860: END IF;
5861: END IF;
5862: CLOSE get_sold_to_org;
5863: CLOSE get_ship_only_lines_csr;
5863: CLOSE get_ship_only_lines_csr;
5864: RAISE Fnd_Api.g_exc_error;
5865: END IF;
5866: CLOSE get_sold_to_org;
5867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Service to Exchange conversion: New external owner (party) = ' || l_new_party_id || ', New Party Account = ' || l_new_party_acc_id);
5869: END IF;
5870: ELSE
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5864: RAISE Fnd_Api.g_exc_error;
5865: END IF;
5866: CLOSE get_sold_to_org;
5867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Service to Exchange conversion: New external owner (party) = ' || l_new_party_id || ', New Party Account = ' || l_new_party_acc_id);
5869: END IF;
5870: ELSE
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5872: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5870: ELSE
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5872: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5873: Fnd_Msg_Pub.ADD;
5874: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5875: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5876: END IF;
5877: END IF;
5878: CLOSE get_ship_only_lines_csr;
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5872: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5873: Fnd_Msg_Pub.ADD;
5874: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5875: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5876: END IF;
5877: END IF;
5878: CLOSE get_ship_only_lines_csr;
5879: RAISE Fnd_Api.g_exc_error;
5900: l_transaction_rec.transaction_date := sysdate;
5901: l_transaction_rec.source_transaction_date := sysdate;
5902: l_transaction_rec.transaction_type_id := 1;
5903: -- Call the API
5904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5901: l_transaction_rec.source_transaction_date := sysdate;
5902: l_transaction_rec.transaction_type_id := 1;
5903: -- Call the API
5904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5903: -- Call the API
5904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5904: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5905: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5906:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5908: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5909: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5918: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5918: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5921: END IF;
5914:
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5918: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5921: END IF;
5922: END IF;
5915: IF (l_new_party_id <> l_internal_party_id) THEN
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5918: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5921: END IF;
5922: END IF;
5923:
5916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5918: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5921: END IF;
5922: END IF;
5923:
5924: --Updated by Jerry on 07/26/05 after the discussion with CSI Srini. From his suggestion,
5941: x_instance_id_lst => l_instance_id_lst,
5942: x_return_status => l_return_status,
5943: x_msg_count => l_msg_count,
5944: x_msg_data => l_msg_data);
5945: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, x_return_status = ' || l_return_status);
5947: END IF;
5948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5949: CLOSE get_ship_only_lines_csr;
5942: x_return_status => l_return_status,
5943: x_msg_count => l_msg_count,
5944: x_msg_data => l_msg_data);
5945: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, x_return_status = ' || l_return_status);
5947: END IF;
5948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5949: CLOSE get_ship_only_lines_csr;
5950: RAISE Fnd_Api.g_exc_error;
5953: -- Not yet shipped: No need to change ownership
5954: -- Delete existing IB subtransaction (with old type)
5955: -- Jeli added the instance_id nullable check on 01/24/2006 for ER 4746426
5956: IF (l_item_instance_id IS NULL) THEN
5957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
5959: END IF;
5960: ELSE
5961: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5954: -- Delete existing IB subtransaction (with old type)
5955: -- Jeli added the instance_id nullable check on 01/24/2006 for ER 4746426
5956: IF (l_item_instance_id IS NULL) THEN
5957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
5959: END IF;
5960: ELSE
5961: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
5957: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
5959: END IF;
5960: ELSE
5961: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
5963: END IF;
5964: Delete_IB_Transaction(
5965: p_init_msg_list => FND_API.G_FALSE,
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
5959: END IF;
5960: ELSE
5961: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
5963: END IF;
5964: Delete_IB_Transaction(
5965: p_init_msg_list => FND_API.G_FALSE,
5966: p_commit => FND_API.G_FALSE,
5968: x_return_status => l_return_status,
5969: x_msg_count => l_msg_count,
5970: x_msg_data => l_msg_data,
5971: p_oe_line_id => l_oe_ship_line_id);
5972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
5974: END IF;
5975: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5976: -- Create new IB subtransaction (with new type)
5969: x_msg_count => l_msg_count,
5970: x_msg_data => l_msg_data,
5971: p_oe_line_id => l_oe_ship_line_id);
5972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
5974: END IF;
5975: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5976: -- Create new IB subtransaction (with new type)
5977: Create_IB_Transaction(
5984: p_OSP_order_type => p_new_order_type_code,
5985: p_oe_line_type => 'ORDER',
5986: p_oe_line_id => l_oe_ship_line_id,
5987: p_csi_instance_id => l_item_instance_id);
5988: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
5990: END IF;
5991: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5992: -- Error creating IB Subtransaction: throw exception
5985: p_oe_line_type => 'ORDER',
5986: p_oe_line_id => l_oe_ship_line_id,
5987: p_csi_instance_id => l_item_instance_id);
5988: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
5990: END IF;
5991: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5992: -- Error creating IB Subtransaction: throw exception
5993: CLOSE get_ship_only_lines_csr;
6002: END IF;
6003: END LOOP;
6004: CLOSE get_ship_only_lines_csr;
6005:
6006: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6008: END IF;
6009:
6010: END Convert_Ship_Only_Lines;
6003: END LOOP;
6004: CLOSE get_ship_only_lines_csr;
6005:
6006: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6008: END IF;
6009:
6010: END Convert_Ship_Only_Lines;
6011:
6020: p_instance_num CSI_ITEM_INSTANCES.INSTANCE_NUMBER%TYPE;
6021: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.GET_INSTANCE_NUM_FROM_ID';
6022:
6023: BEGIN
6024: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6025: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6026: END IF;
6027: IF p_instance_id IS NULL THEN
6028: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6021: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.GET_INSTANCE_NUM_FROM_ID';
6022:
6023: BEGIN
6024: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6025: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6026: END IF;
6027: IF p_instance_id IS NULL THEN
6028: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6024: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6025: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6026: END IF;
6027: IF p_instance_id IS NULL THEN
6028: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6030: END IF;
6031: RETURN NULL;
6032: ELSE
6025: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6026: END IF;
6027: IF p_instance_id IS NULL THEN
6028: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6030: END IF;
6031: RETURN NULL;
6032: ELSE
6033: OPEN csi_instance_num_csr(p_instance_id);
6032: ELSE
6033: OPEN csi_instance_num_csr(p_instance_id);
6034: FETCH csi_instance_num_csr into p_instance_num;
6035: CLOSE csi_instance_num_csr;
6036: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning ' || p_instance_num);
6038: END IF;
6039: RETURN p_instance_num;
6040: END IF;
6033: OPEN csi_instance_num_csr(p_instance_id);
6034: FETCH csi_instance_num_csr into p_instance_num;
6035: CLOSE csi_instance_num_csr;
6036: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning ' || p_instance_num);
6038: END IF;
6039: RETURN p_instance_num;
6040: END IF;
6041: END;
6136: IF FND_API.To_Boolean(p_init_msg_list) THEN
6137: FND_MSG_PUB.Initialize;
6138: END IF;
6139:
6140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6142: END IF;
6143:
6144: IF p_osp_order_id IS NOT NULL THEN
6137: FND_MSG_PUB.Initialize;
6138: END IF;
6139:
6140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6142: END IF;
6143:
6144: IF p_osp_order_id IS NOT NULL THEN
6145: OPEN get_shipment_det_csr;
6151: CLOSE get_shipment_det_csr;
6152: END IF;
6153:
6154: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6152: END IF;
6153:
6154: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6160: END IF;
6153:
6154: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6160: END IF;
6161:
6154: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6160: END IF;
6161:
6162: OPEN ahl_order_vendor_detls_csr(p_osp_order_id);
6155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6160: END IF;
6161:
6162: OPEN ahl_order_vendor_detls_csr(p_osp_order_id);
6163: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
6163: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
6164: CLOSE ahl_order_vendor_detls_csr;
6165:
6166: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6164: CLOSE ahl_order_vendor_detls_csr;
6165:
6166: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6172: END IF;
6165:
6166: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6172: END IF;
6173:
6166: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6172: END IF;
6173:
6174: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6172: END IF;
6173:
6174: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6175: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6176: Fnd_Msg_Pub.ADD;
6177: RAISE Fnd_Api.g_exc_error;
6178: END IF;
6179:
6180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6182: END IF;
6183:
6184: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6177: RAISE Fnd_Api.g_exc_error;
6178: END IF;
6179:
6180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6182: END IF;
6183:
6184: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6185: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6195: LOOP
6196: FETCH get_oe_order_lines INTO l_oe_line_id;
6197: EXIT WHEN get_oe_order_lines%NOTFOUND;
6198: l_oe_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
6199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_line_id = ' || l_oe_line_id);
6201: END IF;
6202: l_oe_line_rec.line_id := l_oe_line_id;
6203: l_oe_line_rec.sold_to_org_id := l_vendor_cust_dtls.customer_id;
6196: FETCH get_oe_order_lines INTO l_oe_line_id;
6197: EXIT WHEN get_oe_order_lines%NOTFOUND;
6198: l_oe_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
6199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_line_id = ' || l_oe_line_id);
6201: END IF;
6202: l_oe_line_rec.line_id := l_oe_line_id;
6203: l_oe_line_rec.sold_to_org_id := l_vendor_cust_dtls.customer_id;
6204: l_oe_line_rec.ship_to_org_id := l_vendor_cust_dtls.customer_site_id;
6244: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
6245: x_action_request_tbl => x_action_request_tbl );
6246:
6247:
6248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6249: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6250: END IF;
6251:
6252: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6245: x_action_request_tbl => x_action_request_tbl );
6246:
6247:
6248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6249: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6250: END IF;
6251:
6252: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6253: FOR i IN 1..x_msg_count LOOP
6257: p_msg_index_out => l_msg_index_out);
6258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6259: p_procedure_name => 'processOrder',
6260: p_error_text => substr(l_msg_data,1,240));
6261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6263: END IF;
6264:
6265: END LOOP;
6258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6259: p_procedure_name => 'processOrder',
6260: p_error_text => substr(l_msg_data,1,240));
6261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6263: END IF;
6264:
6265: END LOOP;
6266: END IF;
6286: */
6287:
6288: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6289: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6291: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6292: FND_MSG_PUB.get (
6293: p_msg_index => i,
6294: p_encoded => FND_API.G_FALSE,
6293: p_msg_index => i,
6294: p_encoded => FND_API.G_FALSE,
6295: p_data => l_msg_data,
6296: p_msg_index_out => l_msg_index_out );
6297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6298: END LOOP;
6299: END IF;
6300: FND_MSG_PUB.Initialize;
6301: END IF;
6303: FND_MSG_PUB.Count_And_Get
6304: ( p_count => x_msg_count,
6305: p_data => x_msg_data,
6306: p_encoded => fnd_api.g_false);
6307: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6308: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6309: END IF;
6310:
6311: EXCEPTION
6304: ( p_count => x_msg_count,
6305: p_data => x_msg_data,
6306: p_encoded => fnd_api.g_false);
6307: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6308: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6309: END IF;
6310:
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6410: l_ship_line_instance get_ship_line_instance%ROWTYPE;
6411:
6412: BEGIN
6413:
6414: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6416: END IF;
6417:
6418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6411:
6412: BEGIN
6413:
6414: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6416: END IF;
6417:
6418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6419: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6414: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6416: END IF;
6417:
6418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6419: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6420: END IF;
6421:
6422: --Retrieve the shipment line information. If data is not retrieved, then the osp_order_line_id is invalid.
6415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6416: END IF;
6417:
6418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6419: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6420: END IF;
6421:
6422: --Retrieve the shipment line information. If data is not retrieved, then the osp_order_line_id is invalid.
6423: OPEN get_order_details(p_osp_order_line_id);
6423: OPEN get_order_details(p_osp_order_line_id);
6424: FETCH get_order_details INTO l_get_order_details;
6425: IF (get_order_details%NOTFOUND) THEN
6426: CLOSE get_order_details;
6427: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Order Line, Failed to retrieve order line/shipment information');
6429: END IF;
6430: return 'N';
6431: END IF;
6424: FETCH get_order_details INTO l_get_order_details;
6425: IF (get_order_details%NOTFOUND) THEN
6426: CLOSE get_order_details;
6427: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Order Line, Failed to retrieve order line/shipment information');
6429: END IF;
6430: return 'N';
6431: END IF;
6432: CLOSE get_order_details;
6433:
6434: /*
6435: Check that the Order Type is Service and the status of the order is not 'CLOSED' and the status of the order line is not populated, which would mean that the related purchase line details have been cancelled or deleted.
6436: */
6437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6438: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'order_type_code -> ' ||l_get_order_details.order_type_code ||
6439: 'osp_header_status_code -> ' ||l_get_order_details.osp_header_status_code ||
6440: 'osp_line_status_code -> ' ||l_get_order_details.osp_line_status_code);
6441: END IF;
6434: /*
6435: Check that the Order Type is Service and the status of the order is not 'CLOSED' and the status of the order line is not populated, which would mean that the related purchase line details have been cancelled or deleted.
6436: */
6437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6438: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'order_type_code -> ' ||l_get_order_details.order_type_code ||
6439: 'osp_header_status_code -> ' ||l_get_order_details.osp_header_status_code ||
6440: 'osp_line_status_code -> ' ||l_get_order_details.osp_line_status_code);
6441: END IF;
6442:
6442:
6443: IF(l_get_order_details.order_type_code <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE OR
6444: l_get_order_details.osp_header_status_code = AHL_OSP_ORDERS_PVT.G_OSP_CLOSED_STATUS OR
6445: l_get_order_details.osp_line_status_code is not NULL) THEN
6446: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Osp Order Type or Status');
6448: END IF;
6449: return 'N';
6450: END IF;
6443: IF(l_get_order_details.order_type_code <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE OR
6444: l_get_order_details.osp_header_status_code = AHL_OSP_ORDERS_PVT.G_OSP_CLOSED_STATUS OR
6445: l_get_order_details.osp_line_status_code is not NULL) THEN
6446: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Osp Order Type or Status');
6448: END IF;
6449: return 'N';
6450: END IF;
6451:
6454: change for this order line.
6455: Return 'N' if, the quantity is not shipped yet.
6456: */
6457: IF(l_get_order_details.oe_ship_line_id is NULL OR l_get_order_details.shipped_quantity = 0) THEN
6458: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Ship Line not present or is not valid to allow Part Number Change: '||
6460: ' oe_ship_line_id ->' ||l_get_order_details.oe_ship_line_id ||
6461: ' shipped_quantity ->' ||l_get_order_details.shipped_quantity) ;
6462: END IF;
6455: Return 'N' if, the quantity is not shipped yet.
6456: */
6457: IF(l_get_order_details.oe_ship_line_id is NULL OR l_get_order_details.shipped_quantity = 0) THEN
6458: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Ship Line not present or is not valid to allow Part Number Change: '||
6460: ' oe_ship_line_id ->' ||l_get_order_details.oe_ship_line_id ||
6461: ' shipped_quantity ->' ||l_get_order_details.shipped_quantity) ;
6462: END IF;
6463: return 'N';
6467: Check that the return shipment line is 'Open'. Note that if the line is cancelled, we will allow the Part Number change.
6468: Return 'N' if the return line is already shipped.
6469: */
6470: IF(l_get_order_details.oe_return_line_id is NOT NULL AND l_get_order_details.returned_quantity > 0) THEN
6471: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6472: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Line already shipped'||
6473: ' oe_return_line_id ->' ||l_get_order_details.oe_return_line_id ||
6474: ' returned_quantity ->' ||l_get_order_details.returned_quantity ) ;
6475: END IF;
6468: Return 'N' if the return line is already shipped.
6469: */
6470: IF(l_get_order_details.oe_return_line_id is NOT NULL AND l_get_order_details.returned_quantity > 0) THEN
6471: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6472: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Line already shipped'||
6473: ' oe_return_line_id ->' ||l_get_order_details.oe_return_line_id ||
6474: ' returned_quantity ->' ||l_get_order_details.returned_quantity ) ;
6475: END IF;
6476: return 'N';
6475: END IF;
6476: return 'N';
6477: END IF;
6478:
6479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Details as present on the osp order line: '||
6481: ' inventory_item_id ->' ||l_get_order_details.inventory_item_id ||
6482: ' inventory_org_id ->' ||l_get_order_details.inventory_org_id ||
6483: ' serial_number ->' ||l_get_order_details.serial_number) ;
6476: return 'N';
6477: END IF;
6478:
6479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Details as present on the osp order line: '||
6481: ' inventory_item_id ->' ||l_get_order_details.inventory_item_id ||
6482: ' inventory_org_id ->' ||l_get_order_details.inventory_org_id ||
6483: ' serial_number ->' ||l_get_order_details.serial_number) ;
6484: END IF;
6496: OPEN get_ship_line_instance(p_osp_order_line_id);
6497: FETCH get_ship_line_instance INTO l_ship_line_instance;
6498: IF (get_ship_line_instance%NOTFOUND) THEN
6499: CLOSE get_ship_line_instance;
6500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Failed to find instance details for the ship line');
6502: END IF;
6503: return 'N';
6504: END IF;
6497: FETCH get_ship_line_instance INTO l_ship_line_instance;
6498: IF (get_ship_line_instance%NOTFOUND) THEN
6499: CLOSE get_ship_line_instance;
6500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Failed to find instance details for the ship line');
6502: END IF;
6503: return 'N';
6504: END IF;
6505: CLOSE get_ship_line_instance;
6503: return 'N';
6504: END IF;
6505: CLOSE get_ship_line_instance;
6506:
6507: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6508: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipped instance attributes : '||
6509: ' inventory_item_id ->' ||l_ship_line_instance.inventory_item_id ||
6510: ' last_vld_organization_id ->' || l_ship_line_instance.last_vld_organization_id) ;
6511: END IF;
6504: END IF;
6505: CLOSE get_ship_line_instance;
6506:
6507: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6508: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipped instance attributes : '||
6509: ' inventory_item_id ->' ||l_ship_line_instance.inventory_item_id ||
6510: ' last_vld_organization_id ->' || l_ship_line_instance.last_vld_organization_id) ;
6511: END IF;
6512:
6515: OPEN get_inventory_flags(l_ship_line_instance.inventory_item_id,l_ship_line_instance.last_vld_organization_id );
6516: FETCH get_inventory_flags INTO l_serial_number_control_code, l_comms_nl_trackable_flag;
6517: IF (get_inventory_flags%NOTFOUND) THEN
6518: CLOSE get_inventory_flags;
6519: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6520: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item, Failed to retrieve item information');
6521: END IF;
6522: return 'N';
6523: END IF;
6516: FETCH get_inventory_flags INTO l_serial_number_control_code, l_comms_nl_trackable_flag;
6517: IF (get_inventory_flags%NOTFOUND) THEN
6518: CLOSE get_inventory_flags;
6519: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6520: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item, Failed to retrieve item information');
6521: END IF;
6522: return 'N';
6523: END IF;
6524: CLOSE get_inventory_flags;
6522: return 'N';
6523: END IF;
6524: CLOSE get_inventory_flags;
6525:
6526: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6527: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp order line: Item Number flags : '||
6528: ' l_serial_number_control_code ->' || l_serial_number_control_code ||
6529: ' l_comms_nl_trackable_flag ->' || l_comms_nl_trackable_flag) ;
6530: END IF;
6523: END IF;
6524: CLOSE get_inventory_flags;
6525:
6526: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6527: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp order line: Item Number flags : '||
6528: ' l_serial_number_control_code ->' || l_serial_number_control_code ||
6529: ' l_comms_nl_trackable_flag ->' || l_comms_nl_trackable_flag) ;
6530: END IF;
6531:
6530: END IF;
6531:
6532: --Item has to serial controlled and IB trackable
6533: IF (l_serial_number_control_code NOT IN (2,5,6) OR nvl(l_comms_nl_trackable_flag,'N') <> 'Y') THEN
6534: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable');
6536: END IF;
6537: return 'N';
6538: END IF;
6531:
6532: --Item has to serial controlled and IB trackable
6533: IF (l_serial_number_control_code NOT IN (2,5,6) OR nvl(l_comms_nl_trackable_flag,'N') <> 'Y') THEN
6534: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable');
6536: END IF;
6537: return 'N';
6538: END IF;
6539:
6536: END IF;
6537: return 'N';
6538: END IF;
6539:
6540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6542: END IF;
6543:
6544: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6537: return 'N';
6538: END IF;
6539:
6540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6542: END IF;
6543:
6544: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6542: END IF;
6543:
6544: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6546: END IF;
6547:
6548: return 'Y';
6541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6542: END IF;
6543:
6544: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6546: END IF;
6547:
6548: return 'Y';
6549:
6744: IF FND_API.To_Boolean(p_init_msg_list) THEN
6745: FND_MSG_PUB.Initialize;
6746: END IF;
6747:
6748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6750: END IF;
6751:
6752: --Dump the input parameters
6745: FND_MSG_PUB.Initialize;
6746: END IF;
6747:
6748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6750: END IF;
6751:
6752: --Dump the input parameters
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6750: END IF;
6751:
6752: --Dump the input parameters
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6754: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6755: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6756: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6757: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6750: END IF;
6751:
6752: --Dump the input parameters
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6754: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6755: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6756: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6757: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6758: END IF;
6751:
6752: --Dump the input parameters
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6754: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6755: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6756: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6757: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6758: END IF;
6759:
6752: --Dump the input parameters
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6754: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6755: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6756: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6757: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6758: END IF;
6759:
6760: --osp_order_line_id should not be null
6753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6754: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6755: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6756: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6757: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6758: END IF;
6759:
6760: --osp_order_line_id should not be null
6761: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6821: RAISE FND_API.G_EXC_ERROR;
6822: END IF;
6823: CLOSE get_ship_line_instance;
6824:
6825: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6826: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ship_line_instance_id =>' ||l_ship_line_instance_id);
6827: END IF;
6828: IF (l_serialnum_change_rec.instance_id is NULL) THEN
6829: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6822: END IF;
6823: CLOSE get_ship_line_instance;
6824:
6825: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6826: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ship_line_instance_id =>' ||l_ship_line_instance_id);
6827: END IF;
6828: IF (l_serialnum_change_rec.instance_id is NULL) THEN
6829: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6830: ELSE
6847: FND_MSG_PUB.ADD;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6852: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6853: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6854: END IF;
6855:
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6852: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6853: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6854: END IF;
6855:
6856: /*
6849: END IF;
6850:
6851: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6852: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6853: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6854: END IF;
6855:
6856: /*
6857: --If the l_new_inventory_item_id is null, it means that we are using the older part number itself and new serial number.
6867: ELSE
6868: l_organization_id := l_osp_order_line_dtls.inventory_org_id;
6869: END IF;
6870:
6871: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6872: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6873: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6874: END IF;
6875:
6868: l_organization_id := l_osp_order_line_dtls.inventory_org_id;
6869: END IF;
6870:
6871: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6872: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6873: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6874: END IF;
6875:
6876: --------------------------------------------
6869: END IF;
6870:
6871: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6872: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6873: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6874: END IF;
6875:
6876: --------------------------------------------
6877: -- Convert meaning to lookup code
6910: CLOSE mtl_system_items_csr;
6911:
6912: --Item has to serial controlled and IB trackable
6913: IF (l_mtl_system_items_rec.serial_number_control_code NOT IN (2,5,6) OR nvl(l_mtl_system_items_rec.comms_nl_trackable_flag,'N') <> 'Y') THEN
6914: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6915: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable '||
6916: ' l_serial_number_control_code =>' || l_mtl_system_items_rec.serial_number_control_code || 'l_comms_nl_trackable_flag =>'||l_mtl_system_items_rec.comms_nl_trackable_flag );
6917: END IF;
6918: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6911:
6912: --Item has to serial controlled and IB trackable
6913: IF (l_mtl_system_items_rec.serial_number_control_code NOT IN (2,5,6) OR nvl(l_mtl_system_items_rec.comms_nl_trackable_flag,'N') <> 'Y') THEN
6914: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6915: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable '||
6916: ' l_serial_number_control_code =>' || l_mtl_system_items_rec.serial_number_control_code || 'l_comms_nl_trackable_flag =>'||l_mtl_system_items_rec.comms_nl_trackable_flag );
6917: END IF;
6918: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6919: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6929: l_serialnum_change_rec.New_Serial_Tag_Code,
6930: l_mtl_system_items_rec.concatenated_segments);
6931:
6932: IF FND_MSG_PUB.count_msg > 0 THEN
6933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6935: END IF;
6936: RAISE FND_API.G_EXC_ERROR;
6937: END IF;
6930: l_mtl_system_items_rec.concatenated_segments);
6931:
6932: IF FND_MSG_PUB.count_msg > 0 THEN
6933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6935: END IF;
6936: RAISE FND_API.G_EXC_ERROR;
6937: END IF;
6938:
6950: ELSE
6951: l_serial_tag_code := l_attribute_value;
6952: END IF;
6953:
6954: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
6956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
6957: END IF;
6958:
6951: l_serial_tag_code := l_attribute_value;
6952: END IF;
6953:
6954: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
6956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
6957: END IF;
6958:
6959: -----------------------------------------------------------------------------------------
6952: END IF;
6953:
6954: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
6956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
6957: END IF;
6958:
6959: -----------------------------------------------------------------------------------------
6960: -- Delete/Cancel the Return Shipment Line and/or the IB installation details
6965: --Whether its part number or serial number change, collect the lot serial record.
6966: OPEN ahl_oe_lot_serial_id (l_osp_order_line_dtls.oe_return_line_id);
6967: FETCH ahl_oe_lot_serial_id INTO l_lot_serial_id;
6968: IF (ahl_oe_lot_serial_id%FOUND) THEN
6969: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_lot_serial_id=>'||l_lot_serial_id);
6971: END IF;
6972: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
6973: END IF;
6966: OPEN ahl_oe_lot_serial_id (l_osp_order_line_dtls.oe_return_line_id);
6967: FETCH ahl_oe_lot_serial_id INTO l_lot_serial_id;
6968: IF (ahl_oe_lot_serial_id%FOUND) THEN
6969: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_lot_serial_id=>'||l_lot_serial_id);
6971: END IF;
6972: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
6973: END IF;
6974:
6971: END IF;
6972: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
6973: END IF;
6974:
6975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6972: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
6973: END IF;
6974:
6975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6973: END IF;
6974:
6975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6974:
6975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6975: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_item_rev_number =>'||l_serialnum_change_rec.new_item_rev_number);
6976: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_item_rev_number =>'||l_serialnum_change_rec.new_item_rev_number);
6984: END IF;
6977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_item_rev_number =>'||l_serialnum_change_rec.new_item_rev_number);
6984: END IF;
6985:
6978: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_item_rev_number =>'||l_serialnum_change_rec.new_item_rev_number);
6984: END IF;
6985:
6986: --If it is only a serial number change, just delete the IB transation.
6979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
6980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
6981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
6983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_item_rev_number =>'||l_serialnum_change_rec.new_item_rev_number);
6984: END IF;
6985:
6986: --If it is only a serial number change, just delete the IB transation.
6987: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
6992: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
6993:
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6995: l_serial_num_changed := 'Y';
6996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
6998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
6999: END IF;
7000: Delete_IB_Transaction(
6993:
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6995: l_serial_num_changed := 'Y';
6996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
6998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
6999: END IF;
7000: Delete_IB_Transaction(
7001: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6995: l_serial_num_changed := 'Y';
6996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
6998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
6999: END IF;
7000: Delete_IB_Transaction(
7001: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7002: p_commit => FND_API.G_FALSE,
7005: x_msg_count => x_msg_count,
7006: x_msg_data => x_msg_data,
7007: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id);
7008:
7009: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7006: x_msg_data => x_msg_data,
7007: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id);
7008:
7009: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7014: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7021: IF((l_serial_tag_rec_found = 'Y') AND
7022: ((l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NULL) OR
7023: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7024: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.New_Serial_Tag_Code =>'||l_serialnum_change_rec.New_Serial_Tag_Code);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7029: END IF;
7022: ((l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NULL) OR
7023: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7024: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.New_Serial_Tag_Code =>'||l_serialnum_change_rec.New_Serial_Tag_Code);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7029: END IF;
7030: RETURN;
7023: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7024: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.New_Serial_Tag_Code =>'||l_serialnum_change_rec.New_Serial_Tag_Code);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7029: END IF;
7030: RETURN;
7031: END IF;
7024: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.New_Serial_Tag_Code =>'||l_serialnum_change_rec.New_Serial_Tag_Code);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7029: END IF;
7030: RETURN;
7031: END IF;
7032: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7031: END IF;
7032: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7033: ELSE --Items are different, need to cancel the current line.
7034:
7035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7038: END IF;
7039: l_part_num_changed := 'Y';
7032: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7033: ELSE --Items are different, need to cancel the current line.
7034:
7035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7038: END IF;
7039: l_part_num_changed := 'Y';
7040:
7033: ELSE --Items are different, need to cancel the current line.
7034:
7035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7038: END IF;
7039: l_part_num_changed := 'Y';
7040:
7041: --Save the OE Return Line information, before deletion
7039: l_part_num_changed := 'Y';
7040:
7041: --Save the OE Return Line information, before deletion
7042: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => l_osp_order_line_dtls.oe_return_line_id);
7043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
7045: END IF;
7046:
7047: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7040:
7041: --Save the OE Return Line information, before deletion
7042: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => l_osp_order_line_dtls.oe_return_line_id);
7043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
7045: END IF;
7046:
7047: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7048: Delete_Cancel_Order (
7055: x_return_status => x_return_status ,
7056: x_msg_count => x_msg_count ,
7057: x_msg_data => x_msg_data
7058: );
7059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7060: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7056: x_msg_count => x_msg_count ,
7057: x_msg_data => x_msg_data
7058: );
7059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7060: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7064: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7179: -----------------------------------------------------------------------------------------
7180: -- Update the Part Number/Serial Number using IB apis -- End
7181: -----------------------------------------------------------------------------------------
7182:
7183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7185: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7186: END IF;
7187:
7180: -- Update the Part Number/Serial Number using IB apis -- End
7181: -----------------------------------------------------------------------------------------
7182:
7183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7185: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7186: END IF;
7187:
7188: ----------------------------------------------------------------------------------------------
7181: -----------------------------------------------------------------------------------------
7182:
7183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7185: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7186: END IF;
7187:
7188: ----------------------------------------------------------------------------------------------
7189: -- Create the Return Line/IB Transaction and associate the return line with the Osp Order Line
7225: l_oe_lot_serial_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7226: l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7227: END IF;
7228:
7229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
7231: END IF;
7232:
7233: OE_ORDER_GRP.PROCESS_ORDER(
7226: l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7227: END IF;
7228:
7229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
7231: END IF;
7232:
7233: OE_ORDER_GRP.PROCESS_ORDER(
7234: p_api_version_number => 1.0,
7268: IF(l_part_num_changed = 'Y') THEN
7269: l_osp_order_line_dtls.oe_return_line_id := x_line_tbl(1).line_id;
7270: END IF;
7271:
7272: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7273: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_order_line_dtls.oe_return_line_id = ' || l_osp_order_line_dtls.oe_return_line_id);
7275: END IF;
7276:
7269: l_osp_order_line_dtls.oe_return_line_id := x_line_tbl(1).line_id;
7270: END IF;
7271:
7272: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7273: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_order_line_dtls.oe_return_line_id = ' || l_osp_order_line_dtls.oe_return_line_id);
7275: END IF;
7276:
7277: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7270: END IF;
7271:
7272: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7273: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_order_line_dtls.oe_return_line_id = ' || l_osp_order_line_dtls.oe_return_line_id);
7275: END IF;
7276:
7277: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7278: FOR i IN 1..x_msg_count LOOP
7282: p_msg_index_out => l_msg_index_out);
7283: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7284: p_procedure_name => 'processOrder',
7285: p_error_text => substr(l_msg_data,1,240));
7286: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7288: END IF;
7289:
7290: END LOOP;
7283: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7284: p_procedure_name => 'processOrder',
7285: p_error_text => substr(l_msg_data,1,240));
7286: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7288: END IF;
7289:
7290: END LOOP;
7291: END IF;
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF;
7298:
7299:
7300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction');
7302: END IF;
7303:
7304: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7297: END IF;
7298:
7299:
7300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction');
7302: END IF;
7303:
7304: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7305: Create_IB_Transaction(
7313: p_oe_line_type => 'RETURN',
7314: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id,
7315: p_csi_instance_id => l_serialnum_change_rec.instance_id);
7316:
7317: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7318: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7319: END IF;
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7314: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id,
7315: p_csi_instance_id => l_serialnum_change_rec.instance_id);
7316:
7317: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7318: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7319: END IF;
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7322: RAISE FND_API.G_EXC_ERROR;
7333: Even if a part number change has been done before, it would have been anyway applicable to all the
7334: order lines. So this logic of looking at the old item/serial numbers should be sufficient to retrieve all
7335: the order lines having the same physical item.
7336: */
7337: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting order lines with same physical item for Osp Order Id: ' ||l_osp_order_line_dtls.osp_order_id);
7339: END IF;
7340:
7341: --Only if a new return line has been created, update the osp order lines with the oe_return_line_id.
7334: order lines. So this logic of looking at the old item/serial numbers should be sufficient to retrieve all
7335: the order lines having the same physical item.
7336: */
7337: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting order lines with same physical item for Osp Order Id: ' ||l_osp_order_line_dtls.osp_order_id);
7339: END IF;
7340:
7341: --Only if a new return line has been created, update the osp order lines with the oe_return_line_id.
7342: IF(l_part_num_changed = 'Y') THEN
7343: OPEN get_same_phyitem_order_lines(l_serialnum_change_rec.osp_line_id);
7344: LOOP
7345: FETCH get_same_phyitem_order_lines INTO l_order_line_id;
7346: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
7347: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_order_line_id: ' || l_order_line_id);
7349: END IF;
7350: Update_OSP_Order_Lines(
7351: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7344: LOOP
7345: FETCH get_same_phyitem_order_lines INTO l_order_line_id;
7346: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
7347: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_order_line_id: ' || l_order_line_id);
7349: END IF;
7350: Update_OSP_Order_Lines(
7351: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7352: p_osp_line_id => l_order_line_id,
7362: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7363: COMMIT;
7364: END IF;
7365:
7366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7368: END IF;
7369:
7370: FND_MSG_PUB.Count_And_Get
7363: COMMIT;
7364: END IF;
7365:
7366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7368: END IF;
7369:
7370: FND_MSG_PUB.Count_And_Get
7371: ( p_count => x_msg_count,
7371: ( p_count => x_msg_count,
7372: p_data => x_msg_data,
7373: p_encoded => fnd_api.g_false);
7374:
7375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7377: END IF;
7378:
7379: EXCEPTION
7372: p_data => x_msg_data,
7373: p_encoded => fnd_api.g_false);
7374:
7375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7377: END IF;
7378:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_ERROR THEN