[Home] [Help]
56:
57: BEGIN
58:
59: -- Standard Beginning of Procedure/Function Logging
60: INL_LOGGING_PVT.Log_BeginProc (
61: p_module_name => g_module_name,
62: p_procedure_name => l_api_name);
63:
64: -- Standard Start of API savepoint
88: l_current_organization_id := -9999;
89: l_current_location_id := - 9999;
90: FOR i IN 1..p_lci_table.COUNT LOOP
91:
92: INL_LOGGING_PVT.Log_Variable (
93: p_module_name => g_module_name,
94: p_procedure_name => l_api_name,
95: p_var_name => 'p_lci_table('||i||').shipment_header_id',
96: p_var_value => p_lci_table(i).shipment_header_id);
93: p_module_name => g_module_name,
94: p_procedure_name => l_api_name,
95: p_var_name => 'p_lci_table('||i||').shipment_header_id',
96: p_var_value => p_lci_table(i).shipment_header_id);
97: INL_LOGGING_PVT.Log_Variable (
98: p_module_name => g_module_name,
99: p_procedure_name => l_api_name,
100: p_var_name => 'p_lci_table('||i||').header_interface_id',
101: p_var_value => p_lci_table(i).header_interface_id);
100: p_var_name => 'p_lci_table('||i||').header_interface_id',
101: p_var_value => p_lci_table(i).header_interface_id);
102:
103: IF NVL(p_lci_table(i).shipment_header_id,p_lci_table(i).header_interface_id) = -9999 THEN --Bug#9737425
104: INL_LOGGING_PVT.Log_Statement (
105: p_module_name => g_module_name,
106: p_procedure_name => l_api_name,
107: p_debug_info => 'Record ignored' );
108: ELSE --Bug#8971617
106: p_procedure_name => l_api_name,
107: p_debug_info => 'Record ignored' );
108: ELSE --Bug#8971617
109:
110: INL_LOGGING_PVT.Log_Variable (
111: p_module_name => g_module_name,
112: p_procedure_name => l_api_name,
113: p_var_name => 'l_current_location_id',
114: p_var_value => l_current_location_id);
112: p_procedure_name => l_api_name,
113: p_var_name => 'l_current_location_id',
114: p_var_value => l_current_location_id);
115:
116: INL_LOGGING_PVT.Log_Variable (
117: p_module_name => g_module_name,
118: p_procedure_name => l_api_name,
119: p_var_name => 'p_lci_table(i).location_id',
120: p_var_value => p_lci_table(i).location_id);
130: FROM dual;
131:
132: p_lci_table(i).group_id := l_group_id; -- Bug#9279355
133:
134: INL_LOGGING_PVT.Log_Variable (
135: p_module_name => g_module_name,
136: p_procedure_name => l_api_name,
137: p_var_name => 'l_ship_header_int_id',
138: p_var_value => l_ship_header_int_id);
136: p_procedure_name => l_api_name,
137: p_var_name => 'l_ship_header_int_id',
138: p_var_value => l_ship_header_int_id);
139:
140: INL_LOGGING_PVT.Log_Variable (
141: p_module_name => g_module_name,
142: p_procedure_name => l_api_name,
143: p_var_name => 'l_group_id',
144: p_var_value => l_group_id);
142: p_procedure_name => l_api_name,
143: p_var_name => 'l_group_id',
144: p_var_value => l_group_id);
145:
146: INL_LOGGING_PVT.Log_Statement (
147: p_module_name => g_module_name,
148: p_procedure_name => l_api_name,
149: p_debug_info => 'Inserting into inl_ship_headers_int' );
150:
221: SELECT INL_SHIP_LINES_INT_S.nextval
222: INTO l_ship_line_int_id
223: FROM dual;
224:
225: INL_LOGGING_PVT.Log_Variable (
226: p_module_name => g_module_name,
227: p_procedure_name => l_api_name,
228: p_var_name => 'l_ship_line_int_id',
229: p_var_value => l_ship_line_int_id);
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400:
401: -- Standard End of Procedure/Function Logging
402: INL_LOGGING_PVT.Log_EndProc (
403: p_module_name => g_module_name,
404: p_procedure_name => l_api_name);
405:
406: EXCEPTION
405:
406: EXCEPTION
407: WHEN FND_API.G_EXC_ERROR THEN
408: -- Standard Expected Error Logging
409: INL_LOGGING_PVT.Log_ExpecError (
410: p_module_name => g_module_name,
411: p_procedure_name => l_api_name);
412: ROLLBACK TO Insert_LCMInterface_GRP;
413: x_return_status := FND_API.G_RET_STS_ERROR;
416: p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: -- Standard Unexpected Error Logging
420: INL_LOGGING_PVT.Log_UnexpecError (
421: p_module_name => g_module_name,
422: p_procedure_name => l_api_name);
423: ROLLBACK TO Insert_LCMInterface_GRP;
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: p_count => x_msg_count,
428: p_data => x_msg_data);
429: WHEN OTHERS THEN
430: -- Standard Unexpected Error Logging
431: INL_LOGGING_PVT.Log_UnexpecError (
432: p_module_name => g_module_name,
433: p_procedure_name => l_api_name);
434: ROLLBACK TO Insert_LCMInterface_GRP;
435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520:
521: BEGIN
522:
523: -- Standard Beginning of Procedure/Function Logging
524: INL_LOGGING_PVT.Log_BeginProc (
525: p_module_name => g_module_name,
526: p_procedure_name => l_proc_name);
527:
528: -- Initialize message list IF p_init_msg_list is SET to TRUE.
533: -- Initialize API return status to success
534: x_return_status := FND_API.G_RET_STS_SUCCESS;
535:
536:
537: INL_LOGGING_PVT.Log_Variable (
538: p_module_name => g_module_name,
539: p_procedure_name => l_proc_name,
540: p_var_name => 'p_int_rec.COUNT',
541: p_var_value => p_int_rec.COUNT);
541: p_var_value => p_int_rec.COUNT);
542:
543: --Bug#10381495
544: l_current_org_id := NVL(l_previous_org_id,-999);
545: INL_LOGGING_PVT.Log_Variable(
546: p_module_name => g_module_name,
547: p_procedure_name => l_proc_name,
548: p_var_name => 'l_current_org_id',
549: p_var_value => l_current_org_id
550: ) ;
551: --Bug#10381495
552:
553:
554: INL_LOGGING_PVT.Log_Statement (
555: p_module_name => g_module_name,
556: p_procedure_name => l_proc_name,
557: p_debug_info => 'Get value from profile INL_SHIP_TYPE_ID_OI' );
558:
557: p_debug_info => 'Get value from profile INL_SHIP_TYPE_ID_OI' );
558:
559: l_ship_type_id := NVL(FND_PROFILE.VALUE('INL_SHIP_TYPE_ID_OI'),0);
560:
561: INL_LOGGING_PVT.Log_Variable (
562: p_module_name => g_module_name,
563: p_procedure_name => l_proc_name,
564: p_var_name => 'l_ship_type_id',
565: p_var_value => l_ship_type_id );
588: -- should be removed from memory table
589:
590: --Bug#10381495
591: IF (p_int_rec(i).org_id <> l_current_org_id) THEN
592: INL_LOGGING_PVT.Log_Statement(
593: p_module_name => g_module_name,
594: p_procedure_name => l_proc_name,
595: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||p_int_rec(i).org_id
596: );
595: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||p_int_rec(i).org_id
596: );
597: l_current_org_id:=p_int_rec(i).org_id;
598: mo_global.set_policy_context( 'S', l_current_org_id);
599: INL_LOGGING_PVT.Log_Statement(
600: p_module_name => g_module_name,
601: p_procedure_name => l_proc_name,
602: p_debug_info => 'l_current_org_id: '||l_current_org_id
603: );
610: IF l_source_document_code = 'REQ' THEN
611: l_source_document_code := 'IR';
612: END IF;
613:
614: INL_LOGGING_PVT.Log_Variable (
615: p_module_name => g_module_name,
616: p_procedure_name => l_proc_name,
617: p_var_name => 'p_int_rec(i).shipment_header_id',
618: p_var_value => p_int_rec(i).shipment_header_id);
616: p_procedure_name => l_proc_name,
617: p_var_name => 'p_int_rec(i).shipment_header_id',
618: p_var_value => p_int_rec(i).shipment_header_id);
619:
620: INL_LOGGING_PVT.Log_Variable (
621: p_module_name => g_module_name,
622: p_procedure_name => l_proc_name,
623: p_var_name => 'p_int_rec(i).header_interface_id',
624: p_var_value => p_int_rec(i).header_interface_id);
622: p_procedure_name => l_proc_name,
623: p_var_name => 'p_int_rec(i).header_interface_id',
624: p_var_value => p_int_rec(i).header_interface_id);
625:
626: INL_LOGGING_PVT.Log_Statement (
627: p_module_name => g_module_name,
628: p_procedure_name => l_proc_name,
629: p_debug_info => 'Get RCV_SHIPMENT_HEADERS info.');
630:
650: shipment_header_id = p_int_rec(i).shipment_header_id;
651:
652: -- BUG #8235596
653:
654: INL_LOGGING_PVT.Log_Variable (
655: p_module_name => g_module_name,
656: p_procedure_name => l_proc_name,
657: p_var_name => 'l_ship_to_org_id',
658: p_var_value => l_ship_to_org_id );
656: p_procedure_name => l_proc_name,
657: p_var_name => 'l_ship_to_org_id',
658: p_var_value => l_ship_to_org_id );
659:
660: INL_LOGGING_PVT.Log_Variable (
661: p_module_name => g_module_name,
662: p_procedure_name => l_proc_name,
663: p_var_name => 'l_ship_to_location_id',
664: p_var_value => l_ship_to_location_id );
662: p_procedure_name => l_proc_name,
663: p_var_name => 'l_ship_to_location_id',
664: p_var_value => l_ship_to_location_id );
665:
666: INL_LOGGING_PVT.Log_Variable (
667: p_module_name => g_module_name,
668: p_procedure_name => l_proc_name,
669: p_var_name => 'l_receipt_num',
670: p_var_value => l_receipt_num );
668: p_procedure_name => l_proc_name,
669: p_var_name => 'l_receipt_num',
670: p_var_value => l_receipt_num );
671:
672: INL_LOGGING_PVT.Log_Variable (
673: p_module_name => g_module_name,
674: p_procedure_name => l_proc_name,
675: p_var_name => 'l_vendor_id',
676: p_var_value => l_vendor_id );
674: p_procedure_name => l_proc_name,
675: p_var_name => 'l_vendor_id',
676: p_var_value => l_vendor_id );
677:
678: INL_LOGGING_PVT.Log_Variable (
679: p_module_name => g_module_name,
680: p_procedure_name => l_proc_name,
681: p_var_name => 'l_vendor_site_id',
682: p_var_value => l_vendor_site_id );
680: p_procedure_name => l_proc_name,
681: p_var_name => 'l_vendor_site_id',
682: p_var_value => l_vendor_site_id );
683:
684: INL_LOGGING_PVT.Log_Variable (
685: p_module_name => g_module_name,
686: p_procedure_name => l_proc_name,
687: p_var_name => 'l_customer_id',
688: p_var_value => l_customer_id );
690: IF(l_receipt_num IS NULL AND p_int_rec(i).header_interface_id IS NOT NULL) THEN
691:
692: -- If receipt num is NULL get it from rcv_headers_interface
693: l_debug_msg := 'Receipt num is NULL get it from rcv_headers_interface';
694: INL_LOGGING_PVT.Log_Statement (
695: p_module_name => g_module_name,
696: p_procedure_name => l_proc_name,
697: p_debug_info => l_debug_msg);
698:
700: INTO l_receipt_num
701: FROM rcv_headers_interface rhi
702: WHERE header_interface_id = p_int_rec(i).header_interface_id;
703:
704: INL_LOGGING_PVT.Log_Variable (
705: p_module_name => g_module_name,
706: p_procedure_name => l_proc_name,
707: p_var_name => 'l_receipt_num',
708: p_var_value => l_receipt_num );
730: END IF;
731:
732: l_curr_vendor_site_id := l_vendor_site_id; --Bug#8820297
733:
734: INL_LOGGING_PVT.Log_Variable (
735: p_module_name => g_module_name,
736: p_procedure_name => l_proc_name,
737: p_var_name => 'l_ship_to_org_id',
738: p_var_value => l_ship_to_org_id);
736: p_procedure_name => l_proc_name,
737: p_var_name => 'l_ship_to_org_id',
738: p_var_value => l_ship_to_org_id);
739:
740: INL_LOGGING_PVT.Log_Variable (
741: p_module_name => g_module_name,
742: p_procedure_name => l_proc_name,
743: p_var_name => 'l_ship_to_location_id',
744: p_var_value => l_ship_to_location_id );
742: p_procedure_name => l_proc_name,
743: p_var_name => 'l_ship_to_location_id',
744: p_var_value => l_ship_to_location_id );
745:
746: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
747: p_procedure_name => l_proc_name,
748: p_var_name => 'l_receipt_num',
749: p_var_value => l_receipt_num);
750:
747: p_procedure_name => l_proc_name,
748: p_var_name => 'l_receipt_num',
749: p_var_value => l_receipt_num);
750:
751: INL_LOGGING_PVT.Log_Variable (
752: p_module_name => g_module_name,
753: p_procedure_name => l_proc_name,
754: p_var_name => 'l_vendor_id',
755: p_var_value => l_vendor_id);
753: p_procedure_name => l_proc_name,
754: p_var_name => 'l_vendor_id',
755: p_var_value => l_vendor_id);
756:
757: INL_LOGGING_PVT.Log_Variable (
758: p_module_name => g_module_name,
759: p_procedure_name => l_proc_name,
760: p_var_name => 'l_vendor_site_id',
761: p_var_value => l_vendor_site_id);
759: p_procedure_name => l_proc_name,
760: p_var_name => 'l_vendor_site_id',
761: p_var_value => l_vendor_site_id);
762:
763: INL_LOGGING_PVT.Log_Variable (
764: p_module_name => g_module_name,
765: p_procedure_name => l_proc_name,
766: p_var_name => 'l_customer_id',
767: p_var_value => l_customer_id);
765: p_procedure_name => l_proc_name,
766: p_var_name => 'l_customer_id',
767: p_var_value => l_customer_id);
768:
769: INL_LOGGING_PVT.Log_Statement (
770: p_module_name => g_module_name,
771: p_procedure_name => l_proc_name,
772: p_debug_info => 'Get Operating Unit Id');
773: SELECT operating_unit, organization_name
774: INTO l_org_id, l_ship_to_org_name
775: FROM org_organization_definitions
776: WHERE organization_id = l_ship_to_org_id;
777:
778: INL_LOGGING_PVT.Log_Variable (
779: p_module_name => g_module_name,
780: p_procedure_name => l_proc_name,
781: p_var_name => 'l_org_id',
782: p_var_value => l_org_id);
780: p_procedure_name => l_proc_name,
781: p_var_name => 'l_org_id',
782: p_var_value => l_org_id);
783:
784: INL_LOGGING_PVT.Log_Statement (
785: p_module_name => g_module_name,
786: p_procedure_name => l_proc_name,
787: p_debug_info => 'Check if the Ship To Organization has been setup in LCM Options');
788:
795: -- Bug #8418356
796: -- Check whether the current organization has
797: -- been defined in LCM Parameters.
798: WHEN OTHERS THEN
799: INL_LOGGING_PVT.Log_Statement (
800: p_module_name => g_module_name,
801: p_procedure_name => l_proc_name,
802: p_debug_info => 'Ship To Organization has not been setup in LCM Options');
803:
813: l_ship_num := l_receipt_num;
814: END IF;
815:
816: IF l_source_document_code = 'PO' THEN
817: INL_LOGGING_PVT.Log_Statement (
818: p_module_name => g_module_name,
819: p_procedure_name => l_proc_name,
820: p_debug_info => 'Get Party Id from PO_VENDORS');
821:
823: INTO l_party_id
824: FROM po_vendors
825: WHERE vendor_id = l_vendor_id;
826: ELSIF l_source_document_code = 'RMA' THEN
827: INL_LOGGING_PVT.Log_Statement (
828: p_module_name => g_module_name,
829: p_procedure_name => l_proc_name,
830: p_debug_info => 'Get Party Id from hz_customer_party_find_v');
831:
834: FROM hz_customer_party_find_v
835: WHERE customer_id = l_customer_id;
836: END IF;
837:
838: INL_LOGGING_PVT.Log_Variable (
839: p_module_name => g_module_name,
840: p_procedure_name => l_proc_name,
841: p_var_name => 'l_party_id',
842: p_var_value => l_party_id);
840: p_procedure_name => l_proc_name,
841: p_var_name => 'l_party_id',
842: p_var_value => l_party_id);
843:
844: INL_LOGGING_PVT.Log_Statement (
845: p_module_name => g_module_name,
846: p_procedure_name => l_proc_name,
847: p_debug_info => 'Get Taxation Country');
848:
870: WHERE hl.location_id = hou.location_id
871: AND hl.receiving_site_flag = 'Y'
872: AND hou.organization_id = l_ship_to_org_id;
873: */
874: INL_LOGGING_PVT.Log_Variable (
875: p_module_name => g_module_name,
876: p_procedure_name => l_proc_name,
877: p_var_name => 'l_ship_to_location_code',
878: p_var_value => l_ship_to_location_code);
876: p_procedure_name => l_proc_name,
877: p_var_name => 'l_ship_to_location_code',
878: p_var_value => l_ship_to_location_code);
879:
880: INL_LOGGING_PVT.Log_Variable (
881: p_module_name => g_module_name,
882: p_procedure_name => l_proc_name,
883: p_var_name => 'l_taxation_country',
884: p_var_value => l_taxation_country);
891: FND_MSG_PUB.ADD;
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895: INL_LOGGING_PVT.Log_Statement (
896: p_module_name => g_module_name,
897: p_procedure_name => l_proc_name,
898: p_debug_info => 'Get Legal Entity and functional Currency Code');
899:
906: gl_sets_of_books gl
907: WHERE gl.set_of_books_id = hou.set_of_books_id
908: AND hou.organization_id = l_org_id;
909:
910: INL_LOGGING_PVT.Log_Variable (
911: p_module_name => g_module_name,
912: p_procedure_name => l_proc_name,
913: p_var_name => 'l_legal_entity_id',
914: p_var_value => l_legal_entity_id);
911: p_module_name => g_module_name,
912: p_procedure_name => l_proc_name,
913: p_var_name => 'l_legal_entity_id',
914: p_var_value => l_legal_entity_id);
915: INL_LOGGING_PVT.Log_Variable (
916: p_module_name => g_module_name,
917: p_procedure_name => l_proc_name,
918: p_var_name => 'l_ship_header_int_id',
919: p_var_value => l_ship_header_int_id);
916: p_module_name => g_module_name,
917: p_procedure_name => l_proc_name,
918: p_var_name => 'l_ship_header_int_id',
919: p_var_value => l_ship_header_int_id);
920: INL_LOGGING_PVT.Log_Variable (
921: p_module_name => g_module_name,
922: p_procedure_name => l_proc_name,
923: p_var_name => 'l_group_id',
924: p_var_value => l_group_id);
921: p_module_name => g_module_name,
922: p_procedure_name => l_proc_name,
923: p_var_name => 'l_group_id',
924: p_var_value => l_group_id);
925: INL_LOGGING_PVT.Log_Statement (
926: p_module_name => g_module_name,
927: p_procedure_name => l_proc_name,
928: p_debug_info => 'Insert into inl_ship_headers_int table');
929:
952: l_lci_table(l_ind_lci).taxation_country := l_taxation_country;
953: l_lci_table(l_ind_lci).last_task_code := 60;
954:
955: IF l_source_document_code = 'PO' THEN
956: INL_LOGGING_PVT.Log_Variable (
957: p_module_name => g_module_name,
958: p_procedure_name => l_proc_name,
959: p_var_name => 'l_vendor_site_id',
960: p_var_value => l_vendor_site_id );
964: WHERE pvs.vendor_site_id = l_vendor_site_id
965: AND pvs.org_id = p_int_rec(i).org_id;
966: END IF;
967:
968: INL_LOGGING_PVT.Log_Variable (
969: p_module_name => g_module_name,
970: p_procedure_name => l_proc_name,
971: p_var_name => 'l_party_site_id',
972: p_var_value => l_party_site_id );
970: p_procedure_name => l_proc_name,
971: p_var_name => 'l_party_site_id',
972: p_var_value => l_party_site_id );
973:
974: INL_LOGGING_PVT.Log_Statement (
975: p_module_name => g_module_name,
976: p_procedure_name => l_proc_name,
977: p_debug_info => 'Get value to INL_SHIP_LINE_TYPE_ID');
978:
982: WHERE parent_table_name = 'INL_SHIP_TYPES'
983: AND parent_table_id = l_ship_type_id
984: AND dflt_ship_line_type_flag='Y';
985:
986: INL_LOGGING_PVT.Log_Variable (
987: p_module_name => g_module_name,
988: p_procedure_name => l_proc_name,
989: p_var_name => 'l_ship_line_type_id',
990: p_var_value => l_ship_line_type_id);
988: p_procedure_name => l_proc_name,
989: p_var_name => 'l_ship_line_type_id',
990: p_var_value => l_ship_line_type_id);
991:
992: INL_LOGGING_PVT.Log_Variable (
993: p_module_name => g_module_name,
994: p_procedure_name => l_proc_name,
995: p_var_name => 'l_source_document_code',
996: p_var_value => l_source_document_code);
995: p_var_name => 'l_source_document_code',
996: p_var_value => l_source_document_code);
997:
998: IF l_source_document_code = 'PO' THEN
999: INL_LOGGING_PVT.Log_Statement (
1000: p_module_name => g_module_name,
1001: p_procedure_name => l_proc_name,
1002: p_debug_info => 'Get values from zx_lines_det_factors and po_line_locations_all');
1003:
1053: END IF;
1054: --Bug#9884458
1055: ELSIF l_source_document_code = 'IR' THEN
1056:
1057: INL_LOGGING_PVT.Log_Variable (
1058: p_module_name => g_module_name,
1059: p_procedure_name => l_proc_name,
1060: p_var_name => 'p_int_rec(i).requisition_line_id',
1061: p_var_value => p_int_rec(i).requisition_line_id);
1059: p_procedure_name => l_proc_name,
1060: p_var_name => 'p_int_rec(i).requisition_line_id',
1061: p_var_value => p_int_rec(i).requisition_line_id);
1062:
1063: INL_LOGGING_PVT.Log_Statement (
1064: p_module_name => g_module_name,
1065: p_procedure_name => l_proc_name,
1066: p_debug_info => 'Get value to shipment_line_id');
1067:
1071: WHERE requisition_line_id = p_int_rec(i).requisition_line_id;
1072:
1073: l_src_organization_id := p_int_rec(i).from_organization_id;
1074:
1075: INL_LOGGING_PVT.Log_Statement (
1076: p_module_name => g_module_name,
1077: p_procedure_name => l_proc_name,
1078: p_debug_info => 'Get value to unit price');
1079:
1103: l_sec_uom_code := p_int_rec(i).secondary_uom_code;
1104: IF l_sec_uom_code IS NULL AND
1105: p_int_rec(i).secondary_unit_of_measure IS NOT NULL THEN
1106:
1107: INL_LOGGING_PVT.Log_Statement (
1108: p_module_name => g_module_name,
1109: p_procedure_name => l_proc_name,
1110: p_debug_info => 'Get secondary_uom_code from secondary_unit_of_measure');
1111:
1120: IF l_sec_uom_code IS NOT NULL AND
1121: p_int_rec(i).secondary_quantity IS NOT NULL AND
1122: p_int_rec(i).secondary_quantity <> 0 THEN
1123:
1124: INL_LOGGING_PVT.Log_Statement (
1125: p_module_name => g_module_name,
1126: p_procedure_name => l_proc_name,
1127: p_debug_info => 'Get the secondary unit price');
1128:
1127: p_debug_info => 'Get the secondary unit price');
1128:
1129: l_sec_unit_price := (p_int_rec(i).quantity * l_txn_unit_price) / p_int_rec(i).secondary_quantity;
1130:
1131: INL_LOGGING_PVT.Log_Variable (
1132: p_module_name => g_module_name,
1133: p_procedure_name => l_proc_name,
1134: p_var_name => 'l_sec_unit_price',
1135: p_var_value => l_sec_unit_price);
1135: p_var_value => l_sec_unit_price);
1136: END IF;
1137: -- /Bug 8932386
1138:
1139: INL_LOGGING_PVT.Log_Variable (
1140: p_module_name => g_module_name,
1141: p_procedure_name => l_proc_name,
1142: p_var_name => 'l_ship_line_src_id',
1143: p_var_value => l_ship_line_src_id);
1141: p_procedure_name => l_proc_name,
1142: p_var_name => 'l_ship_line_src_id',
1143: p_var_value => l_ship_line_src_id);
1144:
1145: INL_LOGGING_PVT.Log_Variable (
1146: p_module_name => g_module_name,
1147: p_procedure_name => l_proc_name,
1148: p_var_name => 'l_txn_unit_price',
1149: p_var_value => l_txn_unit_price);
1147: p_procedure_name => l_proc_name,
1148: p_var_name => 'l_txn_unit_price',
1149: p_var_value => l_txn_unit_price);
1150:
1151: INL_LOGGING_PVT.Log_Variable (
1152: p_module_name => g_module_name,
1153: p_procedure_name => l_proc_name,
1154: p_var_name => 'p_int_rec(i).po_line_location_id',
1155: p_var_value => p_int_rec(i).po_line_location_id);
1152: p_module_name => g_module_name,
1153: p_procedure_name => l_proc_name,
1154: p_var_name => 'p_int_rec(i).po_line_location_id',
1155: p_var_value => p_int_rec(i).po_line_location_id);
1156: INL_LOGGING_PVT.Log_Variable (
1157: p_module_name => g_module_name,
1158: p_procedure_name => l_proc_name,
1159: p_var_name => 'p_int_rec(i).currency_code',
1160: p_var_value => p_int_rec(i).currency_code);
1157: p_module_name => g_module_name,
1158: p_procedure_name => l_proc_name,
1159: p_var_name => 'p_int_rec(i).currency_code',
1160: p_var_value => p_int_rec(i).currency_code);
1161: INL_LOGGING_PVT.Log_Variable (
1162: p_module_name => g_module_name,
1163: p_procedure_name => l_proc_name,
1164: p_var_name => 'p_int_rec(i).item_id',
1165: p_var_value => p_int_rec(i).item_id);
1162: p_module_name => g_module_name,
1163: p_procedure_name => l_proc_name,
1164: p_var_name => 'p_int_rec(i).item_id',
1165: p_var_value => p_int_rec(i).item_id);
1166: INL_LOGGING_PVT.Log_Variable (
1167: p_module_name => g_module_name,
1168: p_procedure_name => l_proc_name,
1169: p_var_name => 'p_int_rec(i).quantity',
1170: p_var_value => p_int_rec(i).quantity);
1167: p_module_name => g_module_name,
1168: p_procedure_name => l_proc_name,
1169: p_var_name => 'p_int_rec(i).quantity',
1170: p_var_value => p_int_rec(i).quantity);
1171: INL_LOGGING_PVT.Log_Variable (
1172: p_module_name => g_module_name,
1173: p_procedure_name => l_proc_name,
1174: p_var_name => 'l_txn_unit_price',
1175: p_var_value => l_txn_unit_price);
1172: p_module_name => g_module_name,
1173: p_procedure_name => l_proc_name,
1174: p_var_name => 'l_txn_unit_price',
1175: p_var_value => l_txn_unit_price);
1176: INL_LOGGING_PVT.Log_Variable (
1177: p_module_name => g_module_name,
1178: p_procedure_name => l_proc_name,
1179: p_var_name => 'l_trx_business_category',
1180: p_var_value => l_trx_business_category);
1177: p_module_name => g_module_name,
1178: p_procedure_name => l_proc_name,
1179: p_var_name => 'l_trx_business_category',
1180: p_var_value => l_trx_business_category);
1181: INL_LOGGING_PVT.Log_Variable (
1182: p_module_name => g_module_name,
1183: p_procedure_name => l_proc_name,
1184: p_var_name => 'l_line_intended_use',
1185: p_var_value => l_line_intended_use);
1182: p_module_name => g_module_name,
1183: p_procedure_name => l_proc_name,
1184: p_var_name => 'l_line_intended_use',
1185: p_var_value => l_line_intended_use);
1186: INL_LOGGING_PVT.Log_Variable (
1187: p_module_name => g_module_name,
1188: p_procedure_name => l_proc_name,
1189: p_var_name => 'l_product_fisc_classification',
1190: p_var_value => l_product_fisc_classification);
1187: p_module_name => g_module_name,
1188: p_procedure_name => l_proc_name,
1189: p_var_name => 'l_product_fisc_classification',
1190: p_var_value => l_product_fisc_classification);
1191: INL_LOGGING_PVT.Log_Variable (
1192: p_module_name => g_module_name,
1193: p_procedure_name => l_proc_name,
1194: p_var_name => 'l_product_category',
1195: p_var_value => l_product_category);
1192: p_module_name => g_module_name,
1193: p_procedure_name => l_proc_name,
1194: p_var_name => 'l_product_category',
1195: p_var_value => l_product_category);
1196: INL_LOGGING_PVT.Log_Variable (
1197: p_module_name => g_module_name,
1198: p_procedure_name => l_proc_name,
1199: p_var_name => 'l_product_type',
1200: p_var_value => l_product_type);
1197: p_module_name => g_module_name,
1198: p_procedure_name => l_proc_name,
1199: p_var_name => 'l_product_type',
1200: p_var_value => l_product_type);
1201: INL_LOGGING_PVT.Log_Variable (
1202: p_module_name => g_module_name,
1203: p_procedure_name => l_proc_name,
1204: p_var_name => 'l_user_defined_fisc_class',
1205: p_var_value => l_user_defined_fisc_class);
1202: p_module_name => g_module_name,
1203: p_procedure_name => l_proc_name,
1204: p_var_name => 'l_user_defined_fisc_class',
1205: p_var_value => l_user_defined_fisc_class);
1206: INL_LOGGING_PVT.Log_Variable (
1207: p_module_name => g_module_name,
1208: p_procedure_name => l_proc_name,
1209: p_var_name => 'l_output_tax_classf_code',
1210: p_var_value => l_output_tax_classf_code);
1207: p_module_name => g_module_name,
1208: p_procedure_name => l_proc_name,
1209: p_var_name => 'l_output_tax_classf_code',
1210: p_var_value => l_output_tax_classf_code);
1211: INL_LOGGING_PVT.Log_Statement (
1212: p_module_name => g_module_name,
1213: p_procedure_name => l_proc_name,
1214: p_debug_info => 'Insert inl_ship_lines_int values in PL/SQL table.');
1215:
1262: WHEN OTHERS THEN
1263: FND_MESSAGE.SET_NAME ('INL', 'INL_UNEXPECTED_ERR') ; --Bug#9737425
1264: FND_MESSAGE.SET_TOKEN ('ERROR_CODE', substr(SQLERRM, 1, 1000)) ; --Bug#9737425
1265: FND_MSG_PUB.ADD; --Bug#9737425
1266: INL_LOGGING_PVT.Log_UnexpecError (
1267: p_module_name => g_module_name,
1268: p_procedure_name => l_proc_name);
1269: INL_LOGGING_PVT.Log_Variable (
1270: p_module_name => g_module_name,
1265: FND_MSG_PUB.ADD; --Bug#9737425
1266: INL_LOGGING_PVT.Log_UnexpecError (
1267: p_module_name => g_module_name,
1268: p_procedure_name => l_proc_name);
1269: INL_LOGGING_PVT.Log_Variable (
1270: p_module_name => g_module_name,
1271: p_procedure_name => l_proc_name,
1272: p_var_name => 'Error: ',
1273: p_var_value => sqlcode ||' '||substr(SQLERRM, 1, 1000));
1271: p_procedure_name => l_proc_name,
1272: p_var_name => 'Error: ',
1273: p_var_value => sqlcode ||' '||substr(SQLERRM, 1, 1000));
1274: erroredHeaderId := Nvl(p_int_rec(i).shipment_header_id,p_int_rec(i).header_interface_id);
1275: INL_LOGGING_PVT.Log_Variable (
1276: p_module_name => g_module_name,
1277: p_procedure_name => l_proc_name,
1278: p_var_name => 'l_begin_of_this_header',
1279: p_var_value => l_begin_of_this_header);
1276: p_module_name => g_module_name,
1277: p_procedure_name => l_proc_name,
1278: p_var_name => 'l_begin_of_this_header',
1279: p_var_value => l_begin_of_this_header);
1280: INL_LOGGING_PVT.Log_Variable (
1281: p_module_name => g_module_name,
1282: p_procedure_name => l_proc_name,
1283: p_var_name => 'l_ind_lci',
1284: p_var_value => l_ind_lci);
1281: p_module_name => g_module_name,
1282: p_procedure_name => l_proc_name,
1283: p_var_name => 'l_ind_lci',
1284: p_var_value => l_ind_lci);
1285: INL_LOGGING_PVT.Log_Variable (
1286: p_module_name => g_module_name,
1287: p_procedure_name => l_proc_name,
1288: p_var_name => 'l_lci_table.COUNT',
1289: p_var_value => l_lci_table.COUNT);
1288: p_var_name => 'l_lci_table.COUNT',
1289: p_var_value => l_lci_table.COUNT);
1290: FOR j in l_begin_of_this_header..l_lci_table.COUNT LOOP --Bug#9737425
1291:
1292: INL_LOGGING_PVT.Log_Variable (
1293: p_module_name => g_module_name,
1294: p_procedure_name => l_proc_name,
1295: p_var_name => 'l_lci_table('||j||').shipment_header_id',
1296: p_var_value => l_lci_table(j).shipment_header_id);
1294: p_procedure_name => l_proc_name,
1295: p_var_name => 'l_lci_table('||j||').shipment_header_id',
1296: p_var_value => l_lci_table(j).shipment_header_id);
1297:
1298: INL_LOGGING_PVT.Log_Variable (
1299: p_module_name => g_module_name,
1300: p_procedure_name => l_proc_name,
1301: p_var_name => 'l_lci_table('||j||').header_interface_id',
1302: p_var_value => l_lci_table(j).header_interface_id);
1308: l_lci_table(j).shipment_header_id := -9999;
1309: END IF;
1310: --Bug#9737425
1311:
1312: INL_LOGGING_PVT.Log_Statement (
1313: p_module_name => g_module_name,
1314: p_procedure_name => l_proc_name,
1315: p_debug_info => 'End loop');
1316: END LOOP;
1316: END LOOP;
1317: l_ind_lci := l_begin_of_this_header; --Bug#8971617
1318: END;
1319: END IF;
1320: INL_LOGGING_PVT.Log_Statement (
1321: p_module_name => g_module_name,
1322: p_procedure_name => l_proc_name,
1323: p_debug_info => 'End loop');
1324: END LOOP;
1321: p_module_name => g_module_name,
1322: p_procedure_name => l_proc_name,
1323: p_debug_info => 'End loop');
1324: END LOOP;
1325: INL_LOGGING_PVT.Log_Statement (
1326: p_module_name => g_module_name,
1327: p_procedure_name => l_proc_name,
1328: p_debug_info => 'Call Insert_LCMInterface to insert data in lcm interface table');
1329:
1345:
1346: currentHeaderId := -9999;
1347: FOR i IN 1..l_lci_table.COUNT LOOP --Bug#8971617
1348: -- Update RTIs to LC_INTERFACED
1349: INL_LOGGING_PVT.Log_Variable (
1350: p_module_name => g_module_name,
1351: p_procedure_name => l_proc_name,
1352: p_var_name => 'l_lci_table('||i||').shipment_header_id',
1353: p_var_value => l_lci_table(i).shipment_header_id);
1351: p_procedure_name => l_proc_name,
1352: p_var_name => 'l_lci_table('||i||').shipment_header_id',
1353: p_var_value => l_lci_table(i).shipment_header_id);
1354:
1355: INL_LOGGING_PVT.Log_Variable (
1356: p_module_name => g_module_name,
1357: p_procedure_name => l_proc_name,
1358: p_var_name => 'l_lci_table('||i||').header_interface_id',
1359: p_var_value => l_lci_table(i).header_interface_id);
1389: FND_FILE.put_line( FND_FILE.log, '< **************************************>');
1390:
1391: --Bug#10381495
1392: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1393: INL_LOGGING_PVT.Log_Statement(
1394: p_module_name => g_module_name,
1395: p_procedure_name => l_proc_name,
1396: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
1397: );
1405: p_count => x_msg_count,
1406: p_data => x_msg_data) ;
1407:
1408: -- Standard End of Procedure/Function Logging
1409: INL_LOGGING_PVT.Log_EndProc (
1410: p_module_name => g_module_name,
1411: p_procedure_name => l_proc_name);
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1411: p_procedure_name => l_proc_name);
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: -- Standard Expected Error Logging
1415: INL_LOGGING_PVT.Log_ExpecError (
1416: p_module_name => g_module_name,
1417: p_procedure_name => l_proc_name) ;
1418: INL_LOGGING_PVT.Log_Statement (
1419: p_module_name => g_module_name,
1414: -- Standard Expected Error Logging
1415: INL_LOGGING_PVT.Log_ExpecError (
1416: p_module_name => g_module_name,
1417: p_procedure_name => l_proc_name) ;
1418: INL_LOGGING_PVT.Log_Statement (
1419: p_module_name => g_module_name,
1420: p_procedure_name => l_proc_name,
1421: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1422: ROLLBACK;
1422: ROLLBACK;
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: --Bug#10381495
1425: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1426: INL_LOGGING_PVT.Log_Statement(
1427: p_module_name => g_module_name,
1428: p_procedure_name => l_proc_name,
1429: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
1430: );
1435: p_encoded => FND_API.g_false,
1436: p_count => x_msg_count,
1437: p_data => x_msg_data) ;
1438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1439: INL_LOGGING_PVT.Log_UnexpecError (
1440: p_module_name => g_module_name,
1441: p_procedure_name => l_proc_name);
1442: INL_LOGGING_PVT.Log_Statement (
1443: p_module_name => g_module_name,
1438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1439: INL_LOGGING_PVT.Log_UnexpecError (
1440: p_module_name => g_module_name,
1441: p_procedure_name => l_proc_name);
1442: INL_LOGGING_PVT.Log_Statement (
1443: p_module_name => g_module_name,
1444: p_procedure_name => l_proc_name,
1445: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1446: ROLLBACK;
1446: ROLLBACK;
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1448: --Bug#10381495
1449: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1450: INL_LOGGING_PVT.Log_Statement(
1451: p_module_name => g_module_name,
1452: p_procedure_name => l_proc_name,
1453: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
1454: );
1459: p_encoded => FND_API.g_false,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data) ;
1462: WHEN OTHERS THEN
1463: INL_LOGGING_PVT.Log_UnexpecError (
1464: p_module_name => g_module_name,
1465: p_procedure_name => l_proc_name);
1466: INL_LOGGING_PVT.Log_Statement (
1467: p_module_name => g_module_name,
1462: WHEN OTHERS THEN
1463: INL_LOGGING_PVT.Log_UnexpecError (
1464: p_module_name => g_module_name,
1465: p_procedure_name => l_proc_name);
1466: INL_LOGGING_PVT.Log_Statement (
1467: p_module_name => g_module_name,
1468: p_procedure_name => l_proc_name,
1469: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1470: ROLLBACK;
1470: ROLLBACK;
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1472: --Bug#10381495
1473: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1474: INL_LOGGING_PVT.Log_Statement(
1475: p_module_name => g_module_name,
1476: p_procedure_name => l_proc_name,
1477: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
1478: );
1536:
1537: BEGIN
1538:
1539: -- Standard Beginning of Procedure/Function Logging
1540: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1541: p_procedure_name => l_api_name) ;
1542:
1543: -- Standard Start of API savepoint
1544: SAVEPOINT Get_LandedCost_GRP;
1560: x_return_status := FND_API.G_RET_STS_SUCCESS;
1561:
1562: BEGIN
1563:
1564: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1565: p_procedure_name => l_api_name,
1566: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1567:
1568: INL_LANDEDCOST_PUB.Get_LandedCost (p_api_version => l_api_version,
1583: x_actual_taxes => l_actual_taxes,
1584: x_actual_unit_landed_cost => x_actual_unit_landed_cost,
1585: x_adjustment_num => x_adjustment_num); -- opm integration
1586:
1587: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1588: p_procedure_name => l_api_name,
1589: p_debug_info => 'After calling INL_LANDEDCOST_PUB.Get_LandedCost');
1590:
1591: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1587: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1588: p_procedure_name => l_api_name,
1589: p_debug_info => 'After calling INL_LANDEDCOST_PUB.Get_LandedCost');
1590:
1591: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1592: p_procedure_name => l_api_name,
1593: p_var_name => 'INL_LANDEDCOST_PUB.Get_LandedCost Return Status: ',
1594: p_var_value => l_return_status);
1595:
1610: p_count => x_msg_count,
1611: p_data => x_msg_data) ;
1612:
1613: -- End of Procedure Logging
1614: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1615: p_procedure_name => l_api_name) ;
1616:
1617: EXCEPTION
1618: WHEN FND_API.G_EXC_ERROR THEN
1616:
1617: EXCEPTION
1618: WHEN FND_API.G_EXC_ERROR THEN
1619: -- Standard Expected Error Logging
1620: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1621: p_procedure_name => l_api_name) ;
1622: ROLLBACK TO Get_LandedCost_GRP;
1623: x_return_status := FND_API.G_RET_STS_ERROR;
1624: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1625: p_count => x_msg_count,
1626: p_data => x_msg_data) ;
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1628: -- Standard Unexpected Error Logging
1629: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1630: p_procedure_name => l_api_name) ;
1631: ROLLBACK TO Get_LandedCost_GRP;
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1634: p_count => x_msg_count,
1635: p_data => x_msg_data) ;
1636: WHEN OTHERS THEN
1637: -- Standard Unexpected Error Logging
1638: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1639: p_procedure_name => l_api_name) ;
1640: ROLLBACK TO Get_LandedCost_GRP;
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1642: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1680:
1681: BEGIN
1682:
1683: -- Standard Beginning of Procedure/Function Logging
1684: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1685: p_procedure_name => l_api_name) ;
1686:
1687: FOR i IN 1..p_rti_rec.COUNT LOOP
1688: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1684: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1685: p_procedure_name => l_api_name) ;
1686:
1687: FOR i IN 1..p_rti_rec.COUNT LOOP
1688: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1689: p_procedure_name => l_api_name,
1690: p_var_name => 'p_rti_rec(i).line_id',
1691: p_var_value => p_rti_rec(i).line_id);
1692:
1689: p_procedure_name => l_api_name,
1690: p_var_name => 'p_rti_rec(i).line_id',
1691: p_var_value => p_rti_rec(i).line_id);
1692:
1693: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1694: p_procedure_name => l_api_name,
1695: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1696:
1697: INL_INTEGRATION_GRP.Get_LandedCost (p_api_version => l_api_version,
1703: x_return_status => l_return_status,
1704: x_msg_count => l_msg_count,
1705: x_msg_data => l_msg_data);
1706:
1707: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1708: p_procedure_name => l_api_name,
1709: p_debug_info => 'After calling INL_LANDEDCOST_PUB.Get_LandedCost');
1710:
1711: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1707: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1708: p_procedure_name => l_api_name,
1709: p_debug_info => 'After calling INL_LANDEDCOST_PUB.Get_LandedCost');
1710:
1711: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1712: p_procedure_name => l_api_name,
1713: p_var_name => 'l_actual_unit_landed_cost',
1714: p_var_value => l_actual_unit_landed_cost);
1715:
1713: p_var_name => 'l_actual_unit_landed_cost',
1714: p_var_value => l_actual_unit_landed_cost);
1715:
1716: IF (l_actual_unit_landed_cost IS NOT NULL) THEN
1717: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1718: p_procedure_name => l_api_name,
1719: p_debug_info => 'Updating RTIs with the new landed cost');
1720:
1721: UPDATE rcv_transactions_interface
1731: -- SCM-051 AND transaction_type NOT IN('SHIP', 'RECEIVE', 'ACCEPT', 'REJECT','TRANSFER','UNORDERED')
1732: AND lcm_shipment_line_id IS NOT NULL
1733: AND lcm_shipment_line_id = p_rti_rec(i).line_id;
1734:
1735: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1736: p_procedure_name => l_api_name,
1737: p_var_name => 'RTIs updated',
1738: p_var_value => sql%rowcount);
1739: ELSE
1736: p_procedure_name => l_api_name,
1737: p_var_name => 'RTIs updated',
1738: p_var_value => sql%rowcount);
1739: ELSE
1740: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1741: p_procedure_name => l_api_name,
1742: p_debug_info => 'Setting RTIs to ERROR. Landed Cost is null.');
1743:
1744: UPDATE rcv_transactions_interface rti
1758: END IF;
1759: END LOOP;
1760:
1761: -- End of Procedure Logging
1762: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1763: p_procedure_name => l_api_name) ;
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1762: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1763: p_procedure_name => l_api_name) ;
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1767: p_procedure_name => l_api_name);
1768: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1769: p_procedure_name => l_api_name,
1770: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1767: p_procedure_name => l_api_name);
1768: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1769: p_procedure_name => l_api_name,
1770: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1771: UPDATE rcv_transactions_interface
1772: SET processing_status_code = 'ERROR'
1778: AND source_document_code = 'PO'
1779: -- SCM-051 AND transaction_type NOT IN ('SHIP', 'RECEIVE', 'ACCEPT', 'REJECT','TRANSFER','UNORDERED')
1780: AND lcm_shipment_line_id IS NOT NULL;
1781:
1782: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1783: p_procedure_name => l_api_name,
1784: p_debug_info => sql%rowcount || ' RTIs updated to Error');
1785: END Get_LandedCost;
1786:
1814: -- Initialize return status to success
1815: x_return_status := FND_API.G_RET_STS_SUCCESS;
1816:
1817: -- Standard Beginning of Procedure/Function Logging
1818: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1819: p_procedure_name => l_proc_name);
1820:
1821: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1822: p_procedure_name => l_proc_name,
1817: -- Standard Beginning of Procedure/Function Logging
1818: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1819: p_procedure_name => l_proc_name);
1820:
1821: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1822: p_procedure_name => l_proc_name,
1823: p_var_name => 'p_ship_lines_table.COUNT',
1824: p_var_value => p_ship_lines_table.COUNT);
1825:
1829: l_rti_lc_info_table(i).lcm_shipment_line_id := p_ship_lines_table(i).ship_line_id;
1830: l_rti_lc_info_table(i).unit_landed_cost := p_ship_lines_table(i).unit_landed_cost;
1831: END LOOP;
1832:
1833: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1834: p_procedure_name => l_proc_name,
1835: p_debug_info => 'Before calling RCV_UPDATE_RTI_LC.Update_RTI: ' || to_char(SYSDATE,'DD-MON-YYYY HH:MI:SS'));
1836:
1837: RCV_UPDATE_RTI_LC.Update_RTI(p_int_rec => l_rti_lc_info_table,
1836:
1837: RCV_UPDATE_RTI_LC.Update_RTI(p_int_rec => l_rti_lc_info_table,
1838: x_lcm_int => l_rcv_int_table);
1839:
1840: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1841: p_procedure_name => l_proc_name,
1842: p_debug_info => 'After calling RCV_UPDATE_RTI_LC.Update_RTI: ' || to_char(SYSDATE,'DD-MON-YYYY HH:MI:SS'));
1843:
1844: -- Standard End of Procedure/Function Logging
1841: p_procedure_name => l_proc_name,
1842: p_debug_info => 'After calling RCV_UPDATE_RTI_LC.Update_RTI: ' || to_char(SYSDATE,'DD-MON-YYYY HH:MI:SS'));
1843:
1844: -- Standard End of Procedure/Function Logging
1845: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1846: p_procedure_name => l_proc_name);
1847:
1848: EXCEPTION
1849: WHEN FND_API.G_EXC_ERROR THEN
1847:
1848: EXCEPTION
1849: WHEN FND_API.G_EXC_ERROR THEN
1850: -- Standard Expected Error Logging
1851: INL_LOGGING_PVT.Log_ExpecError (
1852: p_module_name => g_module_name,
1853: p_procedure_name => l_proc_name);
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1853: p_procedure_name => l_proc_name);
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: -- Standard Unexpected Error Logging
1857: INL_LOGGING_PVT.Log_UnexpecError (
1858: p_module_name => g_module_name,
1859: p_procedure_name => l_proc_name);
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: WHEN OTHERS THEN
1859: p_procedure_name => l_proc_name);
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: WHEN OTHERS THEN
1862: -- Standard Unexpected Error Logging
1863: INL_LOGGING_PVT.Log_UnexpecError (
1864: p_module_name => g_module_name,
1865: p_procedure_name => l_proc_name);
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1867: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1907:
1908: BEGIN
1909:
1910: -- Standard Beginning of Procedure/Function Logging
1911: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1912: p_procedure_name => l_api_name) ;
1913:
1914: -- Standard Start of API savepoint
1915: SAVEPOINT Call_StampLC_GRP;
1936: IF c_ship_lines%ISOPEN THEN
1937: CLOSE c_ship_lines;
1938: END IF;
1939:
1940: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1941: p_procedure_name => l_api_version,
1942: p_debug_info => 'Before calling Call_UpdateRCV');
1943:
1944: Call_UpdateRCV (p_ship_lines_table => l_ship_lines_table,
1943:
1944: Call_UpdateRCV (p_ship_lines_table => l_ship_lines_table,
1945: x_return_status => l_return_status);
1946:
1947: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1948: p_procedure_name => l_api_name,
1949: p_debug_info => 'After calling Call_UpdateRCV');
1950:
1951: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1947: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1948: p_procedure_name => l_api_name,
1949: p_debug_info => 'After calling Call_UpdateRCV');
1950:
1951: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1952: p_procedure_name => l_api_name,
1953: p_var_name => 'Call_UpdateRCV l_return_status: ',
1954: p_var_value => l_return_status);
1955:
1970: p_count => x_msg_count,
1971: p_data => x_msg_data);
1972:
1973: -- End of Procedure Logging
1974: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1975: p_procedure_name => l_api_name);
1976: EXCEPTION
1977: WHEN FND_API.G_EXC_ERROR THEN
1978: -- Standard Expected Error Logging
1975: p_procedure_name => l_api_name);
1976: EXCEPTION
1977: WHEN FND_API.G_EXC_ERROR THEN
1978: -- Standard Expected Error Logging
1979: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1980: p_procedure_name => l_api_name);
1981: ROLLBACK TO Call_StampLC_GRP;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1984: p_count => x_msg_count,
1985: p_data => x_msg_data);
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: -- Standard Unexpected Error Logging
1988: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1989: p_procedure_name => l_api_name);
1990: ROLLBACK TO Call_StampLC_GRP;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data) ;
1995: WHEN OTHERS THEN
1996: -- Standard Unexpected Error Logging
1997: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1998: p_procedure_name => l_api_name) ;
1999: ROLLBACK TO Call_StampLC_GRP;
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2001: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2034: -- Initialize return status to success
2035: x_return_status := FND_API.G_RET_STS_SUCCESS;
2036:
2037: -- Standard Beginning of Procedure/Function Logging
2038: INL_LOGGING_PVT.Log_BeginProc (
2039: p_module_name => g_module_name,
2040: p_procedure_name => l_proc_name
2041: );
2042:
2039: p_module_name => g_module_name,
2040: p_procedure_name => l_proc_name
2041: );
2042:
2043: INL_LOGGING_PVT.Log_Variable (
2044: p_module_name => g_module_name,
2045: p_procedure_name => l_proc_name,
2046: p_var_name => 'p_ship_lines_table.COUNT',
2047: p_var_value => p_ship_lines_table.COUNT
2048: );
2049:
2050: FOR i IN 1..p_ship_lines_table.COUNT LOOP
2051:
2052: INL_LOGGING_PVT.Log_Variable (
2053: p_module_name => g_module_name,
2054: p_procedure_name => l_proc_name,
2055: p_var_name => 'l_ship_lines_table.EXTEND',
2056: p_var_value => 'l_ship_lines_table.EXTEND'
2055: p_var_name => 'l_ship_lines_table.EXTEND',
2056: p_var_value => 'l_ship_lines_table.EXTEND'
2057: );
2058: l_ship_lines_table.EXTEND;
2059: INL_LOGGING_PVT.Log_Variable (
2060: p_module_name => g_module_name,
2061: p_procedure_name => l_proc_name,
2062: p_var_name => 'p_ship_lines_table('||i||').ship_line_num',
2063: p_var_value => p_ship_lines_table(i).ship_line_num
2091: END LOOP;
2092:
2093: IF l_ship_lines_table.FIRST IS NOT NULL THEN
2094:
2095: INL_LOGGING_PVT.Log_Statement (
2096: p_module_name => g_module_name,
2097: p_procedure_name => l_proc_name,
2098: p_debug_info => 'Before call RCV_INSERT_FROM_INL.insert_rcv_tables'
2099: );
2102: p_int_rec => l_ship_lines_table,
2103: p_ship_header_id => p_ship_header_id
2104: );
2105:
2106: INL_LOGGING_PVT.Log_Statement (
2107: p_module_name => g_module_name,
2108: p_procedure_name => l_proc_name,
2109: p_debug_info => 'After call RCV_INSERT_FROM_INL.insert_rcv_tables'
2110: );
2110: );
2111: END IF;
2112:
2113: -- Standard End of Procedure/Function Logging
2114: INL_LOGGING_PVT.Log_EndProc (
2115: p_module_name => g_module_name,
2116: p_procedure_name => l_proc_name
2117: );
2118:
2118:
2119: EXCEPTION
2120: WHEN FND_API.G_EXC_ERROR THEN
2121: -- Standard Expected Error Logging
2122: INL_LOGGING_PVT.Log_ExpecError(
2123: p_module_name => g_module_name,
2124: p_procedure_name => l_proc_name);
2125: x_return_status := FND_API.G_RET_STS_ERROR;
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2124: p_procedure_name => l_proc_name);
2125: x_return_status := FND_API.G_RET_STS_ERROR;
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127: -- Standard Unexpected Error Logging
2128: INL_LOGGING_PVT.Log_UnexpecError(
2129: p_module_name => g_module_name,
2130: p_procedure_name => l_proc_name);
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2132: WHEN OTHERS THEN
2130: p_procedure_name => l_proc_name);
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2132: WHEN OTHERS THEN
2133: -- Standard Unexpected Error Logging
2134: INL_LOGGING_PVT.Log_UnexpecError(
2135: p_module_name => g_module_name,
2136: p_procedure_name => l_proc_name);
2137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2138: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2180:
2181: BEGIN
2182:
2183: -- Standard Beginning of Procedure/Function Logging
2184: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
2185: p_procedure_name => l_api_name);
2186:
2187: -- Standard Start of API savepoint
2188: SAVEPOINT Export_ToRCV_GRP;
2202:
2203: -- Initialize API RETURN status to success
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2206: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
2207: p_procedure_name => l_api_name,
2208: p_var_name => 'p_ship_header_id',
2209: p_var_value => p_ship_header_id);
2210:
2211: OPEN c_ship_lines(p_ship_header_id, /*'PO'*/ NULL , NULL);
2212: FETCH c_ship_lines BULK COLLECT INTO l_ship_lines_table;
2213:
2214: IF l_ship_lines_table.FIRST IS NOT NULL THEN
2215: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2216: p_procedure_name => l_api_name,
2217: p_debug_info => 'Before call Call_InsertRCV');
2218:
2219: Call_InsertRCV(p_ship_header_id => p_ship_header_id,
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2230: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name,
2232: p_debug_info => 'After call Call_InsertRCV');
2233:
2234: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
2230: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name,
2232: p_debug_info => 'After call Call_InsertRCV');
2233:
2234: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
2235: p_procedure_name => l_api_name,
2236: p_var_name => 'Call_InsertRCV l_return_status:',
2237: p_var_value => l_return_status);
2238: END IF;
2249: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2250: p_count => x_msg_count,
2251: p_data => x_msg_data) ;
2252: -- End of Procedure Logging
2253: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
2254: p_procedure_name => l_api_name) ;
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: -- Standard Expected Error Logging
2254: p_procedure_name => l_api_name) ;
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: -- Standard Expected Error Logging
2258: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
2259: p_procedure_name => l_api_name) ;
2260: ROLLBACK TO Export_ToRCV_GRP;
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2263: p_count => x_msg_count,
2264: p_data => x_msg_data) ;
2265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2266: -- Standard Unexpected Error Logging
2267: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2268: p_procedure_name => l_api_name) ;
2269: ROLLBACK TO Export_ToRCV_GRP;
2270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2272: p_count => x_msg_count,
2273: p_data => x_msg_data) ;
2274: WHEN OTHERS THEN
2275: -- Standard Unexpected Error Logging
2276: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2277: p_procedure_name => l_api_name) ;
2278: ROLLBACK TO Export_ToRCV_GRP;
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2280: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2405:
2406: BEGIN
2407:
2408: -- Standard Beginning of Procedure/Function Logging
2409: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
2410: p_procedure_name => l_api_name) ;
2411:
2412: -- Standard Start of API savepoint
2413: SAVEPOINT Export_ToCST_GRP;
2431: OPEN c_ship_ln_adj;
2432: FETCH c_ship_ln_adj BULK COLLECT INTO ship_ln_list;
2433: CLOSE c_ship_ln_adj;
2434:
2435: INL_LOGGING_PVT.Log_Variable (
2436: p_module_name => g_module_name,
2437: p_procedure_name => l_api_name,
2438: p_var_name => 'p_max_allocation_id',
2439: p_var_value => p_max_allocation_id);
2440:
2441:
2442: FOR i IN 1 .. ship_ln_list.COUNT
2443: LOOP
2444: INL_LOGGING_PVT.Log_Variable (
2445: p_module_name => g_module_name,
2446: p_procedure_name => l_api_name,
2447: p_var_name => 'p_ship_header_id',
2448: p_var_value => p_ship_header_id);
2446: p_procedure_name => l_api_name,
2447: p_var_name => 'p_ship_header_id',
2448: p_var_value => p_ship_header_id);
2449:
2450: INL_LOGGING_PVT.Log_Variable (
2451: p_module_name => g_module_name,
2452: p_procedure_name => l_api_name,
2453: p_var_name => 'ship_ln_list(i).ship_line_id',
2454: p_var_value => ship_ln_list(i).ship_line_id);
2452: p_procedure_name => l_api_name,
2453: p_var_name => 'ship_ln_list(i).ship_line_id',
2454: p_var_value => ship_ln_list(i).ship_line_id);
2455:
2456: INL_LOGGING_PVT.Log_Variable (
2457: p_module_name => g_module_name,
2458: p_procedure_name => l_api_name,
2459: p_var_name => 'ship_ln_list(i).ship_line_group_id',
2460: p_var_value => ship_ln_list(i).ship_line_group_id);
2458: p_procedure_name => l_api_name,
2459: p_var_name => 'ship_ln_list(i).ship_line_group_id',
2460: p_var_value => ship_ln_list(i).ship_line_group_id);
2461:
2462: INL_LOGGING_PVT.Log_Variable (
2463: p_module_name => g_module_name,
2464: p_procedure_name => l_api_name,
2465: p_var_name => 'ship_ln_list(i).ship_line_num',
2466: p_var_value => ship_ln_list(i).ship_line_num);
2465: p_var_name => 'ship_ln_list(i).ship_line_num',
2466: p_var_value => ship_ln_list(i).ship_line_num);
2467:
2468: l_debug_info := 'Get the Prior Unit Landed Cost';
2469: INL_LOGGING_PVT.Log_Statement (
2470: p_module_name => g_module_name,
2471: p_procedure_name => l_api_name,
2472: p_debug_info => l_debug_info);
2473: --
2482: CLOSE c_shipln_landed_costs_v;
2483:
2484: IF shipln_landed_costs_v_list.COUNT < 2 THEN
2485: l_debug_info := 'ERROR Getting the Unit Landed Cost: '||shipln_landed_costs_v_list.COUNT;
2486: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2487: p_procedure_name => l_api_name,
2488: p_debug_info => l_debug_info);
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2494: LOOP
2495: --
2496: --Bug#10032820
2497: --
2498: INL_LOGGING_PVT.Log_Variable (
2499: p_module_name => g_module_name,
2500: p_procedure_name => l_api_name,
2501: p_var_name => 'l_prior_landed_cost',
2502: p_var_value => l_prior_landed_cost
2500: p_procedure_name => l_api_name,
2501: p_var_name => 'l_prior_landed_cost',
2502: p_var_value => l_prior_landed_cost
2503: );
2504: INL_LOGGING_PVT.Log_Variable (
2505: p_module_name => g_module_name,
2506: p_procedure_name => l_api_name,
2507: p_var_name => 'shipln_landed_costs_v_list(||j||).unit_landed_cost',
2508: p_var_value => shipln_landed_costs_v_list(j).unit_landed_cost
2506: p_procedure_name => l_api_name,
2507: p_var_name => 'shipln_landed_costs_v_list(||j||).unit_landed_cost',
2508: p_var_value => shipln_landed_costs_v_list(j).unit_landed_cost
2509: );
2510: INL_LOGGING_PVT.Log_Variable (
2511: p_module_name => g_module_name,
2512: p_procedure_name => l_api_name,
2513: p_var_name => 'shipln_landed_costs_v_list(||j||).adjustment_num',
2514: p_var_value => shipln_landed_costs_v_list(j).adjustment_num
2517: -- Just INSERT those line which IN some way have had their costs changed
2518: IF l_prior_landed_cost <> shipln_landed_costs_v_list(j).unit_landed_cost THEN --Bug#10032820
2519: l_current_date := SYSDATE;
2520: l_debug_info := 'Insert INTO CST_LC_ADJ_INTERFACE TABLE';
2521: INL_LOGGING_PVT.Log_Statement (
2522: p_module_name => g_module_name,
2523: p_procedure_name => l_api_name,
2524: p_debug_info => l_debug_info
2525: );
2579: p_count => x_msg_count,
2580: p_data => x_msg_data
2581: ) ;
2582: -- End of Procedure Logging
2583: INL_LOGGING_PVT.Log_EndProc (
2584: p_module_name => g_module_name,
2585: p_procedure_name => l_api_name
2586: ) ;
2587:
2587:
2588: EXCEPTION
2589: WHEN FND_API.G_EXC_ERROR THEN
2590: -- Standard Expected Error Logging
2591: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2592: p_procedure_name => l_api_name) ;
2593: ROLLBACK TO Export_ToCST_GRP;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data) ;
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: -- Standard Unexpected Error Logging
2600: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2601: p_procedure_name => l_api_name) ;
2602: ROLLBACK TO Export_ToCST_GRP;
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2605: p_count => x_msg_count,
2606: p_data => x_msg_data) ;
2607: WHEN OTHERS THEN
2608: -- Standard Unexpected Error Logging
2609: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2610: p_procedure_name => l_api_name) ;
2611: ROLLBACK TO Export_ToCST_GRP;
2612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2613: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2665: l_debug_info VARCHAR2(200);
2666: BEGIN
2667:
2668: -- Standard Beginning of Procedure/Function Logging
2669: INL_LOGGING_PVT.Log_BeginProc (
2670: p_module_name => g_module_name,
2671: p_procedure_name => l_api_name
2672: );
2673: -- Standard Start of API savepoint
2694: -- Api Body
2695:
2696: -- Standard Statement Level Procedure/Function Logging
2697: l_debug_info := 'Get currency info for the ship_line_id: ' || p_ship_line_id;
2698: INL_LOGGING_PVT.Log_Statement (
2699: p_module_name => g_module_name,
2700: p_procedure_name => l_api_name,
2701: p_debug_info => l_debug_info
2702: );
2727: p_count => x_msg_count,
2728: p_data => x_msg_data);
2729:
2730: -- Standard End of Procedure/Function Logging
2731: INL_LOGGING_PVT.Log_EndProc (
2732: p_module_name => g_module_name,
2733: p_procedure_name => l_api_name);
2734: EXCEPTION
2735: WHEN FND_API.G_EXC_ERROR THEN
2733: p_procedure_name => l_api_name);
2734: EXCEPTION
2735: WHEN FND_API.G_EXC_ERROR THEN
2736: -- Standard Expected Error Logging
2737: INL_LOGGING_PVT.Log_ExpecError (
2738: p_module_name => g_module_name,
2739: p_procedure_name => l_api_name
2740: );
2741: ROLLBACK TO Get_CurrencyInfo_GRP;
2746: p_data => x_msg_data
2747: );
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: -- Standard Unexpected Error Logging
2750: INL_LOGGING_PVT.Log_UnexpecError (
2751: p_module_name => g_module_name,
2752: p_procedure_name => l_api_name);
2753: ROLLBACK TO Get_CurrencyInfo_GRP;
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2757: p_count => x_msg_count,
2758: p_data => x_msg_data);
2759: WHEN OTHERS THEN
2760: -- Standard Unexpected Error Logging
2761: INL_LOGGING_PVT.Log_UnexpecError (
2762: p_module_name => g_module_name,
2763: p_procedure_name => l_api_name);
2764: ROLLBACK TO Get_CurrencyInfo_GRP;
2765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2949: -- Initialize return status to success
2950: x_return_status := FND_API.G_RET_STS_SUCCESS;
2951:
2952: -- Standard Beginning of Procedure/Function Logging
2953: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
2954: p_procedure_name => l_proc_name);
2955:
2956: INL_LOGGING_PVT.Log_Variable (
2957: p_module_name => g_module_name,
2952: -- Standard Beginning of Procedure/Function Logging
2953: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
2954: p_procedure_name => l_proc_name);
2955:
2956: INL_LOGGING_PVT.Log_Variable (
2957: p_module_name => g_module_name,
2958: p_procedure_name => l_proc_name,
2959: p_var_name => 'p_po_hdr_rec.po_header_id',
2960: p_var_value => p_po_hdr_rec.po_header_id);
2961:
2962: -- Verifying: the INL: Default Type for Simulated Shipment profile must be setup
2963: l_ship_type_id := NVL(FND_PROFILE.VALUE('INL_SHIP_TYPE_ID_OI'),0);
2964:
2965: INL_LOGGING_PVT.Log_Variable (
2966: p_module_name => g_module_name,
2967: p_procedure_name => l_proc_name,
2968: p_var_name => 'l_ship_type_id',
2969: p_var_value => l_ship_type_id );
2973: FND_MSG_PUB.ADD;
2974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2975: END IF;
2976:
2977: INL_LOGGING_PVT.Log_Statement (
2978: p_module_name => g_module_name,
2979: p_procedure_name => l_proc_name,
2980: p_debug_info => 'Get value to INL_SHIP_LINE_TYPE_ID');
2981:
2998: WHEN NO_DATA_FOUND THEN
2999: l_ship_line_type_id := NULL;
3000: END;
3001:
3002: INL_LOGGING_PVT.Log_Variable (
3003: p_module_name => g_module_name,
3004: p_procedure_name => l_proc_name,
3005: p_var_name => 'l_ship_line_type_id',
3006: p_var_value => l_ship_line_type_id);
3014:
3015: -- Get last task code from INL_CUSTOM_PUB.Get_LastTaskCodeForSimul
3016: l_last_task_code := INL_CUSTOM_PUB.Get_LastTaskCodeForSimul;
3017:
3018: INL_LOGGING_PVT.Log_Variable (
3019: p_module_name => g_module_name,
3020: p_procedure_name => l_proc_name,
3021: p_var_name => 'l_last_task_code',
3022: p_var_value => l_last_task_code );
3026: FND_MSG_PUB.ADD;
3027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3028: END IF;
3029:
3030: INL_LOGGING_PVT.Log_Statement (
3031: p_module_name => g_module_name,
3032: p_procedure_name => l_proc_name,
3033: p_debug_info => 'Get PO Lines info');
3034:
3038: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041:
3042: INL_LOGGING_PVT.Log_Statement (
3043: p_module_name => g_module_name,
3044: p_procedure_name => l_proc_name,
3045: p_debug_info => 'Get Party ID');
3046:
3049: INTO l_party_id
3050: FROM po_vendors pv
3051: WHERE pv.vendor_id = p_po_hdr_rec.vendor_id;
3052:
3053: INL_LOGGING_PVT.Log_Variable (
3054: p_module_name => g_module_name,
3055: p_procedure_name => l_proc_name,
3056: p_var_name => 'l_party_id',
3057: p_var_value => l_party_id);
3055: p_procedure_name => l_proc_name,
3056: p_var_name => 'l_party_id',
3057: p_var_value => l_party_id);
3058:
3059: INL_LOGGING_PVT.Log_Statement (
3060: p_module_name => g_module_name,
3061: p_procedure_name => l_proc_name,
3062: p_debug_info => 'Get Party Site ID');
3063:
3066: INTO l_party_site_id
3067: FROM po_vendor_sites_all pv
3068: WHERE pv.vendor_site_id = p_po_hdr_rec.vendor_site_id;
3069:
3070: INL_LOGGING_PVT.Log_Variable (
3071: p_module_name => g_module_name,
3072: p_procedure_name => l_proc_name,
3073: p_var_name => 'l_party_site_id',
3074: p_var_value => l_party_site_id);
3135: l_lci_table(l_ind_lci).txn_unit_price := c_pll_tab(i).unit_price;
3136: l_lci_table(l_ind_lci).line_interface_source_line_id := c_pll_tab(i).line_location_id;
3137: l_lci_table(l_ind_lci).ship_line_type_id := l_ship_line_type_id;
3138:
3139: INL_LOGGING_PVT.Log_Variable (
3140: p_module_name => g_module_name,
3141: p_procedure_name => l_proc_name,
3142: p_var_name => 'l_ship_to_organization_id',
3143: p_var_value => l_ship_to_organization_id);
3141: p_procedure_name => l_proc_name,
3142: p_var_name => 'l_ship_to_organization_id',
3143: p_var_value => l_ship_to_organization_id);
3144:
3145: INL_LOGGING_PVT.Log_Variable (
3146: p_module_name => g_module_name,
3147: p_procedure_name => l_proc_name,
3148: p_var_name => 'l_ship_to_location_id',
3149: p_var_value => l_ship_to_location_id);
3150:
3151: IF l_location_id IS NULL OR
3152: l_location_id <> l_ship_to_location_id THEN
3153:
3154: INL_LOGGING_PVT.Log_Statement (
3155: p_module_name => g_module_name,
3156: p_procedure_name => l_proc_name,
3157: p_debug_info => 'Get Location Code and Taxation Country');
3158:
3170:
3171: IF l_organization_id IS NULL OR
3172: l_organization_id <> l_ship_to_organization_id THEN
3173:
3174: INL_LOGGING_PVT.Log_Statement (
3175: p_module_name => g_module_name,
3176: p_procedure_name => l_proc_name,
3177: p_debug_info => 'Check if the Ship To Organization has been setup in LCM Options');
3178:
3184: EXCEPTION
3185: -- Check whether the current organization has
3186: -- been defined in LCM Parameters.
3187: WHEN OTHERS THEN
3188: INL_LOGGING_PVT.Log_Statement (
3189: p_module_name => g_module_name,
3190: p_procedure_name => l_proc_name,
3191: p_debug_info => 'Ship To Organization has not been setup in LCM Options');
3192: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_NO_LCM_OPT_DEF_ORG') ;
3198: l_organization_id := l_ship_to_organization_id;
3199:
3200: END IF;
3201:
3202: INL_LOGGING_PVT.Log_Variable (
3203: p_module_name => g_module_name,
3204: p_procedure_name => l_proc_name,
3205: p_var_name => 'l_ship_to_location_code',
3206: p_var_value => l_ship_to_location_code);
3204: p_procedure_name => l_proc_name,
3205: p_var_name => 'l_ship_to_location_code',
3206: p_var_value => l_ship_to_location_code);
3207:
3208: INL_LOGGING_PVT.Log_Variable (
3209: p_module_name => g_module_name,
3210: p_procedure_name => l_proc_name,
3211: p_var_name => 'l_taxation_country',
3212: p_var_value => l_taxation_country);
3210: p_procedure_name => l_proc_name,
3211: p_var_name => 'l_taxation_country',
3212: p_var_value => l_taxation_country);
3213:
3214: INL_LOGGING_PVT.Log_Variable (
3215: p_module_name => g_module_name,
3216: p_procedure_name => l_proc_name,
3217: p_var_name => 'l_user_defined_ship_num_code',
3218: p_var_value => l_user_defined_ship_num_code);
3219:
3220: IF ((l_current_organization_id <> c_pll_tab(i).ship_to_organization_id OR
3221: l_current_location_id <> c_pll_tab(i).ship_to_location_id)) THEN
3222:
3223: INL_LOGGING_PVT.Log_Statement (
3224: p_module_name => g_module_name,
3225: p_procedure_name => l_proc_name,
3226: p_debug_info => 'Get Shipment Number from INL_CUSTOM_PUB.Get_SimulShipNum');
3227:
3273: l_sec_uom_code := c_pll_tab(i).secondary_uom;
3274: IF l_sec_uom_code IS NULL AND
3275: c_pll_tab(i).secondary_unit_of_measure IS NOT NULL THEN
3276:
3277: INL_LOGGING_PVT.Log_Statement (
3278: p_module_name => g_module_name,
3279: p_procedure_name => l_proc_name,
3280: p_debug_info => 'Get secondary_uom_code from secondary_unit_of_measure');
3281:
3291: l_lci_table(l_ind_lci).secondary_qty := l_sec_qty;
3292: l_lci_table(l_ind_lci).secondary_uom_code := l_sec_uom_code;
3293: l_lci_table(l_ind_lci).secondary_unit_price := l_sec_unit_price;
3294:
3295: INL_LOGGING_PVT.Log_Statement (
3296: p_module_name => g_module_name,
3297: p_procedure_name => l_proc_name,
3298: p_debug_info => 'Get data from zx lines');
3299:
3342:
3343: END IF;
3344: END LOOP;
3345:
3346: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3347: p_procedure_name => l_proc_name,
3348: p_var_name => 'l_lci_table.COUNT',
3349: p_var_value => l_lci_table.COUNT);
3350:
3349: p_var_value => l_lci_table.COUNT);
3350:
3351: IF l_lci_table.COUNT > 0 THEN
3352:
3353: INL_LOGGING_PVT.Log_Statement (
3354: p_module_name => g_module_name,
3355: p_procedure_name => l_proc_name,
3356: p_debug_info => 'Call Insert_LCMInterface to insert data in lcm interface table');
3357:
3375: FOR i IN 1 .. l_lci_table.COUNT LOOP
3376: IF l_lci_table(l_ind_lci).group_id IS NOT NULL THEN
3377: l_shipments_processed := NVL(l_shipments_processed, 0) + 1;
3378:
3379: INL_LOGGING_PVT.Log_Statement (
3380: p_module_name => g_module_name,
3381: p_procedure_name => l_proc_name,
3382: p_debug_info => 'Call INL_INTERFACE_PVT.Import_LCMShipments with group_id: ' || l_lci_table(l_ind_lci).group_id );
3383:
3401: END LOOP;
3402: END IF;
3403: END IF;
3404:
3405: INL_LOGGING_PVT.Log_Variable (
3406: p_module_name => g_module_name,
3407: p_procedure_name => l_proc_name,
3408: p_var_name => 'g_records_processed',
3409: p_var_value => g_records_processed);
3407: p_procedure_name => l_proc_name,
3408: p_var_name => 'g_records_processed',
3409: p_var_value => g_records_processed);
3410:
3411: INL_LOGGING_PVT.Log_Variable (
3412: p_module_name => g_module_name,
3413: p_procedure_name => l_proc_name,
3414: p_var_name => 'g_records_inserted',
3415: p_var_value => g_records_inserted);
3414: p_var_name => 'g_records_inserted',
3415: p_var_value => g_records_inserted);
3416:
3417: -- Standard End of Procedure/Function Logging
3418: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
3419: p_procedure_name => l_proc_name);
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3423: -- Standard Expected Error Logging
3424: INL_LOGGING_PVT.Log_ExpecError (
3425: p_module_name => g_module_name,
3426: p_procedure_name => l_proc_name);
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3426: p_procedure_name => l_proc_name);
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3429: -- Standard Unexpected Error Logging
3430: INL_LOGGING_PVT.Log_UnexpecError (
3431: p_module_name => g_module_name,
3432: p_procedure_name => l_proc_name);
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434: WHEN OTHERS THEN
3432: p_procedure_name => l_proc_name);
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434: WHEN OTHERS THEN
3435: -- Standard Unexpected Error Logging
3436: INL_LOGGING_PVT.Log_UnexpecError (
3437: p_module_name => g_module_name,
3438: p_procedure_name => l_proc_name);
3439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3440: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3486:
3487: BEGIN
3488:
3489: -- Standard Beginning of Procedure/Function Logging
3490: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
3491: p_procedure_name => l_api_name) ;
3492:
3493: -- Standard Start of API savepoint
3494: SAVEPOINT Create_POSimulation_GRP;
3508:
3509: -- Initialize API return status to success
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3511:
3512: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3513: p_procedure_name => l_api_name,
3514: p_var_name => 'p_po_header_id',
3515: p_var_value => p_po_header_id);
3516:
3514: p_var_name => 'p_po_header_id',
3515: p_var_value => p_po_header_id);
3516:
3517: -- Bug 14280113
3518: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3519: p_procedure_name => l_api_name,
3520: p_var_name => 'p_po_release_id',
3521: p_var_value => p_po_release_id);
3522:
3525:
3526: l_simulation_rec.parent_table_name := 'PO_RELEASES';
3527: l_simulation_rec.parent_table_id := p_po_release_id;
3528:
3529: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3530: p_procedure_name => l_api_name,
3531: p_debug_info => 'Get data from PO RELEASES');
3532: SELECT ph.segment1, -- 01
3533: ph.vendor_id, -- 02
3565: l_simulation_rec.parent_table_id := p_po_header_id;
3566:
3567:
3568:
3569: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3570: p_procedure_name => l_api_name,
3571: p_debug_info => 'Get data from PO HEADERS');
3572:
3573: SELECT ph.po_header_id, -- 01
3600: FROM po_headers_all ph
3601: WHERE po_header_id = p_po_header_id;
3602: END IF;
3603:
3604: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3605: p_procedure_name => l_api_name,
3606: p_var_name => 'l_simulation_rec.parent_table_id',
3607: p_var_value => l_simulation_rec.parent_table_id);
3608:
3605: p_procedure_name => l_api_name,
3606: p_var_name => 'l_simulation_rec.parent_table_id',
3607: p_var_value => l_simulation_rec.parent_table_id);
3608:
3609: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3610: p_procedure_name => l_api_name,
3611: p_var_name => 'l_simulation_rec.vendor_id',
3612: p_var_value => l_simulation_rec.vendor_id);
3613:
3610: p_procedure_name => l_api_name,
3611: p_var_name => 'l_simulation_rec.vendor_id',
3612: p_var_value => l_simulation_rec.vendor_id);
3613:
3614: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3615: p_procedure_name => l_api_name,
3616: p_var_name => 'l_simulation_rec.vendor_site_id',
3617: p_var_value => l_simulation_rec.vendor_site_id);
3618:
3615: p_procedure_name => l_api_name,
3616: p_var_name => 'l_simulation_rec.vendor_site_id',
3617: p_var_value => l_simulation_rec.vendor_site_id);
3618:
3619: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3620: p_procedure_name => l_api_name,
3621: p_var_name => 'l_simulation_rec.parent_table_revision_num',
3622: p_var_value => l_simulation_rec.parent_table_revision_num);
3623:
3620: p_procedure_name => l_api_name,
3621: p_var_name => 'l_simulation_rec.parent_table_revision_num',
3622: p_var_value => l_simulation_rec.parent_table_revision_num);
3623:
3624: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3625: p_procedure_name => l_api_name,
3626: p_var_name => 'l_simulation_rec.freight_code',
3627: p_var_value => l_simulation_rec.freight_code);
3628:
3625: p_procedure_name => l_api_name,
3626: p_var_name => 'l_simulation_rec.freight_code',
3627: p_var_value => l_simulation_rec.freight_code);
3628:
3629: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3630: p_procedure_name => l_api_name,
3631: p_var_name => 'l_po_hdr_rec.segment1',
3632: p_var_value => l_po_hdr_rec.segment1);
3633:
3630: p_procedure_name => l_api_name,
3631: p_var_name => 'l_po_hdr_rec.segment1',
3632: p_var_value => l_po_hdr_rec.segment1);
3633:
3634: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3635: p_procedure_name => l_api_name,
3636: p_var_name => 'l_po_hdr_rec.currency_code',
3637: p_var_value => l_po_hdr_rec.currency_code);
3638:
3635: p_procedure_name => l_api_name,
3636: p_var_name => 'l_po_hdr_rec.currency_code',
3637: p_var_value => l_po_hdr_rec.currency_code);
3638:
3639: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3640: p_procedure_name => l_api_name,
3641: p_var_name => 'l_po_hdr_rec.rate_type',
3642: p_var_value => l_po_hdr_rec.rate_type);
3643:
3640: p_procedure_name => l_api_name,
3641: p_var_name => 'l_po_hdr_rec.rate_type',
3642: p_var_value => l_po_hdr_rec.rate_type);
3643:
3644: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3645: p_procedure_name => l_api_name,
3646: p_var_name => 'l_po_hdr_rec.rate_date',
3647: p_var_value => l_po_hdr_rec.rate_date);
3648:
3645: p_procedure_name => l_api_name,
3646: p_var_name => 'l_po_hdr_rec.rate_date',
3647: p_var_value => l_po_hdr_rec.rate_date);
3648:
3649: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3650: p_procedure_name => l_api_name,
3651: p_var_name => 'l_po_hdr_rec.rate',
3652: p_var_value => l_po_hdr_rec.rate);
3653:
3650: p_procedure_name => l_api_name,
3651: p_var_name => 'l_po_hdr_rec.rate',
3652: p_var_value => l_po_hdr_rec.rate);
3653:
3654: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3655: p_procedure_name => l_api_name,
3656: p_var_name => 'l_po_hdr_rec.org_id',
3657: p_var_value => l_po_hdr_rec.org_id);
3658:
3655: p_procedure_name => l_api_name,
3656: p_var_name => 'l_po_hdr_rec.org_id',
3657: p_var_value => l_po_hdr_rec.org_id);
3658:
3659: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3660: p_procedure_name => l_api_name,
3661: p_var_name => 'l_po_hdr_rec.approved_date',
3662: p_var_value => l_po_hdr_rec.approved_date);
3663:
3660: p_procedure_name => l_api_name,
3661: p_var_name => 'l_po_hdr_rec.approved_date',
3662: p_var_value => l_po_hdr_rec.approved_date);
3663:
3664: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3665: p_procedure_name => l_api_name,
3666: p_var_name => 'l_simulation_rec.org_id',
3667: p_var_value => l_simulation_rec.org_id);
3668:
3665: p_procedure_name => l_api_name,
3666: p_var_name => 'l_simulation_rec.org_id',
3667: p_var_value => l_simulation_rec.org_id);
3668:
3669: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3670: p_procedure_name => l_api_name,
3671: p_debug_info => 'Call INL_SIMULATION_PVT.Create_Simulation');
3672:
3673: -- Format data to create simulation
3698: l_po_hdr_rec.revision_num := l_simulation_rec.parent_table_revision_num;
3699: l_po_hdr_rec.simulation_id := l_simulation_rec.simulation_id;
3700:
3701: l_debug_msg := 'Call INL_INTEGRATION_GRP.Import_FromPO';
3702: INL_LOGGING_PVT.Log_Statement (
3703: p_module_name => g_module_name,
3704: p_procedure_name => l_api_name,
3705: p_debug_info => l_debug_msg);
3706:
3728: l_debug_info := 'Cannot perform the last commit in INL_INTEGRATION_GRP';
3729: END IF;
3730:
3731:
3732: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3733: p_procedure_name => l_api_name,
3734: p_debug_info => l_debug_info);
3735:
3736: -- Standard call to get message count and if count is 1, get message info.
3735:
3736: -- Standard call to get message count and if count is 1, get message info.
3737: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
3738: -- Standard End of Procedure/Function Logging
3739: INL_LOGGING_PVT.Log_EndProc(
3740: p_module_name => g_module_name,
3741: p_procedure_name => l_api_name);
3742:
3743: EXCEPTION
3742:
3743: EXCEPTION
3744: WHEN FND_API.G_EXC_ERROR THEN
3745: -- Standard Expected Error Logging
3746: INL_LOGGING_PVT.Log_ExpecError (
3747: p_module_name => g_module_name,
3748: p_procedure_name => l_api_name);
3749: ROLLBACK TO Create_POSimulation_GRP;
3750: x_return_status := FND_API.G_RET_STS_ERROR;
3753: p_count => x_msg_count,
3754: p_data => x_msg_data);
3755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3756: -- Standard Unexpected Error Logging
3757: INL_LOGGING_PVT.Log_UnexpecError (
3758: p_module_name => g_module_name,
3759: p_procedure_name => l_api_name);
3760: ROLLBACK TO Create_POSimulation_GRP;
3761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3764: p_count => x_msg_count,
3765: p_data => x_msg_data);
3766: WHEN OTHERS THEN
3767: -- Standard Unexpected Error Logging
3768: INL_LOGGING_PVT.Log_UnexpecError (
3769: p_module_name => g_module_name,
3770: p_procedure_name => l_api_name);
3771: ROLLBACK TO Create_POSimulation_GRP;
3772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3853: -- Initialize return status to success
3854: x_return_status := FND_API.G_RET_STS_SUCCESS;
3855:
3856: -- Standard Beginning of Procedure/Function Logging
3857: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3858: p_procedure_name => l_proc_name);
3859:
3860: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3861: p_procedure_name => l_proc_name,
3856: -- Standard Beginning of Procedure/Function Logging
3857: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3858: p_procedure_name => l_proc_name);
3859:
3860: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3861: p_procedure_name => l_proc_name,
3862: p_var_name => 'p_simulation_id',
3863: p_var_value => p_simulation_id);
3864:
3861: p_procedure_name => l_proc_name,
3862: p_var_name => 'p_simulation_id',
3863: p_var_value => p_simulation_id);
3864:
3865: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3866: p_procedure_name => l_proc_name,
3867: p_debug_info => 'Get PO Line Locations for Simulation');
3868:
3869: SELECT meaning
3879:
3880: FOR i IN 1..c_po_ln_loc_tab.COUNT
3881: LOOP
3882:
3883: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3884: p_procedure_name => l_proc_name,
3885: p_var_name => 'c_po_ln_loc_tab(i).line_location_id',
3886: p_var_value => c_po_ln_loc_tab(i).line_location_id);
3887:
3884: p_procedure_name => l_proc_name,
3885: p_var_name => 'c_po_ln_loc_tab(i).line_location_id',
3886: p_var_value => c_po_ln_loc_tab(i).line_location_id);
3887:
3888: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
3889: p_procedure_name => l_proc_name,
3890: p_debug_info => 'PO Shipment ' || c_po_ln_loc_tab(i).shipment_num|| ' does not have corresponding Simulated Shipments');
3891:
3892: FND_MESSAGE.SET_NAME('INL','INL_CHK_SIMUL_SRC_SHIP_NOT_FOU');
3901:
3902: RETURN l_po_ship_check;
3903:
3904: -- Standard End of Procedure/Function Logging
3905: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
3906: p_procedure_name => l_proc_name);
3907: EXCEPTION
3908: WHEN FND_API.G_EXC_ERROR THEN
3909: -- Standard Expected Error Logging
3906: p_procedure_name => l_proc_name);
3907: EXCEPTION
3908: WHEN FND_API.G_EXC_ERROR THEN
3909: -- Standard Expected Error Logging
3910: INL_LOGGING_PVT.Log_ExpecError (
3911: p_module_name => g_module_name,
3912: p_procedure_name => l_proc_name);
3913: x_return_status := FND_API.G_RET_STS_ERROR;
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3912: p_procedure_name => l_proc_name);
3913: x_return_status := FND_API.G_RET_STS_ERROR;
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3915: -- Standard Unexpected Error Logging
3916: INL_LOGGING_PVT.Log_UnexpecError (
3917: p_module_name => g_module_name,
3918: p_procedure_name => l_proc_name);
3919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3920: WHEN OTHERS THEN
3918: p_procedure_name => l_proc_name);
3919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3920: WHEN OTHERS THEN
3921: -- Standard Unexpected Error Logging
3922: INL_LOGGING_PVT.Log_UnexpecError (
3923: p_module_name => g_module_name,
3924: p_procedure_name => l_proc_name);
3925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3926: IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3992: -- Initialize return status to success
3993: x_return_status := FND_API.G_RET_STS_SUCCESS;
3994:
3995: -- Standard Beginning of Procedure/Function Logging
3996: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3997: p_procedure_name => l_proc_name);
3998:
3999: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4000: p_procedure_name => l_proc_name,
3995: -- Standard Beginning of Procedure/Function Logging
3996: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3997: p_procedure_name => l_proc_name);
3998:
3999: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4000: p_procedure_name => l_proc_name,
4001: p_var_name => 'p_simulation_id',
4002: p_var_value => p_simulation_id);
4003:
4000: p_procedure_name => l_proc_name,
4001: p_var_name => 'p_simulation_id',
4002: p_var_value => p_simulation_id);
4003:
4004: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4005: p_procedure_name => l_proc_name,
4006: p_debug_info => 'Get Shipments that belong to simulation');
4007:
4008: -- Open Shipment Lines cursor
4011: CLOSE c_ship_ln;
4012:
4013: FOR i IN 1..c_ship_ln_tab.COUNT
4014: LOOP
4015: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4016: p_procedure_name => l_proc_name,
4017: p_var_name => 'c_ship_ln_tab(i).ship_line_id',
4018: p_var_value => c_ship_ln_tab(i).ship_line_id);
4019:
4016: p_procedure_name => l_proc_name,
4017: p_var_name => 'c_ship_ln_tab(i).ship_line_id',
4018: p_var_value => c_ship_ln_tab(i).ship_line_id);
4019:
4020: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4021: p_procedure_name => l_proc_name,
4022: p_var_name => 'c_ship_ln_tab(i).ship_line_source_id',
4023: p_var_value => c_ship_ln_tab(i).ship_line_source_id);
4024:
4021: p_procedure_name => l_proc_name,
4022: p_var_name => 'c_ship_ln_tab(i).ship_line_source_id',
4023: p_var_value => c_ship_ln_tab(i).ship_line_source_id);
4024:
4025: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
4026: p_procedure_name => l_proc_name,
4027: p_debug_info => 'Get corresponding PO line for Shipment Line');
4028:
4029: BEGIN
4059: FND_MSG_PUB.ADD;
4060: l_ship_ln_check := FALSE;
4061: END;
4062:
4063: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4064: p_procedure_name => l_proc_name,
4065: p_var_name => 'l_po_line_id',
4066: p_var_value => l_po_line_id);
4067:
4064: p_procedure_name => l_proc_name,
4065: p_var_name => 'l_po_line_id',
4066: p_var_value => l_po_line_id);
4067:
4068: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4069: p_procedure_name => l_proc_name,
4070: p_var_name => 'l_po_ln_loc_qty',
4071: p_var_value => l_po_ln_loc_qty);
4072:
4069: p_procedure_name => l_proc_name,
4070: p_var_name => 'l_po_ln_loc_qty',
4071: p_var_value => l_po_ln_loc_qty);
4072:
4073: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4074: p_procedure_name => l_proc_name,
4075: p_var_name => 'l_po_ln_uom',
4076: p_var_value => l_po_ln_uom);
4077:
4074: p_procedure_name => l_proc_name,
4075: p_var_name => 'l_po_ln_uom',
4076: p_var_value => l_po_ln_uom);
4077:
4078: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4079: p_procedure_name => l_proc_name,
4080: p_var_name => 'l_po_ln_unit_price',
4081: p_var_value => l_po_ln_unit_price);
4082:
4079: p_procedure_name => l_proc_name,
4080: p_var_name => 'l_po_ln_unit_price',
4081: p_var_value => l_po_ln_unit_price);
4082:
4083: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4084: p_procedure_name => l_proc_name,
4085: p_var_name => 'l_po_currency',
4086: p_var_value => l_po_currency);
4087:
4084: p_procedure_name => l_proc_name,
4085: p_var_name => 'l_po_currency',
4086: p_var_value => l_po_currency);
4087:
4088: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4089: p_procedure_name => l_proc_name,
4090: p_var_name => 'l_po_ln_loc_cancel_flag',
4091: p_var_value => l_po_ln_loc_cancel_flag);
4092:
4089: p_procedure_name => l_proc_name,
4090: p_var_name => 'l_po_ln_loc_cancel_flag',
4091: p_var_value => l_po_ln_loc_cancel_flag);
4092:
4093: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4094: p_procedure_name => l_proc_name,
4095: p_var_name => 'l_po_ln_cancel_flag',
4096: p_var_value => l_po_ln_cancel_flag);
4097:
4178:
4179: RETURN l_ship_ln_check;
4180:
4181: -- Standard End of Procedure/Function Logging
4182: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
4183: p_procedure_name => l_proc_name);
4184:
4185: EXCEPTION
4186: WHEN FND_API.G_EXC_ERROR THEN
4184:
4185: EXCEPTION
4186: WHEN FND_API.G_EXC_ERROR THEN
4187: -- Standard Expected Error Logging
4188: INL_LOGGING_PVT.Log_ExpecError (
4189: p_module_name => g_module_name,
4190: p_procedure_name => l_proc_name);
4191: x_return_status := FND_API.G_RET_STS_ERROR;
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4190: p_procedure_name => l_proc_name);
4191: x_return_status := FND_API.G_RET_STS_ERROR;
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4193: -- Standard Unexpected Error Logging
4194: INL_LOGGING_PVT.Log_UnexpecError (
4195: p_module_name => g_module_name,
4196: p_procedure_name => l_proc_name);
4197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4198: WHEN OTHERS THEN
4196: p_procedure_name => l_proc_name);
4197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4198: WHEN OTHERS THEN
4199: -- Standard Unexpected Error Logging
4200: INL_LOGGING_PVT.Log_UnexpecError (
4201: p_module_name => g_module_name,
4202: p_procedure_name => l_proc_name);
4203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4204: IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4256: -- Initialize return status to success
4257: x_return_status := FND_API.G_RET_STS_SUCCESS;
4258:
4259: -- Standard Beginning of Procedure/Function Logging
4260: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
4261: p_procedure_name => l_proc_name);
4262:
4263: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4264: p_procedure_name => l_proc_name,
4259: -- Standard Beginning of Procedure/Function Logging
4260: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
4261: p_procedure_name => l_proc_name);
4262:
4263: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4264: p_procedure_name => l_proc_name,
4265: p_var_name => 'p_simulation_id',
4266: p_var_value => p_simulation_id);
4267:
4264: p_procedure_name => l_proc_name,
4265: p_var_name => 'p_simulation_id',
4266: p_var_value => p_simulation_id);
4267:
4268: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4269: p_procedure_name => l_proc_name,
4270: p_debug_info => 'Get PO data that belongs to simulation');
4271:
4272: SELECT meaning
4337: FND_MSG_PUB.ADD;
4338: l_simulation_check := FALSE;
4339: END;
4340:
4341: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4342: p_procedure_name => l_proc_name,
4343: p_var_name => 'l_po_number',
4344: p_var_value => l_po_number);
4345:
4342: p_procedure_name => l_proc_name,
4343: p_var_name => 'l_po_number',
4344: p_var_value => l_po_number);
4345:
4346: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4347: p_procedure_name => l_proc_name,
4348: p_var_name => 'l_po_revision_num',
4349: p_var_value => l_po_revision_num);
4350:
4347: p_procedure_name => l_proc_name,
4348: p_var_name => 'l_po_revision_num',
4349: p_var_value => l_po_revision_num);
4350:
4351: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4352: p_procedure_name => l_proc_name,
4353: p_var_name => 'l_simu_revision_num',
4354: p_var_value => l_simu_revision_num);
4355:
4352: p_procedure_name => l_proc_name,
4353: p_var_name => 'l_simu_revision_num',
4354: p_var_value => l_simu_revision_num);
4355:
4356: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4357: p_procedure_name => l_proc_name,
4358: p_var_name => 'l_po_vendor_id',
4359: p_var_value => l_po_vendor_id);
4360:
4357: p_procedure_name => l_proc_name,
4358: p_var_name => 'l_po_vendor_id',
4359: p_var_value => l_po_vendor_id);
4360:
4361: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4362: p_procedure_name => l_proc_name,
4363: p_var_name => 'l_simu_vendor_id',
4364: p_var_value => l_simu_vendor_id);
4365:
4362: p_procedure_name => l_proc_name,
4363: p_var_name => 'l_simu_vendor_id',
4364: p_var_value => l_simu_vendor_id);
4365:
4366: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4367: p_procedure_name => l_proc_name,
4368: p_var_name => 'l_po_vendor_site_id',
4369: p_var_value => l_po_vendor_site_id);
4370:
4367: p_procedure_name => l_proc_name,
4368: p_var_name => 'l_po_vendor_site_id',
4369: p_var_value => l_po_vendor_site_id);
4370:
4371: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4372: p_procedure_name => l_proc_name,
4373: p_var_name => 'l_simu_vendor_site_id',
4374: p_var_value => l_simu_vendor_site_id);
4375:
4372: p_procedure_name => l_proc_name,
4373: p_var_name => 'l_simu_vendor_site_id',
4374: p_var_value => l_simu_vendor_site_id);
4375:
4376: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4377: p_procedure_name => l_proc_name,
4378: p_var_name => 'l_po_freight_code',
4379: p_var_value => l_po_freight_code);
4380:
4377: p_procedure_name => l_proc_name,
4378: p_var_name => 'l_po_freight_code',
4379: p_var_value => l_po_freight_code);
4380:
4381: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4382: p_procedure_name => l_proc_name,
4383: p_var_name => 'l_simu_freight_code',
4384: p_var_value => l_simu_freight_code);
4385: -- Bug 14280113
4382: p_procedure_name => l_proc_name,
4383: p_var_name => 'l_simu_freight_code',
4384: p_var_value => l_simu_freight_code);
4385: -- Bug 14280113
4386: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4387: p_procedure_name => l_proc_name,
4388: p_var_name => 'l_parent_table_name',
4389: p_var_value => l_parent_table_name);
4390: -- Bug 14280113
4387: p_procedure_name => l_proc_name,
4388: p_var_name => 'l_parent_table_name',
4389: p_var_value => l_parent_table_name);
4390: -- Bug 14280113
4391: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4392: p_procedure_name => l_proc_name,
4393: p_var_name => 'l_po_release_revision_num',
4394: p_var_value => l_po_release_revision_num);
4395:
4396: IF l_po_header_id IS NOT NULL THEN
4397: -- Check revision
4398: IF NVL(l_po_revision_num,0) <> NVL(l_simu_revision_num,0) THEN
4399:
4400: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4401: p_procedure_name => l_proc_name,
4402: p_var_name => 'l_simu_revision_num',
4403: p_var_value => l_simu_revision_num);
4404:
4401: p_procedure_name => l_proc_name,
4402: p_var_name => 'l_simu_revision_num',
4403: p_var_value => l_simu_revision_num);
4404:
4405: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4406: p_procedure_name => l_proc_name,
4407: p_var_name => 'l_po_revision_num',
4408: p_var_value => l_po_revision_num);
4409:
4406: p_procedure_name => l_proc_name,
4407: p_var_name => 'l_po_revision_num',
4408: p_var_value => l_po_revision_num);
4409:
4410: INL_LOGGING_PVT.Log_Statement (
4411: p_module_name => g_module_name,
4412: p_procedure_name => l_proc_name,
4413: p_debug_info => 'PO revision is different from Simulation revision');
4414: FND_MESSAGE.SET_NAME('INL','INL_CHK_SIMUL_SRC_REVISION');
4422:
4423: -- Bug 14280113 Check PO Release revision
4424: IF NVL(l_po_release_revision_num,0) <> NVL(l_simu_revision_num,0) AND
4425: l_parent_table_name = 'PO_RELEASES' THEN
4426: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4427: p_procedure_name => l_proc_name,
4428: p_var_name => 'l_simu_revision_num',
4429: p_var_value => l_simu_revision_num);
4430:
4427: p_procedure_name => l_proc_name,
4428: p_var_name => 'l_simu_revision_num',
4429: p_var_value => l_simu_revision_num);
4430:
4431: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4432: p_procedure_name => l_proc_name,
4433: p_var_name => 'l_po_release_revision_num',
4434: p_var_value => l_po_release_revision_num);
4435:
4432: p_procedure_name => l_proc_name,
4433: p_var_name => 'l_po_release_revision_num',
4434: p_var_value => l_po_release_revision_num);
4435:
4436: INL_LOGGING_PVT.Log_Statement (
4437: p_module_name => g_module_name,
4438: p_procedure_name => l_proc_name,
4439: p_debug_info => 'PO Release revision is different from Simulation revision');
4440: FND_MESSAGE.SET_NAME('INL','INL_CHK_SIMUL_SRC_REL_REVISION');
4484:
4485: RETURN l_simulation_check;
4486:
4487: -- Standard End of Procedure/Function Logging
4488: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
4489: p_procedure_name => l_proc_name);
4490:
4491: EXCEPTION
4492: WHEN FND_API.G_EXC_ERROR THEN
4490:
4491: EXCEPTION
4492: WHEN FND_API.G_EXC_ERROR THEN
4493: -- Standard Expected Error Logging
4494: INL_LOGGING_PVT.Log_ExpecError (
4495: p_module_name => g_module_name,
4496: p_procedure_name => l_proc_name);
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4496: p_procedure_name => l_proc_name);
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4499: -- Standard Unexpected Error Logging
4500: INL_LOGGING_PVT.Log_UnexpecError (
4501: p_module_name => g_module_name,
4502: p_procedure_name => l_proc_name);
4503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4504: WHEN OTHERS THEN
4502: p_procedure_name => l_proc_name);
4503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4504: WHEN OTHERS THEN
4505: -- Standard Unexpected Error Logging
4506: INL_LOGGING_PVT.Log_UnexpecError (
4507: p_module_name => g_module_name,
4508: p_procedure_name => l_proc_name);
4509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4510: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4555:
4556: BEGIN
4557:
4558: -- Standard Beginning of Procedure/Function Logging
4559: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
4560: p_procedure_name => l_api_name) ;
4561:
4562: -- Standard Start of API savepoint
4563: SAVEPOINT Check_POLcmSynch_GRP;
4577:
4578: -- Initialize API return status to success
4579: x_return_status := FND_API.G_RET_STS_SUCCESS;
4580:
4581: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4582: p_procedure_name => l_api_name,
4583: p_var_name => 'p_simulation_id',
4584: p_var_value => p_simulation_id);
4585:
4583: p_var_name => 'p_simulation_id',
4584: p_var_value => p_simulation_id);
4585:
4586:
4587: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4588: p_procedure_name => l_api_name,
4589: p_debug_info => 'Call Check_SimulAgainstPO');
4590:
4591: l_simul_against_po := Check_SimulAgainstPO(
4600: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4604: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4605: p_procedure_name => l_api_name,
4606: p_debug_info => 'Call Check_ShipLinesAgainstPO');
4607:
4608: l_ship_ln_check := Check_ShipLinesAgainstPO(
4617: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4621: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4622: p_procedure_name => l_api_name,
4623: p_debug_info => 'Call Check_POAgainstShipLines');
4624:
4625: l_po_ship_check := Check_POAgainstShipLines(
4645: END IF;
4646: -- Standard call to get message count and if count is 1, get message info.
4647: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4648: -- Standard End of Procedure/Function Logging
4649: INL_LOGGING_PVT.Log_EndProc(
4650: p_module_name => g_module_name,
4651: p_procedure_name => l_api_name);
4652:
4653: RETURN l_check_po_lcm_synch;
4654:
4655: EXCEPTION
4656: WHEN FND_API.G_EXC_ERROR THEN
4657: -- Standard Expected Error Logging
4658: INL_LOGGING_PVT.Log_ExpecError (
4659: p_module_name => g_module_name,
4660: p_procedure_name => l_api_name);
4661: ROLLBACK TO Check_POLcmSynch_GRP;
4662: x_return_status := FND_API.G_RET_STS_ERROR;
4665: p_count => x_msg_count,
4666: p_data => x_msg_data);
4667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4668: -- Standard Unexpected Error Logging
4669: INL_LOGGING_PVT.Log_UnexpecError (
4670: p_module_name => g_module_name,
4671: p_procedure_name => l_api_name);
4672: ROLLBACK TO Check_POLcmSynch_GRP;
4673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4676: p_count => x_msg_count,
4677: p_data => x_msg_data);
4678: WHEN OTHERS THEN
4679: -- Standard Unexpected Error Logging
4680: INL_LOGGING_PVT.Log_UnexpecError (
4681: p_module_name => g_module_name,
4682: p_procedure_name => l_api_name);
4683: ROLLBACK TO Check_POLcmSynch_GRP;
4684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4732: l_is_po_eligible VARCHAR2(1) := 'N';
4733: l_func_name VARCHAR2 (200) := 'Check_POEligibility';
4734:
4735: BEGIN
4736: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
4737: p_procedure_name => l_func_name);
4738:
4739: OPEN c_po_info;
4740: FETCH c_po_Info BULK COLLECT INTO po_info_list;
4753: EXIT; -- exit loop as an elegible PLL has been found
4754: END IF;
4755: END LOOP;
4756:
4757: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
4758: p_procedure_name => l_func_name);
4759:
4760: RETURN l_is_po_eligible;
4761: EXCEPTION
4760: RETURN l_is_po_eligible;
4761: EXCEPTION
4762: WHEN NO_DATA_FOUND THEN
4763: -- Standard Unexpected Error Logging
4764: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
4765: p_procedure_name => l_func_name) ;
4766: RETURN l_is_po_eligible;
4767: WHEN OTHERS THEN
4768: -- Standard Unexpected Error Logging
4765: p_procedure_name => l_func_name) ;
4766: RETURN l_is_po_eligible;
4767: WHEN OTHERS THEN
4768: -- Standard Unexpected Error Logging
4769: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
4770: p_procedure_name => l_func_name) ;
4771: IF FND_MSG_PUB.Check_Msg_Level (p_message_level =>
4772: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4773: FND_MSG_PUB.Add_Exc_Msg (p_pkg_name => g_pkg_name,