[Home] [Help]
56: l_ship_header_int_id NUMBER;
57: l_error_message VARCHAR2(2000) ;
58: BEGIN
59: -- Standard Beginning of Procedure/Function Logging
60: INL_LOGGING_PVT.Log_BeginProc(
61: p_module_name => g_module_name,
62: p_procedure_name => l_proc_name
63: ) ;
64: -- Initialize API return status to success
87: FND_MSG_PUB.ADD;
88: l_error_message := SUBSTR(FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg(), FND_API.g_false), 1, 2000) ;
89: END IF;
90: l_debug_info := 'Error Mesage: '||l_error_message;
91: INL_LOGGING_PVT.Log_Statement(
92: p_module_name => g_module_name,
93: p_procedure_name => l_proc_name,
94: p_debug_info => l_debug_info
95: ) ;
95: ) ;
96: -- In case of error during Shipment Line import process
97: IF p_parent_table_name = 'INL_SHIP_LINES_INT' THEN
98: l_debug_info := 'Set Shipment Line Interface status to ERROR.';
99: INL_LOGGING_PVT.LOG_STATEMENT(
100: P_MODULE_NAME => G_MODULE_NAME,
101: P_PROCEDURE_NAME => L_PROC_NAME,
102: P_DEBUG_INFO => L_DEBUG_INFO
103: ) ;
117: FROM inl_ship_lines_int
118: WHERE ship_line_int_id = p_parent_table_id;
119: ELSIF p_parent_table_name = 'INL_MATCHES_INT' THEN
120: l_debug_info := 'Set Match Interface status to ERROR.';
121: INL_LOGGING_PVT.Log_Statement(
122: p_module_name => g_module_name,
123: p_procedure_name => l_proc_name,
124: p_debug_info => l_debug_info
125: ) ;
135: WHERE match_int_id = p_parent_table_id
136: AND processing_status_code <> 'ERROR';
137: ELSIF p_parent_table_name = 'INL_MATCH_AMOUNTS_INT' THEN
138: l_debug_info := 'Set Match Amounts Interface status to ERROR.';
139: INL_LOGGING_PVT.Log_Statement(
140: p_module_name => g_module_name,
141: p_procedure_name => l_proc_name,
142: p_debug_info => l_debug_info
143: ) ;
154: AND processing_status_code <> 'ERROR';
155: END IF;
156: IF p_parent_table_name = 'INL_SHIP_HEADERS_INT' OR l_ship_header_int_id IS NOT NULL THEN
157: l_debug_info := 'Set Shipment Header Interface status to ERROR.';
158: INL_LOGGING_PVT.Log_Statement(
159: p_module_name => g_module_name,
160: p_procedure_name => l_proc_name,
161: p_debug_info => l_debug_info
162: ) ;
172: WHERE ship_header_int_id = NVL(l_ship_header_int_id, p_parent_table_id)
173: AND processing_status_code <> 'ERROR';
174: END IF;
175: l_debug_info := 'Insert detailed error message into Interface Error table.';
176: INL_LOGGING_PVT.Log_Statement(
177: p_module_name => g_module_name,
178: p_procedure_name => l_proc_name,
179: p_debug_info => l_debug_info
180: ) ;
240: SYSDATE, /*28*/
241: fnd_global.conc_request_id /*29*/
242: );
243: -- Standard End of Procedure/Function Logging
244: INL_LOGGING_PVT.Log_EndProc(
245: p_module_name => g_module_name,
246: p_procedure_name => l_proc_name
247: );
248: EXCEPTION
247: );
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: -- Standard Expected Error Logging
251: INL_LOGGING_PVT.Log_ExpecError (
252: p_module_name => g_module_name,
253: p_procedure_name => l_proc_name
254: );
255: x_return_status := FND_API.G_RET_STS_ERROR;
254: );
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: -- Standard Unexpected Error Logging
258: INL_LOGGING_PVT.Log_UnexpecError (
259: p_module_name => g_module_name,
260: p_procedure_name => l_proc_name
261: );
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: );
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: WHEN OTHERS THEN
264: -- Standard Unexpected Error Logging
265: INL_LOGGING_PVT.Log_UnexpecError (
266: p_module_name => g_module_name,
267: p_procedure_name => l_proc_name
268: );
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: l_return_status VARCHAR2(1);
300: l_debug_info VARCHAR2(200);
301: BEGIN
302: -- Standard Beginning of Procedure/Function Logging
303: INL_LOGGING_PVT.Log_BeginProc(
304: p_module_name => g_module_name,
305: p_procedure_name => l_proc_name
306: ) ;
307: -- Initialize API return status to success
306: ) ;
307: -- Initialize API return status to success
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309: l_debug_info := 'Delete Errors from previous validation.';
310: INL_LOGGING_PVT.Log_Statement(
311: p_module_name => g_module_name,
312: p_procedure_name => l_proc_name,
313: p_debug_info => l_debug_info
314: ) ;
316: FROM inl_interface_errors
317: WHERE parent_table_name = p_parent_table_name
318: AND parent_table_id = p_parent_table_id;
319: -- Standard End of Procedure/Function Logging
320: INL_LOGGING_PVT.Log_EndProc(
321: p_module_name => g_module_name,
322: p_procedure_name => l_proc_name
323: );
324: EXCEPTION
323: );
324: EXCEPTION
325: WHEN FND_API.G_EXC_ERROR THEN
326: -- Standard Expected Error Logging
327: INL_LOGGING_PVT.Log_ExpecError (
328: p_module_name => g_module_name,
329: p_procedure_name => l_proc_name
330: );
331: x_return_status := FND_API.G_RET_STS_ERROR;
330: );
331: x_return_status := FND_API.G_RET_STS_ERROR;
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: -- Standard Unexpected Error Logging
334: INL_LOGGING_PVT.Log_UnexpecError (
335: p_module_name => g_module_name,
336: p_procedure_name => l_proc_name
337: );
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: );
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: WHEN OTHERS THEN
340: -- Standard Unexpected Error Logging
341: INL_LOGGING_PVT.Log_UnexpecError (
342: p_module_name => g_module_name,
343: p_procedure_name => l_proc_name
344: );
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: l_debug_info VARCHAR2(200) ;
374: l_return_value NUMBER;
375: BEGIN
376: -- Standard Beginning of Procedure/Function Logging
377: INL_LOGGING_PVT.Log_BeginProc(
378: p_module_name => g_module_name,
379: p_procedure_name => l_proc_name
380: ) ;
381: -- Initialize API return status to success
380: ) ;
381: -- Initialize API return status to success
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383: l_debug_info := 'Getting party_id.';
384: INL_LOGGING_PVT.Log_Statement(
385: p_module_name => g_module_name,
386: p_procedure_name => l_proc_name,
387: p_debug_info => l_debug_info
388: ) ;
390: INTO l_return_value
391: FROM hz_parties
392: WHERE PARTY_NUMBER = p_party_number;
393: -- Standard End of Procedure/Function Logging
394: INL_LOGGING_PVT.Log_EndProc(
395: p_module_name => g_module_name,
396: p_procedure_name => l_proc_name
397: );
398: RETURN l_return_value;
398: RETURN l_return_value;
399: EXCEPTION
400: WHEN FND_API.G_EXC_ERROR THEN
401: -- Standard Expected Error Logging
402: INL_LOGGING_PVT.Log_ExpecError (
403: p_module_name => g_module_name,
404: p_procedure_name => l_proc_name
405: );
406: x_return_status := FND_API.G_RET_STS_ERROR;
406: x_return_status := FND_API.G_RET_STS_ERROR;
407: RETURN 0;
408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
409: -- Standard Unexpected Error Logging
410: INL_LOGGING_PVT.Log_UnexpecError (
411: p_module_name => g_module_name,
412: p_procedure_name => l_proc_name
413: );
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: RETURN 0;
416: WHEN OTHERS THEN
417: -- Standard Unexpected Error Logging
418: INL_LOGGING_PVT.Log_UnexpecError (
419: p_module_name => g_module_name,
420: p_procedure_name => l_proc_name
421: );
422: IF FND_MSG_PUB.Check_Msg_Level(
452: l_debug_info VARCHAR2(200);
453: l_return_value NUMBER;
454: BEGIN
455: -- Standard Beginning of Procedure/Function Logging
456: INL_LOGGING_PVT.Log_BeginProc(
457: p_module_name => g_module_name,
458: p_procedure_name => l_func_name
459: ) ;
460: -- Initialize API return status to success
459: ) ;
460: -- Initialize API return status to success
461: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: l_debug_info := 'Getting PartySite_id.';
463: INL_LOGGING_PVT.Log_Statement(
464: p_module_name => g_module_name,
465: p_procedure_name => l_func_name,
466: p_debug_info => l_debug_info
467: ) ;
469: INTO l_return_value
470: FROM hz_party_sites
471: WHERE party_site_number = p_party_site_number;
472: -- Standard End of Procedure/Function Logging
473: INL_LOGGING_PVT.Log_EndProc(
474: p_module_name => g_module_name,
475: p_procedure_name => l_func_name
476: );
477: RETURN l_return_value;
477: RETURN l_return_value;
478: EXCEPTION
479: WHEN FND_API.G_EXC_ERROR THEN
480: -- Standard Expected Error Logging
481: INL_LOGGING_PVT.Log_ExpecError (
482: p_module_name => g_module_name,
483: p_procedure_name => l_func_name
484: );
485: x_return_status := FND_API.G_RET_STS_ERROR;
485: x_return_status := FND_API.G_RET_STS_ERROR;
486: RETURN 0;
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488: -- Standard Unexpected Error Logging
489: INL_LOGGING_PVT.Log_UnexpecError (
490: p_module_name => g_module_name,
491: p_procedure_name => l_func_name
492: );
493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
494: RETURN 0;
495: WHEN OTHERS THEN
496: -- Standard Unexpected Error Logging
497: INL_LOGGING_PVT.Log_UnexpecError (
498: p_module_name => g_module_name,
499: p_procedure_name => l_func_name
500: );
501: IF FND_MSG_PUB.Check_Msg_Level(
537: l_return_status VARCHAR2(1) := FND_API.G_TRUE;
538: l_user_defined_ship_num_code VARCHAR2(30);
539: BEGIN
540: -- Standard Beginning of Procedure/Function Logging
541: INL_LOGGING_PVT.Log_BeginProc(
542: p_module_name => g_module_name,
543: p_procedure_name => l_func_name
544: ) ;
545: -- Initialize API return status to success
546: x_return_status := FND_API.G_RET_STS_SUCCESS;
547:
548: -- Check if the Operating Unit is null
549: l_debug_info := 'Check the setup for Organization';
550: INL_LOGGING_PVT.Log_Statement(
551: p_module_name => g_module_name,
552: p_procedure_name => l_func_name,
553: p_debug_info => l_debug_info
554: ) ;
603: END IF;
604:
605: END IF;
606: -- Standard End of Procedure/Function Logging
607: INL_LOGGING_PVT.Log_EndProc(
608: p_module_name => g_module_name,
609: p_procedure_name => l_func_name
610: );
611: RETURN FND_API.to_boolean(l_result) ;
611: RETURN FND_API.to_boolean(l_result) ;
612: EXCEPTION
613: WHEN FND_API.G_EXC_ERROR THEN
614: -- Standard Expected Error Logging
615: INL_LOGGING_PVT.Log_ExpecError (
616: p_module_name => g_module_name,
617: p_procedure_name => l_func_name
618: );
619: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
618: );
619: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
621: -- Standard Unexpected Error Logging
622: INL_LOGGING_PVT.Log_UnexpecError (
623: p_module_name => g_module_name,
624: p_procedure_name => l_func_name
625: );
626: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
625: );
626: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
627: WHEN OTHERS THEN
628: -- Standard Unexpected Error Logging
629: INL_LOGGING_PVT.Log_UnexpecError (
630: p_module_name => g_module_name,
631: p_procedure_name => l_func_name
632: );
633: IF FND_MSG_PUB.Check_Msg_Level(
668:
669: l_ship_type_code VARCHAR2(400);
670: BEGIN
671: -- Standard Beginning of Procedure/Function Logging
672: INL_LOGGING_PVT.Log_BeginProc(
673: p_module_name => g_module_name,
674: p_procedure_name => l_func_name
675: ) ;
676: -- Initialize API return status to success
677: x_return_status := FND_API.G_RET_STS_SUCCESS;
678:
679: -- Check if the Operating Unit is null
680: l_debug_info := 'Check the setup for Organization';
681: INL_LOGGING_PVT.Log_Statement(
682: p_module_name => g_module_name,
683: p_procedure_name => l_func_name,
684: p_debug_info => l_debug_info
685: ) ;
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716: END;
717: -- Standard End of Procedure/Function Logging
718: INL_LOGGING_PVT.Log_EndProc(
719: p_module_name => g_module_name,
720: p_procedure_name => l_func_name
721: );
722: RETURN FND_API.to_boolean(l_result) ;
722: RETURN FND_API.to_boolean(l_result) ;
723: EXCEPTION
724: WHEN FND_API.G_EXC_ERROR THEN
725: -- Standard Expected Error Logging
726: INL_LOGGING_PVT.Log_ExpecError (
727: p_module_name => g_module_name,
728: p_procedure_name => l_func_name
729: );
730: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
729: );
730: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: -- Standard Unexpected Error Logging
733: INL_LOGGING_PVT.Log_UnexpecError (
734: p_module_name => g_module_name,
735: p_procedure_name => l_func_name
736: );
737: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
736: );
737: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
738: WHEN OTHERS THEN
739: -- Standard Unexpected Error Logging
740: INL_LOGGING_PVT.Log_UnexpecError (
741: p_module_name => g_module_name,
742: p_procedure_name => l_func_name
743: );
744: IF FND_MSG_PUB.Check_Msg_Level(
783:
784: l_ship_line_type_code VARCHAR2(400);
785: BEGIN
786: -- Standard Beginning of Procedure/Function Logging
787: INL_LOGGING_PVT.Log_BeginProc(
788: p_module_name => g_module_name,
789: p_procedure_name => l_func_name
790: ) ;
791: -- Initialize API return status to success
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: -- Check if the Operating Unit is null
795: l_debug_info := 'Check the setup for Organization';
796: INL_LOGGING_PVT.Log_Statement(
797: p_module_name => g_module_name,
798: p_procedure_name => l_func_name,
799: p_debug_info => l_debug_info
800: ) ;
835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
836: END IF;
837: END;
838: -- Standard End of Procedure/Function Logging
839: INL_LOGGING_PVT.Log_EndProc(
840: p_module_name => g_module_name,
841: p_procedure_name => l_func_name
842: );
843: RETURN FND_API.to_boolean(l_result) ;
843: RETURN FND_API.to_boolean(l_result) ;
844: EXCEPTION
845: WHEN FND_API.G_EXC_ERROR THEN
846: -- Standard Expected Error Logging
847: INL_LOGGING_PVT.Log_ExpecError (
848: p_module_name => g_module_name,
849: p_procedure_name => l_func_name
850: );
851: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
850: );
851: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: -- Standard Unexpected Error Logging
854: INL_LOGGING_PVT.Log_UnexpecError (
855: p_module_name => g_module_name,
856: p_procedure_name => l_func_name
857: );
858: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
857: );
858: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
859: WHEN OTHERS THEN
860: -- Standard Unexpected Error Logging
861: INL_LOGGING_PVT.Log_UnexpecError (
862: p_module_name => g_module_name,
863: p_procedure_name => l_func_name
864: );
865: IF FND_MSG_PUB.Check_Msg_Level(
901: l_msg_data VARCHAR2(2000) ;
902: L_SYSDATE CONSTANT DATE := SYSDATE;
903: BEGIN
904: -- Standard Beginning of Procedure/Function Logging
905: INL_LOGGING_PVT.Log_BeginProc(
906: p_module_name => g_module_name,
907: p_procedure_name => l_func_name
908: ) ;
909: -- Initialize API return status to success
909: -- Initialize API return status to success
910: x_return_status := FND_API.G_RET_STS_SUCCESS;
911: -- Check if the Operating Unit is null
912: l_debug_info := 'Check if the Operating Unit is null';
913: INL_LOGGING_PVT.Log_Statement(
914: p_module_name => g_module_name,
915: p_procedure_name => l_func_name,
916: p_debug_info => l_debug_info
917: ) ;
934: END IF;
935: END IF;
936: -- Check if the Operating Unit exists and is valid
937: l_debug_info := 'Check if the Operating Unit exists and is valid';
938: INL_LOGGING_PVT.Log_Statement(
939: p_module_name => g_module_name,
940: p_procedure_name => l_func_name,
941: p_debug_info => l_debug_info
942: ) ;
964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
965: END IF;
966: END IF;
967: -- Standard End of Procedure/Function Logging
968: INL_LOGGING_PVT.Log_EndProc(
969: p_module_name => g_module_name,
970: p_procedure_name => l_func_name
971: );
972: RETURN FND_API.to_boolean(l_result) ;
972: RETURN FND_API.to_boolean(l_result) ;
973: EXCEPTION
974: WHEN FND_API.G_EXC_ERROR THEN
975: -- Standard Expected Error Logging
976: INL_LOGGING_PVT.Log_ExpecError (
977: p_module_name => g_module_name,
978: p_procedure_name => l_func_name
979: );
980: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
979: );
980: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
982: -- Standard Unexpected Error Logging
983: INL_LOGGING_PVT.Log_UnexpecError (
984: p_module_name => g_module_name,
985: p_procedure_name => l_func_name
986: );
987: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
986: );
987: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
988: WHEN OTHERS THEN
989: -- Standard Unexpected Error Logging
990: INL_LOGGING_PVT.Log_UnexpecError (
991: p_module_name => g_module_name,
992: p_procedure_name => l_func_name
993: );
994: IF FND_MSG_PUB.Check_Msg_Level(
1030: l_msg_count NUMBER;
1031: l_msg_data VARCHAR2(2000) ;
1032: BEGIN
1033: -- Standard Beginning of Procedure/Function Logging
1034: INL_LOGGING_PVT.Log_BeginProc(
1035: p_module_name => g_module_name,
1036: p_procedure_name => l_func_name
1037: ) ;
1038: -- Initialize API return status to success
1038: -- Initialize API return status to success
1039: x_return_status := FND_API.G_RET_STS_SUCCESS;
1040: -- Check if the Organization is null
1041: l_debug_info := 'Check if the Organization is null';
1042: INL_LOGGING_PVT.Log_Statement(
1043: p_module_name => g_module_name,
1044: p_procedure_name => l_func_name,
1045: p_debug_info => l_debug_info
1046: ) ;
1062: END IF;
1063: END IF;
1064: -- Check if the given Organization is valid for LCM
1065: l_debug_info := 'Check if the Organization exists and is valid for the INL Application';
1066: INL_LOGGING_PVT.Log_Statement(
1067: p_module_name => g_module_name,
1068: p_procedure_name => l_func_name,
1069: p_debug_info => l_debug_info
1070: ) ;
1093: END IF;
1094: -- Check if INL Setup Options has been
1095: -- defined to the given Organization
1096: l_debug_info := 'Check if the Organization is valid in INL Options Setup';
1097: INL_LOGGING_PVT.Log_Statement(
1098: p_module_name => g_module_name,
1099: p_procedure_name => l_func_name,
1100: p_debug_info => l_debug_info
1101: ) ;
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123: END IF;
1124: -- Standard End of Procedure/Function Logging
1125: INL_LOGGING_PVT.Log_EndProc(
1126: p_module_name => g_module_name,
1127: p_procedure_name => l_func_name
1128: );
1129: RETURN FND_API.to_boolean(l_result) ;
1129: RETURN FND_API.to_boolean(l_result) ;
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: -- Standard Expected Error Logging
1133: INL_LOGGING_PVT.Log_ExpecError (
1134: p_module_name => g_module_name,
1135: p_procedure_name => l_func_name
1136: );
1137: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1136: );
1137: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: -- Standard Unexpected Error Logging
1140: INL_LOGGING_PVT.Log_UnexpecError (
1141: p_module_name => g_module_name,
1142: p_procedure_name => l_func_name
1143: );
1144: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1143: );
1144: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1145: WHEN OTHERS THEN
1146: -- Standard Unexpected Error Logging
1147: INL_LOGGING_PVT.Log_UnexpecError (
1148: p_module_name => g_module_name,
1149: p_procedure_name => l_func_name
1150: );
1151: IF FND_MSG_PUB.Check_Msg_Level(
1182: l_result VARCHAR2(1) := FND_API.G_TRUE;
1183: l_return_status VARCHAR2(1) ;
1184: BEGIN
1185: -- Standard Beginning of Procedure/Function Logging
1186: INL_LOGGING_PVT.Log_BeginProc(
1187: p_module_name => g_module_name,
1188: p_procedure_name => l_func_name
1189: ) ;
1190: -- Initialize API return status to success
1189: ) ;
1190: -- Initialize API return status to success
1191: x_return_status := FND_API.G_RET_STS_SUCCESS;
1192: -- Standard End of Procedure/Function Logging
1193: INL_LOGGING_PVT.Log_EndProc(
1194: p_module_name => g_module_name,
1195: p_procedure_name => l_func_name
1196: );
1197: RETURN FND_API.to_boolean(l_result) ;
1197: RETURN FND_API.to_boolean(l_result) ;
1198: EXCEPTION
1199: WHEN FND_API.G_EXC_ERROR THEN
1200: -- Standard Expected Error Logging
1201: INL_LOGGING_PVT.Log_ExpecError (
1202: p_module_name => g_module_name,
1203: p_procedure_name => l_func_name
1204: );
1205: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1204: );
1205: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: -- Standard Unexpected Error Logging
1208: INL_LOGGING_PVT.Log_UnexpecError (
1209: p_module_name => g_module_name,
1210: p_procedure_name => l_func_name
1211: );
1212: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1211: );
1212: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1213: WHEN OTHERS THEN
1214: -- Standard Unexpected Error Logging
1215: INL_LOGGING_PVT.Log_UnexpecError (
1216: p_module_name => g_module_name,
1217: p_procedure_name => l_func_name
1218: );
1219: IF FND_MSG_PUB.Check_Msg_Level(
1259: l_status VARCHAR2(40) ;
1260: L_TRUNC_SYSDATE CONSTANT DATE := TRUNC(SYSDATE) ;
1261: BEGIN
1262: -- Standard Beginning of Procedure/Function Logging
1263: INL_LOGGING_PVT.Log_BeginProc(
1264: p_module_name => g_module_name,
1265: p_procedure_name => l_func_name
1266: ) ;
1267: -- Initialize API return status to success
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300: END;
1301: -- Standard End of Procedure/Function Logging
1302: INL_LOGGING_PVT.Log_EndProc(
1303: p_module_name => g_module_name,
1304: p_procedure_name => l_func_name
1305: );
1306: RETURN l_response;
1306: RETURN l_response;
1307: EXCEPTION
1308: WHEN FND_API.G_EXC_ERROR THEN
1309: -- Standard Expected Error Logging
1310: INL_LOGGING_PVT.Log_ExpecError (
1311: p_module_name => g_module_name,
1312: p_procedure_name => l_func_name
1313: );
1314: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1313: );
1314: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1316: -- Standard Unexpected Error Logging
1317: INL_LOGGING_PVT.Log_UnexpecError (
1318: p_module_name => g_module_name,
1319: p_procedure_name => l_func_name
1320: );
1321: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1320: );
1321: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1322: WHEN OTHERS THEN
1323: -- Standard Unexpected Error Logging
1324: INL_LOGGING_PVT.Log_UnexpecError (
1325: p_module_name => g_module_name,
1326: p_procedure_name => l_func_name
1327: );
1328: IF FND_MSG_PUB.Check_Msg_Level(
1365: l_aux NUMBER;
1366: l_status VARCHAR2(40) ;
1367: BEGIN
1368: -- Standard Beginning of Procedure/Function Logging
1369: INL_LOGGING_PVT.Log_BeginProc(
1370: p_module_name => g_module_name,
1371: p_procedure_name => l_func_name
1372: ) ;
1373: -- Initialize API return status to success
1732: END IF;
1733: END IF;
1734: END IF;
1735: -- Standard End of Procedure/Function Logging
1736: INL_LOGGING_PVT.Log_EndProc(
1737: p_module_name => g_module_name,
1738: p_procedure_name => l_func_name
1739: );
1740: RETURN l_response;
1740: RETURN l_response;
1741: EXCEPTION
1742: WHEN FND_API.G_EXC_ERROR THEN
1743: -- Standard Expected Error Logging
1744: INL_LOGGING_PVT.Log_ExpecError (
1745: p_module_name => g_module_name,
1746: p_procedure_name => l_func_name
1747: );
1748: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1747: );
1748: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1750: -- Standard Unexpected Error Logging
1751: INL_LOGGING_PVT.Log_UnexpecError (
1752: p_module_name => g_module_name,
1753: p_procedure_name => l_func_name
1754: );
1755: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1754: );
1755: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
1756: WHEN OTHERS THEN
1757: -- Standard Unexpected Error Logging
1758: INL_LOGGING_PVT.Log_UnexpecError (
1759: p_module_name => g_module_name,
1760: p_procedure_name => l_func_name
1761: );
1762: IF FND_MSG_PUB.Check_Msg_Level(
1807: l_result VARCHAR2(1) := FND_API.G_TRUE;
1808: l_response BOOLEAN;
1809: BEGIN
1810: -- Standard Beginning of Procedure/Function Logging
1811: INL_LOGGING_PVT.Log_BeginProc(
1812: p_module_name => g_module_name,
1813: p_procedure_name => l_func_name
1814: ) ;
1815: -- Initialize API return status to success
1815: -- Initialize API return status to success
1816: x_return_status := FND_API.G_RET_STS_SUCCESS;
1817: -- Consist Lines versus Headers
1818: l_debug_info := 'Concistence Lines versus Headers';
1819: INL_LOGGING_PVT.Log_Statement(
1820: p_module_name => g_module_name,
1821: p_procedure_name => l_func_name,
1822: p_debug_info => l_debug_info
1823: ) ;
1820: p_module_name => g_module_name,
1821: p_procedure_name => l_func_name,
1822: p_debug_info => l_debug_info
1823: ) ;
1824: INL_LOGGING_PVT.Log_APICallIn(
1825: p_module_name => g_module_name,
1826: p_procedure_name => l_func_name,
1827: p_call_api_name => 'Validate_LinesVsHeader',
1828: p_in_param_name1 => 'p_ship_header_int_id',
1844: l_debug_info := l_debug_info||'FALSE';
1845: ELSE
1846: l_debug_info := l_debug_info||'OK';
1847: END IF;
1848: INL_LOGGING_PVT.Log_Statement(
1849: p_module_name => g_module_name,
1850: p_procedure_name => l_func_name,
1851: p_debug_info => l_debug_info
1852: ) ;
1851: p_debug_info => l_debug_info
1852: ) ;
1853: -- Consistency of Transaction Type
1854: l_debug_info := 'Consistency of Transaction Type: '||p_transaction_type;
1855: INL_LOGGING_PVT.Log_Statement(
1856: p_module_name => g_module_name,
1857: p_procedure_name => l_func_name,
1858: p_debug_info => l_debug_info
1859: ) ;
1856: p_module_name => g_module_name,
1857: p_procedure_name => l_func_name,
1858: p_debug_info => l_debug_info
1859: ) ;
1860: INL_LOGGING_PVT.Log_APICallIn(p_module_name => g_module_name,
1861: p_procedure_name => l_func_name,
1862: p_call_api_name => 'Validate_TrxType',
1863: p_in_param_name1 => 'p_ship_header_int_id',
1864: p_in_param_value1 => p_ship_header_int_id,
1881: l_debug_info := l_debug_info||'FALSE';
1882: END IF;
1883: -- Consistency of Last Task Code
1884: l_debug_info := 'Consistency of Last Task Code: '||p_last_task_code;
1885: INL_LOGGING_PVT.Log_Statement(
1886: p_module_name => g_module_name,
1887: p_procedure_name => l_func_name,
1888: p_debug_info => l_debug_info
1889: ) ;
1886: p_module_name => g_module_name,
1887: p_procedure_name => l_func_name,
1888: p_debug_info => l_debug_info
1889: ) ;
1890: INL_LOGGING_PVT.Log_APICallIn(
1891: p_module_name => g_module_name,
1892: p_procedure_name => l_func_name,
1893: p_call_api_name => 'Validate_LastTaskCode',
1894: p_in_param_name1 => 'p_parent_table_name',
1978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979: END IF;
1980:
1981: l_debug_info := 'Inventory Organization validation';
1982: INL_LOGGING_PVT.Log_Statement(
1983: p_module_name => g_module_name,
1984: p_procedure_name => l_func_name,
1985: p_debug_info => l_debug_info
1986: ) ;
2003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006: -- Standard End of Procedure/Function Logging
2007: INL_LOGGING_PVT.Log_EndProc(
2008: p_module_name => g_module_name,
2009: p_procedure_name => l_func_name
2010: );
2011: RETURN FND_API.to_boolean(l_result) ;
2011: RETURN FND_API.to_boolean(l_result) ;
2012: EXCEPTION
2013: WHEN FND_API.G_EXC_ERROR THEN
2014: -- Standard Expected Error Logging
2015: INL_LOGGING_PVT.Log_ExpecError (
2016: p_module_name => g_module_name,
2017: p_procedure_name => l_func_name
2018: );
2019: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2018: );
2019: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2021: -- Standard Unexpected Error Logging
2022: INL_LOGGING_PVT.Log_UnexpecError (
2023: p_module_name => g_module_name,
2024: p_procedure_name => l_func_name
2025: );
2026: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2025: );
2026: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2027: WHEN OTHERS THEN
2028: -- Standard Unexpected Error Logging
2029: INL_LOGGING_PVT.Log_UnexpecError (
2030: p_module_name => g_module_name,
2031: p_procedure_name => l_func_name
2032: );
2033: IF FND_MSG_PUB.Check_Msg_Level(
2070: l_result VARCHAR2(1) := FND_API.G_TRUE;
2071: l_response BOOLEAN;
2072: BEGIN
2073: -- Standard Beginning of Procedure/Function Logging
2074: INL_LOGGING_PVT.Log_BeginProc(
2075: p_module_name => g_module_name,
2076: p_procedure_name => l_func_name
2077: ) ;
2078: -- Initialize API return status to success
2080:
2081:
2082: -- Consist Lines versus Headers
2083: l_debug_info := 'Validate ship line type';
2084: INL_LOGGING_PVT.Log_Statement(
2085: p_module_name => g_module_name,
2086: p_procedure_name => l_func_name,
2087: p_debug_info => l_debug_info
2088: ) ;
2085: p_module_name => g_module_name,
2086: p_procedure_name => l_func_name,
2087: p_debug_info => l_debug_info
2088: ) ;
2089: INL_LOGGING_PVT.Log_APICallIn(
2090: p_module_name => g_module_name,
2091: p_procedure_name => l_func_name,
2092: p_call_api_name => 'Validate_ShipLineType',
2093: p_in_param_name1 => 'p_ship_header_int_id',
2129: END IF;
2130:
2131:
2132: -- Standard End of Procedure/Function Logging
2133: INL_LOGGING_PVT.Log_EndProc(
2134: p_module_name => g_module_name,
2135: p_procedure_name => l_func_name
2136: );
2137: RETURN FND_API.to_boolean(l_result) ;
2137: RETURN FND_API.to_boolean(l_result) ;
2138: EXCEPTION
2139: WHEN FND_API.G_EXC_ERROR THEN
2140: -- Standard Expected Error Logging
2141: INL_LOGGING_PVT.Log_ExpecError (
2142: p_module_name => g_module_name,
2143: p_procedure_name => l_func_name
2144: );
2145: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2144: );
2145: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2147: -- Standard Unexpected Error Logging
2148: INL_LOGGING_PVT.Log_UnexpecError (
2149: p_module_name => g_module_name,
2150: p_procedure_name => l_func_name
2151: );
2152: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2151: );
2152: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
2153: WHEN OTHERS THEN
2154: -- Standard Unexpected Error Logging
2155: INL_LOGGING_PVT.Log_UnexpecError (
2156: p_module_name => g_module_name,
2157: p_procedure_name => l_func_name
2158: );
2159: IF FND_MSG_PUB.Check_Msg_Level(
2188: l_proc_name CONSTANT VARCHAR2(100) := 'Delete_Ship';
2189: l_debug_info VARCHAR2(2000) ;
2190: BEGIN
2191: -- Standard Beginning of Procedure/Function Logging
2192: INL_LOGGING_PVT.Log_BeginProc(
2193: p_module_name => g_module_name,
2194: p_procedure_name => l_proc_name
2195: ) ;
2196: -- Initialize API return status to success
2195: ) ;
2196: -- Initialize API return status to success
2197: x_return_status := FND_API.G_RET_STS_SUCCESS;
2198: l_debug_info := 'Delete from inl_ship_holds';
2199: INL_LOGGING_PVT.Log_Statement(
2200: p_module_name => g_module_name,
2201: p_procedure_name => l_proc_name,
2202: p_debug_info => l_debug_info
2203: ) ;
2205: DELETE FROM inl.inl_ship_holds
2206: WHERE ship_header_id = p_ship_header_id;
2207:
2208: l_debug_info := 'Delete from inl_allocations';
2209: INL_LOGGING_PVT.Log_Statement(
2210: p_module_name => g_module_name,
2211: p_procedure_name => l_proc_name,
2212: p_debug_info => l_debug_info
2213: ) ;
2215: DELETE FROM inl.inl_allocations
2216: WHERE ship_header_id = p_ship_header_id;
2217:
2218: l_debug_info := 'Delete from inl_tax_lines';
2219: INL_LOGGING_PVT.Log_Statement(
2220: p_module_name => g_module_name,
2221: p_procedure_name => l_proc_name,
2222: p_debug_info => l_debug_info
2223: ) ;
2225: DELETE FROM inl.inl_tax_lines
2226: WHERE ship_header_id = p_ship_header_id;
2227:
2228: l_debug_info := 'Delete from inl_charge_lines';
2229: INL_LOGGING_PVT.Log_Statement(
2230: p_module_name => g_module_name,
2231: p_procedure_name => l_proc_name,
2232: p_debug_info => l_debug_info
2233: ) ;
2242: )
2243: ;
2244:
2245: l_debug_info := 'Delete from inl_associations';
2246: INL_LOGGING_PVT.Log_Statement(
2247: p_module_name => g_module_name,
2248: p_procedure_name => l_proc_name,
2249: p_debug_info => l_debug_info
2250: ) ;
2251: DELETE FROM inl.inl_associations
2252: WHERE ship_header_id = p_ship_header_id;
2253:
2254: l_debug_info := 'Delete from inl_ship_lines_all';
2255: INL_LOGGING_PVT.Log_Statement(
2256: p_module_name => g_module_name,
2257: p_procedure_name => l_proc_name,
2258: p_debug_info => l_debug_info
2259: ) ;
2260: DELETE FROM inl.inl_ship_lines_all
2261: WHERE ship_header_id = p_ship_header_id;
2262:
2263: l_debug_info := 'Delete from inl_ship_line_groups';
2264: INL_LOGGING_PVT.Log_Statement(
2265: p_module_name => g_module_name,
2266: p_procedure_name => l_proc_name,
2267: p_debug_info => l_debug_info
2268: ) ;
2269: DELETE FROM inl.inl_ship_line_groups
2270: WHERE ship_header_id = p_ship_header_id;
2271:
2272: l_debug_info := 'Delete from inl_ship_headers_all';
2273: INL_LOGGING_PVT.Log_Statement(
2274: p_module_name => g_module_name,
2275: p_procedure_name => l_proc_name,
2276: p_debug_info => l_debug_info
2277: ) ;
2276: p_debug_info => l_debug_info
2277: ) ;
2278: DELETE FROM inl.inl_ship_headers_all WHERE ship_header_id = p_ship_header_id;
2279: -- Standard End of Procedure/Function Logging
2280: INL_LOGGING_PVT.Log_EndProc(
2281: p_module_name => g_module_name,
2282: p_procedure_name => l_proc_name
2283: );
2284: EXCEPTION
2283: );
2284: EXCEPTION
2285: WHEN FND_API.G_EXC_ERROR THEN
2286: -- Standard Expected Error Logging
2287: INL_LOGGING_PVT.Log_ExpecError (
2288: p_module_name => g_module_name,
2289: p_procedure_name => l_proc_name
2290: );
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2290: );
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2293: -- Standard Unexpected Error Logging
2294: INL_LOGGING_PVT.Log_UnexpecError (
2295: p_module_name => g_module_name,
2296: p_procedure_name => l_proc_name
2297: );
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2297: );
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2299: WHEN OTHERS THEN
2300: -- Standard Unexpected Error Logging
2301: INL_LOGGING_PVT.Log_UnexpecError (
2302: p_module_name => g_module_name,
2303: p_procedure_name => l_proc_name
2304: );
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2400: l_debug_info VARCHAR2(2000) ;
2401: l_return_status VARCHAR2(1) ;
2402: BEGIN
2403: -- Standard Beginning of Procedure/Function Logging
2404: INL_LOGGING_PVT.Log_BeginProc(
2405: p_module_name => g_module_name,
2406: p_procedure_name => l_proc_name
2407: ) ;
2408: -- Initialize API return status to success
2437: program_application_id = fnd_global.prog_appl_id
2438: WHERE ship_header_int_id = validHeaders_List(iHead) .ship_header_int_id;
2439: ELSE
2440: l_debug_info := 'Check if Shipment Number is setup as Automatic or Manual';
2441: INL_LOGGING_PVT.Log_Statement(
2442: p_module_name => g_module_name,
2443: p_procedure_name => l_proc_name,
2444: p_debug_info => l_debug_info
2445: ) ;
2451: FROM inl_parameters
2452: WHERE organization_id = validHeaders_List(iHead) .organization_id;
2453: IF validHeaders_List(iHead) .transaction_type = 'UPDATE' THEN
2454: l_debug_info := 'Updating the Shipment Header';
2455: INL_LOGGING_PVT.Log_Statement(
2456: p_module_name => g_module_name,
2457: p_procedure_name => l_proc_name,
2458: p_debug_info => l_debug_info
2459: ) ;
2500: SELECT inl_ship_headers_all_s.NEXTVAL
2501: INTO validHeaders_List(iHead) .ship_header_id
2502: FROM dual;
2503:
2504: INL_LOGGING_PVT.Log_Variable(
2505: p_module_name => g_module_name,
2506: p_procedure_name => l_proc_name,
2507: p_var_name => 'l_user_defined_ship_num_code',
2508: p_var_value => l_user_defined_ship_num_code
2506: p_procedure_name => l_proc_name,
2507: p_var_name => 'l_user_defined_ship_num_code',
2508: p_var_value => l_user_defined_ship_num_code
2509: ) ;
2510: INL_LOGGING_PVT.Log_Variable(
2511: p_module_name => g_module_name,
2512: p_procedure_name => l_proc_name,
2513: p_var_name => 'l_next_ship_num',
2514: p_var_value => l_next_ship_num
2513: p_var_name => 'l_next_ship_num',
2514: p_var_value => l_next_ship_num
2515: ) ;
2516: l_debug_info := 'Setting the next Shipment Number in INL_PARAMETERS';
2517: INL_LOGGING_PVT.Log_Statement(
2518: p_module_name => g_module_name,
2519: p_procedure_name => l_proc_name,
2520: p_debug_info => l_debug_info
2521: ) ;
2530: WHERE organization_id = validHeaders_List(iHead).organization_id;
2531: ELSIF l_user_defined_ship_num_code = 'MANUAL' THEN
2532: l_ship_num := validHeaders_List(iHead).ship_num;
2533: END IF;
2534: INL_LOGGING_PVT.Log_Variable(
2535: p_module_name => g_module_name,
2536: p_procedure_name => l_proc_name,
2537: p_var_name => 'l_ship_num',
2538: p_var_value => l_ship_num
2537: p_var_name => 'l_ship_num',
2538: p_var_value => l_ship_num
2539: ) ;
2540: l_debug_info := 'Insert into Shipment Headers table';
2541: INL_LOGGING_PVT.Log_Statement(
2542: p_module_name => g_module_name,
2543: p_procedure_name => l_proc_name,
2544: p_debug_info => l_debug_info
2545: ) ;
2634: ) ;
2635: END IF;
2636: END IF;
2637: l_debug_info := 'Set Shipment Header Interface status and imported Id';
2638: INL_LOGGING_PVT.Log_Statement(
2639: p_module_name => g_module_name,
2640: p_procedure_name => l_proc_name,
2641: p_debug_info => l_debug_info
2642: ) ;
2655: WHERE ship_header_int_id = validHeaders_List(iHead).ship_header_int_id;
2656: END LOOP;
2657: END IF;
2658: -- Standard End of Procedure/Function Logging
2659: INL_LOGGING_PVT.Log_EndProc(
2660: p_module_name => g_module_name,
2661: p_procedure_name => l_proc_name
2662: );
2663: EXCEPTION
2662: );
2663: EXCEPTION
2664: WHEN FND_API.G_EXC_ERROR THEN
2665: -- Standard Expected Error Logging
2666: INL_LOGGING_PVT.Log_ExpecError (
2667: p_module_name => g_module_name,
2668: p_procedure_name => l_proc_name
2669: );
2670: x_return_status := FND_API.G_RET_STS_ERROR;
2669: );
2670: x_return_status := FND_API.G_RET_STS_ERROR;
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: -- Standard Unexpected Error Logging
2673: INL_LOGGING_PVT.Log_UnexpecError (
2674: p_module_name => g_module_name,
2675: p_procedure_name => l_proc_name
2676: );
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2676: );
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: WHEN OTHERS THEN
2679: -- Standard Unexpected Error Logging
2680: INL_LOGGING_PVT.Log_UnexpecError (
2681: p_module_name => g_module_name,
2682: p_procedure_name => l_proc_name
2683: );
2684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2715: l_proc_name CONSTANT VARCHAR2(100) := 'Handle_LineGroups';
2716: l_debug_info VARCHAR2(2000) ;
2717: BEGIN
2718: -- Standard Beginning of Procedure/Function Logging
2719: INL_LOGGING_PVT.Log_BeginProc(
2720: p_module_name => g_module_name,
2721: p_procedure_name => l_proc_name
2722: ) ;
2723: IF(rec_ship_line_groups.ship_header_id <> p_ship_header_id OR
2816: rec_ship_line_groups.attribute13 := validLines_List(p_line_index).attribute13_lg;
2817: rec_ship_line_groups.attribute14 := validLines_List(p_line_index).attribute14_lg;
2818: rec_ship_line_groups.attribute15 := validLines_List(p_line_index).attribute15_lg;
2819: l_debug_info := 'Inserting inl_ship_line_groups';
2820: INL_LOGGING_PVT.Log_Statement(
2821: p_module_name => g_module_name,
2822: p_procedure_name => l_proc_name,
2823: p_debug_info => l_debug_info
2824: ) ;
2821: p_module_name => g_module_name,
2822: p_procedure_name => l_proc_name,
2823: p_debug_info => l_debug_info
2824: ) ;
2825: INL_LOGGING_PVT.Log_Variable(
2826: p_module_name => g_module_name,
2827: p_procedure_name => l_proc_name,
2828: p_var_name => 'rec_ship_line_groups.ship_line_group_id',
2829: p_var_value => rec_ship_line_groups.ship_line_group_id
2909:
2910: END;
2911: END IF;
2912: -- Standard End of Procedure/Function Logging
2913: INL_LOGGING_PVT.Log_EndProc(
2914: p_module_name => g_module_name,
2915: p_procedure_name => l_proc_name
2916: );
2917: EXCEPTION
2916: );
2917: EXCEPTION
2918: WHEN FND_API.G_EXC_ERROR THEN
2919: -- Standard Expected Error Logging
2920: INL_LOGGING_PVT.Log_ExpecError (
2921: p_module_name => g_module_name,
2922: p_procedure_name => l_proc_name
2923: );
2924: x_return_status := FND_API.G_RET_STS_ERROR;
2923: );
2924: x_return_status := FND_API.G_RET_STS_ERROR;
2925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2926: -- Standard Unexpected Error Logging
2927: INL_LOGGING_PVT.Log_UnexpecError (
2928: p_module_name => g_module_name,
2929: p_procedure_name => l_proc_name
2930: );
2931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2930: );
2931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2932: WHEN OTHERS THEN
2933: -- Standard Unexpected Error Logging
2934: INL_LOGGING_PVT.Log_UnexpecError (
2935: p_module_name => g_module_name,
2936: p_procedure_name => l_proc_name
2937: );
2938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2996: l_return_status VARCHAR2(1);
2997: l_ship_line_id NUMBER;
2998: BEGIN
2999: -- Standard Beginning of Procedure/Function Logging
3000: INL_LOGGING_PVT.Log_BeginProc(
3001: p_module_name => g_module_name,
3002: p_procedure_name => l_proc_name
3003: ) ;
3004: -- Initialize API return status to success
3016: IF NVL(validLines_List.LAST, 0) > 0 THEN
3017: FOR iLine IN validLines_List.FIRST..validLines_List.LAST
3018: LOOP
3019: l_debug_info := 'Processing Line: '||iLine;
3020: INL_LOGGING_PVT.Log_Statement(
3021: p_module_name => g_module_name,
3022: p_procedure_name => l_proc_name,
3023: p_debug_info => l_debug_info
3024: ) ;
3021: p_module_name => g_module_name,
3022: p_procedure_name => l_proc_name,
3023: p_debug_info => l_debug_info
3024: ) ;
3025: INL_LOGGING_PVT.Log_Variable(
3026: p_module_name => g_module_name,
3027: p_procedure_name => l_proc_name,
3028: p_var_name => 'validLines_List(iLine).ship_Line_int_id',
3029: p_var_value => validLines_List(iLine).ship_Line_int_id
3028: p_var_name => 'validLines_List(iLine).ship_Line_int_id',
3029: p_var_value => validLines_List(iLine).ship_Line_int_id
3030: ) ;
3031: l_debug_info := 'Handle Import of Shipment Line Groups';
3032: INL_LOGGING_PVT.Log_Statement(
3033: p_module_name => g_module_name,
3034: p_procedure_name => l_proc_name,
3035: p_debug_info => l_debug_info
3036: ) ;
3048: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3050: END IF;
3051: l_debug_info := 'Getting the next Shipment Line Number';
3052: INL_LOGGING_PVT.Log_Statement(
3053: p_module_name => g_module_name,
3054: p_procedure_name => l_proc_name,
3055: p_debug_info => l_debug_info
3056: ) ;
3062: WHERE ship_header_id = headersToProcess_List(iHead) .ship_header_id
3063: AND ship_line_group_id = rec_ship_line_groups.ship_line_group_id;
3064:
3065: validLines_List(iLine).ship_line_num := NVL(validLines_List(iLine).ship_line_num, 0) + 1;
3066: INL_LOGGING_PVT.Log_Variable(
3067: p_module_name => g_module_name,
3068: p_procedure_name => l_proc_name,
3069: p_var_name => 'validLines_List(iLine).ship_line_num',
3070: p_var_value => validLines_List(iLine).ship_line_num
3070: p_var_value => validLines_List(iLine).ship_line_num
3071: ) ;
3072: END IF;
3073: l_debug_info := 'Getting Shipment Line Id';
3074: INL_LOGGING_PVT.Log_Statement(
3075: p_module_name => g_module_name,
3076: p_procedure_name => l_proc_name,
3077: p_debug_info => l_debug_info
3078: ) ;
3080: SELECT inl_ship_Lines_all_s.NEXTVAL
3081: INTO l_ship_line_id
3082: FROM dual;
3083:
3084: INL_LOGGING_PVT.Log_Variable(
3085: p_module_name => g_module_name,
3086: p_procedure_name => l_proc_name,
3087: p_var_name => 'l_ship_line_id',
3088: p_var_value => l_ship_line_id
3087: p_var_name => 'l_ship_line_id',
3088: p_var_value => l_ship_line_id
3089: ) ;
3090: l_debug_info := 'Insert into Shipment Lines table';
3091: INL_LOGGING_PVT.Log_Statement(
3092: p_module_name => g_module_name,
3093: p_procedure_name => l_proc_name,
3094: p_debug_info => l_debug_info
3095: ) ;
3253: ) ;
3254: ELSE
3255: l_ship_line_id := validLines_List(iLine).ship_line_id;
3256: l_debug_info := 'Update Shipment Lines table';
3257: INL_LOGGING_PVT.Log_Statement(
3258: p_module_name => g_module_name,
3259: p_procedure_name => l_proc_name,
3260: p_debug_info => l_debug_info
3261: ) ;
3332: attribute15 = validLines_List(iLine).attribute15_sl /* 79 */
3333: WHERE ship_line_id = l_ship_line_id;
3334: END IF;
3335: l_debug_info := 'Set Shipment Line Interface status and imported Ids';
3336: INL_LOGGING_PVT.Log_Statement(
3337: p_module_name => g_module_name,
3338: p_procedure_name => l_proc_name,
3339: p_debug_info => l_debug_info
3340: ) ;
3356: END IF;
3357: END LOOP;
3358: END IF;
3359: -- Standard End of Procedure/Function Logging
3360: INL_LOGGING_PVT.Log_EndProc(
3361: p_module_name => g_module_name,
3362: p_procedure_name => l_proc_name
3363: );
3364: EXCEPTION
3363: );
3364: EXCEPTION
3365: WHEN FND_API.G_EXC_ERROR THEN
3366: -- Standard Expected Error Logging
3367: INL_LOGGING_PVT.Log_ExpecError (
3368: p_module_name => g_module_name,
3369: p_procedure_name => l_proc_name
3370: );
3371: x_return_status := FND_API.G_RET_STS_ERROR;
3370: );
3371: x_return_status := FND_API.G_RET_STS_ERROR;
3372: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3373: -- Standard Unexpected Error Logging
3374: INL_LOGGING_PVT.Log_UnexpecError (
3375: p_module_name => g_module_name,
3376: p_procedure_name => l_proc_name
3377: );
3378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3377: );
3378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3379: WHEN OTHERS THEN
3380: -- Standard Unexpected Error Logging
3381: INL_LOGGING_PVT.Log_UnexpecError (
3382: p_module_name => g_module_name,
3383: p_procedure_name => l_proc_name
3384: );
3385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424: l_debug_info VARCHAR2(2000) ;
3425: l_return_status VARCHAR2(1) ;
3426: BEGIN
3427: -- Standard Beginning of Procedure/Function Logging
3428: INL_LOGGING_PVT.Log_BeginProc(
3429: p_module_name => g_module_name,
3430: p_procedure_name => l_proc_name) ;
3431: -- Initialize API return status to success
3432: x_return_status := FND_API.G_RET_STS_SUCCESS;
3431: -- Initialize API return status to success
3432: x_return_status := FND_API.G_RET_STS_SUCCESS;
3433: -- Include the lines with transaction_type = 'CREATE'
3434: l_debug_info := 'Deriving Existing_Match_Info_Flag';
3435: INL_LOGGING_PVT.Log_Statement(
3436: p_module_name => g_module_name,
3437: p_procedure_name => l_proc_name,
3438: p_debug_info => l_debug_info
3439: ) ;
3450: ELSE
3451: x_existing_match_info_flag:='N';
3452: END IF;
3453: -- Standard End of Procedure/Function Logging
3454: INL_logging_pvt.Log_EndProc(
3455: p_module_name => g_module_name,
3456: p_procedure_name => l_proc_name
3457: );
3458: EXCEPTION
3457: );
3458: EXCEPTION
3459: WHEN FND_API.G_EXC_ERROR THEN
3460: -- Standard Expected Error Logging
3461: INL_LOGGING_PVT.Log_ExpecError (
3462: p_module_name => g_module_name,
3463: p_procedure_name => l_proc_name
3464: );
3465: x_return_status := FND_API.G_RET_STS_ERROR;
3464: );
3465: x_return_status := FND_API.G_RET_STS_ERROR;
3466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3467: -- Standard Unexpected Error Logging
3468: INL_LOGGING_PVT.Log_UnexpecError (
3469: p_module_name => g_module_name,
3470: p_procedure_name => l_proc_name
3471: );
3472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3471: );
3472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3473: WHEN OTHERS THEN
3474: -- Standard Unexpected Error Logging
3475: INL_LOGGING_PVT.Log_UnexpecError (
3476: p_module_name => g_module_name,
3477: p_procedure_name => l_proc_name
3478: );
3479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3564: l_currency_conversion_rate NUMBER;
3565:
3566: BEGIN
3567: -- Standard Beginning of Procedure/Function Logging
3568: INL_LOGGING_PVT.Log_BeginProc(
3569: p_module_name => g_module_name,
3570: p_procedure_name => l_proc_name) ;
3571:
3572: -- Initialize API return status to success
3572: -- Initialize API return status to success
3573: x_return_status := FND_API.G_RET_STS_SUCCESS;
3574: -- Include the lines with transaction_type = 'CREATE'
3575: l_debug_info := 'Include the lines with transaction_type = CREATE';
3576: INL_LOGGING_PVT.Log_Statement(
3577: p_module_name => g_module_name,
3578: p_procedure_name => l_proc_name,
3579: p_debug_info => l_debug_info
3580: ) ;
3618: AND d.invoice_line_number = l.line_number
3619: ;
3620:
3621: l_debug_info := 'Getting from inl_corr_matches_v the current value for transaction.';
3622: INL_LOGGING_PVT.Log_Statement(
3623: p_module_name => g_module_name,
3624: p_procedure_name => l_proc_name,
3625: p_debug_info => l_debug_info
3626: );
3627:
3628: IF p_match_type_code = 'CORRECTION'
3629: THEN
3630: l_debug_info := 'Is a correction. Type: '||l_match_type;
3631: INL_LOGGING_PVT.Log_Statement(
3632: p_module_name => g_module_name,
3633: p_procedure_name => l_proc_name,
3634: p_debug_info => l_debug_info) ;
3635:
3752: ;
3753: END IF;
3754:
3755: l_debug_info := 'match_type: '||l_match_type;
3756: INL_LOGGING_PVT.Log_Statement(
3757: p_module_name => g_module_name,
3758: p_procedure_name => l_proc_name,
3759: p_debug_info => l_debug_info
3760: );
3816:
3817: IF l_mat_curr_code_P <> x_matched_curr_code THEN
3818: --correction
3819: l_debug_info := 'conversion required.';
3820: INL_LOGGING_PVT.Log_Statement(
3821: p_module_name => g_module_name,
3822: p_procedure_name => l_proc_name,
3823: p_debug_info => l_debug_info
3824: );
3832: )
3833: ;
3834: IF NVL(x_nrec_tax_amt, 0) <> 0 THEN
3835: l_debug_info := 'conversion required for Not recoverable tax.';
3836: INL_LOGGING_PVT.Log_Statement(
3837: p_module_name => g_module_name,
3838: p_procedure_name => l_proc_name,
3839: p_debug_info => l_debug_info
3840: );
3908: WHERE match_id = l_mat_par_mat_id_P;
3909: END IF;
3910: --
3911: -- Standard End of Procedure/Function Logging
3912: INL_logging_pvt.Log_EndProc(
3913: p_module_name => g_module_name,
3914: p_procedure_name => l_proc_name
3915: );
3916: EXCEPTION
3915: );
3916: EXCEPTION
3917: WHEN FND_API.G_EXC_ERROR THEN
3918: -- Standard Expected Error Logging
3919: INL_LOGGING_PVT.Log_ExpecError (
3920: p_module_name => g_module_name,
3921: p_procedure_name => l_proc_name
3922: );
3923: x_return_status := FND_API.G_RET_STS_ERROR;
3922: );
3923: x_return_status := FND_API.G_RET_STS_ERROR;
3924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3925: -- Standard Unexpected Error Logging
3926: INL_LOGGING_PVT.Log_UnexpecError (
3927: p_module_name => g_module_name,
3928: p_procedure_name => l_proc_name
3929: );
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929: );
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3931: WHEN OTHERS THEN
3932: -- Standard Unexpected Error Logging
3933: INL_LOGGING_PVT.Log_UnexpecError (
3934: p_module_name => g_module_name,
3935: p_procedure_name => l_proc_name
3936: );
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4036: l_matched_curr_conversion_date DATE;
4037: l_matched_curr_conversion_rate NUMBER;
4038: BEGIN
4039: -- Standard Beginning of Procedure/Function Logging
4040: INL_LOGGING_PVT.Log_BeginProc(
4041: p_module_name => g_module_name,
4042: p_procedure_name => l_proc_name
4043: ) ;
4044: -- Initialize API return status to success
4043: ) ;
4044: -- Initialize API return status to success
4045: x_return_status := FND_API.G_RET_STS_SUCCESS;
4046: l_debug_info := 'Processing Match Amounts';
4047: INL_LOGGING_PVT.Log_Statement(
4048: p_module_name => g_module_name,
4049: p_procedure_name => l_proc_name,
4050: p_debug_info => l_debug_info
4051: ) ;
4057: IF NVL(matchAmountsToProcess_List.LAST, 0) > 0 THEN
4058: FOR iMatch IN matchAmountsToProcess_List.FIRST..matchAmountsToProcess_List.LAST
4059: LOOP
4060: l_debug_info := 'Processing Match Amount: '||iMatch||'('||matchAmountsToProcess_List(iMatch).match_amount_int_id||')';
4061: INL_LOGGING_PVT.Log_Statement(
4062: p_module_name => g_module_name,
4063: p_procedure_name => l_proc_name,
4064: p_debug_info => l_debug_info
4065: ) ;
4063: p_procedure_name => l_proc_name,
4064: p_debug_info => l_debug_info
4065: ) ;
4066:
4067: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
4068: p_procedure_name => l_proc_name,
4069: p_var_name => 'matchAmountsToProcess_List(iMatch).match_amount_int_id',
4070: p_var_value => matchAmountsToProcess_List(iMatch) .match_amount_int_id) ;
4071: IF matchAmountsToProcess_List(iMatch).transaction_type <> 'CREATE' THEN
4069: p_var_name => 'matchAmountsToProcess_List(iMatch).match_amount_int_id',
4070: p_var_value => matchAmountsToProcess_List(iMatch) .match_amount_int_id) ;
4071: IF matchAmountsToProcess_List(iMatch).transaction_type <> 'CREATE' THEN
4072: l_debug_info := 'Transaction_type '||matchAmountsToProcess_List(iMatch).transaction_type||'not supported.';
4073: INL_LOGGING_PVT.Log_Statement(
4074: p_module_name => g_module_name,
4075: p_procedure_name => l_proc_name,
4076: p_debug_info => l_debug_info
4077: ) ;
4115: fnd_global.login_id
4116: );
4117: END IF;
4118: l_debug_info := 'Set Shipment Line Interface status and imported Ids';
4119: INL_LOGGING_PVT.Log_Statement(
4120: p_module_name => g_module_name,
4121: p_procedure_name => l_proc_name,
4122: p_debug_info => l_debug_info
4123: ) ;
4136: END LOOP;
4137: END IF;
4138:
4139: l_debug_info := 'Processing Matches';
4140: INL_LOGGING_PVT.Log_Statement(
4141: p_module_name => g_module_name,
4142: p_procedure_name => l_proc_name,
4143: p_debug_info => l_debug_info
4144: ) ;
4208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210: END IF;
4211: l_debug_info := 'Processing Match: '||iMatch||'('||matchesToProcess_List(iMatch) .transaction_type||')';
4212: INL_LOGGING_PVT.Log_Statement(
4213: p_module_name => g_module_name,
4214: p_procedure_name => l_proc_name,
4215: p_debug_info => l_debug_info
4216: ) ;
4214: p_procedure_name => l_proc_name,
4215: p_debug_info => l_debug_info
4216: ) ;
4217:
4218: INL_LOGGING_PVT.Log_Variable(
4219: p_module_name => g_module_name,
4220: p_procedure_name => l_proc_name,
4221: p_var_name => 'matchesToProcess_List(iMatch).match_int_id',
4222: p_var_value => matchesToProcess_List(iMatch).match_int_id
4222: p_var_value => matchesToProcess_List(iMatch).match_int_id
4223: ) ;
4224: IF matchesToProcess_List(iMatch) .transaction_type <> 'CREATE' THEN
4225: l_debug_info := 'Transaction_type '||matchesToProcess_List(iMatch) .transaction_type||'not supported.';
4226: INL_LOGGING_PVT.Log_Statement(
4227: p_module_name => g_module_name,
4228: p_procedure_name => l_proc_name,
4229: p_debug_info => l_debug_info
4230: ) ;
4311: fnd_global.login_id /* 35 */
4312: );
4313: -- Set Shipment Header's pending_matching_flag to 'Y'
4314: l_debug_info := 'Set LCM Shipment pending_matching_flag to Y';
4315: INL_LOGGING_PVT.Log_Statement(
4316: p_module_name => g_module_name,
4317: p_procedure_name => l_proc_name,
4318: p_debug_info => l_debug_info
4319: );
4330: WHERE sH.ship_header_id = l_ship_header_id
4331: ;
4332: END IF;
4333: l_debug_info := 'Set Shipment Line Interface status and imported Ids';
4334: INL_LOGGING_PVT.Log_Statement(
4335: p_module_name => g_module_name,
4336: p_procedure_name => l_proc_name,
4337: p_debug_info => l_debug_info
4338: ) ;
4350: WHERE m.match_int_id = matchesToProcess_List(iMatch) .match_int_id;
4351: END LOOP;
4352: END IF;
4353: -- Standard End of Procedure/Function Logging
4354: INL_LOGGING_PVT.Log_EndProc(
4355: p_module_name => g_module_name,
4356: p_procedure_name => l_proc_name
4357: );
4358: EXCEPTION
4357: );
4358: EXCEPTION
4359: WHEN FND_API.G_EXC_ERROR THEN
4360: -- Standard Expected Error Logging
4361: INL_LOGGING_PVT.Log_ExpecError (
4362: p_module_name => g_module_name,
4363: p_procedure_name => l_proc_name
4364: );
4365: x_return_status := FND_API.G_RET_STS_ERROR;
4364: );
4365: x_return_status := FND_API.G_RET_STS_ERROR;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4367: -- Standard Unexpected Error Logging
4368: INL_LOGGING_PVT.Log_UnexpecError (
4369: p_module_name => g_module_name,
4370: p_procedure_name => l_proc_name
4371: );
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4371: );
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373: WHEN OTHERS THEN
4374: -- Standard Unexpected Error Logging
4375: INL_LOGGING_PVT.Log_UnexpecError (
4376: p_module_name => g_module_name,
4377: p_procedure_name => l_proc_name
4378: );
4379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: l_updated_flag VARCHAR2(1) ;
4414: l_return_status VARCHAR2(1) ;
4415: BEGIN
4416: -- Standard Beginning of Procedure/Function Logging
4417: INL_LOGGING_PVT.Log_BeginProc(
4418: p_module_name => g_module_name,
4419: p_procedure_name => l_proc_name
4420: ) ;
4421: -- Initialize API return status to success
4431: )
4432: WHERE sh.ship_header_int_id = p_ship_header_int_id
4433: AND sh.location_id IS NULL;
4434: -- Standard End of Procedure/Function Logging
4435: INL_LOGGING_PVT.Log_EndProc(
4436: p_module_name => g_module_name,
4437: p_procedure_name => l_proc_name
4438: );
4439: EXCEPTION
4438: );
4439: EXCEPTION
4440: WHEN FND_API.G_EXC_ERROR THEN
4441: -- Standard Expected Error Logging
4442: INL_LOGGING_PVT.Log_ExpecError (
4443: p_module_name => g_module_name,
4444: p_procedure_name => l_proc_name
4445: );
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4445: );
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4448: -- Standard Unexpected Error Logging
4449: INL_LOGGING_PVT.Log_UnexpecError (
4450: p_module_name => g_module_name,
4451: p_procedure_name => l_proc_name
4452: );
4453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4452: );
4453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4454: WHEN OTHERS THEN
4455: -- Standard Unexpected Error Logging
4456: INL_LOGGING_PVT.Log_UnexpecError (
4457: p_module_name => g_module_name,
4458: p_procedure_name => l_proc_name
4459: );
4460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4548: TYPE toDeriveLines_List_Type IS TABLE OF toDeriveLines%ROWTYPE;
4549: toDeriveLines_List toDeriveLines_List_Type ;
4550: BEGIN
4551: -- Standard Beginning of Procedure/Function Logging
4552: INL_LOGGING_PVT.Log_BeginProc(
4553: p_module_name => g_module_name,
4554: p_procedure_name => l_proc_name
4555: ) ;
4556: -- Initialize API return status to success
4555: ) ;
4556: -- Initialize API return status to success
4557: x_return_status := FND_API.G_RET_STS_SUCCESS;
4558: l_debug_info := 'Open and fetch toDeriveLines cursor';
4559: INL_LOGGING_PVT.Log_Statement(
4560: p_module_name => g_module_name,
4561: p_procedure_name => l_proc_name,
4562: p_debug_info => l_debug_info
4563: ) ;
4570: LOOP
4571: l_updated_flag := 'N';
4572: -- Examine the line
4573: l_debug_info := 'Examine the line ID '||toDeriveLines_list(i) .ship_line_int_id;
4574: INL_LOGGING_PVT.Log_Statement(
4575: p_module_name => g_module_name,
4576: p_procedure_name => l_proc_name,
4577: p_debug_info => l_debug_info
4578: ) ;
4645: END IF;
4646: END LOOP;
4647: END IF;
4648: -- Standard End of Procedure/Function Logging
4649: INL_LOGGING_PVT.Log_EndProc(
4650: p_module_name => g_module_name,
4651: p_procedure_name => l_proc_name
4652: );
4653: EXCEPTION
4652: );
4653: EXCEPTION
4654: WHEN FND_API.G_EXC_ERROR THEN
4655: -- Standard Expected Error Logging
4656: INL_LOGGING_PVT.Log_ExpecError (
4657: p_module_name => g_module_name,
4658: p_procedure_name => l_proc_name
4659: );
4660: x_return_status := FND_API.G_RET_STS_ERROR;
4659: );
4660: x_return_status := FND_API.G_RET_STS_ERROR;
4661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4662: -- Standard Unexpected Error Logging
4663: INL_LOGGING_PVT.Log_UnexpecError (
4664: p_module_name => g_module_name,
4665: p_procedure_name => l_proc_name
4666: );
4667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4666: );
4667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4668: WHEN OTHERS THEN
4669: -- Standard Unexpected Error Logging
4670: INL_LOGGING_PVT.Log_UnexpecError (
4671: p_module_name => g_module_name,
4672: p_procedure_name => l_proc_name
4673: );
4674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4716: l_return_status VARCHAR2(1) ;
4717: BEGIN
4718:
4719: -- Standard Beginning of Procedure/Function Logging
4720: INL_LOGGING_PVT.Log_BeginProc(
4721: p_module_name => g_module_name,
4722: p_procedure_name => l_proc_name
4723: ) ;
4724: -- Initialize API return status to success
4723: ) ;
4724: -- Initialize API return status to success
4725: x_return_status := FND_API.G_RET_STS_SUCCESS;
4726: l_debug_info := 'Derive values for Match Lines';
4727: INL_LOGGING_PVT.Log_Statement(
4728: p_module_name => g_module_name,
4729: p_procedure_name => l_proc_name,
4730: p_debug_info => l_debug_info
4731: ) ;
4767: ;
4768: END IF;
4769:
4770: -- Standard End of Procedure/Function Logging
4771: INL_LOGGING_PVT.Log_EndProc(
4772: p_module_name => g_module_name,
4773: p_procedure_name => l_proc_name
4774: );
4775: EXCEPTION
4774: );
4775: EXCEPTION
4776: WHEN FND_API.G_EXC_ERROR THEN
4777: -- Standard Expected Error Logging
4778: INL_LOGGING_PVT.Log_ExpecError (
4779: p_module_name => g_module_name,
4780: p_procedure_name => l_proc_name
4781: );
4782: x_return_status := FND_API.G_RET_STS_ERROR;
4781: );
4782: x_return_status := FND_API.G_RET_STS_ERROR;
4783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4784: -- Standard Unexpected Error Logging
4785: INL_LOGGING_PVT.Log_UnexpecError (
4786: p_module_name => g_module_name,
4787: p_procedure_name => l_proc_name
4788: );
4789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4788: );
4789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4790: WHEN OTHERS THEN
4791: -- Standard Unexpected Error Logging
4792: INL_LOGGING_PVT.Log_UnexpecError (
4793: p_module_name => g_module_name,
4794: p_procedure_name => l_proc_name
4795: );
4796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4834: l_return_status VARCHAR2(1) ;
4835: l_result VARCHAR2(1) := FND_API.G_TRUE;
4836: BEGIN
4837: -- Standard Beginning of Procedure/Function Logging
4838: INL_LOGGING_PVT.Log_BeginProc(
4839: p_module_name => g_module_name,
4840: p_procedure_name => l_func_name
4841: ) ;
4842: -- Initialize API return status to success
4841: ) ;
4842: -- Initialize API return status to success
4843: x_return_status := FND_API.G_RET_STS_SUCCESS;
4844: l_debug_info := 'Check if CHARGE_LINE_TYPE_ID is valid';
4845: INL_LOGGING_PVT.Log_Statement(
4846: p_module_name => g_module_name,
4847: p_procedure_name => l_func_name,
4848: p_debug_info => l_debug_info
4849: ) ;
4889: END IF;
4890: END IF;
4891: END IF;
4892: -- Standard End of Procedure/Function Logging
4893: INL_LOGGING_PVT.Log_EndProc(
4894: p_module_name => g_module_name,
4895: p_procedure_name => l_func_name
4896: );
4897: RETURN FND_API.to_boolean(l_result) ;
4897: RETURN FND_API.to_boolean(l_result) ;
4898: EXCEPTION
4899: WHEN FND_API.G_EXC_ERROR THEN
4900: -- Standard Expected Error Logging
4901: INL_LOGGING_PVT.Log_ExpecError (
4902: p_module_name => g_module_name,
4903: p_procedure_name => l_func_name
4904: );
4905: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
4904: );
4905: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
4906: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4907: -- Standard Unexpected Error Logging
4908: INL_LOGGING_PVT.Log_UnexpecError (
4909: p_module_name => g_module_name,
4910: p_procedure_name => l_func_name
4911: );
4912: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
4911: );
4912: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
4913: WHEN OTHERS THEN
4914: -- Standard Unexpected Error Logging
4915: INL_LOGGING_PVT.Log_UnexpecError (
4916: p_module_name => g_module_name,
4917: p_procedure_name => l_func_name
4918: );
4919: IF FND_MSG_PUB.Check_Msg_Level(
4956: l_return_status VARCHAR2(1) ;
4957: l_result VARCHAR2(1) := FND_API.G_TRUE;
4958: BEGIN
4959: -- Standard Beginning of Procedure/Function Logging
4960: INL_LOGGING_PVT.Log_BeginProc(
4961: p_module_name => g_module_name,
4962: p_procedure_name => l_func_name
4963: ) ;
4964: -- Initialize API return status to success
4963: ) ;
4964: -- Initialize API return status to success
4965: x_return_status := FND_API.G_RET_STS_SUCCESS;
4966: l_debug_info := 'Check if replace_estim_qty_flag = "Y" and it is not about an ITEM match';
4967: INL_LOGGING_PVT.Log_Statement(
4968: p_module_name => g_module_name,
4969: p_procedure_name => l_func_name,
4970: p_debug_info => l_debug_info
4971: ) ;
4988: END IF;
4989: END IF;
4990: END IF;
4991: -- Standard End of Procedure/Function Logging
4992: INL_LOGGING_PVT.Log_EndProc(
4993: p_module_name => g_module_name,
4994: p_procedure_name => l_func_name
4995: );
4996: RETURN FND_API.to_boolean(l_result) ;
4996: RETURN FND_API.to_boolean(l_result) ;
4997: EXCEPTION
4998: WHEN FND_API.G_EXC_ERROR THEN
4999: -- Standard Expected Error Logging
5000: INL_LOGGING_PVT.Log_ExpecError (
5001: p_module_name => g_module_name,
5002: p_procedure_name => l_func_name
5003: );
5004: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5003: );
5004: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5006: -- Standard Unexpected Error Logging
5007: INL_LOGGING_PVT.Log_UnexpecError (
5008: p_module_name => g_module_name,
5009: p_procedure_name => l_func_name
5010: );
5011: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5010: );
5011: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5012: WHEN OTHERS THEN
5013: -- Standard Unexpected Error Logging
5014: INL_LOGGING_PVT.Log_UnexpecError (
5015: p_module_name => g_module_name,
5016: p_procedure_name => l_func_name
5017: );
5018: IF FND_MSG_PUB.Check_Msg_Level(
5122: OI_matches_UOM_code VARCHAR2(3);
5123: OI_match_type_code VARCHAR2(30);
5124: BEGIN
5125: -- Standard Beginning of Procedure/Function Logging
5126: INL_LOGGING_PVT.Log_BeginProc(
5127: p_module_name => g_module_name,
5128: p_procedure_name => l_func_name
5129: ) ;
5130: -- Initialize API return status to success
5131: x_return_status := FND_API.G_RET_STS_SUCCESS;
5132: -- Get ship_header_id and the ship_line_num from Shipment Lines table
5133: -- to be used as criteria in the search for estimated values(Adjustment View)
5134: l_debug_info := 'Getting from ADJ View the total QTY';
5135: INL_LOGGING_PVT.Log_Statement(
5136: p_module_name => g_module_name,
5137: p_procedure_name => l_func_name,
5138: p_debug_info => l_debug_info
5139: ) ;
5153: FROM inl_ship_headers
5154: WHERE ship_header_id = l_ship_header_id;
5155:
5156: l_debug_info := 'Get from Adjustment View the TXN_QTY and TXN_UOM_CODE';
5157: INL_LOGGING_PVT.Log_Statement(
5158: p_module_name => g_module_name,
5159: p_procedure_name => l_func_name,
5160: p_debug_info => l_debug_info
5161: ) ;
5167: WHERE sl.ship_header_id = l_ship_header_id
5168: AND sl.ship_line_group_id = l_ship_line_group_id
5169: AND sl.ship_line_num = l_ship_line_num;
5170:
5171: INL_LOGGING_PVT.Log_Variable(
5172: p_module_name => g_module_name,
5173: p_procedure_name => l_func_name,
5174: p_var_name => 'l_qty',
5175: p_var_value => l_qty
5173: p_procedure_name => l_func_name,
5174: p_var_name => 'l_qty',
5175: p_var_value => l_qty
5176: ) ;
5177: INL_LOGGING_PVT.Log_Variable(
5178: p_module_name => g_module_name,
5179: p_procedure_name => l_func_name,
5180: p_var_name => 'l_UOM_code',
5181: p_var_value => l_UOM_code
5183: -- Check if there is any match line as
5184: -- replace_estim_qty_flag = 'Y' and adj_already_generated_flag = 'N'
5185: -- In this case it will affect the estimated quantity when processed
5186: l_debug_info := 'Get values from unprocessed matches';
5187: INL_LOGGING_PVT.Log_Statement(
5188: p_module_name => g_module_name,
5189: p_procedure_name => l_func_name,
5190: p_debug_info => l_debug_info
5191: ) ;
5215: ;
5216: l_qty := l_unproc_actual_qty;
5217: l_UOM_code := l_unproc_UOM_code;
5218: l_debug_info := 'Unprocessed value as replace_estim_qty_flag = Y:';
5219: INL_LOGGING_PVT.Log_Statement(
5220: p_module_name => g_module_name,
5221: p_procedure_name => l_func_name,
5222: p_debug_info => l_debug_info
5223: ) ;
5220: p_module_name => g_module_name,
5221: p_procedure_name => l_func_name,
5222: p_debug_info => l_debug_info
5223: ) ;
5224: INL_LOGGING_PVT.Log_Variable(
5225: p_module_name => g_module_name,
5226: p_procedure_name => l_func_name,
5227: p_var_name => 'l_qty',
5228: p_var_value => l_qty
5226: p_procedure_name => l_func_name,
5227: p_var_name => 'l_qty',
5228: p_var_value => l_qty
5229: ) ;
5230: INL_LOGGING_PVT.Log_Variable(
5231: p_module_name => g_module_name,
5232: p_procedure_name => l_func_name,
5233: p_var_name => 'l_uom_code',
5234: p_var_value => l_uom_code
5236: IF p_updated_match_id = l_unproc_match_id THEN
5237: l_qty := p_matched_qty;
5238: l_UOM_code := p_matched_uom_code;
5239: l_debug_info := 'Unprocessed value will be updated by the current record(replace_estim_qty_flag = Y):';
5240: INL_LOGGING_PVT.Log_Statement(
5241: p_module_name => g_module_name,
5242: p_procedure_name => l_func_name,
5243: p_debug_info => l_debug_info
5244: ) ;
5241: p_module_name => g_module_name,
5242: p_procedure_name => l_func_name,
5243: p_debug_info => l_debug_info
5244: ) ;
5245: INL_LOGGING_PVT.Log_Variable(
5246: p_module_name => g_module_name,
5247: p_procedure_name => l_func_name,
5248: p_var_name => 'l_qty',
5249: p_var_value => l_qty
5247: p_procedure_name => l_func_name,
5248: p_var_name => 'l_qty',
5249: p_var_value => l_qty
5250: ) ;
5251: INL_LOGGING_PVT.Log_Variable(
5252: p_module_name => g_module_name,
5253: p_procedure_name => l_func_name,
5254: p_var_name => 'l_UOM_code',
5255: p_var_value => l_UOM_code
5261: END;
5262: -- Check if there is any match line as
5263: -- replace_estim_qty_flag = 'N' and adj_already_generated_flag = 'N'
5264: l_debug_info := 'Get actual values from unprocessed matches';
5265: INL_LOGGING_PVT.Log_Statement(
5266: p_module_name => g_module_name,
5267: p_procedure_name => l_func_name,
5268: p_debug_info => l_debug_info
5269: ) ;
5287: AND m1.replace_estim_qty_flag = 'N'
5288: AND m1.adj_already_generated_flag = 'N'
5289: ;
5290: l_debug_info := 'Actuals from unprocessed Matches(replace_estim_qty_flag = N):';
5291: INL_LOGGING_PVT.Log_Statement(
5292: p_module_name => g_module_name,
5293: p_procedure_name => l_func_name,
5294: p_debug_info => l_debug_info
5295: ) ;
5292: p_module_name => g_module_name,
5293: p_procedure_name => l_func_name,
5294: p_debug_info => l_debug_info
5295: ) ;
5296: INL_LOGGING_PVT.Log_Variable(
5297: p_module_name => g_module_name,
5298: p_procedure_name => l_func_name,
5299: p_var_name => 'l_unproc_actual_qty',
5300: p_var_value => l_unproc_actual_qty
5304: WHEN NO_DATA_FOUND THEN
5305: NULL;
5306: END;
5307: l_debug_info := 'Get values from processed matches';
5308: INL_LOGGING_PVT.Log_Statement(
5309: p_module_name => g_module_name,
5310: p_procedure_name => l_func_name,
5311: p_debug_info => l_debug_info
5312: ) ;
5331: END IF;
5332: END LOOP;
5333: END IF;
5334: l_debug_info := 'Actuals from processed matches:';
5335: INL_LOGGING_PVT.Log_Statement(
5336: p_module_name => g_module_name,
5337: p_procedure_name => l_func_name,
5338: p_debug_info => l_debug_info
5339: ) ;
5336: p_module_name => g_module_name,
5337: p_procedure_name => l_func_name,
5338: p_debug_info => l_debug_info
5339: ) ;
5340: INL_LOGGING_PVT.Log_Variable(
5341: p_module_name => g_module_name,
5342: p_procedure_name => l_func_name,
5343: p_var_name => 'l_actual_qty',
5344: p_var_value => l_actual_qty
5343: p_var_name => 'l_actual_qty',
5344: p_var_value => l_actual_qty
5345: ) ;
5346: l_debug_info := 'Get values from not interfaced matches';
5347: INL_LOGGING_PVT.Log_Statement(
5348: p_module_name => g_module_name,
5349: p_procedure_name => l_func_name,
5350: p_debug_info => l_debug_info
5351: ) ;
5356: IF NVL(OI_matches_List.LAST, 0) > 0 THEN
5357: FOR iMat IN NVL(OI_matches_List.FIRST, 0) ..NVL(OI_matches_List.LAST, 0)
5358: LOOP
5359: l_debug_info := 'Get values from not interfaced matches';
5360: INL_LOGGING_PVT.Log_Statement(
5361: p_module_name => g_module_name,
5362: p_procedure_name => l_func_name,
5363: p_debug_info => l_debug_info
5364: ) ;
5367: IF OI_matches_List(iMat).transaction_type <> 'DELETE' THEN
5368: l_qty := OI_matches_List(iMat) .matched_qty;
5369: l_UOM_code := OI_matches_List(iMat) .matched_UOM_code;
5370: l_debug_info := 'New estimated values from match interface:';
5371: INL_LOGGING_PVT.Log_Statement(
5372: p_module_name => g_module_name,
5373: p_procedure_name => l_func_name,
5374: p_debug_info => l_debug_info
5375: ) ;
5372: p_module_name => g_module_name,
5373: p_procedure_name => l_func_name,
5374: p_debug_info => l_debug_info
5375: ) ;
5376: INL_LOGGING_PVT.Log_Variable(
5377: p_module_name => g_module_name,
5378: p_procedure_name => l_func_name,
5379: p_var_name => 'l_qty',
5380: p_var_value => l_qty
5378: p_procedure_name => l_func_name,
5379: p_var_name => 'l_qty',
5380: p_var_value => l_qty
5381: ) ;
5382: INL_LOGGING_PVT.Log_Variable(
5383: p_module_name => g_module_name,
5384: p_procedure_name => l_func_name,
5385: p_var_name => 'l_uom_code',
5386: p_var_value => l_uom_code
5406: l_actual_qty := NVL(l_actual_qty, 0) + NVL(OI_matches_qty, 0) ;
5407: END IF;
5408: END IF;
5409: l_debug_info := 'End Loop';
5410: INL_LOGGING_PVT.Log_Statement(
5411: p_module_name => g_module_name,
5412: p_procedure_name => l_func_name,
5413: p_debug_info => l_debug_info
5414: );
5411: p_module_name => g_module_name,
5412: p_procedure_name => l_func_name,
5413: p_debug_info => l_debug_info
5414: );
5415: INL_LOGGING_PVT.Log_Variable(
5416: p_module_name => g_module_name,
5417: p_procedure_name => l_func_name,
5418: p_var_name => 'l_actual_qty',
5419: p_var_value => l_actual_qty
5439: END IF;
5440: IF NVL(l_actual_qty, 0) > NVL(l_qty, 0) THEN
5441: l_result := FND_API.G_FALSE;
5442: l_debug_info := 'Insufficient estimated quantity('||l_qty||') for the actuals received('||l_actual_qty||')'|| l_matches;
5443: INL_LOGGING_PVT.Log_Statement(
5444: p_module_name => g_module_name,
5445: p_procedure_name => l_func_name,
5446: p_debug_info => l_debug_info
5447: );
5465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5466: END IF;
5467: END IF;
5468: l_debug_info := 'Trace: '||l_matches;
5469: INL_LOGGING_PVT.Log_Statement(
5470: p_module_name => g_module_name,
5471: p_procedure_name => l_func_name,
5472: p_debug_info => l_debug_info
5473: );
5471: p_procedure_name => l_func_name,
5472: p_debug_info => l_debug_info
5473: );
5474: -- Standard End of Procedure/Function Logging
5475: INL_LOGGING_PVT.Log_EndProc(
5476: p_module_name => g_module_name,
5477: p_procedure_name => l_func_name
5478: );
5479: RETURN FND_API.to_boolean(l_result) ;
5479: RETURN FND_API.to_boolean(l_result) ;
5480: EXCEPTION
5481: WHEN FND_API.G_EXC_ERROR THEN
5482: -- Standard Expected Error Logging
5483: INL_LOGGING_PVT.Log_ExpecError (
5484: p_module_name => g_module_name,
5485: p_procedure_name => l_func_name
5486: );
5487: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5486: );
5487: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5489: -- Standard Unexpected Error Logging
5490: INL_LOGGING_PVT.Log_UnexpecError (
5491: p_module_name => g_module_name,
5492: p_procedure_name => l_func_name
5493: );
5494: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5493: );
5494: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5495: WHEN OTHERS THEN
5496: -- Standard Unexpected Error Logging
5497: INL_LOGGING_PVT.Log_UnexpecError (
5498: p_module_name => g_module_name,
5499: p_procedure_name => l_func_name
5500: );
5501: IF FND_MSG_PUB.Check_Msg_Level(
5542: l_return_status VARCHAR2(1) ;
5543: l_result VARCHAR2(1) := FND_API.G_TRUE;
5544: BEGIN
5545: -- Standard Beginning of Procedure/Function Logging
5546: INL_LOGGING_PVT.Log_BeginProc(
5547: p_module_name => g_module_name,
5548: p_procedure_name => l_func_name
5549: ) ;
5550: -- Initialize API return status to success
5550: -- Initialize API return status to success
5551: x_return_status := FND_API.G_RET_STS_SUCCESS;
5552: IF NVL(p_parent_match_type_code, p_match_type_code) = 'TAX' THEN
5553: l_debug_info := 'Check: The unrecoverable amount should be smaller or equal to matched amount';
5554: INL_LOGGING_PVT.Log_Statement(
5555: p_module_name => g_module_name,
5556: p_procedure_name => l_func_name,
5557: p_debug_info => l_debug_info
5558: );
5580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5581: END IF;
5582: END IF;
5583: l_debug_info := 'Check: TAX_CODE cannot be null';
5584: INL_LOGGING_PVT.Log_Statement(
5585: p_module_name => g_module_name,
5586: p_procedure_name => l_func_name,
5587: p_debug_info => l_debug_info
5588: );
5604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5605: END IF;
5606: END IF;
5607: l_debug_info := 'Check: TAX_AMT_INCLUDED_FLAG cannot be null';
5608: INL_LOGGING_PVT.Log_Statement(
5609: p_module_name => g_module_name,
5610: p_procedure_name => l_func_name,
5611: p_debug_info => l_debug_info
5612: );
5646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5647: END IF;
5648: END IF;
5649: -- Standard End of Procedure/Function Logging
5650: INL_LOGGING_PVT.Log_EndProc(
5651: p_module_name => g_module_name,
5652: p_procedure_name => l_func_name
5653: );
5654: RETURN FND_API.to_boolean(l_result) ;
5654: RETURN FND_API.to_boolean(l_result) ;
5655: EXCEPTION
5656: WHEN FND_API.G_EXC_ERROR THEN
5657: -- Standard Expected Error Logging
5658: INL_LOGGING_PVT.Log_ExpecError (
5659: p_module_name => g_module_name,
5660: p_procedure_name => l_func_name
5661: );
5662: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5661: );
5662: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5664: -- Standard Unexpected Error Logging
5665: INL_LOGGING_PVT.Log_UnexpecError (
5666: p_module_name => g_module_name,
5667: p_procedure_name => l_func_name
5668: );
5669: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5668: );
5669: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5670: WHEN OTHERS THEN
5671: -- Standard Unexpected Error Logging
5672: INL_LOGGING_PVT.Log_UnexpecError (
5673: p_module_name => g_module_name,
5674: p_procedure_name => l_func_name
5675: );
5676: IF FND_MSG_PUB.Check_Msg_Level(
5723: l_return_status VARCHAR2(1) ;
5724: l_result VARCHAR2(1) := FND_API.G_TRUE;
5725: BEGIN
5726: -- Standard Beginning of Procedure/Function Logging
5727: INL_LOGGING_PVT.Log_BeginProc(
5728: p_module_name => g_module_name,
5729: p_procedure_name => l_func_name
5730: ) ;
5731: -- Initialize API return status to success
5730: ) ;
5731: -- Initialize API return status to success
5732: x_return_status := FND_API.G_RET_STS_SUCCESS;
5733: l_debug_info := 'Check in case of correction, the currency must be the same of the original';
5734: INL_LOGGING_PVT.Log_Statement(
5735: p_module_name => g_module_name,
5736: p_procedure_name => l_func_name,
5737: p_debug_info => l_debug_info
5738: );
5759: END IF;
5760: END IF;
5761: END IF;
5762: l_debug_info := 'When replace_estim_qty_flag = "Y", the final Amount cannot be null';
5763: INL_LOGGING_PVT.Log_Statement(
5764: p_module_name => g_module_name,
5765: p_procedure_name => l_func_name,
5766: p_debug_info => l_debug_info
5767: );
5785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5786: END IF;
5787: END IF;
5788: -- Standard End of Procedure/Function Logging
5789: INL_LOGGING_PVT.Log_EndProc(
5790: p_module_name => g_module_name,
5791: p_procedure_name => l_func_name
5792: );
5793: RETURN FND_API.to_boolean(l_result) ;
5793: RETURN FND_API.to_boolean(l_result) ;
5794: EXCEPTION
5795: WHEN FND_API.G_EXC_ERROR THEN
5796: -- Standard Expected Error Logging
5797: INL_LOGGING_PVT.Log_ExpecError (
5798: p_module_name => g_module_name,
5799: p_procedure_name => l_func_name
5800: );
5801: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5800: );
5801: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5803: -- Standard Unexpected Error Logging
5804: INL_LOGGING_PVT.Log_UnexpecError (
5805: p_module_name => g_module_name,
5806: p_procedure_name => l_func_name
5807: );
5808: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5807: );
5808: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5809: WHEN OTHERS THEN
5810: -- Standard Unexpected Error Logging
5811: INL_LOGGING_PVT.Log_UnexpecError (
5812: p_module_name => g_module_name,
5813: p_procedure_name => l_func_name
5814: );
5815: IF FND_MSG_PUB.Check_Msg_Level(
5851: l_result VARCHAR2(1) := FND_API.G_TRUE;
5852: l_uom VARCHAR2(100) ;
5853: BEGIN
5854: -- Standard Beginning of Procedure/Function Logging
5855: INL_LOGGING_PVT.Log_BeginProc(
5856: p_module_name => g_module_name,
5857: p_procedure_name => l_func_name
5858: ) ;
5859: -- Initialize API return status to success
5858: ) ;
5859: -- Initialize API return status to success
5860: x_return_status := FND_API.G_RET_STS_SUCCESS;
5861: l_debug_info := 'Validate the type of the corrected match in case of correction process.';
5862: INL_LOGGING_PVT.Log_Statement(
5863: p_module_name => g_module_name,
5864: p_procedure_name => l_func_name,
5865: p_debug_info => l_debug_info
5866: );
5933: END IF;
5934: END IF;
5935: END IF;
5936: -- Standard End of Procedure/Function Logging
5937: INL_LOGGING_PVT.Log_EndProc(
5938: p_module_name => g_module_name,
5939: p_procedure_name => l_func_name
5940: );
5941: RETURN FND_API.to_boolean(l_result) ;
5941: RETURN FND_API.to_boolean(l_result) ;
5942: EXCEPTION
5943: WHEN FND_API.G_EXC_ERROR THEN
5944: -- Standard Expected Error Logging
5945: INL_LOGGING_PVT.Log_ExpecError (
5946: p_module_name => g_module_name,
5947: p_procedure_name => l_func_name
5948: );
5949: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5948: );
5949: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5951: -- Standard Unexpected Error Logging
5952: INL_LOGGING_PVT.Log_UnexpecError (
5953: p_module_name => g_module_name,
5954: p_procedure_name => l_func_name
5955: );
5956: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5955: );
5956: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
5957: WHEN OTHERS THEN
5958: -- Standard Unexpected Error Logging
5959: INL_LOGGING_PVT.Log_UnexpecError (
5960: p_module_name => g_module_name,
5961: p_procedure_name => l_func_name
5962: );
5963: IF FND_MSG_PUB.Check_Msg_Level(
6003: l_result VARCHAR2(1) := FND_API.G_TRUE;
6004: l_adj_alr_gen_flag VARCHAR2(1) ;
6005: BEGIN
6006: -- Standard Beginning of Procedure/Function Logging
6007: INL_LOGGING_PVT.Log_BeginProc(
6008: p_module_name => g_module_name,
6009: p_procedure_name => l_func_name
6010: ) ;
6011: -- Initialize API return status to success
6010: ) ;
6011: -- Initialize API return status to success
6012: x_return_status := FND_API.G_RET_STS_SUCCESS;
6013: l_debug_info := 'Check: When match type code is CORRECTION, parent_match_id cannot be null';
6014: INL_LOGGING_PVT.Log_Statement(
6015: p_module_name => g_module_name,
6016: p_procedure_name => l_func_name,
6017: p_debug_info => l_debug_info
6018: );
6090: END IF;
6091: END IF;
6092: IF p_transaction_type <> 'CREATE' THEN
6093: l_debug_info := 'Check: When transaction type is not CREATE, match_id cannot be null';
6094: INL_LOGGING_PVT.Log_Statement(
6095: p_module_name => g_module_name,
6096: p_procedure_name => l_func_name,
6097: p_debug_info => l_debug_info
6098: );
6167: END IF;
6168: END IF;
6169: END IF;
6170: -- Standard End of Procedure/Function Logging
6171: INL_LOGGING_PVT.Log_EndProc(
6172: p_module_name => g_module_name,
6173: p_procedure_name => l_func_name
6174: );
6175: RETURN FND_API.to_boolean(l_result) ;
6175: RETURN FND_API.to_boolean(l_result) ;
6176: EXCEPTION
6177: WHEN FND_API.G_EXC_ERROR THEN
6178: -- Standard Expected Error Logging
6179: INL_LOGGING_PVT.Log_ExpecError (
6180: p_module_name => g_module_name,
6181: p_procedure_name => l_func_name
6182: );
6183: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6182: );
6183: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6185: -- Standard Unexpected Error Logging
6186: INL_LOGGING_PVT.Log_UnexpecError (
6187: p_module_name => g_module_name,
6188: p_procedure_name => l_func_name
6189: );
6190: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6189: );
6190: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6191: WHEN OTHERS THEN
6192: -- Standard Unexpected Error Logging
6193: INL_LOGGING_PVT.Log_UnexpecError (
6194: p_module_name => g_module_name,
6195: p_procedure_name => l_func_name
6196: );
6197: IF FND_MSG_PUB.Check_Msg_Level(
6248: l_INT_importedOk VARCHAR2(1) ;
6249: l_matchTpCdOk VARCHAR2(1) ;
6250: BEGIN
6251: -- Standard Beginning of Procedure/Function Logging
6252: INL_LOGGING_PVT.Log_BeginProc(
6253: p_module_name => g_module_name,
6254: p_procedure_name => l_func_name
6255: ) ;
6256: -- Initialize API return status to success
6255: ) ;
6256: -- Initialize API return status to success
6257: x_return_status := FND_API.G_RET_STS_SUCCESS;
6258: l_debug_info := 'Check to_parent_table value and all related information.';
6259: INL_LOGGING_PVT.Log_Statement(
6260: p_module_name => g_module_name,
6261: p_procedure_name => l_func_name,
6262: p_debug_info => l_debug_info
6263: );
6265: l_idOk := 'N';
6266: l_SHidOk := 'N';
6267: l_matchTpCdOk := 'N';
6268: l_INT_importedOk := 'N';
6269: INL_LOGGING_PVT.Log_Variable(
6270: p_module_name => g_module_name,
6271: p_procedure_name => l_func_name,
6272: p_var_name => 'p_to_parent_table_name',
6273: p_var_value => p_to_parent_table_name
6272: p_var_name => 'p_to_parent_table_name',
6273: p_var_value => p_to_parent_table_name
6274: ) ;
6275:
6276: INL_LOGGING_PVT.Log_Variable(
6277: p_module_name => g_module_name,
6278: p_procedure_name => l_func_name,
6279: p_var_name => 'p_transaction_type',
6280: p_var_value => p_transaction_type
6279: p_var_name => 'p_transaction_type',
6280: p_var_value => p_transaction_type
6281: ) ;
6282:
6283: INL_LOGGING_PVT.Log_Variable(
6284: p_module_name => g_module_name,
6285: p_procedure_name => l_func_name,
6286: p_var_name => 'p_match_type_code',
6287: p_var_value => p_match_type_code
6520: END IF;
6521: END IF;
6522: END IF;
6523: -- Standard End of Procedure/Function Logging
6524: INL_LOGGING_PVT.Log_EndProc(
6525: p_module_name => g_module_name,
6526: p_procedure_name => l_func_name
6527: );
6528: RETURN FND_API.to_boolean(l_result) ;
6528: RETURN FND_API.to_boolean(l_result) ;
6529: EXCEPTION
6530: WHEN FND_API.G_EXC_ERROR THEN
6531: -- Standard Expected Error Logging
6532: INL_LOGGING_PVT.Log_ExpecError (
6533: p_module_name => g_module_name,
6534: p_procedure_name => l_func_name
6535: );
6536: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6535: );
6536: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6538: -- Standard Unexpected Error Logging
6539: INL_LOGGING_PVT.Log_UnexpecError (
6540: p_module_name => g_module_name,
6541: p_procedure_name => l_func_name
6542: );
6543: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6542: );
6543: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6544: WHEN OTHERS THEN
6545: -- Standard Unexpected Error Logging
6546: INL_LOGGING_PVT.Log_UnexpecError (
6547: p_module_name => g_module_name,
6548: p_procedure_name => l_func_name
6549: );
6550: IF FND_MSG_PUB.Check_Msg_Level(
6592: l_replace_estim_qty_flag VARCHAR2(1) ;
6593: l_other_REQF_Y_match_id NUMBER;
6594: BEGIN
6595: -- Standard Beginning of Procedure/Function Logging
6596: INL_LOGGING_PVT.Log_BeginProc(
6597: p_module_name => g_module_name,
6598: p_procedure_name => l_func_name
6599: ) ;
6600: -- Initialize API return status to success
6598: p_procedure_name => l_func_name
6599: ) ;
6600: -- Initialize API return status to success
6601: x_return_status := FND_API.G_RET_STS_SUCCESS;
6602: INL_LOGGING_PVT.Log_Variable(
6603: p_module_name => g_module_name,
6604: p_procedure_name => l_func_name,
6605: p_var_name => 'p_transaction_type',
6606: p_var_value => p_transaction_type
6657: l_replace_estim_qty_flag
6658: FROM inl_matches m
6659: WHERE m.match_id = p_match_id;
6660:
6661: INL_LOGGING_PVT.Log_Variable(
6662: p_module_name => g_module_name,
6663: p_procedure_name => l_func_name,
6664: p_var_name => 'l_adj_already_generated_flag',
6665: p_var_value => l_adj_already_generated_flag
6666: ) ;
6667:
6668: IF l_adj_already_generated_flag = 'Y' THEN
6669: l_debug_info := 'Matches that has adjustments already generated, cannot be changed.';
6670: INL_LOGGING_PVT.Log_Statement(
6671: p_module_name => g_module_name,
6672: p_procedure_name => l_func_name,
6673: p_debug_info => l_debug_info
6674: );
6690: END IF;
6691: END IF;
6692: IF p_replace_estim_qty_flag <> l_replace_estim_qty_flag THEN
6693: l_debug_info := 'Matches that has adjustments already generated, cannot be changed.';
6694: INL_LOGGING_PVT.Log_Statement(
6695: p_module_name => g_module_name,
6696: p_procedure_name => l_func_name,
6697: p_debug_info => l_debug_info
6698: );
6712: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6714: END IF;
6715: END IF;
6716: INL_LOGGING_PVT.Log_Variable(
6717: p_module_name => g_module_name,
6718: p_procedure_name => l_func_name,
6719: p_var_name => 'l_replace_estim_qty_flag',
6720: p_var_value => l_replace_estim_qty_flag
6744: EXCEPTION
6745: WHEN NO_DATA_FOUND THEN
6746: l_other_REQF_Y_match_id := 0;
6747: END;
6748: INL_LOGGING_PVT.Log_Variable(
6749: p_module_name => g_module_name,
6750: p_procedure_name => l_func_name,
6751: p_var_name => 'p_match_id',
6752: p_var_value => p_match_id
6751: p_var_name => 'p_match_id',
6752: p_var_value => p_match_id
6753: ) ;
6754:
6755: INL_LOGGING_PVT.Log_Variable(
6756: p_module_name => g_module_name,
6757: p_procedure_name => l_func_name,
6758: p_var_name => 'l_other_REQF_Y_match_id',
6759: p_var_value => l_other_REQF_Y_match_id
6801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6802: END IF;
6803: END IF;
6804: -- Standard End of Procedure/Function Logging
6805: INL_LOGGING_PVT.Log_EndProc(
6806: p_module_name => g_module_name,
6807: p_procedure_name => l_func_name
6808: );
6809: RETURN FND_API.to_boolean(l_result) ;
6809: RETURN FND_API.to_boolean(l_result) ;
6810: EXCEPTION
6811: WHEN FND_API.G_EXC_ERROR THEN
6812: -- Standard Expected Error Logging
6813: INL_LOGGING_PVT.Log_ExpecError (
6814: p_module_name => g_module_name,
6815: p_procedure_name => l_func_name
6816: );
6817: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6816: );
6817: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6819: -- Standard Unexpected Error Logging
6820: INL_LOGGING_PVT.Log_UnexpecError (
6821: p_module_name => g_module_name,
6822: p_procedure_name => l_func_name
6823: );
6824: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6823: );
6824: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
6825: WHEN OTHERS THEN
6826: -- Standard Unexpected Error Logging
6827: INL_LOGGING_PVT.Log_UnexpecError (
6828: p_module_name => g_module_name,
6829: p_procedure_name => l_func_name
6830: );
6831: IF FND_MSG_PUB.Check_Msg_Level(
6870: l_field VARCHAR2(30) ;
6871: l_field_id NUMBER;
6872: BEGIN
6873: -- Standard Beginning of Procedure/Function Logging
6874: INL_LOGGING_PVT.Log_BeginProc(
6875: p_module_name => g_module_name,
6876: p_procedure_name => l_func_name
6877: ) ;
6878: -- Initialize API return status to success
6877: ) ;
6878: -- Initialize API return status to success
6879: x_return_status := FND_API.G_RET_STS_SUCCESS;
6880: l_debug_info := 'Check if the Party information should be included based on a given Match Type Code ';
6881: INL_LOGGING_PVT.Log_Statement(
6882: p_module_name => g_module_name,
6883: p_procedure_name => l_func_name,
6884: p_debug_info => l_debug_info
6885: );
6882: p_module_name => g_module_name,
6883: p_procedure_name => l_func_name,
6884: p_debug_info => l_debug_info
6885: );
6886: INL_LOGGING_PVT.Log_Variable(
6887: p_module_name => g_module_name,
6888: p_procedure_name => l_func_name,
6889: p_var_name => 'p_parent_match_type_code',
6890: p_var_value => p_parent_match_type_code
6889: p_var_name => 'p_parent_match_type_code',
6890: p_var_value => p_parent_match_type_code
6891: ) ;
6892:
6893: INL_LOGGING_PVT.Log_Variable(
6894: p_module_name => g_module_name,
6895: p_procedure_name => l_func_name,
6896: p_var_name => 'p_match_type_code',
6897: p_var_value => p_match_type_code
6898: ) ;
6899:
6900: IF NVL(p_parent_match_type_code, p_match_type_code) = 'CHARGE' THEN
6901: l_field := 'x';
6902: INL_LOGGING_PVT.Log_Variable(
6903: p_module_name => g_module_name,
6904: p_procedure_name => l_func_name,
6905: p_var_name => 'p_party_id',
6906: p_var_value => p_party_id
6909: l_debug_info := 'party_id: ';
6910: IF p_party_id IS NOT NULL THEN
6911: BEGIN
6912: l_debug_info := 'Chech Party_Id in HZ_PARTIES table';
6913: INL_LOGGING_PVT.Log_Statement(
6914: p_module_name => g_module_name,
6915: p_procedure_name => l_func_name,
6916: p_debug_info => l_debug_info
6917: );
6930: ELSE
6931: l_field := 'PARTY_ID';
6932: l_field_id := NULL;
6933: END IF;
6934: INL_LOGGING_PVT.Log_Statement(
6935: p_module_name => g_module_name,
6936: p_procedure_name => l_func_name,
6937: p_debug_info => l_debug_info
6938: );
6935: p_module_name => g_module_name,
6936: p_procedure_name => l_func_name,
6937: p_debug_info => l_debug_info
6938: );
6939: INL_LOGGING_PVT.Log_Variable(
6940: p_module_name => g_module_name,
6941: p_procedure_name => l_func_name,
6942: p_var_name => 'p_party_site_id',
6943: p_var_value => p_party_site_id
6962: l_field := 'PARTY_SITE_ID';
6963: l_field_id := NULL;
6964: END IF;
6965: END IF;
6966: INL_LOGGING_PVT.Log_Statement(
6967: p_module_name => g_module_name,
6968: p_procedure_name => l_func_name,
6969: p_debug_info => l_debug_info
6970: );
6969: p_debug_info => l_debug_info
6970: );
6971: IF l_field <> 'x' THEN
6972: l_debug_info := 'ERROR l_field: '||l_field;
6973: INL_LOGGING_PVT.Log_Statement(
6974: p_module_name => g_module_name,
6975: p_procedure_name => l_func_name,
6976: p_debug_info => l_debug_info
6977: );
7021: END IF;
7022: END IF;
7023: END IF;
7024: -- Standard End of Procedure/Function Logging
7025: INL_LOGGING_PVT.Log_EndProc(
7026: p_module_name => g_module_name,
7027: p_procedure_name => l_func_name
7028: );
7029: RETURN FND_API.to_boolean(l_result) ;
7029: RETURN FND_API.to_boolean(l_result) ;
7030: EXCEPTION
7031: WHEN FND_API.G_EXC_ERROR THEN
7032: -- Standard Expected Error Logging
7033: INL_LOGGING_PVT.Log_ExpecError (
7034: p_module_name => g_module_name,
7035: p_procedure_name => l_func_name
7036: );
7037: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7036: );
7037: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7039: -- Standard Unexpected Error Logging
7040: INL_LOGGING_PVT.Log_UnexpecError (
7041: p_module_name => g_module_name,
7042: p_procedure_name => l_func_name
7043: );
7044: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7043: );
7044: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7045: WHEN OTHERS THEN
7046: -- Standard Unexpected Error Logging
7047: INL_LOGGING_PVT.Log_UnexpecError (
7048: p_module_name => g_module_name,
7049: p_procedure_name => l_func_name
7050: );
7051: IF FND_MSG_PUB.Check_Msg_Level(
7085: l_parent_to_parent_table_name VARCHAR2(100) ;
7086: l_parent_to_parent_table_ID NUMBER;
7087: BEGIN
7088: -- Standard Beginning of Procedure/Function Logging
7089: INL_LOGGING_PVT.Log_BeginProc(
7090: p_module_name => g_module_name,
7091: p_procedure_name => l_func_name
7092: ) ;
7093: -- Initialize API return status to success
7092: ) ;
7093: -- Initialize API return status to success
7094: x_return_status := FND_API.G_RET_STS_SUCCESS;
7095: l_debug_info := 'Validate Transaction Type. Call Validate_MatchTrxType';
7096: INL_LOGGING_PVT.Log_Statement(
7097: p_module_name => g_module_name,
7098: p_procedure_name => l_func_name,
7099: p_debug_info => l_debug_info
7100: );
7102: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7104: END IF;
7105: -- Standard End of Procedure/Function Logging
7106: INL_LOGGING_PVT.Log_EndProc(
7107: p_module_name => g_module_name,
7108: p_procedure_name => l_func_name
7109: );
7110: RETURN FND_API.to_boolean(x_result) ;
7110: RETURN FND_API.to_boolean(x_result) ;
7111: EXCEPTION
7112: WHEN FND_API.G_EXC_ERROR THEN
7113: -- Standard Expected Error Logging
7114: INL_LOGGING_PVT.Log_ExpecError (
7115: p_module_name => g_module_name,
7116: p_procedure_name => l_func_name
7117: );
7118: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7117: );
7118: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7120: -- Standard Unexpected Error Logging
7121: INL_LOGGING_PVT.Log_UnexpecError (
7122: p_module_name => g_module_name,
7123: p_procedure_name => l_func_name
7124: );
7125: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7124: );
7125: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7126: WHEN OTHERS THEN
7127: -- Standard Unexpected Error Logging
7128: INL_LOGGING_PVT.Log_UnexpecError (
7129: p_module_name => g_module_name,
7130: p_procedure_name => l_func_name
7131: );
7132: IF FND_MSG_PUB.Check_Msg_Level(
7166: l_parent_to_parent_table_name VARCHAR2(100) ;
7167: l_parent_to_parent_table_ID NUMBER;
7168: BEGIN
7169: -- Standard Beginning of Procedure/Function Logging
7170: INL_LOGGING_PVT.Log_BeginProc(
7171: p_module_name => g_module_name,
7172: p_procedure_name => l_func_name
7173: ) ;
7174: -- Initialize API return status to success
7173: ) ;
7174: -- Initialize API return status to success
7175: x_return_status := FND_API.G_RET_STS_SUCCESS;
7176: l_debug_info := 'Validate Transaction Type. Call Validate_MatchTrxType';
7177: INL_LOGGING_PVT.Log_Statement(
7178: p_module_name => g_module_name,
7179: p_procedure_name => l_func_name,
7180: p_debug_info => l_debug_info
7181: );
7196: l_debug_info := l_debug_info||'FALSE';
7197: ELSE
7198: l_debug_info := l_debug_info||'OK';
7199: END IF;
7200: INL_LOGGING_PVT.Log_Statement(
7201: p_module_name => g_module_name,
7202: p_procedure_name => l_func_name,
7203: p_debug_info => l_debug_info
7204: );
7203: p_debug_info => l_debug_info
7204: );
7205:
7206: l_debug_info := 'Get Match Type Code from Parent Match when processing corrections.';
7207: INL_LOGGING_PVT.Log_Statement(
7208: p_module_name => g_module_name,
7209: p_procedure_name => l_func_name,
7210: p_debug_info => l_debug_info
7211: );
7209: p_procedure_name => l_func_name,
7210: p_debug_info => l_debug_info
7211: );
7212:
7213: INL_LOGGING_PVT.Log_Variable(
7214: p_module_name => g_module_name,
7215: p_procedure_name => l_func_name,
7216: p_var_name => 'p_match_int_rec.parent_match_id',
7217: p_var_value => p_match_int_rec.parent_match_id
7233: l_parent_to_parent_table_name := NULL;
7234: l_parent_to_parent_table_ID := NULL;
7235: END IF;
7236: l_debug_info := 'Validate TO_PARENT_TABLE information. Call Validate_MatchToParTab.';
7237: INL_LOGGING_PVT.Log_Statement(
7238: p_module_name => g_module_name,
7239: p_procedure_name => l_func_name,
7240: p_debug_info => l_debug_info
7241: );
7257: l_debug_info := l_debug_info||'FALSE';
7258: ELSE
7259: l_debug_info := l_debug_info||'OK';
7260: END IF;
7261: INL_LOGGING_PVT.Log_Statement(
7262: p_module_name => g_module_name,
7263: p_procedure_name => l_func_name,
7264: p_debug_info => l_debug_info
7265: );
7263: p_procedure_name => l_func_name,
7264: p_debug_info => l_debug_info
7265: );
7266: l_debug_info := 'Validate Match IDs. Call Validate_MatchMatIDS';
7267: INL_LOGGING_PVT.Log_Statement(
7268: p_module_name => g_module_name,
7269: p_procedure_name => l_func_name,
7270: p_debug_info => l_debug_info
7271: );
7288: l_debug_info := l_debug_info||'FALSE';
7289: ELSE
7290: l_debug_info := l_debug_info||'OK';
7291: END IF;
7292: INL_LOGGING_PVT.Log_Statement(
7293: p_module_name => g_module_name,
7294: p_procedure_name => l_func_name,
7295: p_debug_info => l_debug_info
7296: );
7296: );
7297: IF p_match_int_rec.matched_qty IS NOT NULL
7298: THEN
7299: l_debug_info := 'Validate Matched UOM Code. Call Validate_MatchUOM';
7300: INL_LOGGING_PVT.Log_Statement(
7301: p_module_name => g_module_name,
7302: p_procedure_name => l_func_name,
7303: p_debug_info => l_debug_info
7304: );
7319: l_debug_info := l_debug_info||'FALSE';
7320: ELSE
7321: l_debug_info := l_debug_info||'OK';
7322: END IF;
7323: INL_LOGGING_PVT.Log_Statement(
7324: p_module_name => g_module_name,
7325: p_procedure_name => l_func_name,
7326: p_debug_info => l_debug_info
7327: );
7326: p_debug_info => l_debug_info
7327: );
7328: END IF;
7329: l_debug_info := 'Validate Matched Amount. Call Validate_MatchAmt';
7330: INL_LOGGING_PVT.Log_Statement(
7331: p_module_name => g_module_name,
7332: p_procedure_name => l_func_name,
7333: p_debug_info => l_debug_info
7334: );
7353: l_debug_info := l_debug_info||'FALSE';
7354: ELSE
7355: l_debug_info := l_debug_info||'OK';
7356: END IF;
7357: INL_LOGGING_PVT.Log_Statement(
7358: p_module_name => g_module_name,
7359: p_procedure_name => l_func_name,
7360: p_debug_info => l_debug_info
7361: );
7359: p_procedure_name => l_func_name,
7360: p_debug_info => l_debug_info
7361: );
7362: l_debug_info := 'Validate Matched Quantity. Call Validate_MatchQty';
7363: INL_LOGGING_PVT.Log_Statement(
7364: p_module_name => g_module_name,
7365: p_procedure_name => l_func_name,
7366: p_debug_info => l_debug_info
7367: );
7393: l_debug_info := l_debug_info||'FALSE';
7394: ELSE
7395: l_debug_info := l_debug_info||'OK';
7396: END IF;
7397: INL_LOGGING_PVT.Log_Statement(
7398: p_module_name => g_module_name,
7399: p_procedure_name => l_func_name,
7400: p_debug_info => l_debug_info
7401: );
7399: p_procedure_name => l_func_name,
7400: p_debug_info => l_debug_info
7401: );
7402: l_debug_info := 'Validate Match Tax. Call Validate_MatchTax';
7403: INL_LOGGING_PVT.Log_Statement(
7404: p_module_name => g_module_name,
7405: p_procedure_name => l_func_name,
7406: p_debug_info => l_debug_info
7407: );
7422: l_debug_info := l_debug_info||'FALSE';
7423: ELSE
7424: l_debug_info := l_debug_info||'OK';
7425: END IF;
7426: INL_LOGGING_PVT.Log_Statement(
7427: p_module_name => g_module_name,
7428: p_procedure_name => l_func_name,
7429: p_debug_info => l_debug_info
7430: );
7428: p_procedure_name => l_func_name,
7429: p_debug_info => l_debug_info
7430: );
7431: l_debug_info := 'Validate Matching Flags. Call Validate_MatchFlags';
7432: INL_LOGGING_PVT.Log_Statement(
7433: p_module_name => g_module_name,
7434: p_procedure_name => l_func_name,
7435: p_debug_info => l_debug_info
7436: );
7450: l_debug_info := l_debug_info||'FALSE';
7451: ELSE
7452: l_debug_info := l_debug_info||'OK';
7453: END IF;
7454: INL_LOGGING_PVT.Log_Statement(
7455: p_module_name => g_module_name,
7456: p_procedure_name => l_func_name,
7457: p_debug_info => l_debug_info
7458: );
7456: p_procedure_name => l_func_name,
7457: p_debug_info => l_debug_info
7458: );
7459: l_debug_info := 'Validate Charge Line Type Id. Call Validate_MatchChLnTpID';
7460: INL_LOGGING_PVT.Log_Statement(
7461: p_module_name => g_module_name,
7462: p_procedure_name => l_func_name,
7463: p_debug_info => l_debug_info
7464: );
7479: l_debug_info := l_debug_info||'FALSE';
7480: ELSE
7481: l_debug_info := l_debug_info||'OK';
7482: END IF;
7483: INL_LOGGING_PVT.Log_Statement(
7484: p_module_name => g_module_name,
7485: p_procedure_name => l_func_name,
7486: p_debug_info => l_debug_info
7487: );
7485: p_procedure_name => l_func_name,
7486: p_debug_info => l_debug_info
7487: );
7488: l_debug_info := 'Validate Party and Party Site. Call Validate_MatchParty';
7489: INL_LOGGING_PVT.Log_Statement(
7490: p_module_name => g_module_name,
7491: p_procedure_name => l_func_name,
7492: p_debug_info => l_debug_info
7493: );
7507: l_debug_info := l_debug_info||'FALSE';
7508: ELSE
7509: l_debug_info := l_debug_info||'OK';
7510: END IF;
7511: INL_LOGGING_PVT.Log_Statement(
7512: p_module_name => g_module_name,
7513: p_procedure_name => l_func_name,
7514: p_debug_info => l_debug_info
7515: );
7512: p_module_name => g_module_name,
7513: p_procedure_name => l_func_name,
7514: p_debug_info => l_debug_info
7515: );
7516: INL_LOGGING_PVT.Log_Variable(
7517: p_module_name => g_module_name,
7518: p_procedure_name => l_func_name,
7519: p_var_name => 'p_match_int_rec.transaction_type',
7520: p_var_value => p_match_int_rec.transaction_type
7519: p_var_name => 'p_match_int_rec.transaction_type',
7520: p_var_value => p_match_int_rec.transaction_type
7521: ) ;
7522:
7523: INL_LOGGING_PVT.Log_Variable(
7524: p_module_name => g_module_name,
7525: p_procedure_name => l_func_name,
7526: p_var_name => 'p_match_int_rec.match_int_id',
7527: p_var_value => p_match_int_rec.match_int_id
7526: p_var_name => 'p_match_int_rec.match_int_id',
7527: p_var_value => p_match_int_rec.match_int_id
7528: ) ;
7529:
7530: INL_LOGGING_PVT.Log_Variable(
7531: p_module_name => g_module_name,
7532: p_procedure_name => l_func_name,
7533: p_var_name => 'p_match_int_rec.match_id',
7534: p_var_value => p_match_int_rec.match_id
7534: p_var_value => p_match_int_rec.match_id
7535: ) ;
7536:
7537: l_debug_info := 'Validate Transaction Type. Call Validate_MatchTrxType';
7538: INL_LOGGING_PVT.Log_Statement(
7539: p_module_name => g_module_name,
7540: p_procedure_name => l_func_name,
7541: p_debug_info => l_debug_info
7542: );
7562: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7564: END IF;
7565: -- Standard End of Procedure/Function Logging
7566: INL_LOGGING_PVT.Log_EndProc(
7567: p_module_name => g_module_name,
7568: p_procedure_name => l_func_name
7569: );
7570: RETURN FND_API.to_boolean(x_result) ;
7570: RETURN FND_API.to_boolean(x_result) ;
7571: EXCEPTION
7572: WHEN FND_API.G_EXC_ERROR THEN
7573: -- Standard Expected Error Logging
7574: INL_LOGGING_PVT.Log_ExpecError (
7575: p_module_name => g_module_name,
7576: p_procedure_name => l_func_name
7577: );
7578: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7577: );
7578: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7580: -- Standard Unexpected Error Logging
7581: INL_LOGGING_PVT.Log_UnexpecError (
7582: p_module_name => g_module_name,
7583: p_procedure_name => l_func_name
7584: );
7585: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7584: );
7585: RETURN FND_API.to_boolean(FND_API.G_FALSE) ;
7586: WHEN OTHERS THEN
7587: -- Standard Unexpected Error Logging
7588: INL_LOGGING_PVT.Log_UnexpecError (
7589: p_module_name => g_module_name,
7590: p_procedure_name => l_func_name
7591: );
7592: IF FND_MSG_PUB.Check_Msg_Level(
7686: l_amt_sum NUMBER;
7687: l_processing_status_code VARCHAR2(30) ;
7688: BEGIN
7689: -- Standard Beginning of Procedure/Function Logging
7690: INL_LOGGING_PVT.Log_BeginProc(
7691: p_module_name => g_module_name,
7692: p_procedure_name => l_proc_name
7693: ) ;
7694: -- Initialize API return status to success
7700:
7701: IF NVL(match_int_list.LAST, 0) > 0 THEN
7702: FOR i IN match_int_list.FIRST .. match_int_list.LAST
7703: LOOP
7704: INL_LOGGING_PVT.Log_Variable(
7705: p_module_name => g_module_name,
7706: p_procedure_name => l_proc_name,
7707: p_var_name => 'match_int_list(i).match_int_id',
7708: p_var_value => match_int_list(i).match_int_id
7707: p_var_name => 'match_int_list(i).match_int_id',
7708: p_var_value => match_int_list(i).match_int_id
7709: ) ;
7710:
7711: INL_LOGGING_PVT.Log_Variable(
7712: p_module_name => g_module_name,
7713: p_procedure_name => l_proc_name,
7714: p_var_name => 'match_int_list(i).transaction_type',
7715: p_var_value => match_int_list(i).transaction_type
7714: p_var_name => 'match_int_list(i).transaction_type',
7715: p_var_value => match_int_list(i).transaction_type
7716: ) ;
7717:
7718: INL_LOGGING_PVT.Log_Variable(
7719: p_module_name => g_module_name,
7720: p_procedure_name => l_proc_name,
7721: p_var_name => 'match_int_list(i).to_parent_table_name',
7722: p_var_value => match_int_list(i).to_parent_table_name
7721: p_var_name => 'match_int_list(i).to_parent_table_name',
7722: p_var_value => match_int_list(i).to_parent_table_name
7723: ) ;
7724:
7725: INL_LOGGING_PVT.Log_Variable(
7726: p_module_name => g_module_name,
7727: p_procedure_name => l_proc_name,
7728: p_var_name => 'match_int_list(i).to_parent_table_id',
7729: p_var_value => match_int_list(i).to_parent_table_id
7729: p_var_value => match_int_list(i).to_parent_table_id
7730: ) ;
7731:
7732: l_debug_info := 'Delete errors from previous analysis performed on the current line. Call Reset_InterfError';
7733: INL_LOGGING_PVT.Log_Statement(
7734: p_module_name => g_module_name,
7735: p_procedure_name => l_proc_name,
7736: p_debug_info => l_debug_info
7737: );
7746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7748: END IF;
7749: l_debug_info := 'Call Derive_MatchCols';
7750: INL_LOGGING_PVT.Log_Statement(
7751: p_module_name => g_module_name,
7752: p_procedure_name => l_proc_name,
7753: p_debug_info => l_debug_info
7754: );
7768: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7770: END IF;
7771: l_debug_info := 'Validate Match before import it from interface. Call Validate_MatchInt';
7772: INL_LOGGING_PVT.Log_Statement(
7773: p_module_name => g_module_name,
7774: p_procedure_name => l_proc_name,
7775: p_debug_info => l_debug_info
7776: );
7786: -- Validation has been executed successfully and
7787: -- processing status code has been changed to RUNNING
7788: IF(l_import_validation = TRUE) THEN
7789: l_debug_info := 'Set Interface Status to RUNNING';
7790: INL_LOGGING_PVT.Log_Statement(
7791: p_module_name => g_module_name,
7792: p_procedure_name => l_proc_name,
7793: p_debug_info => l_debug_info
7794: );
7832:
7833: IF NVL(match_amounts_int_list.LAST, 0) > 0 THEN
7834: FOR i IN match_amounts_int_list.FIRST .. match_amounts_int_list.LAST
7835: LOOP
7836: INL_LOGGING_PVT.Log_Variable(
7837: p_module_name => g_module_name,
7838: p_procedure_name => l_proc_name,
7839: p_var_name => 'match_amounts_int_list(i).match_amount_int_id',
7840: p_var_value => match_amounts_int_list(i).match_amount_int_id
7838: p_procedure_name => l_proc_name,
7839: p_var_name => 'match_amounts_int_list(i).match_amount_int_id',
7840: p_var_value => match_amounts_int_list(i).match_amount_int_id
7841: ) ;
7842: INL_LOGGING_PVT.Log_Variable(
7843: p_module_name => g_module_name,
7844: p_procedure_name => l_proc_name,
7845: p_var_name => 'match_amounts_int_list(i).transaction_type',
7846: p_var_value => match_amounts_int_list(i).transaction_type
7845: p_var_name => 'match_amounts_int_list(i).transaction_type',
7846: p_var_value => match_amounts_int_list(i).transaction_type
7847: ) ;
7848: l_debug_info := 'Delete errors from previous analysis performed on the current line. Call Reset_InterfError';
7849: INL_LOGGING_PVT.Log_Statement(
7850: p_module_name => g_module_name,
7851: p_procedure_name => l_proc_name,
7852: p_debug_info => l_debug_info
7853: );
7890: ELSE
7891: l_processing_status_code := 'RUNNING';
7892: END IF;
7893: l_debug_info := 'Validate Match before import it from interface. Call Validate_MatchInt';
7894: INL_LOGGING_PVT.Log_Statement(
7895: p_module_name => g_module_name,
7896: p_procedure_name => l_proc_name,
7897: p_debug_info => l_debug_info
7898: );
7906: -- Validation has been executed successfully and
7907: -- processing status code has been changed to RUNNING
7908: IF(l_import_validation = TRUE) THEN
7909: l_debug_info := 'Set Interface Status to RUNNING';
7910: INL_LOGGING_PVT.Log_Statement(
7911: p_module_name => g_module_name,
7912: p_procedure_name => l_proc_name,
7913: p_debug_info => l_debug_info
7914: );
7928: END LOOP;
7929: END IF;
7930:
7931: -- Standard End of Procedure/Function Logging
7932: INL_LOGGING_PVT.Log_EndProc(
7933: p_module_name => g_module_name,
7934: p_procedure_name => l_proc_name
7935: );
7936: EXCEPTION
7935: );
7936: EXCEPTION
7937: WHEN FND_API.G_EXC_ERROR THEN
7938: -- Standard Expected Error Logging
7939: INL_LOGGING_PVT.Log_ExpecError (
7940: p_module_name => g_module_name,
7941: p_procedure_name => l_proc_name
7942: );
7943: x_return_status := FND_API.G_RET_STS_ERROR;
7942: );
7943: x_return_status := FND_API.G_RET_STS_ERROR;
7944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7945: -- Standard Unexpected Error Logging
7946: INL_LOGGING_PVT.Log_UnexpecError (
7947: p_module_name => g_module_name,
7948: p_procedure_name => l_proc_name
7949: );
7950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7949: );
7950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7951: WHEN OTHERS THEN
7952: -- Standard Unexpected Error Logging
7953: INL_LOGGING_PVT.Log_UnexpecError (
7954: p_module_name => g_module_name,
7955: p_procedure_name => l_proc_name
7956: );
7957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7985: l_return_status VARCHAR2(1) ;
7986: l_debug_info VARCHAR2(200) ;
7987: BEGIN
7988: -- Standard Beginning of Procedure/Function Logging
7989: INL_LOGGING_PVT.Log_BeginProc(
7990: p_module_name => g_module_name,
7991: p_procedure_name => l_proc_name
7992: ) ;
7993: -- Initialize API return status to success
7992: ) ;
7993: -- Initialize API return status to success
7994: x_return_status := FND_API.G_RET_STS_SUCCESS;
7995: l_debug_info := 'Import Matches. Call Import_Matches';
7996: INL_LOGGING_PVT.Log_Statement(
7997: p_module_name => g_module_name,
7998: p_procedure_name => l_proc_name,
7999: p_debug_info => l_debug_info
8000: );
8006: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8008: END IF;
8009: -- Standard End of Procedure/Function Logging
8010: INL_LOGGING_PVT.Log_EndProc(
8011: p_module_name => g_module_name,
8012: p_procedure_name => l_proc_name
8013: );
8014: EXCEPTION
8013: );
8014: EXCEPTION
8015: WHEN FND_API.G_EXC_ERROR THEN
8016: -- Standard Expected Error Logging
8017: INL_LOGGING_PVT.Log_ExpecError (
8018: p_module_name => g_module_name,
8019: p_procedure_name => l_proc_name
8020: );
8021: x_return_status := FND_API.G_RET_STS_ERROR;
8020: );
8021: x_return_status := FND_API.G_RET_STS_ERROR;
8022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8023: -- Standard Unexpected Error Logging
8024: INL_LOGGING_PVT.Log_UnexpecError (
8025: p_module_name => g_module_name,
8026: p_procedure_name => l_proc_name
8027: );
8028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8027: );
8028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8029: WHEN OTHERS THEN
8030: -- Standard Unexpected Error Logging
8031: INL_LOGGING_PVT.Log_UnexpecError (
8032: p_module_name => g_module_name,
8033: p_procedure_name => l_proc_name
8034: );
8035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8127: l_org_id NUMBER;
8128: l_validation_flag VARCHAR2(1) ;
8129: BEGIN
8130: -- Standard Beginning of Procedure/Function Logging
8131: INL_LOGGING_PVT.Log_BeginProc(
8132: p_module_name => g_module_name,
8133: p_procedure_name => l_proc_name
8134: ) ;
8135: -- Initialize API return status to success
8144: l_ship_header_int_id := ship_hdr_int_list(i) .ship_header_int_id;
8145: l_org_id := ship_hdr_int_list(i) .org_id;
8146: l_organization_id := ship_hdr_int_list(i) .organization_id;
8147: l_validation_flag := ship_hdr_int_list(i) .validation_flag;
8148: INL_LOGGING_PVT.Log_Variable(
8149: p_module_name => g_module_name,
8150: p_procedure_name => l_proc_name,
8151: p_var_name => 'l_ship_header_int_id',
8152: p_var_value => l_ship_header_int_id
8151: p_var_name => 'l_ship_header_int_id',
8152: p_var_value => l_ship_header_int_id
8153: ) ;
8154:
8155: INL_LOGGING_PVT.Log_Variable(
8156: p_module_name => g_module_name,
8157: p_procedure_name => l_proc_name,
8158: p_var_name => 'l_org_id',
8159: p_var_value => l_org_id
8158: p_var_name => 'l_org_id',
8159: p_var_value => l_org_id
8160: ) ;
8161:
8162: INL_LOGGING_PVT.Log_Variable(
8163: p_module_name => g_module_name,
8164: p_procedure_name => l_proc_name,
8165: p_var_name => 'l_organization_id',
8166: p_var_value => l_organization_id
8165: p_var_name => 'l_organization_id',
8166: p_var_value => l_organization_id
8167: ) ;
8168:
8169: INL_LOGGING_PVT.Log_Variable(
8170: p_module_name => g_module_name,
8171: p_procedure_name => l_proc_name,
8172: p_var_name => 'l_validation_flag',
8173: p_var_value => l_validation_flag
8172: p_var_name => 'l_validation_flag',
8173: p_var_value => l_validation_flag
8174: ) ;
8175:
8176: INL_LOGGING_PVT.Log_Variable(
8177: p_module_name => g_module_name,
8178: p_procedure_name => l_proc_name,
8179: p_var_name => 'ship_hdr_int_list(i).last_task_code',
8180: p_var_value => ship_hdr_int_list(i).last_task_code
8179: p_var_name => 'ship_hdr_int_list(i).last_task_code',
8180: p_var_value => ship_hdr_int_list(i).last_task_code
8181: ) ;
8182:
8183: INL_LOGGING_PVT.Log_Variable(
8184: p_module_name => g_module_name,
8185: p_procedure_name => l_proc_name,
8186: p_var_name => 'ship_hdr_int_list(i).transaction_type',
8187: p_var_value => ship_hdr_int_list(i).transaction_type
8186: p_var_name => 'ship_hdr_int_list(i).transaction_type',
8187: p_var_value => ship_hdr_int_list(i).transaction_type
8188: ) ;
8189:
8190: INL_LOGGING_PVT.Log_Variable(
8191: p_module_name => g_module_name,
8192: p_procedure_name => l_proc_name,
8193: p_var_name => 'ship_hdr_int_list(i).ship_header_id',
8194: p_var_value => ship_hdr_int_list(i).ship_header_id
8194: p_var_value => ship_hdr_int_list(i).ship_header_id
8195: ) ;
8196:
8197: l_debug_info := 'Delete errors from previous analysis. Call Reset_InterfError';
8198: INL_LOGGING_PVT.Log_Statement(
8199: p_module_name => g_module_name,
8200: p_procedure_name => l_proc_name,
8201: p_debug_info => l_debug_info
8202: );
8206: RAISE FND_API.G_EXC_ERROR;
8207: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8209: END IF;
8210: INL_LOGGING_PVT.Log_APICallIn( p_module_name => g_module_name,
8211: p_procedure_name => l_proc_name,
8212: p_call_api_name => 'Derive_ShipHeaderCols',
8213: p_in_param_name1 => 'i',
8214: p_in_param_value1 => i,
8236: RAISE FND_API.G_EXC_ERROR;
8237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8239: END IF;
8240: INL_LOGGING_PVT.Log_APICallIn( p_module_name => g_module_name,
8241: p_procedure_name => l_proc_name,
8242: p_call_api_name => 'Derive_ShipLineCols',
8243: p_in_param_name1 => 'i',
8244: p_in_param_value1 => i,
8270: -- When Validation_Flag = Y, it means that
8271: -- we must execute the first level validation
8272: IF(l_validation_flag = 'Y') THEN
8273: l_debug_info := 'Validate before import from interface. Call Validate_LCMImport';
8274: INL_LOGGING_PVT.Log_Statement(
8275: p_module_name => g_module_name,
8276: p_procedure_name => l_proc_name,
8277: p_debug_info => l_debug_info
8278: );
8299: IF NVL(ship_lin_int_list.LAST, 0) > 0 THEN
8300: FOR j IN ship_lin_int_list.FIRST .. ship_lin_int_list.LAST
8301: LOOP
8302: l_debug_info := 'Validate before import from interface. Call Validate_LCMImport';
8303: INL_LOGGING_PVT.Log_Statement(
8304: p_module_name => g_module_name,
8305: p_procedure_name => l_proc_name,
8306: p_debug_info => l_debug_info
8307: );
8331: )
8332: ) THEN
8333: IF ship_hdr_int_list(i).last_task_code >= '10' THEN -- check if import will be executed
8334: l_debug_info := 'Change Interface Status Code to RUNNING';
8335: INL_LOGGING_PVT.Log_Statement(
8336: p_module_name => g_module_name,
8337: p_procedure_name => l_proc_name,
8338: p_debug_info => l_debug_info
8339: );
8359: WHERE ship_header_int_id = l_ship_header_int_id
8360: AND processing_status_code = 'PENDING';
8361: ELSE
8362: l_debug_info := 'Change Interface Status Code to COMPLETED';
8363: INL_LOGGING_PVT.Log_Statement(
8364: p_module_name => g_module_name,
8365: p_procedure_name => l_proc_name,
8366: p_debug_info => l_debug_info
8367: );
8390: END IF;
8391: END LOOP;
8392: END IF;
8393: -- Standard End of Procedure/Function Logging
8394: INL_LOGGING_PVT.Log_EndProc(
8395: p_module_name => g_module_name,
8396: p_procedure_name => l_proc_name
8397: );
8398: EXCEPTION
8397: );
8398: EXCEPTION
8399: WHEN FND_API.G_EXC_ERROR THEN
8400: -- Standard Expected Error Logging
8401: INL_LOGGING_PVT.Log_ExpecError (
8402: p_module_name => g_module_name,
8403: p_procedure_name => l_proc_name
8404: );
8405: x_return_status := FND_API.G_RET_STS_ERROR;
8404: );
8405: x_return_status := FND_API.G_RET_STS_ERROR;
8406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8407: -- Standard Unexpected Error Logging
8408: INL_LOGGING_PVT.Log_UnexpecError (
8409: p_module_name => g_module_name,
8410: p_procedure_name => l_proc_name
8411: );
8412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8411: );
8412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8413: WHEN OTHERS THEN
8414: -- Standard Unexpected Error Logging
8415: INL_LOGGING_PVT.Log_UnexpecError (
8416: p_module_name => g_module_name,
8417: p_procedure_name => l_proc_name
8418: );
8419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8495: l_ship_header_id NUMBER;
8496: l_mx_last_task_code VARCHAR2(30) ;
8497: BEGIN
8498: -- Standard Beginning of Procedure/Function Logging
8499: INL_LOGGING_PVT.Log_BeginProc(
8500: p_module_name => g_module_name,
8501: p_procedure_name => l_proc_name
8502: ) ;
8503: -- Initialize API return status to success
8521: )
8522: ;
8523: IF l_mx_last_task_code >= '10' THEN
8524: l_debug_info := 'Import Shipment Headers. Call Import_Headers';
8525: INL_LOGGING_PVT.Log_Statement(
8526: p_module_name => g_module_name,
8527: p_procedure_name => l_proc_name,
8528: p_debug_info => l_debug_info
8529: );
8536: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8538: END IF;
8539: l_debug_info := 'Import Shipment Lines. Call Import_Lines';
8540: INL_LOGGING_PVT.Log_Statement(
8541: p_module_name => g_module_name,
8542: p_procedure_name => l_proc_name,
8543: p_debug_info => l_debug_info
8544: );
8556: IF NVL(ship_hdr_list.LAST, 0) > 0 THEN
8557: FOR i IN ship_hdr_list.FIRST .. ship_hdr_list.LAST
8558: LOOP
8559: l_ship_header_id := ship_hdr_list(i) .ship_header_id;
8560: INL_LOGGING_PVT.Log_Variable(
8561: p_module_name => g_module_name,
8562: p_procedure_name => l_proc_name,
8563: p_var_name => 'l_ship_header_id',
8564: p_var_value => l_ship_header_id
8563: p_var_name => 'l_ship_header_id',
8564: p_var_value => l_ship_header_id
8565: ) ;
8566:
8567: INL_LOGGING_PVT.Log_Variable(
8568: p_module_name => g_module_name,
8569: p_procedure_name => l_proc_name,
8570: p_var_name => 'ship_hdr_list(i).last_task_code',
8571: p_var_value => ship_hdr_list(i).last_task_code
8572: ) ;
8573: -- Generate Charges and Integration with QP
8574: IF ship_hdr_list(i) .last_task_code >= '20' THEN
8575: l_debug_info := 'Generate Charges(Integration with QP). Call INL_CHARGE_PVT.Generate_Charges';
8576: INL_LOGGING_PVT.Log_Statement(
8577: p_module_name => g_module_name,
8578: p_procedure_name => l_proc_name,
8579: p_debug_info => l_debug_info
8580: );
8595: END IF;
8596: END IF;
8597: -- Process LCM Shipment Actions
8598: IF ship_hdr_list(i) .last_task_code >= '30' THEN
8599: INL_LOGGING_PVT.Log_Variable(
8600: p_module_name => g_module_name,
8601: p_procedure_name => l_proc_name,
8602: p_var_name => 'ship_hdr_list(i).last_task_code',
8603: p_var_value => ship_hdr_list(i).last_task_code
8603: p_var_value => ship_hdr_list(i).last_task_code
8604: ) ;
8605:
8606: l_debug_info := 'Call INL_SHIPMENT_PVT.ProcessAction';
8607: INL_LOGGING_PVT.Log_Statement(
8608: p_module_name => g_module_name,
8609: p_procedure_name => l_proc_name,
8610: p_debug_info => l_debug_info
8611: );
8627: END LOOP;
8628: END IF;
8629: END IF;
8630: -- Standard End of Procedure/Function Logging
8631: INL_LOGGING_PVT.Log_EndProc(
8632: p_module_name => g_module_name,
8633: p_procedure_name => l_proc_name
8634: );
8635: EXCEPTION
8634: );
8635: EXCEPTION
8636: WHEN FND_API.G_EXC_ERROR THEN
8637: -- Standard Expected Error Logging
8638: INL_LOGGING_PVT.Log_ExpecError (
8639: p_module_name => g_module_name,
8640: p_procedure_name => l_proc_name
8641: );
8642: x_return_status := FND_API.G_RET_STS_ERROR;
8641: );
8642: x_return_status := FND_API.G_RET_STS_ERROR;
8643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8644: -- Standard Unexpected Error Logging
8645: INL_LOGGING_PVT.Log_UnexpecError (
8646: p_module_name => g_module_name,
8647: p_procedure_name => l_proc_name
8648: );
8649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8648: );
8649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8650: WHEN OTHERS THEN
8651: -- Standard Unexpected Error Logging
8652: INL_LOGGING_PVT.Log_UnexpecError (
8653: p_module_name => g_module_name,
8654: p_procedure_name => l_proc_name
8655: );
8656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8693: BEGIN
8694: errbuf := NULL;
8695: retcode := 0;
8696: -- Standard Beginning of Procedure/Function Logging
8697: INL_LOGGING_PVT.Log_BeginProc(
8698: p_module_name => g_module_name,
8699: p_procedure_name => l_proc_name
8700: ) ;
8701: l_debug_info := 'Call Import_LCMShipments';
8698: p_module_name => g_module_name,
8699: p_procedure_name => l_proc_name
8700: ) ;
8701: l_debug_info := 'Call Import_LCMShipments';
8702: INL_LOGGING_PVT.Log_Statement(
8703: p_module_name => g_module_name,
8704: p_procedure_name => l_proc_name,
8705: p_debug_info => l_debug_info
8706: );
8731: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8733: END IF;
8734: -- Standard End of Procedure/Function Logging
8735: INL_LOGGING_PVT.Log_EndProc(
8736: p_module_name => g_module_name,
8737: p_procedure_name => l_proc_name
8738: );
8739: EXCEPTION
8738: );
8739: EXCEPTION
8740: WHEN FND_API.G_EXC_ERROR THEN
8741: -- Standard Expected Error Logging
8742: INL_LOGGING_PVT.Log_ExpecError (
8743: p_module_name => g_module_name,
8744: p_procedure_name => l_proc_name
8745: );
8746: retcode := 1;
8745: );
8746: retcode := 1;
8747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8748: -- Standard Unexpected Error Logging
8749: INL_LOGGING_PVT.Log_UnexpecError(
8750: p_module_name => g_module_name,
8751: p_procedure_name => l_proc_name
8752: );
8753: retcode := 2;
8752: );
8753: retcode := 2;
8754: WHEN OTHERS THEN
8755: -- Standard Unexpected Error Logging
8756: INL_LOGGING_PVT.Log_UnexpecError(
8757: p_module_name => g_module_name,
8758: p_procedure_name => l_proc_name
8759: );
8760: retcode := 2;
8796: l_msg_data VARCHAR2(2000);
8797: l_debug_info VARCHAR2(200);
8798: BEGIN
8799: -- Standard Beginning of Procedure/Function Logging
8800: INL_LOGGING_PVT.Log_BeginProc(
8801: p_module_name => g_module_name,
8802: p_procedure_name => l_api_name
8803: ) ;
8804: -- Standard Start of API savepoint
8818: END IF;
8819: -- Initialize API return status to success
8820: x_return_status := FND_API.G_RET_STS_SUCCESS;
8821: l_debug_info := 'Run Shipment Pre-Processor(First level validation). Call Run_ShipPreProcessor';
8822: INL_LOGGING_PVT.Log_Statement(
8823: p_module_name => g_module_name,
8824: p_procedure_name => l_api_name,
8825: p_debug_info => l_debug_info
8826: );
8835: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8837: END IF;
8838: l_debug_info := 'Run Shipment Post-Processor. Call Run_ShipPostProcessor';
8839: INL_LOGGING_PVT.Log_Statement(
8840: p_module_name => g_module_name,
8841: p_procedure_name => l_api_name,
8842: p_debug_info => l_debug_info
8843: );
8858: END IF;
8859: -- Standard call to get message count and if count is 1, get message info.
8860: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
8861: -- Standard End of Procedure/Function Logging
8862: INL_LOGGING_PVT.Log_EndProc(
8863: p_module_name => g_module_name,
8864: p_procedure_name => l_api_name
8865: );
8866: EXCEPTION
8865: );
8866: EXCEPTION
8867: WHEN FND_API.G_EXC_ERROR THEN
8868: -- Standard Expected Error Logging
8869: INL_LOGGING_PVT.Log_ExpecError (
8870: p_module_name => g_module_name,
8871: p_procedure_name => l_api_name
8872: );
8873: ROLLBACK TO Import_LCMShipments_PVT;
8878: p_data => x_msg_data
8879: );
8880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8881: -- Standard Unexpected Error Logging
8882: INL_LOGGING_PVT.Log_UnexpecError (
8883: p_module_name => g_module_name,
8884: p_procedure_name => l_api_name
8885: );
8886: ROLLBACK TO Import_LCMShipments_PVT;
8891: p_data => x_msg_data
8892: );
8893: WHEN OTHERS THEN
8894: -- Standard Unexpected Error Logging
8895: INL_LOGGING_PVT.Log_UnexpecError (
8896: p_module_name => g_module_name,
8897: p_procedure_name => l_api_name
8898: );
8899: ROLLBACK TO Import_LCMShipments_PVT;
8940: BEGIN
8941: errbuf := NULL;
8942: retcode := 0;
8943: -- Standard Beginning of Procedure/Function Logging
8944: INL_LOGGING_PVT.Log_BeginProc(
8945: p_module_name => g_module_name,
8946: p_procedure_name => l_proc_name
8947: ) ;
8948: l_debug_info := 'Call Import_LCMMatches';
8945: p_module_name => g_module_name,
8946: p_procedure_name => l_proc_name
8947: ) ;
8948: l_debug_info := 'Call Import_LCMMatches';
8949: INL_LOGGING_PVT.Log_Statement(
8950: p_module_name => g_module_name,
8951: p_procedure_name => l_proc_name,
8952: p_debug_info => l_debug_info
8953: );
8975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8977: END IF;
8978: -- Standard End of Procedure/Function Logging
8979: INL_LOGGING_PVT.Log_EndProc(
8980: p_module_name => g_module_name,
8981: p_procedure_name => l_proc_name
8982: );
8983: EXCEPTION
8982: );
8983: EXCEPTION
8984: WHEN FND_API.G_EXC_ERROR THEN
8985: -- Standard Expected Error Logging
8986: INL_LOGGING_PVT.Log_ExpecError (
8987: p_module_name => g_module_name,
8988: p_procedure_name => l_proc_name
8989: );
8990: retcode := 1;
8989: );
8990: retcode := 1;
8991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8992: -- Standard Unexpected Error Logging
8993: INL_LOGGING_PVT.Log_UnexpecError(
8994: p_module_name => g_module_name,
8995: p_procedure_name => l_proc_name
8996: );
8997: retcode := 2;
8996: );
8997: retcode := 2;
8998: WHEN OTHERS THEN
8999: -- Standard Unexpected Error Logging
9000: INL_LOGGING_PVT.Log_UnexpecError(
9001: p_module_name => g_module_name,
9002: p_procedure_name => l_proc_name
9003: );
9004: retcode := 2;
9038: l_msg_data VARCHAR2(2000) ;
9039: l_debug_info VARCHAR2(200) ;
9040: BEGIN
9041: -- Standard Beginning of Procedure/Function Logging
9042: INL_LOGGING_PVT.Log_BeginProc(
9043: p_module_name => g_module_name,
9044: p_procedure_name => l_api_name
9045: ) ;
9046:
9061: END IF;
9062: -- Initialize API return status to success
9063: x_return_status := FND_API.G_RET_STS_SUCCESS;
9064: l_debug_info := 'Run Match Pre-Processor(first level validation). Call Run_MatchPreProcessor';
9065: INL_LOGGING_PVT.Log_Statement(
9066: p_module_name => g_module_name,
9067: p_procedure_name => l_api_name,
9068: p_debug_info => l_debug_info
9069: );
9075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9077: END IF;
9078: l_debug_info := 'Run Match Post-Processor. Call Run_MatchPostProcessor';
9079: INL_LOGGING_PVT.Log_Statement(
9080: p_module_name => g_module_name,
9081: p_procedure_name=> l_api_name,
9082: p_debug_info => l_debug_info
9083: );
9101: p_count => x_msg_count,
9102: p_data => x_msg_data
9103: ) ;
9104: -- Standard End of Procedure/Function Logging
9105: INL_LOGGING_PVT.Log_EndProc(
9106: p_module_name => g_module_name,
9107: p_procedure_name => l_api_name
9108: );
9109: EXCEPTION
9108: );
9109: EXCEPTION
9110: WHEN FND_API.G_EXC_ERROR THEN
9111: -- Standard Expected Error Logging
9112: INL_LOGGING_PVT.Log_ExpecError (
9113: p_module_name => g_module_name,
9114: p_procedure_name => l_api_name
9115: );
9116: ROLLBACK TO Import_LCMMatches_PVT;
9121: p_data => x_msg_data
9122: );
9123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9124: -- Standard Unexpected Error Logging
9125: INL_LOGGING_PVT.Log_UnexpecError (
9126: p_module_name => g_module_name,
9127: p_procedure_name => l_api_name
9128: );
9129: ROLLBACK TO Import_LCMMatches_PVT;
9134: p_data => x_msg_data
9135: );
9136: WHEN OTHERS THEN
9137: -- Standard Unexpected Error Logging
9138: INL_LOGGING_PVT.Log_UnexpecError (
9139: p_module_name => g_module_name,
9140: p_procedure_name => l_api_name
9141: );
9142: ROLLBACK TO Import_LCMMatches_PVT;