394: IF FND_API.To_Boolean(p_init_msg_list) THEN
395: FND_MSG_PUB.Initialize;
396: END IF;
397:
398: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
400: END IF;
401:
402: -- Start processing
395: FND_MSG_PUB.Initialize;
396: END IF;
397:
398: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
400: END IF;
401:
402: -- Start processing
403:
405: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
406: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
407: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
408: FND_MSG_PUB.ADD;
409: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
410: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
411: END IF;
412: RAISE Fnd_Api.g_exc_error;
413: END IF;
406: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
407: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
408: FND_MSG_PUB.ADD;
409: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
410: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
411: END IF;
412: RAISE Fnd_Api.g_exc_error;
413: END IF;
414:
416: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
417: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
418: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
419: FND_MSG_PUB.ADD;
420: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
422: END IF;
423: RAISE Fnd_Api.g_exc_error;
424: END IF;
417: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
418: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
419: FND_MSG_PUB.ADD;
420: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
422: END IF;
423: RAISE Fnd_Api.g_exc_error;
424: END IF;
425:
427: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
428: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
429: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
430: FND_MSG_PUB.ADD;
431: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
433: END IF;
434: RAISE Fnd_Api.g_exc_error;
435: END IF;
428: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
429: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
430: FND_MSG_PUB.ADD;
431: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
433: END IF;
434: RAISE Fnd_Api.g_exc_error;
435: END IF;
436:
433: END IF;
434: RAISE Fnd_Api.g_exc_error;
435: END IF;
436:
437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
438: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
439: END IF;
440:
441: Convert_Header_rec(p_header_rec => p_x_header_rec,
434: RAISE Fnd_Api.g_exc_error;
435: END IF;
436:
437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
438: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
439: END IF;
440:
441: Convert_Header_rec(p_header_rec => p_x_header_rec,
442: p_module_type => p_module_type,
442: p_module_type => p_module_type,
443: x_header_rec => l_header_rec,
444: x_header_val_rec => l_header_val_rec );
445:
446: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Header_rec, About to Process_Line_Tbl');
448: END IF;
449:
450: Process_Line_Tbl(p_osp_order_id => p_x_header_rec.osp_order_id,
443: x_header_rec => l_header_rec,
444: x_header_val_rec => l_header_val_rec );
445:
446: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Header_rec, About to Process_Line_Tbl');
448: END IF;
449:
450: Process_Line_Tbl(p_osp_order_id => p_x_header_rec.osp_order_id,
451: p_operation_flag => p_x_header_rec.operation,
451: p_operation_flag => p_x_header_rec.operation,
452: p_module_type => p_module_type,
453: p_x_line_tbl => p_x_lines_tbl);
454:
455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Process_Line_Tbl, About to Convert_Line_Tbl');
457: END IF;
458:
459: --salogan Added the following code to validate the OSP line number. Bug #9722617 Begin
452: p_module_type => p_module_type,
453: p_x_line_tbl => p_x_lines_tbl);
454:
455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Process_Line_Tbl, About to Convert_Line_Tbl');
457: END IF;
458:
459: --salogan Added the following code to validate the OSP line number. Bug #9722617 Begin
460: IF(p_x_lines_tbl.count > 0) THEN
464: FETCH is_osp_line_id_valid_csr into l_dummy;
465: IF (is_osp_line_id_valid_csr%NOTFOUND) THEN
466: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_OSP_LN_INV_LOV');
467: FND_MSG_PUB.ADD;
468: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
470: 'Invalid OSP Line id : '||p_x_lines_tbl(i).osp_line_id||' for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
471: END IF;
472: CLOSE is_osp_line_id_valid_csr;
465: IF (is_osp_line_id_valid_csr%NOTFOUND) THEN
466: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_OSP_LN_INV_LOV');
467: FND_MSG_PUB.ADD;
468: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
470: 'Invalid OSP Line id : '||p_x_lines_tbl(i).osp_line_id||' for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
471: END IF;
472: CLOSE is_osp_line_id_valid_csr;
473: RAISE FND_API.G_EXC_ERROR;
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: CLOSE is_osp_line_id_valid_csr;
476: ELSE
477: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
479: 'OSP based line flag is '||p_x_lines_tbl(i).osp_line_flag||'. Hence skipping the check for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
480: END IF;
481: END IF;
474: END IF;
475: CLOSE is_osp_line_id_valid_csr;
476: ELSE
477: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
479: 'OSP based line flag is '||p_x_lines_tbl(i).osp_line_flag||'. Hence skipping the check for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
480: END IF;
481: END IF;
482: END LOOP;
497: we call a Public API in this procedure, its better we throw the error here itself.
498: */
499: l_msg_count := FND_MSG_PUB.count_msg;
500: IF l_msg_count > 0 THEN
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
503: END IF;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
498: */
499: l_msg_count := FND_MSG_PUB.count_msg;
500: IF l_msg_count > 0 THEN
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
503: END IF;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506:
505: END IF;
506:
507: -- jaramana End
508:
509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
511: END IF;
512:
513: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
506:
507: -- jaramana End
508:
509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
511: END IF;
512:
513: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
514: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
545: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
546: x_action_request_tbl => x_action_request_tbl );
547:
548:
549: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
551: END IF;
552:
553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
546: x_action_request_tbl => x_action_request_tbl );
547:
548:
549: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
551: END IF;
552:
553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
554: FOR i IN 1..x_msg_count LOOP
558: p_msg_index_out => l_msg_index_out);
559: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
560: p_procedure_name => 'processOrder',
561: p_error_text => substr(l_msg_data,1,240));
562: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
564: END IF;
565:
566: END LOOP;
559: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
560: p_procedure_name => 'processOrder',
561: p_error_text => substr(l_msg_data,1,240));
562: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
564: END IF;
565:
566: END LOOP;
567: END IF;
578: OE_ORDER_GRP.PROCESS_ORDER
579: */
580:
581: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
584: FND_MSG_PUB.get (
585: p_msg_index => i,
586: p_encoded => FND_API.G_FALSE,
585: p_msg_index => i,
586: p_encoded => FND_API.G_FALSE,
587: p_data => l_msg_data,
588: p_msg_index_out => l_msg_index_out );
589: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
590: END LOOP;
591: END IF;
592: FND_MSG_PUB.Initialize;
593: -- jaramana End
596: IF (p_x_header_rec.operation = 'C') THEN
597: p_x_header_rec.header_id := x_header_rec.header_id;
598:
599: --Update AHL_OSP_ORDERS tables with ids/new id
600: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
601: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order');
602: END IF;
603: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
604: p_oe_header_id => p_x_header_rec.header_id );
597: p_x_header_rec.header_id := x_header_rec.header_id;
598:
599: --Update AHL_OSP_ORDERS tables with ids/new id
600: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
601: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order');
602: END IF;
603: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
604: p_oe_header_id => p_x_header_rec.header_id );
605: ELSIF (p_x_header_rec.operation = 'D') THEN
603: Update_OSP_Order(p_osp_order_id => p_x_header_rec.osp_order_id,
604: p_oe_header_id => p_x_header_rec.header_id );
605: ELSIF (p_x_header_rec.operation = 'D') THEN
606: --Update AHL_OSP_ORDERS/OSP_ORDER_LINES tables with ids/new id
607: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order');
609: END IF;
610: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
611: END IF;
604: p_oe_header_id => p_x_header_rec.header_id );
605: ELSIF (p_x_header_rec.operation = 'D') THEN
606: --Update AHL_OSP_ORDERS/OSP_ORDER_LINES tables with ids/new id
607: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order');
609: END IF;
610: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
611: END IF;
612:
610: Delete_OSP_Order(p_oe_header_id => p_x_header_rec.header_id);
611: END IF;
612:
613: -- Handle Shipment Line Deletions
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
616: END IF;
617: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
618: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
611: END IF;
612:
613: -- Handle Shipment Line Deletions
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
616: END IF;
617: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
618: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
616: END IF;
617: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
618: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
620: END IF;
621: Delete_Cancel_Order (
622: p_api_version => 1.0,
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_del_oe_lines_tbl.COUNT = ' || l_del_oe_lines_tbl.COUNT);
616: END IF;
617: IF (l_del_oe_lines_tbl.COUNT > 0) THEN
618: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
620: END IF;
621: Delete_Cancel_Order (
622: p_api_version => 1.0,
623: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
628: x_return_status => x_return_status ,
629: x_msg_count => x_msg_count ,
630: x_msg_data => x_msg_data
631: );
632: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
629: x_msg_count => x_msg_count ,
630: x_msg_data => x_msg_data
631: );
632: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
652: END IF;
653:
654: IF p_x_lines_tbl(i).csi_item_instance_id IS NOT NULL THEN
655:
656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Create_IB_Transaction');
658: END IF;
659: /*
660: Modified by jaramana on January 11, 2008 for fixing the Bug 5935388/6504122
653:
654: IF p_x_lines_tbl(i).csi_item_instance_id IS NOT NULL THEN
655:
656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Create_IB_Transaction');
658: END IF;
659: /*
660: Modified by jaramana on January 11, 2008 for fixing the Bug 5935388/6504122
661: The "Create Shipment" action passes p_init_msg_list as TRUE as it is the starting point.
674: p_osp_order_type => p_x_lines_tbl(i).order_type,
675: p_oe_line_type => l_line_type,
676: p_oe_line_id => p_x_lines_tbl(i).line_id,
677: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
675: p_oe_line_type => l_line_type,
676: p_oe_line_id => p_x_lines_tbl(i).line_id,
677: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
683: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
686:
687: --Update OSP Order Lines with the new line_id
688: --FIX LINE TYPE ID validation
689:
690: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
692: END IF;
693: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
694: Update_OSP_Order_Lines(
687: --Update OSP Order Lines with the new line_id
688: --FIX LINE TYPE ID validation
689:
690: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
692: END IF;
693: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
694: Update_OSP_Order_Lines(
695: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
696: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
697: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
698: p_oe_return_line_id => FND_API.G_MISS_NUM);
699: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
700: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
701: 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 );
702: END IF;
703: Update_OSP_Order_Lines(
704: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
697: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
698: p_oe_return_line_id => FND_API.G_MISS_NUM);
699: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
700: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
701: 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 );
702: END IF;
703: Update_OSP_Order_Lines(
704: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
705: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
708: END IF;
709:
710: ELSE -- instance id is null
711:
712: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
714: END IF;
715: IF p_x_lines_tbl(i).osp_line_id IS NOT NULL THEN
716: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
709:
710: ELSE -- instance id is null
711:
712: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Order_Lines');
714: END IF;
715: IF p_x_lines_tbl(i).osp_line_id IS NOT NULL THEN
716: IF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
717: Update_OSP_Order_Lines(
720: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
721: p_oe_return_line_id => FND_API.G_MISS_NUM);
722: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
723: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
727: 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);
728: END IF;
721: p_oe_return_line_id => FND_API.G_MISS_NUM);
722: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
723: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
727: 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);
728: END IF;
729: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
722: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
723: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
727: 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);
728: END IF;
729: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
730: /*
723: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).line_id :' ||p_x_lines_tbl(i).line_id);
727: 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);
728: END IF;
729: IF(p_x_lines_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
730: /*
731: For exchange orders, the return line's sub-transaction record is to be created by ourselves even though
748: p_osp_order_type => p_x_lines_tbl(i).order_type,
749: p_oe_line_type => l_line_type,
750: p_oe_line_id => p_x_lines_tbl(i).line_id,
751: p_csi_instance_id => NULL);
752: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
749: p_oe_line_type => l_line_type,
750: p_oe_line_id => p_x_lines_tbl(i).line_id,
751: p_csi_instance_id => NULL);
752: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
757: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
761: CLOSE is_oe_item_IB_tracked;
762: END IF;
763: --mpothuku End
764: END IF;
765: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
766: 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 );
767: END IF;
768: Update_OSP_Order_Lines(
769: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
762: END IF;
763: --mpothuku End
764: END IF;
765: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
766: 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 );
767: END IF;
768: Update_OSP_Order_Lines(
769: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
770: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
781: -- from the UI (after the order has been booked) is necessary.
782: -- If the shipment is booked, Delete_Cancel_Order just zeroes out the ordered quantity.
783: -- If not, it actually deletes the shipment line.
784: ELSIF (p_x_lines_tbl(i).operation = 'D') THEN
785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_IB_Transaction');
787: END IF;
788: Delete_IB_Transaction(
789: p_init_msg_list => p_init_msg_list,
782: -- If the shipment is booked, Delete_Cancel_Order just zeroes out the ordered quantity.
783: -- If not, it actually deletes the shipment line.
784: ELSIF (p_x_lines_tbl(i).operation = 'D') THEN
785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_IB_Transaction');
787: END IF;
788: Delete_IB_Transaction(
789: p_init_msg_list => p_init_msg_list,
790: p_commit => p_commit,
793: x_msg_count => x_msg_count,
794: x_msg_data => x_msg_data,
795: p_oe_line_id => p_x_lines_tbl(i).line_id );
796:
797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
794: x_msg_data => x_msg_data,
795: p_oe_line_id => p_x_lines_tbl(i).line_id );
796:
797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
808: END IF;
809: --Remove all instances of Shipment Line from OSP_ORDER_LINES table
810: Delete_OE_Lines(p_oe_line_id => p_x_lines_tbl(i).line_id);
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
808: END IF;
809: --Remove all instances of Shipment Line from OSP_ORDER_LINES table
810: Delete_OE_Lines(p_oe_line_id => p_x_lines_tbl(i).line_id);
811: */
840: IF(l_osp_order_id is null AND p_x_lines_tbl.COUNT > 0) THEN
841: l_osp_order_id := p_x_lines_tbl(p_x_lines_tbl.FIRST).osp_order_id;
842: END IF;
843:
844: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
845: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Going to loop for multiple services for the Order = ' || l_osp_order_id );
846: END IF;
847:
848: IF(l_osp_order_id is not null) THEN
841: l_osp_order_id := p_x_lines_tbl(p_x_lines_tbl.FIRST).osp_order_id;
842: END IF;
843:
844: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
845: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Going to loop for multiple services for the Order = ' || l_osp_order_id );
846: END IF;
847:
848: IF(l_osp_order_id is not null) THEN
849:
865:
866: IF (l_osp_line_ship_id_type.oe_ship_line_id is not null
867: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
868:
869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: 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 );
871: 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 );
872: END IF;
873:
866: IF (l_osp_line_ship_id_type.oe_ship_line_id is not null
867: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
868:
869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: 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 );
871: 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 );
872: END IF;
873:
874: Update_OSP_Order_Lines(
867: OR l_osp_line_ship_id_type.oe_return_line_id is not null) THEN
868:
869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: 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 );
871: 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 );
872: END IF;
873:
874: Update_OSP_Order_Lines(
875: p_osp_order_id => l_osp_order_id,
884: -- yazhou 07-Aug-2006 ends
885:
886: -- Standard check of p_commit
887: IF FND_API.To_Boolean(p_commit) THEN
888: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
890: END IF;
891: COMMIT WORK;
892: END IF;
885:
886: -- Standard check of p_commit
887: IF FND_API.To_Boolean(p_commit) THEN
888: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
890: END IF;
891: COMMIT WORK;
892: END IF;
893:
895: FND_MSG_PUB.Count_And_Get
896: ( p_count => x_msg_count,
897: p_data => x_msg_data,
898: p_encoded => fnd_api.g_false);
899: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
901: END IF;
902:
903: EXCEPTION
896: ( p_count => x_msg_count,
897: p_data => x_msg_data,
898: p_encoded => fnd_api.g_false);
899: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
901: END IF;
902:
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
981:
982: -- Initialize API return status to success
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
986: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
987: END IF;
988:
989: --LOOP throught all header ids
982: -- Initialize API return status to success
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
986: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
987: END IF;
988:
989: --LOOP throught all header ids
990: IF (p_oe_header_tbl.COUNT > 0) THEN
1003: we call a Public API in this procedure, its better we throw the error here itself.
1004: */
1005: l_msg_count := FND_MSG_PUB.count_msg;
1006: IF l_msg_count > 0 THEN
1007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1009: END IF;
1010: RAISE FND_API.G_EXC_ERROR;
1011: END IF;
1004: */
1005: l_msg_count := FND_MSG_PUB.count_msg;
1006: IF l_msg_count > 0 THEN
1007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1009: END IF;
1010: RAISE FND_API.G_EXC_ERROR;
1011: END IF;
1012:
1051: p_msg_index_out => l_msg_index_out);
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1053: p_procedure_name => 'bookOrder',
1054: p_error_text => substr(l_msg_data,1,240));
1055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1057: END IF;
1058:
1059: END LOOP;
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1053: p_procedure_name => 'bookOrder',
1054: p_error_text => substr(l_msg_data,1,240));
1055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1057: END IF;
1058:
1059: END LOOP;
1060: END IF;
1058:
1059: END LOOP;
1060: END IF;
1061:
1062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1064: END IF;
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1059: END LOOP;
1060: END IF;
1061:
1062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1064: END IF;
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: RAISE FND_API.G_EXC_ERROR;
1074: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1075: OE_ORDER_GRP.PROCESS_ORDER
1076: */
1077: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1080: FND_MSG_PUB.get (
1081: p_msg_index => i,
1082: p_encoded => FND_API.G_FALSE,
1081: p_msg_index => i,
1082: p_encoded => FND_API.G_FALSE,
1083: p_data => l_msg_data,
1084: p_msg_index_out => l_msg_index_out );
1085: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1086: END LOOP;
1087: END IF;
1088: FND_MSG_PUB.Initialize;
1089: -- jaramana End
1099: ( p_count => x_msg_count,
1100: p_data => x_msg_data,
1101: p_encoded => fnd_api.g_false);
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1105: END IF;
1106:
1107: EXCEPTION
1100: p_data => x_msg_data,
1101: p_encoded => fnd_api.g_false);
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1105: END IF;
1106:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR THEN
1213:
1214: -- Initialize API return status to success
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1216:
1217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1219: END IF;
1220:
1221: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1214: -- Initialize API return status to success
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1216:
1217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1219: END IF;
1220:
1221: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1222: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1224: -- Try delete/cancel header first.
1225: IF (p_oe_header_id IS NOT NULL AND
1226: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1227:
1228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1229: 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);
1230: END IF;
1231:
1232: -- Remove references in OSP tables
1225: IF (p_oe_header_id IS NOT NULL AND
1226: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1227:
1228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1229: 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);
1230: END IF;
1231:
1232: -- Remove references in OSP tables
1233: Delete_OSP_Order(p_oe_header_id => p_oe_header_id );
1251: CLOSE ahl_is_header_deleteable_csr;
1252:
1253: ELSIF (p_oe_lines_tbl.COUNT > 0) THEN
1254:
1255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_oe_lines_tbl.COUNT = ' || p_oe_lines_tbl.COUNT);
1257: END IF;
1258:
1259: -- Process lines into cancel or delete
1252:
1253: ELSIF (p_oe_lines_tbl.COUNT > 0) THEN
1254:
1255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_oe_lines_tbl.COUNT = ' || p_oe_lines_tbl.COUNT);
1257: END IF;
1258:
1259: -- Process lines into cancel or delete
1260: FOR i IN p_oe_lines_tbl.FIRST..p_oe_lines_tbl.LAST LOOP
1260: FOR i IN p_oe_lines_tbl.FIRST..p_oe_lines_tbl.LAST LOOP
1261:
1262: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1263:
1264: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1265: 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));
1266: END IF;
1267: --Remove line_id references in OSP tables
1268: Delete_OE_Lines(p_oe_line_id => p_oe_lines_tbl(i));
1261:
1262: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1263:
1264: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1265: 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));
1266: END IF;
1267: --Remove line_id references in OSP tables
1268: Delete_OE_Lines(p_oe_line_id => p_oe_lines_tbl(i));
1269:
1272: OPEN ahl_is_line_deleteable_csr(p_oe_lines_tbl(i));
1273: FETCH ahl_is_line_deleteable_csr INTO l_dummy;
1274: -- If deleteable
1275: IF (ahl_is_line_deleteable_csr%FOUND) THEN
1276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1278: END IF;
1279: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1280: ELSE
1273: FETCH ahl_is_line_deleteable_csr INTO l_dummy;
1274: -- If deleteable
1275: IF (ahl_is_line_deleteable_csr%FOUND) THEN
1276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1278: END IF;
1279: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1280: ELSE
1281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is deletable: Deleting line');
1278: END IF;
1279: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1280: ELSE
1281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1282: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is not deletable: Setting Quantity to 0 and change_reason to Not provided');
1283: END IF;
1284: l_line_rec.ordered_quantity := 0;
1285: l_line_rec.change_reason := 'Not provided'; --No reason provided
1278: END IF;
1279: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1280: ELSE
1281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1282: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line is not deletable: Setting Quantity to 0 and change_reason to Not provided');
1283: END IF;
1284: l_line_rec.ordered_quantity := 0;
1285: l_line_rec.change_reason := 'Not provided'; --No reason provided
1286: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1299: we call a Public API in this procedure, its better we throw the error here itself.
1300: */
1301: l_msg_count := FND_MSG_PUB.count_msg;
1302: IF l_msg_count > 0 THEN
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1305: END IF;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1300: */
1301: l_msg_count := FND_MSG_PUB.count_msg;
1302: IF l_msg_count > 0 THEN
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1305: END IF;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1346: p_msg_index_out => l_msg_index_out);
1347: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1348: p_procedure_name => 'deleteCancelOrder',
1349: p_error_text => substr(l_msg_data,1,240));
1350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1352: END IF;
1353: END LOOP;
1354: END IF;
1347: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1348: p_procedure_name => 'deleteCancelOrder',
1349: p_error_text => substr(l_msg_data,1,240));
1350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1352: END IF;
1353: END LOOP;
1354: END IF;
1355:
1364: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1365: OE_ORDER_GRP.PROCESS_ORDER
1366: */
1367: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1370: FND_MSG_PUB.get (
1371: p_msg_index => i,
1372: p_encoded => FND_API.G_FALSE,
1371: p_msg_index => i,
1372: p_encoded => FND_API.G_FALSE,
1373: p_data => l_msg_data,
1374: p_msg_index_out => l_msg_index_out );
1375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1376: END LOOP;
1377: END IF;
1378: FND_MSG_PUB.Initialize;
1379: END IF;
1409: ( p_count => x_msg_count,
1410: p_data => x_msg_data,
1411: p_encoded => fnd_api.g_false);
1412:
1413: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1415: END IF;
1416:
1417: EXCEPTION
1410: p_data => x_msg_data,
1411: p_encoded => fnd_api.g_false);
1412:
1413: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1415: END IF;
1416:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1478: --l_dummy NUMBER;
1479: l_ahl_osp_oe_closed_csr ahl_osp_oe_closed_csr%rowtype;
1480: BEGIN
1481:
1482: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1484: END IF;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: l_ahl_osp_oe_closed_csr ahl_osp_oe_closed_csr%rowtype;
1480: BEGIN
1481:
1482: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1484: END IF;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1482: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1484: END IF;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1488: END IF;
1489: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1490: /*
1483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1484: END IF;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY , 'p_oe_header_id is: '||p_oe_header_id);
1488: END IF;
1489: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1490: /*
1491: OPEN ahl_osp_header_id_csr(p_oe_header_id);
1520: RAISE Fnd_Api.g_exc_error;
1521: END IF;
1522: CLOSE ahl_osp_oe_closed_csr;
1523: END IF;
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1526: END IF;
1527:
1528: RETURN l_closed;
1521: END IF;
1522: CLOSE ahl_osp_oe_closed_csr;
1523: END IF;
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1526: END IF;
1527:
1528: RETURN l_closed;
1529:
1552: l_usr_prf_opt_name VARCHAR2(240);
1553:
1554: BEGIN
1555:
1556: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1558: END IF;
1559:
1560: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1553:
1554: BEGIN
1555:
1556: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1558: END IF;
1559:
1560: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1561: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1560: OPEN get_user_prf_opt_name_csr(p_profile_option_name);
1561: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1562: IF (get_user_prf_opt_name_csr%NOTFOUND) THEN
1563: l_usr_prf_opt_name := null;
1564: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error: '||p_profile_option_name|| ' needs to be defined');
1566: END IF;
1567: END IF;
1568: CLOSE get_user_prf_opt_name_csr;
1561: FETCH get_user_prf_opt_name_csr INTO l_usr_prf_opt_name;
1562: IF (get_user_prf_opt_name_csr%NOTFOUND) THEN
1563: l_usr_prf_opt_name := null;
1564: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error: '||p_profile_option_name|| ' needs to be defined');
1566: END IF;
1567: END IF;
1568: CLOSE get_user_prf_opt_name_csr;
1569:
1567: END IF;
1568: CLOSE get_user_prf_opt_name_csr;
1569:
1570:
1571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1572: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure. l_usr_prf_opt_name is: ' || l_usr_prf_opt_name);
1573: END IF;
1574:
1575: RETURN l_usr_prf_opt_name;
1568: CLOSE get_user_prf_opt_name_csr;
1569:
1570:
1571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1572: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure. l_usr_prf_opt_name is: ' || l_usr_prf_opt_name);
1573: END IF;
1574:
1575: RETURN l_usr_prf_opt_name;
1576:
1670: l_contact_count NUMBER;
1671: ---
1672: BEGIN
1673:
1674: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1676: END IF;
1677:
1678: IF (p_header_rec.operation = 'D') THEN
1671: ---
1672: BEGIN
1673:
1674: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1676: END IF;
1677:
1678: IF (p_header_rec.operation = 'D') THEN
1679: x_header_rec := OE_HEADER_UTIL.QUERY_ROW(p_header_id => p_header_rec.header_id);
1690: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1691: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1692:
1693: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1697: END IF;
1698:
1691: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1692:
1693: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1697: END IF;
1698:
1699: --If no operation, then invalid order
1692:
1693: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1694: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.osp_order_id = ' || p_header_rec.osp_order_id);
1697: END IF;
1698:
1699: --If no operation, then invalid order
1700: IF (p_header_rec.operation IS NULL OR
1742: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
1743: CLOSE ahl_order_vendor_detls_csr;
1744:
1745: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1743: CLOSE ahl_order_vendor_detls_csr;
1744:
1745: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1751: END IF;
1744:
1745: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1751: END IF;
1752:
1745: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1751: END IF;
1752:
1753: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
1750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
1751: END IF;
1752:
1753: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1754: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1841: FETCH ahl_get_ship_from_org_csr INTO x_header_rec.ship_from_org_id;
1842: CLOSE ahl_get_ship_from_org_csr;
1843: END IF;
1844:
1845: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_header_rec.ship_from_org_id = ' || x_header_rec.ship_from_org_id);
1847: END IF;
1848:
1849: --Sold to contact (Uses ship_to_contact param name)
1842: CLOSE ahl_get_ship_from_org_csr;
1843: END IF;
1844:
1845: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_header_rec.ship_from_org_id = ' || x_header_rec.ship_from_org_id);
1847: END IF;
1848:
1849: --Sold to contact (Uses ship_to_contact param name)
1850: OPEN ahl_sold_to_contact_count_csr(p_header_rec.ship_to_contact,
1991: x_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1992: END IF;
1993: END IF; -- Not 'D'
1994:
1995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1997: END IF;
1998:
1999: END Convert_Header_rec;
1992: END IF;
1993: END IF; -- Not 'D'
1994:
1995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1997: END IF;
1998:
1999: END Convert_Header_rec;
2000:
2546: --Bug fix 4580226 ends
2547: --
2548: BEGIN
2549:
2550: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2552: END IF;
2553:
2554: -- yazhou 31-Jul-2006 starts
2547: --
2548: BEGIN
2549:
2550: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2552: END IF;
2553:
2554: -- yazhou 31-Jul-2006 starts
2555: -- bug fix#5442904
2568: Also its being used when creating shipments from the Create/Edit Shipment Line UI
2569: */
2570:
2571: IF (p_x_line_tbl.COUNT > 0) THEN
2572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.COUNT = ' || p_x_line_tbl.COUNT);
2574: END IF;
2575: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2576: -- Get the OSP Order Type if not known
2569: */
2570:
2571: IF (p_x_line_tbl.COUNT > 0) THEN
2572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl.COUNT = ' || p_x_line_tbl.COUNT);
2574: END IF;
2575: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2576: -- Get the OSP Order Type if not known
2577: IF(p_x_line_tbl(i).osp_order_id IS NOT NULL AND
2586: IF (p_x_line_tbl(i).order_type IS NULL OR p_x_line_tbl(i).order_type = FND_API.G_MISS_CHAR) THEN
2587: p_x_line_tbl(i).order_type := l_curr_osp_type;
2588: END IF;
2589:
2590: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2591: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl(i).order_type = ' || p_x_line_tbl(i).order_type ||
2592: ', p_x_line_tbl(i).osp_order_id = ' || p_x_line_tbl(i).osp_order_id ||
2593: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2594: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2587: p_x_line_tbl(i).order_type := l_curr_osp_type;
2588: END IF;
2589:
2590: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2591: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_line_tbl(i).order_type = ' || p_x_line_tbl(i).order_type ||
2592: ', p_x_line_tbl(i).osp_order_id = ' || p_x_line_tbl(i).osp_order_id ||
2593: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2594: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2595: ', p_x_line_tbl(i).line_id = ' || p_x_line_tbl(i).line_id);
2625: --Get the Shipment Line status.
2626: OPEN get_so_line_details(p_x_line_tbl(i).line_id);
2627: FETCH get_so_line_details INTO l_get_so_line_details;
2628: IF get_so_line_details%NOTFOUND THEN
2629: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2631: END IF;
2632: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2633: FND_MSG_PUB.ADD;
2626: OPEN get_so_line_details(p_x_line_tbl(i).line_id);
2627: FETCH get_so_line_details INTO l_get_so_line_details;
2628: IF get_so_line_details%NOTFOUND THEN
2629: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2631: END IF;
2632: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2633: FND_MSG_PUB.ADD;
2634: CLOSE get_so_line_details;
2635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637: CLOSE get_so_line_details;
2638:
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2641: 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);
2642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2636: END IF;
2637: CLOSE get_so_line_details;
2638:
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2641: 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);
2642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2644: END IF;
2637: CLOSE get_so_line_details;
2638:
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2641: 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);
2642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2644: END IF;
2645:
2638:
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2641: 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);
2642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2644: END IF;
2645:
2646: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.open_flag: '||l_get_so_line_details.open_flag);
2641: 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);
2642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.ordered_quantity: '||l_get_so_line_details.ordered_quantity);
2643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_get_so_line_details.cancelled_quantity: '||l_get_so_line_details.cancelled_quantity);
2644: END IF;
2645:
2646: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2647: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2667: -- use user defined vendor service duration if available
2668:
2669: l_service_duration := null;
2670:
2671: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2668:
2669: l_service_duration := null;
2670:
2671: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2676: 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);
2669: l_service_duration := null;
2670:
2671: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2676: 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);
2677: END IF;
2670:
2671: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2676: 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);
2677: END IF;
2678:
2671: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2676: 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);
2677: END IF;
2678:
2679: IF l_osp_header_det.vendor_id is not null
2672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_header_det.vendor_id is '||l_osp_header_det.vendor_id);
2673: 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);
2674: 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);
2675: 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);
2676: 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);
2677: END IF;
2678:
2679: IF l_osp_header_det.vendor_id is not null
2680: AND l_osp_header_det.vendor_site_id is not NULL
2685: CLOSE ahl_max_service_duration_csr;
2686:
2687: END IF;
2688:
2689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_service_duration is '||l_service_duration);
2691: END IF;
2692:
2693: IF l_service_duration is null THEN
2686:
2687: END IF;
2688:
2689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_service_duration is '||l_service_duration);
2691: END IF;
2692:
2693: IF l_service_duration is null THEN
2694: -- Check if the Default Duration Profile has been Set
2696: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
2697: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2698: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2699: FND_MSG_PUB.ADD;
2700: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2701: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2702: END IF;
2703: RAISE Fnd_Api.g_exc_error;
2704: END IF;
2697: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2698: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2699: FND_MSG_PUB.ADD;
2700: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2701: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2702: END IF;
2703: RAISE Fnd_Api.g_exc_error;
2704: END IF;
2705:
2712: END IF; -- Shipment Line is for a OSP Line
2713:
2714: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2715: -- Shipment Line is for an OSP Line
2716: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2719: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2720: END IF;
2713:
2714: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2715: -- Shipment Line is for an OSP Line
2716: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2719: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2720: END IF;
2721:
2714: IF p_x_line_tbl(i).osp_line_flag = 'Y' THEN
2715: -- Shipment Line is for an OSP Line
2716: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp_line_flag is Y: Shipment Line is for an OSP Line');
2718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id = ' || l_osp_line_det_type.workorder_id ||
2719: ', l_osp_line_det_type.osp_order_line_id = ' || l_osp_line_det_type.osp_order_line_id);
2720: END IF;
2721:
2722: --Jerry added on 11/01/05 in order to fix bug 4580226
2725: l_old_quantity := p_x_line_tbl(i).ordered_quantity;
2726: l_old_uom :=p_x_line_tbl(i).order_quantity_uom;
2727: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2728: --Debug statements added by mpothuku on 14-Dec-05
2729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2726: l_old_uom :=p_x_line_tbl(i).order_quantity_uom;
2727: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2728: --Debug statements added by mpothuku on 14-Dec-05
2729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2727: l_old_lot_number :=p_x_line_tbl(i).lot_number; --jeli 12/01/05
2728: --Debug statements added by mpothuku on 14-Dec-05
2729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2735: END IF;
2728: --Debug statements added by mpothuku on 14-Dec-05
2729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2735: END IF;
2736: --Bug fix 4580226 ends
2729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2735: END IF;
2736: --Bug fix 4580226 ends
2737:
2730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_inv_item_id: ' || l_old_inv_item_id);
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_serial_number: ' || l_old_serial_number);
2732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_quantity: ' || l_old_quantity);
2733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_uom: ' || l_old_uom);
2734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_old_lot_number: ' || l_old_lot_number);
2735: END IF;
2736: --Bug fix 4580226 ends
2737:
2738: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2736: --Bug fix 4580226 ends
2737:
2738: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2739: -- Shipment Line Corresponds to an Work order
2740: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id is not null');
2742: END IF;
2743:
2744: -- Get the Workorder Details
2737:
2738: IF l_osp_line_det_type.workorder_id IS NOT NULL THEN
2739: -- Shipment Line Corresponds to an Work order
2740: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_line_det_type.workorder_id is not null');
2742: END IF;
2743:
2744: -- Get the Workorder Details
2745: OPEN ahl_osp_work_csr(l_osp_line_det_type.workorder_id);
2803: p_x_line_tbl(i).ordered_quantity,
2804: p_x_line_tbl(i).order_quantity_uom,
2805: p_x_line_tbl(i).lot_number; --jeli 12/01/05
2806: CLOSE ahl_exc_inst_details;
2807: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
2809: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
2810: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
2811: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
2804: p_x_line_tbl(i).order_quantity_uom,
2805: p_x_line_tbl(i).lot_number; --jeli 12/01/05
2806: CLOSE ahl_exc_inst_details;
2807: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
2809: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
2810: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
2811: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
2812: ', ordered_quantity = ' || p_x_line_tbl(i).ordered_quantity ||
2846: p_x_line_tbl(i).csi_item_instance_id := null;
2847:
2848: -- If the serial number user entered corresponds to a tracked instance, derive the
2849: -- instance number and update the Osp Order Line's Exchange Instance column transparently
2850: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2851: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
2852: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
2853: END IF;
2854:
2847:
2848: -- If the serial number user entered corresponds to a tracked instance, derive the
2849: -- instance number and update the Osp Order Line's Exchange Instance column transparently
2850: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2851: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
2852: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
2853: END IF;
2854:
2855:
2870: END IF; -- user entered SN AND/OR Lot number
2871:
2872: --If the SN/LOT user entered corresponds to a non-tracked item
2873: -- simply ignore the serial number entered by the user without throwing an error.
2874: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2875: 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);
2876: END IF;
2877:
2878: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2871:
2872: --If the SN/LOT user entered corresponds to a non-tracked item
2873: -- simply ignore the serial number entered by the user without throwing an error.
2874: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2875: 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);
2876: END IF;
2877:
2878: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2879:
2877:
2878: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2879:
2880: -- update the Osp Order Line's Exchange Instance column
2881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
2883: END IF;
2884:
2885: Update_OSP_Line_Exch_Instance(
2878: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2879:
2880: -- update the Osp Order Line's Exchange Instance column
2881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
2883: END IF;
2884:
2885: Update_OSP_Line_Exch_Instance(
2886: p_osp_order_id => p_x_line_tbl(i).osp_order_id,
2914: END IF; -- Exchange Order Return Lines
2915:
2916: --Check that ship to or return instance is top node in CSI.
2917: -- If not unit, then throw error cause can't ship part of a unit.
2918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
2920: END IF;
2921:
2922: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2915:
2916: --Check that ship to or return instance is top node in CSI.
2917: -- If not unit, then throw error cause can't ship part of a unit.
2918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2919: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
2920: END IF;
2921:
2922: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
2923: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(i).csi_item_instance_id);
2938:
2939:
2940: -- Do additional Validation, Defaulting if not deleting Ship Line
2941: IF (p_x_line_tbl(i).operation <> 'D') THEN
2942: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2943: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
2944: END IF;
2945:
2946: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2939:
2940: -- Do additional Validation, Defaulting if not deleting Ship Line
2941: IF (p_x_line_tbl(i).operation <> 'D') THEN
2942: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2943: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
2944: END IF;
2945:
2946: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2947: -- Ship-Only Line
2944: END IF;
2945:
2946: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2947: -- Ship-Only Line
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2950: END IF;
2951: -- Default the Ship Date if not already Set
2952: 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
2945:
2946: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
2947: -- Ship-Only Line
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2950: END IF;
2951: -- Default the Ship Date if not already Set
2952: 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
2953:
2982: END IF;
2983: RAISE Fnd_Api.g_exc_error;
2984: END IF;
2985: CLOSE ahl_oe_ship_id_csr;
2986: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
2988: END IF;
2989:
2990: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
2983: RAISE Fnd_Api.g_exc_error;
2984: END IF;
2985: CLOSE ahl_oe_ship_id_csr;
2986: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
2988: END IF;
2989:
2990: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
2991: p_x_line_tbl(i).csi_item_instance_id);
3033: END IF; -- Return Date is not null
3034: CLOSE ahl_oe_schedule_date_csr;
3035: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3036: -- Return Line
3037: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3038: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3039: END IF;
3040: 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
3041:
3034: CLOSE ahl_oe_schedule_date_csr;
3035: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3036: -- Return Line
3037: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3038: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3039: END IF;
3040: 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
3041:
3042: -- yazhou 31-Jul-2006 starts
3111: END IF; -- Line Type Check: Ship or Return
3112: END IF; -- Line Operation is not 'D'
3113: ELSIF l_osp_line_det_type.osp_order_line_id IS NOT NULL THEN -- workorder_id is null
3114: -- Shipment Line does not correspond to a work order, But still corresponds to a OSP Line
3115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Workorder Id is null and osp_order_line_id is not null');
3117: END IF;
3118: -- Begin changes by jaramana on August 27, 2005 to fix the bug for exchange orders
3119: -- (without work orders), where the return line incorrectly picks up the item of the ship line
3112: END IF; -- Line Operation is not 'D'
3113: ELSIF l_osp_line_det_type.osp_order_line_id IS NOT NULL THEN -- workorder_id is null
3114: -- Shipment Line does not correspond to a work order, But still corresponds to a OSP Line
3115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Workorder Id is null and osp_order_line_id is not null');
3117: END IF;
3118: -- Begin changes by jaramana on August 27, 2005 to fix the bug for exchange orders
3119: -- (without work orders), where the return line incorrectly picks up the item of the ship line
3120: -- If the user had picked a new item, save it in a temporary variable so that
3205: p_x_line_tbl(i).ordered_quantity,
3206: p_x_line_tbl(i).order_quantity_uom,
3207: p_x_line_tbl(i).lot_number; --jeli 12/01/05
3208: CLOSE ahl_exc_inst_details;
3209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
3211: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
3212: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3213: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
3206: p_x_line_tbl(i).order_quantity_uom,
3207: p_x_line_tbl(i).lot_number; --jeli 12/01/05
3208: CLOSE ahl_exc_inst_details;
3209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Fetched Exchange Instance details: ' ||
3211: 'item_instance_id = ' || p_x_line_tbl(i).csi_item_instance_id ||
3212: ', inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3213: ', serial_number = ' || p_x_line_tbl(i).serial_number ||
3214: ', ordered_quantity = ' || p_x_line_tbl(i).ordered_quantity ||
3248: p_x_line_tbl(i).csi_item_instance_id := null;
3249:
3250: -- If the serial number user entered corresponds to a tracked instance, derive the
3251: -- instance number and update the Osp Order Line's Exchange Instance column transparently
3252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
3254: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
3255: END IF;
3256:
3249:
3250: -- If the serial number user entered corresponds to a tracked instance, derive the
3251: -- instance number and update the Osp Order Line's Exchange Instance column transparently
3252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange Instance id is null ' ||
3254: 'l_osp_line_det_type.exchange_instance_id = ' || l_osp_line_det_type.exchange_instance_id);
3255: END IF;
3256:
3257:
3272: END IF; -- user entered SN AND/OR Lot number
3273:
3274: --If the SN/LOT user entered corresponds to a non-tracked item
3275: -- simply ignore the serial number entered by the user without throwing an error.
3276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3277: 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);
3278: END IF;
3279:
3280: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3273:
3274: --If the SN/LOT user entered corresponds to a non-tracked item
3275: -- simply ignore the serial number entered by the user without throwing an error.
3276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3277: 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);
3278: END IF;
3279:
3280: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3281:
3279:
3280: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3281:
3282: -- update the Osp Order Line's Exchange Instance column
3283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3284: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
3285: END IF;
3286:
3287: Update_OSP_Line_Exch_Instance(
3280: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3281:
3282: -- update the Osp Order Line's Exchange Instance column
3283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3284: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Update_OSP_Line_Exch_Instance');
3285: END IF;
3286:
3287: Update_OSP_Line_Exch_Instance(
3288: p_osp_order_id => p_x_line_tbl(i).osp_order_id,
3316: END IF; -- Exchange Order Return Lines
3317:
3318: --Check that ship to or return instance is top node in CSI.
3319: -- If not unit, then throw error cause can't ship part of a unit.
3320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3322: END IF;
3323:
3324: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3317:
3318: --Check that ship to or return instance is top node in CSI.
3319: -- If not unit, then throw error cause can't ship part of a unit.
3320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3322: END IF;
3323:
3324: IF p_x_line_tbl(i).csi_item_instance_id IS NOT NULL THEN
3325: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(i).csi_item_instance_id);
3341:
3342:
3343: -- Do additional Validation, Defaulting if not deleting Ship Line
3344: IF (p_x_line_tbl(i).operation <> 'D') THEN
3345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3347: END IF;
3348: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3349: -- Ship-Only Line
3342:
3343: -- Do additional Validation, Defaulting if not deleting Ship Line
3344: IF (p_x_line_tbl(i).operation <> 'D') THEN
3345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3347: END IF;
3348: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3349: -- Ship-Only Line
3350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not a Shipment Delete Operation');
3347: END IF;
3348: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3349: -- Ship-Only Line
3350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3352: END IF;
3353: -- Default the Ship Date if not already Set
3354: 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
3347: END IF;
3348: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3349: -- Ship-Only Line
3350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3352: END IF;
3353: -- Default the Ship Date if not already Set
3354: 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
3355:
3394: CLOSE ahl_oe_ship_id_csr;
3395:
3396: --yazhou 06-Jun-2006 ends
3397:
3398: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
3400: END IF;
3401:
3402: OPEN ahl_oe_Inv_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3395:
3396: --yazhou 06-Jun-2006 ends
3397:
3398: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
3400: END IF;
3401:
3402: OPEN ahl_oe_Inv_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3403: p_x_line_tbl(i).inventory_item_id,
3449: END IF; -- Borrow or Exchange or Other
3450: END IF; -- Return Date is not null
3451: CLOSE ahl_oe_Inv_schedule_date_csr;
3452: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3453: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3454: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3455: END IF;
3456: 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
3457:
3450: END IF; -- Return Date is not null
3451: CLOSE ahl_oe_Inv_schedule_date_csr;
3452: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3453: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3454: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3455: END IF;
3456: 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
3457:
3458: -- yazhou 31-Jul-2006 starts
3546: END IF; -- Line Operation is not 'D'
3547: END IF; -- Work Order or OSP Order Line Id is not Null
3548: ELSE
3549: -- OSP Line Flag is Not Y: Shipment Line is for a spare part or tool.
3550: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3551: 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.');
3552: END IF;
3553: p_x_line_tbl(i).osp_line_id := null;
3554: p_x_line_tbl(i).osp_line_number := null;
3547: END IF; -- Work Order or OSP Order Line Id is not Null
3548: ELSE
3549: -- OSP Line Flag is Not Y: Shipment Line is for a spare part or tool.
3550: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3551: 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.');
3552: END IF;
3553: p_x_line_tbl(i).osp_line_id := null;
3554: p_x_line_tbl(i).osp_line_number := null;
3555:
3581: END IF;
3582:
3583:
3584: -- Validate the Spare part to be shipped
3585: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to validate spare item to be shipped with ' ||
3587: 'p_x_line_tbl(i).inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3588: ', p_x_line_tbl(i).inventory_org_id = ' || p_x_line_tbl(i).inventory_org_id ||
3589: ', p_x_line_tbl(i).serial_number = ' || p_x_line_tbl(i).serial_number ||
3582:
3583:
3584: -- Validate the Spare part to be shipped
3585: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to validate spare item to be shipped with ' ||
3587: 'p_x_line_tbl(i).inventory_item_id = ' || p_x_line_tbl(i).inventory_item_id ||
3588: ', p_x_line_tbl(i).inventory_org_id = ' || p_x_line_tbl(i).inventory_org_id ||
3589: ', p_x_line_tbl(i).serial_number = ' || p_x_line_tbl(i).serial_number ||
3590: ', p_x_line_tbl(i).LOT_NUMBER = ' || p_x_line_tbl(i).LOT_NUMBER);
3607: CLOSE validate_item;
3608: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3609: END IF; -- OSP Line Flag is Y or Not Y
3610:
3611: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3612: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Ship Line with index i = ' || i);
3613: END IF;
3614: END LOOP;
3615:
3608: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3609: END IF; -- OSP Line Flag is Y or Not Y
3610:
3611: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3612: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Processing Ship Line with index i = ' || i);
3613: END IF;
3614: END LOOP;
3615:
3616: /*
3619: */
3620:
3621: ELSIF p_operation_flag = 'C' THEN -- Line Table Count is Zero
3622: -- Creating Shipment using OSP Header
3623: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line Table Count is Zero: Creating Shipment using OSP Header');
3625: END IF;
3626:
3627: -- yazhou 31-Jul-2006 starts
3620:
3621: ELSIF p_operation_flag = 'C' THEN -- Line Table Count is Zero
3622: -- Creating Shipment using OSP Header
3623: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Line Table Count is Zero: Creating Shipment using OSP Header');
3625: END IF;
3626:
3627: -- yazhou 31-Jul-2006 starts
3628: -- bug fix#5442904
3634: -- yazhou 31-Jul-2006 ends
3635:
3636: l_index := 0;
3637: FOR I IN osp_line_details_csr2(p_osp_order_id) LOOP
3638: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting details for OSP Line with id ' || I.osp_order_line_id);
3640: END IF;
3641: -- Modified by jaramana on January 11, 2008 to fix the Bug 5688387/5842229
3642: l_index := l_index + 2;
3635:
3636: l_index := 0;
3637: FOR I IN osp_line_details_csr2(p_osp_order_id) LOOP
3638: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Getting details for OSP Line with id ' || I.osp_order_line_id);
3640: END IF;
3641: -- Modified by jaramana on January 11, 2008 to fix the Bug 5688387/5842229
3642: l_index := l_index + 2;
3643: -- First Prepare data for Return Lines
3694: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3695: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3696: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3697: FND_MSG_PUB.ADD;
3698: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3699: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3700: END IF;
3701: RAISE Fnd_Api.g_exc_error;
3702: END IF;
3695: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3696: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3697: FND_MSG_PUB.ADD;
3698: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3699: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3700: END IF;
3701: RAISE Fnd_Api.g_exc_error;
3702: END IF;
3703:
3737: p_x_line_tbl(l_index).osp_line_id := I.OSP_ORDER_LINE_ID;
3738: p_x_line_tbl(l_index).osp_line_number := I.OSP_LINE_NUMBER;
3739: p_x_line_tbl(l_index).instance_id := NULL;
3740:
3741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line based and sub_inv='||p_x_line_tbl(l_index).subinventory);
3743: END IF;
3744:
3745: -- Get additional details from the Work order, if the OSP Line is work order based
3738: p_x_line_tbl(l_index).osp_line_number := I.OSP_LINE_NUMBER;
3739: p_x_line_tbl(l_index).instance_id := NULL;
3740:
3741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Line based and sub_inv='||p_x_line_tbl(l_index).subinventory);
3743: END IF;
3744:
3745: -- Get additional details from the Work order, if the OSP Line is work order based
3746: IF I.WORKORDER_ID IS NOT NULL THEN
3743: END IF;
3744:
3745: -- Get additional details from the Work order, if the OSP Line is work order based
3746: IF I.WORKORDER_ID IS NOT NULL THEN
3747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: 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);
3749: END IF;
3750: OPEN ahl_osp_work_csr(I.WORKORDER_ID);
3751: FETCH ahl_osp_work_csr INTO l_work_det;
3744:
3745: -- Get additional details from the Work order, if the OSP Line is work order based
3746: IF I.WORKORDER_ID IS NOT NULL THEN
3747: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3748: 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);
3749: END IF;
3750: OPEN ahl_osp_work_csr(I.WORKORDER_ID);
3751: FETCH ahl_osp_work_csr INTO l_work_det;
3752: -- jaramana June 4, 2005: Added check for Workorder
3771:
3772: --Added by mpothuku on 04-May-06 to fix the Bug 5113542
3773: --Check that ship to or return instance is top node in CSI.
3774: -- If not unit, then throw error cause can't ship part of a unit.
3775: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3776: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3777: END IF;
3778:
3779: IF p_x_line_tbl(l_index).csi_item_instance_id IS NOT NULL THEN
3772: --Added by mpothuku on 04-May-06 to fix the Bug 5113542
3773: --Check that ship to or return instance is top node in CSI.
3774: -- If not unit, then throw error cause can't ship part of a unit.
3775: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3776: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to perform Component Check.');
3777: END IF;
3778:
3779: IF p_x_line_tbl(l_index).csi_item_instance_id IS NOT NULL THEN
3780: OPEN ahl_csi_unit_test_csr(p_x_line_tbl(l_index).csi_item_instance_id);
3792: END IF;
3793: --mpothuku on 04-May-06 Ends
3794:
3795: ELSIF p_x_line_tbl(l_index).serial_number IS NOT NULL THEN
3796: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3797: 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);
3798: END IF;
3799: OPEN get_inv_inst_csr(p_x_line_tbl(l_index).inventory_item_id ,
3800: -- p_x_line_tbl(l_index).inventory_org_id,
3793: --mpothuku on 04-May-06 Ends
3794:
3795: ELSIF p_x_line_tbl(l_index).serial_number IS NOT NULL THEN
3796: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3797: 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);
3798: END IF;
3799: OPEN get_inv_inst_csr(p_x_line_tbl(l_index).inventory_item_id ,
3800: -- p_x_line_tbl(l_index).inventory_org_id,
3801: p_x_line_tbl(l_index).serial_number);
3802: FETCH get_inv_inst_csr INTO p_x_line_tbl(l_index).csi_item_instance_id;
3803: CLOSE get_inv_inst_csr;
3804: -- Added by jaramana on June 4, 2005 to get details about lot controlled items
3805: ELSIF p_x_line_tbl(l_index).lot_number IS NOT NULL THEN
3806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3807: 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);
3808: END IF;
3809: OPEN get_inv_inst_from_lot_csr(p_x_line_tbl(l_index).inventory_item_id ,
3810: p_x_line_tbl(l_index).lot_number);
3803: CLOSE get_inv_inst_csr;
3804: -- Added by jaramana on June 4, 2005 to get details about lot controlled items
3805: ELSIF p_x_line_tbl(l_index).lot_number IS NOT NULL THEN
3806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3807: 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);
3808: END IF;
3809: OPEN get_inv_inst_from_lot_csr(p_x_line_tbl(l_index).inventory_item_id ,
3810: p_x_line_tbl(l_index).lot_number);
3811: FETCH get_inv_inst_from_lot_csr INTO p_x_line_tbl(l_index).csi_item_instance_id;
3816: -- All return lines were being created upfront and then the ship lines
3817: -- which was creating confusion with the sequencing of the ship/return lines
3818: -- Changing the logic henceforth.
3819: l_ship_index := l_index-1;
3820: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3821: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting the shipline: index ' || l_ship_index );
3822: END IF;
3823:
3824: -- Copy all the details about from the Return Line
3817: -- which was creating confusion with the sequencing of the ship/return lines
3818: -- Changing the logic henceforth.
3819: l_ship_index := l_index-1;
3820: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3821: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting the shipline: index ' || l_ship_index );
3822: END IF;
3823:
3824: -- Copy all the details about from the Return Line
3825: p_x_line_tbl(l_ship_index) := p_x_line_tbl(l_index);
3861: CLOSE exchange_instance_dtls_csr;
3862: END IF;
3863: -- jaramana End
3864:
3865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed details for OSP Line with id ' || I.osp_order_line_id);
3867: END IF;
3868: END LOOP;
3869:
3862: END IF;
3863: -- jaramana End
3864:
3865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed details for OSP Line with id ' || I.osp_order_line_id);
3867: END IF;
3868: END LOOP;
3869:
3870: END IF; -- Line Table Count is Zero or c_operation_flag = 'C'
3867: END IF;
3868: END LOOP;
3869:
3870: END IF; -- Line Table Count is Zero or c_operation_flag = 'C'
3871: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3872: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3873: END IF;
3874: END Process_Line_Tbl;
3875:
3868: END LOOP;
3869:
3870: END IF; -- Line Table Count is Zero or c_operation_flag = 'C'
3871: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3872: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3873: END IF;
3874: END Process_Line_Tbl;
3875:
3876:
3922: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3923: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3924: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3925:
3926: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3927: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3928: END IF;
3929:
3930: IF (p_line_tbl.COUNT > 0) THEN
3923: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3924: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3925:
3926: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3927: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3928: END IF;
3929:
3930: IF (p_line_tbl.COUNT > 0) THEN
3931: FOR i IN p_line_tbl.FIRST..p_line_tbl.LAST LOOP
4021: END IF;
4022: l_line_val_rec.ship_from_org := p_line_tbl(i).ship_from_org;
4023:
4024: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4029: END IF;
4022: l_line_val_rec.ship_from_org := p_line_tbl(i).ship_from_org;
4023:
4024: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4029: END IF;
4030:
4023:
4024: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4029: END IF;
4030:
4031: IF (p_module_type = 'JSP') THEN
4024: l_line_rec.subinventory := p_line_tbl(i).subinventory;
4025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_val_rec.ship_from_org = ' || l_line_val_rec.ship_from_org);
4028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.subinventory = ' || l_line_rec.subinventory);
4029: END IF;
4030:
4031: IF (p_module_type = 'JSP') THEN
4032: -- Set all Ids to G_MISS Values
4111: END IF; --return line type
4112: l_line_table_index := l_line_table_index + 1;
4113: x_line_tbl(l_line_table_index) := l_line_rec;
4114: x_line_val_tbl(l_line_table_index) := l_line_val_rec;
4115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4117: END IF;
4118: END IF; -- Operation is not 'D'
4119: END LOOP; -- For all lines in Line Table
4112: l_line_table_index := l_line_table_index + 1;
4113: x_line_tbl(l_line_table_index) := l_line_rec;
4114: x_line_val_tbl(l_line_table_index) := l_line_val_rec;
4115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_line_rec.ship_from_org_id = ' || l_line_rec.ship_from_org_id);
4117: END IF;
4118: END IF; -- Operation is not 'D'
4119: END LOOP; -- For all lines in Line Table
4120: END IF; -- Line Table Count > 0
4117: END IF;
4118: END IF; -- Operation is not 'D'
4119: END LOOP; -- For all lines in Line Table
4120: END IF; -- Line Table Count > 0
4121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4123: END IF;
4124:
4125: END Convert_Line_Tbl;
4118: END IF; -- Operation is not 'D'
4119: END LOOP; -- For all lines in Line Table
4120: END IF; -- Line Table Count > 0
4121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4123: END IF;
4124:
4125: END Convert_Line_Tbl;
4126:
5048:
5049: -- Initialize return status.
5050: x_return_status := FND_API.G_RET_STS_SUCCESS;
5051:
5052: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5053: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5054: END IF;
5055:
5056: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5049: -- Initialize return status.
5050: x_return_status := FND_API.G_RET_STS_SUCCESS;
5051:
5052: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5053: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5054: END IF;
5055:
5056: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: 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 ||
5052: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5053: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5054: END IF;
5055:
5056: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: 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 ||
5058: ', p_oe_line_id = ' || p_oe_line_id || ', p_csi_instance_id = ' || p_csi_instance_id);
5059: END IF;
5060:
5053: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5054: END IF;
5055:
5056: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: 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 ||
5058: ', p_oe_line_id = ' || p_oe_line_id || ', p_csi_instance_id = ' || p_csi_instance_id);
5059: END IF;
5060:
5061: -- Check input order and line types.
5134: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5135:
5136: l_txn_party_tbl(1) := l_party_dtl_rec;
5137: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5135:
5136: l_txn_party_tbl(1) := l_party_dtl_rec;
5137: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5136: l_txn_party_tbl(1) := l_party_dtl_rec;
5137: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5137: l_txn_pty_acct_tbl(1) := l_party_account_rec;
5138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5139: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5141: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5142: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5150: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5151: END IF;
5144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5150: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5151: END IF;
5152: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5150: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5151: END IF;
5152: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5153: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_SHIP');
5146:
5147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' ACCOUNT_ID = ' || l_party_account_rec.ACCOUNT_ID);
5149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_account_rec.RELATIONSHIP_TYPE_CODE);
5150: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_PARTY_DETAILS_INDEX = ' || l_party_account_rec.TXN_PARTY_DETAILS_INDEX);
5151: END IF;
5152: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5153: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_SHIP');
5154: IF l_subtxn_id IS NULL THEN
5251: END IF;
5252: ---mpothuku End
5253: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5254: l_txn_party_tbl(1) := l_party_dtl_rec;
5255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5252: ---mpothuku End
5253: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5254: l_txn_party_tbl(1) := l_party_dtl_rec;
5255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5253: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5254: l_txn_party_tbl(1) := l_party_dtl_rec;
5255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5254: l_txn_party_tbl(1) := l_party_dtl_rec;
5255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5263: END IF;
5256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_dtl_rec:');
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5263: END IF;
5264: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5257: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_TABLE = ' || l_party_dtl_rec.PARTY_SOURCE_TABLE);
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5263: END IF;
5264: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5265: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_RETURN');
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PARTY_SOURCE_ID = ' || l_party_dtl_rec.PARTY_SOURCE_ID);
5259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RELATIONSHIP_TYPE_CODE = ' || l_party_dtl_rec.RELATIONSHIP_TYPE_CODE);
5260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' CONTACT_FLAG = ' || l_party_dtl_rec.CONTACT_FLAG);
5261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TXN_LINE_DETAILS_INDEX = ' || l_party_dtl_rec.TXN_LINE_DETAILS_INDEX);
5262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_PARTY_ID = ' || l_party_dtl_rec.INSTANCE_PARTY_ID);
5263: END IF;
5264: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE THEN
5265: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_SER_RETURN');
5266: IF l_subtxn_id IS NULL THEN
5365: l_txn_line_dtl_tbl(1).RETURN_BY_DATE := l_return_by_date;
5366:
5367: END IF;
5368:
5369: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5366:
5367: END IF;
5368:
5369: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5367: END IF;
5368:
5369: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5368:
5369: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5369: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_rec:');
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TYPE_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_ID = ' || l_txn_line_rec.SOURCE_TRANSACTION_ID);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5373: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_TABLE = ' || l_txn_line_rec.SOURCE_TRANSACTION_TABLE);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5374:
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_txn_line_dtl_tbl(1):');
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5376: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_ITEM_ID = ' || l_txn_line_dtl_tbl(1).INVENTORY_ITEM_ID);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' QUANTITY = ' || l_txn_line_dtl_tbl(1).QUANTITY);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INV_ORGANIZATION_ID = ' || l_txn_line_dtl_tbl(1).INV_ORGANIZATION_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' UNIT_OF_MEASURE = ' || l_txn_line_dtl_tbl(1).UNIT_OF_MEASURE);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5380: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SERIAL_NUMBER = ' || l_txn_line_dtl_tbl(1).SERIAL_NUMBER);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INVENTORY_REVISION = ' || l_txn_line_dtl_tbl(1).INVENTORY_REVISION);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5382: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' LOT_NUMBER = ' || l_txn_line_dtl_tbl(1).LOT_NUMBER);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5383: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' MFG_SERIAL_NUMBER_FLAG = ' || l_txn_line_dtl_tbl(1).MFG_SERIAL_NUMBER_FLAG);
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5391: END IF;
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SOURCE_TRANSACTION_FLAG = ' || l_txn_line_dtl_tbl(1).SOURCE_TRANSACTION_FLAG);
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5391: END IF;
5392:
5385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' TRANSACTION_LINE_ID = ' || l_txn_line_dtl_tbl(1).TRANSACTION_LINE_ID);
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5391: END IF;
5392:
5393:
5386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' SUB_TYPE_ID = ' || l_txn_line_dtl_tbl(1).SUB_TYPE_ID);
5387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_EXISTS_FLAG = ' || l_txn_line_dtl_tbl(1).INSTANCE_EXISTS_FLAG);
5388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' INSTANCE_ID = ' || l_txn_line_dtl_tbl(1).INSTANCE_ID);
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' PRESERVE_DETAIL_FLAG = ' || l_txn_line_dtl_tbl(1).PRESERVE_DETAIL_FLAG);
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5391: END IF;
5392:
5393:
5394: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' RETURN_BY_DATE = ' || l_txn_line_dtl_tbl(1).RETURN_BY_DATE);
5391: END IF;
5392:
5393:
5394: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5395: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.create_transaction_dtls.');
5396: END IF;
5397: csi_t_txn_details_grp.create_transaction_dtls(
5398: p_api_version => 1.0,
5391: END IF;
5392:
5393:
5394: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5395: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.create_transaction_dtls.');
5396: END IF;
5397: csi_t_txn_details_grp.create_transaction_dtls(
5398: p_api_version => 1.0,
5399: p_commit => p_commit,
5411: x_msg_count => x_msg_count,
5412: x_msg_data => x_msg_data);
5413:
5414:
5415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5416: 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);
5417: END IF;
5418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5412: x_msg_data => x_msg_data);
5413:
5414:
5415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5416: 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);
5417: END IF;
5418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5420: END IF;
5414:
5415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5416: 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);
5417: END IF;
5418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5420: END IF;
5421:
5422: END Create_IB_Transaction;
5415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5416: 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);
5417: END IF;
5418: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5419: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5420: END IF;
5421:
5422: END Create_IB_Transaction;
5423:
5446: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Delete_IB_Transaction';
5447:
5448: BEGIN
5449:
5450: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5451: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5452: END IF;
5453:
5454: -- Initialize return status.
5447:
5448: BEGIN
5449:
5450: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5451: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5452: END IF;
5453:
5454: -- Initialize return status.
5455: x_return_status := FND_API.G_RET_STS_SUCCESS;
5459: CLOSE csi_txn_lines_csr;
5460:
5461: IF (l_transaction_line_id IS NOT NULL) THEN
5462:
5463: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5464: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.delete_transaction_dtls.');
5465: END IF;
5466:
5467: csi_t_txn_details_grp.delete_transaction_dtls
5460:
5461: IF (l_transaction_line_id IS NOT NULL) THEN
5462:
5463: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5464: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call csi_t_txn_details_grp.delete_transaction_dtls.');
5465: END IF;
5466:
5467: csi_t_txn_details_grp.delete_transaction_dtls
5468: ( p_api_version => 1.0,
5474: x_return_status => x_return_status,
5475: x_msg_count => x_msg_count,
5476: x_msg_data => x_msg_data);
5477:
5478: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5479: 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);
5480: END IF;
5481:
5482: END IF;
5475: x_msg_count => x_msg_count,
5476: x_msg_data => x_msg_data);
5477:
5478: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5479: 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);
5480: END IF;
5481:
5482: END IF;
5483:
5480: END IF;
5481:
5482: END IF;
5483:
5484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5485: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5486: END IF;
5487:
5488: END Delete_IB_Transaction;
5481:
5482: END IF;
5483:
5484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5485: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5486: END IF;
5487:
5488: END Delete_IB_Transaction;
5489:
5582: IF FND_API.To_Boolean(p_init_msg_list) THEN
5583: FND_MSG_PUB.Initialize;
5584: END IF;
5585:
5586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5588: END IF;
5589:
5590: -- Validate the OSP Order Id
5583: FND_MSG_PUB.Initialize;
5584: END IF;
5585:
5586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5588: END IF;
5589:
5590: -- Validate the OSP Order Id
5591: OPEN validate_osp_id_csr(p_osp_order_id);
5599: RAISE Fnd_Api.g_exc_error;
5600: END IF;
5601: CLOSE validate_osp_id_csr;
5602:
5603: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5604: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Id validated.');
5605: END IF;
5606:
5607: -- Validate the type codes
5600: END IF;
5601: CLOSE validate_osp_id_csr;
5602:
5603: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5604: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OSP Id validated.');
5605: END IF;
5606:
5607: -- Validate the type codes
5608: IF ((p_old_order_type_code IS NULL) OR
5614: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5615: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5616: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5617: Fnd_Msg_Pub.ADD;
5618: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5620: END IF;
5621: END IF;
5622: RAISE Fnd_Api.g_exc_error;
5615: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5616: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5617: Fnd_Msg_Pub.ADD;
5618: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5620: END IF;
5621: END IF;
5622: RAISE Fnd_Api.g_exc_error;
5623: END IF;
5621: END IF;
5622: RAISE Fnd_Api.g_exc_error;
5623: END IF;
5624:
5625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5627: END IF;
5628:
5629: -- Validate that the return quantity is zero
5622: RAISE Fnd_Api.g_exc_error;
5623: END IF;
5624:
5625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5627: END IF;
5628:
5629: -- Validate that the return quantity is zero
5630: OPEN get_return_line_ids_csr(p_osp_order_id);
5638: -- Return line is already shipped: Too late to convert!
5639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5640: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5641: Fnd_Msg_Pub.ADD;
5642: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5643: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5644: END IF;
5645: END IF;
5646: CLOSE get_return_line_ids_csr;
5639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5640: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5641: Fnd_Msg_Pub.ADD;
5642: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5643: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5644: END IF;
5645: END IF;
5646: CLOSE get_return_line_ids_csr;
5647: RAISE Fnd_Api.g_exc_error;
5651: l_oe_line_ids_tbl(l_temp_count) := l_oe_return_line_id;
5652: END LOOP;
5653: CLOSE get_return_line_ids_csr;
5654:
5655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated return quantities.');
5657: END IF;
5658:
5659: IF (l_temp_count > 0) THEN
5652: END LOOP;
5653: CLOSE get_return_line_ids_csr;
5654:
5655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated return quantities.');
5657: END IF;
5658:
5659: IF (l_temp_count > 0) THEN
5660: -- Delete all return shipment lines
5657: END IF;
5658:
5659: IF (l_temp_count > 0) THEN
5660: -- Delete all return shipment lines
5661: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5663: END IF;
5664:
5665: Delete_Cancel_Order (p_api_version => 1.0,
5658:
5659: IF (l_temp_count > 0) THEN
5660: -- Delete all return shipment lines
5661: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5663: END IF;
5664:
5665: Delete_Cancel_Order (p_api_version => 1.0,
5666: p_init_msg_list => FND_API.G_FALSE,
5671: p_cancel_flag => FND_API.G_FALSE,
5672: x_return_status => x_return_status,
5673: x_msg_count => x_msg_count,
5674: x_msg_data => x_msg_data);
5675: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5677: END IF;
5678: ELSE
5679: null;
5672: x_return_status => x_return_status,
5673: x_msg_count => x_msg_count,
5674: x_msg_data => x_msg_data);
5675: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5677: END IF;
5678: ELSE
5679: null;
5680: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Delete_Cancel_Order: x_return_status = ' || x_return_status);
5677: END IF;
5678: ELSE
5679: null;
5680: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not calling Delete_Cancel_Order since there are no return shipment lines');
5682: END IF;
5683: END IF;
5684:
5677: END IF;
5678: ELSE
5679: null;
5680: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Not calling Delete_Cancel_Order since there are no return shipment lines');
5682: END IF;
5683: END IF;
5684:
5685: -- If the deletion has succeeded, proceed with converting the
5687: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5688: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5689: p_old_order_type_code => p_old_order_type_code,
5690: p_new_order_type_code => p_new_order_type_code);
5691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Convert_Ship_Only_Lines returned with no exception');
5693: END IF;
5694: END IF;
5695:
5688: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5689: p_old_order_type_code => p_old_order_type_code,
5690: p_new_order_type_code => p_new_order_type_code);
5691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Convert_Ship_Only_Lines returned with no exception');
5693: END IF;
5694: END IF;
5695:
5696: -- Standard check of p_commit
5703: ( p_count => x_msg_count,
5704: p_data => x_msg_data,
5705: p_encoded => fnd_api.g_false);
5706:
5707: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5709: END IF;
5710:
5711: EXCEPTION
5704: p_data => x_msg_data,
5705: p_encoded => fnd_api.g_false);
5706:
5707: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5709: END IF;
5710:
5711: EXCEPTION
5712: WHEN FND_API.G_EXC_ERROR THEN
5820: l_msg_count NUMBER;
5821: l_msg_data VARCHAR2(2000);
5822:
5823: BEGIN
5824: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5825: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5826: END IF;
5827: -- Get internal Party Id
5828: OPEN get_internal_party_csr;
5821: l_msg_data VARCHAR2(2000);
5822:
5823: BEGIN
5824: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5825: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5826: END IF;
5827: -- Get internal Party Id
5828: OPEN get_internal_party_csr;
5829: FETCH get_internal_party_csr INTO l_internal_party_id;
5830: IF (get_internal_party_csr%NOTFOUND) THEN
5831: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5832: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5833: Fnd_Msg_Pub.ADD;
5834: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5836: END IF;
5837: END IF;
5838: CLOSE get_internal_party_csr;
5831: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5832: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5833: Fnd_Msg_Pub.ADD;
5834: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5836: END IF;
5837: END IF;
5838: CLOSE get_internal_party_csr;
5839: RAISE Fnd_Api.g_exc_error;
5839: RAISE Fnd_Api.g_exc_error;
5840: END IF;
5841: CLOSE get_internal_party_csr;
5842:
5843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5844: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got Internal Party Id: ' || l_internal_party_id);
5845: END IF;
5846:
5847: -- Process ship only lines
5840: END IF;
5841: CLOSE get_internal_party_csr;
5842:
5843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5844: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got Internal Party Id: ' || l_internal_party_id);
5845: END IF;
5846:
5847: -- Process ship only lines
5848: OPEN get_ship_only_lines_csr(p_osp_order_id);
5851: l_item_instance_id,
5852: l_shipped_quantity;
5853: EXIT WHEN get_ship_only_lines_csr%NOTFOUND;
5854: l_temp_count := l_temp_count + 1;
5855: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5856: 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);
5857: END IF;
5858: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5859: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5852: l_shipped_quantity;
5853: EXIT WHEN get_ship_only_lines_csr%NOTFOUND;
5854: l_temp_count := l_temp_count + 1;
5855: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5856: 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);
5857: END IF;
5858: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5859: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5860: -- Already shipped: Need to change ownership
5857: END IF;
5858: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5859: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5860: -- Already shipped: Need to change ownership
5861: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5862: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity > 0, need to change owner');
5863: END IF;
5864: OPEN get_owner_ip_id(l_item_instance_id);
5865: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5858: --IF (l_shipped_quantity > 0) THEN --Jeli on 01/24/2006 for ER47
5859: IF (l_shipped_quantity > 0 AND l_item_instance_id IS NOT NULL) THEN
5860: -- Already shipped: Need to change ownership
5861: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5862: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity > 0, need to change owner');
5863: END IF;
5864: OPEN get_owner_ip_id(l_item_instance_id);
5865: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5866: l_curr_pty_id,
5869: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5870: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5871: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5872: Fnd_Msg_Pub.ADD;
5873: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5874: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5875: END IF;
5876: END IF;
5877: CLOSE get_owner_ip_id;
5870: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5871: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5872: Fnd_Msg_Pub.ADD;
5873: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5874: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5875: END IF;
5876: END IF;
5877: CLOSE get_owner_ip_id;
5878: CLOSE get_ship_only_lines_csr;
5878: CLOSE get_ship_only_lines_csr;
5879: RAISE Fnd_Api.g_exc_error;
5880: END IF;
5881: CLOSE get_owner_ip_id;
5882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5883: 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);
5884: END IF;
5885:
5886: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5879: RAISE Fnd_Api.g_exc_error;
5880: END IF;
5881: CLOSE get_owner_ip_id;
5882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5883: 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);
5884: END IF;
5885:
5886: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5887: -- Exchange to Service conversion: New owner will be internal
5886: IF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
5887: -- Exchange to Service conversion: New owner will be internal
5888: l_new_party_id := l_internal_party_id;
5889: -- l_new_party_acc_id will be null
5890: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange to Service conversion: New internal owner = ' || l_new_party_id);
5892: END IF;
5893: ELSIF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
5894: -- Service to Exchange conversion: New owner will be the ship to org
5887: -- Exchange to Service conversion: New owner will be internal
5888: l_new_party_id := l_internal_party_id;
5889: -- l_new_party_acc_id will be null
5890: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Exchange to Service conversion: New internal owner = ' || l_new_party_id);
5892: END IF;
5893: ELSIF (p_new_order_type_code = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
5894: -- Service to Exchange conversion: New owner will be the ship to org
5895: -- Determine the id of this party
5899: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5900: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5901: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5902: Fnd_Msg_Pub.ADD;
5903: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5904: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5905: END IF;
5906: END IF;
5907: CLOSE get_sold_to_org;
5900: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5901: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5902: Fnd_Msg_Pub.ADD;
5903: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5904: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5905: END IF;
5906: END IF;
5907: CLOSE get_sold_to_org;
5908: CLOSE get_ship_only_lines_csr;
5908: CLOSE get_ship_only_lines_csr;
5909: RAISE Fnd_Api.g_exc_error;
5910: END IF;
5911: CLOSE get_sold_to_org;
5912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5913: 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);
5914: END IF;
5915: ELSE
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5909: RAISE Fnd_Api.g_exc_error;
5910: END IF;
5911: CLOSE get_sold_to_org;
5912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5913: 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);
5914: END IF;
5915: ELSE
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5917: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5915: ELSE
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5917: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5918: Fnd_Msg_Pub.ADD;
5919: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5920: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5921: END IF;
5922: END IF;
5923: CLOSE get_ship_only_lines_csr;
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5917: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5918: Fnd_Msg_Pub.ADD;
5919: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5920: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5921: END IF;
5922: END IF;
5923: CLOSE get_ship_only_lines_csr;
5924: RAISE Fnd_Api.g_exc_error;
5945: l_transaction_rec.transaction_date := sysdate;
5946: l_transaction_rec.source_transaction_date := sysdate;
5947: l_transaction_rec.transaction_type_id := 1;
5948: -- Call the API
5949: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5950: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5946: l_transaction_rec.source_transaction_date := sysdate;
5947: l_transaction_rec.transaction_type_id := 1;
5948: -- Call the API
5949: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5950: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5948: -- Call the API
5949: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5950: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5949: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5950: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5950: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5951:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5952: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_rec:');
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_id = ' || l_party_rec.instance_id);
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_source_table = ' || l_party_rec.party_source_table);
5955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_id = ' || l_party_rec.party_id);
5956: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_rec.relationship_type_code);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5957: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_rec.instance_party_id);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5958: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' object_version_number = ' || l_party_rec.object_version_number);
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5966: END IF;
5959:
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5966: END IF;
5967: END IF;
5960: IF (l_new_party_id <> l_internal_party_id) THEN
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5966: END IF;
5967: END IF;
5968:
5961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_party_account_rec:');
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' instance_party_id = ' || l_party_account_rec.instance_party_id);
5963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' party_account_id = ' || l_party_account_rec.party_account_id);
5964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' relationship_type_code = ' || l_party_account_rec.relationship_type_code);
5965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, ' call_contracts = ' || l_party_account_rec.call_contracts);
5966: END IF;
5967: END IF;
5968:
5969: --Updated by Jerry on 07/26/05 after the discussion with CSI Srini. From his suggestion,
5986: x_instance_id_lst => l_instance_id_lst,
5987: x_return_status => l_return_status,
5988: x_msg_count => l_msg_count,
5989: x_msg_data => l_msg_data);
5990: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5991: 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);
5992: END IF;
5993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5994: CLOSE get_ship_only_lines_csr;
5987: x_return_status => l_return_status,
5988: x_msg_count => l_msg_count,
5989: x_msg_data => l_msg_data);
5990: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5991: 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);
5992: END IF;
5993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5994: CLOSE get_ship_only_lines_csr;
5995: RAISE Fnd_Api.g_exc_error;
5998: -- Not yet shipped: No need to change ownership
5999: -- Delete existing IB subtransaction (with old type)
6000: -- Jeli added the instance_id nullable check on 01/24/2006 for ER 4746426
6001: IF (l_item_instance_id IS NULL) THEN
6002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
6004: END IF;
6005: ELSE
6006: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5999: -- Delete existing IB subtransaction (with old type)
6000: -- Jeli added the instance_id nullable check on 01/24/2006 for ER 4746426
6001: IF (l_item_instance_id IS NULL) THEN
6002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
6004: END IF;
6005: ELSE
6006: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
6002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
6004: END IF;
6005: ELSE
6006: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
6008: END IF;
6009: Delete_IB_Transaction(
6010: p_init_msg_list => FND_API.G_FALSE,
6003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non-tracked item, so without IB transaction deletion or creation');
6004: END IF;
6005: ELSE
6006: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
6008: END IF;
6009: Delete_IB_Transaction(
6010: p_init_msg_list => FND_API.G_FALSE,
6011: p_commit => FND_API.G_FALSE,
6013: x_return_status => l_return_status,
6014: x_msg_count => l_msg_count,
6015: x_msg_data => l_msg_data,
6016: p_oe_line_id => l_oe_ship_line_id);
6017: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6018: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
6019: END IF;
6020: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6021: -- Create new IB subtransaction (with new type)
6014: x_msg_count => l_msg_count,
6015: x_msg_data => l_msg_data,
6016: p_oe_line_id => l_oe_ship_line_id);
6017: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6018: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
6019: END IF;
6020: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6021: -- Create new IB subtransaction (with new type)
6022: Create_IB_Transaction(
6029: p_OSP_order_type => p_new_order_type_code,
6030: p_oe_line_type => 'ORDER',
6031: p_oe_line_id => l_oe_ship_line_id,
6032: p_csi_instance_id => l_item_instance_id);
6033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
6035: END IF;
6036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6037: -- Error creating IB Subtransaction: throw exception
6030: p_oe_line_type => 'ORDER',
6031: p_oe_line_id => l_oe_ship_line_id,
6032: p_csi_instance_id => l_item_instance_id);
6033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
6035: END IF;
6036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6037: -- Error creating IB Subtransaction: throw exception
6038: CLOSE get_ship_only_lines_csr;
6047: END IF;
6048: END LOOP;
6049: CLOSE get_ship_only_lines_csr;
6050:
6051: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6052: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6053: END IF;
6054:
6055: END Convert_Ship_Only_Lines;
6048: END LOOP;
6049: CLOSE get_ship_only_lines_csr;
6050:
6051: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6052: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6053: END IF;
6054:
6055: END Convert_Ship_Only_Lines;
6056:
6065: p_instance_num CSI_ITEM_INSTANCES.INSTANCE_NUMBER%TYPE;
6066: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.GET_INSTANCE_NUM_FROM_ID';
6067:
6068: BEGIN
6069: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6070: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6071: END IF;
6072: IF p_instance_id IS NULL THEN
6073: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6066: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.GET_INSTANCE_NUM_FROM_ID';
6067:
6068: BEGIN
6069: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6070: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6071: END IF;
6072: IF p_instance_id IS NULL THEN
6073: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6074: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6069: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6070: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6071: END IF;
6072: IF p_instance_id IS NULL THEN
6073: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6074: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6075: END IF;
6076: RETURN NULL;
6077: ELSE
6070: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: p_instance_id = ' || p_instance_id);
6071: END IF;
6072: IF p_instance_id IS NULL THEN
6073: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6074: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning NULL');
6075: END IF;
6076: RETURN NULL;
6077: ELSE
6078: OPEN csi_instance_num_csr(p_instance_id);
6077: ELSE
6078: OPEN csi_instance_num_csr(p_instance_id);
6079: FETCH csi_instance_num_csr into p_instance_num;
6080: CLOSE csi_instance_num_csr;
6081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6082: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning ' || p_instance_num);
6083: END IF;
6084: RETURN p_instance_num;
6085: END IF;
6078: OPEN csi_instance_num_csr(p_instance_id);
6079: FETCH csi_instance_num_csr into p_instance_num;
6080: CLOSE csi_instance_num_csr;
6081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6082: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'GET_INSTANCE_NUM_FROM_ID: returning ' || p_instance_num);
6083: END IF;
6084: RETURN p_instance_num;
6085: END IF;
6086: END;
6181: IF FND_API.To_Boolean(p_init_msg_list) THEN
6182: FND_MSG_PUB.Initialize;
6183: END IF;
6184:
6185: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6187: END IF;
6188:
6189: IF p_osp_order_id IS NOT NULL THEN
6182: FND_MSG_PUB.Initialize;
6183: END IF;
6184:
6185: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6187: END IF;
6188:
6189: IF p_osp_order_id IS NOT NULL THEN
6190: OPEN get_shipment_det_csr;
6196: CLOSE get_shipment_det_csr;
6197: END IF;
6198:
6199: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6197: END IF;
6198:
6199: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6205: END IF;
6198:
6199: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6205: END IF;
6206:
6199: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6205: END IF;
6206:
6207: OPEN ahl_order_vendor_detls_csr(p_osp_order_id);
6200: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_id = ' || p_osp_order_id);
6202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_id = ' || p_vendor_id);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_vendor_loc_id = ' || p_vendor_loc_id);
6204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_header_id = ' || l_oe_header_id);
6205: END IF;
6206:
6207: OPEN ahl_order_vendor_detls_csr(p_osp_order_id);
6208: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
6208: FETCH ahl_order_vendor_detls_csr INTO l_vendor_cust_dtls;
6209: CLOSE ahl_order_vendor_detls_csr;
6210:
6211: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6209: CLOSE ahl_order_vendor_detls_csr;
6210:
6211: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6217: END IF;
6210:
6211: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6217: END IF;
6218:
6211: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
6212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6217: END IF;
6218:
6219: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_id = ' || l_vendor_cust_dtls.vendor_id);
6214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.vendor_site_id = ' || l_vendor_cust_dtls.vendor_site_id);
6215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_id = ' || l_vendor_cust_dtls.customer_id);
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_vendor_cust_dtls.customer_site_id = ' || l_vendor_cust_dtls.customer_site_id);
6217: END IF;
6218:
6219: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6220: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6221: Fnd_Msg_Pub.ADD;
6222: RAISE Fnd_Api.g_exc_error;
6223: END IF;
6224:
6225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6226: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6227: END IF;
6228:
6229: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6222: RAISE Fnd_Api.g_exc_error;
6223: END IF;
6224:
6225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6226: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6227: END IF;
6228:
6229: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6230: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6240: LOOP
6241: FETCH get_oe_order_lines INTO l_oe_line_id;
6242: EXIT WHEN get_oe_order_lines%NOTFOUND;
6243: l_oe_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
6244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6245: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_line_id = ' || l_oe_line_id);
6246: END IF;
6247: l_oe_line_rec.line_id := l_oe_line_id;
6248: l_oe_line_rec.sold_to_org_id := l_vendor_cust_dtls.customer_id;
6241: FETCH get_oe_order_lines INTO l_oe_line_id;
6242: EXIT WHEN get_oe_order_lines%NOTFOUND;
6243: l_oe_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
6244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6245: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_line_id = ' || l_oe_line_id);
6246: END IF;
6247: l_oe_line_rec.line_id := l_oe_line_id;
6248: l_oe_line_rec.sold_to_org_id := l_vendor_cust_dtls.customer_id;
6249: l_oe_line_rec.ship_to_org_id := l_vendor_cust_dtls.customer_site_id;
6289: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
6290: x_action_request_tbl => x_action_request_tbl );
6291:
6292:
6293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6295: END IF;
6296:
6297: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6290: x_action_request_tbl => x_action_request_tbl );
6291:
6292:
6293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6295: END IF;
6296:
6297: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6298: FOR i IN 1..x_msg_count LOOP
6302: p_msg_index_out => l_msg_index_out);
6303: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6304: p_procedure_name => 'processOrder',
6305: p_error_text => substr(l_msg_data,1,240));
6306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6308: END IF;
6309:
6310: END LOOP;
6303: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6304: p_procedure_name => 'processOrder',
6305: p_error_text => substr(l_msg_data,1,240));
6306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6308: END IF;
6309:
6310: END LOOP;
6311: END IF;
6331: */
6332:
6333: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6334: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6336: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6337: FND_MSG_PUB.get (
6338: p_msg_index => i,
6339: p_encoded => FND_API.G_FALSE,
6338: p_msg_index => i,
6339: p_encoded => FND_API.G_FALSE,
6340: p_data => l_msg_data,
6341: p_msg_index_out => l_msg_index_out );
6342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6343: END LOOP;
6344: END IF;
6345: FND_MSG_PUB.Initialize;
6346: END IF;
6348: FND_MSG_PUB.Count_And_Get
6349: ( p_count => x_msg_count,
6350: p_data => x_msg_data,
6351: p_encoded => fnd_api.g_false);
6352: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6354: END IF;
6355:
6356: EXCEPTION
6349: ( p_count => x_msg_count,
6350: p_data => x_msg_data,
6351: p_encoded => fnd_api.g_false);
6352: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6354: END IF;
6355:
6356: EXCEPTION
6357: WHEN FND_API.G_EXC_ERROR THEN
6455: l_ship_line_instance get_ship_line_instance%ROWTYPE;
6456:
6457: BEGIN
6458:
6459: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6461: END IF;
6462:
6463: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6456:
6457: BEGIN
6458:
6459: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6461: END IF;
6462:
6463: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6459: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6461: END IF;
6462:
6463: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6465: END IF;
6466:
6467: --Retrieve the shipment line information. If data is not retrieved, then the osp_order_line_id is invalid.
6460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
6461: END IF;
6462:
6463: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_osp_order_line_id: '||p_osp_order_line_id);
6465: END IF;
6466:
6467: --Retrieve the shipment line information. If data is not retrieved, then the osp_order_line_id is invalid.
6468: OPEN get_order_details(p_osp_order_line_id);
6468: OPEN get_order_details(p_osp_order_line_id);
6469: FETCH get_order_details INTO l_get_order_details;
6470: IF (get_order_details%NOTFOUND) THEN
6471: CLOSE get_order_details;
6472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Order Line, Failed to retrieve order line/shipment information');
6474: END IF;
6475: return 'N';
6476: END IF;
6469: FETCH get_order_details INTO l_get_order_details;
6470: IF (get_order_details%NOTFOUND) THEN
6471: CLOSE get_order_details;
6472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Order Line, Failed to retrieve order line/shipment information');
6474: END IF;
6475: return 'N';
6476: END IF;
6477: CLOSE get_order_details;
6478:
6479: /*
6480: 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.
6481: */
6482: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6483: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'order_type_code -> ' ||l_get_order_details.order_type_code ||
6484: 'osp_header_status_code -> ' ||l_get_order_details.osp_header_status_code ||
6485: 'osp_line_status_code -> ' ||l_get_order_details.osp_line_status_code);
6486: END IF;
6479: /*
6480: 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.
6481: */
6482: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6483: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'order_type_code -> ' ||l_get_order_details.order_type_code ||
6484: 'osp_header_status_code -> ' ||l_get_order_details.osp_header_status_code ||
6485: 'osp_line_status_code -> ' ||l_get_order_details.osp_line_status_code);
6486: END IF;
6487:
6487:
6488: IF(l_get_order_details.order_type_code <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE OR
6489: l_get_order_details.osp_header_status_code = AHL_OSP_ORDERS_PVT.G_OSP_CLOSED_STATUS OR
6490: l_get_order_details.osp_line_status_code is not NULL) THEN
6491: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6492: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Osp Order Type or Status');
6493: END IF;
6494: return 'N';
6495: END IF;
6488: IF(l_get_order_details.order_type_code <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE OR
6489: l_get_order_details.osp_header_status_code = AHL_OSP_ORDERS_PVT.G_OSP_CLOSED_STATUS OR
6490: l_get_order_details.osp_line_status_code is not NULL) THEN
6491: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6492: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Osp Order Type or Status');
6493: END IF;
6494: return 'N';
6495: END IF;
6496:
6499: change for this order line.
6500: Return 'N' if, the quantity is not shipped yet.
6501: */
6502: IF(l_get_order_details.oe_ship_line_id is NULL OR l_get_order_details.shipped_quantity = 0) THEN
6503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Ship Line not present or is not valid to allow Part Number Change: '||
6505: ' oe_ship_line_id ->' ||l_get_order_details.oe_ship_line_id ||
6506: ' shipped_quantity ->' ||l_get_order_details.shipped_quantity) ;
6507: END IF;
6500: Return 'N' if, the quantity is not shipped yet.
6501: */
6502: IF(l_get_order_details.oe_ship_line_id is NULL OR l_get_order_details.shipped_quantity = 0) THEN
6503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Ship Line not present or is not valid to allow Part Number Change: '||
6505: ' oe_ship_line_id ->' ||l_get_order_details.oe_ship_line_id ||
6506: ' shipped_quantity ->' ||l_get_order_details.shipped_quantity) ;
6507: END IF;
6508: return 'N';
6512: Check that the return shipment line is 'Open'. Note that if the line is cancelled, we will allow the Part Number change.
6513: Return 'N' if the return line is already shipped.
6514: */
6515: IF(l_get_order_details.oe_return_line_id is NOT NULL AND l_get_order_details.returned_quantity > 0) THEN
6516: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Line already shipped'||
6518: ' oe_return_line_id ->' ||l_get_order_details.oe_return_line_id ||
6519: ' returned_quantity ->' ||l_get_order_details.returned_quantity ) ;
6520: END IF;
6513: Return 'N' if the return line is already shipped.
6514: */
6515: IF(l_get_order_details.oe_return_line_id is NOT NULL AND l_get_order_details.returned_quantity > 0) THEN
6516: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return Line already shipped'||
6518: ' oe_return_line_id ->' ||l_get_order_details.oe_return_line_id ||
6519: ' returned_quantity ->' ||l_get_order_details.returned_quantity ) ;
6520: END IF;
6521: return 'N';
6520: END IF;
6521: return 'N';
6522: END IF;
6523:
6524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Details as present on the osp order line: '||
6526: ' inventory_item_id ->' ||l_get_order_details.inventory_item_id ||
6527: ' inventory_org_id ->' ||l_get_order_details.inventory_org_id ||
6528: ' serial_number ->' ||l_get_order_details.serial_number) ;
6521: return 'N';
6522: END IF;
6523:
6524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Details as present on the osp order line: '||
6526: ' inventory_item_id ->' ||l_get_order_details.inventory_item_id ||
6527: ' inventory_org_id ->' ||l_get_order_details.inventory_org_id ||
6528: ' serial_number ->' ||l_get_order_details.serial_number) ;
6529: END IF;
6541: OPEN get_ship_line_instance(p_osp_order_line_id);
6542: FETCH get_ship_line_instance INTO l_ship_line_instance;
6543: IF (get_ship_line_instance%NOTFOUND) THEN
6544: CLOSE get_ship_line_instance;
6545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Failed to find instance details for the ship line');
6547: END IF;
6548: return 'N';
6549: END IF;
6542: FETCH get_ship_line_instance INTO l_ship_line_instance;
6543: IF (get_ship_line_instance%NOTFOUND) THEN
6544: CLOSE get_ship_line_instance;
6545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Failed to find instance details for the ship line');
6547: END IF;
6548: return 'N';
6549: END IF;
6550: CLOSE get_ship_line_instance;
6548: return 'N';
6549: END IF;
6550: CLOSE get_ship_line_instance;
6551:
6552: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6553: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipped instance attributes : '||
6554: ' inventory_item_id ->' ||l_ship_line_instance.inventory_item_id ||
6555: ' last_vld_organization_id ->' || l_ship_line_instance.last_vld_organization_id) ;
6556: END IF;
6549: END IF;
6550: CLOSE get_ship_line_instance;
6551:
6552: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6553: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Shipped instance attributes : '||
6554: ' inventory_item_id ->' ||l_ship_line_instance.inventory_item_id ||
6555: ' last_vld_organization_id ->' || l_ship_line_instance.last_vld_organization_id) ;
6556: END IF;
6557:
6560: OPEN get_inventory_flags(l_ship_line_instance.inventory_item_id,l_ship_line_instance.last_vld_organization_id );
6561: FETCH get_inventory_flags INTO l_serial_number_control_code, l_comms_nl_trackable_flag;
6562: IF (get_inventory_flags%NOTFOUND) THEN
6563: CLOSE get_inventory_flags;
6564: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item, Failed to retrieve item information');
6566: END IF;
6567: return 'N';
6568: END IF;
6561: FETCH get_inventory_flags INTO l_serial_number_control_code, l_comms_nl_trackable_flag;
6562: IF (get_inventory_flags%NOTFOUND) THEN
6563: CLOSE get_inventory_flags;
6564: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item, Failed to retrieve item information');
6566: END IF;
6567: return 'N';
6568: END IF;
6569: CLOSE get_inventory_flags;
6567: return 'N';
6568: END IF;
6569: CLOSE get_inventory_flags;
6570:
6571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp order line: Item Number flags : '||
6573: ' l_serial_number_control_code ->' || l_serial_number_control_code ||
6574: ' l_comms_nl_trackable_flag ->' || l_comms_nl_trackable_flag) ;
6575: END IF;
6568: END IF;
6569: CLOSE get_inventory_flags;
6570:
6571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'osp order line: Item Number flags : '||
6573: ' l_serial_number_control_code ->' || l_serial_number_control_code ||
6574: ' l_comms_nl_trackable_flag ->' || l_comms_nl_trackable_flag) ;
6575: END IF;
6576:
6575: END IF;
6576:
6577: --Item has to serial controlled and IB trackable
6578: IF (l_serial_number_control_code NOT IN (2,5,6) OR nvl(l_comms_nl_trackable_flag,'N') <> 'Y') THEN
6579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable');
6581: END IF;
6582: return 'N';
6583: END IF;
6576:
6577: --Item has to serial controlled and IB trackable
6578: IF (l_serial_number_control_code NOT IN (2,5,6) OR nvl(l_comms_nl_trackable_flag,'N') <> 'Y') THEN
6579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable');
6581: END IF;
6582: return 'N';
6583: END IF;
6584:
6581: END IF;
6582: return 'N';
6583: END IF;
6584:
6585: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6587: END IF;
6588:
6589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6582: return 'N';
6583: END IF;
6584:
6585: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6587: END IF;
6588:
6589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6585: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6587: END IF;
6588:
6589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6591: END IF;
6592:
6593: return 'Y';
6586: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returning Y');
6587: END IF;
6588:
6589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
6591: END IF;
6592:
6593: return 'Y';
6594:
6792: IF FND_API.To_Boolean(p_init_msg_list) THEN
6793: FND_MSG_PUB.Initialize;
6794: END IF;
6795:
6796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6797: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6798: END IF;
6799:
6800: --Dump the input parameters
6793: FND_MSG_PUB.Initialize;
6794: END IF;
6795:
6796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6797: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6798: END IF;
6799:
6800: --Dump the input parameters
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6797: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6798: END IF;
6799:
6800: --Dump the input parameters
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6802: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6803: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6804: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6805: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6798: END IF;
6799:
6800: --Dump the input parameters
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6802: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6803: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6804: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6805: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6806: END IF;
6799:
6800: --Dump the input parameters
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6802: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6803: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6804: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6805: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6806: END IF;
6807:
6800: --Dump the input parameters
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6802: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6803: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6804: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6805: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6806: END IF;
6807:
6808: --osp_order_line_id should not be null
6801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6802: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.osp_line_id -> '||p_serialnum_change_rec.osp_line_id);
6803: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.instance_id -> '||p_serialnum_change_rec.instance_id);
6804: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_item_number -> '||p_serialnum_change_rec.new_item_number);
6805: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,'p_serialnum_change_rec.new_serial_number -> '||p_serialnum_change_rec.new_serial_number);
6806: END IF;
6807:
6808: --osp_order_line_id should not be null
6809: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6869: RAISE FND_API.G_EXC_ERROR;
6870: END IF;
6871: CLOSE get_ship_line_instance;
6872:
6873: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ship_line_instance_id =>' ||l_ship_line_instance_id);
6875: END IF;
6876: IF (l_serialnum_change_rec.instance_id is NULL) THEN
6877: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6870: END IF;
6871: CLOSE get_ship_line_instance;
6872:
6873: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ship_line_instance_id =>' ||l_ship_line_instance_id);
6875: END IF;
6876: IF (l_serialnum_change_rec.instance_id is NULL) THEN
6877: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6878: ELSE
6895: FND_MSG_PUB.ADD;
6896: RAISE FND_API.G_EXC_ERROR;
6897: END IF;
6898:
6899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6901: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6902: END IF;
6903:
6896: RAISE FND_API.G_EXC_ERROR;
6897: END IF;
6898:
6899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6901: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6902: END IF;
6903:
6904: /*
6897: END IF;
6898:
6899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6901: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>' ||l_instance_dtls_rec.serial_number);
6902: END IF;
6903:
6904: /*
6905: --If the l_new_inventory_item_id is null, it means that we are using the older part number itself and new serial number.
6915: ELSE
6916: l_organization_id := l_osp_order_line_dtls.inventory_org_id;
6917: END IF;
6918:
6919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6921: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6922: END IF;
6923:
6916: l_organization_id := l_osp_order_line_dtls.inventory_org_id;
6917: END IF;
6918:
6919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6921: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6922: END IF;
6923:
6924: --------------------------------------------
6917: END IF;
6918:
6919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_organization_id =>' ||l_organization_id);
6921: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'oe_return_line_id =>' ||l_osp_order_line_dtls.oe_return_line_id);
6922: END IF;
6923:
6924: --------------------------------------------
6925: -- Convert meaning to lookup code
6958: CLOSE mtl_system_items_csr;
6959:
6960: --Item has to serial controlled and IB trackable
6961: 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
6962: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable '||
6964: ' 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 );
6965: END IF;
6966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6959:
6960: --Item has to serial controlled and IB trackable
6961: 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
6962: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6963: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Invalid Item: Has to be serial controlled and IB trackable '||
6964: ' 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 );
6965: END IF;
6966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6967: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6977: l_serialnum_change_rec.New_Serial_Tag_Code,
6978: l_mtl_system_items_rec.concatenated_segments);
6979:
6980: IF FND_MSG_PUB.count_msg > 0 THEN
6981: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6983: END IF;
6984: RAISE FND_API.G_EXC_ERROR;
6985: END IF;
6978: l_mtl_system_items_rec.concatenated_segments);
6979:
6980: IF FND_MSG_PUB.count_msg > 0 THEN
6981: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6983: END IF;
6984: RAISE FND_API.G_EXC_ERROR;
6985: END IF;
6986:
6998: ELSE
6999: l_serial_tag_code := l_attribute_value;
7000: END IF;
7001:
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
7004: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
7005: END IF;
7006:
6999: l_serial_tag_code := l_attribute_value;
7000: END IF;
7001:
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
7004: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
7005: END IF;
7006:
7007: -----------------------------------------------------------------------------------------
7000: END IF;
7001:
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>'||l_serial_tag_code);
7004: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_rec_found =>'||l_serial_tag_rec_found);
7005: END IF;
7006:
7007: -----------------------------------------------------------------------------------------
7008: -- Delete/Cancel the Return Shipment Line and/or the IB installation details
7013: --Whether its part number or serial number change, collect the lot serial record.
7014: OPEN ahl_oe_lot_serial_id (l_osp_order_line_dtls.oe_return_line_id);
7015: FETCH ahl_oe_lot_serial_id INTO l_lot_serial_id;
7016: IF (ahl_oe_lot_serial_id%FOUND) THEN
7017: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7018: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_lot_serial_id=>'||l_lot_serial_id);
7019: END IF;
7020: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
7021: END IF;
7014: OPEN ahl_oe_lot_serial_id (l_osp_order_line_dtls.oe_return_line_id);
7015: FETCH ahl_oe_lot_serial_id INTO l_lot_serial_id;
7016: IF (ahl_oe_lot_serial_id%FOUND) THEN
7017: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7018: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_lot_serial_id=>'||l_lot_serial_id);
7019: END IF;
7020: OE_LOT_SERIAL_UTIL.Query_Row(p_lot_serial_id => l_lot_serial_id, x_lot_serial_rec =>l_oe_lot_serial_rec);
7021: END IF;
7022: -- Missed CLOSE statement added by jaramana on 12-APR-2010
7021: END IF;
7022: -- Missed CLOSE statement added by jaramana on 12-APR-2010
7023: CLOSE ahl_oe_lot_serial_id;
7024:
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7022: -- Missed CLOSE statement added by jaramana on 12-APR-2010
7023: CLOSE ahl_oe_lot_serial_id;
7024:
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7023: CLOSE ahl_oe_lot_serial_id;
7024:
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7024:
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7025: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7033: 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);
7026: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7033: 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);
7034: END IF;
7027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>'||l_instance_dtls_rec.inventory_item_id);
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7033: 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);
7034: END IF;
7035:
7028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.serial_number =>'||l_instance_dtls_rec.serial_number);
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7033: 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);
7034: END IF;
7035:
7036: --If it is only a serial number change, just delete the IB transation.
7029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_serial_number =>'||l_serialnum_change_rec.new_serial_number);
7030: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.lot_number =>'||l_instance_dtls_rec.lot_number);
7031: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serialnum_change_rec.new_lot_number =>'||l_serialnum_change_rec.new_lot_number);
7032: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_revision =>'||l_instance_dtls_rec.inventory_revision);
7033: 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);
7034: END IF;
7035:
7036: --If it is only a serial number change, just delete the IB transation.
7037: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
7042: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
7043:
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7045: l_serial_num_changed := 'Y';
7046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
7048: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
7049: END IF;
7050: Delete_IB_Transaction(
7043:
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7045: l_serial_num_changed := 'Y';
7046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
7048: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
7049: END IF;
7050: Delete_IB_Transaction(
7051: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7045: l_serial_num_changed := 'Y';
7046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
7048: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
7049: END IF;
7050: Delete_IB_Transaction(
7051: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7052: p_commit => FND_API.G_FALSE,
7055: x_msg_count => x_msg_count,
7056: x_msg_data => x_msg_data,
7057: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id);
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, 'After calling Delete_IB_Transaction: 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_data => x_msg_data,
7057: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id);
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, 'After calling Delete_IB_Transaction: 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
7071: IF((l_serial_tag_rec_found = 'Y') AND
7072: ((l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NULL) OR
7073: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7074: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7077: 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);
7078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7079: END IF;
7072: ((l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NULL) OR
7073: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7074: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7077: 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);
7078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7079: END IF;
7080: RETURN;
7073: (l_serial_tag_code IS NOT NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND
7074: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7077: 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);
7078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7079: END IF;
7080: RETURN;
7081: END IF;
7074: l_serial_tag_code = l_serialnum_change_rec.New_Serial_Tag_Code))) THEN
7075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'None of the attributes are changed. Hence Returning');
7077: 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);
7078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_tag_code =>' || l_serial_tag_code);
7079: END IF;
7080: RETURN;
7081: END IF;
7082: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7081: END IF;
7082: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7083: ELSE --Items are different, need to cancel the current line.
7084:
7085: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7088: END IF;
7089: l_part_num_changed := 'Y';
7082: END IF;--IF(l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number)
7083: ELSE --Items are different, need to cancel the current line.
7084:
7085: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7088: END IF;
7089: l_part_num_changed := 'Y';
7090:
7083: ELSE --Items are different, need to cancel the current line.
7084:
7085: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Number has been Changed');
7087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
7088: END IF;
7089: l_part_num_changed := 'Y';
7090:
7091: --Save the OE Return Line information, before deletion
7089: l_part_num_changed := 'Y';
7090:
7091: --Save the OE Return Line information, before deletion
7092: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => l_osp_order_line_dtls.oe_return_line_id);
7093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
7095: END IF;
7096:
7097: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7090:
7091: --Save the OE Return Line information, before deletion
7092: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => l_osp_order_line_dtls.oe_return_line_id);
7093: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
7095: END IF;
7096:
7097: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7098: Delete_Cancel_Order (
7105: x_return_status => x_return_status ,
7106: x_msg_count => x_msg_count ,
7107: x_msg_data => x_msg_data
7108: );
7109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7106: x_msg_count => x_msg_count ,
7107: x_msg_data => x_msg_data
7108: );
7109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7114: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7229: -----------------------------------------------------------------------------------------
7230: -- Update the Part Number/Serial Number using IB apis -- End
7231: -----------------------------------------------------------------------------------------
7232:
7233: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7236: END IF;
7237:
7230: -- Update the Part Number/Serial Number using IB apis -- End
7231: -----------------------------------------------------------------------------------------
7232:
7233: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7236: END IF;
7237:
7238: ----------------------------------------------------------------------------------------------
7231: -----------------------------------------------------------------------------------------
7232:
7233: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_part_num_changed =>' ||l_part_num_changed);
7235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_serial_num_changed =>' ||l_serial_num_changed);
7236: END IF;
7237:
7238: ----------------------------------------------------------------------------------------------
7239: -- Create the Return Line/IB Transaction and associate the return line with the Osp Order Line
7275: l_oe_lot_serial_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
7276: l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7277: END IF;
7278:
7279: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7280: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
7281: END IF;
7282:
7283: OE_ORDER_GRP.PROCESS_ORDER(
7276: l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7277: END IF;
7278:
7279: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7280: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
7281: END IF;
7282:
7283: OE_ORDER_GRP.PROCESS_ORDER(
7284: p_api_version_number => 1.0,
7318: IF(l_part_num_changed = 'Y') THEN
7319: l_osp_order_line_dtls.oe_return_line_id := x_line_tbl(1).line_id;
7320: END IF;
7321:
7322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7324: 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);
7325: END IF;
7326:
7319: l_osp_order_line_dtls.oe_return_line_id := x_line_tbl(1).line_id;
7320: END IF;
7321:
7322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7324: 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);
7325: END IF;
7326:
7327: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7320: END IF;
7321:
7322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7324: 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);
7325: END IF;
7326:
7327: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7328: FOR i IN 1..x_msg_count LOOP
7332: p_msg_index_out => l_msg_index_out);
7333: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7334: p_procedure_name => 'processOrder',
7335: p_error_text => substr(l_msg_data,1,240));
7336: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7338: END IF;
7339:
7340: END LOOP;
7333: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7334: p_procedure_name => 'processOrder',
7335: p_error_text => substr(l_msg_data,1,240));
7336: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7338: END IF;
7339:
7340: END LOOP;
7341: END IF;
7346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7347: END IF;
7348:
7349:
7350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction');
7352: END IF;
7353:
7354: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7347: END IF;
7348:
7349:
7350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction');
7352: END IF;
7353:
7354: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7355: Create_IB_Transaction(
7363: p_oe_line_type => 'RETURN',
7364: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id,
7365: p_csi_instance_id => l_serialnum_change_rec.instance_id);
7366:
7367: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7368: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7369: END IF;
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7364: p_oe_line_id => l_osp_order_line_dtls.oe_return_line_id,
7365: p_csi_instance_id => l_serialnum_change_rec.instance_id);
7366:
7367: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7368: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7369: END IF;
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7372: RAISE FND_API.G_EXC_ERROR;
7383: Even if a part number change has been done before, it would have been anyway applicable to all the
7384: order lines. So this logic of looking at the old item/serial numbers should be sufficient to retrieve all
7385: the order lines having the same physical item.
7386: */
7387: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7388: 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);
7389: END IF;
7390:
7391: --Only if a new return line has been created, update the osp order lines with the oe_return_line_id.
7384: order lines. So this logic of looking at the old item/serial numbers should be sufficient to retrieve all
7385: the order lines having the same physical item.
7386: */
7387: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7388: 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);
7389: END IF;
7390:
7391: --Only if a new return line has been created, update the osp order lines with the oe_return_line_id.
7392: IF(l_part_num_changed = 'Y') THEN
7393: OPEN get_same_phyitem_order_lines(l_serialnum_change_rec.osp_line_id);
7394: LOOP
7395: FETCH get_same_phyitem_order_lines INTO l_order_line_id;
7396: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
7397: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7398: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_order_line_id: ' || l_order_line_id);
7399: END IF;
7400: Update_OSP_Order_Lines(
7401: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7394: LOOP
7395: FETCH get_same_phyitem_order_lines INTO l_order_line_id;
7396: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
7397: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7398: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_order_line_id: ' || l_order_line_id);
7399: END IF;
7400: Update_OSP_Order_Lines(
7401: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7402: p_osp_line_id => l_order_line_id,
7412: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7413: COMMIT;
7414: END IF;
7415:
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7418: END IF;
7419:
7420: FND_MSG_PUB.Count_And_Get
7413: COMMIT;
7414: END IF;
7415:
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7418: END IF;
7419:
7420: FND_MSG_PUB.Count_And_Get
7421: ( p_count => x_msg_count,
7421: ( p_count => x_msg_count,
7422: p_data => x_msg_data,
7423: p_encoded => fnd_api.g_false);
7424:
7425: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7426: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7427: END IF;
7428:
7429: EXCEPTION
7422: p_data => x_msg_data,
7423: p_encoded => fnd_api.g_false);
7424:
7425: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7426: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7427: END IF;
7428:
7429: EXCEPTION
7430: WHEN FND_API.G_EXC_ERROR THEN