[Home] [Help]
276: l_ship_header_int_id NUMBER;
277: l_error_message VARCHAR2(2000) ;
278: BEGIN
279: -- Standard Beginning of Procedure/Function Logging
280: INL_LOGGING_PVT.Log_BeginProc(
281: p_module_name => g_module_name,
282: p_procedure_name => l_program_name) ;
283: -- Initialize API return status to success
284: x_return_status := L_FND_RET_STS_SUCCESS;
306: FND_MSG_PUB.ADD;
307: l_error_message := SUBSTR(FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg(), L_FND_FALSE), 1, 2000) ;
308: END IF;
309: l_debug_info := 'Error Mesage: '||l_error_message;
310: INL_LOGGING_PVT.Log_Statement(
311: p_module_name => g_module_name,
312: p_procedure_name => l_program_name,
313: p_debug_info => l_debug_info ) ;
314:
314:
315: -- In case of error during Shipment Line import process
316: IF p_parent_table_name = 'INL_SHIP_LINES_INT' THEN
317: l_debug_info := 'Set Shipment Line Interface status to ERROR.';
318: INL_LOGGING_PVT.LOG_STATEMENT(
319: P_MODULE_NAME => G_MODULE_NAME,
320: P_PROCEDURE_NAME => l_program_name,
321: P_DEBUG_INFO => L_DEBUG_INFO) ;
322:
338: WHERE ship_line_int_id = p_parent_table_id;
339: /* --Bug#11794442 made in procedure Run_MatchPreProcessor
340: ELSIF p_parent_table_name = 'INL_MATCHES_INT' THEN
341: l_debug_info := 'Set Match Interface status to ERROR.';
342: INL_LOGGING_PVT.Log_Statement(
343: p_module_name => g_module_name,
344: p_procedure_name => l_program_name,
345: p_debug_info => l_debug_info) ;
346:
360: IF p_parent_table_name = 'INL_SHIP_HEADERS_INT'
361: OR l_ship_header_int_id IS NOT NULL
362: THEN
363: l_debug_info := 'Set Shipment Header Interface status to ERROR.';
364: INL_LOGGING_PVT.Log_Statement(
365: p_module_name => g_module_name,
366: p_procedure_name => l_program_name,
367: p_debug_info => l_debug_info) ;
368:
378: WHERE ship_header_int_id = NVL(l_ship_header_int_id, p_parent_table_id)
379: AND processing_status_code <> 'ERROR';
380: END IF;
381: l_debug_info := 'Insert detailed error message into Interface Error table.';
382: INL_LOGGING_PVT.Log_Statement(
383: p_module_name => g_module_name,
384: p_procedure_name => l_program_name,
385: p_debug_info => l_debug_info) ;
386:
446: SYSDATE, /*28*/
447: L_FND_CONC_REQUEST_ID /*29*/
448: );
449: -- Standard End of Procedure/Function Logging
450: INL_LOGGING_PVT.Log_EndProc(
451: p_module_name => g_module_name,
452: p_procedure_name => l_program_name);
453:
454: EXCEPTION
453:
454: EXCEPTION
455: WHEN L_FND_EXC_ERROR THEN
456: -- Standard Expected Error Logging
457: INL_LOGGING_PVT.Log_ExpecError (
458: p_module_name => g_module_name,
459: p_procedure_name => l_program_name);
460: x_return_status := L_FND_RET_STS_ERROR;
461: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
459: p_procedure_name => l_program_name);
460: x_return_status := L_FND_RET_STS_ERROR;
461: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
462: -- Standard Unexpected Error Logging
463: INL_LOGGING_PVT.Log_UnexpecError (
464: p_module_name => g_module_name,
465: p_procedure_name => l_program_name);
466: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
467: WHEN OTHERS THEN
465: p_procedure_name => l_program_name);
466: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
467: WHEN OTHERS THEN
468: -- Standard Unexpected Error Logging
469: INL_LOGGING_PVT.Log_UnexpecError (
470: p_module_name => g_module_name,
471: p_procedure_name => l_program_name);
472: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
473: IF FND_MSG_PUB.Check_Msg_Level(
501: l_return_status VARCHAR2(1);
502: l_debug_info VARCHAR2(200);
503: BEGIN
504: -- Standard Beginning of Procedure/Function Logging
505: INL_LOGGING_PVT.Log_BeginProc(
506: p_module_name => g_module_name,
507: p_procedure_name => l_program_name
508: ) ;
509: -- Initialize API return status to success
508: ) ;
509: -- Initialize API return status to success
510: x_return_status := L_FND_RET_STS_SUCCESS;
511: l_debug_info := 'Delete Errors from previous validation.';
512: INL_LOGGING_PVT.Log_Statement(
513: p_module_name => g_module_name,
514: p_procedure_name => l_program_name,
515: p_debug_info => l_debug_info
516: ) ;
518: FROM inl_interface_errors
519: WHERE parent_table_name = p_parent_table_name
520: AND parent_table_id = p_parent_table_id;
521: -- Standard End of Procedure/Function Logging
522: INL_LOGGING_PVT.Log_EndProc(
523: p_module_name => g_module_name,
524: p_procedure_name => l_program_name);
525: EXCEPTION
526: WHEN L_FND_EXC_ERROR THEN
524: p_procedure_name => l_program_name);
525: EXCEPTION
526: WHEN L_FND_EXC_ERROR THEN
527: -- Standard Expected Error Logging
528: INL_LOGGING_PVT.Log_ExpecError (
529: p_module_name => g_module_name,
530: p_procedure_name => l_program_name);
531: x_return_status := L_FND_RET_STS_ERROR;
532: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
530: p_procedure_name => l_program_name);
531: x_return_status := L_FND_RET_STS_ERROR;
532: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
533: -- Standard Unexpected Error Logging
534: INL_LOGGING_PVT.Log_UnexpecError (
535: p_module_name => g_module_name,
536: p_procedure_name => l_program_name);
537: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
538: WHEN OTHERS THEN
536: p_procedure_name => l_program_name);
537: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
538: WHEN OTHERS THEN
539: -- Standard Unexpected Error Logging
540: INL_LOGGING_PVT.Log_UnexpecError (
541: p_module_name => g_module_name,
542: p_procedure_name => l_program_name);
543: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
544: IF FND_MSG_PUB.Check_Msg_Level(
571: l_debug_info VARCHAR2(200) ;
572: l_return_value NUMBER;
573: BEGIN
574: -- Standard Beginning of Procedure/Function Logging
575: INL_LOGGING_PVT.Log_BeginProc(
576: p_module_name => g_module_name,
577: p_procedure_name => l_program_name
578: ) ;
579: -- Initialize API return status to success
578: ) ;
579: -- Initialize API return status to success
580: x_return_status := L_FND_RET_STS_SUCCESS;
581: l_debug_info := 'Getting party_id.';
582: INL_LOGGING_PVT.Log_Statement(
583: p_module_name => g_module_name,
584: p_procedure_name => l_program_name,
585: p_debug_info => l_debug_info
586: ) ;
588: INTO l_return_value
589: FROM hz_parties
590: WHERE PARTY_NUMBER = p_party_number;
591: -- Standard End of Procedure/Function Logging
592: INL_LOGGING_PVT.Log_EndProc(
593: p_module_name => g_module_name,
594: p_procedure_name => l_program_name
595: );
596: RETURN l_return_value;
596: RETURN l_return_value;
597: EXCEPTION
598: WHEN L_FND_EXC_ERROR THEN
599: -- Standard Expected Error Logging
600: INL_LOGGING_PVT.Log_ExpecError (
601: p_module_name => g_module_name,
602: p_procedure_name => l_program_name
603: );
604: x_return_status := L_FND_RET_STS_ERROR;
604: x_return_status := L_FND_RET_STS_ERROR;
605: RETURN 0;
606: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
607: -- Standard Unexpected Error Logging
608: INL_LOGGING_PVT.Log_UnexpecError (
609: p_module_name => g_module_name,
610: p_procedure_name => l_program_name
611: );
612: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
612: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
613: RETURN 0;
614: WHEN OTHERS THEN
615: -- Standard Unexpected Error Logging
616: INL_LOGGING_PVT.Log_UnexpecError (
617: p_module_name => g_module_name,
618: p_procedure_name => l_program_name
619: );
620: IF FND_MSG_PUB.Check_Msg_Level(
650: l_debug_info VARCHAR2(200);
651: l_return_value NUMBER;
652: BEGIN
653: -- Standard Beginning of Procedure/Function Logging
654: INL_LOGGING_PVT.Log_BeginProc(
655: p_module_name => g_module_name,
656: p_procedure_name => l_program_name
657: ) ;
658: -- Initialize API return status to success
657: ) ;
658: -- Initialize API return status to success
659: x_return_status := L_FND_RET_STS_SUCCESS;
660: l_debug_info := 'Getting PartySite_id.';
661: INL_LOGGING_PVT.Log_Statement(
662: p_module_name => g_module_name,
663: p_procedure_name => l_program_name,
664: p_debug_info => l_debug_info
665: ) ;
667: INTO l_return_value
668: FROM hz_party_sites
669: WHERE party_site_number = p_party_site_number;
670: -- Standard End of Procedure/Function Logging
671: INL_LOGGING_PVT.Log_EndProc(
672: p_module_name => g_module_name,
673: p_procedure_name => l_program_name
674: );
675: RETURN l_return_value;
675: RETURN l_return_value;
676: EXCEPTION
677: WHEN L_FND_EXC_ERROR THEN
678: -- Standard Expected Error Logging
679: INL_LOGGING_PVT.Log_ExpecError (
680: p_module_name => g_module_name,
681: p_procedure_name => l_program_name
682: );
683: x_return_status := L_FND_RET_STS_ERROR;
683: x_return_status := L_FND_RET_STS_ERROR;
684: RETURN 0;
685: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
686: -- Standard Unexpected Error Logging
687: INL_LOGGING_PVT.Log_UnexpecError (
688: p_module_name => g_module_name,
689: p_procedure_name => l_program_name
690: );
691: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
691: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
692: RETURN 0;
693: WHEN OTHERS THEN
694: -- Standard Unexpected Error Logging
695: INL_LOGGING_PVT.Log_UnexpecError (
696: p_module_name => g_module_name,
697: p_procedure_name => l_program_name
698: );
699: IF FND_MSG_PUB.Check_Msg_Level(
752: l_valid_ship_num NUMBER;
753:
754: BEGIN
755: -- Standard Beginning of Procedure/Function Logging
756: INL_LOGGING_PVT.Log_BeginProc(
757: p_module_name => g_module_name,
758: p_procedure_name => l_program_name) ;
759: -- Initialize API return status to success
760: x_return_status := L_FND_RET_STS_SUCCESS;
757: p_module_name => g_module_name,
758: p_procedure_name => l_program_name) ;
759: -- Initialize API return status to success
760: x_return_status := L_FND_RET_STS_SUCCESS;
761: INL_LOGGING_PVT.Log_Variable(
762: p_module_name => g_module_name,
763: p_procedure_name => l_program_name,
764: p_var_name => 'p_ship_header_int_id',
765: p_var_value => p_ship_header_int_id) ;
762: p_module_name => g_module_name,
763: p_procedure_name => l_program_name,
764: p_var_name => 'p_ship_header_int_id',
765: p_var_value => p_ship_header_int_id) ;
766: INL_LOGGING_PVT.Log_Variable(
767: p_module_name => g_module_name,
768: p_procedure_name => l_program_name,
769: p_var_name => 'p_organization_id',
770: p_var_value => p_organization_id) ;
767: p_module_name => g_module_name,
768: p_procedure_name => l_program_name,
769: p_var_name => 'p_organization_id',
770: p_var_value => p_organization_id) ;
771: INL_LOGGING_PVT.Log_Variable(
772: p_module_name => g_module_name,
773: p_procedure_name => l_program_name,
774: p_var_name => 'p_transaction_type',
775: p_var_value => p_transaction_type) ;
772: p_module_name => g_module_name,
773: p_procedure_name => l_program_name,
774: p_var_name => 'p_transaction_type',
775: p_var_value => p_transaction_type) ;
776: INL_LOGGING_PVT.Log_Variable(
777: p_module_name => g_module_name,
778: p_procedure_name => l_program_name,
779: p_var_name => 'p_user_defined_ship_num_code',
780: p_var_value => p_user_defined_ship_num_code) ;
777: p_module_name => g_module_name,
778: p_procedure_name => l_program_name,
779: p_var_name => 'p_user_defined_ship_num_code',
780: p_var_value => p_user_defined_ship_num_code) ;
781: INL_LOGGING_PVT.Log_Variable(
782: p_module_name => g_module_name,
783: p_procedure_name => l_program_name,
784: p_var_name => 'p_LCM_FLOW',
785: p_var_value => p_LCM_FLOW) ;
782: p_module_name => g_module_name,
783: p_procedure_name => l_program_name,
784: p_var_name => 'p_LCM_FLOW',
785: p_var_value => p_LCM_FLOW) ;
786: INL_LOGGING_PVT.Log_Variable(
787: p_module_name => g_module_name,
788: p_procedure_name => l_program_name,
789: p_var_name => 'p_ship_num',
790: p_var_value => p_ship_num) ;
789: p_var_name => 'p_ship_num',
790: p_var_value => p_ship_num) ;
791:
792: l_debug_info := 'Ship Number validation';
793: INL_LOGGING_PVT.Log_Statement(
794: p_module_name => g_module_name,
795: p_procedure_name => l_program_name,
796: p_debug_info => l_debug_info);
797:
799:
800: IF x_ship_header_id IS NOT NULL THEN
801: x_ship_num := NULL;
802: l_debug_info := 'Ship Header Id IS NOT NULL, then Ship Num is set to be NULL';
803: INL_LOGGING_PVT.Log_Statement(
804: p_module_name => g_module_name,
805: p_procedure_name => l_program_name,
806: p_debug_info => l_debug_info);
807: ELSIF x_ship_num IS NOT NULL AND p_transaction_type = 'UPDATE' THEN
813: AND sh.organization_id = p_organization_id;
814: EXCEPTION
815: WHEN OTHERS THEN
816: l_debug_info := 'Ship Num: ' || x_ship_num || ' not found in inl_ship_headers';
817: INL_LOGGING_PVT.Log_Statement(
818: p_module_name => g_module_name,
819: p_procedure_name => l_program_name,
820: p_debug_info => l_debug_info);
821: l_result := L_FND_FALSE;
845: IF p_user_defined_ship_num_code = 'MANUAL'
846: AND p_LCM_FLOW = 'AAS'
847: THEN
848: l_debug_info := 'the import Shipment through LCM interface is only allowed for AUTOMATIC Shipment Number Generation in LCM as a Service Flow.';
849: INL_LOGGING_PVT.Log_Statement(
850: p_module_name => g_module_name,
851: p_procedure_name => l_program_name,
852: p_debug_info => l_debug_info);
853:
873: -- /Bug #9198199
874:
875: IF p_validation_flag = 'Y' THEN
876: l_debug_info := 'Validate Shipment Number according to transation type';
877: INL_LOGGING_PVT.Log_Statement(
878: p_module_name => g_module_name,
879: p_procedure_name => l_program_name,
880: p_debug_info => l_debug_info);
881:
883: IF p_user_defined_ship_num_code = 'MANUAL' AND p_LCM_FLOW = 'PR'
884: THEN
885: IF p_ship_num IS NULL THEN
886: l_debug_info := 'Ship Number cannot be null for a MANUAL defined organization';
887: INL_LOGGING_PVT.Log_Statement(
888: p_module_name => g_module_name,
889: p_procedure_name => l_program_name,
890: p_debug_info => l_debug_info);
891:
912: FROM inl_ship_headers_all sh --Bug#10381495
913: WHERE sh.ship_num = p_ship_num
914: AND sh.organization_id = p_organization_id;
915:
916: INL_LOGGING_PVT.Log_Variable(
917: p_module_name => g_module_name,
918: p_procedure_name => l_program_name,
919: p_var_name => 'l_count_ship_num_exist',
920: p_var_value => l_count_ship_num_exist);
920: p_var_value => l_count_ship_num_exist);
921:
922: IF NVL(l_count_ship_num_exist,0) > 0 THEN
923: l_debug_info := 'Ship Number exists for this Organization';
924: INL_LOGGING_PVT.Log_Statement(
925: p_module_name => g_module_name,
926: p_procedure_name => l_program_name,
927: p_debug_info => l_debug_info);
928:
953: WHEN OTHERS THEN
954: l_check_numeric := null;
955: END;
956:
957: INL_LOGGING_PVT.Log_Variable(
958: p_module_name => g_module_name,
959: p_procedure_name => l_program_name,
960: p_var_name => 'l_check_numeric',
961: p_var_value => l_check_numeric) ;
961: p_var_value => l_check_numeric) ;
962:
963: IF(l_check_numeric IS NULL OR l_check_numeric <> 0) THEN
964: l_debug_info := 'Ship Number should be numeric';
965: INL_LOGGING_PVT.Log_Statement(
966: p_module_name => g_module_name,
967: p_procedure_name => l_program_name,
968: p_debug_info => l_debug_info);
969:
990: END IF;
991: ELSIF p_user_defined_ship_num_code = 'AUTOMATIC' THEN
992: IF p_ship_num IS NOT NULL THEN
993: l_debug_info := 'For transaction type = CREATE, Ship_Num should be null';
994: INL_LOGGING_PVT.Log_Statement(
995: p_module_name => g_module_name,
996: p_procedure_name => l_program_name,
997: p_debug_info => l_debug_info) ;
998: l_result := L_FND_FALSE;
1020: END IF;
1021: END IF;
1022: END IF;
1023: -- Standard End of Procedure/Function Logging
1024: INL_LOGGING_PVT.Log_EndProc(
1025: p_module_name => g_module_name,
1026: p_procedure_name => l_program_name);
1027: RETURN FND_API.to_boolean(l_result) ;
1028:
1028:
1029: EXCEPTION
1030: WHEN L_FND_EXC_ERROR THEN
1031: -- Standard Expected Error Logging
1032: INL_LOGGING_PVT.Log_ExpecError (
1033: p_module_name => g_module_name,
1034: p_procedure_name => l_program_name);
1035: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1036: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1034: p_procedure_name => l_program_name);
1035: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1036: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1037: -- Standard Unexpected Error Logging
1038: INL_LOGGING_PVT.Log_UnexpecError (
1039: p_module_name => g_module_name,
1040: p_procedure_name => l_program_name);
1041: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1042: WHEN OTHERS THEN
1040: p_procedure_name => l_program_name);
1041: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1042: WHEN OTHERS THEN
1043: -- Standard Unexpected Error Logging
1044: INL_LOGGING_PVT.Log_UnexpecError (
1045: p_module_name => g_module_name,
1046: p_procedure_name => l_program_name);
1047: IF FND_MSG_PUB.Check_Msg_Level(
1048: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1091: l_count_alw_src_types NUMBER;
1092:
1093: BEGIN
1094: -- Standard Beginning of Procedure/Function Logging
1095: INL_LOGGING_PVT.Log_BeginProc(
1096: p_module_name => g_module_name,
1097: p_procedure_name => l_program_name) ;
1098: -- Initialize API return status to success
1099: x_return_status := L_FND_RET_STS_SUCCESS;
1098: -- Initialize API return status to success
1099: x_return_status := L_FND_RET_STS_SUCCESS;
1100:
1101: l_debug_info := 'Derive and validate Shipment Type if required';
1102: INL_LOGGING_PVT.Log_Statement(
1103: p_module_name => g_module_name,
1104: p_procedure_name => l_program_name,
1105: p_debug_info => l_debug_info) ;
1106:
1103: p_module_name => g_module_name,
1104: p_procedure_name => l_program_name,
1105: p_debug_info => l_debug_info) ;
1106:
1107: INL_LOGGING_PVT.Log_Variable(
1108: p_module_name => g_module_name,
1109: p_procedure_name => l_program_name,
1110: p_var_name => 'x_ship_type_id',
1111: p_var_value => x_ship_type_id) ;
1109: p_procedure_name => l_program_name,
1110: p_var_name => 'x_ship_type_id',
1111: p_var_value => x_ship_type_id) ;
1112:
1113: INL_LOGGING_PVT.Log_Variable(
1114: p_module_name => g_module_name,
1115: p_procedure_name => l_program_name,
1116: p_var_name => 'x_ship_type_code',
1117: p_var_value => x_ship_type_code) ;
1115: p_procedure_name => l_program_name,
1116: p_var_name => 'x_ship_type_code',
1117: p_var_value => x_ship_type_code) ;
1118:
1119: INL_LOGGING_PVT.Log_Variable(
1120: p_module_name => g_module_name,
1121: p_procedure_name => l_program_name,
1122: p_var_name => 'p_validation_flag',
1123: p_var_value => p_validation_flag) ;
1123: p_var_value => p_validation_flag) ;
1124:
1125: IF p_validation_flag = 'N' THEN
1126: l_debug_info := 'Validation is not required for Ship Type';
1127: INL_LOGGING_PVT.Log_Statement(
1128: p_module_name => g_module_name,
1129: p_procedure_name => l_program_name,
1130: p_debug_info => l_debug_info);
1131:
1172: -- Validate Ship Type
1173: IF NOT SYSDATE BETWEEN NVL((TRUNC(l_active_from_date)),SYSDATE)
1174: AND NVL((TRUNC(l_active_to_date)+.99999)-1,SYSDATE) THEN
1175: l_debug_info := 'Date is closed for the Ship Type';
1176: INL_LOGGING_PVT.Log_Statement(
1177: p_module_name => g_module_name,
1178: p_procedure_name => l_program_name,
1179: p_debug_info => l_debug_info) ;
1180:
1197: END IF;
1198:
1199: IF NVL(l_count_alw_ln_types,0) = 0 THEN
1200: l_debug_info := 'No Ship Line Type allowed for the Shipment Type: ' || x_ship_type_code;
1201: INL_LOGGING_PVT.Log_Statement(
1202: p_module_name => g_module_name,
1203: p_procedure_name => l_program_name,
1204: p_debug_info => l_debug_info) ;
1205:
1222: END IF;
1223:
1224: IF NVL(l_count_alw_src_types,0) = 0 THEN
1225: l_debug_info := 'No Ship Line Type allowed for the Shipment Type: ' || x_ship_type_code;
1226: INL_LOGGING_PVT.Log_Statement(
1227: p_module_name => g_module_name,
1228: p_procedure_name => l_program_name,
1229: p_debug_info => l_debug_info) ;
1230:
1246: END IF;
1247: END IF;
1248: END IF;
1249: -- Standard End of Procedure/Function Logging
1250: INL_LOGGING_PVT.Log_EndProc(
1251: p_module_name => g_module_name,
1252: p_procedure_name => l_program_name);
1253: RETURN FND_API.to_boolean(l_result) ;
1254: EXCEPTION
1253: RETURN FND_API.to_boolean(l_result) ;
1254: EXCEPTION
1255: WHEN L_FND_EXC_ERROR THEN
1256: -- Standard Expected Error Logging
1257: INL_LOGGING_PVT.Log_ExpecError (
1258: p_module_name => g_module_name,
1259: p_procedure_name => l_program_name);
1260: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1261: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1259: p_procedure_name => l_program_name);
1260: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1261: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1262: -- Standard Unexpected Error Logging
1263: INL_LOGGING_PVT.Log_UnexpecError (
1264: p_module_name => g_module_name,
1265: p_procedure_name => l_program_name);
1266: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1267: WHEN OTHERS THEN
1322: l_count_alw_party_usg NUMBER;
1323:
1324: BEGIN
1325: -- Standard Beginning of Procedure/Function Logging
1326: INL_LOGGING_PVT.Log_BeginProc(
1327: p_module_name => g_module_name,
1328: p_procedure_name => l_program_name) ;
1329: -- Initialize API return status to success
1330: x_return_status := L_FND_RET_STS_SUCCESS;
1328: p_procedure_name => l_program_name) ;
1329: -- Initialize API return status to success
1330: x_return_status := L_FND_RET_STS_SUCCESS;
1331:
1332: INL_LOGGING_PVT.Log_Variable(
1333: p_module_name => g_module_name,
1334: p_procedure_name => l_program_name,
1335: p_var_name => 'p_ship_line_int_id',
1336: p_var_value => p_ship_line_int_id);
1334: p_procedure_name => l_program_name,
1335: p_var_name => 'p_ship_line_int_id',
1336: p_var_value => p_ship_line_int_id);
1337:
1338: INL_LOGGING_PVT.Log_Variable(
1339: p_module_name => g_module_name,
1340: p_procedure_name => l_program_name,
1341: p_var_name => 'p_validation_flag',
1342: p_var_value => p_validation_flag);
1340: p_procedure_name => l_program_name,
1341: p_var_name => 'p_validation_flag',
1342: p_var_value => p_validation_flag);
1343:
1344: INL_LOGGING_PVT.Log_Variable(
1345: p_module_name => g_module_name,
1346: p_procedure_name => l_program_name,
1347: p_var_name => 'p_ship_type_id',
1348: p_var_value => p_ship_type_id);
1347: p_var_name => 'p_ship_type_id',
1348: p_var_value => p_ship_type_id);
1349:
1350:
1351: INL_LOGGING_PVT.Log_Variable(
1352: p_module_name => g_module_name,
1353: p_procedure_name => l_program_name,
1354: p_var_name => 'x_party_id',
1355: p_var_value => x_party_id);
1353: p_procedure_name => l_program_name,
1354: p_var_name => 'x_party_id',
1355: p_var_value => x_party_id);
1356:
1357: INL_LOGGING_PVT.Log_Variable(
1358: p_module_name => g_module_name,
1359: p_procedure_name => l_program_name,
1360: p_var_name => 'x_party_number',
1361: p_var_value => x_party_number);
1428: (x_party_id IS NOT NULL
1429: AND party_id = x_party_id)
1430: OR party_number = x_party_number;
1431:
1432: INL_LOGGING_PVT.Log_Variable(
1433: p_module_name => g_module_name,
1434: p_procedure_name => l_program_name,
1435: p_var_name => 'l_count_alw_party_type',
1436: p_var_value => l_count_alw_party_type);
1434: p_procedure_name => l_program_name,
1435: p_var_name => 'l_count_alw_party_type',
1436: p_var_value => l_count_alw_party_type);
1437:
1438: INL_LOGGING_PVT.Log_Variable(
1439: p_module_name => g_module_name,
1440: p_procedure_name => l_program_name,
1441: p_var_name => 'l_count_alw_party_usg',
1442: p_var_value => l_count_alw_party_usg);
1442: p_var_value => l_count_alw_party_usg);
1443:
1444: IF NVL(l_count_alw_party_type, 0) = 0 AND x_party_id IS NOT NULL THEN
1445: l_debug_info := 'Party is not compliant with Party Types defined for the Shipment Type';
1446: INL_LOGGING_PVT.Log_Statement(
1447: p_module_name => g_module_name,
1448: p_procedure_name => l_program_name,
1449: p_debug_info => l_debug_info);
1450: l_response := L_FND_FALSE;
1464: END IF;
1465: END IF;
1466: IF NVL(l_count_alw_party_usg,0) = 0 AND x_party_id IS NOT NULL THEN
1467: l_debug_info := 'Party is not compliant with Party Usage defined for the Shipment Type';
1468: INL_LOGGING_PVT.Log_Statement(
1469: p_module_name => g_module_name,
1470: p_procedure_name => l_program_name,
1471: p_debug_info => l_debug_info);
1472: l_response := L_FND_FALSE;
1486: END IF;
1487: END IF;
1488: END IF;
1489: -- Standard End of Procedure/Function Logging
1490: INL_LOGGING_PVT.Log_EndProc(
1491: p_module_name => g_module_name,
1492: p_procedure_name => l_program_name);
1493: RETURN FND_API.to_boolean(l_response) ;
1494: EXCEPTION
1493: RETURN FND_API.to_boolean(l_response) ;
1494: EXCEPTION
1495: WHEN L_FND_EXC_ERROR THEN
1496: -- Standard Expected Error Logging
1497: INL_LOGGING_PVT.Log_ExpecError (
1498: p_module_name => g_module_name,
1499: p_procedure_name => l_program_name);
1500: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1501: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1499: p_procedure_name => l_program_name);
1500: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1501: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1502: -- Standard Unexpected Error Logging
1503: INL_LOGGING_PVT.Log_UnexpecError (
1504: p_module_name => g_module_name,
1505: p_procedure_name => l_program_name);
1506: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1507: WHEN OTHERS THEN
1563: l_count_alw_party NUMBER;
1564:
1565: BEGIN
1566: -- Standard Beginning of Procedure/Function Logging
1567: INL_LOGGING_PVT.Log_BeginProc(
1568: p_module_name => g_module_name,
1569: p_procedure_name => l_program_name) ;
1570: -- Initialize API return status to success
1571: x_return_status := L_FND_RET_STS_SUCCESS;
1569: p_procedure_name => l_program_name) ;
1570: -- Initialize API return status to success
1571: x_return_status := L_FND_RET_STS_SUCCESS;
1572:
1573: INL_LOGGING_PVT.Log_Variable(
1574: p_module_name => g_module_name,
1575: p_procedure_name => l_program_name,
1576: p_var_name => 'p_party_id',
1577: p_var_value => p_party_id);
1575: p_procedure_name => l_program_name,
1576: p_var_name => 'p_party_id',
1577: p_var_value => p_party_id);
1578:
1579: INL_LOGGING_PVT.Log_Variable(
1580: p_module_name => g_module_name,
1581: p_procedure_name => l_program_name,
1582: p_var_name => 'x_party_site_id',
1583: p_var_value => x_party_site_id);
1581: p_procedure_name => l_program_name,
1582: p_var_name => 'x_party_site_id',
1583: p_var_value => x_party_site_id);
1584:
1585: INL_LOGGING_PVT.Log_Variable(
1586: p_module_name => g_module_name,
1587: p_procedure_name => l_program_name,
1588: p_var_name => 'x_party_site_number',
1589: p_var_value => x_party_site_number);
1587: p_procedure_name => l_program_name,
1588: p_var_name => 'x_party_site_number',
1589: p_var_value => x_party_site_number);
1590:
1591: INL_LOGGING_PVT.Log_Variable(
1592: p_module_name => g_module_name,
1593: p_procedure_name => l_program_name,
1594: p_var_name => 'p_ship_line_int_id',
1595: p_var_value => p_ship_line_int_id);
1593: p_procedure_name => l_program_name,
1594: p_var_name => 'p_ship_line_int_id',
1595: p_var_value => p_ship_line_int_id);
1596:
1597: INL_LOGGING_PVT.Log_Variable(
1598: p_module_name => g_module_name,
1599: p_procedure_name => l_program_name,
1600: p_var_name => 'p_validation_flag',
1601: p_var_value => p_validation_flag);
1599: p_procedure_name => l_program_name,
1600: p_var_name => 'p_validation_flag',
1601: p_var_value => p_validation_flag);
1602:
1603: INL_LOGGING_PVT.Log_Variable(
1604: p_module_name => g_module_name,
1605: p_procedure_name => l_program_name,
1606: p_var_name => 'p_dflt_country',
1607: p_var_value => p_dflt_country);
1605: p_procedure_name => l_program_name,
1606: p_var_name => 'p_dflt_country',
1607: p_var_value => p_dflt_country);
1608:
1609: INL_LOGGING_PVT.Log_Variable(
1610: p_module_name => g_module_name,
1611: p_procedure_name => l_program_name,
1612: p_var_name => 'p_ship_type_id',
1613: p_var_value => p_ship_type_id);
1613: p_var_value => p_ship_type_id);
1614:
1615: IF p_validation_flag = 'N' THEN
1616: l_debug_info := 'Validation is not required for Party Site';
1617: INL_LOGGING_PVT.Log_Statement(
1618: p_module_name => g_module_name,
1619: p_procedure_name => l_program_name,
1620: p_debug_info => l_debug_info);
1621: IF x_party_site_id IS NOT NULL THEN
1631: END IF;
1632: ELSE
1633:
1634: l_debug_info := 'Validation is required for Party Site';
1635: INL_LOGGING_PVT.Log_Statement(
1636: p_module_name => g_module_name,
1637: p_procedure_name => l_program_name,
1638: p_debug_info => l_debug_info);
1639:
1645: l_column_value := x_party_site_number;
1646: END IF;
1647:
1648: l_debug_info := 'Derive Party Site Id from Party Site Number';
1649: INL_LOGGING_PVT.Log_Statement(
1650: p_module_name => g_module_name,
1651: p_procedure_name => l_program_name,
1652: p_debug_info => l_debug_info);
1653:
1679: WHERE ( x_party_site_id IS NOT null
1680: AND party_site_id = x_party_site_id)
1681: OR party_site_number = x_party_site_number;
1682:
1683: INL_LOGGING_PVT.Log_Variable(
1684: p_module_name => g_module_name,
1685: p_procedure_name => l_program_name,
1686: p_var_name => 'x_party_site_id',
1687: p_var_value => x_party_site_id);
1684: p_module_name => g_module_name,
1685: p_procedure_name => l_program_name,
1686: p_var_name => 'x_party_site_id',
1687: p_var_value => x_party_site_id);
1688: INL_LOGGING_PVT.Log_Variable(
1689: p_module_name => g_module_name,
1690: p_procedure_name => l_program_name,
1691: p_var_name => 'x_party_site_number',
1692: p_var_value => x_party_site_number);
1694: -- Party Site Validation
1695: IF p_party_id IS NULL AND
1696: (x_party_site_id IS NOT NULL OR x_party_site_number IS NOT NULL) THEN
1697: l_debug_info := 'Party is null, so party site should be null';
1698: INL_LOGGING_PVT.Log_Statement(
1699: p_module_name => g_module_name,
1700: p_procedure_name => l_program_name,
1701: p_debug_info => l_debug_info);
1702: l_response := L_FND_FALSE;
1719: IF NVL(l_count_belongs_party, 0) = 0
1720: AND x_party_site_id IS NOT NULL
1721: THEN
1722: l_debug_info := 'Party Site should belong to the Party';
1723: INL_LOGGING_PVT.Log_Statement(
1724: p_module_name => g_module_name,
1725: p_procedure_name => l_program_name,
1726: p_debug_info => l_debug_info);
1727: l_response := L_FND_FALSE;
1740: RAISE L_FND_EXC_UNEXPECTED_ERROR;
1741: END IF;
1742: ELSIF NVL(l_count_alw_party, 0) = 0 AND x_party_site_id IS NOT NULL THEN
1743: l_debug_info := 'Party Site does not match with the Third Party Sites Allowed defined in Ship Type';
1744: INL_LOGGING_PVT.Log_Statement(
1745: p_module_name => g_module_name,
1746: p_procedure_name => l_program_name,
1747: p_debug_info => l_debug_info);
1748: l_response := L_FND_FALSE;
1768: END IF;
1769: END IF;
1770: END IF;
1771: -- Standard End of Procedure/Function Logging
1772: INL_LOGGING_PVT.Log_EndProc(
1773: p_module_name => g_module_name,
1774: p_procedure_name => l_program_name);
1775: RETURN FND_API.to_boolean(l_response) ;
1776: EXCEPTION
1775: RETURN FND_API.to_boolean(l_response) ;
1776: EXCEPTION
1777: WHEN L_FND_EXC_ERROR THEN
1778: -- Standard Expected Error Logging
1779: INL_LOGGING_PVT.Log_ExpecError (
1780: p_module_name => g_module_name,
1781: p_procedure_name => l_program_name);
1782: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1783: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1781: p_procedure_name => l_program_name);
1782: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1783: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1784: -- Standard Unexpected Error Logging
1785: INL_LOGGING_PVT.Log_UnexpecError (
1786: p_module_name => g_module_name,
1787: p_procedure_name => l_program_name);
1788: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1789: WHEN OTHERS THEN
1839: l_count_alw_party_usg NUMBER;
1840:
1841: BEGIN
1842: -- Standard Beginning of Procedure/Function Logging
1843: INL_LOGGING_PVT.Log_BeginProc(
1844: p_module_name => g_module_name,
1845: p_procedure_name => l_program_name) ;
1846: -- Initialize API return status to success
1847: x_return_status := L_FND_RET_STS_SUCCESS;
1846: -- Initialize API return status to success
1847: x_return_status := L_FND_RET_STS_SUCCESS;
1848:
1849: l_debug_info := 'Derive Source Organization and validate it if required ';
1850: INL_LOGGING_PVT.Log_Statement(
1851: p_module_name => g_module_name,
1852: p_procedure_name => l_program_name,
1853: p_debug_info => l_debug_info);
1854:
1851: p_module_name => g_module_name,
1852: p_procedure_name => l_program_name,
1853: p_debug_info => l_debug_info);
1854:
1855: INL_LOGGING_PVT.Log_Variable(
1856: p_module_name => g_module_name,
1857: p_procedure_name => l_program_name,
1858: p_var_name => 'x_src_organization_id',
1859: p_var_value => x_src_organization_id);
1856: p_module_name => g_module_name,
1857: p_procedure_name => l_program_name,
1858: p_var_name => 'x_src_organization_id',
1859: p_var_value => x_src_organization_id);
1860: INL_LOGGING_PVT.Log_Variable(
1861: p_module_name => g_module_name,
1862: p_procedure_name => l_program_name,
1863: p_var_name => 'x_src_organization_code',
1864: p_var_value => x_src_organization_code);
1861: p_module_name => g_module_name,
1862: p_procedure_name => l_program_name,
1863: p_var_name => 'x_src_organization_code',
1864: p_var_value => x_src_organization_code);
1865: INL_LOGGING_PVT.Log_Variable(
1866: p_module_name => g_module_name,
1867: p_procedure_name => l_program_name,
1868: p_var_name => 'p_ship_line_int_id',
1869: p_var_value => p_ship_line_int_id);
1866: p_module_name => g_module_name,
1867: p_procedure_name => l_program_name,
1868: p_var_name => 'p_ship_line_int_id',
1869: p_var_value => p_ship_line_int_id);
1870: INL_LOGGING_PVT.Log_Variable(
1871: p_module_name => g_module_name,
1872: p_procedure_name => l_program_name,
1873: p_var_name => 'p_validation_flag',
1874: p_var_value => p_validation_flag);
1874: p_var_value => p_validation_flag);
1875:
1876: IF p_validation_flag = 'N' THEN
1877: l_debug_info := 'Validation is not required for Source Organization, only derivation';
1878: INL_LOGGING_PVT.Log_Statement(
1879: p_module_name => g_module_name,
1880: p_procedure_name => l_program_name,
1881: p_debug_info => l_debug_info) ;
1882: IF x_src_organization_id IS NOT NULL THEN
1891: WHERE ood.organization_code = x_src_organization_code;
1892: END IF;
1893: ELSIF p_validation_flag = 'Y' THEN
1894: l_debug_info := 'Derive and validate Source Organization';
1895: INL_LOGGING_PVT.Log_Statement(
1896: p_module_name => g_module_name,
1897: p_procedure_name => l_program_name,
1898: p_debug_info => l_debug_info) ;
1899:
1921: ;
1922: END IF;
1923:
1924: -- Standard End of Procedure/Function Logging
1925: INL_LOGGING_PVT.Log_EndProc(
1926: p_module_name => g_module_name,
1927: p_procedure_name => l_program_name);
1928: RETURN FND_API.to_boolean(l_result) ;
1929: EXCEPTION
1928: RETURN FND_API.to_boolean(l_result) ;
1929: EXCEPTION
1930: WHEN L_FND_EXC_ERROR THEN
1931: -- Standard Expected Error Logging
1932: INL_LOGGING_PVT.Log_ExpecError (
1933: p_module_name => g_module_name,
1934: p_procedure_name => l_program_name);
1935: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1936: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1934: p_procedure_name => l_program_name);
1935: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1936: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1937: -- Standard Unexpected Error Logging
1938: INL_LOGGING_PVT.Log_UnexpecError (
1939: p_module_name => g_module_name,
1940: p_procedure_name => l_program_name);
1941: RETURN FND_API.to_boolean(L_FND_FALSE) ;
1942: WHEN OTHERS THEN
1996: l_valid_ln_group NUMBER;
1997:
1998: BEGIN
1999: -- Standard Beginning of Procedure/Function Logging
2000: INL_LOGGING_PVT.Log_BeginProc(
2001: p_module_name => g_module_name,
2002: p_procedure_name => l_program_name) ;
2003: -- Initialize API return status to success
2004: x_return_status := L_FND_RET_STS_SUCCESS;
2003: -- Initialize API return status to success
2004: x_return_status := L_FND_RET_STS_SUCCESS;
2005:
2006: l_debug_info := 'Ship Line Group validation';
2007: INL_LOGGING_PVT.Log_Statement(
2008: p_module_name => g_module_name,
2009: p_procedure_name => l_program_name,
2010: p_debug_info => l_debug_info);
2011:
2008: p_module_name => g_module_name,
2009: p_procedure_name => l_program_name,
2010: p_debug_info => l_debug_info);
2011:
2012: INL_LOGGING_PVT.Log_Variable(
2013: p_module_name => g_module_name,
2014: p_procedure_name => l_program_name,
2015: p_var_name => 'p_ship_header_int_id',
2016: p_var_value => p_ship_header_int_id) ;
2014: p_procedure_name => l_program_name,
2015: p_var_name => 'p_ship_header_int_id',
2016: p_var_value => p_ship_header_int_id) ;
2017:
2018: INL_LOGGING_PVT.Log_Variable(
2019: p_module_name => g_module_name,
2020: p_procedure_name => l_program_name,
2021: p_var_name => 'p_ship_line_int_id',
2022: p_var_value => p_ship_line_int_id);
2020: p_procedure_name => l_program_name,
2021: p_var_name => 'p_ship_line_int_id',
2022: p_var_value => p_ship_line_int_id);
2023:
2024: INL_LOGGING_PVT.Log_Variable(
2025: p_module_name => g_module_name,
2026: p_procedure_name => l_program_name,
2027: p_var_name => 'p_validation_flag',
2028: p_var_value => p_validation_flag) ;
2026: p_procedure_name => l_program_name,
2027: p_var_name => 'p_validation_flag',
2028: p_var_value => p_validation_flag) ;
2029:
2030: INL_LOGGING_PVT.Log_Variable(
2031: p_module_name => g_module_name,
2032: p_procedure_name => l_program_name,
2033: p_var_name => 'p_ship_header_id',
2034: p_var_value => p_ship_header_id) ;
2032: p_procedure_name => l_program_name,
2033: p_var_name => 'p_ship_header_id',
2034: p_var_value => p_ship_header_id) ;
2035:
2036: INL_LOGGING_PVT.Log_Variable(
2037: p_module_name => g_module_name,
2038: p_procedure_name => l_program_name,
2039: p_var_name => 'p_ship_line_id',
2040: p_var_value => p_ship_line_id) ;
2038: p_procedure_name => l_program_name,
2039: p_var_name => 'p_ship_line_id',
2040: p_var_value => p_ship_line_id) ;
2041:
2042: INL_LOGGING_PVT.Log_Variable(
2043: p_module_name => g_module_name,
2044: p_procedure_name => l_program_name,
2045: p_var_name => 'x_ship_line_group_num',
2046: p_var_value => x_ship_line_group_num) ;
2044: p_procedure_name => l_program_name,
2045: p_var_name => 'x_ship_line_group_num',
2046: p_var_value => x_ship_line_group_num) ;
2047:
2048: INL_LOGGING_PVT.Log_Variable(
2049: p_module_name => g_module_name,
2050: p_procedure_name => l_program_name,
2051: p_var_name => 'x_ship_line_group_id',
2052: p_var_value => x_ship_line_group_id) ;
2056:
2057: IF p_validation_flag = 'Y' THEN
2058:
2059: l_debug_info := 'Validating Ship Line Group Number';
2060: INL_LOGGING_PVT.Log_Statement(
2061: p_module_name => g_module_name,
2062: p_procedure_name => l_program_name,
2063: p_debug_info => l_debug_info);
2064:
2066: INTO l_valid_ln_group
2067: FROM inl_ship_line_groups slg
2068: WHERE slg.ship_line_group_id = x_ship_line_group_id;
2069:
2070: INL_LOGGING_PVT.Log_Variable(
2071: p_module_name => g_module_name,
2072: p_procedure_name => l_program_name,
2073: p_var_name => 'l_valid_ln_group',
2074: p_var_value => l_valid_ln_group);
2074: p_var_value => l_valid_ln_group);
2075:
2076: IF NVL(l_valid_ln_group, 0) = 0 THEN
2077: l_debug_info := 'No Group Number found';
2078: INL_LOGGING_PVT.Log_Statement(
2079: p_module_name => g_module_name,
2080: p_procedure_name => l_program_name,
2081: p_debug_info => l_debug_info);
2082: l_result := L_FND_FALSE;
2097: END IF;
2098: END IF;
2099: ELSIF x_ship_line_group_num IS NOT NULL THEN
2100: l_debug_info := 'Deriving Ship Line Group from x_ship_line_group_num';
2101: INL_LOGGING_PVT.Log_Statement(
2102: p_module_name => g_module_name,
2103: p_procedure_name => l_program_name,
2104: p_debug_info => l_debug_info);
2105: BEGIN
2110: AND slg.ship_line_group_num = x_ship_line_group_num;
2111: EXCEPTION
2112: WHEN OTHERS THEN
2113: l_debug_info := 'No Group Number found';
2114: INL_LOGGING_PVT.Log_Statement(
2115: p_module_name => g_module_name,
2116: p_procedure_name => l_program_name,
2117: p_debug_info => l_debug_info);
2118: l_result := L_FND_FALSE;
2133: END;
2134: /* -- -- -- -- -- */
2135: ELSIF p_ship_line_id IS NOT NULL THEN
2136: l_debug_info := 'Deriving Ship Line Group from p_ship_line_id';
2137: INL_LOGGING_PVT.Log_Statement(
2138: p_module_name => g_module_name,
2139: p_procedure_name => l_program_name,
2140: p_debug_info => l_debug_info);
2141: BEGIN
2150: ;
2151: EXCEPTION
2152: WHEN OTHERS THEN
2153: l_debug_info := 'No Group Number found';
2154: INL_LOGGING_PVT.Log_Statement(
2155: p_module_name => g_module_name,
2156: p_procedure_name => l_program_name,
2157: p_debug_info => l_debug_info);
2158: l_result := L_FND_FALSE;
2172: END IF;
2173: END;
2174: /* -- -- -- -- -- */
2175: END IF;
2176: INL_LOGGING_PVT.Log_Variable(
2177: p_module_name => g_module_name,
2178: p_procedure_name => l_program_name,
2179: p_var_name => 'x_ship_line_group_num',
2180: p_var_value => x_ship_line_group_num) ;
2178: p_procedure_name => l_program_name,
2179: p_var_name => 'x_ship_line_group_num',
2180: p_var_value => x_ship_line_group_num) ;
2181:
2182: INL_LOGGING_PVT.Log_Variable(
2183: p_module_name => g_module_name,
2184: p_procedure_name => l_program_name,
2185: p_var_name => 'x_ship_line_group_id',
2186: p_var_value => x_ship_line_group_id) ;
2186: p_var_value => x_ship_line_group_id) ;
2187:
2188:
2189: -- Standard End of Procedure/Function Logging
2190: INL_LOGGING_PVT.Log_EndProc(
2191: p_module_name => g_module_name,
2192: p_procedure_name => l_program_name);
2193: RETURN FND_API.to_boolean(l_result) ;
2194: EXCEPTION
2193: RETURN FND_API.to_boolean(l_result) ;
2194: EXCEPTION
2195: WHEN L_FND_EXC_ERROR THEN
2196: -- Standard Expected Error Logging
2197: INL_LOGGING_PVT.Log_ExpecError (
2198: p_module_name => g_module_name,
2199: p_procedure_name => l_program_name);
2200: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2201: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2199: p_procedure_name => l_program_name);
2200: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2201: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2202: -- Standard Unexpected Error Logging
2203: INL_LOGGING_PVT.Log_UnexpecError (
2204: p_module_name => g_module_name,
2205: p_procedure_name => l_program_name);
2206: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2207: WHEN OTHERS THEN
2205: p_procedure_name => l_program_name);
2206: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2207: WHEN OTHERS THEN
2208: -- Standard Unexpected Error Logging
2209: INL_LOGGING_PVT.Log_UnexpecError (
2210: p_module_name => g_module_name,
2211: p_procedure_name => l_program_name);
2212: IF FND_MSG_PUB.Check_Msg_Level(
2213: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2256: l_column_name VARCHAR2(30);
2257: l_colum_value VARCHAR2(30);
2258: BEGIN
2259: -- Standard Beginning of Procedure/Function Logging
2260: INL_LOGGING_PVT.Log_BeginProc(
2261: p_module_name => g_module_name,
2262: p_procedure_name => l_program_name) ;
2263: -- Initialize API return status to success
2264: x_return_status := L_FND_RET_STS_SUCCESS;
2262: p_procedure_name => l_program_name) ;
2263: -- Initialize API return status to success
2264: x_return_status := L_FND_RET_STS_SUCCESS;
2265:
2266: INL_LOGGING_PVT.Log_Variable(
2267: p_module_name => g_module_name,
2268: p_procedure_name => l_program_name,
2269: p_var_name => 'p_ship_line_int_id',
2270: p_var_value => p_ship_line_int_id);
2268: p_procedure_name => l_program_name,
2269: p_var_name => 'p_ship_line_int_id',
2270: p_var_value => p_ship_line_int_id);
2271:
2272: INL_LOGGING_PVT.Log_Variable(
2273: p_module_name => g_module_name,
2274: p_procedure_name => l_program_name,
2275: p_var_name => 'p_validation_flag',
2276: p_var_value => p_validation_flag) ;
2274: p_procedure_name => l_program_name,
2275: p_var_name => 'p_validation_flag',
2276: p_var_value => p_validation_flag) ;
2277:
2278: INL_LOGGING_PVT.Log_Variable(
2279: p_module_name => g_module_name,
2280: p_procedure_name => l_program_name,
2281: p_var_name => 'p_ship_header_id',
2282: p_var_value => p_ship_header_id) ;
2280: p_procedure_name => l_program_name,
2281: p_var_name => 'p_ship_header_id',
2282: p_var_value => p_ship_header_id) ;
2283:
2284: INL_LOGGING_PVT.Log_Variable(
2285: p_module_name => g_module_name,
2286: p_procedure_name => l_program_name,
2287: p_var_name => 'p_ship_line_group_id',
2288: p_var_value => p_ship_line_group_id) ;
2286: p_procedure_name => l_program_name,
2287: p_var_name => 'p_ship_line_group_id',
2288: p_var_value => p_ship_line_group_id) ;
2289:
2290: INL_LOGGING_PVT.Log_Variable(
2291: p_module_name => g_module_name,
2292: p_procedure_name => l_program_name,
2293: p_var_name => 'x_ship_line_num',
2294: p_var_value => x_ship_line_num) ;
2292: p_procedure_name => l_program_name,
2293: p_var_name => 'x_ship_line_num',
2294: p_var_value => x_ship_line_num) ;
2295:
2296: INL_LOGGING_PVT.Log_Variable(
2297: p_module_name => g_module_name,
2298: p_procedure_name => l_program_name,
2299: p_var_name => 'x_ship_line_id',
2300: p_var_value => x_ship_line_id) ;
2311: WHERE sl.ship_line_id = x_ship_line_id;
2312:
2313: IF NVL(l_count_ship_ln_num_exist,0) = 0 THEN
2314: l_debug_info := 'No Shipment Line found';
2315: INL_LOGGING_PVT.Log_Statement(
2316: p_module_name => g_module_name,
2317: p_procedure_name => l_program_name,
2318: p_debug_info => l_debug_info);
2319: l_response := L_FND_FALSE;
2345: AND sl.ship_line_num = x_ship_line_num;
2346: EXCEPTION
2347: WHEN OTHERS THEN
2348: l_debug_info := 'No Ship Line Number found';
2349: INL_LOGGING_PVT.Log_Statement(
2350: p_module_name => g_module_name,
2351: p_procedure_name => l_program_name,
2352: p_debug_info => l_debug_info);
2353: l_response := L_FND_FALSE;
2368: END;
2369: END IF;
2370:
2371: -- Standard End of Procedure/Function Logging
2372: INL_LOGGING_PVT.Log_EndProc(
2373: p_module_name => g_module_name,
2374: p_procedure_name => l_program_name);
2375: RETURN FND_API.to_boolean(l_response) ;
2376: EXCEPTION
2375: RETURN FND_API.to_boolean(l_response) ;
2376: EXCEPTION
2377: WHEN L_FND_EXC_ERROR THEN
2378: -- Standard Expected Error Logging
2379: INL_LOGGING_PVT.Log_ExpecError (
2380: p_module_name => g_module_name,
2381: p_procedure_name => l_program_name);
2382: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2383: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2381: p_procedure_name => l_program_name);
2382: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2383: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2384: -- Standard Unexpected Error Logging
2385: INL_LOGGING_PVT.Log_UnexpecError (
2386: p_module_name => g_module_name,
2387: p_procedure_name => l_program_name);
2388: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2389: WHEN OTHERS THEN
2447: l_column_value VARCHAR2(30);
2448:
2449: BEGIN
2450: -- Standard Beginning of Procedure/Function Logging
2451: INL_LOGGING_PVT.Log_BeginProc(
2452: p_module_name => g_module_name,
2453: p_procedure_name => l_program_name) ;
2454: -- Initialize API return status to success
2455: x_return_status := L_FND_RET_STS_SUCCESS;
2453: p_procedure_name => l_program_name) ;
2454: -- Initialize API return status to success
2455: x_return_status := L_FND_RET_STS_SUCCESS;
2456:
2457: INL_LOGGING_PVT.Log_Variable(
2458: p_module_name => g_module_name,
2459: p_procedure_name => l_program_name,
2460: p_var_name => 'p_ship_line_int_id',
2461: p_var_value => p_ship_line_int_id);
2458: p_module_name => g_module_name,
2459: p_procedure_name => l_program_name,
2460: p_var_name => 'p_ship_line_int_id',
2461: p_var_value => p_ship_line_int_id);
2462: INL_LOGGING_PVT.Log_Variable(
2463: p_module_name => g_module_name,
2464: p_procedure_name => l_program_name,
2465: p_var_name => 'p_validation_flag',
2466: p_var_value => p_validation_flag);
2463: p_module_name => g_module_name,
2464: p_procedure_name => l_program_name,
2465: p_var_name => 'p_validation_flag',
2466: p_var_value => p_validation_flag);
2467: INL_LOGGING_PVT.Log_Variable(
2468: p_module_name => g_module_name,
2469: p_procedure_name => l_program_name,
2470: p_var_name => 'p_ship_type_id',
2471: p_var_value => p_ship_type_id);
2468: p_module_name => g_module_name,
2469: p_procedure_name => l_program_name,
2470: p_var_name => 'p_ship_type_id',
2471: p_var_value => p_ship_type_id);
2472: INL_LOGGING_PVT.Log_Variable(
2473: p_module_name => g_module_name,
2474: p_procedure_name => l_program_name,
2475: p_var_name => 'x_ship_line_type_id',
2476: p_var_value => x_ship_line_type_id);
2473: p_module_name => g_module_name,
2474: p_procedure_name => l_program_name,
2475: p_var_name => 'x_ship_line_type_id',
2476: p_var_value => x_ship_line_type_id);
2477: INL_LOGGING_PVT.Log_Variable(
2478: p_module_name => g_module_name,
2479: p_procedure_name => l_program_name,
2480: p_var_name => 'x_ship_line_type_code',
2481: p_var_value => x_ship_line_type_code);
2481: p_var_value => x_ship_line_type_code);
2482:
2483: IF p_validation_flag = 'N' THEN
2484: l_debug_info := 'Validation is not required for Ship Line Type';
2485: INL_LOGGING_PVT.Log_Statement(
2486: p_module_name => g_module_name,
2487: p_procedure_name => l_program_name,
2488: p_debug_info => l_debug_info) ;
2489:
2506: x_ship_line_type_id IS NOT NULL
2507: AND slt.ship_line_type_id = x_ship_line_type_id
2508: ) OR
2509: slt.ship_line_type_code = x_ship_line_type_code;
2510: INL_LOGGING_PVT.Log_Variable(
2511: p_module_name => g_module_name,
2512: p_procedure_name => l_program_name,
2513: p_var_name => 'x_landed_cost_flag',
2514: p_var_value => x_landed_cost_flag);
2512: p_procedure_name => l_program_name,
2513: p_var_name => 'x_landed_cost_flag',
2514: p_var_value => x_landed_cost_flag);
2515:
2516: INL_LOGGING_PVT.Log_Variable(
2517: p_module_name => g_module_name,
2518: p_procedure_name => l_program_name,
2519: p_var_name => 'x_alloc_enabled_flag',
2520: p_var_value => x_alloc_enabled_flag);
2520: p_var_value => x_alloc_enabled_flag);
2521:
2522: ELSIF p_validation_flag = 'Y' THEN
2523: l_debug_info := 'Derive and validate Ship Line Type';
2524: INL_LOGGING_PVT.Log_Statement(
2525: p_module_name => g_module_name,
2526: p_procedure_name => l_program_name,
2527: p_debug_info => l_debug_info);
2528: IF x_ship_line_type_id IS NOT NULL THEN
2555: WHERE (x_ship_line_type_id IS NOT NULL
2556: AND slt.ship_line_type_id = x_ship_line_type_id)
2557: OR slt.ship_line_type_code = x_ship_line_type_code;
2558:
2559: INL_LOGGING_PVT.Log_Variable(
2560: p_module_name => g_module_name,
2561: p_procedure_name => l_program_name,
2562: p_var_name => 'x_landed_cost_flag',
2563: p_var_value => x_landed_cost_flag);
2561: p_procedure_name => l_program_name,
2562: p_var_name => 'x_landed_cost_flag',
2563: p_var_value => x_landed_cost_flag);
2564:
2565: INL_LOGGING_PVT.Log_Variable(
2566: p_module_name => g_module_name,
2567: p_procedure_name => l_program_name,
2568: p_var_name => 'x_alloc_enabled_flag',
2569: p_var_value => x_alloc_enabled_flag);
2571: -- Validate Ship Line Type
2572: IF NOT SYSDATE BETWEEN NVL((TRUNC(l_active_from_date)),SYSDATE)
2573: AND NVL((TRUNC(l_active_to_date)+.99999)-1,SYSDATE) THEN
2574: l_debug_info := 'Date is closed for the Ship Line Type';
2575: INL_LOGGING_PVT.Log_Statement(
2576: p_module_name => g_module_name,
2577: p_procedure_name => l_program_name,
2578: p_debug_info => l_debug_info);
2579: l_result := L_FND_FALSE;
2594: END IF;
2595:
2596: IF NVL(l_count_alw_ship_ln,0) = 0 THEN
2597: l_debug_info := 'Ship Line Type is not defined for the specified Ship Type';
2598: INL_LOGGING_PVT.Log_Statement(
2599: p_module_name => g_module_name,
2600: p_procedure_name => l_program_name,
2601: p_debug_info => l_debug_info);
2602: l_result := L_FND_FALSE;
2617: END IF;
2618: END IF;
2619:
2620: -- Standard End of Procedure/Function Logging
2621: INL_LOGGING_PVT.Log_EndProc(
2622: p_module_name => g_module_name,
2623: p_procedure_name => l_program_name);
2624: RETURN FND_API.to_boolean(l_result);
2625: EXCEPTION
2624: RETURN FND_API.to_boolean(l_result);
2625: EXCEPTION
2626: WHEN L_FND_EXC_ERROR THEN
2627: -- Standard Expected Error Logging
2628: INL_LOGGING_PVT.Log_ExpecError (
2629: p_module_name => g_module_name,
2630: p_procedure_name => l_program_name);
2631: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2632: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2630: p_procedure_name => l_program_name);
2631: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2632: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2633: -- Standard Unexpected Error Logging
2634: INL_LOGGING_PVT.Log_UnexpecError (
2635: p_module_name => g_module_name,
2636: p_procedure_name => l_program_name);
2637: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2638: WHEN OTHERS THEN
2680: l_count_alw_src_type NUMBER;
2681:
2682: BEGIN
2683: -- Standard Beginning of Procedure/Function Logging
2684: INL_LOGGING_PVT.Log_BeginProc(
2685: p_module_name => g_module_name,
2686: p_procedure_name => l_program_name) ;
2687: -- Initialize API return status to success
2688: x_return_status := L_FND_RET_STS_SUCCESS;
2686: p_procedure_name => l_program_name) ;
2687: -- Initialize API return status to success
2688: x_return_status := L_FND_RET_STS_SUCCESS;
2689:
2690: INL_LOGGING_PVT.Log_Variable(
2691: p_module_name => g_module_name,
2692: p_procedure_name => l_program_name,
2693: p_var_name => 'p_ship_line_int_id',
2694: p_var_value => p_ship_line_int_id);
2692: p_procedure_name => l_program_name,
2693: p_var_name => 'p_ship_line_int_id',
2694: p_var_value => p_ship_line_int_id);
2695:
2696: INL_LOGGING_PVT.Log_Variable(
2697: p_module_name => g_module_name,
2698: p_procedure_name => l_program_name,
2699: p_var_name => 'p_ship_ln_src_tp_code',
2700: p_var_value => p_ship_ln_src_tp_code);
2706: AND fl.lookup_code = p_ship_ln_src_tp_code;
2707:
2708: IF NVL(l_count_alw_src_type, 0) = 0 THEN
2709: l_debug_info := 'Invalid Shipment Line Source Type Code';
2710: INL_LOGGING_PVT.Log_Statement(
2711: p_module_name => g_module_name,
2712: p_procedure_name => l_program_name,
2713: p_debug_info => l_debug_info);
2714: l_result := L_FND_FALSE;
2732: END IF;
2733: END IF;
2734:
2735: -- Standard End of Procedure/Function Logging
2736: INL_LOGGING_PVT.Log_EndProc(
2737: p_module_name => g_module_name,
2738: p_procedure_name => l_program_name);
2739: RETURN FND_API.to_boolean(l_result) ;
2740: EXCEPTION
2739: RETURN FND_API.to_boolean(l_result) ;
2740: EXCEPTION
2741: WHEN L_FND_EXC_ERROR THEN
2742: -- Standard Expected Error Logging
2743: INL_LOGGING_PVT.Log_ExpecError (
2744: p_module_name => g_module_name,
2745: p_procedure_name => l_program_name);
2746: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2747: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2745: p_procedure_name => l_program_name);
2746: RETURN FND_API.to_boolean(L_FND_FALSE) ;
2747: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2748: -- Standard Unexpected Error Logging
2749: INL_LOGGING_PVT.Log_UnexpecError (
2750: p_module_name => g_module_name,
2751: p_procedure_name => l_program_name);
2752: RETURN FND_API.to_boolean(L_FND_FALSE);
2753: WHEN OTHERS THEN
2751: p_procedure_name => l_program_name);
2752: RETURN FND_API.to_boolean(L_FND_FALSE);
2753: WHEN OTHERS THEN
2754: -- Standard Unexpected Error Logging
2755: INL_LOGGING_PVT.Log_UnexpecError (
2756: p_module_name => g_module_name,
2757: p_procedure_name => l_program_name);
2758: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2759: IF FND_MSG_PUB.Check_Msg_Level(
2802: l_func_currency_code VARCHAR2(15) ;
2803: l_count_conv_tp_valid NUMBER;
2804: BEGIN
2805: -- Standard Beginning of Procedure/Function Logging
2806: INL_LOGGING_PVT.Log_BeginProc(
2807: p_module_name => g_module_name,
2808: p_procedure_name => l_program_name) ;
2809: -- Initialize API return status to success
2810: x_return_status := L_FND_RET_STS_SUCCESS;
2808: p_procedure_name => l_program_name) ;
2809: -- Initialize API return status to success
2810: x_return_status := L_FND_RET_STS_SUCCESS;
2811:
2812: INL_LOGGING_PVT.Log_Variable(
2813: p_module_name => g_module_name,
2814: p_procedure_name => l_program_name,
2815: p_var_name => 'p_ship_line_int_id',
2816: p_var_value => p_ship_line_int_id);
2813: p_module_name => g_module_name,
2814: p_procedure_name => l_program_name,
2815: p_var_name => 'p_ship_line_int_id',
2816: p_var_value => p_ship_line_int_id);
2817: INL_LOGGING_PVT.Log_Variable(
2818: p_module_name => g_module_name,
2819: p_procedure_name => l_program_name,
2820: p_var_name => 'p_validation_flag',
2821: p_var_value => p_validation_flag);
2818: p_module_name => g_module_name,
2819: p_procedure_name => l_program_name,
2820: p_var_name => 'p_validation_flag',
2821: p_var_value => p_validation_flag);
2822: INL_LOGGING_PVT.Log_Variable(
2823: p_module_name => g_module_name,
2824: p_procedure_name => l_program_name,
2825: p_var_name => 'p_currency_code',
2826: p_var_value => p_currency_code);
2823: p_module_name => g_module_name,
2824: p_procedure_name => l_program_name,
2825: p_var_name => 'p_currency_code',
2826: p_var_value => p_currency_code);
2827: INL_LOGGING_PVT.Log_Variable(
2828: p_module_name => g_module_name,
2829: p_procedure_name => l_program_name,
2830: p_var_name => 'p_curr_conv_date',
2831: p_var_value => p_curr_conv_date);
2828: p_module_name => g_module_name,
2829: p_procedure_name => l_program_name,
2830: p_var_name => 'p_curr_conv_date',
2831: p_var_value => p_curr_conv_date);
2832: INL_LOGGING_PVT.Log_Variable(
2833: p_module_name => g_module_name,
2834: p_procedure_name => l_program_name,
2835: p_var_name => 'x_curr_conv_rate',
2836: p_var_value => x_curr_conv_rate);
2833: p_module_name => g_module_name,
2834: p_procedure_name => l_program_name,
2835: p_var_name => 'x_curr_conv_rate',
2836: p_var_value => x_curr_conv_rate);
2837: INL_LOGGING_PVT.Log_Variable(
2838: p_module_name => g_module_name,
2839: p_procedure_name => l_program_name,
2840: p_var_name => 'p_curr_conv_type',
2841: p_var_value => p_curr_conv_type);
2838: p_module_name => g_module_name,
2839: p_procedure_name => l_program_name,
2840: p_var_name => 'p_curr_conv_type',
2841: p_var_value => p_curr_conv_type);
2842: INL_LOGGING_PVT.Log_Variable(
2843: p_module_name => g_module_name,
2844: p_procedure_name => l_program_name,
2845: p_var_name => 'p_org_id',
2846: p_var_value => p_org_id);
2845: p_var_name => 'p_org_id',
2846: p_var_value => p_org_id);
2847:
2848: l_debug_info := 'Get functional currency code';
2849: INL_LOGGING_PVT.Log_Statement(
2850: p_module_name => g_module_name,
2851: p_procedure_name => l_program_name,
2852: p_debug_info => l_debug_info);
2853:
2857: financials_system_params_all fsp --Bug#10381495
2858: WHERE gl.set_of_books_id = fsp.set_of_books_id
2859: AND org_id = p_org_id;
2860:
2861: INL_LOGGING_PVT.Log_Variable(
2862: p_module_name => g_module_name,
2863: p_procedure_name => l_program_name,
2864: p_var_name => 'l_func_currency_code',
2865: p_var_value => l_func_currency_code);
2872: WHERE fc.currency_code = p_currency_code;
2873:
2874: IF NVL(l_count_curr_code_valid, 0) = 0 THEN
2875: l_debug_info := 'Currency Code is invalid';
2876: INL_LOGGING_PVT.Log_Statement(
2877: p_module_name => g_module_name,
2878: p_procedure_name => l_program_name,
2879: p_debug_info => l_debug_info);
2880: l_response := L_FND_FALSE;
2896: IF l_func_currency_code = p_currency_code THEN
2897: IF p_curr_conv_type IS NOT NULL
2898: THEN
2899: l_debug_info := 'Currency Conversion type should be null';
2900: INL_LOGGING_PVT.Log_Statement(
2901: p_module_name => g_module_name,
2902: p_procedure_name => l_program_name,
2903: p_debug_info => l_debug_info);
2904: l_response := L_FND_FALSE;
2919: END IF;
2920: IF x_curr_conv_rate IS NOT NULL
2921: THEN
2922: l_debug_info := 'Currency Conversion Rate should be null';
2923: INL_LOGGING_PVT.Log_Statement(
2924: p_module_name => g_module_name,
2925: p_procedure_name => l_program_name,
2926: p_debug_info => l_debug_info);
2927: l_response := L_FND_FALSE;
2942: END IF;
2943: IF p_curr_conv_date IS NOT NULL
2944: THEN
2945: l_debug_info := 'Currency Conversion Date should be null';
2946: INL_LOGGING_PVT.Log_Statement(
2947: p_module_name => g_module_name,
2948: p_procedure_name => l_program_name,
2949: p_debug_info => l_debug_info);
2950: l_response := L_FND_FALSE;
2966: ELSE --p_func_currency_code <> p_currency_code
2967: IF p_curr_conv_date IS NULL
2968: THEN
2969: l_debug_info := 'Currency Conversion Date should not be null';
2970: INL_LOGGING_PVT.Log_Statement(
2971: p_module_name => g_module_name,
2972: p_procedure_name => l_program_name,
2973: p_debug_info => l_debug_info);
2974: l_response := L_FND_FALSE;
2989: END IF;
2990: IF x_curr_conv_rate IS NULL
2991: THEN
2992: l_debug_info := 'Currency Conversion Rate should not be null';
2993: INL_LOGGING_PVT.Log_Statement(
2994: p_module_name => g_module_name,
2995: p_procedure_name => l_program_name,
2996: p_debug_info => l_debug_info);
2997: l_response := L_FND_FALSE;
3012: END IF;
3013: IF p_curr_conv_type IS NULL
3014: THEN
3015: l_debug_info := 'Currency Conversion Type should not be null';
3016: INL_LOGGING_PVT.Log_Statement(
3017: p_module_name => g_module_name,
3018: p_procedure_name => l_program_name,
3019: p_debug_info => l_debug_info);
3020: l_response := L_FND_FALSE;
3033: RAISE L_FND_EXC_UNEXPECTED_ERROR;
3034: END IF;
3035: ELSE
3036: l_debug_info := 'Checking conversion type';
3037: INL_LOGGING_PVT.Log_Statement(
3038: p_module_name => g_module_name,
3039: p_procedure_name => l_program_name,
3040: p_debug_info => l_debug_info);
3041: SELECT COUNT(1)
3044: WHERE dct.conversion_type = p_curr_conv_type;
3045:
3046: IF NVL(l_count_conv_tp_valid, 0) = 0 THEN
3047: l_debug_info := 'Currency Conversion Type is invalid';
3048: INL_LOGGING_PVT.Log_Statement(
3049: p_module_name => g_module_name,
3050: p_procedure_name => l_program_name,
3051: p_debug_info => l_debug_info);
3052: l_response := L_FND_FALSE;
3075: AND l_response = L_FND_TRUE
3076: THEN
3077: IF p_curr_conv_type <> 'User' THEN
3078: l_debug_info := 'Conversion Type <> User, derive rate from currency code, type and dated';
3079: INL_LOGGING_PVT.Log_Statement(
3080: p_module_name => g_module_name,
3081: p_procedure_name => l_program_name,
3082: p_debug_info => l_debug_info );
3083: -- Derive rate from code, type and date
3091: AND TRUNC(conversion_date) = TRUNC(p_curr_conv_date);
3092: EXCEPTION
3093: WHEN NO_DATA_FOUND THEN
3094: l_debug_info := 'No rate has been defined for the selected rate type and rate date';
3095: INL_LOGGING_PVT.Log_Statement(
3096: p_module_name => g_module_name,
3097: p_procedure_name => l_program_name,
3098: p_debug_info => l_debug_info);
3099: l_response := L_FND_FALSE;
3114: END;
3115: END IF;
3116: END IF;
3117: -- Standard End of Procedure/Function Logging
3118: INL_LOGGING_PVT.Log_EndProc(
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_program_name);
3121: RETURN FND_API.to_boolean(l_response) ;
3122: EXCEPTION
3121: RETURN FND_API.to_boolean(l_response) ;
3122: EXCEPTION
3123: WHEN L_FND_EXC_ERROR THEN
3124: -- Standard Expected Error Logging
3125: INL_LOGGING_PVT.Log_ExpecError (
3126: p_module_name => g_module_name,
3127: p_procedure_name => l_program_name);
3128: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3129: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3127: p_procedure_name => l_program_name);
3128: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3129: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3130: -- Standard Unexpected Error Logging
3131: INL_LOGGING_PVT.Log_UnexpecError (
3132: p_module_name => g_module_name,
3133: p_procedure_name => l_program_name);
3134: RETURN FND_API.to_boolean(L_FND_FALSE);
3135: WHEN OTHERS THEN
3133: p_procedure_name => l_program_name);
3134: RETURN FND_API.to_boolean(L_FND_FALSE);
3135: WHEN OTHERS THEN
3136: -- Standard Unexpected Error Logging
3137: INL_LOGGING_PVT.Log_UnexpecError (
3138: p_module_name => g_module_name,
3139: p_procedure_name => l_program_name);
3140: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3141: IF FND_MSG_PUB.Check_Msg_Level(
3181: l_column_value VARCHAR2(30);
3182:
3183: BEGIN
3184: -- Standard Beginning of Procedure/Function Logging
3185: INL_LOGGING_PVT.Log_BeginProc(
3186: p_module_name => g_module_name,
3187: p_procedure_name => l_program_name) ;
3188: -- Initialize API return status to success
3189: x_return_status := L_FND_RET_STS_SUCCESS;
3187: p_procedure_name => l_program_name) ;
3188: -- Initialize API return status to success
3189: x_return_status := L_FND_RET_STS_SUCCESS;
3190:
3191: INL_LOGGING_PVT.Log_Variable(
3192: p_module_name => g_module_name,
3193: p_procedure_name => l_program_name,
3194: p_var_name => 'x_inv_item_id',
3195: p_var_value => x_inv_item_id) ;
3192: p_module_name => g_module_name,
3193: p_procedure_name => l_program_name,
3194: p_var_name => 'x_inv_item_id',
3195: p_var_value => x_inv_item_id) ;
3196: INL_LOGGING_PVT.Log_Variable(
3197: p_module_name => g_module_name,
3198: p_procedure_name => l_program_name,
3199: p_var_name => 'x_inv_item_name',
3200: p_var_value => x_inv_item_name);
3197: p_module_name => g_module_name,
3198: p_procedure_name => l_program_name,
3199: p_var_name => 'x_inv_item_name',
3200: p_var_value => x_inv_item_name);
3201: INL_LOGGING_PVT.Log_Variable(
3202: p_module_name => g_module_name,
3203: p_procedure_name => l_program_name,
3204: p_var_name => 'p_ship_line_int_id',
3205: p_var_value => p_ship_line_int_id);
3202: p_module_name => g_module_name,
3203: p_procedure_name => l_program_name,
3204: p_var_name => 'p_ship_line_int_id',
3205: p_var_value => p_ship_line_int_id);
3206: INL_LOGGING_PVT.Log_Variable(
3207: p_module_name => g_module_name,
3208: p_procedure_name => l_program_name,
3209: p_var_name => 'p_organization_id',
3210: p_var_value => p_organization_id);
3207: p_module_name => g_module_name,
3208: p_procedure_name => l_program_name,
3209: p_var_name => 'p_organization_id',
3210: p_var_value => p_organization_id);
3211: INL_LOGGING_PVT.Log_Variable(
3212: p_module_name => g_module_name,
3213: p_procedure_name => l_program_name,
3214: p_var_name => 'p_validation_flag',
3215: p_var_value => p_validation_flag);
3217: IF p_validation_flag = 'N'
3218: AND x_inv_item_id IS NOT NULL
3219: THEN
3220: l_debug_info := 'Validation is not required for Inventory Item';
3221: INL_LOGGING_PVT.Log_Statement(
3222: p_module_name => g_module_name,
3223: p_procedure_name => l_program_name,
3224: p_debug_info => l_debug_info);
3225: x_inv_item_name := NULL;
3224: p_debug_info => l_debug_info);
3225: x_inv_item_name := NULL;
3226: ELSE
3227: l_debug_info := 'Checking Inventory Item';
3228: INL_LOGGING_PVT.Log_Statement(
3229: p_module_name => g_module_name,
3230: p_procedure_name => l_program_name,
3231: p_debug_info => l_debug_info);
3232: IF x_inv_item_name IS NOT NULL THEN
3251: ;
3252: END IF;
3253:
3254: -- Standard End of Procedure/Function Logging
3255: INL_LOGGING_PVT.Log_EndProc(
3256: p_module_name => g_module_name,
3257: p_procedure_name => l_program_name);
3258: RETURN FND_API.to_boolean(L_FND_TRUE) ;
3259: EXCEPTION
3258: RETURN FND_API.to_boolean(L_FND_TRUE) ;
3259: EXCEPTION
3260: WHEN L_FND_EXC_ERROR THEN
3261: -- Standard Expected Error Logging
3262: INL_LOGGING_PVT.Log_ExpecError (
3263: p_module_name => g_module_name,
3264: p_procedure_name => l_program_name);
3265: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3266: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3264: p_procedure_name => l_program_name);
3265: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3266: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3267: -- Standard Unexpected Error Logging
3268: INL_LOGGING_PVT.Log_UnexpecError (
3269: p_module_name => g_module_name,
3270: p_procedure_name => l_program_name);
3271: RETURN FND_API.to_boolean(L_FND_FALSE);
3272: WHEN OTHERS THEN
3315: l_count_txn_uom_valid NUMBER;
3316:
3317: BEGIN
3318: -- Standard Beginning of Procedure/Function Logging
3319: INL_LOGGING_PVT.Log_BeginProc(
3320: p_module_name => g_module_name,
3321: p_procedure_name => l_program_name) ;
3322: -- Initialize API return status to success
3323: x_return_status := L_FND_RET_STS_SUCCESS;
3323: x_return_status := L_FND_RET_STS_SUCCESS;
3324:
3325: -- Check if the Location is null
3326: l_debug_info := 'Validate Txn Uom Code if required';
3327: INL_LOGGING_PVT.Log_Statement(
3328: p_module_name => g_module_name,
3329: p_procedure_name => l_program_name,
3330: p_debug_info => l_debug_info);
3331:
3328: p_module_name => g_module_name,
3329: p_procedure_name => l_program_name,
3330: p_debug_info => l_debug_info);
3331:
3332: INL_LOGGING_PVT.Log_Variable(
3333: p_module_name => g_module_name,
3334: p_procedure_name => l_program_name,
3335: p_var_name => 'p_txn_uom_code',
3336: p_var_value => p_txn_uom_code) ;
3333: p_module_name => g_module_name,
3334: p_procedure_name => l_program_name,
3335: p_var_name => 'p_txn_uom_code',
3336: p_var_value => p_txn_uom_code) ;
3337: INL_LOGGING_PVT.Log_Variable(
3338: p_module_name => g_module_name,
3339: p_procedure_name => l_program_name,
3340: p_var_name => 'p_ship_line_int_id',
3341: p_var_value => p_ship_line_int_id) ;
3346: WHERE mum.uom_code = p_txn_uom_code;
3347:
3348: IF NVL(l_count_txn_uom_valid, 0) = 0 THEN
3349: l_debug_info := 'Transaction Uom Code is invalid';
3350: INL_LOGGING_PVT.Log_Statement(
3351: p_module_name => g_module_name,
3352: p_procedure_name => l_program_name,
3353: p_debug_info => l_debug_info);
3354: l_result := L_FND_FALSE;
3367: RAISE L_FND_EXC_UNEXPECTED_ERROR;
3368: END IF;
3369: END IF;
3370: -- Standard End of Procedure/Function Logging
3371: INL_LOGGING_PVT.Log_EndProc(
3372: p_module_name => g_module_name,
3373: p_procedure_name => l_program_name);
3374: RETURN FND_API.to_boolean(l_result) ;
3375: EXCEPTION
3374: RETURN FND_API.to_boolean(l_result) ;
3375: EXCEPTION
3376: WHEN L_FND_EXC_ERROR THEN
3377: -- Standard Expected Error Logging
3378: INL_LOGGING_PVT.Log_ExpecError (
3379: p_module_name => g_module_name,
3380: p_procedure_name => l_program_name);
3381: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3382: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3380: p_procedure_name => l_program_name);
3381: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3382: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3383: -- Standard Unexpected Error Logging
3384: INL_LOGGING_PVT.Log_UnexpecError (
3385: p_module_name => g_module_name,
3386: p_procedure_name => l_program_name);
3387: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3388: WHEN OTHERS THEN
3386: p_procedure_name => l_program_name);
3387: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3388: WHEN OTHERS THEN
3389: -- Standard Unexpected Error Logging
3390: INL_LOGGING_PVT.Log_UnexpecError (
3391: p_module_name => g_module_name,
3392: p_procedure_name => l_program_name);
3393: IF FND_MSG_PUB.Check_Msg_Level(
3394: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3469: l_po_uom_code VARCHAR2(25); -- Bug 11710754
3470: l_po_unit_price NUMBER; -- Bug 11710754
3471: BEGIN
3472: -- Standard Beginning of Procedure/Function Logging
3473: INL_LOGGING_PVT.Log_BeginProc(
3474: p_module_name => g_module_name,
3475: p_procedure_name => l_program_name) ;
3476: -- Initialize API return status to success
3477: x_return_status := L_FND_RET_STS_SUCCESS;
3476: -- Initialize API return status to success
3477: x_return_status := L_FND_RET_STS_SUCCESS;
3478:
3479: l_debug_info := 'Derive Primary and secondary fields if required';
3480: INL_LOGGING_PVT.Log_Statement(
3481: p_module_name => g_module_name,
3482: p_procedure_name => l_program_name,
3483: p_debug_info => l_debug_info);
3484:
3481: p_module_name => g_module_name,
3482: p_procedure_name => l_program_name,
3483: p_debug_info => l_debug_info);
3484:
3485: INL_LOGGING_PVT.Log_Variable(
3486: p_module_name => g_module_name,
3487: p_procedure_name => l_program_name,
3488: p_var_name => 'p_ship_line_int_id',
3489: p_var_value => p_ship_line_int_id) ;
3487: p_procedure_name => l_program_name,
3488: p_var_name => 'p_ship_line_int_id',
3489: p_var_value => p_ship_line_int_id) ;
3490:
3491: INL_LOGGING_PVT.Log_Variable(
3492: p_module_name => g_module_name,
3493: p_procedure_name => l_program_name,
3494: p_var_name => 'p_validation_flag',
3495: p_var_value => p_validation_flag) ;
3493: p_procedure_name => l_program_name,
3494: p_var_name => 'p_validation_flag',
3495: p_var_value => p_validation_flag) ;
3496:
3497: INL_LOGGING_PVT.Log_Variable(
3498: p_module_name => g_module_name,
3499: p_procedure_name => l_program_name,
3500: p_var_name => 'p_organization_id',
3501: p_var_value => p_organization_id) ;
3499: p_procedure_name => l_program_name,
3500: p_var_name => 'p_organization_id',
3501: p_var_value => p_organization_id) ;
3502:
3503: INL_LOGGING_PVT.Log_Variable(
3504: p_module_name => g_module_name,
3505: p_procedure_name => l_program_name,
3506: p_var_name => 'p_inventory_item_id',
3507: p_var_value => p_inventory_item_id) ;
3505: p_procedure_name => l_program_name,
3506: p_var_name => 'p_inventory_item_id',
3507: p_var_value => p_inventory_item_id) ;
3508:
3509: INL_LOGGING_PVT.Log_Variable(
3510: p_module_name => g_module_name,
3511: p_procedure_name => l_program_name,
3512: p_var_name => 'p_txn_uom_code',
3513: p_var_value => p_txn_uom_code) ;
3511: p_procedure_name => l_program_name,
3512: p_var_name => 'p_txn_uom_code',
3513: p_var_value => p_txn_uom_code) ;
3514:
3515: INL_LOGGING_PVT.Log_Variable(
3516: p_module_name => g_module_name,
3517: p_procedure_name => l_program_name,
3518: p_var_name => 'p_txn_qty',
3519: p_var_value => p_txn_qty) ;
3517: p_procedure_name => l_program_name,
3518: p_var_name => 'p_txn_qty',
3519: p_var_value => p_txn_qty) ;
3520:
3521: INL_LOGGING_PVT.Log_Variable(
3522: p_module_name => g_module_name,
3523: p_procedure_name => l_program_name,
3524: p_var_name => 'p_txn_unit_price',
3525: p_var_value => p_txn_unit_price) ;
3523: p_procedure_name => l_program_name,
3524: p_var_name => 'p_txn_unit_price',
3525: p_var_value => p_txn_unit_price) ;
3526:
3527: INL_LOGGING_PVT.Log_Variable(
3528: p_module_name => g_module_name,
3529: p_procedure_name => l_program_name,
3530: p_var_name => 'p_ship_line_id',
3531: p_var_value => p_ship_line_id) ;
3529: p_procedure_name => l_program_name,
3530: p_var_name => 'p_ship_line_id',
3531: p_var_value => p_ship_line_id) ;
3532:
3533: INL_LOGGING_PVT.Log_Variable(
3534: p_module_name => g_module_name,
3535: p_procedure_name => l_program_name,
3536: p_var_name => 'p_interface_source_code',
3537: p_var_value => p_interface_source_code) ;
3535: p_procedure_name => l_program_name,
3536: p_var_name => 'p_interface_source_code',
3537: p_var_value => p_interface_source_code) ;
3538:
3539: INL_LOGGING_PVT.Log_Variable(
3540: p_module_name => g_module_name,
3541: p_procedure_name => l_program_name,
3542: p_var_name => 'p_interface_source_line_id',
3543: p_var_value => p_interface_source_line_id) ;
3541: p_procedure_name => l_program_name,
3542: p_var_name => 'p_interface_source_line_id',
3543: p_var_value => p_interface_source_line_id) ;
3544:
3545: INL_LOGGING_PVT.Log_Variable(
3546: p_module_name => g_module_name,
3547: p_procedure_name => l_program_name,
3548: p_var_name => 'x_1ary_uom_code',
3549: p_var_value => x_1ary_uom_code) ;
3547: p_procedure_name => l_program_name,
3548: p_var_name => 'x_1ary_uom_code',
3549: p_var_value => x_1ary_uom_code) ;
3550:
3551: INL_LOGGING_PVT.Log_Variable(
3552: p_module_name => g_module_name,
3553: p_procedure_name => l_program_name,
3554: p_var_name => 'x_1ary_qty',
3555: p_var_value => x_1ary_qty) ;
3553: p_procedure_name => l_program_name,
3554: p_var_name => 'x_1ary_qty',
3555: p_var_value => x_1ary_qty) ;
3556:
3557: INL_LOGGING_PVT.Log_Variable(
3558: p_module_name => g_module_name,
3559: p_procedure_name => l_program_name,
3560: p_var_name => 'x_1ary_unit_price',
3561: p_var_value => x_1ary_unit_price) ;
3567: OR l_txn_qty IS NULL
3568: OR l_txn_unit_price IS NULL)
3569: THEN
3570: l_debug_info := 'Inventory Item IS NULL, getting from ship line';
3571: INL_LOGGING_PVT.Log_Statement(
3572: p_module_name => g_module_name,
3573: p_procedure_name => l_program_name,
3574: p_debug_info => l_debug_info);
3575:
3584: FROM inl_ship_lines_all sl --Bug#10381495
3585: WHERE sl.ship_line_id = p_ship_line_id;
3586: END IF;
3587:
3588: INL_LOGGING_PVT.Log_Variable(
3589: p_module_name => g_module_name,
3590: p_procedure_name => l_program_name,
3591: p_var_name => 'l_inventory_item_id',
3592: p_var_value => l_inventory_item_id) ;
3590: p_procedure_name => l_program_name,
3591: p_var_name => 'l_inventory_item_id',
3592: p_var_value => l_inventory_item_id) ;
3593:
3594: INL_LOGGING_PVT.Log_Variable(
3595: p_module_name => g_module_name,
3596: p_procedure_name => l_program_name,
3597: p_var_name => 'l_txn_uom_code',
3598: p_var_value => l_txn_uom_code) ;
3596: p_procedure_name => l_program_name,
3597: p_var_name => 'l_txn_uom_code',
3598: p_var_value => l_txn_uom_code) ;
3599:
3600: INL_LOGGING_PVT.Log_Variable(
3601: p_module_name => g_module_name,
3602: p_procedure_name => l_program_name,
3603: p_var_name => 'l_txn_qty',
3604: p_var_value => l_txn_qty) ;
3602: p_procedure_name => l_program_name,
3603: p_var_name => 'l_txn_qty',
3604: p_var_value => l_txn_qty) ;
3605:
3606: INL_LOGGING_PVT.Log_Variable(
3607: p_module_name => g_module_name,
3608: p_procedure_name => l_program_name,
3609: p_var_name => 'l_txn_unit_price',
3610: p_var_value => l_txn_unit_price) ;
3612: IF l_inventory_item_id IS NOT NULL
3613: AND p_organization_id IS NOT NULL
3614: AND l_txn_uom_code IS NOT NULL THEN
3615: l_debug_info := 'Derive Primary and Secondary Fields';
3616: INL_LOGGING_PVT.Log_Statement(
3617: p_module_name => g_module_name,
3618: p_procedure_name => l_program_name,
3619: p_debug_info => l_debug_info);
3620:
3636: ) ;
3637:
3638: IF l_return_status <> 'S' THEN
3639: l_debug_info := 'Error when converting txn uom code: ' || l_txn_uom_code;
3640: INL_LOGGING_PVT.Log_Statement(
3641: p_module_name => g_module_name,
3642: p_procedure_name => l_program_name,
3643: p_debug_info => l_debug_info);
3644:
3641: p_module_name => g_module_name,
3642: p_procedure_name => l_program_name,
3643: p_debug_info => l_debug_info);
3644:
3645: INL_LOGGING_PVT.Log_Variable(
3646: p_module_name => g_module_name,
3647: p_procedure_name => l_program_name,
3648: p_var_name => 'l_return_status',
3649: p_var_value => l_return_status) ;
3674: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
3675: RAISE L_FND_EXC_UNEXPECTED_ERROR;
3676: END IF;
3677:
3678: INL_LOGGING_PVT.Log_Variable(
3679: p_module_name => g_module_name,
3680: p_procedure_name => l_program_name,
3681: p_var_name => 'l_1ary_uom_code',
3682: p_var_value => l_1ary_uom_code) ;
3680: p_procedure_name => l_program_name,
3681: p_var_name => 'l_1ary_uom_code',
3682: p_var_value => l_1ary_uom_code) ;
3683:
3684: INL_LOGGING_PVT.Log_Variable(
3685: p_module_name => g_module_name,
3686: p_procedure_name => l_program_name,
3687: p_var_name => 'l_1ary_qty',
3688: p_var_value => l_1ary_qty) ;
3686: p_procedure_name => l_program_name,
3687: p_var_name => 'l_1ary_qty',
3688: p_var_value => l_1ary_qty) ;
3689:
3690: INL_LOGGING_PVT.Log_Variable(
3691: p_module_name => g_module_name,
3692: p_procedure_name => l_program_name,
3693: p_var_name => 'l_2ary_uom_code',
3694: p_var_value => l_2ary_uom_code) ;
3692: p_procedure_name => l_program_name,
3693: p_var_name => 'l_2ary_uom_code',
3694: p_var_value => l_2ary_uom_code) ;
3695:
3696: INL_LOGGING_PVT.Log_Variable(
3697: p_module_name => g_module_name,
3698: p_procedure_name => l_program_name,
3699: p_var_name => 'l_2ary_qty',
3700: p_var_value => l_2ary_qty) ;
3706: -- Bug 11710754
3707: -- x_1ary_unit_price := (l_txn_qty * l_txn_unit_price) / x_1ary_qty;
3708: IF p_interface_source_code = 'RCV' THEN
3709: l_debug_info := 'source table is RCV_TRANSACTIONS_INTERFACE';
3710: INL_LOGGING_PVT.Log_Statement(
3711: p_module_name => g_module_name,
3712: p_procedure_name => l_program_name,
3713: p_debug_info => l_debug_info);
3714:
3720: WHERE muom.unit_of_measure = pl.unit_meas_lookup_code
3721: AND pl.po_line_id = rti.po_line_id
3722: AND interface_transaction_id = p_interface_source_line_id;
3723:
3724: INL_LOGGING_PVT.Log_Variable(
3725: p_module_name => g_module_name,
3726: p_procedure_name => l_program_name,
3727: p_var_name => 'l_rcv_uom_code',
3728: p_var_value => l_rcv_uom_code);
3726: p_procedure_name => l_program_name,
3727: p_var_name => 'l_rcv_uom_code',
3728: p_var_value => l_rcv_uom_code);
3729:
3730: INL_LOGGING_PVT.Log_Variable(
3731: p_module_name => g_module_name,
3732: p_procedure_name => l_program_name,
3733: p_var_name => 'l_po_uom_code',
3734: p_var_value => l_po_uom_code);
3732: p_procedure_name => l_program_name,
3733: p_var_name => 'l_po_uom_code',
3734: p_var_value => l_po_uom_code);
3735:
3736: INL_LOGGING_PVT.Log_Variable(
3737: p_module_name => g_module_name,
3738: p_procedure_name => l_program_name,
3739: p_var_name => 'l_po_unit_price',
3740: p_var_value => l_po_unit_price);
3755: p_from_uom_code => l_po_uom_code,
3756: p_to_uom_code => l_1ary_uom_code);
3757: END IF;
3758:
3759: INL_LOGGING_PVT.Log_Statement(
3760: p_module_name => g_module_name,
3761: p_procedure_name => l_program_name,
3762: p_debug_info => l_debug_info);
3763:
3762: p_debug_info => l_debug_info);
3763:
3764: ELSE
3765: l_debug_info := 'Source is different from RCV_TRANSACTIONS_INTERFACE';
3766: INL_LOGGING_PVT.Log_Statement(
3767: p_module_name => g_module_name,
3768: p_procedure_name => l_program_name,
3769: p_debug_info => l_debug_info);
3770:
3782: END IF;
3783: END IF;
3784: -- /Bug 11710754
3785:
3786: INL_LOGGING_PVT.Log_Variable(
3787: p_module_name => g_module_name,
3788: p_procedure_name => l_program_name,
3789: p_var_name => 'x_1ary_unit_price',
3790: p_var_value => x_1ary_unit_price);
3795: AND x_2ary_qty IS NULL
3796: AND x_2ary_unit_price IS NULL
3797: THEN
3798: l_debug_info := 'Secondary fields are null, then derivating them';
3799: INL_LOGGING_PVT.Log_Statement(
3800: p_module_name => g_module_name,
3801: p_procedure_name => l_program_name,
3802: p_debug_info => l_debug_info);
3803:
3800: p_module_name => g_module_name,
3801: p_procedure_name => l_program_name,
3802: p_debug_info => l_debug_info);
3803:
3804: INL_LOGGING_PVT.Log_Variable(
3805: p_module_name => g_module_name,
3806: p_procedure_name => l_program_name,
3807: p_var_name => 'l_2ary_uom_code',
3808: p_var_value => l_2ary_uom_code);
3806: p_procedure_name => l_program_name,
3807: p_var_name => 'l_2ary_uom_code',
3808: p_var_value => l_2ary_uom_code);
3809:
3810: INL_LOGGING_PVT.Log_Variable(
3811: p_module_name => g_module_name,
3812: p_procedure_name => l_program_name,
3813: p_var_name => 'l_2ary_qty',
3814: p_var_value => l_2ary_qty) ;
3815:
3816: IF l_2ary_uom_code IS NOT NULL AND p_interface_source_code <> 'RCV' THEN
3817:
3818: l_debug_info := 'Derive secondary fields for interface source code <> RCV';
3819: INL_LOGGING_PVT.Log_Statement(
3820: p_module_name => g_module_name,
3821: p_procedure_name => l_program_name,
3822: p_debug_info => l_debug_info);
3823:
3824: x_2ary_qty := l_2ary_qty;
3825: x_2ary_uom_code := l_2ary_uom_code;
3826: x_2ary_unit_price := (l_txn_qty * l_txn_unit_price) / x_2ary_qty;
3827:
3828: INL_LOGGING_PVT.Log_Variable(
3829: p_module_name => g_module_name,
3830: p_procedure_name => l_program_name,
3831: p_var_name => 'x_2ary_unit_price',
3832: p_var_value => x_2ary_unit_price);
3835: IF p_validation_flag = 'Y' THEN
3836: IF x_2ary_uom_code IS NULL OR x_2ary_qty IS NULL OR
3837: x_2ary_unit_price IS NULL THEN
3838: l_debug_info := 'If one of Secondary fields is populated, then all of them should be also populated';
3839: INL_LOGGING_PVT.Log_Statement(
3840: p_module_name => g_module_name,
3841: p_procedure_name => l_program_name,
3842: p_debug_info => l_debug_info);
3843: l_result := L_FND_FALSE;
3857: END IF;
3858: ELSIF x_2ary_uom_code IS NOT NULL AND x_2ary_qty IS NOT NULL AND
3859: x_2ary_unit_price IS NOT NULL THEN
3860: l_debug_info := 'Secondary Uom Code has been populated. Validating it';
3861: INL_LOGGING_PVT.Log_Statement(
3862: p_module_name => g_module_name,
3863: p_procedure_name => l_program_name,
3864: p_debug_info => l_debug_info);
3865:
3869: WHERE mum.uom_code = x_2ary_uom_code;
3870:
3871: IF NVL(l_count_2ary_uom_vld,0) = 0 THEN
3872: l_debug_info := 'Secondary Uom Code populated is invalid';
3873: INL_LOGGING_PVT.Log_Statement(
3874: p_module_name => g_module_name,
3875: p_procedure_name => l_program_name,
3876: p_debug_info => l_debug_info);
3877: l_result := L_FND_FALSE;
3895: END IF;
3896: -- /Bug #8932386
3897: END IF;
3898: -- Standard End of Procedure/Function Logging
3899: INL_LOGGING_PVT.Log_EndProc(
3900: p_module_name => g_module_name,
3901: p_procedure_name => l_program_name);
3902: RETURN FND_API.to_boolean(l_result) ;
3903: EXCEPTION
3903: EXCEPTION
3904: WHEN L_FND_EXC_ERROR THEN
3905: -- Standard Expected Error Logging
3906: x_return_status := L_FND_RET_STS_ERROR;
3907: INL_LOGGING_PVT.Log_ExpecError (
3908: p_module_name => g_module_name,
3909: p_procedure_name => l_program_name);
3910: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3911: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3910: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3911: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3912: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3913: -- Standard Unexpected Error Logging
3914: INL_LOGGING_PVT.Log_UnexpecError (
3915: p_module_name => g_module_name,
3916: p_procedure_name => l_program_name);
3917: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3918: WHEN OTHERS THEN
3917: RETURN FND_API.to_boolean(L_FND_FALSE) ;
3918: WHEN OTHERS THEN
3919: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3920: -- Standard Unexpected Error Logging
3921: INL_LOGGING_PVT.Log_UnexpecError (
3922: p_module_name => g_module_name,
3923: p_procedure_name => l_program_name);
3924: IF FND_MSG_PUB.Check_Msg_Level(
3925: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3956: l_return_status VARCHAR2(1) := L_FND_TRUE;
3957:
3958: BEGIN
3959: -- Standard Beginning of Procedure/Function Logging
3960: INL_LOGGING_PVT.Log_BeginProc(
3961: p_module_name => g_module_name,
3962: p_procedure_name => l_program_name) ;
3963: -- Initialize API return status to success
3964: x_return_status := L_FND_RET_STS_SUCCESS;
3963: -- Initialize API return status to success
3964: x_return_status := L_FND_RET_STS_SUCCESS;
3965:
3966: l_debug_info := 'Validate Landed Cost Flag';
3967: INL_LOGGING_PVT.Log_Statement(
3968: p_module_name => g_module_name,
3969: p_procedure_name => l_program_name,
3970: p_debug_info => l_debug_info);
3971:
3968: p_module_name => g_module_name,
3969: p_procedure_name => l_program_name,
3970: p_debug_info => l_debug_info);
3971:
3972: INL_LOGGING_PVT.Log_Variable(
3973: p_module_name => g_module_name,
3974: p_procedure_name => l_program_name,
3975: p_var_name => 'p_landed_cost_flag',
3976: p_var_value => p_landed_cost_flag);
3975: p_var_name => 'p_landed_cost_flag',
3976: p_var_value => p_landed_cost_flag);
3977:
3978: l_debug_info := 'Validate Landed Cost Flag if required';
3979: INL_LOGGING_PVT.Log_Statement(
3980: p_module_name => g_module_name,
3981: p_procedure_name => l_program_name,
3982: p_debug_info => l_debug_info) ;
3983:
3982: p_debug_info => l_debug_info) ;
3983:
3984: IF p_landed_cost_flag NOT IN ('Y', 'N') THEN
3985: l_debug_info := 'Landed Cost Flag should be Y or N';
3986: INL_LOGGING_PVT.Log_Statement(
3987: p_module_name => g_module_name,
3988: p_procedure_name => l_program_name,
3989: p_debug_info => l_debug_info);
3990: l_result := L_FND_FALSE;
4005: END IF;
4006: END IF;
4007:
4008: -- Standard End of Procedure/Function Logging
4009: INL_LOGGING_PVT.Log_EndProc(
4010: p_module_name => g_module_name,
4011: p_procedure_name => l_program_name);
4012: RETURN FND_API.to_boolean(l_result) ;
4013: EXCEPTION
4012: RETURN FND_API.to_boolean(l_result) ;
4013: EXCEPTION
4014: WHEN L_FND_EXC_ERROR THEN
4015: -- Standard Expected Error Logging
4016: INL_LOGGING_PVT.Log_ExpecError (
4017: p_module_name => g_module_name,
4018: p_procedure_name => l_program_name);
4019: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4020: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4018: p_procedure_name => l_program_name);
4019: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4020: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4021: -- Standard Unexpected Error Logging
4022: INL_LOGGING_PVT.Log_UnexpecError (
4023: p_module_name => g_module_name,
4024: p_procedure_name => l_program_name);
4025: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4026: WHEN OTHERS THEN
4024: p_procedure_name => l_program_name);
4025: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4026: WHEN OTHERS THEN
4027: -- Standard Unexpected Error Logging
4028: INL_LOGGING_PVT.Log_UnexpecError (
4029: p_module_name => g_module_name,
4030: p_procedure_name => l_program_name);
4031: IF FND_MSG_PUB.Check_Msg_Level(
4032: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4063: l_return_status VARCHAR2(1) := L_FND_TRUE;
4064:
4065: BEGIN
4066: -- Standard Beginning of Procedure/Function Logging
4067: INL_LOGGING_PVT.Log_BeginProc(
4068: p_module_name => g_module_name,
4069: p_procedure_name => l_program_name) ;
4070: -- Initialize API return status to success
4071: x_return_status := L_FND_RET_STS_SUCCESS;
4070: -- Initialize API return status to success
4071: x_return_status := L_FND_RET_STS_SUCCESS;
4072:
4073: l_debug_info := 'Validate Allocation Enabled Flag if required';
4074: INL_LOGGING_PVT.Log_Statement(
4075: p_module_name => g_module_name,
4076: p_procedure_name => l_program_name,
4077: p_debug_info => l_debug_info) ;
4078:
4075: p_module_name => g_module_name,
4076: p_procedure_name => l_program_name,
4077: p_debug_info => l_debug_info) ;
4078:
4079: INL_LOGGING_PVT.Log_Variable(
4080: p_module_name => g_module_name,
4081: p_procedure_name => l_program_name,
4082: p_var_name => 'p_alloc_enabled_flag',
4083: p_var_value => p_alloc_enabled_flag);
4083: p_var_value => p_alloc_enabled_flag);
4084:
4085: IF p_alloc_enabled_flag NOT IN ('Y', 'N') THEN
4086: l_debug_info := 'Allocation Enabled Flag should be Y or N';
4087: INL_LOGGING_PVT.Log_Statement(
4088: p_module_name => g_module_name,
4089: p_procedure_name => l_program_name,
4090: p_debug_info => l_debug_info);
4091: l_result := L_FND_FALSE;
4109: RAISE L_FND_EXC_UNEXPECTED_ERROR;
4110: END IF;
4111: END IF;
4112: -- Standard End of Procedure/Function Logging
4113: INL_LOGGING_PVT.Log_EndProc(
4114: p_module_name => g_module_name,
4115: p_procedure_name => l_program_name);
4116: RETURN FND_API.to_boolean(l_result) ;
4117: EXCEPTION
4116: RETURN FND_API.to_boolean(l_result) ;
4117: EXCEPTION
4118: WHEN L_FND_EXC_ERROR THEN
4119: -- Standard Expected Error Logging
4120: INL_LOGGING_PVT.Log_ExpecError (
4121: p_module_name => g_module_name,
4122: p_procedure_name => l_program_name);
4123: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4124: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4122: p_procedure_name => l_program_name);
4123: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4124: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4125: -- Standard Unexpected Error Logging
4126: INL_LOGGING_PVT.Log_UnexpecError (
4127: p_module_name => g_module_name,
4128: p_procedure_name => l_program_name);
4129: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4130: WHEN OTHERS THEN
4128: p_procedure_name => l_program_name);
4129: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4130: WHEN OTHERS THEN
4131: -- Standard Unexpected Error Logging
4132: INL_LOGGING_PVT.Log_UnexpecError (
4133: p_module_name => g_module_name,
4134: p_procedure_name => l_program_name);
4135: IF FND_MSG_PUB.Check_Msg_Level(
4136: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4194: -- l_count_lcm_as_service NUMBER; -- Bug #9198199
4195:
4196: BEGIN
4197: -- Standard Beginning of Procedure/Function Logging
4198: INL_LOGGING_PVT.Log_BeginProc(
4199: p_module_name => g_module_name,
4200: p_procedure_name => l_program_name) ;
4201:
4202: -- Initialize API return status to success
4202: -- Initialize API return status to success
4203: x_return_status := L_FND_RET_STS_SUCCESS;
4204:
4205: l_debug_info := 'Derive organization fields and validate them if required';
4206: INL_LOGGING_PVT.Log_Statement(
4207: p_module_name => g_module_name,
4208: p_procedure_name => l_program_name,
4209: p_debug_info => l_debug_info) ;
4210:
4207: p_module_name => g_module_name,
4208: p_procedure_name => l_program_name,
4209: p_debug_info => l_debug_info) ;
4210:
4211: INL_LOGGING_PVT.Log_Variable(
4212: p_module_name => g_module_name,
4213: p_procedure_name => l_program_name,
4214: p_var_name => 'p_ship_header_int_id',
4215: p_var_value => p_ship_header_int_id) ;
4212: p_module_name => g_module_name,
4213: p_procedure_name => l_program_name,
4214: p_var_name => 'p_ship_header_int_id',
4215: p_var_value => p_ship_header_int_id) ;
4216: INL_LOGGING_PVT.Log_Variable(
4217: p_module_name => g_module_name,
4218: p_procedure_name => l_program_name,
4219: p_var_name => 'p_validation_flag',
4220: p_var_value => p_validation_flag) ;
4217: p_module_name => g_module_name,
4218: p_procedure_name => l_program_name,
4219: p_var_name => 'p_validation_flag',
4220: p_var_value => p_validation_flag) ;
4221: INL_LOGGING_PVT.Log_Variable(
4222: p_module_name => g_module_name,
4223: p_procedure_name => l_program_name,
4224: p_var_name => 'x_organization_code',
4225: p_var_value => x_organization_code) ;
4222: p_module_name => g_module_name,
4223: p_procedure_name => l_program_name,
4224: p_var_name => 'x_organization_code',
4225: p_var_value => x_organization_code) ;
4226: INL_LOGGING_PVT.Log_Variable(
4227: p_module_name => g_module_name,
4228: p_procedure_name => l_program_name,
4229: p_var_name => 'x_org_id',
4230: p_var_value => x_org_id) ;
4227: p_module_name => g_module_name,
4228: p_procedure_name => l_program_name,
4229: p_var_name => 'x_org_id',
4230: p_var_value => x_org_id) ;
4231: INL_LOGGING_PVT.Log_Variable(
4232: p_module_name => g_module_name,
4233: p_procedure_name => l_program_name,
4234: p_var_name => 'p_ship_header_id',
4235: p_var_value => p_ship_header_id) ;
4243: --=================================================================================
4244: /* -- BUG#8971635
4245: IF p_validation_flag = 'N' THEN
4246: l_debug_info := 'Validation is not required for Organization';
4247: INL_LOGGING_PVT.Log_Statement(
4248: p_module_name => g_module_name,
4249: p_procedure_name => l_program_name,
4250: p_debug_info => l_debug_info);
4251: IF x_organization_id IS NOT NULL THEN
4258: l_column_name := 'ORGANIZATION_CODE';
4259: l_column_value := x_organization_code;
4260:
4261: l_debug_info := 'Derive organization id from organization code';
4262: INL_LOGGING_PVT.Log_Statement(
4263: p_module_name => g_module_name,
4264: p_procedure_name => l_program_name,
4265: p_debug_info => l_debug_info);
4266:
4288: FROM inl_ship_headers_all
4289: WHERE ship_header_id = p_ship_header_id;
4290:
4291: END IF;
4292: INL_LOGGING_PVT.Log_Variable(
4293: p_module_name => g_module_name,
4294: p_procedure_name => l_program_name,
4295: p_var_name => 'x_organization_id',
4296: p_var_value => x_organization_id) ;
4296: p_var_value => x_organization_id) ;
4297: l_column_name := 'ORGANIZATION_ID';
4298: l_column_value := x_organization_id;
4299: l_debug_info := 'Derive organization information.';
4300: INL_LOGGING_PVT.Log_Statement(
4301: p_module_name => g_module_name,
4302: p_procedure_name => l_program_name,
4303: p_debug_info => l_debug_info);
4304:
4330: AND ood.organization_id = x_organization_id)
4331: OR
4332: ood.organization_code = x_organization_code)
4333: ;
4334: INL_LOGGING_PVT.Log_Variable(
4335: p_module_name => g_module_name,
4336: p_procedure_name => l_program_name,
4337: p_var_name => 'x_legal_entity_id',
4338: p_var_value => x_legal_entity_id) ;
4335: p_module_name => g_module_name,
4336: p_procedure_name => l_program_name,
4337: p_var_name => 'x_legal_entity_id',
4338: p_var_value => x_legal_entity_id) ;
4339: INL_LOGGING_PVT.Log_Variable(
4340: p_module_name => g_module_name,
4341: p_procedure_name => l_program_name,
4342: p_var_name => 'x_organization_id',
4343: p_var_value => x_organization_id) ;
4340: p_module_name => g_module_name,
4341: p_procedure_name => l_program_name,
4342: p_var_name => 'x_organization_id',
4343: p_var_value => x_organization_id) ;
4344: INL_LOGGING_PVT.Log_Variable(
4345: p_module_name => g_module_name,
4346: p_procedure_name => l_program_name,
4347: p_var_name => 'x_organization_code',
4348: p_var_value => x_organization_code) ;
4345: p_module_name => g_module_name,
4346: p_procedure_name => l_program_name,
4347: p_var_name => 'x_organization_code',
4348: p_var_value => x_organization_code) ;
4349: INL_LOGGING_PVT.Log_Variable(
4350: p_module_name => g_module_name,
4351: p_procedure_name => l_program_name,
4352: p_var_name => 'x_org_id',
4353: p_var_value => x_org_id) ;
4350: p_module_name => g_module_name,
4351: p_procedure_name => l_program_name,
4352: p_var_name => 'x_org_id',
4353: p_var_value => x_org_id) ;
4354: INL_LOGGING_PVT.Log_Variable(
4355: p_module_name => g_module_name,
4356: p_procedure_name => l_program_name,
4357: p_var_name => 'x_LCM_FLOW',
4358: p_var_value => x_LCM_FLOW) ;
4355: p_module_name => g_module_name,
4356: p_procedure_name => l_program_name,
4357: p_var_name => 'x_LCM_FLOW',
4358: p_var_value => x_LCM_FLOW) ;
4359: INL_LOGGING_PVT.Log_Variable(
4360: p_module_name => g_module_name,
4361: p_procedure_name => l_program_name,
4362: p_var_name => 'x_user_defined_ship_num_code',
4363: p_var_value => x_user_defined_ship_num_code) ;
4360: p_module_name => g_module_name,
4361: p_procedure_name => l_program_name,
4362: p_var_name => 'x_user_defined_ship_num_code',
4363: p_var_value => x_user_defined_ship_num_code) ;
4364: INL_LOGGING_PVT.Log_Variable(
4365: p_module_name => g_module_name,
4366: p_procedure_name => l_program_name,
4367: p_var_name => 'x_manual_ship_num_type',
4368: p_var_value => x_manual_ship_num_type) ;
4365: p_module_name => g_module_name,
4366: p_procedure_name => l_program_name,
4367: p_var_name => 'x_manual_ship_num_type',
4368: p_var_value => x_manual_ship_num_type) ;
4369: INL_LOGGING_PVT.Log_Variable(
4370: p_module_name => g_module_name,
4371: p_procedure_name => l_program_name,
4372: p_var_name => 'l_count_org_def_lcm',
4373: p_var_value => l_count_org_def_lcm) ;
4374:
4375: -- Validating Organization
4376: IF NVL(l_count_org_def_lcm,0) = 0 THEN
4377: l_debug_info := 'The organization has no LCM Options defined';
4378: INL_LOGGING_PVT.Log_Statement(
4379: p_module_name => g_module_name,
4380: p_procedure_name => l_program_name,
4381: p_debug_info => l_debug_info);
4382:
4401: -- END IF; -- BUG#8971635
4402:
4403: IF x_org_id IS NULL THEN
4404: l_debug_info := 'Operating Unit is not defined for the Organization';
4405: INL_LOGGING_PVT.Log_Statement(
4406: p_module_name => g_module_name,
4407: p_procedure_name => l_program_name,
4408: p_debug_info => l_debug_info);
4409:
4426: END IF;
4427: END IF;
4428:
4429: -- Standard End of Procedure/Function Logging
4430: INL_LOGGING_PVT.Log_EndProc(
4431: p_module_name => g_module_name,
4432: p_procedure_name => l_program_name);
4433:
4434: RETURN FND_API.to_boolean(l_result) ;
4434: RETURN FND_API.to_boolean(l_result) ;
4435: EXCEPTION
4436: WHEN L_FND_EXC_ERROR THEN
4437: -- Standard Expected Error Logging
4438: INL_LOGGING_PVT.Log_ExpecError (
4439: p_module_name => g_module_name,
4440: p_procedure_name => l_program_name);
4441: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4442: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4440: p_procedure_name => l_program_name);
4441: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4442: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4443: -- Standard Unexpected Error Logging
4444: INL_LOGGING_PVT.Log_UnexpecError (
4445: p_module_name => g_module_name,
4446: p_procedure_name => l_program_name);
4447: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4448: WHEN OTHERS THEN
4503: l_count_loc_org NUMBER;
4504:
4505: BEGIN
4506: -- Standard Beginning of Procedure/Function Logging
4507: INL_LOGGING_PVT.Log_BeginProc(
4508: p_module_name => g_module_name,
4509: p_procedure_name => l_program_name) ;
4510: -- Initialize API return status to success
4511: x_return_status := L_FND_RET_STS_SUCCESS;
4511: x_return_status := L_FND_RET_STS_SUCCESS;
4512:
4513: -- Check if the Location is null
4514: l_debug_info := 'Derive location and validate if required';
4515: INL_LOGGING_PVT.Log_Statement(
4516: p_module_name => g_module_name,
4517: p_procedure_name => l_program_name,
4518: p_debug_info => l_debug_info);
4519:
4516: p_module_name => g_module_name,
4517: p_procedure_name => l_program_name,
4518: p_debug_info => l_debug_info);
4519:
4520: INL_LOGGING_PVT.Log_Variable(
4521: p_module_name => g_module_name,
4522: p_procedure_name => l_program_name,
4523: p_var_name => 'p_organization_id',
4524: p_var_value => p_organization_id) ;
4522: p_procedure_name => l_program_name,
4523: p_var_name => 'p_organization_id',
4524: p_var_value => p_organization_id) ;
4525:
4526: INL_LOGGING_PVT.Log_Variable(
4527: p_module_name => g_module_name,
4528: p_procedure_name => l_program_name,
4529: p_var_name => 'x_location_id',
4530: p_var_value => x_location_id) ;
4528: p_procedure_name => l_program_name,
4529: p_var_name => 'x_location_id',
4530: p_var_value => x_location_id) ;
4531:
4532: INL_LOGGING_PVT.Log_Variable(
4533: p_module_name => g_module_name,
4534: p_procedure_name => l_program_name,
4535: p_var_name => 'x_location_code',
4536: p_var_value => x_location_code) ;
4536: p_var_value => x_location_code) ;
4537:
4538: IF x_location_id IS NULL AND x_location_code IS NULL THEN
4539: l_debug_info := 'Location Id and Location Code are null, derivating from organization';
4540: INL_LOGGING_PVT.Log_Statement(
4541: p_module_name => g_module_name,
4542: p_procedure_name => l_program_name,
4543: p_debug_info => l_debug_info);
4544:
4554: hr_organization_units hou,
4555: hr_locations_all hl --Bug#11794483B
4556: WHERE hl.location_id = hou.location_id
4557: AND hou.organization_id = p_organization_id;
4558: INL_LOGGING_PVT.Log_Variable(
4559: p_module_name => g_module_name,
4560: p_procedure_name => l_program_name,
4561: p_var_name => '(a)x_location_id',
4562: p_var_value => x_location_id) ;
4559: p_module_name => g_module_name,
4560: p_procedure_name => l_program_name,
4561: p_var_name => '(a)x_location_id',
4562: p_var_value => x_location_id) ;
4563: INL_LOGGING_PVT.Log_Variable(
4564: p_module_name => g_module_name,
4565: p_procedure_name => l_program_name,
4566: p_var_name => '(a)x_location_code',
4567: p_var_value => x_location_code) ;
4564: p_module_name => g_module_name,
4565: p_procedure_name => l_program_name,
4566: p_var_name => '(a)x_location_code',
4567: p_var_value => x_location_code) ;
4568: INL_LOGGING_PVT.Log_Variable(
4569: p_module_name => g_module_name,
4570: p_procedure_name => l_program_name,
4571: p_var_name => '(a)x_dflt_country',
4572: p_var_value => x_dflt_country) ;
4572: p_var_value => x_dflt_country) ;
4573: ELSE
4574: IF p_validation_flag = 'N' THEN
4575: l_debug_info := 'Validation is not required for Location';
4576: INL_LOGGING_PVT.Log_Statement(
4577: p_module_name => g_module_name,
4578: p_procedure_name => l_program_name,
4579: p_debug_info => l_debug_info);
4580: IF x_location_id IS NOT NULL THEN
4593: hr_locations_all hl --Bug#11794483B
4594: WHERE
4595: hl.location_code = x_location_code;
4596: END IF;
4597: INL_LOGGING_PVT.Log_Variable(
4598: p_module_name => g_module_name,
4599: p_procedure_name => l_program_name,
4600: p_var_name => '(b)x_location_id',
4601: p_var_value => x_location_id) ;
4598: p_module_name => g_module_name,
4599: p_procedure_name => l_program_name,
4600: p_var_name => '(b)x_location_id',
4601: p_var_value => x_location_id) ;
4602: INL_LOGGING_PVT.Log_Variable(
4603: p_module_name => g_module_name,
4604: p_procedure_name => l_program_name,
4605: p_var_name => '(b)x_dflt_country',
4606: p_var_value => x_dflt_country) ;
4605: p_var_name => '(b)x_dflt_country',
4606: p_var_value => x_dflt_country) ;
4607: ELSE
4608: l_debug_info := 'Validation is required for Location';
4609: INL_LOGGING_PVT.Log_Statement(
4610: p_module_name => g_module_name,
4611: p_procedure_name => l_program_name,
4612: p_debug_info => l_debug_info);
4613:
4630: (x_location_id IS NOT NULL
4631: AND hl.location_id = x_location_id)
4632: OR hl.location_code = x_location_code
4633: ;
4634: INL_LOGGING_PVT.Log_Variable(
4635: p_module_name => g_module_name,
4636: p_procedure_name => l_program_name,
4637: p_var_name => '(c)x_location_id',
4638: p_var_value => x_location_id) ;
4635: p_module_name => g_module_name,
4636: p_procedure_name => l_program_name,
4637: p_var_name => '(c)x_location_id',
4638: p_var_value => x_location_id) ;
4639: INL_LOGGING_PVT.Log_Variable(
4640: p_module_name => g_module_name,
4641: p_procedure_name => l_program_name,
4642: p_var_name => '(c)x_location_code',
4643: p_var_value => x_location_code) ;
4640: p_module_name => g_module_name,
4641: p_procedure_name => l_program_name,
4642: p_var_name => '(c)x_location_code',
4643: p_var_value => x_location_code) ;
4644: INL_LOGGING_PVT.Log_Variable(
4645: p_module_name => g_module_name,
4646: p_procedure_name => l_program_name,
4647: p_var_name => '(c)x_dflt_country',
4648: p_var_value => x_dflt_country) ;
4645: p_module_name => g_module_name,
4646: p_procedure_name => l_program_name,
4647: p_var_name => '(c)x_dflt_country',
4648: p_var_value => x_dflt_country) ;
4649: INL_LOGGING_PVT.Log_Variable(
4650: p_module_name => g_module_name,
4651: p_procedure_name => l_program_name,
4652: p_var_name => '(c)l_count_loc_org',
4653: p_var_value => l_count_loc_org) ;
4653: p_var_value => l_count_loc_org) ;
4654:
4655: IF NVL(l_count_loc_org,0) = 0 THEN
4656: l_debug_info := 'The Location is not compliant with the Inventory Organization';
4657: INL_LOGGING_PVT.Log_Statement(
4658: p_module_name => g_module_name,
4659: p_procedure_name => l_program_name,
4660: p_debug_info => l_debug_info) ;
4661:
4678: END IF;
4679:
4680: IF x_dflt_country IS NULL THEN
4681: l_debug_info := 'Country is required to assign a valid Location for the Shipment';
4682: INL_LOGGING_PVT.Log_Statement(
4683: p_module_name => g_module_name,
4684: p_procedure_name => l_program_name,
4685: p_debug_info => l_debug_info);
4686: l_result := L_FND_FALSE;
4703: END IF;
4704: END IF;
4705:
4706: -- Standard End of Procedure/Function Logging
4707: INL_LOGGING_PVT.Log_EndProc(
4708: p_module_name => g_module_name,
4709: p_procedure_name => l_program_name);
4710:
4711: RETURN FND_API.to_boolean(l_result) ;
4711: RETURN FND_API.to_boolean(l_result) ;
4712: EXCEPTION
4713: WHEN L_FND_EXC_ERROR THEN
4714: -- Standard Expected Error Logging
4715: INL_LOGGING_PVT.Log_ExpecError (
4716: p_module_name => g_module_name,
4717: p_procedure_name => l_program_name);
4718: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4719: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4717: p_procedure_name => l_program_name);
4718: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4719: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4720: -- Standard Unexpected Error Logging
4721: INL_LOGGING_PVT.Log_UnexpecError (
4722: p_module_name => g_module_name,
4723: p_procedure_name => l_program_name);
4724: RETURN FND_API.to_boolean(L_FND_FALSE) ;
4725: WHEN OTHERS THEN
4783: l_validate_txn_uom_code BOOLEAN := TRUE;
4784: BEGIN
4785:
4786: -- Standard Beginning of Procedure/Function Logging
4787: INL_LOGGING_PVT.Log_BeginProc(
4788: p_module_name => g_module_name,
4789: p_procedure_name => l_program_name) ;
4790: -- Initialize API return status to success
4791: x_return_status := L_FND_RET_STS_SUCCESS;
4790: -- Initialize API return status to success
4791: x_return_status := L_FND_RET_STS_SUCCESS;
4792:
4793: l_debug_info := 'Check Line columns for the CREATE transaction type';
4794: INL_LOGGING_PVT.Log_Statement(
4795: p_module_name => g_module_name,
4796: p_procedure_name => l_program_name,
4797: p_debug_info => l_debug_info);
4798:
4803: THEN
4804: x_ship_ln_int_lst(l_ship_ln_int_idx).org_id := p_org_id;
4805: END IF;
4806:
4807: INL_LOGGING_PVT.Log_Variable(
4808: p_module_name => g_module_name,
4809: p_procedure_name => l_program_name,
4810: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').currency_code',
4811: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code);
4808: p_module_name => g_module_name,
4809: p_procedure_name => l_program_name,
4810: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').currency_code',
4811: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code);
4812: INL_LOGGING_PVT.Log_Variable(
4813: p_module_name => g_module_name,
4814: p_procedure_name => l_program_name,
4815: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').inventory_item_id',
4816: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id);
4813: p_module_name => g_module_name,
4814: p_procedure_name => l_program_name,
4815: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').inventory_item_id',
4816: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id);
4817: INL_LOGGING_PVT.Log_Variable(
4818: p_module_name => g_module_name,
4819: p_procedure_name => l_program_name,
4820: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').inventory_item_name',
4821: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name);
4818: p_module_name => g_module_name,
4819: p_procedure_name => l_program_name,
4820: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').inventory_item_name',
4821: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name);
4822: INL_LOGGING_PVT.Log_Variable(
4823: p_module_name => g_module_name,
4824: p_procedure_name => l_program_name,
4825: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_id',
4826: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_id);
4823: p_module_name => g_module_name,
4824: p_procedure_name => l_program_name,
4825: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_id',
4826: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_id);
4827: INL_LOGGING_PVT.Log_Variable(
4828: p_module_name => g_module_name,
4829: p_procedure_name => l_program_name,
4830: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_number',
4831: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_number);
4828: p_module_name => g_module_name,
4829: p_procedure_name => l_program_name,
4830: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_number',
4831: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_number);
4832: INL_LOGGING_PVT.Log_Variable(
4833: p_module_name => g_module_name,
4834: p_procedure_name => l_program_name,
4835: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_site_id',
4836: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id);
4833: p_module_name => g_module_name,
4834: p_procedure_name => l_program_name,
4835: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_site_id',
4836: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id);
4837: INL_LOGGING_PVT.Log_Variable(
4838: p_module_name => g_module_name,
4839: p_procedure_name => l_program_name,
4840: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_site_number',
4841: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number);
4838: p_module_name => g_module_name,
4839: p_procedure_name => l_program_name,
4840: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').party_site_number',
4841: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number);
4842: INL_LOGGING_PVT.Log_Variable(
4843: p_module_name => g_module_name,
4844: p_procedure_name => l_program_name,
4845: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_header_id',
4846: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_header_id);
4843: p_module_name => g_module_name,
4844: p_procedure_name => l_program_name,
4845: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_header_id',
4846: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_header_id);
4847: INL_LOGGING_PVT.Log_Variable(
4848: p_module_name => g_module_name,
4849: p_procedure_name => l_program_name,
4850: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_group_id',
4851: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id);
4848: p_module_name => g_module_name,
4849: p_procedure_name => l_program_name,
4850: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_group_id',
4851: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id);
4852: INL_LOGGING_PVT.Log_Variable(
4853: p_module_name => g_module_name,
4854: p_procedure_name => l_program_name,
4855: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_group_num',
4856: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num);
4853: p_module_name => g_module_name,
4854: p_procedure_name => l_program_name,
4855: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_group_num',
4856: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num);
4857: INL_LOGGING_PVT.Log_Variable(
4858: p_module_name => g_module_name,
4859: p_procedure_name => l_program_name,
4860: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_id',
4861: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id);
4858: p_module_name => g_module_name,
4859: p_procedure_name => l_program_name,
4860: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_id',
4861: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id);
4862: INL_LOGGING_PVT.Log_Variable(
4863: p_module_name => g_module_name,
4864: p_procedure_name => l_program_name,
4865: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_num',
4866: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num);
4863: p_module_name => g_module_name,
4864: p_procedure_name => l_program_name,
4865: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_num',
4866: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num);
4867: INL_LOGGING_PVT.Log_Variable(
4868: p_module_name => g_module_name,
4869: p_procedure_name => l_program_name,
4870: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_src_type_code',
4871: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code);
4868: p_module_name => g_module_name,
4869: p_procedure_name => l_program_name,
4870: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_src_type_code',
4871: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code);
4872: INL_LOGGING_PVT.Log_Variable(
4873: p_module_name => g_module_name,
4874: p_procedure_name => l_program_name,
4875: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_type_code',
4876: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code);
4873: p_module_name => g_module_name,
4874: p_procedure_name => l_program_name,
4875: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_type_code',
4876: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code);
4877: INL_LOGGING_PVT.Log_Variable(
4878: p_module_name => g_module_name,
4879: p_procedure_name => l_program_name,
4880: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_type_id',
4881: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id);
4878: p_module_name => g_module_name,
4879: p_procedure_name => l_program_name,
4880: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').ship_line_type_id',
4881: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id);
4882: INL_LOGGING_PVT.Log_Variable(
4883: p_module_name => g_module_name,
4884: p_procedure_name => l_program_name,
4885: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').source_organization_code',
4886: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code);
4883: p_module_name => g_module_name,
4884: p_procedure_name => l_program_name,
4885: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').source_organization_code',
4886: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code);
4887: INL_LOGGING_PVT.Log_Variable(
4888: p_module_name => g_module_name,
4889: p_procedure_name => l_program_name,
4890: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').source_organization_id',
4891: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id);
4888: p_module_name => g_module_name,
4889: p_procedure_name => l_program_name,
4890: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').source_organization_id',
4891: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id);
4892: INL_LOGGING_PVT.Log_Variable(
4893: p_module_name => g_module_name,
4894: p_procedure_name => l_program_name,
4895: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').txn_qty',
4896: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).txn_qty);
4893: p_module_name => g_module_name,
4894: p_procedure_name => l_program_name,
4895: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').txn_qty',
4896: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).txn_qty);
4897: INL_LOGGING_PVT.Log_Variable(
4898: p_module_name => g_module_name,
4899: p_procedure_name => l_program_name,
4900: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').txn_unit_price',
4901: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).txn_unit_price);
4898: p_module_name => g_module_name,
4899: p_procedure_name => l_program_name,
4900: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').txn_unit_price',
4901: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).txn_unit_price);
4902: INL_LOGGING_PVT.Log_Variable(
4903: p_module_name => g_module_name,
4904: p_procedure_name => l_program_name,
4905: p_var_name => 'x_ship_ln_int_lst('||l_ship_ln_int_idx||').txn_uom_code',
4906: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).txn_uom_code);
4907:
4908: l_ship_line_int_id := x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_int_id;
4909:
4910: l_debug_info := 'Checking l_ship_line_int_id: ' || l_ship_line_int_id;
4911: INL_LOGGING_PVT.Log_Statement(
4912: p_module_name => g_module_name,
4913: p_procedure_name => l_program_name,
4914: p_debug_info => l_debug_info);
4915:
4913: p_procedure_name => l_program_name,
4914: p_debug_info => l_debug_info);
4915:
4916: l_debug_info := 'Checking if ship_line_src_type_code IS NULL';
4917: INL_LOGGING_PVT.Log_Statement(
4918: p_module_name => g_module_name,
4919: p_procedure_name => l_program_name,
4920: p_debug_info => l_debug_info);
4921:
4944: END IF;
4945: END IF;
4946:
4947: l_debug_info := 'Checking parties to PO';
4948: INL_LOGGING_PVT.Log_Statement(
4949: p_module_name => g_module_name,
4950: p_procedure_name => l_program_name,
4951: p_debug_info => l_debug_info);
4952:
4984: END IF;
4985:
4986: --Bug 13056120 Starts
4987: l_debug_info := 'Checking if lines are compliant or not';
4988: INL_LOGGING_PVT.Log_Statement(
4989: p_module_name => g_module_name,
4990: p_procedure_name => l_program_name,
4991: p_debug_info => l_debug_info);
4992:
5005: AND pla.po_line_id = plla.po_line_id
5006: AND pha.po_header_id = plla.po_header_id
5007: AND plla.line_location_id = x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id;
5008:
5009: INL_LOGGING_PVT.Log_Variable(
5010: p_module_name => g_module_name,
5011: p_procedure_name => l_program_name,
5012: p_var_name => 'l_lcm_flag',
5013: p_var_value => NVL(l_lcm_flag,'NULL'));
5068: END IF;
5069: ELSIF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code = 'RMA'
5070: THEN
5071: l_debug_info := 'Checking parties to RMA';
5072: INL_LOGGING_PVT.Log_Statement(
5073: p_module_name => g_module_name,
5074: p_procedure_name => l_program_name,
5075: p_debug_info => l_debug_info);
5076: IF x_ship_ln_int_lst(l_ship_ln_int_idx).party_id IS NULL AND
5150: END IF;
5151: ELSIF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code = 'IR'
5152: THEN
5153: l_debug_info := 'Checking parties to IR';
5154: INL_LOGGING_PVT.Log_Statement(
5155: p_module_name => g_module_name,
5156: p_procedure_name => l_program_name,
5157: p_debug_info => l_debug_info);
5158: IF x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id IS NULL
5233: END IF;
5234: END IF;
5235: ELSE
5236: l_debug_info := 'Bad trx type code';
5237: INL_LOGGING_PVT.Log_Statement(
5238: p_module_name => g_module_name,
5239: p_procedure_name => l_program_name,
5240: p_debug_info => l_debug_info);
5241: l_response := FALSE;
5266: AND (x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id IS NOT NULL
5267: OR x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code IS NOT NULL)
5268: THEN
5269: l_debug_info := 'Party and Source Organization are mutually exclusive. Only one field or the other may be populated.';
5270: INL_LOGGING_PVT.Log_Statement(
5271: p_module_name => g_module_name,
5272: p_procedure_name => l_program_name,
5273: p_debug_info => l_debug_info);
5274: l_response := FALSE;
5288: END IF;
5289: END IF;
5290:
5291: l_debug_info := 'Checking currency';
5292: INL_LOGGING_PVT.Log_Statement(
5293: p_module_name => g_module_name,
5294: p_procedure_name => l_program_name,
5295: p_debug_info => l_debug_info);
5296:
5318: END IF;
5319: END IF;
5320:
5321: l_debug_info := 'Checking Trx Qty';
5322: INL_LOGGING_PVT.Log_Statement(
5323: p_module_name => g_module_name,
5324: p_procedure_name => l_program_name,
5325: p_debug_info => l_debug_info);
5326:
5348: END IF;
5349: END IF;
5350:
5351: l_debug_info := 'Checking UOM';
5352: INL_LOGGING_PVT.Log_Statement(
5353: p_module_name => g_module_name,
5354: p_procedure_name => l_program_name,
5355: p_debug_info => l_debug_info);
5356:
5378: END IF;
5379: END IF;
5380:
5381: l_debug_info := 'Checking Trx Unit Price';
5382: INL_LOGGING_PVT.Log_Statement(
5383: p_module_name => g_module_name,
5384: p_procedure_name => l_program_name,
5385: p_debug_info => l_debug_info);
5386:
5542:
5543: IF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code <> 'IR'
5544: THEN
5545: l_debug_info := 'Calling Validate_Party';
5546: INL_LOGGING_PVT.Log_Statement(
5547: p_module_name => g_module_name,
5548: p_procedure_name => l_program_name,
5549: p_debug_info => l_debug_info);
5550:
5571: ELSE
5572: l_debug_info := 'False';
5573: l_response := l_response_int;
5574: END IF;
5575: INL_LOGGING_PVT.Log_Variable(
5576: p_module_name => g_module_name,
5577: p_procedure_name => l_program_name,
5578: p_var_name => 'l_response_int',
5579: p_var_value => l_debug_info);
5581: IF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code = 'PO'
5582: THEN
5583:
5584: l_debug_info := 'Calling Validate_Party Site';
5585: INL_LOGGING_PVT.Log_Statement(
5586: p_module_name => g_module_name,
5587: p_procedure_name => l_program_name,
5588: p_debug_info => l_debug_info);
5589: l_response_int :=
5611: ELSE
5612: l_debug_info := 'False';
5613: l_response := l_response_int;
5614: END IF;
5615: INL_LOGGING_PVT.Log_Variable(
5616: p_module_name => g_module_name,
5617: p_procedure_name => l_program_name,
5618: p_var_name => 'l_response_int',
5619: p_var_value => l_debug_info);
5620:
5621: END IF;
5622: ELSE -- = 'IR'
5623: l_debug_info := 'Calling Validate_SrcOrganization';
5624: INL_LOGGING_PVT.Log_Statement(
5625: p_module_name => g_module_name,
5626: p_procedure_name => l_program_name,
5627: p_debug_info => l_debug_info);
5628:
5648: ELSE
5649: l_debug_info := 'False';
5650: l_response := l_response_int;
5651: END IF;
5652: INL_LOGGING_PVT.Log_Variable(
5653: p_module_name => g_module_name,
5654: p_procedure_name => l_program_name,
5655: p_var_name => 'l_response_int',
5656: p_var_value => l_debug_info);
5656: p_var_value => l_debug_info);
5657:
5658: END IF;
5659: l_debug_info := 'Calling Validate_ShipLineType';
5660: INL_LOGGING_PVT.Log_Statement(
5661: p_module_name => g_module_name,
5662: p_procedure_name => l_program_name,
5663: p_debug_info => l_debug_info);
5664:
5687: ELSE
5688: l_debug_info := 'False';
5689: l_response := l_response_int;
5690: END IF;
5691: INL_LOGGING_PVT.Log_Variable(
5692: p_module_name => g_module_name,
5693: p_procedure_name => l_program_name,
5694: p_var_name => 'l_response_int',
5695: p_var_value => l_debug_info);
5696:
5697: IF p_validation_flag = 'Y' THEN
5698:
5699: l_debug_info := 'Calling Validate_ShipLnSrcTypeCode';
5700: INL_LOGGING_PVT.Log_Statement(
5701: p_module_name => g_module_name,
5702: p_procedure_name => l_program_name,
5703: p_debug_info => l_debug_info);
5704: l_response_int :=
5720: ELSE
5721: l_debug_info := 'False';
5722: l_response := l_response_int;
5723: END IF;
5724: INL_LOGGING_PVT.Log_Variable(
5725: p_module_name => g_module_name,
5726: p_procedure_name => l_program_name,
5727: p_var_name => 'l_response_int',
5728: p_var_value => l_debug_info);
5728: p_var_value => l_debug_info);
5729: END IF;
5730:
5731: l_debug_info := 'Calling Validate_CurrencyCode';
5732: INL_LOGGING_PVT.Log_Statement(
5733: p_module_name => g_module_name,
5734: p_procedure_name => l_program_name,
5735: p_debug_info => l_debug_info);
5736: l_response_int :=
5757: ELSE
5758: l_debug_info := 'False';
5759: l_response := l_response_int;
5760: END IF;
5761: INL_LOGGING_PVT.Log_Variable(
5762: p_module_name => g_module_name,
5763: p_procedure_name => l_program_name,
5764: p_var_name => 'l_response_int',
5765: p_var_value => l_debug_info);
5764: p_var_name => 'l_response_int',
5765: p_var_value => l_debug_info);
5766:
5767: l_debug_info := 'Calling Validate_InvItemId';
5768: INL_LOGGING_PVT.Log_Statement(
5769: p_module_name => g_module_name,
5770: p_procedure_name => l_program_name,
5771: p_debug_info => l_debug_info);
5772: l_response_int :=
5792: l_debug_info := 'False';
5793: l_response := l_response_int;
5794: l_validate_inv_item := l_response_int;
5795: END IF;
5796: INL_LOGGING_PVT.Log_Variable(
5797: p_module_name => g_module_name,
5798: p_procedure_name => l_program_name,
5799: p_var_name => 'l_response_int',
5800: p_var_value => l_debug_info);
5802: IF x_ship_ln_int_lst(l_ship_ln_int_idx).txn_uom_code IS NOT NULL
5803: AND p_validation_flag = 'Y'
5804: THEN
5805: l_debug_info := 'Calling Validate_TxnUomCode';
5806: INL_LOGGING_PVT.Log_Statement(
5807: p_module_name => g_module_name,
5808: p_procedure_name => l_program_name,
5809: p_debug_info => l_debug_info);
5810: l_response_int :=
5827: l_debug_info := 'False';
5828: l_response := l_response_int;
5829: l_validate_txn_uom_code := l_response_int;
5830: END IF;
5831: INL_LOGGING_PVT.Log_Variable(
5832: p_module_name => g_module_name,
5833: p_procedure_name => l_program_name,
5834: p_var_name => 'l_response_int',
5835: p_var_value => l_debug_info);
5837:
5838: IF l_validate_txn_uom_code AND l_validate_inv_item
5839: THEN
5840: l_debug_info := 'Call Validate_PriSecFields';
5841: INL_LOGGING_PVT.Log_Statement(
5842: p_module_name => g_module_name,
5843: p_procedure_name => l_program_name,
5844: p_debug_info => l_debug_info);
5845:
5874: ELSE
5875: l_debug_info := 'False';
5876: l_response := l_response_int;
5877: END IF;
5878: INL_LOGGING_PVT.Log_Variable(
5879: p_module_name => g_module_name,
5880: p_procedure_name => l_program_name,
5881: p_var_name => 'l_response_int',
5882: p_var_value => l_debug_info);
5885:
5886: IF p_validation_flag = 'Y'
5887: THEN
5888: l_debug_info := 'Call Validate_LandedCostFlag';
5889: INL_LOGGING_PVT.Log_Statement(
5890: p_module_name => g_module_name,
5891: p_procedure_name => l_program_name,
5892: p_debug_info => l_debug_info);
5893:
5908: ELSE
5909: l_debug_info := 'False';
5910: l_response := l_response_int;
5911: END IF;
5912: INL_LOGGING_PVT.Log_Variable(
5913: p_module_name => g_module_name,
5914: p_procedure_name => l_program_name,
5915: p_var_name => 'l_response_int',
5916: p_var_value => l_debug_info);
5915: p_var_name => 'l_response_int',
5916: p_var_value => l_debug_info);
5917:
5918: l_debug_info := 'Call Validate_AllocEnabledFlag';
5919: INL_LOGGING_PVT.Log_Statement(
5920: p_module_name => g_module_name,
5921: p_procedure_name => l_program_name,
5922: p_debug_info => l_debug_info);
5923:
5938: ELSE
5939: l_debug_info := 'False';
5940: l_response := l_response_int;
5941: END IF;
5942: INL_LOGGING_PVT.Log_Variable(
5943: p_module_name => g_module_name,
5944: p_procedure_name => l_program_name,
5945: p_var_name => 'l_response_int',
5946: p_var_value => l_debug_info);
5948: END IF;
5949: END LOOP;
5950:
5951: -- Standard End of Procedure/Function Logging
5952: INL_LOGGING_PVT.Log_EndProc(
5953: p_module_name => g_module_name,
5954: p_procedure_name => l_program_name);
5955: RETURN l_response;
5956: EXCEPTION
5955: RETURN l_response;
5956: EXCEPTION
5957: WHEN L_FND_EXC_ERROR THEN
5958: -- Standard Expected Error Logging
5959: INL_LOGGING_PVT.Log_ExpecError (
5960: p_module_name => g_module_name,
5961: p_procedure_name => l_program_name);
5962: RETURN FND_API.to_boolean(L_FND_FALSE) ;
5963: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
5961: p_procedure_name => l_program_name);
5962: RETURN FND_API.to_boolean(L_FND_FALSE) ;
5963: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
5964: -- Standard Unexpected Error Logging
5965: INL_LOGGING_PVT.Log_UnexpecError (
5966: p_module_name => g_module_name,
5967: p_procedure_name => l_program_name);
5968: RETURN FND_API.to_boolean(L_FND_FALSE) ;
5969: WHEN OTHERS THEN
5967: p_procedure_name => l_program_name);
5968: RETURN FND_API.to_boolean(L_FND_FALSE) ;
5969: WHEN OTHERS THEN
5970: -- Standard Unexpected Error Logging
5971: INL_LOGGING_PVT.Log_UnexpecError (
5972: p_module_name => g_module_name,
5973: p_procedure_name => l_program_name);
5974: IF FND_MSG_PUB.Check_Msg_Level(
5975: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6010: l_ship_line_src_type_code VARCHAR2(10);
6011:
6012: BEGIN
6013: -- Standard Beginning of Procedure/Function Logging
6014: INL_LOGGING_PVT.Log_BeginProc(
6015: p_module_name => g_module_name,
6016: p_procedure_name => l_program_name) ;
6017: -- Initialize API return status to success
6018: x_return_status := L_FND_RET_STS_SUCCESS;
6017: -- Initialize API return status to success
6018: x_return_status := L_FND_RET_STS_SUCCESS;
6019:
6020: l_debug_info := 'Validate RCV enabled flag';
6021: INL_LOGGING_PVT.Log_Statement(
6022: p_module_name => g_module_name,
6023: p_procedure_name => l_program_name,
6024: p_debug_info => l_debug_info);
6025:
6022: p_module_name => g_module_name,
6023: p_procedure_name => l_program_name,
6024: p_debug_info => l_debug_info);
6025:
6026: INL_LOGGING_PVT.Log_Variable(
6027: p_module_name => g_module_name,
6028: p_procedure_name => l_program_name,
6029: p_var_name => 'p_rcv_enabled_flag',
6030: p_var_value => p_rcv_enabled_flag);
6029: p_var_name => 'p_rcv_enabled_flag',
6030: p_var_value => p_rcv_enabled_flag);
6031:
6032: l_debug_info := 'Checking the source type against RCV enabled flag';
6033: INL_LOGGING_PVT.Log_Statement(
6034: p_module_name => g_module_name,
6035: p_procedure_name => l_program_name,
6036: p_debug_info => l_debug_info);
6037:
6039: INTO l_ship_line_src_type_code
6040: FROM inl_ship_lines_int sli
6041: WHERE sli.ship_header_int_id = p_ship_header_int_id;
6042:
6043: INL_LOGGING_PVT.Log_Variable(
6044: p_module_name => g_module_name,
6045: p_procedure_name => l_program_name,
6046: p_var_name => 'l_ship_line_src_type_code',
6047: p_var_value => l_ship_line_src_type_code);
6087: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6088: END IF;
6089: END IF;
6090: -- Standard End of Procedure/Function Logging
6091: INL_LOGGING_PVT.Log_EndProc(
6092: p_module_name => g_module_name,
6093: p_procedure_name => l_program_name);
6094: RETURN l_response;
6095: EXCEPTION
6094: RETURN l_response;
6095: EXCEPTION
6096: WHEN L_FND_EXC_ERROR THEN
6097: -- Standard Expected Error Logging
6098: INL_LOGGING_PVT.Log_ExpecError (
6099: p_module_name => g_module_name,
6100: p_procedure_name => l_program_name);
6101: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6102: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6100: p_procedure_name => l_program_name);
6101: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6102: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6103: -- Standard Unexpected Error Logging
6104: INL_LOGGING_PVT.Log_UnexpecError (
6105: p_module_name => g_module_name,
6106: p_procedure_name => l_program_name);
6107: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6108: WHEN OTHERS THEN
6106: p_procedure_name => l_program_name);
6107: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6108: WHEN OTHERS THEN
6109: -- Standard Unexpected Error Logging
6110: INL_LOGGING_PVT.Log_UnexpecError (
6111: p_module_name => g_module_name,
6112: p_procedure_name => l_program_name);
6113: IF FND_MSG_PUB.Check_Msg_Level(
6114: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6164:
6165: BEGIN
6166:
6167: -- Standard Beginning of Procedure/Function Logging
6168: INL_LOGGING_PVT.Log_BeginProc(
6169: p_module_name => g_module_name,
6170: p_procedure_name => l_program_name) ;
6171: -- Initialize API return status to success
6172: x_return_status := L_FND_RET_STS_SUCCESS;
6169: p_module_name => g_module_name,
6170: p_procedure_name => l_program_name) ;
6171: -- Initialize API return status to success
6172: x_return_status := L_FND_RET_STS_SUCCESS;
6173: INL_LOGGING_PVT.Log_Variable(
6174: p_module_name => g_module_name,
6175: p_procedure_name => l_program_name,
6176: p_var_name => 'p_ship_header_int_id',
6177: p_var_value => p_ship_header_int_id) ;
6174: p_module_name => g_module_name,
6175: p_procedure_name => l_program_name,
6176: p_var_name => 'p_ship_header_int_id',
6177: p_var_value => p_ship_header_int_id) ;
6178: INL_LOGGING_PVT.Log_Variable(
6179: p_module_name => g_module_name,
6180: p_procedure_name => l_program_name,
6181: p_var_name => 'p_ship_header_id',
6182: p_var_value => p_ship_header_id) ;
6179: p_module_name => g_module_name,
6180: p_procedure_name => l_program_name,
6181: p_var_name => 'p_ship_header_id',
6182: p_var_value => p_ship_header_id) ;
6183: INL_LOGGING_PVT.Log_Variable(
6184: p_module_name => g_module_name,
6185: p_procedure_name => l_program_name,
6186: p_var_name => 'p_ship_num',
6187: p_var_value => p_ship_num) ;
6184: p_module_name => g_module_name,
6185: p_procedure_name => l_program_name,
6186: p_var_name => 'p_ship_num',
6187: p_var_value => p_ship_num) ;
6188: INL_LOGGING_PVT.Log_Variable(
6189: p_module_name => g_module_name,
6190: p_procedure_name => l_program_name,
6191: p_var_name => 'p_ship_date',
6192: p_var_value => p_ship_date) ;
6189: p_module_name => g_module_name,
6190: p_procedure_name => l_program_name,
6191: p_var_name => 'p_ship_date',
6192: p_var_value => p_ship_date) ;
6193: INL_LOGGING_PVT.Log_Variable(
6194: p_module_name => g_module_name,
6195: p_procedure_name => l_program_name,
6196: p_var_name => 'p_ship_type_id',
6197: p_var_value => p_ship_type_id) ;
6194: p_module_name => g_module_name,
6195: p_procedure_name => l_program_name,
6196: p_var_name => 'p_ship_type_id',
6197: p_var_value => p_ship_type_id) ;
6198: INL_LOGGING_PVT.Log_Variable(
6199: p_module_name => g_module_name,
6200: p_procedure_name => l_program_name,
6201: p_var_name => 'p_ship_type_code',
6202: p_var_value => p_ship_type_code) ;
6199: p_module_name => g_module_name,
6200: p_procedure_name => l_program_name,
6201: p_var_name => 'p_ship_type_code',
6202: p_var_value => p_ship_type_code) ;
6203: INL_LOGGING_PVT.Log_Variable(
6204: p_module_name => g_module_name,
6205: p_procedure_name => l_program_name,
6206: p_var_name => 'p_rcv_enabled_flag',
6207: p_var_value => p_rcv_enabled_flag) ;
6204: p_module_name => g_module_name,
6205: p_procedure_name => l_program_name,
6206: p_var_name => 'p_rcv_enabled_flag',
6207: p_var_value => p_rcv_enabled_flag) ;
6208: INL_LOGGING_PVT.Log_Variable(
6209: p_module_name => g_module_name,
6210: p_procedure_name => l_program_name,
6211: p_var_name => 'p_organization_id',
6212: p_var_value => p_organization_id) ;
6209: p_module_name => g_module_name,
6210: p_procedure_name => l_program_name,
6211: p_var_name => 'p_organization_id',
6212: p_var_value => p_organization_id) ;
6213: INL_LOGGING_PVT.Log_Variable(
6214: p_module_name => g_module_name,
6215: p_procedure_name => l_program_name,
6216: p_var_name => 'p_organization_code',
6217: p_var_value => p_organization_code) ;
6214: p_module_name => g_module_name,
6215: p_procedure_name => l_program_name,
6216: p_var_name => 'p_organization_code',
6217: p_var_value => p_organization_code) ;
6218: INL_LOGGING_PVT.Log_Variable(
6219: p_module_name => g_module_name,
6220: p_procedure_name => l_program_name,
6221: p_var_name => 'p_last_task_code',
6222: p_var_value => p_last_task_code) ;
6221: p_var_name => 'p_last_task_code',
6222: p_var_value => p_last_task_code) ;
6223:
6224: l_debug_info := 'Check columns for the CREATE transaction type (HDR)';
6225: INL_LOGGING_PVT.Log_Statement(
6226: p_module_name => g_module_name,
6227: p_procedure_name => l_program_name,
6228: p_debug_info => l_debug_info);
6229:
6227: p_procedure_name => l_program_name,
6228: p_debug_info => l_debug_info);
6229:
6230: l_debug_info := 'Check for columns that should be populated and null for CREATE. ship_header_int_id: ' ||p_ship_header_int_id;
6231: INL_LOGGING_PVT.Log_Statement(
6232: p_module_name => g_module_name,
6233: p_procedure_name => l_program_name,
6234: p_debug_info => l_debug_info);
6235:
6372: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6373: END IF;
6374: ELSE
6375: l_debug_info := 'Call Validate_RcvEnabledFlag';
6376: INL_LOGGING_PVT.Log_Statement(
6377: p_module_name => g_module_name,
6378: p_procedure_name => l_program_name,
6379: p_debug_info => l_debug_info);
6380:
6395: ELSE
6396: l_debug_info := 'False';
6397: l_response := l_response_int;
6398: END IF;
6399: INL_LOGGING_PVT.Log_Variable(
6400: p_module_name => g_module_name,
6401: p_procedure_name => l_program_name,
6402: p_var_name => 'l_response_int',
6403: p_var_value => l_debug_info);
6429: END IF;
6430:
6431:
6432: -- Standard End of Procedure/Function Logging
6433: INL_LOGGING_PVT.Log_EndProc(
6434: p_module_name => g_module_name,
6435: p_procedure_name => l_program_name);
6436: RETURN l_response;
6437: EXCEPTION
6436: RETURN l_response;
6437: EXCEPTION
6438: WHEN L_FND_EXC_ERROR THEN
6439: -- Standard Expected Error Logging
6440: INL_LOGGING_PVT.Log_ExpecError (
6441: p_module_name => g_module_name,
6442: p_procedure_name => l_program_name);
6443: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6444: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6442: p_procedure_name => l_program_name);
6443: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6444: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6445: -- Standard Unexpected Error Logging
6446: INL_LOGGING_PVT.Log_UnexpecError (
6447: p_module_name => g_module_name,
6448: p_procedure_name => l_program_name);
6449: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6450: WHEN OTHERS THEN
6448: p_procedure_name => l_program_name);
6449: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6450: WHEN OTHERS THEN
6451: -- Standard Unexpected Error Logging
6452: INL_LOGGING_PVT.Log_UnexpecError (
6453: p_module_name => g_module_name,
6454: p_procedure_name => l_program_name);
6455: IF FND_MSG_PUB.Check_Msg_Level(
6456: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6507: l_ship_line_int_id NUMBER;
6508: BEGIN
6509:
6510: -- Standard Beginning of Procedure/Function Logging
6511: INL_LOGGING_PVT.Log_BeginProc(
6512: p_module_name => g_module_name,
6513: p_procedure_name => l_program_name) ;
6514: -- Initialize API return status to success
6515: x_return_status := L_FND_RET_STS_SUCCESS;
6514: -- Initialize API return status to success
6515: x_return_status := L_FND_RET_STS_SUCCESS;
6516:
6517: l_debug_info := 'Check columns for the UPDATE transaction type';
6518: INL_LOGGING_PVT.Log_Statement(
6519: p_module_name => g_module_name,
6520: p_procedure_name => l_program_name,
6521: p_debug_info => l_debug_info);
6522:
6519: p_module_name => g_module_name,
6520: p_procedure_name => l_program_name,
6521: p_debug_info => l_debug_info);
6522:
6523: INL_LOGGING_PVT.Log_Variable(
6524: p_module_name => g_module_name,
6525: p_procedure_name => l_program_name,
6526: p_var_name => 'p_ship_header_int_id',
6527: p_var_value => p_ship_header_int_id) ;
6524: p_module_name => g_module_name,
6525: p_procedure_name => l_program_name,
6526: p_var_name => 'p_ship_header_int_id',
6527: p_var_value => p_ship_header_int_id) ;
6528: INL_LOGGING_PVT.Log_Variable(
6529: p_module_name => g_module_name,
6530: p_procedure_name => l_program_name,
6531: p_var_name => 'x_ship_num',
6532: p_var_value => x_ship_num) ;
6529: p_module_name => g_module_name,
6530: p_procedure_name => l_program_name,
6531: p_var_name => 'x_ship_num',
6532: p_var_value => x_ship_num) ;
6533: INL_LOGGING_PVT.Log_Variable(
6534: p_module_name => g_module_name,
6535: p_procedure_name => l_program_name,
6536: p_var_name => 'p_organization_id',
6537: p_var_value => p_organization_id) ;
6534: p_module_name => g_module_name,
6535: p_procedure_name => l_program_name,
6536: p_var_name => 'p_organization_id',
6537: p_var_value => p_organization_id) ;
6538: INL_LOGGING_PVT.Log_Variable(
6539: p_module_name => g_module_name,
6540: p_procedure_name => l_program_name,
6541: p_var_name => 'p_organization_code',
6542: p_var_value => p_organization_code) ;
6539: p_module_name => g_module_name,
6540: p_procedure_name => l_program_name,
6541: p_var_name => 'p_organization_code',
6542: p_var_value => p_organization_code) ;
6543: INL_LOGGING_PVT.Log_Variable(
6544: p_module_name => g_module_name,
6545: p_procedure_name => l_program_name,
6546: p_var_name => 'p_ship_type_id',
6547: p_var_value => p_ship_type_id) ;
6544: p_module_name => g_module_name,
6545: p_procedure_name => l_program_name,
6546: p_var_name => 'p_ship_type_id',
6547: p_var_value => p_ship_type_id) ;
6548: INL_LOGGING_PVT.Log_Variable(
6549: p_module_name => g_module_name,
6550: p_procedure_name => l_program_name,
6551: p_var_name => 'p_ship_type_code',
6552: p_var_value => p_ship_type_code) ;
6549: p_module_name => g_module_name,
6550: p_procedure_name => l_program_name,
6551: p_var_name => 'p_ship_type_code',
6552: p_var_value => p_ship_type_code) ;
6553: INL_LOGGING_PVT.Log_Variable(
6554: p_module_name => g_module_name,
6555: p_procedure_name => l_program_name,
6556: p_var_name => 'p_location_id',
6557: p_var_value => p_location_id) ;
6554: p_module_name => g_module_name,
6555: p_procedure_name => l_program_name,
6556: p_var_name => 'p_location_id',
6557: p_var_value => p_location_id) ;
6558: INL_LOGGING_PVT.Log_Variable(
6559: p_module_name => g_module_name,
6560: p_procedure_name => l_program_name,
6561: p_var_name => 'p_location_code',
6562: p_var_value => p_location_code) ;
6559: p_module_name => g_module_name,
6560: p_procedure_name => l_program_name,
6561: p_var_name => 'p_location_code',
6562: p_var_value => p_location_code) ;
6563: INL_LOGGING_PVT.Log_Variable(
6564: p_module_name => g_module_name,
6565: p_procedure_name => l_program_name,
6566: p_var_name => 'p_rcv_enabled_flag',
6567: p_var_value => p_rcv_enabled_flag) ;
6564: p_module_name => g_module_name,
6565: p_procedure_name => l_program_name,
6566: p_var_name => 'p_rcv_enabled_flag',
6567: p_var_value => p_rcv_enabled_flag) ;
6568: INL_LOGGING_PVT.Log_Variable(
6569: p_module_name => g_module_name,
6570: p_procedure_name => l_program_name,
6571: p_var_name => 'x_ship_header_id',
6572: p_var_value => x_ship_header_id) ;
6585: x_ship_num := NULL;
6586: EXCEPTION
6587: WHEN NO_DATA_FOUND THEN
6588: l_debug_info := 'x_ship_header_id: ' || x_ship_header_id || ' not found in inl_ship_headers_all';
6589: INL_LOGGING_PVT.Log_Statement(
6590: p_module_name => g_module_name,
6591: p_procedure_name => l_program_name,
6592: p_debug_info => l_debug_info);
6593: l_response := FALSE;
6636: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6637: END IF;
6638: ELSE
6639: l_debug_info := 'Get shipment information : '|| x_ship_num ;
6640: INL_LOGGING_PVT.Log_Statement(
6641: p_module_name => g_module_name,
6642: p_procedure_name => l_program_name,
6643: p_debug_info => l_debug_info);
6644:
6655: EXCEPTION
6656: WHEN NO_DATA_FOUND THEN
6657: l_debug_info := 'Invalid reference to the Shipment: ' || x_ship_num ||
6658: ' and Organization: ' || l_organization_id ;
6659: INL_LOGGING_PVT.Log_Statement(
6660: p_module_name => g_module_name,
6661: p_procedure_name => l_program_name,
6662: p_debug_info => l_debug_info);
6663: l_response := FALSE;
6687: l_debug_info := 'Continuing';
6688: ELSE
6689: l_debug_info := 'Header has validation problem.';
6690: END IF;
6691: INL_LOGGING_PVT.Log_Statement(
6692: p_module_name => g_module_name,
6693: p_procedure_name => l_program_name,
6694: p_debug_info => l_debug_info);
6695:
6695:
6696: IF l_response THEN
6697: IF l_ship_status_code = 'COMPLETED' THEN
6698: l_debug_info := 'COMPLETED Shipments cannot be updated';
6699: INL_LOGGING_PVT.Log_Statement(
6700: p_module_name => g_module_name,
6701: p_procedure_name => l_program_name,
6702: p_debug_info => l_debug_info);
6703:
6796: END IF;
6797: END IF;
6798:
6799: -- Standard End of Procedure/Function Logging
6800: INL_LOGGING_PVT.Log_EndProc(
6801: p_module_name => g_module_name,
6802: p_procedure_name => l_program_name);
6803: RETURN l_response;
6804: EXCEPTION
6803: RETURN l_response;
6804: EXCEPTION
6805: WHEN L_FND_EXC_ERROR THEN
6806: -- Standard Expected Error Logging
6807: INL_LOGGING_PVT.Log_ExpecError (
6808: p_module_name => g_module_name,
6809: p_procedure_name => l_program_name);
6810: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6811: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6809: p_procedure_name => l_program_name);
6810: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6811: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6812: -- Standard Unexpected Error Logging
6813: INL_LOGGING_PVT.Log_UnexpecError (
6814: p_module_name => g_module_name,
6815: p_procedure_name => l_program_name);
6816: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6817: WHEN OTHERS THEN
6815: p_procedure_name => l_program_name);
6816: RETURN FND_API.to_boolean(L_FND_FALSE) ;
6817: WHEN OTHERS THEN
6818: -- Standard Unexpected Error Logging
6819: INL_LOGGING_PVT.Log_UnexpecError (
6820: p_module_name => g_module_name,
6821: p_procedure_name => l_program_name);
6822: IF FND_MSG_PUB.Check_Msg_Level(
6823: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6867:
6868: BEGIN
6869:
6870: -- Standard Beginning of Procedure/Function Logging
6871: INL_LOGGING_PVT.Log_BeginProc(
6872: p_module_name => g_module_name,
6873: p_procedure_name => l_program_name) ;
6874: -- Initialize API return status to success
6875: x_return_status := L_FND_RET_STS_SUCCESS;
6874: -- Initialize API return status to success
6875: x_return_status := L_FND_RET_STS_SUCCESS;
6876:
6877: l_debug_info := 'Check columns for the UPDATE transaction type';
6878: INL_LOGGING_PVT.Log_Statement(
6879: p_module_name => g_module_name,
6880: p_procedure_name => l_program_name,
6881: p_debug_info => l_debug_info);
6882:
6880: p_procedure_name => l_program_name,
6881: p_debug_info => l_debug_info);
6882:
6883: l_debug_info := 'Check for columns that should be populated or null for UPDATE.';
6884: INL_LOGGING_PVT.Log_Statement(
6885: p_module_name => g_module_name,
6886: p_procedure_name => l_program_name,
6887: p_debug_info => l_debug_info);
6888:
6890: FOR l_ship_ln_int_idx IN 1 .. x_ship_ln_int_lst.COUNT
6891: LOOP
6892: l_ship_line_int_id := x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_int_id;
6893: l_debug_info := 'Check ship_line_int_id: ' || l_ship_line_int_id;
6894: INL_LOGGING_PVT.Log_Statement(
6895: p_module_name => g_module_name,
6896: p_procedure_name => l_program_name,
6897: p_debug_info => l_debug_info);
6898:
6896: p_procedure_name => l_program_name,
6897: p_debug_info => l_debug_info);
6898:
6899:
6900: INL_LOGGING_PVT.Log_Variable(
6901: p_module_name => g_module_name,
6902: p_procedure_name => l_program_name,
6903: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code ',
6904: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code) ;
6902: p_procedure_name => l_program_name,
6903: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code ',
6904: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code) ;
6905:
6906: INL_LOGGING_PVT.Log_Variable(
6907: p_module_name => g_module_name,
6908: p_procedure_name => l_program_name,
6909: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_date ',
6910: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_date) ;
6907: p_module_name => g_module_name,
6908: p_procedure_name => l_program_name,
6909: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_date ',
6910: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_date) ;
6911: INL_LOGGING_PVT.Log_Variable(
6912: p_module_name => g_module_name,
6913: p_procedure_name => l_program_name,
6914: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_rate ',
6915: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_rate) ;
6912: p_module_name => g_module_name,
6913: p_procedure_name => l_program_name,
6914: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_rate ',
6915: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_rate) ;
6916: INL_LOGGING_PVT.Log_Variable(
6917: p_module_name => g_module_name,
6918: p_procedure_name => l_program_name,
6919: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_type ',
6920: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_type) ;
6917: p_module_name => g_module_name,
6918: p_procedure_name => l_program_name,
6919: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_type ',
6920: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_type) ;
6921: INL_LOGGING_PVT.Log_Variable(
6922: p_module_name => g_module_name,
6923: p_procedure_name => l_program_name,
6924: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id ',
6925: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id) ;
6922: p_module_name => g_module_name,
6923: p_procedure_name => l_program_name,
6924: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id ',
6925: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id) ;
6926: INL_LOGGING_PVT.Log_Variable(
6927: p_module_name => g_module_name,
6928: p_procedure_name => l_program_name,
6929: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name ',
6930: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name) ;
6927: p_module_name => g_module_name,
6928: p_procedure_name => l_program_name,
6929: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name ',
6930: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_name) ;
6931: INL_LOGGING_PVT.Log_Variable(
6932: p_module_name => g_module_name,
6933: p_procedure_name => l_program_name,
6934: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_id ',
6935: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_id) ;
6932: p_module_name => g_module_name,
6933: p_procedure_name => l_program_name,
6934: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_id ',
6935: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_id) ;
6936: INL_LOGGING_PVT.Log_Variable(
6937: p_module_name => g_module_name,
6938: p_procedure_name => l_program_name,
6939: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_number ',
6940: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_number) ;
6937: p_module_name => g_module_name,
6938: p_procedure_name => l_program_name,
6939: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_number ',
6940: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_number) ;
6941: INL_LOGGING_PVT.Log_Variable(
6942: p_module_name => g_module_name,
6943: p_procedure_name => l_program_name,
6944: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id ',
6945: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id) ;
6942: p_module_name => g_module_name,
6943: p_procedure_name => l_program_name,
6944: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id ',
6945: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id) ;
6946: INL_LOGGING_PVT.Log_Variable(
6947: p_module_name => g_module_name,
6948: p_procedure_name => l_program_name,
6949: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number ',
6950: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number) ;
6947: p_module_name => g_module_name,
6948: p_procedure_name => l_program_name,
6949: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number ',
6950: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_number) ;
6951: INL_LOGGING_PVT.Log_Variable(
6952: p_module_name => g_module_name,
6953: p_procedure_name => l_program_name,
6954: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id ',
6955: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id) ;
6952: p_module_name => g_module_name,
6953: p_procedure_name => l_program_name,
6954: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id ',
6955: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id) ;
6956: INL_LOGGING_PVT.Log_Variable(
6957: p_module_name => g_module_name,
6958: p_procedure_name => l_program_name,
6959: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num ',
6960: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num) ;
6957: p_module_name => g_module_name,
6958: p_procedure_name => l_program_name,
6959: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num ',
6960: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_num) ;
6961: INL_LOGGING_PVT.Log_Variable(
6962: p_module_name => g_module_name,
6963: p_procedure_name => l_program_name,
6964: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id ',
6965: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id) ;
6962: p_module_name => g_module_name,
6963: p_procedure_name => l_program_name,
6964: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id ',
6965: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id) ;
6966: INL_LOGGING_PVT.Log_Variable(
6967: p_module_name => g_module_name,
6968: p_procedure_name => l_program_name,
6969: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num ',
6970: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num) ;
6967: p_module_name => g_module_name,
6968: p_procedure_name => l_program_name,
6969: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num ',
6970: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num) ;
6971: INL_LOGGING_PVT.Log_Variable(
6972: p_module_name => g_module_name,
6973: p_procedure_name => l_program_name,
6974: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id ',
6975: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id) ;
6972: p_module_name => g_module_name,
6973: p_procedure_name => l_program_name,
6974: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id ',
6975: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id) ;
6976: INL_LOGGING_PVT.Log_Variable(
6977: p_module_name => g_module_name,
6978: p_procedure_name => l_program_name,
6979: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code ',
6980: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code) ;
6977: p_module_name => g_module_name,
6978: p_procedure_name => l_program_name,
6979: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code ',
6980: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code) ;
6981: INL_LOGGING_PVT.Log_Variable(
6982: p_module_name => g_module_name,
6983: p_procedure_name => l_program_name,
6984: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code ',
6985: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code) ;
6982: p_module_name => g_module_name,
6983: p_procedure_name => l_program_name,
6984: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code ',
6985: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_code) ;
6986: INL_LOGGING_PVT.Log_Variable(
6987: p_module_name => g_module_name,
6988: p_procedure_name => l_program_name,
6989: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id ',
6990: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id) ;
6987: p_module_name => g_module_name,
6988: p_procedure_name => l_program_name,
6989: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id ',
6990: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id) ;
6991: INL_LOGGING_PVT.Log_Variable(
6992: p_module_name => g_module_name,
6993: p_procedure_name => l_program_name,
6994: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code ',
6995: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code) ;
6992: p_module_name => g_module_name,
6993: p_procedure_name => l_program_name,
6994: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code ',
6995: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_code) ;
6996: INL_LOGGING_PVT.Log_Variable(
6997: p_module_name => g_module_name,
6998: p_procedure_name => l_program_name,
6999: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id ',
7000: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id) ;
6999: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id ',
7000: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id) ;
7001:
7002: l_debug_info := 'Checking ship_line_id and ship_line_group_id ';
7003: INL_LOGGING_PVT.Log_Statement(
7004: p_module_name => g_module_name,
7005: p_procedure_name => l_program_name,
7006: p_debug_info => l_debug_info);
7007:
7031: END IF;
7032: END IF;
7033:
7034: l_debug_info := 'Checking ship_line_id and ship_line_num ';
7035: INL_LOGGING_PVT.Log_Statement(
7036: p_module_name => g_module_name,
7037: p_procedure_name => l_program_name,
7038: p_debug_info => l_debug_info);
7039:
7062: END IF;
7063: END IF;
7064:
7065: l_debug_info := 'Checking parties ';
7066: INL_LOGGING_PVT.Log_Statement(
7067: p_module_name => g_module_name,
7068: p_procedure_name => l_program_name,
7069: p_debug_info => l_debug_info);
7070: IF x_ship_ln_int_lst(l_ship_ln_int_idx).party_id IS NOT NULL OR
7092: END IF;
7093: END IF;
7094:
7095: l_debug_info := 'Checking party site ';
7096: INL_LOGGING_PVT.Log_Statement(
7097: p_module_name => g_module_name,
7098: p_procedure_name => l_program_name,
7099: p_debug_info => l_debug_info);
7100: IF x_ship_ln_int_lst(l_ship_ln_int_idx).party_site_id IS NOT NULL OR
7122: END IF;
7123: END IF;
7124:
7125: l_debug_info := 'Checking source_organization ';
7126: INL_LOGGING_PVT.Log_Statement(
7127: p_module_name => g_module_name,
7128: p_procedure_name => l_program_name,
7129: p_debug_info => l_debug_info);
7130: IF x_ship_ln_int_lst(l_ship_ln_int_idx).source_organization_id IS NOT NULL OR
7152: END IF;
7153: END IF;
7154:
7155: l_debug_info := 'Checking ship_line_type ';
7156: INL_LOGGING_PVT.Log_Statement(
7157: p_module_name => g_module_name,
7158: p_procedure_name => l_program_name,
7159: p_debug_info => l_debug_info);
7160: IF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_type_id IS NOT NULL OR
7182: END IF;
7183: END IF;
7184:
7185: l_debug_info := 'Checking ship_line_id and ship_line_src_type_code ';
7186: INL_LOGGING_PVT.Log_Statement(
7187: p_module_name => g_module_name,
7188: p_procedure_name => l_program_name,
7189: p_debug_info => l_debug_info);
7190: IF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_src_type_code IS NOT NULL THEN
7211: END IF;
7212: END IF;
7213:
7214: l_debug_info := 'Checking ship_line_id and ship_line_source_id ';
7215: INL_LOGGING_PVT.Log_Statement(
7216: p_module_name => g_module_name,
7217: p_procedure_name => l_program_name,
7218: p_debug_info => l_debug_info);
7219: IF x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_source_id IS NOT NULL THEN
7240: END IF;
7241: END IF;
7242:
7243: l_debug_info := 'Checking currency_code ';
7244: INL_LOGGING_PVT.Log_Statement(
7245: p_module_name => g_module_name,
7246: p_procedure_name => l_program_name,
7247: p_debug_info => l_debug_info);
7248: IF x_ship_ln_int_lst(l_ship_ln_int_idx).currency_code IS NOT NULL THEN
7269: END IF;
7270: END IF;
7271:
7272: l_debug_info := 'Checking currency_conversion_type ';
7273: INL_LOGGING_PVT.Log_Statement(
7274: p_module_name => g_module_name,
7275: p_procedure_name => l_program_name,
7276: p_debug_info => l_debug_info);
7277: IF x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_type IS NOT NULL THEN
7298: END IF;
7299: END IF;
7300:
7301: l_debug_info := 'Checking currency_conversion_date ';
7302: INL_LOGGING_PVT.Log_Statement(
7303: p_module_name => g_module_name,
7304: p_procedure_name => l_program_name,
7305: p_debug_info => l_debug_info);
7306: IF x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_date IS NOT NULL THEN
7327: END IF;
7328: END IF;
7329:
7330: l_debug_info := 'Checking currency_conversion_rate ';
7331: INL_LOGGING_PVT.Log_Statement(
7332: p_module_name => g_module_name,
7333: p_procedure_name => l_program_name,
7334: p_debug_info => l_debug_info);
7335: IF x_ship_ln_int_lst(l_ship_ln_int_idx).currency_conversion_rate IS NOT NULL THEN
7356: END IF;
7357: END IF;
7358:
7359: l_debug_info := 'Checking inventory_item_name and inventory_item_id';
7360: INL_LOGGING_PVT.Log_Statement(
7361: p_module_name => g_module_name,
7362: p_procedure_name => l_program_name,
7363: p_debug_info => l_debug_info);
7364: IF x_ship_ln_int_lst(l_ship_ln_int_idx).inventory_item_id IS NOT NULL OR
7386: END IF;
7387: END IF;
7388:
7389: l_debug_info := 'Calling Validate_ShipLineGrpNum';
7390: INL_LOGGING_PVT.Log_Statement(
7391: p_module_name => g_module_name,
7392: p_procedure_name => l_program_name,
7393: p_debug_info => l_debug_info);
7394:
7418: ELSE
7419: l_debug_info := 'False';
7420: l_response := l_response_int;
7421: END IF;
7422: INL_LOGGING_PVT.Log_Variable(
7423: p_module_name => g_module_name,
7424: p_procedure_name => l_program_name,
7425: p_var_name => 'l_response_int',
7426: p_var_value => l_debug_info);
7426: p_var_value => l_debug_info);
7427:
7428:
7429: l_debug_info := 'Calling Validate_ShipLineNum';
7430: INL_LOGGING_PVT.Log_Statement(
7431: p_module_name => g_module_name,
7432: p_procedure_name => l_program_name,
7433: p_debug_info => l_debug_info);
7434:
7455: ELSE
7456: l_debug_info := 'False';
7457: l_response := l_response_int;
7458: END IF;
7459: INL_LOGGING_PVT.Log_Variable(
7460: p_module_name => g_module_name,
7461: p_procedure_name => l_program_name,
7462: p_var_name => 'l_response_int',
7463: p_var_value => l_debug_info);
7465: IF x_ship_ln_int_lst(l_ship_ln_int_idx).txn_uom_code IS NOT NULL
7466: AND p_validation_flag = 'Y'
7467: THEN
7468: l_debug_info := 'Calling Validate_TxnUomCode';
7469: INL_LOGGING_PVT.Log_Statement(
7470: p_module_name => g_module_name,
7471: p_procedure_name => l_program_name,
7472: p_debug_info => l_debug_info);
7473: l_response_int :=
7490: l_debug_info := 'False';
7491: l_response := l_response_int;
7492: l_validate_txn_uom_code := l_response_int;
7493: END IF;
7494: INL_LOGGING_PVT.Log_Variable(
7495: p_module_name => g_module_name,
7496: p_procedure_name => l_program_name,
7497: p_var_name => 'l_response_int',
7498: p_var_value => l_debug_info);
7501: IF l_validate_txn_uom_code
7502: THEN
7503:
7504: l_debug_info := 'Call Validate_PriSecFields';
7505: INL_LOGGING_PVT.Log_Statement(
7506: p_module_name => g_module_name,
7507: p_procedure_name => l_program_name,
7508: p_debug_info => l_debug_info);
7509:
7538: ELSE
7539: l_debug_info := 'False';
7540: l_response := l_response_int;
7541: END IF;
7542: INL_LOGGING_PVT.Log_Variable(
7543: p_module_name => g_module_name,
7544: p_procedure_name => l_program_name,
7545: p_var_name => 'l_response_int',
7546: p_var_value => l_debug_info);
7549:
7550: IF p_validation_flag = 'Y'
7551: THEN
7552: l_debug_info := 'Call Validate_LandedCostFlag';
7553: INL_LOGGING_PVT.Log_Statement(
7554: p_module_name => g_module_name,
7555: p_procedure_name => l_program_name,
7556: p_debug_info => l_debug_info);
7557:
7572: ELSE
7573: l_debug_info := 'False';
7574: l_response := l_response_int;
7575: END IF;
7576: INL_LOGGING_PVT.Log_Variable(
7577: p_module_name => g_module_name,
7578: p_procedure_name => l_program_name,
7579: p_var_name => 'l_response_int',
7580: p_var_value => l_debug_info);
7579: p_var_name => 'l_response_int',
7580: p_var_value => l_debug_info);
7581:
7582: l_debug_info := 'Call Validate_AllocEnabledFlag';
7583: INL_LOGGING_PVT.Log_Statement(
7584: p_module_name => g_module_name,
7585: p_procedure_name => l_program_name,
7586: p_debug_info => l_debug_info);
7587:
7602: ELSE
7603: l_debug_info := 'False';
7604: l_response := l_response_int;
7605: END IF;
7606: INL_LOGGING_PVT.Log_Variable(
7607: p_module_name => g_module_name,
7608: p_procedure_name => l_program_name,
7609: p_var_name => 'l_response_int',
7610: p_var_value => l_debug_info);
7613:
7614: END LOOP;
7615:
7616: -- Standard End of Procedure/Function Logging
7617: INL_LOGGING_PVT.Log_EndProc(
7618: p_module_name => g_module_name,
7619: p_procedure_name => l_program_name);
7620: RETURN l_response;
7621: EXCEPTION
7620: RETURN l_response;
7621: EXCEPTION
7622: WHEN L_FND_EXC_ERROR THEN
7623: -- Standard Expected Error Logging
7624: INL_LOGGING_PVT.Log_ExpecError (
7625: p_module_name => g_module_name,
7626: p_procedure_name => l_program_name);
7627: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7628: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7626: p_procedure_name => l_program_name);
7627: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7628: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7629: -- Standard Unexpected Error Logging
7630: INL_LOGGING_PVT.Log_UnexpecError (
7631: p_module_name => g_module_name,
7632: p_procedure_name => l_program_name);
7633: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7634: WHEN OTHERS THEN
7632: p_procedure_name => l_program_name);
7633: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7634: WHEN OTHERS THEN
7635: -- Standard Unexpected Error Logging
7636: INL_LOGGING_PVT.Log_UnexpecError (
7637: p_module_name => g_module_name,
7638: p_procedure_name => l_program_name);
7639: IF FND_MSG_PUB.Check_Msg_Level(
7640: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
7673: l_count_ln_proc_error NUMBER;
7674: BEGIN
7675:
7676: -- Standard Beginning of Procedure/Function Logging
7677: INL_LOGGING_PVT.Log_BeginProc(
7678: p_module_name => g_module_name,
7679: p_procedure_name => l_program_name) ;
7680: -- Initialize API return status to success
7681: x_return_status := L_FND_RET_STS_SUCCESS;
7680: -- Initialize API return status to success
7681: x_return_status := L_FND_RET_STS_SUCCESS;
7682:
7683: l_debug_info := 'Validate all ship line processins tatus code';
7684: INL_LOGGING_PVT.Log_Statement(
7685: p_module_name => g_module_name,
7686: p_procedure_name => l_program_name,
7687: p_debug_info => l_debug_info);
7688:
7685: p_module_name => g_module_name,
7686: p_procedure_name => l_program_name,
7687: p_debug_info => l_debug_info);
7688:
7689: INL_LOGGING_PVT.Log_Variable(
7690: p_module_name => g_module_name,
7691: p_procedure_name => l_program_name,
7692: p_var_name => 'p_ship_header_int_id',
7693: p_var_value => p_ship_header_int_id);
7697: FROM inl_ship_lines_int sli
7698: WHERE sli.ship_header_int_id = p_ship_header_int_id
7699: AND sli.processing_status_code = 'ERROR';
7700:
7701: INL_LOGGING_PVT.Log_Variable(
7702: p_module_name => g_module_name,
7703: p_procedure_name => l_program_name,
7704: p_var_name => 'l_count_ln_proc_error',
7705: p_var_value => l_count_ln_proc_error);
7705: p_var_value => l_count_ln_proc_error);
7706:
7707: IF NVL(l_count_ln_proc_error, 0) > 0 THEN
7708: l_debug_info := 'There are more than one source type code defined for the Shipment';
7709: INL_LOGGING_PVT.Log_Statement(
7710: p_module_name => g_module_name,
7711: p_procedure_name => l_program_name,
7712: p_debug_info => l_debug_info);
7713: l_response := FALSE;
7730: RAISE L_FND_EXC_UNEXPECTED_ERROR;
7731: END IF;
7732: END IF;
7733: -- Standard End of Procedure/Function Logging
7734: INL_LOGGING_PVT.Log_EndProc(
7735: p_module_name => g_module_name,
7736: p_procedure_name => l_program_name);
7737: RETURN l_response;
7738: EXCEPTION
7737: RETURN l_response;
7738: EXCEPTION
7739: WHEN L_FND_EXC_ERROR THEN
7740: -- Standard Expected Error Logging
7741: INL_LOGGING_PVT.Log_ExpecError (
7742: p_module_name => g_module_name,
7743: p_procedure_name => l_program_name);
7744: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7745: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7743: p_procedure_name => l_program_name);
7744: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7745: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7746: -- Standard Unexpected Error Logging
7747: INL_LOGGING_PVT.Log_UnexpecError (
7748: p_module_name => g_module_name,
7749: p_procedure_name => l_program_name);
7750: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7751: WHEN OTHERS THEN
7749: p_procedure_name => l_program_name);
7750: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7751: WHEN OTHERS THEN
7752: -- Standard Unexpected Error Logging
7753: INL_LOGGING_PVT.Log_UnexpecError (
7754: p_module_name => g_module_name,
7755: p_procedure_name => l_program_name);
7756: IF FND_MSG_PUB.Check_Msg_Level(
7757: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
7788: l_count_ln_src_tp_code NUMBER;
7789:
7790: BEGIN
7791: -- Standard Beginning of Procedure/Function Logging
7792: INL_LOGGING_PVT.Log_BeginProc(
7793: p_module_name => g_module_name,
7794: p_procedure_name => l_program_name) ;
7795: -- Initialize API return status to success
7796: x_return_status := L_FND_RET_STS_SUCCESS;
7795: -- Initialize API return status to success
7796: x_return_status := L_FND_RET_STS_SUCCESS;
7797:
7798: l_debug_info := 'Checking ship line source type code of Shipment';
7799: INL_LOGGING_PVT.Log_Statement(
7800: p_module_name => g_module_name,
7801: p_procedure_name => l_program_name,
7802: p_debug_info => l_debug_info);
7803:
7800: p_module_name => g_module_name,
7801: p_procedure_name => l_program_name,
7802: p_debug_info => l_debug_info);
7803:
7804: INL_LOGGING_PVT.Log_Variable(
7805: p_module_name => g_module_name,
7806: p_procedure_name => l_program_name,
7807: p_var_name => 'p_ship_header_int_id',
7808: p_var_value => p_ship_header_int_id);
7811: INTO l_count_ln_src_tp_code
7812: FROM inl_ship_lines_int sli
7813: WHERE sli.ship_header_int_id = p_ship_header_int_id;
7814:
7815: INL_LOGGING_PVT.Log_Variable(
7816: p_module_name => g_module_name,
7817: p_procedure_name => l_program_name,
7818: p_var_name => 'l_count_ln_src_tp_code',
7819: p_var_value => l_count_ln_src_tp_code);
7819: p_var_value => l_count_ln_src_tp_code);
7820:
7821: IF l_count_ln_src_tp_code > 1 THEN
7822: l_debug_info := 'There are more than one source type code defined for the Shipment';
7823: INL_LOGGING_PVT.Log_Statement(
7824: p_module_name => g_module_name,
7825: p_procedure_name => l_program_name,
7826: p_debug_info => l_debug_info);
7827: l_response := FALSE;
7844: RAISE L_FND_EXC_UNEXPECTED_ERROR;
7845: END IF;
7846: END IF;
7847: -- Standard End of Procedure/Function Logging
7848: INL_LOGGING_PVT.Log_EndProc(
7849: p_module_name => g_module_name,
7850: p_procedure_name => l_program_name);
7851: RETURN l_response;
7852: EXCEPTION
7851: RETURN l_response;
7852: EXCEPTION
7853: WHEN L_FND_EXC_ERROR THEN
7854: -- Standard Expected Error Logging
7855: INL_LOGGING_PVT.Log_ExpecError (
7856: p_module_name => g_module_name,
7857: p_procedure_name => l_program_name);
7858: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7859: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7857: p_procedure_name => l_program_name);
7858: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7859: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7860: -- Standard Unexpected Error Logging
7861: INL_LOGGING_PVT.Log_UnexpecError (
7862: p_module_name => g_module_name,
7863: p_procedure_name => l_program_name);
7864: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7865: WHEN OTHERS THEN
7863: p_procedure_name => l_program_name);
7864: RETURN FND_API.to_boolean(L_FND_FALSE) ;
7865: WHEN OTHERS THEN
7866: -- Standard Unexpected Error Logging
7867: INL_LOGGING_PVT.Log_UnexpecError (
7868: p_module_name => g_module_name,
7869: p_procedure_name => l_program_name);
7870: IF FND_MSG_PUB.Check_Msg_Level(
7871: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
7928: l_column_nnull VARCHAR2(300);
7929:
7930: BEGIN
7931: -- Standard Beginning of Procedure/Function Logging
7932: INL_LOGGING_PVT.Log_BeginProc(
7933: p_module_name => g_module_name,
7934: p_procedure_name => l_program_name) ;
7935: -- Initialize API return status to success
7936: x_return_status := L_FND_RET_STS_SUCCESS;
7935: -- Initialize API return status to success
7936: x_return_status := L_FND_RET_STS_SUCCESS;
7937:
7938: l_debug_info := 'Check columns for the specified transaction type';
7939: INL_LOGGING_PVT.Log_Statement(
7940: p_module_name => g_module_name,
7941: p_procedure_name => l_program_name,
7942: p_debug_info => l_debug_info);
7943:
7940: p_module_name => g_module_name,
7941: p_procedure_name => l_program_name,
7942: p_debug_info => l_debug_info);
7943:
7944: INL_LOGGING_PVT.Log_Variable(
7945: p_module_name => g_module_name,
7946: p_procedure_name => l_program_name,
7947: p_var_name => 'x_ship_num',
7948: p_var_value => x_ship_num);
7993:
7994: IF l_response THEN
7995:
7996: l_debug_info := 'Call Validate_AllShipLnSrcTypeCode';
7997: INL_LOGGING_PVT.Log_Statement(
7998: p_module_name => g_module_name,
7999: p_procedure_name => l_program_name,
8000: p_debug_info => l_debug_info);
8001:
8015: ELSE
8016: l_debug_info := 'False';
8017: l_response := l_response_int;
8018: END IF;
8019: INL_LOGGING_PVT.Log_Variable(
8020: p_module_name => g_module_name,
8021: p_procedure_name => l_program_name,
8022: p_var_name => 'l_response_int',
8023: p_var_value => l_debug_info);
8022: p_var_name => 'l_response_int',
8023: p_var_value => l_debug_info);
8024:
8025: l_debug_info := 'Call Validate_AllProcessingStatus';
8026: INL_LOGGING_PVT.Log_Statement(
8027: p_module_name => g_module_name,
8028: p_procedure_name => l_program_name,
8029: p_debug_info => l_debug_info);
8030:
8045: ELSE
8046: l_debug_info := 'False';
8047: l_response := l_response_int;
8048: END IF;
8049: INL_LOGGING_PVT.Log_Variable(
8050: p_module_name => g_module_name,
8051: p_procedure_name => l_program_name,
8052: p_var_name => 'l_response_int',
8053: p_var_value => l_debug_info);
8053: p_var_value => l_debug_info);
8054:
8055: END IF;
8056:
8057: INL_LOGGING_PVT.Log_Variable(
8058: p_module_name => g_module_name,
8059: p_procedure_name => l_program_name,
8060: p_var_name => 'x_ship_num',
8061: p_var_value => x_ship_num);
8060: p_var_name => 'x_ship_num',
8061: p_var_value => x_ship_num);
8062:
8063: -- Standard End of Procedure/Function Logging
8064: INL_LOGGING_PVT.Log_EndProc(
8065: p_module_name => g_module_name,
8066: p_procedure_name => l_program_name);
8067: RETURN l_response;
8068: EXCEPTION
8067: RETURN l_response;
8068: EXCEPTION
8069: WHEN L_FND_EXC_ERROR THEN
8070: -- Standard Expected Error Logging
8071: INL_LOGGING_PVT.Log_ExpecError (
8072: p_module_name => g_module_name,
8073: p_procedure_name => l_program_name);
8074: RETURN FND_API.to_boolean(L_FND_FALSE) ;
8075: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8073: p_procedure_name => l_program_name);
8074: RETURN FND_API.to_boolean(L_FND_FALSE) ;
8075: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8076: -- Standard Unexpected Error Logging
8077: INL_LOGGING_PVT.Log_UnexpecError (
8078: p_module_name => g_module_name,
8079: p_procedure_name => l_program_name);
8080: RETURN FND_API.to_boolean(L_FND_FALSE) ;
8081: WHEN OTHERS THEN
8079: p_procedure_name => l_program_name);
8080: RETURN FND_API.to_boolean(L_FND_FALSE) ;
8081: WHEN OTHERS THEN
8082: -- Standard Unexpected Error Logging
8083: INL_LOGGING_PVT.Log_UnexpecError (
8084: p_module_name => g_module_name,
8085: p_procedure_name => l_program_name);
8086: IF FND_MSG_PUB.Check_Msg_Level(
8087: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
8116: l_program_name CONSTANT VARCHAR2(100) := 'Delete_Ship';
8117: l_debug_info VARCHAR2(2000) ;
8118: BEGIN
8119: -- Standard Beginning of Procedure/Function Logging
8120: INL_LOGGING_PVT.Log_BeginProc(
8121: p_module_name => g_module_name,
8122: p_procedure_name => l_program_name) ;
8123: -- Initialize API return status to success
8124: x_return_status := L_FND_RET_STS_SUCCESS;
8124: x_return_status := L_FND_RET_STS_SUCCESS;
8125:
8126: -- Table inl_ship_holds
8127: l_debug_info := 'Delete from inl_ship_holds';
8128: INL_LOGGING_PVT.Log_Statement(
8129: p_module_name => g_module_name,
8130: p_procedure_name => l_program_name,
8131: p_debug_info => l_debug_info) ;
8132:
8129: p_module_name => g_module_name,
8130: p_procedure_name => l_program_name,
8131: p_debug_info => l_debug_info) ;
8132:
8133: INL_LOGGING_PVT.Log_Variable(
8134: p_module_name => g_module_name,
8135: p_procedure_name => l_program_name,
8136: p_var_name => 'p_ship_header_id',
8137: p_var_value => p_ship_header_id
8140: DELETE FROM inl_ship_holds
8141: WHERE ship_header_id = p_ship_header_id;
8142:
8143:
8144: INL_LOGGING_PVT.Log_Variable(
8145: p_module_name => g_module_name,
8146: p_procedure_name => l_program_name,
8147: p_var_name => 'sql%rowcount',
8148: p_var_value => sql%rowcount
8150:
8151: -- Table inl_match_amounts
8152: -- Bug#9279355
8153: l_debug_info := 'Delete inl_match_amounts';
8154: INL_LOGGING_PVT.Log_Statement(
8155: p_module_name => g_module_name,
8156: p_procedure_name => l_program_name,
8157: p_debug_info => l_debug_info) ;
8158:
8168: AND ma.match_amount_id = m.match_amount_id
8169: )
8170: ;
8171:
8172: INL_LOGGING_PVT.Log_Variable(
8173: p_module_name => g_module_name,
8174: p_procedure_name => l_program_name,
8175: p_var_name => 'sql%rowcount',
8176: p_var_value => sql%rowcount
8178:
8179: -- Table inl_matches
8180: -- Bug#9279355
8181: l_debug_info := 'Delete inl_matches';
8182: INL_LOGGING_PVT.Log_Statement(
8183: p_module_name => g_module_name,
8184: p_procedure_name => l_program_name,
8185: p_debug_info => l_debug_info) ;
8186:
8186:
8187: DELETE FROM inl_matches m
8188: WHERE m.ship_header_id = p_ship_header_id;
8189:
8190: INL_LOGGING_PVT.Log_Variable(
8191: p_module_name => g_module_name,
8192: p_procedure_name => l_program_name,
8193: p_var_name => 'sql%rowcount',
8194: p_var_value => sql%rowcount
8195: );
8196:
8197: -- Table
8198: l_debug_info := 'Delete from inl_allocations';
8199: INL_LOGGING_PVT.Log_Statement(
8200: p_module_name => g_module_name,
8201: p_procedure_name => l_program_name,
8202: p_debug_info => l_debug_info) ;
8203:
8203:
8204: DELETE FROM inl_allocations
8205: WHERE ship_header_id = p_ship_header_id;
8206:
8207: INL_LOGGING_PVT.Log_Variable(
8208: p_module_name => g_module_name,
8209: p_procedure_name => l_program_name,
8210: p_var_name => 'sql%rowcount',
8211: p_var_value => sql%rowcount
8212: );
8213:
8214: -- Table
8215: l_debug_info := 'Delete from inl_tax_lines';
8216: INL_LOGGING_PVT.Log_Statement(
8217: p_module_name => g_module_name,
8218: p_procedure_name => l_program_name,
8219: p_debug_info => l_debug_info) ;
8220:
8245: )
8246: ;
8247:
8248:
8249: INL_LOGGING_PVT.Log_Variable(
8250: p_module_name => g_module_name,
8251: p_procedure_name => l_program_name,
8252: p_var_name => 'sql%rowcount',
8253: p_var_value => sql%rowcount
8254: );
8255:
8256: -- Table
8257: l_debug_info := 'Delete from inl_charge_lines';
8258: INL_LOGGING_PVT.Log_Statement(
8259: p_module_name => g_module_name,
8260: p_procedure_name => l_program_name,
8261: p_debug_info => l_debug_info) ;
8262:
8283: )
8284: )
8285: ;
8286:
8287: INL_LOGGING_PVT.Log_Variable(
8288: p_module_name => g_module_name,
8289: p_procedure_name => l_program_name,
8290: p_var_name => 'sql%rowcount',
8291: p_var_value => sql%rowcount
8292: );
8293:
8294: -- Table
8295: l_debug_info := 'Delete from inl_associations';
8296: INL_LOGGING_PVT.Log_Statement(
8297: p_module_name => g_module_name,
8298: p_procedure_name => l_program_name,
8299: p_debug_info => l_debug_info) ;
8300:
8300:
8301: DELETE FROM inl_associations
8302: WHERE ship_header_id = p_ship_header_id;
8303:
8304: INL_LOGGING_PVT.Log_Variable(
8305: p_module_name => g_module_name,
8306: p_procedure_name => l_program_name,
8307: p_var_name => 'sql%rowcount',
8308: p_var_value => sql%rowcount
8309: );
8310:
8311: -- Table
8312: l_debug_info := 'Delete from inl_ship_lines_all';
8313: INL_LOGGING_PVT.Log_Statement(
8314: p_module_name => g_module_name,
8315: p_procedure_name => l_program_name,
8316: p_debug_info => l_debug_info) ;
8317:
8317:
8318: DELETE FROM inl_ship_lines_all
8319: WHERE ship_header_id = p_ship_header_id;
8320:
8321: INL_LOGGING_PVT.Log_Variable(
8322: p_module_name => g_module_name,
8323: p_procedure_name => l_program_name,
8324: p_var_name => 'sql%rowcount',
8325: p_var_value => sql%rowcount
8326: );
8327:
8328: -- Table
8329: l_debug_info := 'Delete from inl_ship_line_groups';
8330: INL_LOGGING_PVT.Log_Statement(
8331: p_module_name => g_module_name,
8332: p_procedure_name => l_program_name,
8333: p_debug_info => l_debug_info) ;
8334:
8334:
8335: DELETE FROM inl_ship_line_groups
8336: WHERE ship_header_id = p_ship_header_id;
8337:
8338: INL_LOGGING_PVT.Log_Variable(
8339: p_module_name => g_module_name,
8340: p_procedure_name => l_program_name,
8341: p_var_name => 'sql%rowcount',
8342: p_var_value => sql%rowcount
8343: );
8344:
8345: -- Table
8346: l_debug_info := 'Delete from inl_ship_headers_all';
8347: INL_LOGGING_PVT.Log_Statement(
8348: p_module_name => g_module_name,
8349: p_procedure_name => l_program_name,
8350: p_debug_info => l_debug_info) ;
8351:
8351:
8352: DELETE FROM inl_ship_headers_all
8353: WHERE ship_header_id = p_ship_header_id;
8354:
8355: INL_LOGGING_PVT.Log_Variable(
8356: p_module_name => g_module_name,
8357: p_procedure_name => l_program_name,
8358: p_var_name => 'sql%rowcount',
8359: p_var_value => sql%rowcount
8359: p_var_value => sql%rowcount
8360: );
8361:
8362: -- Standard End of Procedure/Function Logging
8363: INL_LOGGING_PVT.Log_EndProc(
8364: p_module_name => g_module_name,
8365: p_procedure_name => l_program_name);
8366: EXCEPTION
8367: WHEN L_FND_EXC_ERROR THEN
8365: p_procedure_name => l_program_name);
8366: EXCEPTION
8367: WHEN L_FND_EXC_ERROR THEN
8368: -- Standard Expected Error Logging
8369: INL_LOGGING_PVT.Log_ExpecError (
8370: p_module_name => g_module_name,
8371: p_procedure_name => l_program_name );
8372: x_return_status := L_FND_RET_STS_ERROR;
8373: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8371: p_procedure_name => l_program_name );
8372: x_return_status := L_FND_RET_STS_ERROR;
8373: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8374: -- Standard Unexpected Error Logging
8375: INL_LOGGING_PVT.Log_UnexpecError (
8376: p_module_name => g_module_name,
8377: p_procedure_name => l_program_name);
8378: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8379: WHEN OTHERS THEN
8377: p_procedure_name => l_program_name);
8378: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8379: WHEN OTHERS THEN
8380: -- Standard Unexpected Error Logging
8381: INL_LOGGING_PVT.Log_UnexpecError (
8382: p_module_name => g_module_name,
8383: p_procedure_name => l_program_name);
8384: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8385: IF FND_MSG_PUB.Check_Msg_Level(
8414: l_program_name CONSTANT VARCHAR2(100) := 'Handle_LineGroups';
8415: l_debug_info VARCHAR2(2000) ;
8416: BEGIN
8417: -- Standard Beginning of Procedure/Function Logging
8418: INL_LOGGING_PVT.Log_BeginProc(
8419: p_module_name => g_module_name,
8420: p_procedure_name => l_program_name) ;
8421:
8422: l_debug_info := 'ship_header_id. LG:'||current_SLnGr_rec.ship_header_id||' SL:'||x_ship_ln_int_rec.ship_header_id;
8419: p_module_name => g_module_name,
8420: p_procedure_name => l_program_name) ;
8421:
8422: l_debug_info := 'ship_header_id. LG:'||current_SLnGr_rec.ship_header_id||' SL:'||x_ship_ln_int_rec.ship_header_id;
8423: INL_LOGGING_PVT.Log_Statement(
8424: p_module_name => g_module_name,
8425: p_procedure_name => l_program_name,
8426: p_debug_info => l_debug_info
8427: ) ;
8425: p_procedure_name => l_program_name,
8426: p_debug_info => l_debug_info
8427: ) ;
8428: l_debug_info := 'ship_line_group_reference. LG:'||current_SLnGr_rec.ship_line_group_reference||' SL:'||x_ship_ln_int_rec.ship_line_group_reference;
8429: INL_LOGGING_PVT.Log_Statement(
8430: p_module_name => g_module_name,
8431: p_procedure_name => l_program_name,
8432: p_debug_info => l_debug_info
8433: ) ;
8431: p_procedure_name => l_program_name,
8432: p_debug_info => l_debug_info
8433: ) ;
8434: l_debug_info := 'src_type_code. LG:'||current_SLnGr_rec.src_type_code||' SL:'||x_ship_ln_int_rec.ship_line_src_type_code;
8435: INL_LOGGING_PVT.Log_Statement(
8436: p_module_name => g_module_name,
8437: p_procedure_name => l_program_name,
8438: p_debug_info => l_debug_info
8439: ) ;
8437: p_procedure_name => l_program_name,
8438: p_debug_info => l_debug_info
8439: ) ;
8440: l_debug_info := 'party_id. LG:'||current_SLnGr_rec.party_id||' SL:'||x_ship_ln_int_rec.party_id;
8441: INL_LOGGING_PVT.Log_Statement(
8442: p_module_name => g_module_name,
8443: p_procedure_name => l_program_name,
8444: p_debug_info => l_debug_info
8445: ) ;
8443: p_procedure_name => l_program_name,
8444: p_debug_info => l_debug_info
8445: ) ;
8446: l_debug_info := 'party_site_id. LG:'||current_SLnGr_rec.party_site_id||' SL:'||x_ship_ln_int_rec.party_site_id;
8447: INL_LOGGING_PVT.Log_Statement(
8448: p_module_name => g_module_name,
8449: p_procedure_name => l_program_name,
8450: p_debug_info => l_debug_info
8451: ) ;
8449: p_procedure_name => l_program_name,
8450: p_debug_info => l_debug_info
8451: ) ;
8452: l_debug_info := 'source_organization_id. LG:'||current_SLnGr_rec.source_organization_id||' SL:'||x_ship_ln_int_rec.source_organization_id;
8453: INL_LOGGING_PVT.Log_Statement(
8454: p_module_name => g_module_name,
8455: p_procedure_name => l_program_name,
8456: p_debug_info => l_debug_info
8457: ) ;
8466: OR NVL(current_SLnGr_rec.source_organization_id, L_FND_MISS_NUM) <> NVL(x_ship_ln_int_rec.source_organization_id, L_FND_MISS_NUM))
8467: THEN
8468:
8469: l_debug_info := 'Is other group: Select Data from group';
8470: INL_LOGGING_PVT.Log_Statement(
8471: p_module_name => g_module_name,
8472: p_procedure_name => l_program_name,
8473: p_debug_info => l_debug_info) ;
8474:
8497: AND party_site_id = x_ship_ln_int_rec.party_site_id
8498: AND source_organization_id = x_ship_ln_int_rec.source_organization_id
8499: AND NVL(ship_line_group_reference, L_FND_MISS_NUM)= NVL(x_ship_ln_int_rec.ship_line_group_reference, L_FND_MISS_NUM) ;
8500:
8501: INL_LOGGING_PVT.Log_Variable(
8502: p_module_name => g_module_name,
8503: p_procedure_name => l_program_name,
8504: p_var_name => 'current_SLnGr_rec.ship_line_group_id',
8505: p_var_value => current_SLnGr_rec.ship_line_group_id) ;
8527: current_SLnGr_rec.party_site_id := x_ship_ln_int_rec.party_site_id;
8528: current_SLnGr_rec.source_organization_id := x_ship_ln_int_rec.source_organization_id;
8529:
8530: l_debug_info := 'Inserting inl_ship_line_groups';
8531: INL_LOGGING_PVT.Log_Statement(
8532: p_module_name => g_module_name,
8533: p_procedure_name => l_program_name,
8534: p_debug_info => l_debug_info) ;
8535: INL_LOGGING_PVT.Log_Variable(
8531: INL_LOGGING_PVT.Log_Statement(
8532: p_module_name => g_module_name,
8533: p_procedure_name => l_program_name,
8534: p_debug_info => l_debug_info) ;
8535: INL_LOGGING_PVT.Log_Variable(
8536: p_module_name => g_module_name,
8537: p_procedure_name => l_program_name,
8538: p_var_name => 'current_SLnGr_rec.ship_line_group_id',
8539: p_var_value => current_SLnGr_rec.ship_line_group_id) ;
8615: x_ship_ln_int_rec .attribute15_lg --36
8616: );
8617: END;
8618: ELSE
8619: INL_LOGGING_PVT.Log_Variable(
8620: p_module_name => g_module_name,
8621: p_procedure_name => l_program_name,
8622: p_var_name => 'current_SLnGr_rec.ship_line_group_id',
8623: p_var_value => current_SLnGr_rec.ship_line_group_id) ;
8627: END IF;
8628: ELSIF p_transaction_type = 'UPDATE' THEN
8629:
8630: l_debug_info := 'Updating Ship Line Group';
8631: INL_LOGGING_PVT.Log_Statement(
8632: p_module_name => g_module_name,
8633: p_procedure_name => l_program_name,
8634: p_debug_info => l_debug_info) ;
8635:
8665: WHERE ship_line_group_id = x_ship_ln_int_rec.ship_line_group_id
8666: ;
8667: END IF;
8668: -- Standard End of Procedure/Function Logging
8669: INL_LOGGING_PVT.Log_EndProc(
8670: p_module_name => g_module_name,
8671: p_procedure_name => l_program_name);
8672: EXCEPTION
8673: WHEN L_FND_EXC_ERROR THEN
8671: p_procedure_name => l_program_name);
8672: EXCEPTION
8673: WHEN L_FND_EXC_ERROR THEN
8674: -- Standard Expected Error Logging
8675: INL_LOGGING_PVT.Log_ExpecError (
8676: p_module_name => g_module_name,
8677: p_procedure_name => l_program_name);
8678: x_return_status := L_FND_RET_STS_ERROR;
8679: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8677: p_procedure_name => l_program_name);
8678: x_return_status := L_FND_RET_STS_ERROR;
8679: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8680: -- Standard Unexpected Error Logging
8681: INL_LOGGING_PVT.Log_UnexpecError (
8682: p_module_name => g_module_name,
8683: p_procedure_name => l_program_name);
8684: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8685: WHEN OTHERS THEN
8683: p_procedure_name => l_program_name);
8684: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8685: WHEN OTHERS THEN
8686: -- Standard Unexpected Error Logging
8687: INL_LOGGING_PVT.Log_UnexpecError (
8688: p_module_name => g_module_name,
8689: p_procedure_name => l_program_name);
8690: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8691: IF FND_MSG_PUB.Check_Msg_Level(
8726: l_msg_count NUMBER;
8727:
8728: BEGIN
8729: -- Standard Beginning of Procedure/Function Logging
8730: INL_LOGGING_PVT.Log_BeginProc(
8731: p_module_name => g_module_name,
8732: p_procedure_name => l_program_name) ;
8733: -- Initialize API return status to success
8734: x_return_status := L_FND_RET_STS_SUCCESS;
8732: p_procedure_name => l_program_name) ;
8733: -- Initialize API return status to success
8734: x_return_status := L_FND_RET_STS_SUCCESS;
8735:
8736: INL_LOGGING_PVT.Log_Variable(
8737: p_module_name => g_module_name,
8738: p_procedure_name => l_program_name,
8739: p_var_name => 'p_ship_header_id',
8740: p_var_value => p_ship_header_id);
8738: p_procedure_name => l_program_name,
8739: p_var_name => 'p_ship_header_id',
8740: p_var_value => p_ship_header_id);
8741:
8742: INL_LOGGING_PVT.Log_Variable(
8743: p_module_name => g_module_name,
8744: p_procedure_name => l_program_name,
8745: p_var_name => 'p_last_task_code',
8746: p_var_value => p_last_task_code);
8747:
8748: -- Generate Charges and Integration with QP
8749: IF p_last_task_code >= '20' THEN
8750: l_debug_info := 'Generate Charges(Integration with QP). Call INL_CHARGE_PVT.Generate_Charges';
8751: INL_LOGGING_PVT.Log_Statement(
8752: p_module_name => g_module_name,
8753: p_procedure_name => l_program_name,
8754: p_debug_info => l_debug_info);
8755:
8770: END IF;
8771: -- Process LCM Shipment Actions
8772: IF p_last_task_code >= '30' THEN
8773: l_debug_info := 'Call INL_SHIPMENT_PVT.ProcessAction';
8774: INL_LOGGING_PVT.Log_Statement(
8775: p_module_name => g_module_name,
8776: p_procedure_name => l_program_name,
8777: p_debug_info => l_debug_info);
8778:
8796: END IF;
8797: END IF;
8798:
8799: -- Standard End of Procedure/Function Logging
8800: INL_LOGGING_PVT.Log_EndProc(
8801: p_module_name => g_module_name,
8802: p_procedure_name => l_program_name);
8803:
8804: EXCEPTION
8803:
8804: EXCEPTION
8805: WHEN L_FND_EXC_ERROR THEN
8806: -- Standard Expected Error Logging
8807: INL_LOGGING_PVT.Log_ExpecError (
8808: p_module_name => g_module_name,
8809: p_procedure_name => l_program_name);
8810: x_return_status := L_FND_RET_STS_ERROR;
8811: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8809: p_procedure_name => l_program_name);
8810: x_return_status := L_FND_RET_STS_ERROR;
8811: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8812: -- Standard Unexpected Error Logging
8813: INL_LOGGING_PVT.Log_UnexpecError (
8814: p_module_name => g_module_name,
8815: p_procedure_name => l_program_name);
8816: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8817: WHEN OTHERS THEN
8815: p_procedure_name => l_program_name);
8816: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8817: WHEN OTHERS THEN
8818: -- Standard Unexpected Error Logging
8819: INL_LOGGING_PVT.Log_UnexpecError (
8820: p_module_name => g_module_name,
8821: p_procedure_name => l_program_name);
8822: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8823: IF FND_MSG_PUB.Check_Msg_Level(
8859: l_return_status VARCHAR2(1);
8860:
8861: BEGIN
8862: -- Standard Beginning of Procedure/Function Logging
8863: INL_LOGGING_PVT.Log_BeginProc(
8864: p_module_name => g_module_name,
8865: p_procedure_name => l_program_name) ;
8866: -- Initialize API return status to success
8867: x_return_status := L_FND_RET_STS_SUCCESS;
8866: -- Initialize API return status to success
8867: x_return_status := L_FND_RET_STS_SUCCESS;
8868:
8869: l_debug_info := 'Processing Lines, p_transaction_type: '||p_transaction_type;
8870: INL_LOGGING_PVT.Log_Statement(
8871: p_module_name => g_module_name,
8872: p_procedure_name => l_program_name,
8873: p_debug_info => l_debug_info) ;
8874:
8873: p_debug_info => l_debug_info) ;
8874:
8875: FOR l_ship_ln_int_idx IN 1 .. x_ship_ln_int_lst.COUNT
8876: LOOP
8877: INL_LOGGING_PVT.Log_Variable(
8878: p_module_name => g_module_name,
8879: p_procedure_name => l_program_name,
8880: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_Line_int_id',
8881: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_Line_int_id) ;
8882:
8883: x_ship_ln_int_lst(l_ship_ln_int_idx).ship_header_id := p_ship_header_id;
8884:
8885: l_debug_info := 'Handle Import of Shipment Line Groups';
8886: INL_LOGGING_PVT.Log_Statement(
8887: p_module_name => g_module_name,
8888: p_procedure_name => l_program_name,
8889: p_debug_info => l_debug_info);
8890: -- Check if the Line Group has already been imported
8904: IF p_transaction_type = 'CREATE'
8905: THEN
8906:
8907: l_debug_info := 'Getting the next Shipment Line Number';
8908: INL_LOGGING_PVT.Log_Statement(
8909: p_module_name => g_module_name,
8910: p_procedure_name => l_program_name,
8911: p_debug_info => l_debug_info);
8912:
8919: AND ship_line_group_id = x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_group_id;
8920:
8921: x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num := NVL(x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num, 0) + 1;
8922:
8923: INL_LOGGING_PVT.Log_Variable(
8924: p_module_name => g_module_name,
8925: p_procedure_name => l_program_name,
8926: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num',
8927: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num) ;
8926: p_var_name => 'x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num',
8927: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_num) ;
8928: END IF;
8929: l_debug_info := 'Getting Shipment Line Id';
8930: INL_LOGGING_PVT.Log_Statement(
8931: p_module_name => g_module_name,
8932: p_procedure_name => l_program_name,
8933: p_debug_info => l_debug_info) ;
8934: -- Get the next Shipment Line Id
8935: SELECT inl_ship_Lines_all_s.NEXTVAL
8936: INTO x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id
8937: FROM dual;
8938:
8939: INL_LOGGING_PVT.Log_Variable(
8940: p_module_name => g_module_name,
8941: p_procedure_name => l_program_name,
8942: p_var_name => 'ship_line_id',
8943: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id);
8942: p_var_name => 'ship_line_id',
8943: p_var_value => x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id);
8944:
8945: l_debug_info := 'Insert into Shipment Lines table';
8946: INL_LOGGING_PVT.Log_Statement(
8947: p_module_name => g_module_name,
8948: p_procedure_name => l_program_name,
8949: p_debug_info => l_debug_info);
8950:
9107: x_ship_ln_int_lst(l_ship_ln_int_idx).attribute15_sl --81
9108: ) ;
9109: ELSIF p_transaction_type = 'UPDATE' THEN
9110: l_debug_info := 'Update Shipment Lines table';
9111: INL_LOGGING_PVT.Log_Statement(
9112: p_module_name => g_module_name,
9113: p_procedure_name => l_program_name,
9114: p_debug_info => l_debug_info) ;
9115:
9177: attribute15 = NVL(x_ship_ln_int_lst(l_ship_ln_int_idx).attribute15_sl , sl.attribute15)
9178: WHERE ship_line_id = x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_id;
9179: END IF;
9180: l_debug_info := 'Set Shipment Line Interface status and imported Ids';
9181: INL_LOGGING_PVT.Log_Statement(
9182: p_module_name => g_module_name,
9183: p_procedure_name => l_program_name,
9184: p_debug_info => l_debug_info) ;
9185: -- Set processing status code to COMPLETED
9199: WHERE ship_line_int_id = x_ship_ln_int_lst(l_ship_ln_int_idx).ship_line_int_id ;
9200: END LOOP;
9201:
9202: -- Standard End of Procedure/Function Logging
9203: INL_LOGGING_PVT.Log_EndProc(
9204: p_module_name => g_module_name,
9205: p_procedure_name => l_program_name);
9206: EXCEPTION
9207: WHEN L_FND_EXC_ERROR THEN
9205: p_procedure_name => l_program_name);
9206: EXCEPTION
9207: WHEN L_FND_EXC_ERROR THEN
9208: -- Standard Expected Error Logging
9209: INL_LOGGING_PVT.Log_ExpecError (
9210: p_module_name => g_module_name,
9211: p_procedure_name => l_program_name);
9212: x_return_status := L_FND_RET_STS_ERROR;
9213: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9211: p_procedure_name => l_program_name);
9212: x_return_status := L_FND_RET_STS_ERROR;
9213: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9214: -- Standard Unexpected Error Logging
9215: INL_LOGGING_PVT.Log_UnexpecError (
9216: p_module_name => g_module_name,
9217: p_procedure_name => l_program_name);
9218: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9219: WHEN OTHERS THEN
9217: p_procedure_name => l_program_name);
9218: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9219: WHEN OTHERS THEN
9220: -- Standard Unexpected Error Logging
9221: INL_LOGGING_PVT.Log_UnexpecError (
9222: p_module_name => g_module_name,
9223: p_procedure_name => l_program_name);
9224: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9225: IF FND_MSG_PUB.Check_Msg_Level(
9259: l_debug_info VARCHAR2(2000);
9260: l_return_status VARCHAR2(1);
9261: BEGIN
9262: -- Standard Beginning of Procedure/Function Logging
9263: INL_LOGGING_PVT.Log_BeginProc(
9264: p_module_name => g_module_name,
9265: p_procedure_name => l_program_name) ;
9266:
9267: -- Initialize API return status to success
9266:
9267: -- Initialize API return status to success
9268: x_return_status := L_FND_RET_STS_SUCCESS;
9269:
9270: INL_LOGGING_PVT.Log_Variable(
9271: p_module_name => g_module_name,
9272: p_procedure_name => l_program_name,
9273: p_var_name => 'ship_header_int_id',
9274: p_var_value => x_ship_hdr_int_rec.ship_header_int_id) ;
9286: END IF;
9287: END IF;
9288: ELSIF x_ship_hdr_int_rec.transaction_type = 'UPDATE' THEN
9289: l_debug_info := 'Updating the Shipment Header';
9290: INL_LOGGING_PVT.Log_Statement(
9291: p_module_name => g_module_name,
9292: p_procedure_name => l_program_name,
9293: p_debug_info => l_debug_info) ;
9294:
9327: attribute15 = NVL(x_ship_hdr_int_rec.attribute15 ,sh.attribute15)
9328: WHERE ship_header_id = x_ship_hdr_int_rec .ship_header_id;
9329: ELSIF x_ship_hdr_int_rec.transaction_type = 'CREATE' THEN
9330: l_debug_info := 'Check if Shipment Number setup is AUTOMATIC or MANUAL';
9331: INL_LOGGING_PVT.Log_Statement(
9332: p_module_name => g_module_name,
9333: p_procedure_name => l_program_name,
9334: p_debug_info => l_debug_info) ;
9335: -- Check if Shipment Number is setup as(AUTOMATIC or MANUAL)
9342: FROM inl_parameters
9343: WHERE organization_id = x_ship_hdr_int_rec.organization_id
9344: FOR UPDATE OF next_ship_num;
9345:
9346: INL_LOGGING_PVT.Log_Variable(
9347: p_module_name => g_module_name,
9348: p_procedure_name => l_program_name,
9349: p_var_name => 'l_user_defined_ship_num_code',
9350: p_var_value => l_user_defined_ship_num_code) ;
9348: p_procedure_name => l_program_name,
9349: p_var_name => 'l_user_defined_ship_num_code',
9350: p_var_value => l_user_defined_ship_num_code) ;
9351:
9352: INL_LOGGING_PVT.Log_Variable(
9353: p_module_name => g_module_name,
9354: p_procedure_name => l_program_name,
9355: p_var_name => 'l_next_ship_num',
9356: p_var_value => l_next_ship_num) ;
9354: p_procedure_name => l_program_name,
9355: p_var_name => 'l_next_ship_num',
9356: p_var_value => l_next_ship_num) ;
9357:
9358: INL_LOGGING_PVT.Log_Variable(
9359: p_module_name => g_module_name,
9360: p_procedure_name => l_program_name,
9361: p_var_name => 'x_ship_hdr_int_rec.ship_header_id',
9362: p_var_value => x_ship_hdr_int_rec.ship_header_id) ;
9361: p_var_name => 'x_ship_hdr_int_rec.ship_header_id',
9362: p_var_value => x_ship_hdr_int_rec.ship_header_id) ;
9363:
9364: l_debug_info := 'Setting the next Shipment Number in INL_PARAMETERS';
9365: INL_LOGGING_PVT.Log_Statement(
9366: p_module_name => g_module_name,
9367: p_procedure_name => l_program_name,
9368: p_debug_info => l_debug_info) ;
9369:
9379: WHERE organization_id = x_ship_hdr_int_rec.organization_id;
9380: ELSIF l_user_defined_ship_num_code = 'MANUAL' THEN
9381: l_ship_num := x_ship_hdr_int_rec.ship_num;
9382: l_debug_info := 'Ship Number is MANUAL: ' || l_ship_num;
9383: INL_LOGGING_PVT.Log_Statement(
9384: p_module_name => g_module_name,
9385: p_procedure_name => l_program_name,
9386: p_debug_info => l_debug_info) ;
9387: ELSIF p_simulation_id IS NOT NULL THEN
9386: p_debug_info => l_debug_info) ;
9387: ELSIF p_simulation_id IS NOT NULL THEN
9388: l_ship_num := x_ship_hdr_int_rec.ship_num;
9389: l_debug_info := 'Ship Number for a Simulated Shipment: ' || l_ship_num;
9390: INL_LOGGING_PVT.Log_Statement(
9391: p_module_name => g_module_name,
9392: p_procedure_name => l_program_name,
9393: p_debug_info => l_debug_info) ;
9394: END IF;
9392: p_procedure_name => l_program_name,
9393: p_debug_info => l_debug_info) ;
9394: END IF;
9395:
9396: INL_LOGGING_PVT.Log_Variable(
9397: p_module_name => g_module_name,
9398: p_procedure_name => l_program_name,
9399: p_var_name => 'l_ship_num',
9400: p_var_value => l_ship_num) ;
9399: p_var_name => 'l_ship_num',
9400: p_var_value => l_ship_num) ;
9401:
9402: l_debug_info := 'Insert into Shipment Headers table';
9403: INL_LOGGING_PVT.Log_Statement(
9404: p_module_name => g_module_name,
9405: p_procedure_name => l_program_name,
9406: p_debug_info => l_debug_info) ;
9407:
9404: p_module_name => g_module_name,
9405: p_procedure_name => l_program_name,
9406: p_debug_info => l_debug_info) ;
9407:
9408: INL_LOGGING_PVT.Log_Variable(
9409: p_module_name => g_module_name,
9410: p_procedure_name => l_program_name,
9411: p_var_name => 'rcv_enabled_flag',
9412: p_var_value => x_ship_hdr_int_rec.rcv_enabled_flag);
9509: -- Bug 16310024
9510: x_ship_hdr_int_rec.ship_num := l_ship_num;
9511:
9512: -- Standard End of Procedure/Function Logging
9513: INL_LOGGING_PVT.Log_EndProc(
9514: p_module_name => g_module_name,
9515: p_procedure_name => l_program_name);
9516: EXCEPTION
9517: WHEN L_FND_EXC_ERROR THEN
9515: p_procedure_name => l_program_name);
9516: EXCEPTION
9517: WHEN L_FND_EXC_ERROR THEN
9518: -- Standard Expected Error Logging
9519: INL_LOGGING_PVT.Log_ExpecError (
9520: p_module_name => g_module_name,
9521: p_procedure_name => l_program_name);
9522: x_return_status := L_FND_RET_STS_ERROR;
9523: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9521: p_procedure_name => l_program_name);
9522: x_return_status := L_FND_RET_STS_ERROR;
9523: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9524: -- Standard Unexpected Error Logging
9525: INL_LOGGING_PVT.Log_UnexpecError (
9526: p_module_name => g_module_name,
9527: p_procedure_name => l_program_name);
9528: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9529: WHEN OTHERS THEN
9527: p_procedure_name => l_program_name);
9528: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9529: WHEN OTHERS THEN
9530: -- Standard Unexpected Error Logging
9531: INL_LOGGING_PVT.Log_UnexpecError (
9532: p_module_name => g_module_name,
9533: p_procedure_name => l_program_name);
9534: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9535: IF FND_MSG_PUB.Check_Msg_Level(
9572: l_debug_info VARCHAR2(2000) ;
9573: l_return_status VARCHAR2(1) ;
9574: BEGIN
9575: -- Standard Beginning of Procedure/Function Logging
9576: INL_LOGGING_PVT.Log_BeginProc(
9577: p_module_name => g_module_name,
9578: p_procedure_name => l_program_name) ;
9579: -- Initialize API return status to success
9580: x_return_status := L_FND_RET_STS_SUCCESS;
9579: -- Initialize API return status to success
9580: x_return_status := L_FND_RET_STS_SUCCESS;
9581: -- Include the lines with transaction_type = 'CREATE'
9582: l_debug_info := 'Deriving Existing_Match_Info_Flag';
9583: INL_LOGGING_PVT.Log_Statement(
9584: p_module_name => g_module_name,
9585: p_procedure_name => l_program_name,
9586: p_debug_info => l_debug_info
9587: ) ;
9598: ELSE
9599: x_existing_match_info_flag:='N';
9600: END IF;
9601: -- Standard End of Procedure/Function Logging
9602: INL_LOGGING_PVT.Log_EndProc(
9603: p_module_name => g_module_name,
9604: p_procedure_name => l_program_name
9605: );
9606: EXCEPTION
9605: );
9606: EXCEPTION
9607: WHEN L_FND_EXC_ERROR THEN
9608: -- Standard Expected Error Logging
9609: INL_LOGGING_PVT.Log_ExpecError (
9610: p_module_name => g_module_name,
9611: p_procedure_name => l_program_name
9612: );
9613: x_return_status := L_FND_RET_STS_ERROR;
9612: );
9613: x_return_status := L_FND_RET_STS_ERROR;
9614: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9615: -- Standard Unexpected Error Logging
9616: INL_LOGGING_PVT.Log_UnexpecError (
9617: p_module_name => g_module_name,
9618: p_procedure_name => l_program_name
9619: );
9620: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9619: );
9620: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9621: WHEN OTHERS THEN
9622: -- Standard Unexpected Error Logging
9623: INL_LOGGING_PVT.Log_UnexpecError (
9624: p_module_name => g_module_name,
9625: p_procedure_name => l_program_name
9626: );
9627: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9713: l_currency_conversion_rate NUMBER;
9714:
9715: BEGIN
9716: -- Standard Beginning of Procedure/Function Logging
9717: INL_LOGGING_PVT.Log_BeginProc(
9718: p_module_name => g_module_name,
9719: p_procedure_name => l_program_name) ;
9720:
9721: -- Initialize API return status to success
9721: -- Initialize API return status to success
9722: x_return_status := L_FND_RET_STS_SUCCESS;
9723: -- Include the lines with transaction_type = 'CREATE'
9724: l_debug_info := 'Include the lines with transaction_type = CREATE';
9725: INL_LOGGING_PVT.Log_Statement(
9726: p_module_name => g_module_name,
9727: p_procedure_name => l_program_name,
9728: p_debug_info => l_debug_info
9729: ) ;
9767: AND d.invoice_line_number = l.line_number
9768: ;
9769:
9770: l_debug_info := 'Getting from inl_corr_matches_v the current value for transaction.';
9771: INL_LOGGING_PVT.Log_Statement(
9772: p_module_name => g_module_name,
9773: p_procedure_name => l_program_name,
9774: p_debug_info => l_debug_info
9775: );
9776:
9777: IF p_match_type_code = 'CORRECTION'
9778: THEN
9779: l_debug_info := 'Is a correction. Type: '||l_match_type;
9780: INL_LOGGING_PVT.Log_Statement(
9781: p_module_name => g_module_name,
9782: p_procedure_name => l_program_name,
9783: p_debug_info => l_debug_info) ;
9784:
9901: ;
9902: END IF;
9903:
9904: l_debug_info := 'match_type: '||l_match_type;
9905: INL_LOGGING_PVT.Log_Statement(
9906: p_module_name => g_module_name,
9907: p_procedure_name => l_program_name,
9908: p_debug_info => l_debug_info
9909: );
9965:
9966: IF l_mat_curr_code_P <> x_matched_curr_code THEN
9967: --correction
9968: l_debug_info := 'conversion required.';
9969: INL_LOGGING_PVT.Log_Statement(
9970: p_module_name => g_module_name,
9971: p_procedure_name => l_program_name,
9972: p_debug_info => l_debug_info
9973: );
9981: )
9982: ;
9983: IF NVL(x_nrec_tax_amt, 0) <> 0 THEN
9984: l_debug_info := 'conversion required for Not recoverable tax.';
9985: INL_LOGGING_PVT.Log_Statement(
9986: p_module_name => g_module_name,
9987: p_procedure_name => l_program_name,
9988: p_debug_info => l_debug_info
9989: );
10057: WHERE match_id = l_mat_par_mat_id_P;
10058: END IF;
10059: --
10060: -- Standard End of Procedure/Function Logging
10061: INL_LOGGING_PVT.Log_EndProc(
10062: p_module_name => g_module_name,
10063: p_procedure_name => l_program_name
10064: );
10065: EXCEPTION
10064: );
10065: EXCEPTION
10066: WHEN L_FND_EXC_ERROR THEN
10067: -- Standard Expected Error Logging
10068: INL_LOGGING_PVT.Log_ExpecError (
10069: p_module_name => g_module_name,
10070: p_procedure_name => l_program_name
10071: );
10072: x_return_status := L_FND_RET_STS_ERROR;
10071: );
10072: x_return_status := L_FND_RET_STS_ERROR;
10073: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10074: -- Standard Unexpected Error Logging
10075: INL_LOGGING_PVT.Log_UnexpecError (
10076: p_module_name => g_module_name,
10077: p_procedure_name => l_program_name
10078: );
10079: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10078: );
10079: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10080: WHEN OTHERS THEN
10081: -- Standard Unexpected Error Logging
10082: INL_LOGGING_PVT.Log_UnexpecError (
10083: p_module_name => g_module_name,
10084: p_procedure_name => l_program_name
10085: );
10086: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10155:
10156: l_count_unproc_match NUMBER; --Bug#14044298
10157: BEGIN
10158: -- Standard Beginning of Procedure/Function Logging
10159: INL_LOGGING_PVT.Log_BeginProc(
10160: p_module_name => g_module_name,
10161: p_procedure_name => l_program_name
10162: ) ;
10163: -- Initialize API return status to success
10162: ) ;
10163: -- Initialize API return status to success
10164: x_return_status := L_FND_RET_STS_SUCCESS;
10165: l_debug_info := 'Processing Match Amounts';
10166: INL_LOGGING_PVT.Log_Statement(
10167: p_module_name => g_module_name,
10168: p_procedure_name => l_program_name,
10169: p_debug_info => l_debug_info
10170: ) ;
10173: OPEN c_prorates_affctdByItem;
10174: FETCH c_prorates_affctdByItem BULK COLLECT INTO prorates_affctdByItem_lin;
10175: CLOSE c_prorates_affctdByItem;
10176: l_debug_info := prorates_affctdByItem_lin.COUNT||' lines have been retrieved.';
10177: INL_LOGGING_PVT.Log_Statement (
10178: p_module_name => g_module_name,
10179: p_procedure_name => l_program_name,
10180: p_debug_info => l_debug_info
10181: ) ;
10181: ) ;
10182: FOR i IN 1 .. prorates_affctdByItem_lin.COUNT
10183: LOOP
10184: l_debug_info := 'Updating : '||prorates_affctdByItem_lin(i).ship_header_id;
10185: INL_LOGGING_PVT.Log_Statement (
10186: p_module_name => g_module_name,
10187: p_procedure_name => l_program_name,
10188: p_debug_info => l_debug_info
10189: ) ;
10204:
10205: --Bug#14044298 BEGING
10206:
10207: l_debug_info := 'Verify if call to Adjust Lines is required';
10208: INL_LOGGING_PVT.Log_Statement (
10209: p_module_name => g_module_name,
10210: p_procedure_name => l_program_name,
10211: p_debug_info => l_debug_info
10212: ) ;
10216: WHERE m.ship_header_id = p_ship_header_id
10217: AND NVL(m.adj_already_generated_flag, 'N') = 'N';
10218:
10219: l_debug_info := p_ship_header_id||' => '|| l_count_unproc_match ||' unprocessed match(es) ';
10220: INL_LOGGING_PVT.Log_Statement (
10221: p_module_name => g_module_name,
10222: p_procedure_name => l_program_name,
10223: p_debug_info => l_debug_info
10224: ) ;
10224: ) ;
10225: IF NVL(l_count_unproc_match,0) > 0 THEN
10226: --Bug#14044298 END
10227: l_debug_info := 'Run INL_SHIPMENT_PVT.Adjust_Lines';
10228: INL_LOGGING_PVT.Log_Statement (
10229: p_module_name => g_module_name,
10230: p_procedure_name => l_program_name,
10231: p_debug_info => l_debug_info
10232: ) ;
10249: END IF;
10250: END IF;
10251: --
10252: -- Standard End of Procedure/Function Logging
10253: INL_LOGGING_PVT.Log_EndProc(
10254: p_module_name => g_module_name,
10255: p_procedure_name => l_program_name
10256: );
10257: EXCEPTION
10256: );
10257: EXCEPTION
10258: WHEN L_FND_EXC_ERROR THEN
10259: -- Standard Expected Error Logging
10260: INL_LOGGING_PVT.Log_ExpecError (
10261: p_module_name => g_module_name,
10262: p_procedure_name => l_program_name
10263: );
10264: x_return_status := L_FND_RET_STS_ERROR;
10263: );
10264: x_return_status := L_FND_RET_STS_ERROR;
10265: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10266: -- Standard Unexpected Error Logging
10267: INL_LOGGING_PVT.Log_UnexpecError (
10268: p_module_name => g_module_name,
10269: p_procedure_name => l_program_name
10270: );
10271: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10270: );
10271: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10272: WHEN OTHERS THEN
10273: -- Standard Unexpected Error Logging
10274: INL_LOGGING_PVT.Log_UnexpecError (
10275: p_module_name => g_module_name,
10276: p_procedure_name => l_program_name
10277: );
10278: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10485: l_lock_error BOOLEAN := FALSE;
10486:
10487: BEGIN
10488: -- Standard Beginning of Procedure/Function Logging
10489: INL_LOGGING_PVT.Log_BeginProc(
10490: p_module_name => g_module_name,
10491: p_procedure_name => l_program_name
10492: ) ;
10493: -- Initialize API return status to success
10492: ) ;
10493: -- Initialize API return status to success
10494: x_return_status := L_FND_RET_STS_SUCCESS;
10495: l_debug_info := 'Processing Match Amounts';
10496: INL_LOGGING_PVT.Log_Statement(
10497: p_module_name => g_module_name,
10498: p_procedure_name => l_program_name,
10499: p_debug_info => l_debug_info
10500: ) ;
10498: p_procedure_name => l_program_name,
10499: p_debug_info => l_debug_info
10500: ) ;
10501: l_current_org_id := NVL(l_previous_org_id,-999);--Bug#10381495
10502: INL_LOGGING_PVT.Log_Variable(
10503: p_module_name => g_module_name,
10504: p_procedure_name => l_program_name,
10505: p_var_name => 'l_current_org_id',
10506: p_var_value => l_current_org_id
10510: OPEN c_distgroupid (l_initial_sysdate);
10511: FETCH c_distgroupid BULK COLLECT INTO distgroupid_List;
10512: CLOSE c_distgroupid;
10513: l_debug_info := 'Fetched '||NVL(distgroupid_List.COUNT, 0)||' groups.';
10514: INL_LOGGING_PVT.Log_Statement(
10515: p_module_name => g_module_name,
10516: p_procedure_name => l_program_name,
10517: p_debug_info => l_debug_info
10518: ) ;
10519:
10520: FOR iGroup IN 1 .. distgroupid_List.COUNT
10521: LOOP
10522: l_debug_info := 'Processing Group_id: '||distgroupid_List(iGroup).group_id;
10523: INL_LOGGING_PVT.Log_Statement(
10524: p_module_name => g_module_name,
10525: p_procedure_name => l_program_name,
10526: p_debug_info => l_debug_info
10527: ) ;
10529: SAVEPOINT Import_MatchbyGroupId;
10530:
10531: -- SCM-051 Get Ship Header Id for p_group_id
10532: l_debug_info := 'Get lock for shipments Group_id: '||distgroupid_List(iGroup).group_id;
10533: INL_LOGGING_PVT.Log_Statement(
10534: p_module_name => g_module_name,
10535: p_procedure_name => l_program_name,
10536: p_debug_info => l_debug_info) ;
10537:
10543: EXCEPTION
10544: --Handling deadlock with proper error message
10545: WHEN RESOURCE_BUSY THEN
10546: l_debug_info := 'Record for group_id ' || distgroupid_List(iGroup).group_id || 'cannot be reserved for update. It has already been reserved by another user.';
10547: INL_LOGGING_PVT.Log_Statement(
10548: p_module_name => g_module_name,
10549: p_procedure_name => l_program_name,
10550: p_debug_info => l_debug_info);
10551:
10574: l_g_records_inserted_bkp:= nvl(g_records_inserted,0);
10575: --Bug#11794442 End
10576:
10577: l_debug_info := 'Openning Match Amounts Cursor: ';
10578: INL_LOGGING_PVT.Log_Statement(
10579: p_module_name => g_module_name,
10580: p_procedure_name => l_program_name,
10581: p_debug_info => l_debug_info
10582: ) ;
10584: OPEN matchAmountsToProcess (l_initial_sysdate,distgroupid_List(iGroup).group_id);
10585: FETCH matchAmountsToProcess BULK COLLECT INTO matchAmountsToProcess_List;
10586: CLOSE matchAmountsToProcess;
10587: l_debug_info := 'Fetched '||NVL(matchAmountsToProcess_List.COUNT, 0)||' records.';
10588: INL_LOGGING_PVT.Log_Statement(
10589: p_module_name => g_module_name,
10590: p_procedure_name => l_program_name,
10591: p_debug_info => l_debug_info
10592: ) ;
10593:
10594: FOR iMatch IN 1 .. matchAmountsToProcess_List.COUNT
10595: LOOP
10596: l_debug_info := 'Processing Match Amount: '||iMatch;
10597: INL_LOGGING_PVT.Log_Statement(
10598: p_module_name => g_module_name,
10599: p_procedure_name => l_program_name,
10600: p_debug_info => l_debug_info
10601: ) ;
10601: ) ;
10602:
10603: IF matchAmountsToProcess_List(iMatch).transaction_type <> 'CREATE' THEN
10604: l_debug_info := 'Transaction_type '||matchAmountsToProcess_List(iMatch).transaction_type||'not supported.';
10605: INL_LOGGING_PVT.Log_Statement(
10606: p_module_name => g_module_name,
10607: p_procedure_name => l_program_name,
10608: p_debug_info => l_debug_info
10609: ) ;
10613: SELECT inl_match_Amounts_s.NEXTVAL
10614: INTO matchAmountsToProcess_List(iMatch).new_match_Amount_id
10615: FROM dual; -- BUG#8411723 => MURALI
10616:
10617: INL_LOGGING_PVT.Log_Variable(
10618: p_module_name => g_module_name,
10619: p_procedure_name => l_program_name,
10620: p_var_name => 'matchAmountsToProcess_List(iMatch).new_match_Amount_id',
10621: p_var_value => matchAmountsToProcess_List(iMatch).new_match_Amount_id
10670: END IF;
10671: END LOOP;
10672:
10673: l_debug_info := 'Processing Matches';
10674: INL_LOGGING_PVT.Log_Statement(
10675: p_module_name => g_module_name,
10676: p_procedure_name => l_program_name,
10677: p_debug_info => l_debug_info
10678: ) ;
10743: RAISE L_FND_EXC_UNEXPECTED_ERROR;
10744: END IF;
10745: END IF;
10746: l_debug_info := 'Processing Match: '||iMatch||'('||matchesToProcess_List(iMatch) .transaction_type||')';
10747: INL_LOGGING_PVT.Log_Statement(
10748: p_module_name => g_module_name,
10749: p_procedure_name => l_program_name,
10750: p_debug_info => l_debug_info
10751: ) ;
10749: p_procedure_name => l_program_name,
10750: p_debug_info => l_debug_info
10751: ) ;
10752:
10753: INL_LOGGING_PVT.Log_Variable(
10754: p_module_name => g_module_name,
10755: p_procedure_name => l_program_name,
10756: p_var_name => 'matchesToProcess_List(iMatch).match_int_id',
10757: p_var_value => matchesToProcess_List(iMatch).match_int_id
10757: p_var_value => matchesToProcess_List(iMatch).match_int_id
10758: ) ;
10759: IF matchesToProcess_List(iMatch) .transaction_type <> 'CREATE' THEN
10760: l_debug_info := 'Transaction_type '||matchesToProcess_List(iMatch) .transaction_type||'not supported.';
10761: INL_LOGGING_PVT.Log_Statement(
10762: p_module_name => g_module_name,
10763: p_procedure_name => l_program_name,
10764: p_debug_info => l_debug_info
10765: ) ;
10856: L_FND_LOGIN_ID /* 35 */
10857: );
10858:
10859: l_debug_info := 'Call Set LCM Shipment pending_matching_flag to Y rotine';
10860: INL_LOGGING_PVT.Log_Statement(
10861: p_module_name => g_module_name,
10862: p_procedure_name => l_program_name,
10863: p_debug_info => l_debug_info
10864: );
10876: END IF;
10877:
10878: END IF;
10879: l_debug_info := 'Set Shipment Line Interface status and imported Ids';
10880: INL_LOGGING_PVT.Log_Statement(
10881: p_module_name => g_module_name,
10882: p_procedure_name => l_program_name,
10883: p_debug_info => l_debug_info
10884: ) ;
10909: -- Generate Adjust Lines
10910: -- BUG#8198498 we have to change the order and the adjustment lines
10911: -- have been generated before the submit action
10912: l_debug_info := 'Generate Adjustment Lines';
10913: INL_LOGGING_PVT.Log_Statement(
10914: p_module_name => g_module_name,
10915: p_procedure_name => l_program_name,
10916: p_debug_info => l_debug_info
10917: );
10915: p_procedure_name => l_program_name,
10916: p_debug_info => l_debug_info
10917: );
10918:
10919: INL_LOGGING_PVT.Log_Statement(
10920: p_module_name => g_module_name,
10921: p_procedure_name => l_program_name,
10922: p_debug_info => 'Comparing l_current_org_id: '||l_current_org_id||' with matchesToProcess_List(iMatch).org_id:'||matchesToProcess_List(iMatch).org_id
10923: );
10922: p_debug_info => 'Comparing l_current_org_id: '||l_current_org_id||' with matchesToProcess_List(iMatch).org_id:'||matchesToProcess_List(iMatch).org_id
10923: );
10924: --Bug#10381495
10925: IF (l_current_org_id <> matchesToProcess_List(iMatch).org_id) THEN
10926: INL_LOGGING_PVT.Log_Statement(
10927: p_module_name => g_module_name,
10928: p_procedure_name => l_program_name,
10929: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||matchesToProcess_List(iMatch).org_id
10930: );
10929: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||matchesToProcess_List(iMatch).org_id
10930: );
10931: mo_global.set_policy_context( 'S', matchesToProcess_List(iMatch).org_id);
10932: l_current_org_id := matchesToProcess_List(iMatch).org_id;
10933: INL_LOGGING_PVT.Log_Statement(
10934: p_module_name => g_module_name,
10935: p_procedure_name => l_program_name,
10936: p_debug_info => 'l_current_org_id: '||l_current_org_id
10937: );
10955: END IF;
10956: END LOOP;
10957: --Bug#10381495
10958: IF (l_current_org_id <> NVL(l_previous_org_id,l_current_org_id)) THEN --Bug#11931295
10959: INL_LOGGING_PVT.Log_Statement(
10960: p_module_name => g_module_name,
10961: p_procedure_name => l_program_name,
10962: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
10963: );
10971: WHEN OTHERS THEN
10972: ROLLBACK TO Import_MatchbyGroupId;
10973: g_records_inserted := l_g_records_inserted_bkp;
10974: l_debug_info := 'Set Interface Status to ERROR for group id(1): '||distgroupid_List(iGroup).group_id||sqlerrm; --Bug#14044298
10975: INL_LOGGING_PVT.Log_Statement(
10976: p_module_name => g_module_name,
10977: p_procedure_name => l_program_name,
10978: p_debug_info => l_debug_info
10979: );
10994: --Bug#11794442 End
10995: END LOOP;
10996: --Bug#14707257/16198838 Begin
10997: IF (l_current_org_id <> NVL(l_previous_org_id,l_current_org_id)) THEN --Bug#11931295
10998: INL_LOGGING_PVT.Log_Statement(
10999: p_module_name => g_module_name,
11000: p_procedure_name => l_program_name,
11001: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
11002: );
11010: RAISE L_FND_EXC_ERROR;
11011: END IF;
11012: */
11013: -- Standard End of Procedure/Function Logging
11014: INL_LOGGING_PVT.Log_EndProc(
11015: p_module_name => g_module_name,
11016: p_procedure_name => l_program_name
11017: );
11018: EXCEPTION
11017: );
11018: EXCEPTION
11019: WHEN L_FND_EXC_ERROR THEN
11020: -- Standard Expected Error Logging
11021: INL_LOGGING_PVT.Log_ExpecError (
11022: p_module_name => g_module_name,
11023: p_procedure_name => l_program_name
11024: );
11025: x_return_status := L_FND_RET_STS_ERROR;
11024: );
11025: x_return_status := L_FND_RET_STS_ERROR;
11026: --Bug#10381495
11027: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
11028: INL_LOGGING_PVT.Log_Statement(
11029: p_module_name => g_module_name,
11030: p_procedure_name => l_program_name,
11031: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
11032: );
11034: END IF;
11035: --Bug#10381495
11036: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11037: -- Standard Unexpected Error Logging
11038: INL_LOGGING_PVT.Log_UnexpecError (
11039: p_module_name => g_module_name,
11040: p_procedure_name => l_program_name
11041: );
11042: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11041: );
11042: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11043: --Bug#10381495
11044: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
11045: INL_LOGGING_PVT.Log_Statement(
11046: p_module_name => g_module_name,
11047: p_procedure_name => l_program_name,
11048: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
11049: );
11051: END IF;
11052: --Bug#10381495
11053: WHEN OTHERS THEN
11054: -- Standard Unexpected Error Logging
11055: INL_LOGGING_PVT.Log_UnexpecError (
11056: p_module_name => g_module_name,
11057: p_procedure_name => l_program_name
11058: );
11059: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11066: );
11067: END IF;
11068: --Bug#10381495
11069: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
11070: INL_LOGGING_PVT.Log_Statement(
11071: p_module_name => g_module_name,
11072: p_procedure_name => l_program_name,
11073: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
11074: );
11112: l_return_status VARCHAR2(1) ;
11113: BEGIN
11114:
11115: -- Standard Beginning of Procedure/Function Logging
11116: INL_LOGGING_PVT.Log_BeginProc(
11117: p_module_name => g_module_name,
11118: p_procedure_name => l_program_name
11119: ) ;
11120: -- Initialize API return status to success
11119: ) ;
11120: -- Initialize API return status to success
11121: x_return_status := L_FND_RET_STS_SUCCESS;
11122: l_debug_info := 'Derive values for Match Lines';
11123: INL_LOGGING_PVT.Log_Statement(
11124: p_module_name => g_module_name,
11125: p_procedure_name => l_program_name,
11126: p_debug_info => l_debug_info
11127: ) ;
11163: ;
11164: END IF;
11165:
11166: -- Standard End of Procedure/Function Logging
11167: INL_LOGGING_PVT.Log_EndProc(
11168: p_module_name => g_module_name,
11169: p_procedure_name => l_program_name
11170: );
11171: EXCEPTION
11170: );
11171: EXCEPTION
11172: WHEN L_FND_EXC_ERROR THEN
11173: -- Standard Expected Error Logging
11174: INL_LOGGING_PVT.Log_ExpecError (
11175: p_module_name => g_module_name,
11176: p_procedure_name => l_program_name
11177: );
11178: x_return_status := L_FND_RET_STS_ERROR;
11177: );
11178: x_return_status := L_FND_RET_STS_ERROR;
11179: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11180: -- Standard Unexpected Error Logging
11181: INL_LOGGING_PVT.Log_UnexpecError (
11182: p_module_name => g_module_name,
11183: p_procedure_name => l_program_name
11184: );
11185: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11184: );
11185: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11186: WHEN OTHERS THEN
11187: -- Standard Unexpected Error Logging
11188: INL_LOGGING_PVT.Log_UnexpecError (
11189: p_module_name => g_module_name,
11190: p_procedure_name => l_program_name
11191: );
11192: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11232: l_allocation_basis VARCHAR2(30);
11233: l_allocation_basis_uom_class VARCHAR2(30);
11234: BEGIN
11235: -- Standard Beginning of Procedure/Function Logging
11236: INL_LOGGING_PVT.Log_BeginProc(
11237: p_module_name => g_module_name,
11238: p_procedure_name => l_program_name
11239: ) ;
11240: -- Initialize API return status to success
11239: ) ;
11240: -- Initialize API return status to success
11241: x_return_status := L_FND_RET_STS_SUCCESS;
11242: l_debug_info := 'Check if CHARGE_LINE_TYPE_ID is valid';
11243: INL_LOGGING_PVT.Log_Statement(
11244: p_module_name => g_module_name,
11245: p_procedure_name => l_program_name,
11246: p_debug_info => l_debug_info
11247: ) ;
11330: END IF;
11331: END IF;
11332: END IF;
11333: -- Standard End of Procedure/Function Logging
11334: INL_LOGGING_PVT.Log_EndProc(
11335: p_module_name => g_module_name,
11336: p_procedure_name => l_program_name
11337: );
11338: RETURN FND_API.to_boolean(l_result) ;
11338: RETURN FND_API.to_boolean(l_result) ;
11339: EXCEPTION
11340: WHEN L_FND_EXC_ERROR THEN
11341: -- Standard Expected Error Logging
11342: INL_LOGGING_PVT.Log_ExpecError (
11343: p_module_name => g_module_name,
11344: p_procedure_name => l_program_name
11345: );
11346: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11345: );
11346: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11347: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11348: -- Standard Unexpected Error Logging
11349: INL_LOGGING_PVT.Log_UnexpecError (
11350: p_module_name => g_module_name,
11351: p_procedure_name => l_program_name
11352: );
11353: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11352: );
11353: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11354: WHEN OTHERS THEN
11355: -- Standard Unexpected Error Logging
11356: INL_LOGGING_PVT.Log_UnexpecError (
11357: p_module_name => g_module_name,
11358: p_procedure_name => l_program_name
11359: );
11360: IF FND_MSG_PUB.Check_Msg_Level(
11397: l_return_status VARCHAR2(1) ;
11398: l_result VARCHAR2(1) := L_FND_TRUE;
11399: BEGIN
11400: -- Standard Beginning of Procedure/Function Logging
11401: INL_LOGGING_PVT.Log_BeginProc(
11402: p_module_name => g_module_name,
11403: p_procedure_name => l_program_name
11404: ) ;
11405: -- Initialize API return status to success
11404: ) ;
11405: -- Initialize API return status to success
11406: x_return_status := L_FND_RET_STS_SUCCESS;
11407: l_debug_info := 'Check if replace_estim_qty_flag = "Y" and it is not about an ITEM match';
11408: INL_LOGGING_PVT.Log_Statement(
11409: p_module_name => g_module_name,
11410: p_procedure_name => l_program_name,
11411: p_debug_info => l_debug_info
11412: ) ;
11429: END IF;
11430: END IF;
11431: END IF;
11432: -- Standard End of Procedure/Function Logging
11433: INL_LOGGING_PVT.Log_EndProc(
11434: p_module_name => g_module_name,
11435: p_procedure_name => l_program_name
11436: );
11437: RETURN FND_API.to_boolean(l_result) ;
11437: RETURN FND_API.to_boolean(l_result) ;
11438: EXCEPTION
11439: WHEN L_FND_EXC_ERROR THEN
11440: -- Standard Expected Error Logging
11441: INL_LOGGING_PVT.Log_ExpecError (
11442: p_module_name => g_module_name,
11443: p_procedure_name => l_program_name
11444: );
11445: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11444: );
11445: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11446: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11447: -- Standard Unexpected Error Logging
11448: INL_LOGGING_PVT.Log_UnexpecError (
11449: p_module_name => g_module_name,
11450: p_procedure_name => l_program_name
11451: );
11452: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11451: );
11452: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11453: WHEN OTHERS THEN
11454: -- Standard Unexpected Error Logging
11455: INL_LOGGING_PVT.Log_UnexpecError (
11456: p_module_name => g_module_name,
11457: p_procedure_name => l_program_name
11458: );
11459: IF FND_MSG_PUB.Check_Msg_Level(
11563: OI_matches_UOM_code VARCHAR2(3);
11564: OI_match_type_code VARCHAR2(30);
11565: BEGIN
11566: -- Standard Beginning of Procedure/Function Logging
11567: INL_LOGGING_PVT.Log_BeginProc(
11568: p_module_name => g_module_name,
11569: p_procedure_name => l_program_name
11570: ) ;
11571: -- Initialize API return status to success
11573: -- Get ship_header_id and the ship_line_num from Shipment Lines table
11574: -- to be used as criteria in the search for estimated values(Adjustment View)
11575: -- Get Organization_Id for UOM conversion purpose
11576: l_debug_info := 'Getting: Organization_Id, Inventory_item_id and transaction qty and uom ';
11577: INL_LOGGING_PVT.Log_Statement(
11578: p_module_name => g_module_name,
11579: p_procedure_name => l_program_name,
11580: p_debug_info => l_debug_info
11581: ) ;
11610: INTO l_organization_id
11611: FROM inl_ship_headers sh
11612: WHERE sh.ship_header_id = l_ship_header_id;
11613: l_debug_info := 'Get from Adjustment View the TXN_QTY and TXN_UOM_CODE';
11614: INL_LOGGING_PVT.Log_Statement(
11615: p_module_name => g_module_name,
11616: p_procedure_name => l_program_name,
11617: p_debug_info => l_debug_info
11618: ) ;
11625: AND sla.ship_line_group_id = l_ship_line_group_id
11626: AND sla.ship_line_num = l_ship_line_num;
11627: */
11628:
11629: INL_LOGGING_PVT.Log_Variable(
11630: p_module_name => g_module_name,
11631: p_procedure_name => l_program_name,
11632: p_var_name => 'l_qty',
11633: p_var_value => l_qty
11631: p_procedure_name => l_program_name,
11632: p_var_name => 'l_qty',
11633: p_var_value => l_qty
11634: ) ;
11635: INL_LOGGING_PVT.Log_Variable(
11636: p_module_name => g_module_name,
11637: p_procedure_name => l_program_name,
11638: p_var_name => 'l_UOM_code',
11639: p_var_value => l_UOM_code
11641: -- Check if there is any match line as
11642: -- replace_estim_qty_flag = 'Y' and adj_already_generated_flag = 'N'
11643: -- In this case it will affect the estimated quantity when processed
11644: l_debug_info := 'Get values from unprocessed matches';
11645: INL_LOGGING_PVT.Log_Statement(
11646: p_module_name => g_module_name,
11647: p_procedure_name => l_program_name,
11648: p_debug_info => l_debug_info
11649: ) ;
11673: ;
11674: l_qty := l_unproc_actual_qty;
11675: l_UOM_code := l_unproc_UOM_code;
11676: l_debug_info := 'Unprocessed value as replace_estim_qty_flag = Y:';
11677: INL_LOGGING_PVT.Log_Statement(
11678: p_module_name => g_module_name,
11679: p_procedure_name => l_program_name,
11680: p_debug_info => l_debug_info
11681: ) ;
11678: p_module_name => g_module_name,
11679: p_procedure_name => l_program_name,
11680: p_debug_info => l_debug_info
11681: ) ;
11682: INL_LOGGING_PVT.Log_Variable(
11683: p_module_name => g_module_name,
11684: p_procedure_name => l_program_name,
11685: p_var_name => 'l_qty',
11686: p_var_value => l_qty
11684: p_procedure_name => l_program_name,
11685: p_var_name => 'l_qty',
11686: p_var_value => l_qty
11687: ) ;
11688: INL_LOGGING_PVT.Log_Variable(
11689: p_module_name => g_module_name,
11690: p_procedure_name => l_program_name,
11691: p_var_name => 'l_uom_code',
11692: p_var_value => l_uom_code
11694: IF p_updated_match_id = l_unproc_match_id THEN
11695: l_qty := p_matched_qty;
11696: l_UOM_code := p_matched_uom_code;
11697: l_debug_info := 'Unprocessed value will be updated by the current record(replace_estim_qty_flag = Y):';
11698: INL_LOGGING_PVT.Log_Statement(
11699: p_module_name => g_module_name,
11700: p_procedure_name => l_program_name,
11701: p_debug_info => l_debug_info
11702: ) ;
11699: p_module_name => g_module_name,
11700: p_procedure_name => l_program_name,
11701: p_debug_info => l_debug_info
11702: ) ;
11703: INL_LOGGING_PVT.Log_Variable(
11704: p_module_name => g_module_name,
11705: p_procedure_name => l_program_name,
11706: p_var_name => 'l_qty',
11707: p_var_value => l_qty
11705: p_procedure_name => l_program_name,
11706: p_var_name => 'l_qty',
11707: p_var_value => l_qty
11708: ) ;
11709: INL_LOGGING_PVT.Log_Variable(
11710: p_module_name => g_module_name,
11711: p_procedure_name => l_program_name,
11712: p_var_name => 'l_UOM_code',
11713: p_var_value => l_UOM_code
11719: END;
11720: -- Check if there is any match line as
11721: -- replace_estim_qty_flag = 'N' and adj_already_generated_flag = 'N'
11722: l_debug_info := 'Get actual values from unprocessed matches';
11723: INL_LOGGING_PVT.Log_Statement(
11724: p_module_name => g_module_name,
11725: p_procedure_name => l_program_name,
11726: p_debug_info => l_debug_info
11727: ) ;
11745: AND m1.replace_estim_qty_flag = 'N'
11746: AND m1.adj_already_generated_flag = 'N'
11747: ;
11748: l_debug_info := 'Actuals from unprocessed Matches(replace_estim_qty_flag = N):';
11749: INL_LOGGING_PVT.Log_Statement(
11750: p_module_name => g_module_name,
11751: p_procedure_name => l_program_name,
11752: p_debug_info => l_debug_info
11753: ) ;
11750: p_module_name => g_module_name,
11751: p_procedure_name => l_program_name,
11752: p_debug_info => l_debug_info
11753: ) ;
11754: INL_LOGGING_PVT.Log_Variable(
11755: p_module_name => g_module_name,
11756: p_procedure_name => l_program_name,
11757: p_var_name => 'l_unproc_actual_qty',
11758: p_var_value => l_unproc_actual_qty
11762: WHEN NO_DATA_FOUND THEN
11763: NULL;
11764: END;
11765: l_debug_info := 'Get values from processed matches';
11766: INL_LOGGING_PVT.Log_Statement(
11767: p_module_name => g_module_name,
11768: p_procedure_name => l_program_name,
11769: p_debug_info => l_debug_info
11770: ) ;
11787: END IF;
11788: END IF;
11789: END LOOP;
11790: l_debug_info := 'Actuals from processed matches:';
11791: INL_LOGGING_PVT.Log_Statement(
11792: p_module_name => g_module_name,
11793: p_procedure_name => l_program_name,
11794: p_debug_info => l_debug_info
11795: ) ;
11792: p_module_name => g_module_name,
11793: p_procedure_name => l_program_name,
11794: p_debug_info => l_debug_info
11795: ) ;
11796: INL_LOGGING_PVT.Log_Variable(
11797: p_module_name => g_module_name,
11798: p_procedure_name => l_program_name,
11799: p_var_name => 'l_actual_qty',
11800: p_var_value => l_actual_qty
11799: p_var_name => 'l_actual_qty',
11800: p_var_value => l_actual_qty
11801: ) ;
11802: l_debug_info := 'Get values from not interfaced matches';
11803: INL_LOGGING_PVT.Log_Statement(
11804: p_module_name => g_module_name,
11805: p_procedure_name => l_program_name,
11806: p_debug_info => l_debug_info
11807: ) ;
11812: IF NVL(OI_matches_List.COUNT, 0) > 0 THEN
11813: FOR iMat IN 1 .. OI_matches_List.COUNT
11814: LOOP
11815: l_debug_info := 'Get values from not interfaced matches';
11816: INL_LOGGING_PVT.Log_Statement(
11817: p_module_name => g_module_name,
11818: p_procedure_name => l_program_name,
11819: p_debug_info => l_debug_info
11820: ) ;
11823: IF OI_matches_List(iMat).transaction_type <> 'DELETE' THEN
11824: l_qty := OI_matches_List(iMat) .matched_qty;
11825: l_UOM_code := OI_matches_List(iMat) .matched_UOM_code;
11826: l_debug_info := 'New estimated values from match interface:';
11827: INL_LOGGING_PVT.Log_Statement(
11828: p_module_name => g_module_name,
11829: p_procedure_name => l_program_name,
11830: p_debug_info => l_debug_info
11831: ) ;
11828: p_module_name => g_module_name,
11829: p_procedure_name => l_program_name,
11830: p_debug_info => l_debug_info
11831: ) ;
11832: INL_LOGGING_PVT.Log_Variable(
11833: p_module_name => g_module_name,
11834: p_procedure_name => l_program_name,
11835: p_var_name => 'l_qty',
11836: p_var_value => l_qty
11834: p_procedure_name => l_program_name,
11835: p_var_name => 'l_qty',
11836: p_var_value => l_qty
11837: ) ;
11838: INL_LOGGING_PVT.Log_Variable(
11839: p_module_name => g_module_name,
11840: p_procedure_name => l_program_name,
11841: p_var_name => 'l_uom_code',
11842: p_var_value => l_uom_code
11862: l_actual_qty := NVL(l_actual_qty, 0) + NVL(OI_matches_qty, 0) ;
11863: END IF;
11864: END IF;
11865: l_debug_info := 'End Loop';
11866: INL_LOGGING_PVT.Log_Statement(
11867: p_module_name => g_module_name,
11868: p_procedure_name => l_program_name,
11869: p_debug_info => l_debug_info
11870: );
11867: p_module_name => g_module_name,
11868: p_procedure_name => l_program_name,
11869: p_debug_info => l_debug_info
11870: );
11871: INL_LOGGING_PVT.Log_Variable(
11872: p_module_name => g_module_name,
11873: p_procedure_name => l_program_name,
11874: p_var_name => 'l_actual_qty',
11875: p_var_value => l_actual_qty
11895: END IF;
11896: IF NVL(l_actual_qty, 0) > NVL(l_qty, 0) THEN
11897: l_result := L_FND_FALSE;
11898: l_debug_info := 'Insufficient estimated quantity('||l_qty||') for the actuals received('||l_actual_qty||')'|| l_matches;
11899: INL_LOGGING_PVT.Log_Statement(
11900: p_module_name => g_module_name,
11901: p_procedure_name => l_program_name,
11902: p_debug_info => l_debug_info
11903: );
11921: RAISE L_FND_EXC_UNEXPECTED_ERROR;
11922: END IF;
11923: END IF;
11924: l_debug_info := 'Trace: '||l_matches;
11925: INL_LOGGING_PVT.Log_Statement(
11926: p_module_name => g_module_name,
11927: p_procedure_name => l_program_name,
11928: p_debug_info => l_debug_info
11929: );
11927: p_procedure_name => l_program_name,
11928: p_debug_info => l_debug_info
11929: );
11930: -- Standard End of Procedure/Function Logging
11931: INL_LOGGING_PVT.Log_EndProc(
11932: p_module_name => g_module_name,
11933: p_procedure_name => l_program_name
11934: );
11935: RETURN FND_API.to_boolean(l_result) ;
11935: RETURN FND_API.to_boolean(l_result) ;
11936: EXCEPTION
11937: WHEN L_FND_EXC_ERROR THEN
11938: -- Standard Expected Error Logging
11939: INL_LOGGING_PVT.Log_ExpecError (
11940: p_module_name => g_module_name,
11941: p_procedure_name => l_program_name
11942: );
11943: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11942: );
11943: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11944: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11945: -- Standard Unexpected Error Logging
11946: INL_LOGGING_PVT.Log_UnexpecError (
11947: p_module_name => g_module_name,
11948: p_procedure_name => l_program_name
11949: );
11950: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11949: );
11950: RETURN FND_API.to_boolean(L_FND_FALSE) ;
11951: WHEN OTHERS THEN
11952: -- Standard Unexpected Error Logging
11953: INL_LOGGING_PVT.Log_UnexpecError (
11954: p_module_name => g_module_name,
11955: p_procedure_name => l_program_name
11956: );
11957: IF FND_MSG_PUB.Check_Msg_Level(
11998: l_return_status VARCHAR2(1) ;
11999: l_result VARCHAR2(1) := L_FND_TRUE;
12000: BEGIN
12001: -- Standard Beginning of Procedure/Function Logging
12002: INL_LOGGING_PVT.Log_BeginProc(
12003: p_module_name => g_module_name,
12004: p_procedure_name => l_program_name
12005: ) ;
12006: -- Initialize API return status to success
12006: -- Initialize API return status to success
12007: x_return_status := L_FND_RET_STS_SUCCESS;
12008: IF NVL(p_parent_match_type_code, p_match_type_code) = 'TAX' THEN
12009: l_debug_info := 'Check: The unrecoverable amount should be smaller or equal to matched amount';
12010: INL_LOGGING_PVT.Log_Statement(
12011: p_module_name => g_module_name,
12012: p_procedure_name => l_program_name,
12013: p_debug_info => l_debug_info
12014: );
12036: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12037: END IF;
12038: END IF;
12039: l_debug_info := 'Check: TAX_CODE cannot be null';
12040: INL_LOGGING_PVT.Log_Statement(
12041: p_module_name => g_module_name,
12042: p_procedure_name => l_program_name,
12043: p_debug_info => l_debug_info
12044: );
12060: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12061: END IF;
12062: END IF;
12063: l_debug_info := 'Check: TAX_AMT_INCLUDED_FLAG cannot be null';
12064: INL_LOGGING_PVT.Log_Statement(
12065: p_module_name => g_module_name,
12066: p_procedure_name => l_program_name,
12067: p_debug_info => l_debug_info
12068: );
12102: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12103: END IF;
12104: END IF;
12105: -- Standard End of Procedure/Function Logging
12106: INL_LOGGING_PVT.Log_EndProc(
12107: p_module_name => g_module_name,
12108: p_procedure_name => l_program_name
12109: );
12110: RETURN FND_API.to_boolean(l_result) ;
12110: RETURN FND_API.to_boolean(l_result) ;
12111: EXCEPTION
12112: WHEN L_FND_EXC_ERROR THEN
12113: -- Standard Expected Error Logging
12114: INL_LOGGING_PVT.Log_ExpecError (
12115: p_module_name => g_module_name,
12116: p_procedure_name => l_program_name
12117: );
12118: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12117: );
12118: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12119: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12120: -- Standard Unexpected Error Logging
12121: INL_LOGGING_PVT.Log_UnexpecError (
12122: p_module_name => g_module_name,
12123: p_procedure_name => l_program_name
12124: );
12125: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12124: );
12125: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12126: WHEN OTHERS THEN
12127: -- Standard Unexpected Error Logging
12128: INL_LOGGING_PVT.Log_UnexpecError (
12129: p_module_name => g_module_name,
12130: p_procedure_name => l_program_name
12131: );
12132: IF FND_MSG_PUB.Check_Msg_Level(
12179: l_return_status VARCHAR2(1) ;
12180: l_result VARCHAR2(1) := L_FND_TRUE;
12181: BEGIN
12182: -- Standard Beginning of Procedure/Function Logging
12183: INL_LOGGING_PVT.Log_BeginProc(
12184: p_module_name => g_module_name,
12185: p_procedure_name => l_program_name
12186: ) ;
12187: -- Initialize API return status to success
12186: ) ;
12187: -- Initialize API return status to success
12188: x_return_status := L_FND_RET_STS_SUCCESS;
12189: l_debug_info := 'Check in case of correction, the currency must be the same of the original';
12190: INL_LOGGING_PVT.Log_Statement(
12191: p_module_name => g_module_name,
12192: p_procedure_name => l_program_name,
12193: p_debug_info => l_debug_info
12194: );
12215: END IF;
12216: END IF;
12217: END IF;
12218: l_debug_info := 'When replace_estim_qty_flag = "Y", the final Amount cannot be null';
12219: INL_LOGGING_PVT.Log_Statement(
12220: p_module_name => g_module_name,
12221: p_procedure_name => l_program_name,
12222: p_debug_info => l_debug_info
12223: );
12241: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12242: END IF;
12243: END IF;
12244: -- Standard End of Procedure/Function Logging
12245: INL_LOGGING_PVT.Log_EndProc(
12246: p_module_name => g_module_name,
12247: p_procedure_name => l_program_name
12248: );
12249: RETURN FND_API.to_boolean(l_result) ;
12249: RETURN FND_API.to_boolean(l_result) ;
12250: EXCEPTION
12251: WHEN L_FND_EXC_ERROR THEN
12252: -- Standard Expected Error Logging
12253: INL_LOGGING_PVT.Log_ExpecError (
12254: p_module_name => g_module_name,
12255: p_procedure_name => l_program_name
12256: );
12257: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12256: );
12257: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12258: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12259: -- Standard Unexpected Error Logging
12260: INL_LOGGING_PVT.Log_UnexpecError (
12261: p_module_name => g_module_name,
12262: p_procedure_name => l_program_name
12263: );
12264: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12263: );
12264: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12265: WHEN OTHERS THEN
12266: -- Standard Unexpected Error Logging
12267: INL_LOGGING_PVT.Log_UnexpecError (
12268: p_module_name => g_module_name,
12269: p_procedure_name => l_program_name
12270: );
12271: IF FND_MSG_PUB.Check_Msg_Level(
12322: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -00054);
12323:
12324: BEGIN
12325: -- Standard Beginning of Procedure/Function Logging
12326: INL_LOGGING_PVT.Log_BeginProc(
12327: p_module_name => g_module_name,
12328: p_procedure_name => l_program_name
12329: ) ;
12330: -- Initialize API return status to success
12329: ) ;
12330: -- Initialize API return status to success
12331: x_return_status := L_FND_RET_STS_SUCCESS;
12332: l_debug_info := 'Validate if exist any ELC update on going.';
12333: INL_LOGGING_PVT.Log_Statement(
12334: p_module_name => g_module_name,
12335: p_procedure_name => l_program_name,
12336: p_debug_info => l_debug_info
12337: );
12335: p_procedure_name => l_program_name,
12336: p_debug_info => l_debug_info
12337: );
12338:
12339: INL_LOGGING_PVT.Log_Variable(
12340: p_module_name => g_module_name,
12341: p_procedure_name => l_program_name,
12342: p_var_name => 'p_match_int_id',
12343: p_var_value => p_match_int_id);
12341: p_procedure_name => l_program_name,
12342: p_var_name => 'p_match_int_id',
12343: p_var_value => p_match_int_id);
12344:
12345: INL_LOGGING_PVT.Log_Variable(
12346: p_module_name => g_module_name,
12347: p_procedure_name => l_program_name,
12348: p_var_name => 'p_to_parent_table_name',
12349: p_var_value => p_to_parent_table_name);
12347: p_procedure_name => l_program_name,
12348: p_var_name => 'p_to_parent_table_name',
12349: p_var_value => p_to_parent_table_name);
12350:
12351: INL_LOGGING_PVT.Log_Variable(
12352: p_module_name => g_module_name,
12353: p_procedure_name => l_program_name,
12354: p_var_name => 'p_to_parent_table_id',
12355: p_var_value => p_to_parent_table_id);
12353: p_procedure_name => l_program_name,
12354: p_var_name => 'p_to_parent_table_id',
12355: p_var_value => p_to_parent_table_id);
12356:
12357: INL_LOGGING_PVT.Log_Variable(
12358: p_module_name => g_module_name,
12359: p_procedure_name => l_program_name,
12360: p_var_name => 'p_match_type_code',
12361: p_var_value => p_match_type_code);
12359: p_procedure_name => l_program_name,
12360: p_var_name => 'p_match_type_code',
12361: p_var_value => p_match_type_code);
12362:
12363: INL_LOGGING_PVT.Log_Variable(
12364: p_module_name => g_module_name,
12365: p_procedure_name => l_program_name,
12366: p_var_name => 'p_charge_line_type_id',
12367: p_var_value => p_charge_line_type_id);
12365: p_procedure_name => l_program_name,
12366: p_var_name => 'p_charge_line_type_id',
12367: p_var_value => p_charge_line_type_id);
12368:
12369: INL_LOGGING_PVT.Log_Statement(
12370: p_module_name => g_module_name,
12371: p_procedure_name => l_program_name,
12372: p_debug_info => 'Verify if Ship Line has an ELC update'
12373: );
12373: );
12374: -- If ship line has ELC on going any actual is unnacceptable
12375: IF p_match_type_code = 'ITEM' THEN
12376:
12377: INL_LOGGING_PVT.Log_Statement(
12378: p_module_name => g_module_name,
12379: p_procedure_name => l_program_name,
12380: p_debug_info => 'Verify if any related Ship Line has an ELC update');
12381:
12380: p_debug_info => 'Verify if any related Ship Line has an ELC update');
12381:
12382: IF p_to_parent_table_name = 'RCV_TRANSACTIONS' THEN
12383:
12384: INL_LOGGING_PVT.Log_Statement(
12385: p_module_name => g_module_name,
12386: p_procedure_name => l_program_name,
12387: p_debug_info => 'Verify if Ship Line has an ELC update to parent RCV_TRANSACTIONS with FOR UPDATE of inl_ship_headers');
12388:
12408: AND NVL(sl.parent_ship_line_id,sl.ship_line_id) = rt.lcm_shipment_line_id
12409: FOR UPDATE of sh.ship_header_id NOWAIT; -- SCM-051
12410: ELSIF p_to_parent_table_name = 'INL_SHIP_LINES' THEN
12411:
12412: INL_LOGGING_PVT.Log_Statement(
12413: p_module_name => g_module_name,
12414: p_procedure_name => l_program_name,
12415: p_debug_info => 'Verify if Ship Line has an ELC update to parent INL_SHIP_LINES with FOR UPDATE of inl_ship_headers');
12416:
12440: OR l_new_currency_conversion_type IS NOT NULL
12441: OR l_new_txn_unit_price IS NOT NULL
12442: THEN
12443:
12444: INL_LOGGING_PVT.Log_Statement(
12445: p_module_name => g_module_name,
12446: p_procedure_name => l_program_name,
12447: p_debug_info => 'ELC Update on going to p_to_parent_table_id: ' || p_to_parent_table_id);
12448:
12445: p_module_name => g_module_name,
12446: p_procedure_name => l_program_name,
12447: p_debug_info => 'ELC Update on going to p_to_parent_table_id: ' || p_to_parent_table_id);
12448:
12449: INL_LOGGING_PVT.Log_Variable(
12450: p_module_name => g_module_name,
12451: p_procedure_name => l_program_name,
12452: p_var_name => 'l_new_currency_conversion_rate',
12453: p_var_value => l_new_currency_conversion_rate);
12450: p_module_name => g_module_name,
12451: p_procedure_name => l_program_name,
12452: p_var_name => 'l_new_currency_conversion_rate',
12453: p_var_value => l_new_currency_conversion_rate);
12454: INL_LOGGING_PVT.Log_Variable(
12455: p_module_name => g_module_name,
12456: p_procedure_name => l_program_name,
12457: p_var_name => 'l_new_currency_conversion_date',
12458: p_var_value => l_new_currency_conversion_date);
12455: p_module_name => g_module_name,
12456: p_procedure_name => l_program_name,
12457: p_var_name => 'l_new_currency_conversion_date',
12458: p_var_value => l_new_currency_conversion_date);
12459: INL_LOGGING_PVT.Log_Variable(
12460: p_module_name => g_module_name,
12461: p_procedure_name => l_program_name,
12462: p_var_name => 'l_new_currency_conversion_type',
12463: p_var_value => l_new_currency_conversion_type);
12460: p_module_name => g_module_name,
12461: p_procedure_name => l_program_name,
12462: p_var_name => 'l_new_currency_conversion_type',
12463: p_var_value => l_new_currency_conversion_type);
12464: INL_LOGGING_PVT.Log_Variable(
12465: p_module_name => g_module_name,
12466: p_procedure_name => l_program_name,
12467: p_var_name => 'l_new_txn_unit_price',
12468: p_var_value => l_new_txn_unit_price);
12488: END IF;
12489: END IF;
12490: ELSIF p_match_type_code = 'CHARGE' THEN
12491:
12492: INL_LOGGING_PVT.Log_Statement(
12493: p_module_name => g_module_name,
12494: p_procedure_name => l_program_name,
12495: p_debug_info => 'Verify if any related charge Line has an ELC update');
12496:
12495: p_debug_info => 'Verify if any related charge Line has an ELC update');
12496:
12497: IF p_to_parent_table_name = 'RCV_TRANSACTIONS' THEN
12498:
12499: INL_LOGGING_PVT.Log_Statement(
12500: p_module_name => g_module_name,
12501: p_procedure_name => l_program_name,
12502: p_debug_info => 'Select FOR UPDATE of inl_ship_headers');
12503:
12513: AND ROWNUM = 1
12514: FOR UPDATE OF sh.ship_header_id NOWAIT;
12515: -- /SCM-051
12516:
12517: INL_LOGGING_PVT.Log_Statement(
12518: p_module_name => g_module_name,
12519: p_procedure_name => l_program_name,
12520: p_debug_info => 'Verify if Charge Line has an ELC update to parent RCV_TRANSACTIONS');
12521:
12563: ;
12564:
12565: ELSIF p_to_parent_table_name = 'INL_SHIP_LINES' THEN
12566:
12567: INL_LOGGING_PVT.Log_Statement(
12568: p_module_name => g_module_name,
12569: p_procedure_name => l_program_name,
12570: p_debug_info => 'Verify if Charge Line has an ELC update to parent INL_SHIP_LINES');
12571:
12579: AND ROWNUM = 1
12580: FOR UPDATE OF sh.ship_header_id NOWAIT;
12581: -- /SCM-051
12582:
12583: INL_LOGGING_PVT.Log_Statement(
12584: p_module_name => g_module_name,
12585: p_procedure_name => l_program_name,
12586: p_debug_info => 'Verify if Charge Line has an ELC update to parent INL_SHIP_LINES');
12587:
12616: END IF;
12617:
12618: IF l_count_elc_ong > 0
12619: THEN
12620: INL_LOGGING_PVT.Log_Variable(
12621: p_module_name => g_module_name,
12622: p_procedure_name => l_program_name,
12623: p_var_name => 'l_count_elc_ong',
12624: p_var_value => l_count_elc_ong);
12644: END IF;
12645: END IF;
12646: END IF;
12647: -- Standard End of Procedure/Function Logging
12648: INL_LOGGING_PVT.Log_EndProc(
12649: p_module_name => g_module_name,
12650: p_procedure_name => l_program_name
12651: );
12652: RETURN FND_API.to_boolean(l_result) ;
12664: FND_MESSAGE.set_token('GROUP_ID',l_group_id);
12665: FND_MSG_PUB.ADD;
12666:
12667: -- Standard Expected Error Logging
12668: INL_LOGGING_PVT.Log_ExpecError (
12669: p_module_name => g_module_name,
12670: p_procedure_name => l_program_name);
12671: RETURN FND_API.to_boolean(L_FND_FALSE);
12672: WHEN L_FND_EXC_ERROR THEN
12670: p_procedure_name => l_program_name);
12671: RETURN FND_API.to_boolean(L_FND_FALSE);
12672: WHEN L_FND_EXC_ERROR THEN
12673: -- Standard Expected Error Logging
12674: INL_LOGGING_PVT.Log_ExpecError (
12675: p_module_name => g_module_name,
12676: p_procedure_name => l_program_name
12677: );
12678: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12677: );
12678: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12679: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12680: -- Standard Unexpected Error Logging
12681: INL_LOGGING_PVT.Log_UnexpecError (
12682: p_module_name => g_module_name,
12683: p_procedure_name => l_program_name
12684: );
12685: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12684: );
12685: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12686: WHEN OTHERS THEN
12687: -- Standard Unexpected Error Logging
12688: INL_LOGGING_PVT.Log_UnexpecError (
12689: p_module_name => g_module_name,
12690: p_procedure_name => l_program_name
12691: );
12692: IF FND_MSG_PUB.Check_Msg_Level(
12730: l_result VARCHAR2(1) := L_FND_TRUE;
12731: l_uom VARCHAR2(100) ;
12732: BEGIN
12733: -- Standard Beginning of Procedure/Function Logging
12734: INL_LOGGING_PVT.Log_BeginProc(
12735: p_module_name => g_module_name,
12736: p_procedure_name => l_program_name
12737: ) ;
12738: -- Initialize API return status to success
12737: ) ;
12738: -- Initialize API return status to success
12739: x_return_status := L_FND_RET_STS_SUCCESS;
12740: l_debug_info := 'Validate the type of the corrected match in case of correction process.';
12741: INL_LOGGING_PVT.Log_Statement(
12742: p_module_name => g_module_name,
12743: p_procedure_name => l_program_name,
12744: p_debug_info => l_debug_info
12745: );
12812: END IF;
12813: END IF;
12814: END IF;
12815: -- Standard End of Procedure/Function Logging
12816: INL_LOGGING_PVT.Log_EndProc(
12817: p_module_name => g_module_name,
12818: p_procedure_name => l_program_name
12819: );
12820: RETURN FND_API.to_boolean(l_result) ;
12820: RETURN FND_API.to_boolean(l_result) ;
12821: EXCEPTION
12822: WHEN L_FND_EXC_ERROR THEN
12823: -- Standard Expected Error Logging
12824: INL_LOGGING_PVT.Log_ExpecError (
12825: p_module_name => g_module_name,
12826: p_procedure_name => l_program_name
12827: );
12828: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12827: );
12828: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12829: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12830: -- Standard Unexpected Error Logging
12831: INL_LOGGING_PVT.Log_UnexpecError (
12832: p_module_name => g_module_name,
12833: p_procedure_name => l_program_name
12834: );
12835: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12834: );
12835: RETURN FND_API.to_boolean(L_FND_FALSE) ;
12836: WHEN OTHERS THEN
12837: -- Standard Unexpected Error Logging
12838: INL_LOGGING_PVT.Log_UnexpecError (
12839: p_module_name => g_module_name,
12840: p_procedure_name => l_program_name
12841: );
12842: IF FND_MSG_PUB.Check_Msg_Level(
12882: l_result VARCHAR2(1) := L_FND_TRUE;
12883: l_adj_alr_gen_flag VARCHAR2(1) ;
12884: BEGIN
12885: -- Standard Beginning of Procedure/Function Logging
12886: INL_LOGGING_PVT.Log_BeginProc(
12887: p_module_name => g_module_name,
12888: p_procedure_name => l_program_name
12889: ) ;
12890: -- Initialize API return status to success
12889: ) ;
12890: -- Initialize API return status to success
12891: x_return_status := L_FND_RET_STS_SUCCESS;
12892: l_debug_info := 'Check: When match type code is CORRECTION, parent_match_id cannot be null';
12893: INL_LOGGING_PVT.Log_Statement(
12894: p_module_name => g_module_name,
12895: p_procedure_name => l_program_name,
12896: p_debug_info => l_debug_info
12897: );
12969: END IF;
12970: END IF;
12971: IF p_transaction_type <> 'CREATE' THEN
12972: l_debug_info := 'Check: When transaction type is not CREATE, match_id cannot be null';
12973: INL_LOGGING_PVT.Log_Statement(
12974: p_module_name => g_module_name,
12975: p_procedure_name => l_program_name,
12976: p_debug_info => l_debug_info
12977: );
13046: END IF;
13047: END IF;
13048: END IF;
13049: -- Standard End of Procedure/Function Logging
13050: INL_LOGGING_PVT.Log_EndProc(
13051: p_module_name => g_module_name,
13052: p_procedure_name => l_program_name
13053: );
13054: RETURN FND_API.to_boolean(l_result) ;
13054: RETURN FND_API.to_boolean(l_result) ;
13055: EXCEPTION
13056: WHEN L_FND_EXC_ERROR THEN
13057: -- Standard Expected Error Logging
13058: INL_LOGGING_PVT.Log_ExpecError (
13059: p_module_name => g_module_name,
13060: p_procedure_name => l_program_name
13061: );
13062: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13061: );
13062: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13063: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
13064: -- Standard Unexpected Error Logging
13065: INL_LOGGING_PVT.Log_UnexpecError (
13066: p_module_name => g_module_name,
13067: p_procedure_name => l_program_name
13068: );
13069: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13068: );
13069: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13070: WHEN OTHERS THEN
13071: -- Standard Unexpected Error Logging
13072: INL_LOGGING_PVT.Log_UnexpecError (
13073: p_module_name => g_module_name,
13074: p_procedure_name => l_program_name
13075: );
13076: IF FND_MSG_PUB.Check_Msg_Level(
13127: l_INT_importedOk VARCHAR2(1) ;
13128: l_matchTpCdOk VARCHAR2(1) ;
13129: BEGIN
13130: -- Standard Beginning of Procedure/Function Logging
13131: INL_LOGGING_PVT.Log_BeginProc(
13132: p_module_name => g_module_name,
13133: p_procedure_name => l_program_name
13134: ) ;
13135: -- Initialize API return status to success
13134: ) ;
13135: -- Initialize API return status to success
13136: x_return_status := L_FND_RET_STS_SUCCESS;
13137: l_debug_info := 'Check to_parent_table value and all related information.';
13138: INL_LOGGING_PVT.Log_Statement(
13139: p_module_name => g_module_name,
13140: p_procedure_name => l_program_name,
13141: p_debug_info => l_debug_info
13142: );
13144: l_idOk := 'N';
13145: l_SHidOk := 'N';
13146: l_matchTpCdOk := 'N';
13147: l_INT_importedOk := 'N';
13148: INL_LOGGING_PVT.Log_Variable(
13149: p_module_name => g_module_name,
13150: p_procedure_name => l_program_name,
13151: p_var_name => 'p_to_parent_table_name',
13152: p_var_value => p_to_parent_table_name
13151: p_var_name => 'p_to_parent_table_name',
13152: p_var_value => p_to_parent_table_name
13153: ) ;
13154:
13155: INL_LOGGING_PVT.Log_Variable(
13156: p_module_name => g_module_name,
13157: p_procedure_name => l_program_name,
13158: p_var_name => 'p_to_parent_table_id',
13159: p_var_value => p_to_parent_table_id
13158: p_var_name => 'p_to_parent_table_id',
13159: p_var_value => p_to_parent_table_id
13160: ) ;
13161:
13162: INL_LOGGING_PVT.Log_Variable(
13163: p_module_name => g_module_name,
13164: p_procedure_name => l_program_name,
13165: p_var_name => 'p_transaction_type',
13166: p_var_value => p_transaction_type
13165: p_var_name => 'p_transaction_type',
13166: p_var_value => p_transaction_type
13167: ) ;
13168:
13169: INL_LOGGING_PVT.Log_Variable(
13170: p_module_name => g_module_name,
13171: p_procedure_name => l_program_name,
13172: p_var_name => 'p_match_type_code',
13173: p_var_value => p_match_type_code
13475: END IF;
13476: END IF;
13477: END IF;
13478: -- Standard End of Procedure/Function Logging
13479: INL_LOGGING_PVT.Log_EndProc(
13480: p_module_name => g_module_name,
13481: p_procedure_name => l_program_name
13482: );
13483: RETURN FND_API.to_boolean(l_result) ;
13483: RETURN FND_API.to_boolean(l_result) ;
13484: EXCEPTION
13485: WHEN L_FND_EXC_ERROR THEN
13486: -- Standard Expected Error Logging
13487: INL_LOGGING_PVT.Log_ExpecError (
13488: p_module_name => g_module_name,
13489: p_procedure_name => l_program_name
13490: );
13491: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13490: );
13491: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13492: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
13493: -- Standard Unexpected Error Logging
13494: INL_LOGGING_PVT.Log_UnexpecError (
13495: p_module_name => g_module_name,
13496: p_procedure_name => l_program_name
13497: );
13498: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13497: );
13498: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13499: WHEN OTHERS THEN
13500: -- Standard Unexpected Error Logging
13501: INL_LOGGING_PVT.Log_UnexpecError (
13502: p_module_name => g_module_name,
13503: p_procedure_name => l_program_name
13504: );
13505: IF FND_MSG_PUB.Check_Msg_Level(
13547: l_replace_estim_qty_flag VARCHAR2(1) ;
13548: l_other_REQF_Y_match_id NUMBER;
13549: BEGIN
13550: -- Standard Beginning of Procedure/Function Logging
13551: INL_LOGGING_PVT.Log_BeginProc(
13552: p_module_name => g_module_name,
13553: p_procedure_name => l_program_name
13554: ) ;
13555: -- Initialize API return status to success
13553: p_procedure_name => l_program_name
13554: ) ;
13555: -- Initialize API return status to success
13556: x_return_status := L_FND_RET_STS_SUCCESS;
13557: INL_LOGGING_PVT.Log_Variable(
13558: p_module_name => g_module_name,
13559: p_procedure_name => l_program_name,
13560: p_var_name => 'p_transaction_type',
13561: p_var_value => p_transaction_type
13612: l_replace_estim_qty_flag
13613: FROM inl_matches m
13614: WHERE m.match_id = p_match_id;
13615:
13616: INL_LOGGING_PVT.Log_Variable(
13617: p_module_name => g_module_name,
13618: p_procedure_name => l_program_name,
13619: p_var_name => 'l_adj_already_generated_flag',
13620: p_var_value => l_adj_already_generated_flag
13621: ) ;
13622:
13623: IF l_adj_already_generated_flag = 'Y' THEN
13624: l_debug_info := 'Matches that has adjustments already generated, cannot be changed.';
13625: INL_LOGGING_PVT.Log_Statement(
13626: p_module_name => g_module_name,
13627: p_procedure_name => l_program_name,
13628: p_debug_info => l_debug_info
13629: );
13645: END IF;
13646: END IF;
13647: IF p_replace_estim_qty_flag <> l_replace_estim_qty_flag THEN
13648: l_debug_info := 'Matches that has adjustments already generated, cannot be changed.';
13649: INL_LOGGING_PVT.Log_Statement(
13650: p_module_name => g_module_name,
13651: p_procedure_name => l_program_name,
13652: p_debug_info => l_debug_info
13653: );
13667: IF l_return_status <> L_FND_RET_STS_SUCCESS THEN
13668: RAISE L_FND_EXC_UNEXPECTED_ERROR;
13669: END IF;
13670: END IF;
13671: INL_LOGGING_PVT.Log_Variable(
13672: p_module_name => g_module_name,
13673: p_procedure_name => l_program_name,
13674: p_var_name => 'l_replace_estim_qty_flag',
13675: p_var_value => l_replace_estim_qty_flag
13699: EXCEPTION
13700: WHEN NO_DATA_FOUND THEN
13701: l_other_REQF_Y_match_id := 0;
13702: END;
13703: INL_LOGGING_PVT.Log_Variable(
13704: p_module_name => g_module_name,
13705: p_procedure_name => l_program_name,
13706: p_var_name => 'p_match_id',
13707: p_var_value => p_match_id
13706: p_var_name => 'p_match_id',
13707: p_var_value => p_match_id
13708: ) ;
13709:
13710: INL_LOGGING_PVT.Log_Variable(
13711: p_module_name => g_module_name,
13712: p_procedure_name => l_program_name,
13713: p_var_name => 'l_other_REQF_Y_match_id',
13714: p_var_value => l_other_REQF_Y_match_id
13756: RAISE L_FND_EXC_UNEXPECTED_ERROR;
13757: END IF;
13758: END IF;
13759: -- Standard End of Procedure/Function Logging
13760: INL_LOGGING_PVT.Log_EndProc(
13761: p_module_name => g_module_name,
13762: p_procedure_name => l_program_name
13763: );
13764: RETURN FND_API.to_boolean(l_result) ;
13764: RETURN FND_API.to_boolean(l_result) ;
13765: EXCEPTION
13766: WHEN L_FND_EXC_ERROR THEN
13767: -- Standard Expected Error Logging
13768: INL_LOGGING_PVT.Log_ExpecError (
13769: p_module_name => g_module_name,
13770: p_procedure_name => l_program_name
13771: );
13772: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13771: );
13772: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13773: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
13774: -- Standard Unexpected Error Logging
13775: INL_LOGGING_PVT.Log_UnexpecError (
13776: p_module_name => g_module_name,
13777: p_procedure_name => l_program_name
13778: );
13779: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13778: );
13779: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13780: WHEN OTHERS THEN
13781: -- Standard Unexpected Error Logging
13782: INL_LOGGING_PVT.Log_UnexpecError (
13783: p_module_name => g_module_name,
13784: p_procedure_name => l_program_name
13785: );
13786: IF FND_MSG_PUB.Check_Msg_Level(
13825: l_field VARCHAR2(30) ;
13826: l_field_id NUMBER;
13827: BEGIN
13828: -- Standard Beginning of Procedure/Function Logging
13829: INL_LOGGING_PVT.Log_BeginProc(
13830: p_module_name => g_module_name,
13831: p_procedure_name => l_program_name
13832: ) ;
13833: -- Initialize API return status to success
13832: ) ;
13833: -- Initialize API return status to success
13834: x_return_status := L_FND_RET_STS_SUCCESS;
13835: l_debug_info := 'Check if the Party information should be included based on a given Match Type Code ';
13836: INL_LOGGING_PVT.Log_Statement(
13837: p_module_name => g_module_name,
13838: p_procedure_name => l_program_name,
13839: p_debug_info => l_debug_info
13840: );
13837: p_module_name => g_module_name,
13838: p_procedure_name => l_program_name,
13839: p_debug_info => l_debug_info
13840: );
13841: INL_LOGGING_PVT.Log_Variable(
13842: p_module_name => g_module_name,
13843: p_procedure_name => l_program_name,
13844: p_var_name => 'p_parent_match_type_code',
13845: p_var_value => p_parent_match_type_code
13844: p_var_name => 'p_parent_match_type_code',
13845: p_var_value => p_parent_match_type_code
13846: ) ;
13847:
13848: INL_LOGGING_PVT.Log_Variable(
13849: p_module_name => g_module_name,
13850: p_procedure_name => l_program_name,
13851: p_var_name => 'p_match_type_code',
13852: p_var_value => p_match_type_code
13853: ) ;
13854:
13855: IF NVL(p_parent_match_type_code, p_match_type_code) = 'CHARGE' THEN
13856: l_field := 'x';
13857: INL_LOGGING_PVT.Log_Variable(
13858: p_module_name => g_module_name,
13859: p_procedure_name => l_program_name,
13860: p_var_name => 'p_party_id',
13861: p_var_value => p_party_id
13864: l_debug_info := 'party_id: ';
13865: IF p_party_id IS NOT NULL THEN
13866: BEGIN
13867: l_debug_info := 'Chech Party_Id in HZ_PARTIES table';
13868: INL_LOGGING_PVT.Log_Statement(
13869: p_module_name => g_module_name,
13870: p_procedure_name => l_program_name,
13871: p_debug_info => l_debug_info
13872: );
13885: ELSE
13886: l_field := 'PARTY_ID';
13887: l_field_id := NULL;
13888: END IF;
13889: INL_LOGGING_PVT.Log_Statement(
13890: p_module_name => g_module_name,
13891: p_procedure_name => l_program_name,
13892: p_debug_info => l_debug_info
13893: );
13890: p_module_name => g_module_name,
13891: p_procedure_name => l_program_name,
13892: p_debug_info => l_debug_info
13893: );
13894: INL_LOGGING_PVT.Log_Variable(
13895: p_module_name => g_module_name,
13896: p_procedure_name => l_program_name,
13897: p_var_name => 'p_party_site_id',
13898: p_var_value => p_party_site_id
13917: l_field := 'PARTY_SITE_ID';
13918: l_field_id := NULL;
13919: END IF;
13920: END IF;
13921: INL_LOGGING_PVT.Log_Statement(
13922: p_module_name => g_module_name,
13923: p_procedure_name => l_program_name,
13924: p_debug_info => l_debug_info
13925: );
13924: p_debug_info => l_debug_info
13925: );
13926: IF l_field <> 'x' THEN
13927: l_debug_info := 'ERROR l_field: '||l_field;
13928: INL_LOGGING_PVT.Log_Statement(
13929: p_module_name => g_module_name,
13930: p_procedure_name => l_program_name,
13931: p_debug_info => l_debug_info
13932: );
13976: END IF;
13977: END IF;
13978: END IF;
13979: -- Standard End of Procedure/Function Logging
13980: INL_LOGGING_PVT.Log_EndProc(
13981: p_module_name => g_module_name,
13982: p_procedure_name => l_program_name
13983: );
13984: RETURN FND_API.to_boolean(l_result) ;
13984: RETURN FND_API.to_boolean(l_result) ;
13985: EXCEPTION
13986: WHEN L_FND_EXC_ERROR THEN
13987: -- Standard Expected Error Logging
13988: INL_LOGGING_PVT.Log_ExpecError (
13989: p_module_name => g_module_name,
13990: p_procedure_name => l_program_name
13991: );
13992: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13991: );
13992: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13993: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
13994: -- Standard Unexpected Error Logging
13995: INL_LOGGING_PVT.Log_UnexpecError (
13996: p_module_name => g_module_name,
13997: p_procedure_name => l_program_name
13998: );
13999: RETURN FND_API.to_boolean(L_FND_FALSE) ;
13998: );
13999: RETURN FND_API.to_boolean(L_FND_FALSE) ;
14000: WHEN OTHERS THEN
14001: -- Standard Unexpected Error Logging
14002: INL_LOGGING_PVT.Log_UnexpecError (
14003: p_module_name => g_module_name,
14004: p_procedure_name => l_program_name
14005: );
14006: IF FND_MSG_PUB.Check_Msg_Level(
14041: l_parent_to_parent_table_name VARCHAR2(100) ;
14042: l_parent_to_parent_table_ID NUMBER;
14043: BEGIN
14044: -- Standard Beginning of Procedure/Function Logging
14045: INL_LOGGING_PVT.Log_BeginProc(
14046: p_module_name => g_module_name,
14047: p_procedure_name => l_program_name
14048: ) ;
14049: -- Initialize API return status to success
14048: ) ;
14049: -- Initialize API return status to success
14050: x_return_status := L_FND_RET_STS_SUCCESS;
14051: l_debug_info := 'Validate Transaction Type. Call Validate_MatchTrxType';
14052: INL_LOGGING_PVT.Log_Statement(
14053: p_module_name => g_module_name,
14054: p_procedure_name => l_program_name,
14055: p_debug_info => l_debug_info
14056: );
14073: l_debug_info := l_debug_info||'FALSE';
14074: ELSE
14075: l_debug_info := l_debug_info||'OK';
14076: END IF;
14077: INL_LOGGING_PVT.Log_Statement(
14078: p_module_name => g_module_name,
14079: p_procedure_name => l_program_name,
14080: p_debug_info => l_debug_info
14081: );
14080: p_debug_info => l_debug_info
14081: );
14082:
14083: l_debug_info := 'Get Match Type Code from Parent Match when processing corrections.';
14084: INL_LOGGING_PVT.Log_Statement(
14085: p_module_name => g_module_name,
14086: p_procedure_name => l_program_name,
14087: p_debug_info => l_debug_info
14088: );
14086: p_procedure_name => l_program_name,
14087: p_debug_info => l_debug_info
14088: );
14089:
14090: INL_LOGGING_PVT.Log_Variable(
14091: p_module_name => g_module_name,
14092: p_procedure_name => l_program_name,
14093: p_var_name => 'p_match_int_rec.parent_match_id',
14094: p_var_value => p_match_int_rec.parent_match_id
14110: l_parent_to_parent_table_name := NULL;
14111: l_parent_to_parent_table_ID := NULL;
14112: END IF;
14113: l_debug_info := 'Validate TO_PARENT_TABLE information. Call Validate_MatchToParTab.';
14114: INL_LOGGING_PVT.Log_Statement(
14115: p_module_name => g_module_name,
14116: p_procedure_name => l_program_name,
14117: p_debug_info => l_debug_info
14118: );
14136: l_debug_info := l_debug_info||'FALSE';
14137: ELSE
14138: l_debug_info := l_debug_info||'OK';
14139: END IF;
14140: INL_LOGGING_PVT.Log_Statement(
14141: p_module_name => g_module_name,
14142: p_procedure_name => l_program_name,
14143: p_debug_info => l_debug_info
14144: );
14142: p_procedure_name => l_program_name,
14143: p_debug_info => l_debug_info
14144: );
14145: l_debug_info := 'Validate Match IDs. Call Validate_MatchMatIDS';
14146: INL_LOGGING_PVT.Log_Statement(
14147: p_module_name => g_module_name,
14148: p_procedure_name => l_program_name,
14149: p_debug_info => l_debug_info
14150: );
14167: l_debug_info := l_debug_info||'FALSE';
14168: ELSE
14169: l_debug_info := l_debug_info||'OK';
14170: END IF;
14171: INL_LOGGING_PVT.Log_Statement(
14172: p_module_name => g_module_name,
14173: p_procedure_name => l_program_name,
14174: p_debug_info => l_debug_info
14175: );
14175: );
14176: IF p_match_int_rec.matched_qty IS NOT NULL
14177: THEN
14178: l_debug_info := 'Validate Matched UOM Code. Call Validate_MatchUOM';
14179: INL_LOGGING_PVT.Log_Statement(
14180: p_module_name => g_module_name,
14181: p_procedure_name => l_program_name,
14182: p_debug_info => l_debug_info
14183: );
14198: l_debug_info := l_debug_info||'FALSE';
14199: ELSE
14200: l_debug_info := l_debug_info||'OK';
14201: END IF;
14202: INL_LOGGING_PVT.Log_Statement(
14203: p_module_name => g_module_name,
14204: p_procedure_name => l_program_name,
14205: p_debug_info => l_debug_info
14206: );
14205: p_debug_info => l_debug_info
14206: );
14207: END IF;
14208: l_debug_info := 'Validate Matched Amount. Call Validate_MatchAmt';
14209: INL_LOGGING_PVT.Log_Statement(
14210: p_module_name => g_module_name,
14211: p_procedure_name => l_program_name,
14212: p_debug_info => l_debug_info
14213: );
14232: l_debug_info := l_debug_info||'FALSE';
14233: ELSE
14234: l_debug_info := l_debug_info||'OK';
14235: END IF;
14236: INL_LOGGING_PVT.Log_Statement(
14237: p_module_name => g_module_name,
14238: p_procedure_name => l_program_name,
14239: p_debug_info => l_debug_info
14240: );
14238: p_procedure_name => l_program_name,
14239: p_debug_info => l_debug_info
14240: );
14241: l_debug_info := 'Validate Matched Quantity. Call Validate_MatchQty';
14242: INL_LOGGING_PVT.Log_Statement(
14243: p_module_name => g_module_name,
14244: p_procedure_name => l_program_name,
14245: p_debug_info => l_debug_info
14246: );
14272: l_debug_info := l_debug_info||'FALSE';
14273: ELSE
14274: l_debug_info := l_debug_info||'OK';
14275: END IF;
14276: INL_LOGGING_PVT.Log_Statement(
14277: p_module_name => g_module_name,
14278: p_procedure_name => l_program_name,
14279: p_debug_info => l_debug_info
14280: );
14278: p_procedure_name => l_program_name,
14279: p_debug_info => l_debug_info
14280: );
14281: l_debug_info := 'Validate Match Tax. Call Validate_MatchTax';
14282: INL_LOGGING_PVT.Log_Statement(
14283: p_module_name => g_module_name,
14284: p_procedure_name => l_program_name,
14285: p_debug_info => l_debug_info
14286: );
14301: l_debug_info := l_debug_info||'FALSE';
14302: ELSE
14303: l_debug_info := l_debug_info||'OK';
14304: END IF;
14305: INL_LOGGING_PVT.Log_Statement(
14306: p_module_name => g_module_name,
14307: p_procedure_name => l_program_name,
14308: p_debug_info => l_debug_info
14309: );
14307: p_procedure_name => l_program_name,
14308: p_debug_info => l_debug_info
14309: );
14310: l_debug_info := 'Validate Matching Flags. Call Validate_MatchFlags';
14311: INL_LOGGING_PVT.Log_Statement(
14312: p_module_name => g_module_name,
14313: p_procedure_name => l_program_name,
14314: p_debug_info => l_debug_info
14315: );
14329: l_debug_info := l_debug_info||'FALSE';
14330: ELSE
14331: l_debug_info := l_debug_info||'OK';
14332: END IF;
14333: INL_LOGGING_PVT.Log_Statement(
14334: p_module_name => g_module_name,
14335: p_procedure_name => l_program_name,
14336: p_debug_info => l_debug_info
14337: );
14335: p_procedure_name => l_program_name,
14336: p_debug_info => l_debug_info
14337: );
14338: l_debug_info := 'Validate Charge Line Type Id. Call Validate_MatchChLnTpID';
14339: INL_LOGGING_PVT.Log_Statement(
14340: p_module_name => g_module_name,
14341: p_procedure_name => l_program_name,
14342: p_debug_info => l_debug_info
14343: );
14358: l_debug_info := l_debug_info||'FALSE';
14359: ELSE
14360: l_debug_info := l_debug_info||'OK';
14361: END IF;
14362: INL_LOGGING_PVT.Log_Statement(
14363: p_module_name => g_module_name,
14364: p_procedure_name => l_program_name,
14365: p_debug_info => l_debug_info
14366: );
14364: p_procedure_name => l_program_name,
14365: p_debug_info => l_debug_info
14366: );
14367: l_debug_info := 'Validate Party and Party Site. Call Validate_MatchParty';
14368: INL_LOGGING_PVT.Log_Statement(
14369: p_module_name => g_module_name,
14370: p_procedure_name => l_program_name,
14371: p_debug_info => l_debug_info
14372: );
14386: l_debug_info := l_debug_info||'FALSE';
14387: ELSE
14388: l_debug_info := l_debug_info||'OK';
14389: END IF;
14390: INL_LOGGING_PVT.Log_Statement(
14391: p_module_name => g_module_name,
14392: p_procedure_name => l_program_name,
14393: p_debug_info => l_debug_info
14394: );
14393: p_debug_info => l_debug_info
14394: );
14395: -- SCM-051 Begin
14396: l_debug_info := 'Validate any ELC Update on going. Call Validate_MatchElcOnGoing';
14397: INL_LOGGING_PVT.Log_Statement(
14398: p_module_name => g_module_name,
14399: p_procedure_name => l_program_name,
14400: p_debug_info => l_debug_info
14401: );
14416: l_debug_info := l_debug_info||'FALSE';
14417: ELSE
14418: l_debug_info := l_debug_info||'OK';
14419: END IF;
14420: INL_LOGGING_PVT.Log_Statement(
14421: p_module_name => g_module_name,
14422: p_procedure_name => l_program_name,
14423: p_debug_info => l_debug_info
14424: );
14422: p_procedure_name => l_program_name,
14423: p_debug_info => l_debug_info
14424: );
14425: -- SCM-051 End
14426: INL_LOGGING_PVT.Log_Variable(
14427: p_module_name => g_module_name,
14428: p_procedure_name => l_program_name,
14429: p_var_name => 'p_match_int_rec.transaction_type',
14430: p_var_value => p_match_int_rec.transaction_type
14429: p_var_name => 'p_match_int_rec.transaction_type',
14430: p_var_value => p_match_int_rec.transaction_type
14431: ) ;
14432:
14433: INL_LOGGING_PVT.Log_Variable(
14434: p_module_name => g_module_name,
14435: p_procedure_name => l_program_name,
14436: p_var_name => 'p_match_int_rec.match_int_id',
14437: p_var_value => p_match_int_rec.match_int_id
14436: p_var_name => 'p_match_int_rec.match_int_id',
14437: p_var_value => p_match_int_rec.match_int_id
14438: ) ;
14439:
14440: INL_LOGGING_PVT.Log_Variable(
14441: p_module_name => g_module_name,
14442: p_procedure_name => l_program_name,
14443: p_var_name => 'p_match_int_rec.match_id',
14444: p_var_value => p_match_int_rec.match_id
14444: p_var_value => p_match_int_rec.match_id
14445: ) ;
14446:
14447: l_debug_info := 'Validate Transaction Type. Call Validate_MatchTrxType';
14448: INL_LOGGING_PVT.Log_Statement(
14449: p_module_name => g_module_name,
14450: p_procedure_name => l_program_name,
14451: p_debug_info => l_debug_info
14452: );
14475: RAISE L_FND_EXC_UNEXPECTED_ERROR;
14476: END IF;
14477: */
14478: -- Standard End of Procedure/Function Logging
14479: INL_LOGGING_PVT.Log_EndProc(
14480: p_module_name => g_module_name,
14481: p_procedure_name => l_program_name
14482: );
14483: RETURN FND_API.to_boolean(x_result) ;
14483: RETURN FND_API.to_boolean(x_result) ;
14484: EXCEPTION
14485: WHEN L_FND_EXC_ERROR THEN
14486: -- Standard Expected Error Logging
14487: INL_LOGGING_PVT.Log_ExpecError (
14488: p_module_name => g_module_name,
14489: p_procedure_name => l_program_name
14490: );
14491: RETURN FND_API.to_boolean(L_FND_FALSE) ;
14490: );
14491: RETURN FND_API.to_boolean(L_FND_FALSE) ;
14492: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
14493: -- Standard Unexpected Error Logging
14494: INL_LOGGING_PVT.Log_UnexpecError (
14495: p_module_name => g_module_name,
14496: p_procedure_name => l_program_name
14497: );
14498: RETURN FND_API.to_boolean(L_FND_FALSE) ;
14497: );
14498: RETURN FND_API.to_boolean(L_FND_FALSE) ;
14499: WHEN OTHERS THEN
14500: -- Standard Unexpected Error Logging
14501: INL_LOGGING_PVT.Log_UnexpecError (
14502: p_module_name => g_module_name,
14503: p_procedure_name => l_program_name
14504: );
14505: IF FND_MSG_PUB.Check_Msg_Level(
14542: l_lock_handle VARCHAR2(100);
14543: l_lock_status NUMBER;
14544: BEGIN
14545: -- Standard Beginning of Procedure/Function Logging
14546: INL_LOGGING_PVT.Log_BeginProc(
14547: p_module_name => g_module_name,
14548: p_procedure_name => l_program_name
14549: ) ;
14550: -- Initialize API return status to success
14549: ) ;
14550: -- Initialize API return status to success
14551: x_return_status := L_FND_RET_STS_SUCCESS;
14552:
14553: INL_LOGGING_PVT.Log_Variable(
14554: p_module_name => g_module_name,
14555: p_procedure_name => l_program_name,
14556: p_var_name => 'p_group_id',
14557: p_var_value => p_group_id);
14555: p_procedure_name => l_program_name,
14556: p_var_name => 'p_group_id',
14557: p_var_value => p_group_id);
14558:
14559: INL_LOGGING_PVT.Log_Statement (
14560: p_module_name => g_module_name,
14561: p_procedure_name => l_program_name,
14562: p_debug_info => 'Acquiring lock (Allocate_Unique) on: ' || l_lock_name
14563: );
14566: lockname => l_lock_name,
14567: lockhandle => l_lock_handle
14568: );
14569:
14570: INL_LOGGING_PVT.Log_Statement (
14571: p_module_name => g_module_name,
14572: p_procedure_name => l_program_name,
14573: p_debug_info => 'Acquiring lock (Request)'
14574: );
14578: lockmode => DBMS_LOCK.x_mode
14579: );
14580:
14581: IF l_lock_status <> 0 THEN
14582: INL_LOGGING_PVT.Log_Statement (
14583: p_module_name => g_module_name,
14584: p_procedure_name => l_program_name,
14585: p_debug_info => 'Failled to get the lock '||l_lock_name||' status: '||l_lock_status);
14586:
14694: AND ood.organization_id = rt.organization_id
14695: )
14696: )
14697: LOOP
14698: INL_LOGGING_PVT.Log_Statement (
14699: p_module_name => g_module_name,
14700: p_procedure_name => l_program_name,
14701: p_debug_info => ' Group unmarked:'||l_non_hrs.group_id);
14702: UPDATE
14707: l_return_value := l_return_value - NVL(SQL%ROWCOUNT,0);
14708: END LOOP;
14709: --Bug#14707257/16198838 END
14710:
14711: INL_LOGGING_PVT.Log_Statement (
14712: p_module_name => g_module_name,
14713: p_procedure_name => l_program_name,
14714: p_debug_info => l_return_value||' selected records');
14715:
14726:
14727: EXCEPTION
14728: WHEN L_FND_EXC_ERROR THEN
14729: -- Standard Expected Error Logging
14730: INL_LOGGING_PVT.Log_ExpecError (
14731: p_module_name => g_module_name,
14732: p_procedure_name => l_program_name
14733: );
14734: x_return_status := L_FND_RET_STS_ERROR;
14737: END IF;
14738: RETURN 0;
14739: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
14740: -- Standard Unexpected Error Logging
14741: INL_LOGGING_PVT.Log_UnexpecError (
14742: p_module_name => g_module_name,
14743: p_procedure_name => l_program_name
14744: );
14745: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
14748: END IF;
14749: RETURN 0;
14750: WHEN OTHERS THEN
14751: -- Standard Unexpected Error Logging
14752: INL_LOGGING_PVT.Log_UnexpecError (
14753: p_module_name => g_module_name,
14754: p_procedure_name => l_program_name
14755: );
14756: IF FND_MSG_PUB.Check_Msg_Level(
14863: l_max_match_int_id2 NUMBER; --Bug#16198838/14707257
14864:
14865: BEGIN
14866: -- Standard Beginning of Procedure/Function Logging
14867: INL_LOGGING_PVT.Log_BeginProc(
14868: p_module_name => g_module_name,
14869: p_procedure_name => l_program_name
14870: ) ;
14871: -- Initialize API return status to success
14874: --Bug#16198838/14707257
14875: SELECT NVL(MAX(match_int_id),0)
14876: INTO l_max_match_int_id
14877: FROM inl_matches_int;
14878: INL_LOGGING_PVT.Log_Variable(
14879: p_module_name => g_module_name,
14880: p_procedure_name => l_program_name,
14881: p_var_name => 'l_max_match_int_id',
14882: p_var_value => l_max_match_int_id
14884: --Bug#16198838/14707257
14885:
14886: --Bug#11794442 Begin
14887:
14888: INL_LOGGING_PVT.Log_Statement(
14889: p_module_name => g_module_name,
14890: p_procedure_name => l_program_name,
14891: p_debug_info => 'Verify if request ID is generic:'||l_fnd_conc_request_id);
14892:
14891: p_debug_info => 'Verify if request ID is generic:'||l_fnd_conc_request_id);
14892:
14893: IF l_fnd_conc_request_id = -1 THEN
14894: l_fnd_conc_request_id_int := TO_NUMBER(l_varchardate||TO_CHAR(SYSDATE,'DDDSSSS'))*-1;
14895: INL_LOGGING_PVT.Log_Variable(
14896: p_module_name => g_module_name,
14897: p_procedure_name => l_program_name,
14898: p_var_name => 'l_fnd_conc_request_id_int',
14899: p_var_value => l_fnd_conc_request_id_int
14902: l_fnd_conc_request_id_int := l_fnd_conc_request_id*-1;
14903: END IF;
14904:
14905: LOOP
14906: INL_LOGGING_PVT.Log_Statement(
14907: p_module_name => g_module_name,
14908: p_procedure_name => l_program_name,
14909: p_debug_info => 'Getting Matches_interface records to process');
14910:
14918: RAISE L_FND_EXC_ERROR;
14919: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
14920: RAISE L_FND_EXC_UNEXPECTED_ERROR;
14921: END IF;
14922: INL_LOGGING_PVT.Log_Statement(
14923: p_module_name => g_module_name,
14924: p_procedure_name => l_program_name,
14925: p_debug_info => l_rec_num||' records to process');
14926:
14949: END IF;
14950: -- l_processing_status_code := 'RUNNING';
14951: --Bug#11794442 end
14952:
14953: INL_LOGGING_PVT.Log_Variable(
14954: p_module_name => g_module_name,
14955: p_procedure_name => l_program_name,
14956: p_var_name => 'match_int_list('||i||').group_id',
14957: p_var_value => match_int_list(i).group_id
14956: p_var_name => 'match_int_list('||i||').group_id',
14957: p_var_value => match_int_list(i).group_id
14958: ) ;
14959:
14960: INL_LOGGING_PVT.Log_Variable(
14961: p_module_name => g_module_name,
14962: p_procedure_name => l_program_name,
14963: p_var_name => 'match_int_list(i).match_int_id',
14964: p_var_value => match_int_list(i).match_int_id
14963: p_var_name => 'match_int_list(i).match_int_id',
14964: p_var_value => match_int_list(i).match_int_id
14965: ) ;
14966:
14967: INL_LOGGING_PVT.Log_Variable(
14968: p_module_name => g_module_name,
14969: p_procedure_name => l_program_name,
14970: p_var_name => 'match_int_list(i).transaction_type',
14971: p_var_value => match_int_list(i).transaction_type
14970: p_var_name => 'match_int_list(i).transaction_type',
14971: p_var_value => match_int_list(i).transaction_type
14972: ) ;
14973:
14974: INL_LOGGING_PVT.Log_Variable(
14975: p_module_name => g_module_name,
14976: p_procedure_name => l_program_name,
14977: p_var_name => 'match_int_list(i).to_parent_table_name',
14978: p_var_value => match_int_list(i).to_parent_table_name
14977: p_var_name => 'match_int_list(i).to_parent_table_name',
14978: p_var_value => match_int_list(i).to_parent_table_name
14979: ) ;
14980:
14981: INL_LOGGING_PVT.Log_Variable(
14982: p_module_name => g_module_name,
14983: p_procedure_name => l_program_name,
14984: p_var_name => 'match_int_list(i).to_parent_table_id',
14985: p_var_value => match_int_list(i).to_parent_table_id
14985: p_var_value => match_int_list(i).to_parent_table_id
14986: ) ;
14987:
14988: l_debug_info := 'Delete errors from previous analysis performed on the current line. Call Reset_InterfError';
14989: INL_LOGGING_PVT.Log_Statement(
14990: p_module_name => g_module_name,
14991: p_procedure_name => l_program_name,
14992: p_debug_info => l_debug_info
14993: );
15002: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
15003: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15004: END IF;
15005: l_debug_info := 'Call Derive_MatchCols';
15006: INL_LOGGING_PVT.Log_Statement(
15007: p_module_name => g_module_name,
15008: p_procedure_name => l_program_name,
15009: p_debug_info => l_debug_info
15010: );
15024: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
15025: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15026: END IF;
15027: l_debug_info := 'Validate Match before import it from interface. Call Validate_MatchInt';
15028: INL_LOGGING_PVT.Log_Statement(
15029: p_module_name => g_module_name,
15030: p_procedure_name => l_program_name,
15031: p_debug_info => l_debug_info
15032: );
15062: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15063: END IF;
15064: END; --Bug#11794442
15065: IF (l_import_validation = TRUE) THEN
15066: INL_LOGGING_PVT.Log_Statement(
15067: p_module_name => g_module_name,
15068: p_procedure_name => l_program_name,
15069: p_debug_info => 'l_import_validation: TRUE'
15070: );
15068: p_procedure_name => l_program_name,
15069: p_debug_info => 'l_import_validation: TRUE'
15070: );
15071: ELSE
15072: INL_LOGGING_PVT.Log_Statement(
15073: p_module_name => g_module_name,
15074: p_procedure_name => l_program_name,
15075: p_debug_info => 'l_import_validation: FALSE'
15076: );
15075: p_debug_info => 'l_import_validation: FALSE'
15076: );
15077: END IF;
15078:
15079: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
15080: p_procedure_name => l_program_name,
15081: p_var_name => 'l_bad_group_id',
15082: p_var_value => l_bad_group_id);
15083:
15086: OR match_int_list(i).group_id IS NULL
15087: OR match_int_list(i).group_id <> l_bad_group_id)
15088: THEN
15089: l_debug_info := 'Set Interface Status to RUNNING';
15090: INL_LOGGING_PVT.Log_Statement(
15091: p_module_name => g_module_name,
15092: p_procedure_name => l_program_name,
15093: p_debug_info => l_debug_info
15094: );
15113: l_bad_group_id := match_int_list(i).group_id;
15114: ROLLBACK TO Run_MatchPreProcSVPNT;
15115: SAVEPOINT Run_MatchPreProcSVPNT;
15116: l_debug_info := 'Set Interface Status to ERROR for group id(2): '||match_int_list(i).group_id||sqlerrm; --Bug#14044298
15117: INL_LOGGING_PVT.Log_Statement(
15118: p_module_name => g_module_name,
15119: p_procedure_name => l_program_name,
15120: p_debug_info => l_debug_info
15121: );
15133: OR (match_int_list(i).group_id IS NULL
15134: AND mi.match_int_id = match_int_list(i).match_int_id);
15135: ELSE
15136: l_debug_info := 'Error in marked group id: '||match_int_list(i).group_id;
15137: INL_LOGGING_PVT.Log_Statement(
15138: p_module_name => g_module_name,
15139: p_procedure_name => l_program_name,
15140: p_debug_info => l_debug_info
15141: );
15152: IF g_records_processed = 0 THEN
15153: -- Add a line into inl_ship_errors
15154: -- Bug 13920858: Commented the code to avoid Error Messages getting Inserted into INL_INTERFACE_ERRORS table.
15155: l_debug_info := 'Error Mesage: No records found for processing.';
15156: INL_LOGGING_PVT.Log_Statement(
15157: p_module_name => g_module_name,
15158: p_procedure_name => l_program_name,
15159: p_debug_info => l_debug_info
15160: );
15192: CLOSE c_unproc_match_int;
15193:
15194: IF NVL(l_unproc_match_int_lst.LAST, 0) > 0 THEN
15195: l_debug_info := 'Unable to process the following groups (group_id): (review HR:security profile restriction)';
15196: INL_LOGGING_PVT.Log_Statement(
15197: p_module_name => g_module_name,
15198: p_procedure_name => l_program_name,
15199: p_debug_info => l_debug_info
15200: );
15203: FOR i IN NVL(l_unproc_match_int_lst.FIRST, 0)..NVL(l_unproc_match_int_lst.LAST, 0)
15204: LOOP
15205: l_debug_info:=l_debug_info||l_unproc_match_int_lst(i).group_id||',';
15206: IF LENGTH(l_debug_info)>70 THEN
15207: INL_LOGGING_PVT.Log_Statement(
15208: p_module_name => g_module_name,
15209: p_procedure_name => l_program_name,
15210: p_debug_info => l_debug_info
15211: );
15213: l_debug_info:=NULL;
15214: END IF;
15215: END LOOP;
15216: IF LENGTH(l_debug_info)>1 THEN
15217: INL_LOGGING_PVT.Log_Statement(
15218: p_module_name => g_module_name,
15219: p_procedure_name => l_program_name,
15220: p_debug_info => l_debug_info
15221: );
15230: END IF;
15231: END LOOP; --Bug#11794442
15232:
15233: -- Standard End of Procedure/Function Logging
15234: INL_LOGGING_PVT.Log_EndProc(
15235: p_module_name => g_module_name,
15236: p_procedure_name => l_program_name
15237: );
15238: EXCEPTION
15237: );
15238: EXCEPTION
15239: WHEN L_FND_EXC_ERROR THEN
15240: -- Standard Expected Error Logging
15241: INL_LOGGING_PVT.Log_ExpecError (
15242: p_module_name => g_module_name,
15243: p_procedure_name => l_program_name
15244: );
15245: x_return_status := L_FND_RET_STS_ERROR;
15244: );
15245: x_return_status := L_FND_RET_STS_ERROR;
15246: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15247: -- Standard Unexpected Error Logging
15248: INL_LOGGING_PVT.Log_UnexpecError (
15249: p_module_name => g_module_name,
15250: p_procedure_name => l_program_name
15251: );
15252: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15251: );
15252: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15253: WHEN OTHERS THEN
15254: -- Standard Unexpected Error Logging
15255: INL_LOGGING_PVT.Log_UnexpecError (
15256: p_module_name => g_module_name,
15257: p_procedure_name => l_program_name
15258: );
15259: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15312: shipToDelete_List shipToDelete_ListType;
15313:
15314: BEGIN
15315: -- Standard Beginning of Procedure/Function Logging
15316: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
15317: p_procedure_name => l_program_name ) ;
15318:
15319: -- Standard Start of API savepoint
15320: SAVEPOINT Purge_LCMShipInt_PVT;
15336: -- Initialize API return status to success
15337: x_return_status := L_FND_RET_STS_SUCCESS;
15338:
15339: -- Logging variables
15340: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
15341: p_procedure_name => l_program_name,
15342: p_var_name => 'p_group_id',
15343: p_var_value => p_group_id);
15344:
15350: FOR iHead IN 1 .. shipToDelete_List.COUNT
15351: LOOP
15352:
15353: l_debug_info := 'Delete from INL_SHIP_HEADERS_INT ';
15354: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
15355: p_procedure_name => l_program_name,
15356: p_debug_info => l_debug_info);
15357:
15358: DELETE FROM inl_ship_headers_int
15358: DELETE FROM inl_ship_headers_int
15359: WHERE ship_header_int_id = shipToDelete_List(iHead).ship_header_int_id;
15360:
15361: l_debug_info := 'Delete from INL_SHIP_LINES_INT ';
15362: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
15363: p_procedure_name => l_program_name,
15364: p_debug_info => l_debug_info);
15365:
15366: DELETE FROM inl_ship_lines_int
15379: p_count => x_msg_count,
15380: p_data => x_msg_data) ;
15381:
15382: -- Standard End of Procedure/Function Logging
15383: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
15384: p_procedure_name => l_program_name);
15385:
15386: EXCEPTION
15387: WHEN L_FND_EXC_ERROR THEN
15385:
15386: EXCEPTION
15387: WHEN L_FND_EXC_ERROR THEN
15388: -- Standard Expected Error Logging
15389: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
15390: p_procedure_name => l_program_name);
15391: ROLLBACK TO Purge_LCMShipInt_PVT;
15392: x_return_status := L_FND_RET_STS_ERROR;
15393: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
15394: p_count => x_msg_count,
15395: p_data => x_msg_data);
15396: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15397: -- Standard Unexpected Error Logging
15398: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
15399: p_procedure_name => l_program_name);
15400: ROLLBACK TO Purge_LCMShipInt_PVT;
15401: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15402: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
15403: p_count => x_msg_count,
15404: p_data => x_msg_data);
15405: WHEN OTHERS THEN
15406: -- Standard Unexpected Error Logging
15407: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
15408: p_procedure_name => l_program_name);
15409: ROLLBACK TO Purge_LCMShipInt_PVT;
15410: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
15411: IF FND_MSG_PUB.Check_Msg_Level(
15458:
15459: BEGIN
15460:
15461: -- Standard Beginning of Procedure/Function Logging
15462: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
15463: p_procedure_name => l_program_name ) ;
15464:
15465: -- Standard Start of API savepoint
15466: SAVEPOINT Purge_LCMMatchesInt_PVT;
15482: -- Initialize API return status to success
15483: x_return_status := L_FND_RET_STS_SUCCESS;
15484:
15485: -- Logging variables
15486: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
15487: p_procedure_name => l_program_name,
15488: p_var_name => 'p_group_id',
15489: p_var_value => p_group_id);
15490:
15488: p_var_name => 'p_group_id',
15489: p_var_value => p_group_id);
15490:
15491: l_debug_info := 'Delete from INL_MATCHES_INT';
15492: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
15493: p_procedure_name => l_program_name,
15494: p_debug_info => l_debug_info) ;
15495:
15496: DELETE FROM inl_matches_int
15507: p_count => x_msg_count,
15508: p_data => x_msg_data) ;
15509:
15510: -- Standard End of Procedure/Function Logging
15511: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
15512: p_procedure_name => l_program_name);
15513:
15514: EXCEPTION
15515: WHEN L_FND_EXC_ERROR THEN
15513:
15514: EXCEPTION
15515: WHEN L_FND_EXC_ERROR THEN
15516: -- Standard Expected Error Logging
15517: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
15518: p_procedure_name => l_program_name);
15519: ROLLBACK TO Purge_LCMMatchesInt_PVT;
15520: x_return_status := L_FND_RET_STS_ERROR;
15521: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
15522: p_count => x_msg_count,
15523: p_data => x_msg_data);
15524: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15525: -- Standard Unexpected Error Logging
15526: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
15527: p_procedure_name => l_program_name);
15528: ROLLBACK TO Purge_LCMMatchesInt_PVT;
15529: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15530: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
15531: p_count => x_msg_count,
15532: p_data => x_msg_data);
15533: WHEN OTHERS THEN
15534: -- Standard Unexpected Error Logging
15535: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
15536: p_procedure_name => l_program_name);
15537: ROLLBACK TO Purge_LCMMatchesInt_PVT;
15538: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
15539: IF FND_MSG_PUB.Check_Msg_Level(
15574: l_init_msg_list VARCHAR2(2000) := L_FND_FALSE;
15575:
15576: BEGIN
15577: -- Standard Beginning of Procedure/Function Logging
15578: INL_LOGGING_PVT.Log_BeginProc(
15579: p_module_name => g_module_name,
15580: p_procedure_name => l_program_name
15581: ) ;
15582: -- Initialize API return status to success
15581: ) ;
15582: -- Initialize API return status to success
15583: x_return_status := L_FND_RET_STS_SUCCESS;
15584: l_debug_info := 'Import Matches. Call Import_Matches';
15585: INL_LOGGING_PVT.Log_Statement(
15586: p_module_name => g_module_name,
15587: p_procedure_name => l_program_name,
15588: p_debug_info => l_debug_info
15589: );
15622: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15623: END IF;
15624:
15625: -- Standard End of Procedure/Function Logging
15626: INL_LOGGING_PVT.Log_EndProc(
15627: p_module_name => g_module_name,
15628: p_procedure_name => l_program_name
15629: );
15630: EXCEPTION
15629: );
15630: EXCEPTION
15631: WHEN L_FND_EXC_ERROR THEN
15632: -- Standard Expected Error Logging
15633: INL_LOGGING_PVT.Log_ExpecError (
15634: p_module_name => g_module_name,
15635: p_procedure_name => l_program_name
15636: );
15637: x_return_status := L_FND_RET_STS_ERROR;
15636: );
15637: x_return_status := L_FND_RET_STS_ERROR;
15638: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15639: -- Standard Unexpected Error Logging
15640: INL_LOGGING_PVT.Log_UnexpecError (
15641: p_module_name => g_module_name,
15642: p_procedure_name => l_program_name
15643: );
15644: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15643: );
15644: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15645: WHEN OTHERS THEN
15646: -- Standard Unexpected Error Logging
15647: INL_LOGGING_PVT.Log_UnexpecError (
15648: p_module_name => g_module_name,
15649: p_procedure_name => l_program_name
15650: );
15651: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
15693: g_records_processed := 0;
15694: g_records_inserted := 0;
15695:
15696: -- Standard Beginning of Procedure/Function Logging
15697: INL_LOGGING_PVT.Log_BeginProc(
15698: p_module_name => g_module_name,
15699: p_procedure_name => l_program_name) ;
15700:
15701: l_debug_info := 'Call Import_LCMShipments';
15698: p_module_name => g_module_name,
15699: p_procedure_name => l_program_name) ;
15700:
15701: l_debug_info := 'Call Import_LCMShipments';
15702: INL_LOGGING_PVT.Log_Statement(
15703: p_module_name => g_module_name,
15704: p_procedure_name => l_program_name,
15705: p_debug_info => l_debug_info
15706: );
15743: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15744: END IF;
15745:
15746: -- Standard End of Procedure/Function Logging
15747: INL_LOGGING_PVT.Log_EndProc(
15748: p_module_name => g_module_name,
15749: p_procedure_name => l_program_name);
15750:
15751: EXCEPTION
15750:
15751: EXCEPTION
15752: WHEN L_FND_EXC_ERROR THEN
15753: -- Standard Expected Error Logging
15754: INL_LOGGING_PVT.Log_ExpecError (
15755: p_module_name => g_module_name,
15756: p_procedure_name => l_program_name);
15757: retcode := 1;
15758: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
15757: retcode := 1;
15758: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
15759: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15760: -- Standard Unexpected Error Logging
15761: INL_LOGGING_PVT.Log_UnexpecError(
15762: p_module_name => g_module_name,
15763: p_procedure_name => l_program_name);
15764: retcode := 2;
15765: errbuf := errbuf ||' G_EXC_UNEXPECTED_ERROR '||SQLERRM;
15764: retcode := 2;
15765: errbuf := errbuf ||' G_EXC_UNEXPECTED_ERROR '||SQLERRM;
15766: WHEN OTHERS THEN
15767: -- Standard Unexpected Error Logging
15768: INL_LOGGING_PVT.Log_UnexpecError(
15769: p_module_name => g_module_name,
15770: p_procedure_name => l_program_name);
15771: retcode := 2;
15772: errbuf := errbuf ||' OTHERS '||SQLERRM;
15805: g_records_processed := 0;
15806: g_records_inserted := 0;
15807:
15808: -- Standard Beginning of Procedure/Function Logging
15809: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
15810: p_procedure_name => l_program_name);
15811:
15812: l_debug_info := 'Call Import_LCMMatches';
15813: INL_LOGGING_PVT.Log_Statement(
15809: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
15810: p_procedure_name => l_program_name);
15811:
15812: l_debug_info := 'Call Import_LCMMatches';
15813: INL_LOGGING_PVT.Log_Statement(
15814: p_module_name => g_module_name,
15815: p_procedure_name => l_program_name,
15816: p_debug_info => l_debug_info
15817: );
15851: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15852: END IF;
15853:
15854: -- Standard End of Procedure/Function Logging
15855: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
15856: p_procedure_name => l_program_name);
15857: EXCEPTION
15858: WHEN L_FND_EXC_ERROR THEN
15859: -- Standard Expected Error Logging
15856: p_procedure_name => l_program_name);
15857: EXCEPTION
15858: WHEN L_FND_EXC_ERROR THEN
15859: -- Standard Expected Error Logging
15860: INL_LOGGING_PVT.Log_ExpecError (
15861: p_module_name => g_module_name,
15862: p_procedure_name => l_program_name
15863: );
15864: retcode := 1;
15863: );
15864: retcode := 1;
15865: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
15866: -- Standard Unexpected Error Logging
15867: INL_LOGGING_PVT.Log_UnexpecError(
15868: p_module_name => g_module_name,
15869: p_procedure_name => l_program_name
15870: );
15871: retcode := 2;
15870: );
15871: retcode := 2;
15872: WHEN OTHERS THEN
15873: -- Standard Unexpected Error Logging
15874: INL_LOGGING_PVT.Log_UnexpecError(
15875: p_module_name => g_module_name,
15876: p_procedure_name => l_program_name
15877: );
15878: retcode := 2;
15913: l_msg_data VARCHAR2(2000) ;
15914: l_debug_info VARCHAR2(200) ;
15915: BEGIN
15916: -- Standard Beginning of Procedure/Function Logging
15917: INL_LOGGING_PVT.Log_BeginProc(
15918: p_module_name => g_module_name,
15919: p_procedure_name => l_program_name
15920: ) ;
15921:
15936: END IF;
15937: -- Initialize API return status to success
15938: x_return_status := L_FND_RET_STS_SUCCESS;
15939: l_debug_info := 'Run Match Pre-Processor(first level validation). Call Run_MatchPreProcessor';
15940: INL_LOGGING_PVT.Log_Statement(
15941: p_module_name => g_module_name,
15942: p_procedure_name => l_program_name,
15943: p_debug_info => l_debug_info
15944: );
15954: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
15955: RAISE L_FND_EXC_UNEXPECTED_ERROR;
15956: END IF;
15957: l_debug_info := 'Run Match Post-Processor. Call Run_MatchPostProcessor';
15958: INL_LOGGING_PVT.Log_Statement(
15959: p_module_name => g_module_name,
15960: p_procedure_name=> l_program_name,
15961: p_debug_info => l_debug_info
15962: );
15981: p_count => x_msg_count,
15982: p_data => x_msg_data
15983: ) ;
15984: -- Standard End of Procedure/Function Logging
15985: INL_LOGGING_PVT.Log_EndProc(
15986: p_module_name => g_module_name,
15987: p_procedure_name => l_program_name
15988: );
15989: EXCEPTION
15988: );
15989: EXCEPTION
15990: WHEN L_FND_EXC_ERROR THEN
15991: -- Standard Expected Error Logging
15992: INL_LOGGING_PVT.Log_ExpecError (
15993: p_module_name => g_module_name,
15994: p_procedure_name => l_program_name
15995: );
15996: ROLLBACK TO Import_LCMMatches_PVT;
16001: p_data => x_msg_data
16002: );
16003: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16004: -- Standard Unexpected Error Logging
16005: INL_LOGGING_PVT.Log_UnexpecError (
16006: p_module_name => g_module_name,
16007: p_procedure_name => l_program_name
16008: );
16009: ROLLBACK TO Import_LCMMatches_PVT;
16014: p_data => x_msg_data
16015: );
16016: WHEN OTHERS THEN
16017: -- Standard Unexpected Error Logging
16018: INL_LOGGING_PVT.Log_UnexpecError (
16019: p_module_name => g_module_name,
16020: p_procedure_name => l_program_name
16021: );
16022: ROLLBACK TO Import_LCMMatches_PVT;
16067: l_lock_handle VARCHAR2(100);
16068: l_lock_status NUMBER;
16069: BEGIN
16070: -- Standard Beginning of Procedure/Function Logging
16071: INL_LOGGING_PVT.Log_BeginProc(
16072: p_module_name => g_module_name,
16073: p_procedure_name => l_program_name
16074: ) ;
16075: -- Initialize API return status to success
16074: ) ;
16075: -- Initialize API return status to success
16076: x_return_status := L_FND_RET_STS_SUCCESS;
16077:
16078: INL_LOGGING_PVT.Log_Variable(
16079: p_module_name => g_module_name,
16080: p_procedure_name => l_program_name,
16081: p_var_name => 'p_group_id',
16082: p_var_value => p_group_id);
16080: p_procedure_name => l_program_name,
16081: p_var_name => 'p_group_id',
16082: p_var_value => p_group_id);
16083:
16084: INL_LOGGING_PVT.Log_Statement (
16085: p_module_name => g_module_name,
16086: p_procedure_name => l_program_name,
16087: p_debug_info => 'Acquiring lock (Allocate_Unique) on: ' || l_lock_name
16088: );
16091: lockname => l_lock_name,
16092: lockhandle => l_lock_handle
16093: );
16094:
16095: INL_LOGGING_PVT.Log_Statement (
16096: p_module_name => g_module_name,
16097: p_procedure_name => l_program_name,
16098: p_debug_info => 'Acquiring lock (Request)'
16099: );
16103: lockmode => DBMS_LOCK.x_mode
16104: );
16105:
16106: IF l_lock_status <> 0 THEN
16107: INL_LOGGING_PVT.Log_Statement (
16108: p_module_name => g_module_name,
16109: p_procedure_name => l_program_name,
16110: p_debug_info => 'Failled to get the lock '||l_lock_name||' status: '||l_lock_status);
16111:
16120: AND (p_group_id IS NULL
16121: OR group_id = p_group_id)
16122: AND ROWNUM < l_lines;
16123: l_return_value := SQL%ROWCOUNT;
16124: INL_LOGGING_PVT.Log_Statement (
16125: p_module_name => g_module_name,
16126: p_procedure_name => l_program_name,
16127: p_debug_info => l_return_value||' selected records');
16128:
16134:
16135: EXCEPTION
16136: WHEN L_FND_EXC_ERROR THEN
16137: -- Standard Expected Error Logging
16138: INL_LOGGING_PVT.Log_ExpecError (
16139: p_module_name => g_module_name,
16140: p_procedure_name => l_program_name
16141: );
16142: x_return_status := L_FND_RET_STS_ERROR;
16145: END IF;
16146: RETURN 0;
16147: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16148: -- Standard Unexpected Error Logging
16149: INL_LOGGING_PVT.Log_UnexpecError (
16150: p_module_name => g_module_name,
16151: p_procedure_name => l_program_name
16152: );
16153: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
16156: END IF;
16157: RETURN 0;
16158: WHEN OTHERS THEN
16159: -- Standard Unexpected Error Logging
16160: INL_LOGGING_PVT.Log_UnexpecError (
16161: p_module_name => g_module_name,
16162: p_procedure_name => l_program_name
16163: );
16164: IF FND_MSG_PUB.Check_Msg_Level(
16197: l_count_records NUMBER;
16198:
16199: BEGIN
16200: -- Standard Beginning of Procedure/Function Logging
16201: INL_LOGGING_PVT.Log_BeginProc(
16202: p_module_name => g_module_name,
16203: p_procedure_name => l_program_name
16204: ) ;
16205: -- Initialize API return status to success
16205: -- Initialize API return status to success
16206: x_return_status := L_FND_RET_STS_SUCCESS;
16207:
16208: l_debug_info := 'Header records with transaction_type = CREATE should have at least one line, verifying...';
16209: INL_LOGGING_PVT.Log_Statement(
16210: p_module_name => g_module_name,
16211: p_procedure_name => l_program_name,
16212: p_debug_info => l_debug_info
16213: ) ;
16263: WHERE l.ship_header_int_id = h.ship_header_int_id
16264: AND ROWNUM < 2);
16265:
16266: l_debug_info := 'Inserted '||SQL%ROWCOUNT ||' error messages into Interface Error table.';
16267: INL_LOGGING_PVT.Log_Statement(
16268: p_module_name => g_module_name,
16269: p_procedure_name => l_program_name,
16270: p_debug_info => l_debug_info) ;
16271: IF SQL%ROWCOUNT > 0 THEN
16269: p_procedure_name => l_program_name,
16270: p_debug_info => l_debug_info) ;
16271: IF SQL%ROWCOUNT > 0 THEN
16272: l_debug_info := 'Set Shipment Header Interface status to ERROR.';
16273: INL_LOGGING_PVT.Log_Statement(
16274: p_module_name => g_module_name,
16275: p_procedure_name => l_program_name,
16276: p_debug_info => l_debug_info) ;
16277:
16295: WHERE l.ship_header_int_id = h.ship_header_int_id
16296: AND ROWNUM < 2);
16297: END IF;
16298: -- Standard End of Procedure/Function Logging
16299: INL_LOGGING_PVT.Log_EndProc(
16300: p_module_name => g_module_name,
16301: p_procedure_name => l_program_name);
16302:
16303: RETURN NVL(sql%ROWCOUNT,0);
16303: RETURN NVL(sql%ROWCOUNT,0);
16304: EXCEPTION
16305: WHEN L_FND_EXC_ERROR THEN
16306: -- Standard Expected Error Logging
16307: INL_LOGGING_PVT.Log_ExpecError (
16308: p_module_name => g_module_name,
16309: p_procedure_name => l_program_name
16310: );
16311: x_return_status := L_FND_RET_STS_ERROR;
16311: x_return_status := L_FND_RET_STS_ERROR;
16312: RETURN 0;
16313: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16314: -- Standard Unexpected Error Logging
16315: INL_LOGGING_PVT.Log_UnexpecError (
16316: p_module_name => g_module_name,
16317: p_procedure_name => l_program_name
16318: );
16319: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
16319: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
16320: RETURN 0;
16321: WHEN OTHERS THEN
16322: -- Standard Unexpected Error Logging
16323: INL_LOGGING_PVT.Log_UnexpecError (
16324: p_module_name => g_module_name,
16325: p_procedure_name => l_program_name
16326: );
16327: IF FND_MSG_PUB.Check_Msg_Level(
16361: l_response BOOLEAN := TRUE;
16362: l_ship_header_id NUMBER;
16363: BEGIN
16364: -- Standard Beginning of Procedure/Function Logging
16365: INL_LOGGING_PVT.Log_BeginProc(
16366: p_module_name => g_module_name,
16367: p_procedure_name => l_program_name) ;
16368: -- Initialize API return status to success
16369: x_return_status := L_FND_RET_STS_SUCCESS;
16373: l_ship_header_id := x_ship_hdr_int_rec.ship_header_id;
16374: END IF;
16375:
16376: l_debug_info := 'Call Validate_Organization';
16377: INL_LOGGING_PVT.Log_Statement(
16378: p_module_name => g_module_name,
16379: p_procedure_name => l_program_name,
16380: p_debug_info => l_debug_info) ;
16381:
16404: ELSE
16405: l_debug_info := 'False';
16406: l_response := l_response_int;
16407: END IF;
16408: INL_LOGGING_PVT.Log_Variable(
16409: p_module_name => g_module_name,
16410: p_procedure_name => l_program_name,
16411: p_var_name => 'l_response_int',
16412: p_var_value => l_debug_info);
16410: p_procedure_name => l_program_name,
16411: p_var_name => 'l_response_int',
16412: p_var_value => l_debug_info);
16413:
16414: INL_LOGGING_PVT.Log_Variable(
16415: p_module_name => g_module_name,
16416: p_procedure_name => l_program_name,
16417: p_var_name => 'x_ship_hdr_int_rec.ship_num',
16418: p_var_value => x_ship_hdr_int_rec.ship_num);
16417: p_var_name => 'x_ship_hdr_int_rec.ship_num',
16418: p_var_value => x_ship_hdr_int_rec.ship_num);
16419:
16420: l_debug_info := 'Transaction Type validation';
16421: INL_LOGGING_PVT.Log_Statement(
16422: p_module_name => g_module_name,
16423: p_procedure_name => l_program_name,
16424: p_debug_info => l_debug_info);
16425:
16453: ELSE
16454: l_debug_info := 'False';
16455: l_response := l_response_int;
16456: END IF;
16457: INL_LOGGING_PVT.Log_Variable(
16458: p_module_name => g_module_name,
16459: p_procedure_name => l_program_name,
16460: p_var_name => 'l_response_int',
16461: p_var_value => l_debug_info);
16458: p_module_name => g_module_name,
16459: p_procedure_name => l_program_name,
16460: p_var_name => 'l_response_int',
16461: p_var_value => l_debug_info);
16462: INL_LOGGING_PVT.Log_Variable(
16463: p_module_name => g_module_name,
16464: p_procedure_name => l_program_name,
16465: p_var_name => 'x_ship_hdr_int_rec.ship_num',
16466: p_var_value => x_ship_hdr_int_rec.ship_num);
16476: l_debug_info := 'True';
16477: ELSE
16478: l_debug_info := 'False';
16479: END IF;
16480: INL_LOGGING_PVT.Log_Variable(
16481: p_module_name => g_module_name,
16482: p_procedure_name => l_program_name,
16483: p_var_name => 'l_response',
16484: p_var_value => l_debug_info);
16496: END IF;
16497: END IF;
16498: -- Shipment Number validation
16499: l_debug_info := 'Call Validate_ShipNum ';
16500: INL_LOGGING_PVT.Log_Statement(
16501: p_module_name => g_module_name,
16502: p_procedure_name => l_program_name,
16503: p_debug_info => l_debug_info);
16504:
16527: ELSE
16528: l_debug_info := 'False';
16529: l_response := l_response_int;
16530: END IF;
16531: INL_LOGGING_PVT.Log_Variable(
16532: p_module_name => g_module_name,
16533: p_procedure_name => l_program_name,
16534: p_var_name => 'l_response_int',
16535: p_var_value => l_debug_info);
16537: IF x_ship_hdr_int_rec.transaction_type = 'CREATE'
16538: THEN
16539: -- Shipment Type validation
16540: l_debug_info := 'Call Validate_ShipType';
16541: INL_LOGGING_PVT.Log_Statement(
16542: p_module_name => g_module_name,
16543: p_procedure_name => l_program_name,
16544: p_debug_info => l_debug_info) ;
16545:
16562: ELSE
16563: l_debug_info := 'False';
16564: l_response := l_response_int;
16565: END IF;
16566: INL_LOGGING_PVT.Log_Variable(
16567: p_module_name => g_module_name,
16568: p_procedure_name => l_program_name,
16569: p_var_name => 'l_response_int',
16570: p_var_value => l_debug_info);
16570: p_var_value => l_debug_info);
16571:
16572: -- Location derivation and validation
16573: l_debug_info := 'Call Validate_Location';
16574: INL_LOGGING_PVT.Log_Statement(
16575: p_module_name => g_module_name,
16576: p_procedure_name => l_program_name,
16577: p_debug_info => l_debug_info) ;
16578:
16598: ELSE
16599: l_debug_info := 'False';
16600: l_response := l_response_int;
16601: END IF;
16602: INL_LOGGING_PVT.Log_Variable(
16603: p_module_name => g_module_name,
16604: p_procedure_name => l_program_name,
16605: p_var_name => 'l_response_int',
16606: p_var_value => l_debug_info);
16608: END IF;
16609: END IF;
16610:
16611: -- Standard End of Procedure/Function Logging
16612: INL_LOGGING_PVT.Log_EndProc(
16613: p_module_name => g_module_name,
16614: p_procedure_name => l_program_name);
16615: RETURN l_response;
16616: EXCEPTION
16615: RETURN l_response;
16616: EXCEPTION
16617: WHEN L_FND_EXC_ERROR THEN
16618: -- Standard Expected Error Logging
16619: INL_LOGGING_PVT.Log_ExpecError (
16620: p_module_name => g_module_name,
16621: p_procedure_name => l_program_name);
16622: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16623: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16621: p_procedure_name => l_program_name);
16622: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16623: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16624: -- Standard Unexpected Error Logging
16625: INL_LOGGING_PVT.Log_UnexpecError (
16626: p_module_name => g_module_name,
16627: p_procedure_name => l_program_name);
16628: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16629: WHEN OTHERS THEN
16627: p_procedure_name => l_program_name);
16628: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16629: WHEN OTHERS THEN
16630: -- Standard Unexpected Error Logging
16631: INL_LOGGING_PVT.Log_UnexpecError (
16632: p_module_name => g_module_name,
16633: p_procedure_name => l_program_name);
16634: IF FND_MSG_PUB.Check_Msg_Level(
16635: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
16682: l_response BOOLEAN := TRUE;
16683:
16684: BEGIN
16685: -- Standard Beginning of Procedure/Function Logging
16686: INL_LOGGING_PVT.Log_BeginProc(
16687: p_module_name => g_module_name,
16688: p_procedure_name => l_program_name) ;
16689: -- Initialize API return status to success
16690: x_return_status := L_FND_RET_STS_SUCCESS;
16689: -- Initialize API return status to success
16690: x_return_status := L_FND_RET_STS_SUCCESS;
16691:
16692: l_debug_info := 'Transaction Type validation: '||p_transaction_type;
16693: INL_LOGGING_PVT.Log_Statement(
16694: p_module_name => g_module_name,
16695: p_procedure_name => l_program_name,
16696: p_debug_info => l_debug_info);
16697:
16731: ELSE
16732: l_debug_info := 'False';
16733: l_response := l_response_int;
16734: END IF;
16735: INL_LOGGING_PVT.Log_Variable(
16736: p_module_name => g_module_name,
16737: p_procedure_name => l_program_name,
16738: p_var_name => 'l_response_int',
16739: p_var_value => l_debug_info);
16738: p_var_name => 'l_response_int',
16739: p_var_value => l_debug_info);
16740:
16741: -- Standard End of Procedure/Function Logging
16742: INL_LOGGING_PVT.Log_EndProc(
16743: p_module_name => g_module_name,
16744: p_procedure_name => l_program_name);
16745: RETURN l_response;
16746: EXCEPTION
16745: RETURN l_response;
16746: EXCEPTION
16747: WHEN L_FND_EXC_ERROR THEN
16748: -- Standard Expected Error Logging
16749: INL_LOGGING_PVT.Log_ExpecError (
16750: p_module_name => g_module_name,
16751: p_procedure_name => l_program_name);
16752: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16753: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16751: p_procedure_name => l_program_name);
16752: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16753: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
16754: -- Standard Unexpected Error Logging
16755: INL_LOGGING_PVT.Log_UnexpecError (
16756: p_module_name => g_module_name,
16757: p_procedure_name => l_program_name);
16758: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16759: WHEN OTHERS THEN
16757: p_procedure_name => l_program_name);
16758: RETURN FND_API.to_boolean(L_FND_FALSE) ;
16759: WHEN OTHERS THEN
16760: -- Standard Unexpected Error Logging
16761: INL_LOGGING_PVT.Log_UnexpecError (
16762: p_module_name => g_module_name,
16763: p_procedure_name => l_program_name);
16764: IF FND_MSG_PUB.Check_Msg_Level(
16765: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
16849: l_rule_package_name VARCHAR2(100);
16850: -- Bug #16310024
16851: BEGIN
16852: -- Standard Beginning of Procedure/Function Logging
16853: INL_LOGGING_PVT.Log_BeginProc(
16854: p_module_name => g_module_name,
16855: p_procedure_name => l_program_name) ;
16856: -- Standard Start of API savepoint
16857: SAVEPOINT Import_LCMShipments_PVT;
16870: -- Initialize API return status to success
16871: x_return_status := L_FND_RET_STS_SUCCESS;
16872:
16873: --Bug#11794483B
16874: INL_LOGGING_PVT.Log_Statement(
16875: p_module_name => g_module_name,
16876: p_procedure_name => l_program_name,
16877: p_debug_info => 'Verify if request ID is generic:'||l_fnd_conc_request_id);
16878:
16877: p_debug_info => 'Verify if request ID is generic:'||l_fnd_conc_request_id);
16878:
16879: IF l_fnd_conc_request_id = -1 THEN
16880: l_fnd_conc_request_id_int := TO_NUMBER(l_varchardate||TO_CHAR(SYSDATE,'DDDSSSS'))*-1;
16881: INL_LOGGING_PVT.Log_Variable(
16882: p_module_name => g_module_name,
16883: p_procedure_name => l_program_name,
16884: p_var_name => 'l_fnd_conc_request_id_int',
16885: p_var_value => l_fnd_conc_request_id_int
16889: END IF;
16890: --Bug#11794483B
16891:
16892: l_current_org_id := NVL(l_previous_org_id,-999);--Bug#10381495
16893: INL_LOGGING_PVT.Log_Variable(
16894: p_module_name => g_module_name,
16895: p_procedure_name => l_program_name,
16896: p_var_name => 'l_current_org_id',
16897: p_var_value => l_current_org_id
16895: p_procedure_name => l_program_name,
16896: p_var_name => 'l_current_org_id',
16897: p_var_value => l_current_org_id
16898: ) ;
16899: INL_LOGGING_PVT.Log_Variable(
16900: p_module_name => g_module_name,
16901: p_procedure_name => l_program_name,
16902: p_var_name => 'p_group_id',
16903: p_var_value => p_group_id
16901: p_procedure_name => l_program_name,
16902: p_var_name => 'p_group_id',
16903: p_var_value => p_group_id
16904: ) ;
16905: INL_LOGGING_PVT.Log_Variable(
16906: p_module_name => g_module_name,
16907: p_procedure_name => l_program_name,
16908: p_var_name => 'p_simulation_id',
16909: p_var_value => p_simulation_id
16911:
16912: -- <#Bug 8979947>
16913: /*
16914: l_debug_info := 'Check profile INL_INTERFACE_IMPORT_COMMIT_CYCLE';
16915: INL_LOGGING_PVT.Log_Statement (
16916: p_module_name => g_module_name,
16917: p_procedure_name => l_program_name,
16918: p_debug_info => l_debug_info
16919: );
16929: END IF;
16930:
16931: -- <#Bug /8979947>
16932:
16933: INL_LOGGING_PVT.Log_Statement(
16934: p_module_name => g_module_name,
16935: p_procedure_name => l_program_name,
16936: p_debug_info => 'Verify if exist any header record without line');
16937:
16946: RAISE L_FND_EXC_UNEXPECTED_ERROR;
16947: END IF;
16948:
16949: LOOP
16950: INL_LOGGING_PVT.Log_Statement(
16951: p_module_name => g_module_name,
16952: p_procedure_name => l_program_name,
16953: p_debug_info => 'Getting header_interface records to process');
16954:
16962: RAISE L_FND_EXC_ERROR;
16963: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
16964: RAISE L_FND_EXC_UNEXPECTED_ERROR;
16965: END IF;
16966: INL_LOGGING_PVT.Log_Statement(
16967: p_module_name => g_module_name,
16968: p_procedure_name => l_program_name,
16969: p_debug_info => l_rec_num||' records to process');
16970:
16973: CLOSE c_ship_hdr_int;
16974:
16975: G_RECORDS_PROCESSED := G_RECORDS_PROCESSED + NVL(l_ship_hdr_int_list.COUNT, 0);
16976:
16977: INL_LOGGING_PVT.Log_Statement(
16978: p_module_name => g_module_name,
16979: p_procedure_name => l_program_name,
16980: p_debug_info => NVL(l_ship_hdr_int_list.COUNT, 0)||' records have been found.');
16981:
16992: SAVEPOINT InlInterfacePvt_ILCMShip;
16993: /*
16994: END IF;
16995: */
16996: INL_LOGGING_PVT.Log_Variable(
16997: p_module_name => g_module_name,
16998: p_procedure_name => l_program_name,
16999: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_header_int_id',
17000: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_header_int_id) ;
16998: p_procedure_name => l_program_name,
16999: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_header_int_id',
17000: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_header_int_id) ;
17001:
17002: INL_LOGGING_PVT.Log_Variable(
17003: p_module_name => g_module_name,
17004: p_procedure_name => l_program_name,
17005: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')group_id',
17006: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).group_id) ;
17004: p_procedure_name => l_program_name,
17005: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')group_id',
17006: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).group_id) ;
17007:
17008: INL_LOGGING_PVT.Log_Variable(
17009: p_module_name => g_module_name,
17010: p_procedure_name => l_program_name,
17011: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')transaction_type',
17012: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).transaction_type) ;
17010: p_procedure_name => l_program_name,
17011: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')transaction_type',
17012: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).transaction_type) ;
17013:
17014: INL_LOGGING_PVT.Log_Variable(
17015: p_module_name => g_module_name,
17016: p_procedure_name => l_program_name,
17017: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_code',
17018: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_code) ;
17016: p_procedure_name => l_program_name,
17017: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_code',
17018: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_code) ;
17019:
17020: INL_LOGGING_PVT.Log_Variable(
17021: p_module_name => g_module_name,
17022: p_procedure_name => l_program_name,
17023: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_table',
17024: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_table) ;
17022: p_procedure_name => l_program_name,
17023: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_table',
17024: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_table) ;
17025:
17026: INL_LOGGING_PVT.Log_Variable(
17027: p_module_name => g_module_name,
17028: p_procedure_name => l_program_name,
17029: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_line_id',
17030: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_line_id) ;
17028: p_procedure_name => l_program_name,
17029: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')interface_source_line_id',
17030: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).interface_source_line_id) ;
17031:
17032: INL_LOGGING_PVT.Log_Variable(
17033: p_module_name => g_module_name,
17034: p_procedure_name => l_program_name,
17035: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')validation_flag',
17036: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).validation_flag) ;
17034: p_procedure_name => l_program_name,
17035: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')validation_flag',
17036: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).validation_flag) ;
17037:
17038: INL_LOGGING_PVT.Log_Variable(
17039: p_module_name => g_module_name,
17040: p_procedure_name => l_program_name,
17041: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_num',
17042: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_num) ;
17040: p_procedure_name => l_program_name,
17041: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_num',
17042: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_num) ;
17043:
17044: INL_LOGGING_PVT.Log_Variable(
17045: p_module_name => g_module_name,
17046: p_procedure_name => l_program_name,
17047: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_date',
17048: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_date) ;
17046: p_procedure_name => l_program_name,
17047: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_date',
17048: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_date) ;
17049:
17050: INL_LOGGING_PVT.Log_Variable(
17051: p_module_name => g_module_name,
17052: p_procedure_name => l_program_name,
17053: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_type_id',
17054: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_type_id) ;
17052: p_procedure_name => l_program_name,
17053: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')ship_type_id',
17054: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_type_id) ;
17055:
17056: INL_LOGGING_PVT.Log_Variable(
17057: p_module_name => g_module_name,
17058: p_procedure_name => l_program_name,
17059: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')legal_entity_id',
17060: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).legal_entity_id) ;
17058: p_procedure_name => l_program_name,
17059: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')legal_entity_id',
17060: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).legal_entity_id) ;
17061:
17062: INL_LOGGING_PVT.Log_Variable(
17063: p_module_name => g_module_name,
17064: p_procedure_name => l_program_name,
17065: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')organization_id',
17066: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).organization_id) ;
17064: p_procedure_name => l_program_name,
17065: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')organization_id',
17066: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).organization_id) ;
17067:
17068: INL_LOGGING_PVT.Log_Variable(
17069: p_module_name => g_module_name,
17070: p_procedure_name => l_program_name,
17071: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')location_id',
17072: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).location_id) ;
17070: p_procedure_name => l_program_name,
17071: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')location_id',
17072: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).location_id) ;
17073:
17074: INL_LOGGING_PVT.Log_Variable(
17075: p_module_name => g_module_name,
17076: p_procedure_name => l_program_name,
17077: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')org_id',
17078: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id) ;
17076: p_procedure_name => l_program_name,
17077: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')org_id',
17078: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id) ;
17079:
17080: INL_LOGGING_PVT.Log_Variable(
17081: p_module_name => g_module_name,
17082: p_procedure_name => l_program_name,
17083: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')last_task_code',
17084: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).last_task_code) ;
17082: p_procedure_name => l_program_name,
17083: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')last_task_code',
17084: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).last_task_code) ;
17085:
17086: INL_LOGGING_PVT.Log_Variable(
17087: p_module_name => g_module_name,
17088: p_procedure_name => l_program_name,
17089: p_var_name => 'l_ship_hdr_int_list('||l_ship_hdr_int_idx||')rcv_enabled_flag',
17090: p_var_value => l_ship_hdr_int_list(l_ship_hdr_int_idx).rcv_enabled_flag) ;
17101: RAISE L_FND_EXC_UNEXPECTED_ERROR;
17102: END IF;
17103:
17104: l_debug_info := 'Validate Ship Header Int';
17105: INL_LOGGING_PVT.Log_Statement(
17106: p_module_name => g_module_name,
17107: p_procedure_name => l_program_name,
17108: p_debug_info => l_debug_info);
17109:
17122: OPEN c_ship_ln_int(l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_header_int_id);
17123: FETCH c_ship_ln_int BULK COLLECT INTO l_ship_ln_int_list;
17124: CLOSE c_ship_ln_int;
17125:
17126: INL_LOGGING_PVT.Log_Statement(
17127: p_module_name => g_module_name,
17128: p_procedure_name => l_program_name,
17129: p_debug_info => NVL(l_ship_ln_int_list.COUNT, 0)||' lines have been found.');
17130:
17154: THEN
17155: IF l_ship_hdr_int_list(l_ship_hdr_int_idx).last_task_code >= '10' THEN -- check if import should be executed
17156:
17157: l_debug_info := 'Import Shipment Headers. Call Import_Headers';
17158: INL_LOGGING_PVT.Log_Statement(
17159: p_module_name => g_module_name,
17160: p_procedure_name => l_program_name,
17161: p_debug_info => l_debug_info);
17162:
17175: IF l_ship_hdr_int_list(l_ship_hdr_int_idx).transaction_type = 'CREATE'
17176: OR l_ship_hdr_int_list(l_ship_hdr_int_idx).transaction_type = 'UPDATE'
17177: THEN
17178: l_debug_info := 'Import Shipment Lines. Call Import_Lines for ship_header_id: ' || l_ship_hdr_int_list(l_ship_hdr_int_idx).ship_header_int_id;
17179: INL_LOGGING_PVT.Log_Statement(
17180: p_module_name => g_module_name,
17181: p_procedure_name => l_program_name,
17182: p_debug_info => l_debug_info);
17183:
17196: RAISE L_FND_EXC_UNEXPECTED_ERROR;
17197: END IF;
17198: END IF;
17199:
17200: INL_LOGGING_PVT.Log_Statement(
17201: p_module_name => g_module_name,
17202: p_procedure_name => l_program_name,
17203: p_debug_info => 'Comparing l_current_org_id: '||l_current_org_id||' with l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id:'||l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id
17204: );
17203: p_debug_info => 'Comparing l_current_org_id: '||l_current_org_id||' with l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id:'||l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id
17204: );
17205: --Bug#10381495
17206: IF (l_current_org_id <> l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id) THEN
17207: INL_LOGGING_PVT.Log_Statement(
17208: p_module_name => g_module_name,
17209: p_procedure_name => l_program_name,
17210: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id
17211: );
17210: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id
17211: );
17212: mo_global.set_policy_context( 'S', l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id);
17213: l_current_org_id := l_ship_hdr_int_list(l_ship_hdr_int_idx).org_id;
17214: INL_LOGGING_PVT.Log_Statement(
17215: p_module_name => g_module_name,
17216: p_procedure_name => l_program_name,
17217: p_debug_info => 'l_current_org_id: '||l_current_org_id
17218: );
17225:
17226: l_organization_id := l_ship_hdr_int_list(l_ship_hdr_int_idx).organization_id;
17227: l_rule_package_name := NULL;
17228:
17229: INL_LOGGING_PVT.Log_Statement(
17230: p_module_name => g_module_name,
17231: p_procedure_name => l_program_name,
17232: p_debug_info => 'Get Rule package name for organization: ' || l_organization_id);
17233:
17238: WHERE r.rule_id (+) = p.rule_id
17239: AND r.enabled_flag (+) = 'Y'
17240: AND p.organization_id = l_organization_id;
17241:
17242: INL_LOGGING_PVT.Log_Variable(
17243: p_module_name => g_module_name,
17244: p_procedure_name => g_module_name,
17245: p_var_name => 'l_rule_package_name',
17246: p_var_value => l_rule_package_name);
17253: l_ship_hdr_int_list(l_ship_hdr_int_idx).last_task_code = '60' AND
17254: (l_rule_package_name IS NOT NULL)THEN
17255:
17256: l_debug_info := 'Call INL_RULE_GRP.Check_Condition.';
17257: INL_LOGGING_PVT.Log_Statement(
17258: p_module_name => g_module_name,
17259: p_procedure_name => l_program_name,
17260: p_debug_info => l_debug_info);
17261:
17275: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
17276: RAISE L_FND_EXC_UNEXPECTED_ERROR;
17277: END IF;
17278:
17279: INL_LOGGING_PVT.Log_Statement(
17280: p_module_name => g_module_name,
17281: p_procedure_name => l_program_name,
17282: p_debug_info => 'l_check_submit: '||l_check_submit);
17283:
17288: -- Bug #16310024
17289:
17290:
17291: l_debug_info := 'Run the process action for each imported Shipment.';
17292: INL_LOGGING_PVT.Log_Statement(
17293: p_module_name => g_module_name,
17294: p_procedure_name => l_program_name,
17295: p_debug_info => l_debug_info);
17296:
17317: -- Bug #16310024
17318:
17319: END IF;
17320: l_debug_info := 'Change Interface Status Code to COMPLETED';
17321: INL_LOGGING_PVT.Log_Statement(
17322: p_module_name => g_module_name,
17323: p_procedure_name => l_program_name,
17324: p_debug_info => l_debug_info);
17325:
17353:
17354: END IF;
17355: IF l_commit_cycle = 'P' THEN
17356: l_debug_info := 'Commit cycle is partial. Commiting every imported Shipment';
17357: INL_LOGGING_PVT.Log_Statement(
17358: p_module_name => g_module_name,
17359: p_procedure_name => l_program_name,
17360: p_debug_info => l_debug_info);
17361: COMMIT WORK;
17392: END LOOP;
17393:
17394: --Bug#10381495
17395: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
17396: INL_LOGGING_PVT.Log_Statement(
17397: p_module_name => g_module_name,
17398: p_procedure_name => l_program_name,
17399: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
17400: );
17406: IF NVL(G_RECORDS_PROCESSED,0) = 0 THEN
17407: -- Add a line into inl_ship_errors, No records found for processing
17408: -- -- Bug 13920858: Commented the code to avoid Error Messages getting Inserted into INL_INTERFACE_ERRORS table.
17409: l_debug_info := 'Error Mesage: No records found for processing.';
17410: INL_LOGGING_PVT.Log_Statement(
17411: p_module_name => g_module_name,
17412: p_procedure_name => l_program_name,
17413: p_debug_info => l_debug_info
17414: ) ;
17428:
17429: END IF;
17430:
17431: l_debug_info := 'Checking if any record remain from the selected records.';
17432: INL_LOGGING_PVT.Log_Statement(
17433: p_module_name => g_module_name,
17434: p_procedure_name => l_program_name,
17435: p_debug_info => l_debug_info
17436: ) ;
17440: CLOSE c_ship_hdr_int_err;
17441:
17442: IF NVL(l_ship_hdr_int_err_list.COUNT, 0) > 0 THEN
17443: l_debug_info := l_ship_hdr_int_err_list.COUNT||' records remain from the previous selected records('||l_fnd_conc_request_id_int||').';
17444: INL_LOGGING_PVT.Log_Statement(
17445: p_module_name => g_module_name,
17446: p_procedure_name => l_program_name,
17447: p_debug_info => l_debug_info);
17448:
17491: p_encoded => L_FND_FALSE,
17492: p_count => x_msg_count,
17493: p_data => x_msg_data) ;
17494: -- Standard End of Procedure/Function Logging
17495: INL_LOGGING_PVT.Log_EndProc(
17496: p_module_name => g_module_name,
17497: p_procedure_name => l_program_name);
17498:
17499: EXCEPTION
17498:
17499: EXCEPTION
17500: WHEN L_FND_EXC_ERROR THEN
17501: -- Standard Expected Error Logging
17502: INL_LOGGING_PVT.Log_ExpecError (
17503: p_module_name => g_module_name,
17504: p_procedure_name => l_program_name);
17505: ROLLBACK TO Import_LCMShipments_PVT;
17506: x_return_status := L_FND_RET_STS_ERROR;
17509: p_count => x_msg_count,
17510: p_data => x_msg_data);
17511: --Bug#10381495
17512: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
17513: INL_LOGGING_PVT.Log_Statement(
17514: p_module_name => g_module_name,
17515: p_procedure_name => l_program_name,
17516: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
17517: );
17519: END IF;
17520: --Bug#10381495
17521: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
17522: -- Standard Unexpected Error Logging
17523: INL_LOGGING_PVT.Log_UnexpecError (
17524: p_module_name => g_module_name,
17525: p_procedure_name => l_program_name);
17526: ROLLBACK TO Import_LCMShipments_PVT;
17527: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
17530: p_count => x_msg_count,
17531: p_data => x_msg_data);
17532: --Bug#10381495
17533: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
17534: INL_LOGGING_PVT.Log_Statement(
17535: p_module_name => g_module_name,
17536: p_procedure_name => l_program_name,
17537: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
17538: );
17540: END IF;
17541: --Bug#10381495
17542: WHEN OTHERS THEN
17543: -- Standard Unexpected Error Logging
17544: INL_LOGGING_PVT.Log_UnexpecError (
17545: p_module_name => g_module_name,
17546: p_procedure_name => l_program_name);
17547: ROLLBACK TO Import_LCMShipments_PVT;
17548: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
17558: p_count => x_msg_count,
17559: p_data => x_msg_data);
17560: --Bug#10381495
17561: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
17562: INL_LOGGING_PVT.Log_Statement(
17563: p_module_name => g_module_name,
17564: p_procedure_name => l_program_name,
17565: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
17566: );
17606: l_matches_int_error matches_int_error;
17607:
17608: BEGIN
17609: -- Standard Beginning of Procedure/Function Logging
17610: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
17611: p_procedure_name => l_program_name);
17612:
17613: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
17614: p_procedure_name => l_program_name,
17609: -- Standard Beginning of Procedure/Function Logging
17610: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
17611: p_procedure_name => l_program_name);
17612:
17613: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
17614: p_procedure_name => l_program_name,
17615: p_var_name => 'p_ship_header_id',
17616: p_var_value => p_ship_header_id);
17617:
17618: -- Initialize API return status to success
17619: x_return_status := L_FND_RET_STS_SUCCESS;
17620:
17621: l_debug_info := 'Open cursor c_matches_int_error';
17622: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
17623: p_procedure_name => l_program_name,
17624: p_debug_info => l_debug_info);
17625:
17626: -- Fetch Match records with error for shipment
17630:
17631: IF NVL (l_matches_int_error.LAST, 0) > 0 THEN -- exists record with status = ERROR
17632: FOR i IN NVL(l_matches_int_error.FIRST, 0)..NVL(l_matches_int_error.LAST, 0)
17633: LOOP
17634: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
17635: p_procedure_name => l_program_name,
17636: p_var_name => 'group_id',
17637: p_var_value => l_matches_int_error(i).group_id);
17638: SELECT COUNT(1)
17647: AND m.group_id = l_matches_int_error(i).group_id
17648: AND m.to_parent_table_name = 'RCV_TRANSACTIONS'
17649: AND sh.pending_update_flag = 'Y';
17650:
17651: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
17652: p_procedure_name => l_program_name,
17653: p_var_name => 'l_count_elc_pend_shipment',
17654: p_var_value => l_count_elc_pend_shipment);
17655:
17654: p_var_value => l_count_elc_pend_shipment);
17655:
17656: IF NVL(l_count_elc_pend_shipment,0) = 0 THEN
17657: l_debug_info := 'Update inl_matches_int to PENDING for group ID: ' || l_matches_int_error(i).group_id;
17658: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
17659: p_procedure_name => l_program_name,
17660: p_debug_info => l_debug_info);
17661:
17662: UPDATE inl_matches_int mi
17668: END IF;
17669: END LOOP;
17670: END IF;
17671: -- Standard End of Procedure/Function Logging
17672: INL_LOGGING_PVT.Log_EndProc(
17673: p_module_name => g_module_name,
17674: p_procedure_name => l_program_name);
17675: EXCEPTION
17676: WHEN L_FND_EXC_ERROR THEN
17674: p_procedure_name => l_program_name);
17675: EXCEPTION
17676: WHEN L_FND_EXC_ERROR THEN
17677: -- Standard Expected Error Logging
17678: INL_LOGGING_PVT.Log_ExpecError (
17679: p_module_name => g_module_name,
17680: p_procedure_name => l_program_name);
17681: x_return_status := L_FND_RET_STS_ERROR;
17682: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
17680: p_procedure_name => l_program_name);
17681: x_return_status := L_FND_RET_STS_ERROR;
17682: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
17683: -- Standard Unexpected Error Logging
17684: INL_LOGGING_PVT.Log_UnexpecError (
17685: p_module_name => g_module_name,
17686: p_procedure_name => l_program_name);
17687: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
17688: WHEN OTHERS THEN
17686: p_procedure_name => l_program_name);
17687: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
17688: WHEN OTHERS THEN
17689: -- Standard Unexpected Error Logging
17690: INL_LOGGING_PVT.Log_UnexpecError (
17691: p_module_name => g_module_name,
17692: p_procedure_name => l_program_name);
17693: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
17694: IF FND_MSG_PUB.Check_Msg_Level(