[Home] [Help]
147: l_msg_data VARCHAR2 (2000) ;
148: l_debug_info VARCHAR2 (200) ;
149: BEGIN
150: -- Standard Beginning of Procedure/Function Logging
151: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
152: p_procedure_name => l_program_name) ;
153: -- Initialize return status to success
154: x_return_status := L_FND_RET_STS_SUCCESS;
155: l_debug_info := 'Insert error details in inl_ship_holds.';
152: p_procedure_name => l_program_name) ;
153: -- Initialize return status to success
154: x_return_status := L_FND_RET_STS_SUCCESS;
155: l_debug_info := 'Insert error details in inl_ship_holds.';
156: INL_LOGGING_PVT.Log_Statement (
157: p_module_name => g_module_name,
158: p_procedure_name => l_program_name,
159: p_debug_info => l_debug_info
160: ) ;
225: SYSDATE , /* 29 */
226: L_FND_CONC_REQUEST_ID /* 30 */
227: ) ;
228: -- Standard End of Procedure/Function Logging
229: INL_LOGGING_PVT.Log_EndProc(
230: p_module_name => g_module_name,
231: p_procedure_name => l_program_name
232: );
233: EXCEPTION
232: );
233: EXCEPTION
234: WHEN L_FND_EXC_ERROR THEN
235: -- Standard Expected Error Logging
236: INL_LOGGING_PVT.Log_ExpecError(
237: p_module_name => g_module_name,
238: p_procedure_name => l_program_name
239: );
240: x_return_status := L_FND_RET_STS_ERROR;
239: );
240: x_return_status := L_FND_RET_STS_ERROR;
241: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
242: -- Standard Unexpected Error Logging
243: INL_LOGGING_PVT.Log_UnexpecError(
244: p_module_name => g_module_name,
245: p_procedure_name => l_program_name
246: );
247: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
246: );
247: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
248: WHEN OTHERS THEN
249: -- Standard Unexpected Error Logging
250: INL_LOGGING_PVT.Log_UnexpecError(
251: p_module_name => g_module_name,
252: p_procedure_name => l_program_name
253: );
254: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
288: l_msg_data VARCHAR2(2000);
289: l_debug_info VARCHAR2(200);
290: BEGIN
291: -- Standard Beginning of Procedure/Function Logging
292: INL_LOGGING_PVT.Log_BeginProc (
293: p_module_name => g_module_name,
294: p_procedure_name => l_program_name
295: );
296: -- Initialize return status to success
295: );
296: -- Initialize return status to success
297: x_return_status := L_FND_RET_STS_SUCCESS;
298: l_debug_info := 'Delete Errors from previous validation.';
299: INL_LOGGING_PVT.Log_Statement (
300: p_module_name => g_module_name,
301: p_procedure_name => l_program_name,
302: p_debug_info => l_debug_info
303: ) ;
318: AND ship_line_id = p_charge_line_id;
319: END IF;
320: END IF;
321: -- Standard End of Procedure/Function Logging
322: INL_LOGGING_PVT.Log_EndProc (
323: p_module_name => g_module_name,
324: p_procedure_name => l_program_name) ;
325: EXCEPTION
326: WHEN L_FND_EXC_ERROR THEN
324: p_procedure_name => l_program_name) ;
325: EXCEPTION
326: WHEN L_FND_EXC_ERROR THEN
327: -- Standard Expected Error Logging
328: INL_LOGGING_PVT.Log_ExpecError (
329: p_module_name => g_module_name,
330: p_procedure_name => l_program_name) ;
331: x_return_status := L_FND_RET_STS_ERROR;
332: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
330: p_procedure_name => l_program_name) ;
331: x_return_status := L_FND_RET_STS_ERROR;
332: WHEN L_FND_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_program_name) ;
337: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
338: WHEN OTHERS THEN
336: p_procedure_name => l_program_name) ;
337: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
338: WHEN OTHERS THEN
339: -- Standard Unexpected Error Logging
340: INL_LOGGING_PVT.Log_UnexpecError (
341: p_module_name => g_module_name,
342: p_procedure_name => l_program_name) ;
343: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
344: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
394: l_retcode NUMBER;
395: l_pre_receive VARCHAR2 (1);
396: l_ship_num VARCHAR2(25); -- SCM-051
397: BEGIN
398: INL_LOGGING_PVT.Log_BeginProc (
399: p_module_name => g_module_name,
400: p_procedure_name => l_api_name) ;
401: -- Standard Start of API savepoint
402: SAVEPOINT Complete_Shipment_PVT;
430: WHERE organization_id = p_organization_id;
431: -- Pre-Receive scenario
432: IF (NVL (l_pre_receive, 'N') = 'Y') THEN
433: l_debug_info := 'Call INL_INTEGRATION_GRP.Export_toRCV';
434: INL_LOGGING_PVT.Log_Statement (
435: p_module_name => g_module_name,
436: p_procedure_name => l_api_name,
437: p_debug_info => l_debug_info) ;
438:
446: x_msg_count => l_msg_count,
447: x_msg_data => l_msg_data);
448:
449: l_debug_info := 'l_return_status: ' || l_return_status;
450: INL_LOGGING_PVT.Log_Statement (
451: p_module_name => g_module_name,
452: p_procedure_name => l_api_name,
453: p_debug_info => l_debug_info) ;
454:
460: END IF;
461: -- Blackbox scenario
462: ELSIF (NVL (l_pre_receive, 'N') = 'N') THEN
463: l_debug_info := 'Call INL_INTEGRATION_GRP.Call_StampLC';
464: INL_LOGGING_PVT.Log_Statement (
465: p_module_name => g_module_name,
466: p_procedure_name => l_api_name,
467: p_debug_info => l_debug_info) ;
468:
489: NVL (p_pending_elc_flag, 'N') = 'Y' ) AND -- SCM-051
490: NVL(p_rcv_enabled_flag, 'N') = 'Y' THEN
491: -- Run Create Costing Interfaces
492: l_debug_info := 'Run INL_INTEGRATION_GRP.Export_ToCST';
493: INL_LOGGING_PVT.Log_Statement (
494: p_module_name => g_module_name,
495: p_procedure_name=> l_api_name,
496: p_debug_info => l_debug_info) ;
497:
513: END IF;
514: END IF;
515:
516: l_debug_info := 'Update the current INL_SHIP_HEADERS_ALL.ship_status_code to COMPLETED';
517: INL_LOGGING_PVT.Log_Statement (
518: p_module_name => g_module_name,
519: p_procedure_name=> l_api_name,
520: p_debug_info => l_debug_info ) ;
521:
533: FND_MSG_PUB.Count_And_Get (
534: p_encoded => L_FND_FALSE,
535: p_count => x_msg_count,
536: p_data => x_msg_data) ;
537: INL_LOGGING_PVT.Log_EndProc (
538: p_module_name => g_module_name,
539: p_procedure_name => l_api_name) ;
540: EXCEPTION
541: WHEN L_FND_EXC_ERROR THEN
538: p_module_name => g_module_name,
539: p_procedure_name => l_api_name) ;
540: EXCEPTION
541: WHEN L_FND_EXC_ERROR THEN
542: INL_LOGGING_PVT.Log_ExpecError (
543: p_module_name => g_module_name,
544: p_procedure_name => l_api_name) ;
545: ROLLBACK TO Complete_Shipment_PVT;
546: x_return_status := L_FND_RET_STS_ERROR;
548: p_encoded => L_FND_FALSE,
549: p_count => x_msg_count,
550: p_data => x_msg_data) ;
551: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
552: INL_LOGGING_PVT.Log_UnexpecError (
553: p_module_name => g_module_name,
554: p_procedure_name => l_api_name) ;
555: ROLLBACK TO Complete_Shipment_PVT;
556: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
558: p_encoded => L_FND_FALSE,
559: p_count => x_msg_count,
560: p_data => x_msg_data) ;
561: WHEN OTHERS THEN
562: INL_LOGGING_PVT.Log_UnexpecError (
563: p_module_name => g_module_name,
564: p_procedure_name => l_api_name) ;
565: ROLLBACK TO Complete_Shipment_PVT;
566: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
604: AND al1.adjustment_num > 0
605: AND ROWNUM < 2
606: ) ;
607: l_debug_info := 'deleted '||sql%ROWCOUNT||' allocations rows ';
608: INL_LOGGING_PVT.Log_Statement (
609: p_module_name => g_module_name,
610: p_procedure_name => l_program_name,
611: p_debug_info => l_debug_info
612: ) ;
659: l_exist_status NUMBER := 0;
660: l_exist_calc NUMBER := 0;
661: l_debug_info VARCHAR2 (200) ;
662: BEGIN
663: INL_LOGGING_PVT.Log_BeginProc (
664: p_module_name => g_module_name,
665: p_procedure_name => l_api_name) ;
666: -- Standard Start of API savepoint
667: SAVEPOINT Set_ToRevalidate_PVT;
683: SELECT sh.ship_status_code
684: INTO l_ship_status
685: FROM inl_ship_headers sh
686: WHERE sh.ship_header_id = p_ship_header_id;
687: INL_LOGGING_PVT.Log_Variable (
688: p_module_name => g_module_name,
689: p_procedure_name => l_api_name,
690: p_var_name => 'current Shipment status',
691: p_var_value => l_ship_status
712: p_encoded => L_FND_FALSE,
713: p_count => x_msg_count,
714: p_data => x_msg_data
715: ) ;
716: INL_LOGGING_PVT.Log_EndProc (
717: p_module_name => g_module_name,
718: p_procedure_name => l_api_name) ;
719: EXCEPTION
720: WHEN L_FND_EXC_ERROR THEN
718: p_procedure_name => l_api_name) ;
719: EXCEPTION
720: WHEN L_FND_EXC_ERROR THEN
721: l_debug_info := 'MSG: '||SQLERRM;
722: INL_LOGGING_PVT.Log_Statement (
723: p_module_name => g_module_name,
724: p_procedure_name => l_api_name,
725: p_debug_info => l_debug_info
726: ) ;
723: p_module_name => g_module_name,
724: p_procedure_name => l_api_name,
725: p_debug_info => l_debug_info
726: ) ;
727: INL_LOGGING_PVT.Log_ExpecError (
728: p_module_name => g_module_name,
729: p_procedure_name => l_api_name) ;
730: ROLLBACK TO Set_ToRevalidate_PVT;
731: x_return_status := L_FND_RET_STS_ERROR;
734: p_count => x_msg_count,
735: p_data => x_msg_data) ;
736: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
737: l_debug_info := 'MSG: '||SQLERRM;
738: INL_LOGGING_PVT.Log_Statement (
739: p_module_name => g_module_name,
740: p_procedure_name => l_api_name,
741: p_debug_info => l_debug_info
742: ) ;
739: p_module_name => g_module_name,
740: p_procedure_name => l_api_name,
741: p_debug_info => l_debug_info
742: ) ;
743: INL_LOGGING_PVT.Log_UnexpecError (
744: p_module_name => g_module_name,
745: p_procedure_name => l_api_name) ;
746: ROLLBACK TO Set_ToRevalidate_PVT;
747: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
750: p_count => x_msg_count,
751: p_data => x_msg_data) ;
752: WHEN OTHERS THEN
753: l_debug_info := 'MSG: '||SQLERRM;
754: INL_LOGGING_PVT.Log_Statement (
755: p_module_name => g_module_name,
756: p_procedure_name => l_api_name,
757: p_debug_info => l_debug_info
758: ) ;
755: p_module_name => g_module_name,
756: p_procedure_name => l_api_name,
757: p_debug_info => l_debug_info
758: ) ;
759: INL_LOGGING_PVT.Log_UnexpecError (
760: p_module_name => g_module_name,
761: p_procedure_name => l_api_name) ;
762: ROLLBACK TO Set_ToRevalidate_PVT;
763: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
807: c_group_lines_tl group_lines_type;
808: l_group_lines group_lines_type;
809:
810: BEGIN
811: INL_LOGGING_PVT.Log_BeginProc (
812: p_module_name => g_module_name,
813: p_procedure_name => l_program_name) ;
814:
815: -- Logging variables
812: p_module_name => g_module_name,
813: p_procedure_name => l_program_name) ;
814:
815: -- Logging variables
816: INL_LOGGING_PVT.Log_Variable (
817: p_module_name => g_module_name,
818: p_procedure_name => l_program_name,
819: p_var_name => 'p_ship_header_id',
820: p_var_value => p_ship_header_id);
823: FETCH c_group_lines BULK COLLECT INTO c_group_lines_tl;
824: CLOSE c_group_lines;
825:
826: -- Logging variables
827: INL_LOGGING_PVT.Log_Variable (
828: p_module_name => g_module_name,
829: p_procedure_name => l_program_name,
830: p_var_name => 'NVL(c_group_lines_tl.LAST, 0)',
831: p_var_value => NVL(c_group_lines_tl.LAST, 0));
835: ELSE
836: FOR i IN NVL (c_group_lines_tl.FIRST, 0) ..NVL (c_group_lines_tl.LAST, 0)
837: LOOP
838: -- Logging variables
839: INL_LOGGING_PVT.Log_Variable (
840: p_module_name => g_module_name,
841: p_procedure_name => l_program_name,
842: p_var_name => 'c_group_lines_tl.count_ship_line(' || i || ')',
843: p_var_value => c_group_lines_tl(i).count_ship_line);
850: END IF;
851: END LOOP;
852: END IF;
853:
854: INL_LOGGING_PVT.Log_EndProc (
855: p_module_name => g_module_name,
856: p_procedure_name => l_program_name) ;
857:
858: IF NVL (l_count_group_no_line, 0) <> 0 THEN
878: l_program_name CONSTANT VARCHAR2 (30) := 'Get_ShipHeadNum';
879: l_ship_header_num VARCHAR2 (25) ;
880: l_debug_info VARCHAR2 (200) ;
881: BEGIN
882: INL_LOGGING_PVT.Log_BeginProc (
883: p_module_name => g_module_name,
884: p_procedure_name => l_program_name) ;
885: BEGIN
886: SELECT ship_num
890: EXCEPTION
891: WHEN NO_DATA_FOUND THEN
892: RETURN '';
893: END;
894: INL_LOGGING_PVT.Log_EndProc (
895: p_module_name => g_module_name,
896: p_procedure_name => l_program_name) ;
897: RETURN l_ship_header_num;
898: END Get_ShipHeadNum;
913: l_program_name CONSTANT VARCHAR2 (30) := 'Get_ShipLineNum';
914: l_ship_line_num VARCHAR2 (25) ;
915: l_debug_info VARCHAR2 (200) ;
916: BEGIN
917: INL_LOGGING_PVT.Log_BeginProc (
918: p_module_name => g_module_name,
919: p_procedure_name => l_program_name) ;
920: BEGIN
921: SELECT ship_line_num
925: EXCEPTION
926: WHEN NO_DATA_FOUND THEN
927: RETURN '';
928: END;
929: INL_LOGGING_PVT.Log_EndProc (
930: p_module_name => g_module_name,
931: p_procedure_name => l_program_name) ;
932: RETURN TO_CHAR (l_ship_line_num) ;
933: END Get_ShipLineNum;
995: l_converted_qty_rsl NUMBER;
996: l_total_quantity_rsl NUMBER := 0;
997: BEGIN
998: -- Standard Beginning of Procedure/Function Logging
999: INL_LOGGING_PVT.Log_BeginProc (
1000: p_module_name => g_module_name,
1001: p_procedure_name => l_api_name) ;
1002: -- Initialize message list if p_init_msg_list is set to TRUE.
1003: IF FND_API.to_Boolean (p_init_msg_list) THEN
1027: l_transaction_type := 'RECEIVE';
1028: l_receipt_source_code := 'CUSTOMER';
1029: END IF;
1030: -- Logging variables
1031: INL_LOGGING_PVT.Log_Variable (
1032: p_module_name => g_module_name,
1033: p_procedure_name => l_api_name,
1034: p_var_name => 'l_transaction_type',
1035: p_var_value => l_transaction_type) ;
1032: p_module_name => g_module_name,
1033: p_procedure_name => l_api_name,
1034: p_var_name => 'l_transaction_type',
1035: p_var_value => l_transaction_type) ;
1036: INL_LOGGING_PVT.Log_Variable (
1037: p_module_name => g_module_name,
1038: p_procedure_name => l_api_name,
1039: p_var_name => 'l_receipt_source_code',
1040: p_var_value => l_receipt_source_code) ;
1038: p_procedure_name => l_api_name,
1039: p_var_name => 'l_receipt_source_code',
1040: p_var_value => l_receipt_source_code) ;
1041: l_debug_info := 'Call RCV_QUANTITIES_S.get_available_quantity - PLL';
1042: INL_LOGGING_PVT.Log_Statement (
1043: p_module_name => g_module_name,
1044: p_procedure_name => l_api_name,
1045: p_debug_info => l_debug_info);
1046: -- This call will return the available qty not considering qty on RSL.
1054: p_available_quantity => p_available_quantity,
1055: p_tolerable_quantity => p_tolerable_quantity,
1056: p_unit_of_measure => p_unit_of_measure);
1057: -- Logging variables
1058: INL_LOGGING_PVT.Log_Variable (
1059: p_module_name => g_module_name,
1060: p_procedure_name => l_api_name,
1061: p_var_name => 'p_available_quantity',
1062: p_var_value => p_available_quantity);
1059: p_module_name => g_module_name,
1060: p_procedure_name => l_api_name,
1061: p_var_name => 'p_available_quantity',
1062: p_var_value => p_available_quantity);
1063: INL_LOGGING_PVT.Log_Variable (
1064: p_module_name => g_module_name,
1065: p_procedure_name => l_api_name,
1066: p_var_name => 'p_tolerable_quantity',
1067: p_var_value => p_tolerable_quantity);
1068: -- Iterate through all RCV Shipment Lines based on a given PLL.
1069: FOR l_rcv_shipmt_lines IN c_rcv_shipmt_lines
1070: LOOP
1071: l_debug_info := 'Call RCV_QUANTITIES_S.get_available_quantity - RSL';
1072: INL_LOGGING_PVT.Log_Statement (
1073: p_module_name => g_module_name,
1074: p_procedure_name => l_api_name,
1075: p_debug_info => l_debug_info);
1076: -- This call will return the quantity on RSL that should be deducted from the available quantity.
1105: END IF;
1106: IF p_tolerable_quantity < 0 THEN
1107: p_tolerable_quantity := 0;
1108: END IF;
1109: INL_LOGGING_PVT.Log_Variable (
1110: p_module_name => g_module_name,
1111: p_procedure_name => l_api_name,
1112: p_var_name => 'p_available_quantity',
1113: p_var_value => p_available_quantity);
1110: p_module_name => g_module_name,
1111: p_procedure_name => l_api_name,
1112: p_var_name => 'p_available_quantity',
1113: p_var_value => p_available_quantity);
1114: INL_LOGGING_PVT.Log_Variable (
1115: p_module_name => g_module_name,
1116: p_procedure_name => l_api_name,
1117: p_var_name => 'p_tolerable_quantity',
1118: p_var_value => p_tolerable_quantity);
1115: p_module_name => g_module_name,
1116: p_procedure_name => l_api_name,
1117: p_var_name => 'p_tolerable_quantity',
1118: p_var_value => p_tolerable_quantity);
1119: INL_LOGGING_PVT.Log_Variable (
1120: p_module_name => g_module_name,
1121: p_procedure_name => l_api_name,
1122: p_var_name => 'p_unit_of_measure',
1123: p_var_value => p_unit_of_measure) ;
1130: p_encoded => L_FND_FALSE,
1131: p_count => x_msg_count,
1132: p_data => x_msg_data) ;
1133: -- Standard End of Procedure/Function Logging
1134: INL_LOGGING_PVT.Log_EndProc (
1135: p_module_name => g_module_name,
1136: p_procedure_name => l_api_name) ;
1137: EXCEPTION
1138: WHEN L_FND_EXC_ERROR THEN
1136: p_procedure_name => l_api_name) ;
1137: EXCEPTION
1138: WHEN L_FND_EXC_ERROR THEN
1139: -- Standard Expected Error Logging
1140: INL_LOGGING_PVT.Log_ExpecError (
1141: p_module_name => g_module_name,
1142: p_procedure_name => l_api_name) ;
1143: x_return_status := L_FND_RET_STS_ERROR;
1144: FND_MSG_PUB.Count_And_Get (
1146: p_count => x_msg_count,
1147: p_data => x_msg_data) ;
1148: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
1149: -- Standard Unexpected Error Logging
1150: INL_LOGGING_PVT.Log_UnexpecError (
1151: p_module_name => g_module_name,
1152: p_procedure_name => l_api_name) ;
1153: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
1154: FND_MSG_PUB.Count_And_Get (
1156: p_count => x_msg_count,
1157: p_data => x_msg_data) ;
1158: WHEN OTHERS THEN
1159: -- Standard Unexpected Error Logging
1160: INL_LOGGING_PVT.Log_UnexpecError (
1161: p_module_name => g_module_name,
1162: p_procedure_name => l_api_name) ;
1163: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
1164: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1230: l_pre_receive VARCHAR2(1);
1231: l_ship_qty_validation_inf_tbl ship_qty_validation_inf_tbl;
1232: BEGIN
1233: -- Standard Beginning of Procedure/Function Logging
1234: INL_LOGGING_PVT.Log_BeginProc (
1235: p_module_name => g_module_name,
1236: p_procedure_name => l_program_name) ;
1237: -- Initialize API return status to success
1238: x_return_status := L_FND_RET_STS_SUCCESS;
1235: p_module_name => g_module_name,
1236: p_procedure_name => l_program_name) ;
1237: -- Initialize API return status to success
1238: x_return_status := L_FND_RET_STS_SUCCESS;
1239: INL_LOGGING_PVT.Log_Variable (
1240: p_module_name => g_module_name,
1241: p_procedure_name => l_program_name,
1242: p_var_name => 'x_qty_in_others_ops',
1243: p_var_value => x_qty_in_others_ops) ;
1241: p_procedure_name => l_program_name,
1242: p_var_name => 'x_qty_in_others_ops',
1243: p_var_value => x_qty_in_others_ops) ;
1244:
1245: INL_LOGGING_PVT.Log_Variable (
1246: p_module_name => g_module_name,
1247: p_procedure_name => l_program_name,
1248: p_var_name => 'p_primary_qty',
1249: p_var_value => p_primary_qty) ;
1247: p_procedure_name => l_program_name,
1248: p_var_name => 'p_primary_qty',
1249: p_var_value => p_primary_qty) ;
1250:
1251: INL_LOGGING_PVT.Log_Variable (
1252: p_module_name => g_module_name,
1253: p_procedure_name => l_program_name,
1254: p_var_name => 'p_sum_primary_qty',
1255: p_var_value => p_sum_primary_qty) ;
1253: p_procedure_name => l_program_name,
1254: p_var_name => 'p_sum_primary_qty',
1255: p_var_value => p_sum_primary_qty) ;
1256:
1257: INL_LOGGING_PVT.Log_Variable (
1258: p_module_name => g_module_name,
1259: p_procedure_name => l_program_name,
1260: p_var_name => 'p_primary_uom_code',
1261: p_var_value => p_primary_uom_code) ;
1259: p_procedure_name => l_program_name,
1260: p_var_name => 'p_primary_uom_code',
1261: p_var_value => p_primary_uom_code) ;
1262:
1263: INL_LOGGING_PVT.Log_Variable (
1264: p_module_name => g_module_name,
1265: p_procedure_name => l_program_name,
1266: p_var_name => 'p_inventory_item_id',
1267: p_var_value => p_inventory_item_id) ;
1265: p_procedure_name => l_program_name,
1266: p_var_name => 'p_inventory_item_id',
1267: p_var_value => p_inventory_item_id) ;
1268:
1269: INL_LOGGING_PVT.Log_Variable (
1270: p_module_name => g_module_name,
1271: p_procedure_name => l_program_name,
1272: p_var_name => 'p_inv_org_id',
1273: p_var_value => p_inv_org_id) ;
1271: p_procedure_name => l_program_name,
1272: p_var_name => 'p_inv_org_id',
1273: p_var_value => p_inv_org_id) ;
1274:
1275: INL_LOGGING_PVT.Log_Variable (
1276: p_module_name => g_module_name,
1277: p_procedure_name => l_program_name,
1278: p_var_name => 'p_ship_line_id',
1279: p_var_value => p_ship_line_id) ;
1277: p_procedure_name => l_program_name,
1278: p_var_name => 'p_ship_line_id',
1279: p_var_value => p_ship_line_id) ;
1280:
1281: INL_LOGGING_PVT.Log_Variable (
1282: p_module_name => g_module_name,
1283: p_procedure_name => l_program_name,
1284: p_var_name => 'p_ship_line_num',
1285: p_var_value => p_ship_line_num) ;
1283: p_procedure_name => l_program_name,
1284: p_var_name => 'p_ship_line_num',
1285: p_var_value => p_ship_line_num) ;
1286:
1287: INL_LOGGING_PVT.Log_Variable (
1288: p_module_name => g_module_name,
1289: p_procedure_name => l_program_name,
1290: p_var_name => 'p_ship_line_src_type_code',
1291: p_var_value => p_ship_line_src_type_code) ;
1289: p_procedure_name => l_program_name,
1290: p_var_name => 'p_ship_line_src_type_code',
1291: p_var_value => p_ship_line_src_type_code) ;
1292:
1293: INL_LOGGING_PVT.Log_Variable (
1294: p_module_name => g_module_name,
1295: p_procedure_name => l_program_name,
1296: p_var_name => 'p_ship_line_src_id',
1297: p_var_value => p_ship_line_src_id) ;
1295: p_procedure_name => l_program_name,
1296: p_var_name => 'p_ship_line_src_id',
1297: p_var_value => p_ship_line_src_id) ;
1298:
1299: INL_LOGGING_PVT.Log_Variable (
1300: p_module_name => g_module_name,
1301: p_procedure_name => l_program_name,
1302: p_var_name => 'p_same_shiph_id',
1303: p_var_value => p_same_shiph_id) ;
1301: p_procedure_name => l_program_name,
1302: p_var_name => 'p_same_shiph_id',
1303: p_var_value => p_same_shiph_id) ;
1304:
1305: INL_LOGGING_PVT.Log_Variable (
1306: p_module_name => g_module_name,
1307: p_procedure_name => l_program_name,
1308: p_var_name => 'p_ship_header_id',
1309: p_var_value => p_ship_header_id) ;
1357: RAISE L_FND_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359: ELSE
1360: l_debug_info := 'INL_SHIPMENT_PVT.Get_AvailableQty';
1361: INL_LOGGING_PVT.Log_Statement (
1362: p_module_name => g_module_name,
1363: p_procedure_name => l_program_name,
1364: p_debug_info => l_debug_info ) ;
1365: -- Get the PO Avaliable and Tolerable Quantities
1374: p_unit_of_measure => x_unit_of_measure,
1375: x_return_status => l_return_status,
1376: x_msg_count => l_msg_count,
1377: x_msg_data => l_msg_data);
1378: INL_LOGGING_PVT.Log_Variable (
1379: p_module_name => g_module_name,
1380: p_procedure_name => l_program_name,
1381: p_var_name => 'x_available_quantity',
1382: p_var_value => x_available_quantity);
1380: p_procedure_name => l_program_name,
1381: p_var_name => 'x_available_quantity',
1382: p_var_value => x_available_quantity);
1383:
1384: INL_LOGGING_PVT.Log_Variable (
1385: p_module_name => g_module_name,
1386: p_procedure_name => l_program_name,
1387: p_var_name => 'x_tolerable_quantity',
1388: p_var_value => x_tolerable_quantity);
1386: p_procedure_name => l_program_name,
1387: p_var_name => 'x_tolerable_quantity',
1388: p_var_value => x_tolerable_quantity);
1389:
1390: INL_LOGGING_PVT.Log_Variable (
1391: p_module_name => g_module_name,
1392: p_procedure_name => l_program_name,
1393: p_var_name => 'x_unit_of_measure',
1394: p_var_value => x_unit_of_measure);
1396: SELECT uom_code
1397: INTO x_uom_code
1398: FROM mtl_units_of_measure
1399: WHERE unit_of_measure = x_unit_of_measure;
1400: INL_LOGGING_PVT.Log_Variable (
1401: p_module_name => g_module_name,
1402: p_procedure_name => l_program_name,
1403: p_var_name => 'x_uom_code',
1404: p_var_value => x_uom_code) ;
1402: p_procedure_name => l_program_name,
1403: p_var_name => 'x_uom_code',
1404: p_var_value => x_uom_code) ;
1405:
1406: INL_LOGGING_PVT.Log_Variable (
1407: p_module_name => g_module_name,
1408: p_procedure_name => l_program_name,
1409: p_var_name => 'p_primary_uom_code',
1410: p_var_value => p_primary_uom_code
1409: p_var_name => 'p_primary_uom_code',
1410: p_var_value => p_primary_uom_code
1411: ) ;
1412: l_debug_info := 'If necessary, it converts the qty (INL_landedcost_pvt.Converted_Qty).';
1413: INL_LOGGING_PVT.Log_Statement (
1414: p_module_name => g_module_name,
1415: p_procedure_name => l_program_name,
1416: p_debug_info => l_debug_info ) ;
1417: -- Convert to Primary Qty when Unit of Measure is different
1465: END IF;
1466: -- In Receiving (RCV_QUANTITIES_S) the rcv_exception_code is checked FOR POs only.
1467: IF p_ship_line_src_type_code = 'PO' THEN
1468: l_debug_info := 'Verify in po_line_locations_all the Over-Receipt Quantity Control Action';
1469: INL_LOGGING_PVT.Log_Statement (
1470: p_module_name => g_module_name,
1471: p_procedure_name => l_program_name,
1472: p_debug_info => l_debug_info) ;
1473:
1532: )
1533: AND sh.rcv_enabled_flag = 'Y' -- Bug #8981485
1534: AND sl.ship_line_src_type_code = p_ship_line_src_type_code
1535: AND sl.ship_line_source_id = p_ship_line_src_id;
1536: INL_LOGGING_PVT.Log_Variable (
1537: p_module_name => g_module_name,
1538: p_procedure_name => l_program_name,
1539: p_var_name => 'x_qty_in_others_ops',
1540: p_var_value => x_qty_in_others_ops) ;
1540: p_var_value => x_qty_in_others_ops) ;
1541:
1542: IF x_qty_in_others_ops + p_primary_qty > x_tolerable_quantity THEN
1543: l_debug_info := 'x_qty_in_others_ops + p_primary_qty > x_tolerable_quantity';
1544: INL_LOGGING_PVT.Log_Statement (
1545: p_module_name => g_module_name,
1546: p_procedure_name => l_program_name,
1547: p_debug_info => l_debug_info) ;
1548:
1639: x_return_status => l_return_status) ;
1640: END IF;
1641: END IF;
1642: END IF;
1643: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1644: p_procedure_name => l_program_name) ;
1645: EXCEPTION
1646: WHEN L_FND_EXC_ERROR THEN
1647: x_return_status := L_FND_RET_STS_ERROR;
1713: l_p_converted_PUP NUMBER;
1714: l_po_UOM_code VARCHAR2(30);
1715: BEGIN
1716: -- Standard Beginning of Procedure/Function Logging
1717: INL_LOGGING_PVT.Log_BeginProc (
1718: p_module_name => g_module_name,
1719: p_procedure_name => l_program_name) ;
1720: -- Initialize API return status variables
1721: x_return_status := L_FND_RET_STS_SUCCESS;
1725: SELECT po_price_toler_perc
1726: INTO l_po_price_toler_perc
1727: FROM inl_parameters
1728: WHERE organization_id = p_organization_id;
1729: INL_LOGGING_PVT.Log_Variable (
1730: p_module_name => g_module_name,
1731: p_procedure_name => l_program_name,
1732: p_var_name => 'l_po_price_toler_perc',
1733: p_var_value => l_po_price_toler_perc
1732: p_var_name => 'l_po_price_toler_perc',
1733: p_var_value => l_po_price_toler_perc
1734: ) ;
1735:
1736: INL_LOGGING_PVT.Log_Variable (
1737: p_module_name => g_module_name,
1738: p_procedure_name => l_program_name,
1739: p_var_name => 'p_pri_unit_price',
1740: p_var_value => p_pri_unit_price
1738: p_procedure_name => l_program_name,
1739: p_var_name => 'p_pri_unit_price',
1740: p_var_value => p_pri_unit_price
1741: ) ;
1742: INL_LOGGING_PVT.Log_Variable (
1743: p_module_name => g_module_name,
1744: p_procedure_name => l_program_name,
1745: p_var_name => 'p_primary_uom_code',
1746: p_var_value => p_primary_uom_code
1744: p_procedure_name => l_program_name,
1745: p_var_name => 'p_primary_uom_code',
1746: p_var_value => p_primary_uom_code
1747: ) ;
1748: INL_LOGGING_PVT.Log_Variable (
1749: p_module_name => g_module_name,
1750: p_procedure_name => l_program_name,
1751: p_var_name => 'p_currency_code',
1752: p_var_value => p_currency_code
1750: p_procedure_name => l_program_name,
1751: p_var_name => 'p_currency_code',
1752: p_var_value => p_currency_code
1753: ) ;
1754: INL_LOGGING_PVT.Log_Variable (
1755: p_module_name => g_module_name,
1756: p_procedure_name => l_program_name,
1757: p_var_name => 'p_currency_conversion_type',
1758: p_var_value => p_currency_conversion_type
1756: p_procedure_name => l_program_name,
1757: p_var_name => 'p_currency_conversion_type',
1758: p_var_value => p_currency_conversion_type
1759: ) ;
1760: INL_LOGGING_PVT.Log_Variable (
1761: p_module_name => g_module_name,
1762: p_procedure_name => l_program_name,
1763: p_var_name => 'p_currency_conversion_date',
1764: p_var_value => p_currency_conversion_date
1762: p_procedure_name => l_program_name,
1763: p_var_name => 'p_currency_conversion_date',
1764: p_var_value => p_currency_conversion_date
1765: ) ;
1766: INL_LOGGING_PVT.Log_Variable (
1767: p_module_name => g_module_name,
1768: p_procedure_name => l_program_name,
1769: p_var_name => 'p_currency_conversion_rate',
1770: p_var_value => p_currency_conversion_rate
1768: p_procedure_name => l_program_name,
1769: p_var_name => 'p_currency_conversion_rate',
1770: p_var_value => p_currency_conversion_rate
1771: ) ;
1772: INL_LOGGING_PVT.Log_Variable (
1773: p_module_name => g_module_name,
1774: p_procedure_name => l_program_name,
1775: p_var_name => 'p_ship_header_id',
1776: p_var_value => p_ship_header_id
1774: p_procedure_name => l_program_name,
1775: p_var_name => 'p_ship_header_id',
1776: p_var_value => p_ship_header_id
1777: ) ;
1778: INL_LOGGING_PVT.Log_Variable (
1779: p_module_name => g_module_name,
1780: p_procedure_name => l_program_name,
1781: p_var_name => 'p_ship_line_id',
1782: p_var_value => p_ship_line_id
1780: p_procedure_name => l_program_name,
1781: p_var_name => 'p_ship_line_id',
1782: p_var_value => p_ship_line_id
1783: ) ;
1784: INL_LOGGING_PVT.Log_Variable (
1785: p_module_name => g_module_name,
1786: p_procedure_name => l_program_name,
1787: p_var_name => 'p_organization_id',
1788: p_var_value => p_organization_id
1786: p_procedure_name => l_program_name,
1787: p_var_name => 'p_organization_id',
1788: p_var_value => p_organization_id
1789: ) ;
1790: INL_LOGGING_PVT.Log_Variable (
1791: p_module_name => g_module_name,
1792: p_procedure_name => l_program_name,
1793: p_var_name => 'p_ship_line_num',
1794: p_var_value => p_ship_line_num
1792: p_procedure_name => l_program_name,
1793: p_var_name => 'p_ship_line_num',
1794: p_var_value => p_ship_line_num
1795: ) ;
1796: INL_LOGGING_PVT.Log_Variable (
1797: p_module_name => g_module_name,
1798: p_procedure_name => l_program_name,
1799: p_var_name => 'p_ship_line_src_id',
1800: p_var_value => p_ship_line_src_id
1820: FROM inl_enter_receipts_v po, -- BUG#8229331 (Pls see bug 9179775)
1821: mtl_units_of_measure muom
1822: WHERE po.po_line_location_id = p_ship_line_src_id
1823: AND muom.unit_of_measure (+) = po.ordered_uom;
1824: INL_LOGGING_PVT.Log_Variable (
1825: p_module_name => g_module_name,
1826: p_procedure_name => l_program_name,
1827: p_var_name => 'l_po_unit_price',
1828: p_var_value => l_po_unit_price
1826: p_procedure_name => l_program_name,
1827: p_var_name => 'l_po_unit_price',
1828: p_var_value => l_po_unit_price
1829: ) ;
1830: INL_LOGGING_PVT.Log_Variable (
1831: p_module_name => g_module_name,
1832: p_procedure_name => l_program_name,
1833: p_var_name => 'l_po_currency_code',
1834: p_var_value => l_po_currency_code
1832: p_procedure_name => l_program_name,
1833: p_var_name => 'l_po_currency_code',
1834: p_var_value => l_po_currency_code
1835: ) ;
1836: INL_LOGGING_PVT.Log_Variable (
1837: p_module_name => g_module_name,
1838: p_procedure_name => l_program_name,
1839: p_var_name => 'l_po_currency_conversion_type',
1840: p_var_value => l_po_currency_conversion_type
1838: p_procedure_name => l_program_name,
1839: p_var_name => 'l_po_currency_conversion_type',
1840: p_var_value => l_po_currency_conversion_type
1841: ) ;
1842: INL_LOGGING_PVT.Log_Variable (
1843: p_module_name => g_module_name,
1844: p_procedure_name => l_program_name,
1845: p_var_name => 'l_po_currency_conversion_date',
1846: p_var_value => l_po_currency_conversion_date
1844: p_procedure_name => l_program_name,
1845: p_var_name => 'l_po_currency_conversion_date',
1846: p_var_value => l_po_currency_conversion_date
1847: ) ;
1848: INL_LOGGING_PVT.Log_Variable (
1849: p_module_name => g_module_name,
1850: p_procedure_name => l_program_name,
1851: p_var_name => 'l_po_currency_conversion_rate',
1852: p_var_value => l_po_currency_conversion_rate
1850: p_procedure_name => l_program_name,
1851: p_var_name => 'l_po_currency_conversion_rate',
1852: p_var_value => l_po_currency_conversion_rate
1853: ) ;
1854: INL_LOGGING_PVT.Log_Variable (
1855: p_module_name => g_module_name,
1856: p_procedure_name => l_program_name,
1857: p_var_name => 'l_po_UOM_code',
1858: p_var_value => l_po_UOM_code
1856: p_procedure_name => l_program_name,
1857: p_var_name => 'l_po_UOM_code',
1858: p_var_value => l_po_UOM_code
1859: ) ;
1860: INL_LOGGING_PVT.Log_Variable (
1861: p_module_name => g_module_name,
1862: p_procedure_name => l_program_name,
1863: p_var_name => 'l_po_qty',
1864: p_var_value => l_po_qty
1862: p_procedure_name => l_program_name,
1863: p_var_name => 'l_po_qty',
1864: p_var_value => l_po_qty
1865: ) ;
1866: INL_LOGGING_PVT.Log_Variable (
1867: p_module_name => g_module_name,
1868: p_procedure_name => l_program_name,
1869: p_var_name => 'l_inventory_item_id',
1870: p_var_value => l_inventory_item_id
1870: p_var_value => l_inventory_item_id
1871: ) ;
1872:
1873: l_debug_info := 'Verifying if currency conversion is required. PO: '||l_po_currency_code ||' Shipment: '||p_currency_code;
1874: INL_LOGGING_PVT.Log_Statement (
1875: p_module_name => g_module_name,
1876: p_procedure_name => l_program_name,
1877: p_debug_info => l_debug_info
1878: );
1890: ELSE
1891: l_p_converted_PUP := p_pri_unit_price;
1892: END IF;
1893: END IF;
1894: INL_LOGGING_PVT.Log_Variable (
1895: p_module_name => g_module_name,
1896: p_procedure_name => l_program_name,
1897: p_var_name => 'l_po_converted_price',
1898: p_var_value => l_po_converted_price
1896: p_procedure_name => l_program_name,
1897: p_var_name => 'l_po_converted_price',
1898: p_var_value => l_po_converted_price
1899: ) ;
1900: INL_LOGGING_PVT.Log_Variable (
1901: p_module_name => g_module_name,
1902: p_procedure_name => l_program_name,
1903: p_var_name => 'l_p_converted_PUP',
1904: p_var_value => l_p_converted_PUP
1904: p_var_value => l_p_converted_PUP
1905: ) ;
1906:
1907: l_debug_info := 'Verifying if UOM conversion is required. PO: '||l_po_UOM_code ||' Shipment: '||p_primary_uom_code;
1908: INL_LOGGING_PVT.Log_Statement (
1909: p_module_name => g_module_name,
1910: p_procedure_name => l_program_name,
1911: p_debug_info => l_debug_info
1912: );
1932: p_to_uom_code => p_primary_uom_code);
1933:
1934: -- /Bug #11710754
1935:
1936: INL_LOGGING_PVT.Log_Variable (
1937: p_module_name => g_module_name,
1938: p_procedure_name => l_program_name,
1939: p_var_name => 'l_po_converted_price',
1940: p_var_value => l_po_converted_price
2017: END IF;
2018: END IF;
2019: END IF;
2020: -- Standard End of Procedure/Function Logging
2021: INL_LOGGING_PVT.Log_EndProc (
2022: p_module_name => g_module_name,
2023: p_procedure_name => l_program_name) ;
2024: EXCEPTION
2025: WHEN L_FND_EXC_ERROR THEN
2101: l_pri_unit_price NUMBER;
2102:
2103: BEGIN
2104: -- Standard Beginning of Procedure/Function Logging
2105: INL_LOGGING_PVT.Log_BeginProc (
2106: p_module_name => g_module_name,
2107: p_procedure_name => l_program_name) ;
2108: -- Standard Start of API savepoint
2109: SAVEPOINT Check_PoTolerances_PVT;
2120: END IF;
2121: -- Initialize API return status to success
2122: x_return_status := L_FND_RET_STS_SUCCESS;
2123:
2124: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
2125: p_procedure_name => l_program_name,
2126: p_var_name => 'p_new_txn_unit_price',
2127: p_var_value => p_new_txn_unit_price);
2128:
2131: BEGIN
2132: IF p_new_txn_unit_price IS NOT NULL THEN
2133:
2134: l_debug_info := 'Get Primary Unit Price for New Transaction Unit Price';
2135: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
2136: p_procedure_name => l_program_name,
2137: p_debug_info => l_debug_info);
2138:
2139: l_pri_unit_price := INL_LANDEDCOST_PVT.Converted_Price(
2142: p_inventory_item_id => p_inventory_item_id,
2143: p_from_uom_code => p_txn_uom_code,
2144: p_to_uom_code => p_primary_uom_code);
2145:
2146: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
2147: p_procedure_name => l_program_name,
2148: p_var_name => 'l_pri_unit_price',
2149: p_var_value => l_pri_unit_price);
2150:
2181: p_encoded => L_FND_FALSE,
2182: p_count => x_msg_count,
2183: p_data => x_msg_data) ;
2184: -- Standard End of Procedure/Function Logging
2185: INL_LOGGING_PVT.Log_EndProc (
2186: p_module_name => g_module_name,
2187: p_procedure_name => l_program_name) ;
2188: EXCEPTION
2189: WHEN L_FND_EXC_ERROR THEN
2187: p_procedure_name => l_program_name) ;
2188: EXCEPTION
2189: WHEN L_FND_EXC_ERROR THEN
2190: -- Standard Expected Error Logging
2191: INL_LOGGING_PVT.Log_ExpecError (
2192: p_module_name => g_module_name,
2193: p_procedure_name => l_program_name) ;
2194: ROLLBACK TO Check_PoTolerances_PVT;
2195: x_return_status := L_FND_RET_STS_ERROR;
2198: p_count => x_msg_count,
2199: p_data => x_msg_data) ;
2200: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2201: -- Standard Unexpected Error Logging
2202: INL_LOGGING_PVT.Log_UnexpecError (
2203: p_module_name => g_module_name,
2204: p_procedure_name => l_program_name) ;
2205: ROLLBACK TO Check_PoTolerances_PVT;
2206: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2209: p_count => x_msg_count,
2210: p_data => x_msg_data) ;
2211: WHEN OTHERS THEN
2212: -- Standard Unexpected Error Logging
2213: INL_LOGGING_PVT.Log_UnexpecError (
2214: p_module_name => g_module_name,
2215: p_procedure_name => l_program_name) ;
2216: ROLLBACK TO Check_PoTolerances_PVT;
2217: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
2290: l_return_validation_status VARCHAR2(30); -- SCM-051
2291: l_ship_status_code VARCHAR2(30);
2292: BEGIN
2293: -- Standard Beginning of Procedure/Function Logging
2294: INL_LOGGING_PVT.Log_BeginProc (
2295: p_module_name => g_module_name,
2296: p_procedure_name => l_program_name) ;
2297: -- Standard Start of API savepoint
2298: SAVEPOINT Check_PoTolerances_PVT;
2311: END IF;
2312: -- Initialize API return status to success
2313: x_return_status := L_FND_RET_STS_SUCCESS;
2314:
2315: INL_LOGGING_PVT.Log_Variable (
2316: p_module_name => g_module_name,
2317: p_procedure_name => l_program_name,
2318: p_var_name => 'p_ship_line_id: ',
2319: p_var_value => p_ship_line_id);
2316: p_module_name => g_module_name,
2317: p_procedure_name => l_program_name,
2318: p_var_name => 'p_ship_line_id: ',
2319: p_var_value => p_ship_line_id);
2320: INL_LOGGING_PVT.Log_Variable (
2321: p_module_name => g_module_name,
2322: p_procedure_name => l_program_name,
2323: p_var_name => 'p_ship_header_id: ',
2324: p_var_value => p_ship_header_id);
2321: p_module_name => g_module_name,
2322: p_procedure_name => l_program_name,
2323: p_var_name => 'p_ship_header_id: ',
2324: p_var_value => p_ship_header_id);
2325: INL_LOGGING_PVT.Log_Variable (
2326: p_module_name => g_module_name,
2327: p_procedure_name => l_program_name,
2328: p_var_name => 'p_ship_line_src_id: ',
2329: p_var_value => p_ship_line_src_id);
2329: p_var_value => p_ship_line_src_id);
2330:
2331:
2332: l_debug_info := 'Getting Shipment Status Code ';
2333: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2334: p_procedure_name => l_program_name,
2335: p_debug_info => l_debug_info);
2336: --SCM-051 Begin
2337: BEGIN
2348: IF l_ship_status_code <> 'COMPLETED' THEN
2349: --SCM-051 End
2350: -- Validate PO Quantity Available
2351: l_debug_info := 'Call Check_AvailableQty';
2352: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2353: p_procedure_name => l_program_name,
2354: p_debug_info => l_debug_info);
2355:
2356: Check_AvailableQty(p_primary_qty => p_primary_qty,
2383:
2384: IF x_msg_count = 0 THEN
2385: -- Validate PO Price Tolerance
2386: l_debug_info := 'Call Check_PoPriceTolerance';
2387: INL_LOGGING_PVT.Log_Statement (
2388: p_module_name => g_module_name,
2389: p_procedure_name => l_program_name,
2390: p_debug_info => l_debug_info) ;
2391: Check_PoPriceTolerance(
2419: p_encoded => L_FND_FALSE,
2420: p_count => x_msg_count,
2421: p_data => x_msg_data) ;
2422: -- Standard End of Procedure/Function Logging
2423: INL_LOGGING_PVT.Log_EndProc (
2424: p_module_name => g_module_name,
2425: p_procedure_name => l_program_name) ;
2426: EXCEPTION
2427: WHEN L_FND_EXC_ERROR THEN
2425: p_procedure_name => l_program_name) ;
2426: EXCEPTION
2427: WHEN L_FND_EXC_ERROR THEN
2428: -- Standard Expected Error Logging
2429: INL_LOGGING_PVT.Log_ExpecError (
2430: p_module_name => g_module_name,
2431: p_procedure_name => l_program_name) ;
2432: ROLLBACK TO Check_PoTolerances_PVT;
2433: x_return_status := L_FND_RET_STS_ERROR;
2436: p_count => x_msg_count,
2437: p_data => x_msg_data) ;
2438: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2439: -- Standard Unexpected Error Logging
2440: INL_LOGGING_PVT.Log_UnexpecError (
2441: p_module_name => g_module_name,
2442: p_procedure_name => l_program_name) ;
2443: ROLLBACK TO Check_PoTolerances_PVT;
2444: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2447: p_count => x_msg_count,
2448: p_data => x_msg_data) ;
2449: WHEN OTHERS THEN
2450: -- Standard Unexpected Error Logging
2451: INL_LOGGING_PVT.Log_UnexpecError (
2452: p_module_name => g_module_name,
2453: p_procedure_name => l_program_name) ;
2454: ROLLBACK TO Check_PoTolerances_PVT;
2455: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
2512: AND assoc.to_parent_table_id = p_to_parent_table_id
2513: ORDER BY cl.charge_line_num;
2514: l_ch_lines_rec c_ch_lines%ROWTYPE;
2515: BEGIN
2516: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2517: p_procedure_name => l_program_name) ;
2518: x_return_status := L_FND_RET_STS_SUCCESS;
2519: x_ch_line_tot_amt_func_curr := 0;
2520: FOR l_ch_lines_rec IN c_ch_lines
2519: x_ch_line_tot_amt_func_curr := 0;
2520: FOR l_ch_lines_rec IN c_ch_lines
2521: LOOP
2522: l_debug_info := 'Check Foreign Currency for Charge Line';
2523: INL_LOGGING_PVT.Log_Statement (
2524: p_module_name => g_module_name,
2525: p_procedure_name => l_program_name,
2526: p_debug_info => l_debug_info) ;
2527: IF l_ch_lines_rec.currency_code <> p_functional_currency_code AND p_foreign_currency_flag = 'N' THEN
2561: -- the flag l_ch_lines_rec.dflt_charge_amt_flag has been removed from table, and the original pkg
2562: -- fas been changed without the if clause, this is a temporarily wrk proc that will replace the actual
2563: x_ch_line_tot_amt_func_curr := x_ch_line_tot_amt_func_curr + NVL (l_ch_lines_rec.ch_line_amt_func_curr, 0) ;
2564: END LOOP;
2565: INL_LOGGING_PVT.Log_EndProc (
2566: p_module_name => g_module_name,
2567: p_procedure_name => l_program_name) ;
2568: EXCEPTION
2569: WHEN L_FND_EXC_ERROR THEN
2567: p_procedure_name => l_program_name) ;
2568: EXCEPTION
2569: WHEN L_FND_EXC_ERROR THEN
2570: -- Standard Expected Error Logging
2571: INL_LOGGING_PVT.Log_ExpecError (
2572: p_module_name => g_module_name,
2573: p_procedure_name => l_program_name) ;
2574: x_return_status := L_FND_RET_STS_ERROR;
2575: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2573: p_procedure_name => l_program_name) ;
2574: x_return_status := L_FND_RET_STS_ERROR;
2575: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2576: -- Standard Unexpected Error Logging
2577: INL_LOGGING_PVT.Log_UnexpecError (
2578: p_module_name => g_module_name,
2579: p_procedure_name => l_program_name) ;
2580: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2581: WHEN OTHERS THEN
2579: p_procedure_name => l_program_name) ;
2580: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2581: WHEN OTHERS THEN
2582: -- Standard Unexpected Error Logging
2583: INL_LOGGING_PVT.Log_UnexpecError (
2584: p_module_name => g_module_name,
2585: p_procedure_name => l_program_name) ;
2586: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2587: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2617: l_po_org_id NUMBER;
2618: l_lcm_org_name VARCHAR2(240);
2619: l_po_org_name VARCHAR2(240);
2620: BEGIN
2621: INL_LOGGING_PVT.Log_BeginProc (
2622: p_module_name => g_module_name,
2623: p_procedure_name => l_program_name);
2624: SELECT ish.org_id LCM_ORG_ID,
2625: ph.org_id PO_ORG_ID
2682: IF l_return_status <> L_FND_RET_STS_SUCCESS THEN
2683: RAISE L_FND_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685: END IF;
2686: INL_LOGGING_PVT.Log_EndProc (
2687: p_module_name => g_module_name,
2688: p_procedure_name => l_program_name) ;
2689: EXCEPTION
2690: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2688: p_procedure_name => l_program_name) ;
2689: EXCEPTION
2690: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2691: -- Standard Unexpected Error Logging
2692: INL_LOGGING_PVT.Log_UnexpecError (
2693: p_module_name => g_module_name,
2694: p_procedure_name => l_program_name) ;
2695: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2696: WHEN OTHERS THEN
2694: p_procedure_name => l_program_name) ;
2695: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2696: WHEN OTHERS THEN
2697: -- Standard Unexpected Error Logging
2698: INL_LOGGING_PVT.Log_UnexpecError (
2699: p_module_name => g_module_name,
2700: p_procedure_name => l_program_name) ;
2701: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2702: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2736: l_program_name VARCHAR2 (200) := 'Validate_ThirdPartyAllowed';
2737: l_return_status VARCHAR2 (1) := L_FND_RET_STS_SUCCESS;
2738: l_party_site_id NUMBER;
2739: BEGIN
2740: INL_LOGGING_PVT.Log_BeginProc (
2741: p_module_name => g_module_name,
2742: p_procedure_name => l_program_name);
2743: INL_LOGGING_PVT.Log_Variable (
2744: p_module_name => g_module_name,
2739: BEGIN
2740: INL_LOGGING_PVT.Log_BeginProc (
2741: p_module_name => g_module_name,
2742: p_procedure_name => l_program_name);
2743: INL_LOGGING_PVT.Log_Variable (
2744: p_module_name => g_module_name,
2745: p_procedure_name => l_program_name,
2746: p_var_name => 'p_ship_type_code: ',
2747: p_var_value => p_ship_type_code);
2744: p_module_name => g_module_name,
2745: p_procedure_name => l_program_name,
2746: p_var_name => 'p_ship_type_code: ',
2747: p_var_value => p_ship_type_code);
2748: INL_LOGGING_PVT.Log_Variable (
2749: p_module_name => g_module_name,
2750: p_procedure_name => l_program_name,
2751: p_var_name => 'p_party_site_id: ',
2752: p_var_value => p_party_site_id);
2749: p_module_name => g_module_name,
2750: p_procedure_name => l_program_name,
2751: p_var_name => 'p_party_site_id: ',
2752: p_var_value => p_party_site_id);
2753: INL_LOGGING_PVT.Log_Variable (
2754: p_module_name => g_module_name,
2755: p_procedure_name => l_program_name,
2756: p_var_name => 'p_taxation_country: ',
2757: p_var_value => p_taxation_country);
2754: p_module_name => g_module_name,
2755: p_procedure_name => l_program_name,
2756: p_var_name => 'p_taxation_country: ',
2757: p_var_value => p_taxation_country);
2758: INL_LOGGING_PVT.Log_Variable (
2759: p_module_name => g_module_name,
2760: p_procedure_name => l_program_name,
2761: p_var_name => 'p_third_parties_allowed: ',
2762: p_var_value => p_third_parties_allowed);
2808: IF l_return_status <> L_FND_RET_STS_SUCCESS THEN
2809: RAISE L_FND_EXC_UNEXPECTED_ERROR;
2810: END IF;
2811: END;
2812: INL_LOGGING_PVT.Log_EndProc (
2813: p_module_name => g_module_name,
2814: p_procedure_name => l_program_name) ;
2815: EXCEPTION
2816: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2814: p_procedure_name => l_program_name) ;
2815: EXCEPTION
2816: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
2817: -- Standard Unexpected Error Logging
2818: INL_LOGGING_PVT.Log_UnexpecError (
2819: p_module_name => g_module_name,
2820: p_procedure_name => l_program_name) ;
2821: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2822: WHEN OTHERS THEN
2820: p_procedure_name => l_program_name) ;
2821: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2822: WHEN OTHERS THEN
2823: -- Standard Unexpected Error Logging
2824: INL_LOGGING_PVT.Log_UnexpecError (
2825: p_module_name => g_module_name,
2826: p_procedure_name => l_program_name) ;
2827: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
2828: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2947: l_msg VARCHAR2(30);
2948: l_ln_num VARCHAR2(200);
2949: --Bug#13987019 end
2950: BEGIN
2951: INL_LOGGING_PVT.Log_BeginProc (
2952: p_module_name => g_module_name,
2953: p_procedure_name => l_program_name) ;
2954: x_return_status := L_FND_RET_STS_SUCCESS;
2955: INL_LOGGING_PVT.Log_Variable (
2951: INL_LOGGING_PVT.Log_BeginProc (
2952: p_module_name => g_module_name,
2953: p_procedure_name => l_program_name) ;
2954: x_return_status := L_FND_RET_STS_SUCCESS;
2955: INL_LOGGING_PVT.Log_Variable (
2956: p_module_name => g_module_name,
2957: p_procedure_name => l_program_name,
2958: p_var_name => 'p_ship_type_code',
2959: p_var_value => p_ship_type_code);
2956: p_module_name => g_module_name,
2957: p_procedure_name => l_program_name,
2958: p_var_name => 'p_ship_type_code',
2959: p_var_value => p_ship_type_code);
2960: INL_LOGGING_PVT.Log_Variable (
2961: p_module_name => g_module_name,
2962: p_procedure_name => l_program_name,
2963: p_var_name => 'p_ln_group_num',
2964: p_var_value => p_ln_group_num);
2961: p_module_name => g_module_name,
2962: p_procedure_name => l_program_name,
2963: p_var_name => 'p_ln_group_num',
2964: p_var_value => p_ln_group_num);
2965: INL_LOGGING_PVT.Log_Variable (
2966: p_module_name => g_module_name,
2967: p_procedure_name => l_program_name,
2968: p_var_name => 'p_ln_group_id',
2969: p_var_value => p_ln_group_id);
2966: p_module_name => g_module_name,
2967: p_procedure_name => l_program_name,
2968: p_var_name => 'p_ln_group_id',
2969: p_var_value => p_ln_group_id);
2970: INL_LOGGING_PVT.Log_Variable (
2971: p_module_name => g_module_name,
2972: p_procedure_name => l_program_name,
2973: p_var_name => 'p_group_reference',
2974: p_var_value => p_group_reference);
2971: p_module_name => g_module_name,
2972: p_procedure_name => l_program_name,
2973: p_var_name => 'p_group_reference',
2974: p_var_value => p_group_reference);
2975: INL_LOGGING_PVT.Log_Variable (
2976: p_module_name => g_module_name,
2977: p_procedure_name => l_program_name,
2978: p_var_name => 'p_party_id',
2979: p_var_value => p_party_id);
2976: p_module_name => g_module_name,
2977: p_procedure_name => l_program_name,
2978: p_var_name => 'p_party_id',
2979: p_var_value => p_party_id);
2980: INL_LOGGING_PVT.Log_Variable (
2981: p_module_name => g_module_name,
2982: p_procedure_name => l_program_name,
2983: p_var_name => 'p_party_site_id',
2984: p_var_value => p_party_site_id);
2981: p_module_name => g_module_name,
2982: p_procedure_name => l_program_name,
2983: p_var_name => 'p_party_site_id',
2984: p_var_value => p_party_site_id);
2985: INL_LOGGING_PVT.Log_Variable (
2986: p_module_name => g_module_name,
2987: p_procedure_name => l_program_name,
2988: p_var_name => 'p_party_site_name',
2989: p_var_value => p_party_site_name);
2986: p_module_name => g_module_name,
2987: p_procedure_name => l_program_name,
2988: p_var_name => 'p_party_site_name',
2989: p_var_value => p_party_site_name);
2990: INL_LOGGING_PVT.Log_Variable (
2991: p_module_name => g_module_name,
2992: p_procedure_name => l_program_name,
2993: p_var_name => 'p_taxation_country',
2994: p_var_value => p_taxation_country);
2991: p_module_name => g_module_name,
2992: p_procedure_name => l_program_name,
2993: p_var_name => 'p_taxation_country',
2994: p_var_value => p_taxation_country);
2995: INL_LOGGING_PVT.Log_Variable (
2996: p_module_name => g_module_name,
2997: p_procedure_name => l_program_name,
2998: p_var_name => 'p_third_parties_allowed',
2999: p_var_value => p_third_parties_allowed);
3005: FROM rcv_parameters
3006: WHERE organization_id = p_inv_org_id;
3007: -- /Bug 15956572
3008:
3009: INL_LOGGING_PVT.Log_Variable (
3010: p_module_name => g_module_name,
3011: p_procedure_name => l_program_name,
3012: p_var_name => 'l_pre_receive',
3013: p_var_value => l_pre_receive);
3013: p_var_value => l_pre_receive);
3014:
3015: IF (NVL (l_pre_receive, 'N') = 'Y') THEN -- Bug 15956572
3016: l_debug_info := 'Validate Third Party Allowed. Call Validate_ThirdPartyAllowed (Group)';
3017: INL_LOGGING_PVT.Log_Statement (
3018: p_module_name => g_module_name,
3019: p_procedure_name => l_program_name,
3020: p_debug_info => l_debug_info) ;
3021: Validate_ThirdPartySiteAllowed(
3038: END IF; -- Bug 15956572
3039:
3040: --Bug#13987019 BEG
3041: --Verifying the party and vendor of all lines (PO)
3042: INL_LOGGING_PVT.Log_Statement (
3043: p_module_name => g_module_name,
3044: p_procedure_name => l_program_name,
3045: p_debug_info => 'Verifying the party and vendor of all lines (PO)') ;
3046:
3047: OPEN c_sl_parties;
3048: FETCH c_sl_parties BULK COLLECT INTO l_sl_parties_lst;
3049: CLOSE c_sl_parties;
3050: l_debug_info := l_sl_parties_lst.LAST||' lines have been retrieved.';
3051: INL_LOGGING_PVT.Log_Statement (
3052: p_module_name => g_module_name,
3053: p_procedure_name => l_program_name,
3054: p_debug_info => l_debug_info
3055: ) ;
3055: ) ;
3056: IF NVL (l_sl_parties_lst.LAST, 0) > 0 THEN
3057: FOR i IN NVL (l_sl_parties_lst.FIRST, 0) ..NVL (l_sl_parties_lst.LAST, 0)
3058: LOOP
3059: INL_LOGGING_PVT.Log_Variable (
3060: p_module_name => g_module_name,
3061: p_procedure_name => l_program_name,
3062: p_var_name => 'l_sl_parties_lst(i)',
3063: p_var_value => i);
3103: IF l_sl_parties_lst(i).party_id <> NVL(l_prev_party_id,-1)
3104: THEN
3105: l_prev_party_id:= l_sl_parties_lst(i).party_id;
3106: -- Based on rcv_roi_header.validate_vendor_info CHECKING VENDOR BEG
3107: INL_LOGGING_PVT.Log_Statement (
3108: p_module_name => g_module_name,
3109: p_procedure_name => l_program_name,
3110: p_debug_info => 'Checking Vendor: '||l_sl_parties_lst(i).vendor_name) ;
3111:
3114: THEN
3115: l_vendor_record.error_record.error_status := 'E';
3116: l_vendor_record.error_record.error_message := 'TBD';
3117:
3118: INL_LOGGING_PVT.Log_Statement (
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_program_name,
3121: p_debug_info => 'Vendor ID and Vendor Name is null') ;
3122:
3126: l_vendor_record.vendor_id := l_sl_parties_lst(i).vendor_id;
3127: l_vendor_record.error_record.error_status := NULL;
3128: l_vendor_record.error_record.error_message := NULL;
3129:
3130: INL_LOGGING_PVT.Log_Variable (
3131: p_module_name => g_module_name,
3132: p_procedure_name => l_program_name,
3133: p_var_name => 'l_vendor_record.vendor_name',
3134: p_var_value => l_vendor_record.vendor_name);
3132: p_procedure_name => l_program_name,
3133: p_var_name => 'l_vendor_record.vendor_name',
3134: p_var_value => l_vendor_record.vendor_name);
3135:
3136: INL_LOGGING_PVT.Log_Variable (
3137: p_module_name => g_module_name,
3138: p_procedure_name => l_program_name,
3139: p_var_name => 'l_vendor_record.vendor_id',
3140: p_var_value => l_vendor_record.vendor_id);
3138: p_procedure_name => l_program_name,
3139: p_var_name => 'l_vendor_record.vendor_id',
3140: p_var_value => l_vendor_record.vendor_id);
3141:
3142: INL_LOGGING_PVT.Log_Statement (
3143: p_module_name => g_module_name,
3144: p_procedure_name => l_program_name,
3145: p_debug_info => 'Calling po_vendors_sv.validate_vendor_info') ;
3146:
3145: p_debug_info => 'Calling po_vendors_sv.validate_vendor_info') ;
3146:
3147: po_vendors_sv.validate_vendor_info(l_vendor_record);
3148:
3149: INL_LOGGING_PVT.Log_Variable (
3150: p_module_name => g_module_name,
3151: p_procedure_name => l_program_name,
3152: p_var_name => 'l_vendor_record.error_record.error_status',
3153: p_var_value => l_vendor_record.error_record.error_status);
3151: p_procedure_name => l_program_name,
3152: p_var_name => 'l_vendor_record.error_record.error_status',
3153: p_var_value => l_vendor_record.error_record.error_status);
3154:
3155: INL_LOGGING_PVT.Log_Variable (
3156: p_module_name => g_module_name,
3157: p_procedure_name => l_program_name,
3158: p_var_name => 'l_vendor_record.error_record.error_message',
3159: p_var_value => l_vendor_record.error_record.error_message);
3166: l_msg:= 'INL_ERR_CHK_VEN_HLD';
3167: ELSE -- 'VEN_ID','TOOMANYROWS'
3168: l_msg:= 'INL_ERR_CHK_VEN_INV';
3169: END IF;
3170: INL_LOGGING_PVT.Log_Variable (
3171: p_module_name => g_module_name,
3172: p_procedure_name => l_program_name,
3173: p_var_name => 'l_msg',
3174: p_var_value => l_msg);
3210: END IF;
3211: -- Based on rcv_roi_header.validate_vendor_info END
3212: -- Based on rcv_roi_header.validate_vendor_site_info: checking vendor site BEG
3213:
3214: INL_LOGGING_PVT.Log_Statement (
3215: p_module_name => g_module_name,
3216: p_procedure_name => l_program_name,
3217: p_debug_info => 'Checking Vendor Site: '||l_sl_parties_lst(i).vendor_site_code) ;
3218:
3217: p_debug_info => 'Checking Vendor Site: '||l_sl_parties_lst(i).vendor_site_code) ;
3218:
3219: IF l_sl_parties_lst(i).party_site_id <> p_party_site_id THEN
3220: l_debug_info := 'Validate Third Party Allowed (PO). Call Validate_ThirdPartyAllowed:'||l_sl_parties_lst(i).party_site_name;
3221: INL_LOGGING_PVT.Log_Statement (
3222: p_module_name => g_module_name,
3223: p_procedure_name => l_program_name,
3224: p_debug_info => l_debug_info) ;
3225: Validate_ThirdPartySiteAllowed(
3247: l_vendor_site_record.organization_id := NULL;
3248: l_vendor_site_record.error_record.error_status := NULL;
3249: l_vendor_site_record.error_record.error_message := NULL;
3250:
3251: INL_LOGGING_PVT.Log_Variable (
3252: p_module_name => g_module_name,
3253: p_procedure_name => l_program_name,
3254: p_var_name => 'l_vendor_site_record.vendor_site_id',
3255: p_var_value => l_vendor_site_record.vendor_site_id);
3253: p_procedure_name => l_program_name,
3254: p_var_name => 'l_vendor_site_record.vendor_site_id',
3255: p_var_value => l_vendor_site_record.vendor_site_id);
3256:
3257: INL_LOGGING_PVT.Log_Statement (
3258: p_module_name => g_module_name,
3259: p_procedure_name => l_program_name,
3260: p_debug_info => 'Calling po_vendor_sites_sv.validate_vendor_site_info') ;
3261:
3260: p_debug_info => 'Calling po_vendor_sites_sv.validate_vendor_site_info') ;
3261:
3262: po_vendor_sites_sv.validate_vendor_site_info(l_vendor_site_record);
3263:
3264: INL_LOGGING_PVT.Log_Variable (
3265: p_module_name => g_module_name,
3266: p_procedure_name => l_program_name,
3267: p_var_name => 'l_vendor_site_record.error_record.error_status',
3268: p_var_value => l_vendor_site_record.error_record.error_status);
3266: p_procedure_name => l_program_name,
3267: p_var_name => 'l_vendor_site_record.error_record.error_status',
3268: p_var_value => l_vendor_site_record.error_record.error_status);
3269:
3270: INL_LOGGING_PVT.Log_Variable (
3271: p_module_name => g_module_name,
3272: p_procedure_name => l_program_name,
3273: p_var_name => 'l_vendor_site_record.error_record.error_message',
3274: p_var_value => l_vendor_site_record.error_record.error_message);
3289: l_msg:= 'INL_ERR_CHK_VEN_SITE_NP';
3290: ELSE
3291: l_msg:= 'INL_ERR_CHK_VEN_SITE_INV';
3292: END IF;
3293: INL_LOGGING_PVT.Log_Variable (
3294: p_module_name => g_module_name,
3295: p_procedure_name => l_program_name,
3296: p_var_name => 'l_msg',
3297: p_var_value => l_msg);
3299: IF l_sl_parties_lst(i).how_many = 1 THEN
3300: l_ln_num:= l_sl_parties_lst(i).max_ship_line_num;
3301: ELSIF l_sl_parties_lst(i).how_many > 1 THEN
3302: --Getting the affected lines
3303: INL_LOGGING_PVT.Log_Statement (
3304: p_module_name => g_module_name,
3305: p_procedure_name => l_program_name,
3306: p_debug_info => 'Getting the affected lines') ;
3307:
3309: OPEN c_sl_num (l_sl_parties_lst(i).party_site_id);
3310: FETCH c_sl_num BULK COLLECT INTO l_sl_num_lst;
3311: CLOSE c_sl_num;
3312: l_debug_info := l_sl_num_lst.LAST||' lines have been retrieved.';
3313: INL_LOGGING_PVT.Log_Statement (
3314: p_module_name => g_module_name,
3315: p_procedure_name => l_program_name,
3316: p_debug_info => l_debug_info
3317: ) ;
3326: END LOOP;
3327: IF LENGTH(l_ln_num)>2 THEN
3328: l_ln_num:=SUBSTR(l_ln_num,1,LENGTH(l_ln_num)-1);
3329: END IF;
3330: INL_LOGGING_PVT.Log_Variable (
3331: p_module_name => g_module_name,
3332: p_procedure_name => l_program_name,
3333: p_var_name => 'l_ln_num',
3334: p_var_value => l_ln_num);
3378:
3379: END IF;
3380: END LOOP;
3381: END IF;
3382: INL_LOGGING_PVT.Log_EndProc (
3383: p_module_name => g_module_name,
3384: p_procedure_name => l_program_name) ;
3385: --Bug#13987019 END
3386: EXCEPTION
3385: --Bug#13987019 END
3386: EXCEPTION
3387: WHEN L_FND_EXC_ERROR THEN
3388: -- Standard Expected Error Logging
3389: INL_LOGGING_PVT.Log_ExpecError (
3390: p_module_name => g_module_name,
3391: p_procedure_name => l_program_name) ;
3392: x_return_status := L_FND_RET_STS_ERROR;
3393: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3391: p_procedure_name => l_program_name) ;
3392: x_return_status := L_FND_RET_STS_ERROR;
3393: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3394: -- Standard Unexpected Error Logging
3395: INL_LOGGING_PVT.Log_UnexpecError (
3396: p_module_name => g_module_name,
3397: p_procedure_name => l_program_name) ;
3398: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3399: WHEN OTHERS THEN
3397: p_procedure_name => l_program_name) ;
3398: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3399: WHEN OTHERS THEN
3400: -- Standard Unexpected Error Logging
3401: INL_LOGGING_PVT.Log_UnexpecError (
3402: p_module_name => g_module_name,
3403: p_procedure_name => l_program_name) ;
3404: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3405: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3442: l_return_status VARCHAR2 (1) := L_FND_RET_STS_SUCCESS;
3443:
3444: BEGIN
3445:
3446: INL_LOGGING_PVT.Log_BeginProc(
3447: p_module_name => g_module_name,
3448: p_procedure_name => l_program_name);
3449:
3450: x_return_status := L_FND_RET_STS_SUCCESS;
3448: p_procedure_name => l_program_name);
3449:
3450: x_return_status := L_FND_RET_STS_SUCCESS;
3451:
3452: INL_LOGGING_PVT.Log_Variable (
3453: p_module_name => g_module_name,
3454: p_procedure_name => l_program_name,
3455: p_var_name => 'p_ship_header_id',
3456: p_var_value => p_ship_header_id);
3454: p_procedure_name => l_program_name,
3455: p_var_name => 'p_ship_header_id',
3456: p_var_value => p_ship_header_id);
3457:
3458: INL_LOGGING_PVT.Log_Variable (
3459: p_module_name => g_module_name,
3460: p_procedure_name => l_program_name,
3461: p_var_name => 'p_ship_line_type_code',
3462: p_var_value => p_ship_line_type_code) ;
3460: p_procedure_name => l_program_name,
3461: p_var_name => 'p_ship_line_type_code',
3462: p_var_value => p_ship_line_type_code) ;
3463:
3464: INL_LOGGING_PVT.Log_Variable (
3465: p_module_name => g_module_name,
3466: p_procedure_name => l_program_name,
3467: p_var_name => 'p_ship_line_id',
3468: p_var_value => p_ship_line_id) ;
3466: p_procedure_name => l_program_name,
3467: p_var_name => 'p_ship_line_id',
3468: p_var_value => p_ship_line_id) ;
3469:
3470: INL_LOGGING_PVT.Log_Variable (
3471: p_module_name => g_module_name,
3472: p_procedure_name => l_program_name,
3473: p_var_name => 'p_alloc_enabled_flag',
3474: p_var_value => p_alloc_enabled_flag) ;
3481: WHERE ship_header_id = p_ship_header_id
3482: AND ia.from_parent_table_name = 'INL_SHIP_LINES'
3483: AND ia.from_parent_table_id = p_ship_line_id;
3484:
3485: INL_LOGGING_PVT.Log_Variable (
3486: p_module_name => g_module_name,
3487: p_procedure_name => l_program_name,
3488: p_var_name => 'l_count_associations',
3489: p_var_value => l_count_associations) ;
3520: x_return_status => l_return_status);
3521: END IF;
3522: END IF;
3523:
3524: INL_LOGGING_PVT.Log_EndProc (
3525: p_module_name => g_module_name,
3526: p_procedure_name => l_program_name) ;
3527: EXCEPTION
3528: WHEN L_FND_EXC_ERROR THEN
3608: AND ol.ship_line_group_id = p_ln_group_id
3609: ORDER BY ol.ship_line_num;
3610: l_ship_lines_rec c_ship_lines%ROWTYPE;
3611: BEGIN
3612: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
3613: p_procedure_name => l_program_name) ;
3614: x_return_status := L_FND_RET_STS_SUCCESS;
3615: FOR l_ship_lines_rec IN c_ship_lines
3616: LOOP
3614: x_return_status := L_FND_RET_STS_SUCCESS;
3615: FOR l_ship_lines_rec IN c_ship_lines
3616: LOOP
3617: l_debug_info := 'Validate Charge Line. Call Validate_ChargeLine';
3618: INL_LOGGING_PVT.Log_Statement (
3619: p_module_name => g_module_name,
3620: p_procedure_name => l_program_name,
3621: p_debug_info => l_debug_info) ;
3622: Validate_ChargeLine (
3636: x_return_status := l_return_status;
3637: RAISE L_FND_EXC_UNEXPECTED_ERROR;
3638: END IF;
3639: l_debug_info := 'Getting which scenartio is setup in RCV Parameters. Pre_Receive or BlackBox';
3640: INL_LOGGING_PVT.Log_Statement (
3641: p_module_name => g_module_name,
3642: p_procedure_name => l_program_name,
3643: p_debug_info => l_debug_info) ;
3644: SELECT pre_receive
3647: WHERE organization_id = p_organization_id;
3648:
3649: -- Bug 13401780 starts here - Added code to validate if the PO line is CLOSED FOR RECEIVING or NOT
3650:
3651: INL_LOGGING_PVT.Log_Variable (
3652: p_module_name => g_module_name,
3653: p_procedure_name => l_program_name,
3654: p_var_name => 'Profile Option - RCV_CLOSED_PO_DEFAULT_OPTION',
3655: p_var_value => FND_PROFILE.VALUE('RCV_CLOSED_PO_DEFAULT_OPTION')) ;
3658: INTO l_closed_code
3659: FROM po_line_locations pll
3660: WHERE pll.line_location_id= l_ship_lines_rec.ship_line_source_id;
3661:
3662: INL_LOGGING_PVT.Log_Variable (
3663: p_module_name => g_module_name,
3664: p_procedure_name => l_program_name,
3665: p_var_name => 'l_closed_code',
3666: p_var_value => l_closed_code) ;
3674: WHERE isl.ship_line_group_id=islg.ship_line_group_id
3675: AND isl.ship_line_id = l_ship_lines_rec.ship_line_id
3676: AND isl.ship_header_id = p_ship_header_id;
3677:
3678: INL_LOGGING_PVT.Log_Variable (
3679: p_module_name => g_module_name,
3680: p_procedure_name => l_program_name,
3681: p_var_name => 'l_ship_line_num',
3682: p_var_value => l_ship_line_num) ;
3680: p_procedure_name => l_program_name,
3681: p_var_name => 'l_ship_line_num',
3682: p_var_value => l_ship_line_num) ;
3683:
3684: INL_LOGGING_PVT.Log_Variable (
3685: p_module_name => g_module_name,
3686: p_procedure_name => l_program_name,
3687: p_var_name => 'l_ship_ln_grp_num',
3688: p_var_value => l_ship_ln_grp_num) ;
3692: FND_MESSAGE.SET_TOKEN ('SHIPLN_NUM', l_ship_line_num) ;
3693: FND_MSG_PUB.ADD;
3694: l_debug_info := 'Line Location is not in OPEN status';
3695:
3696: INL_LOGGING_PVT.Log_Statement (
3697: p_module_name => g_pkg_name,
3698: p_procedure_name => l_program_name,
3699: p_debug_info => l_debug_info) ;
3700: INL_LOGGING_PVT.Log_Variable (
3696: INL_LOGGING_PVT.Log_Statement (
3697: p_module_name => g_pkg_name,
3698: p_procedure_name => l_program_name,
3699: p_debug_info => l_debug_info) ;
3700: INL_LOGGING_PVT.Log_Variable (
3701: p_module_name => g_module_name,
3702: p_procedure_name => l_program_name,
3703: p_var_name => 'l_ship_lines_rec.ship_line_source_id',
3704: p_var_value => l_ship_lines_rec.ship_line_source_id) ;
3739: -- In Blackbox, RCV handles this validation
3740: IF (NVL (l_pre_receive, 'N') = 'Y') THEN
3741: IF p_rcv_enabled_flag = 'Y' THEN
3742: l_debug_info := 'Call to Check_AvailableQty';
3743: INL_LOGGING_PVT.Log_Statement (
3744: p_module_name => g_module_name,
3745: p_procedure_name => l_program_name,
3746: p_debug_info => l_debug_info) ;
3747: Check_AvailableQty (
3770:
3771: IF l_ship_lines_rec.ship_line_src_type_code = 'PO' THEN
3772:
3773: l_debug_info := 'Call to Validate_SrcOperatingUnit';
3774: INL_LOGGING_PVT.Log_Statement (
3775: p_module_name => g_module_name,
3776: p_procedure_name => l_program_name,
3777: p_debug_info => l_debug_info) ;
3778: Validate_SrcOperatingUnit(
3793: -- Required validation only for Source Type Code = PO
3794: IF l_ship_lines_rec.ship_line_src_type_code = 'PO' AND
3795: p_rcv_enabled_flag = 'Y' THEN
3796: l_debug_info := 'Call Check_PoPriceTolerance';
3797: INL_LOGGING_PVT.Log_Statement (
3798: p_module_name => g_module_name,
3799: p_procedure_name => l_program_name,
3800: p_debug_info => l_debug_info) ;
3801: Check_PoPriceTolerance (
3834: -- Bug #8928896
3835: -- Check associations when allocation enabled flag is disabled
3836: /*IF NVL(l_ship_lines_rec.dflt_allocation_enabled_flag, 'N') = 'N' THEN
3837: l_debug_info := 'Call Validate_AllocEnabledFlag';
3838: INL_LOGGING_PVT.Log_Statement (
3839: p_module_name => g_module_name,
3840: p_procedure_name => l_program_name,
3841: p_debug_info => l_debug_info) ;
3842: Validate_AllocEnabledFlag (
3858: END IF;*/
3859: -- Bug /#8928896
3860:
3861: END LOOP;
3862: INL_LOGGING_PVT.Log_EndProc (
3863: p_module_name => g_module_name,
3864: p_procedure_name => l_program_name) ;
3865: EXCEPTION
3866: WHEN L_FND_EXC_ERROR THEN
3864: p_procedure_name => l_program_name) ;
3865: EXCEPTION
3866: WHEN L_FND_EXC_ERROR THEN
3867: -- Standard Expected Error Logging
3868: INL_LOGGING_PVT.Log_ExpecError (
3869: p_module_name => g_module_name,
3870: p_procedure_name => l_program_name) ;
3871: x_return_status := L_FND_RET_STS_ERROR;
3872: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3870: p_procedure_name => l_program_name) ;
3871: x_return_status := L_FND_RET_STS_ERROR;
3872: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
3873: -- Standard Unexpected Error Logging
3874: INL_LOGGING_PVT.Log_UnexpecError (
3875: p_module_name => g_module_name,
3876: p_procedure_name => l_program_name) ;
3877: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3878: WHEN OTHERS THEN
3876: p_procedure_name => l_program_name) ;
3877: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3878: WHEN OTHERS THEN
3879: -- Standard Unexpected Error Logging
3880: INL_LOGGING_PVT.Log_UnexpecError (
3881: p_module_name => g_module_name,
3882: p_procedure_name => l_program_name) ;
3883: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
3884: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3934: WHERE hps.party_site_id = lg.party_site_id
3935: AND ship_header_id = p_ship_header_id
3936: ORDER BY ship_line_group_num;
3937: BEGIN
3938: INL_LOGGING_PVT.Log_BeginProc (
3939: p_module_name => g_module_name,
3940: p_procedure_name => l_program_name) ;
3941: x_return_status := L_FND_RET_STS_SUCCESS;
3942: l_debug_info := 'Get Shipment Header and Shipment Type information';
3939: p_module_name => g_module_name,
3940: p_procedure_name => l_program_name) ;
3941: x_return_status := L_FND_RET_STS_SUCCESS;
3942: l_debug_info := 'Get Shipment Header and Shipment Type information';
3943: INL_LOGGING_PVT.Log_Statement (
3944: p_module_name => g_module_name,
3945: p_procedure_name => l_program_name,
3946: p_debug_info => l_debug_info) ;
3947: SELECT shipt.ship_type_id,
3980:
3981: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_RCV_SHIP_DATE') ;
3982: FND_MSG_PUB.ADD;
3983: l_debug_info := 'Shipment date greater than current date.';
3984: INL_LOGGING_PVT.Log_Statement (
3985: p_module_name => g_pkg_name,
3986: p_procedure_name => l_program_name,
3987: p_debug_info => l_debug_info) ;
3988: INL_LOGGING_PVT.Log_Variable (
3984: INL_LOGGING_PVT.Log_Statement (
3985: p_module_name => g_pkg_name,
3986: p_procedure_name => l_program_name,
3987: p_debug_info => l_debug_info) ;
3988: INL_LOGGING_PVT.Log_Variable (
3989: p_module_name => g_module_name,
3990: p_procedure_name => l_program_name,
3991: p_var_name => 'l_ship_date',
3992: p_var_value => TO_CHAR (l_ship_date)) ;
4023: --Bug#9836174 END
4024:
4025: END IF;
4026: l_debug_info := 'Get Set of Books by a given Inventory Organization';
4027: INL_LOGGING_PVT.Log_Statement (
4028: p_module_name => g_module_name,
4029: p_procedure_name => l_program_name,
4030: p_debug_info => l_debug_info) ;
4031: SELECT set_of_books_id
4032: INTO l_sob_id
4033: FROM org_organization_definitions ood
4034: WHERE organization_id = l_inv_org_id;
4035: l_debug_info := 'Check Shipment Date against the Inventory Open Period';
4036: INL_LOGGING_PVT.Log_Statement (
4037: p_module_name => g_module_name,
4038: p_procedure_name => l_program_name,
4039: p_debug_info => l_debug_info) ;
4040: IF l_rcv_enabled_flag = 'Y' THEN
4047: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_INV_SHIP_DATE') ;
4048: FND_MESSAGE.SET_TOKEN ('SHIP_DATE', TO_CHAR (l_ship_date)) ;
4049: FND_MSG_PUB.ADD;
4050: l_debug_info := 'Transaction period is not open in Inventory.';
4051: INL_LOGGING_PVT.Log_Statement (
4052: p_module_name => g_pkg_name,
4053: p_procedure_name => l_program_name,
4054: p_debug_info => l_debug_info) ;
4055: INL_LOGGING_PVT.Log_Variable (
4051: INL_LOGGING_PVT.Log_Statement (
4052: p_module_name => g_pkg_name,
4053: p_procedure_name => l_program_name,
4054: p_debug_info => l_debug_info) ;
4055: INL_LOGGING_PVT.Log_Variable (
4056: p_module_name => g_module_name,
4057: p_procedure_name => l_program_name,
4058: p_var_name => 'l_ship_date',
4059: p_var_value => TO_CHAR (l_ship_date)) ;
4089: END IF;
4090: END IF;
4091:
4092: l_debug_info := 'Check if the current Shipment has Shipment Lines for each Group';
4093: INL_LOGGING_PVT.Log_Statement (
4094: p_module_name => g_module_name,
4095: p_procedure_name => l_program_name,
4096: p_debug_info => l_debug_info) ;
4097: IF (NOT Has_ShipLine (p_ship_header_id, l_group_line_num)) THEN -- Bug #12630218
4162: END IF;
4163: END IF;
4164: ELSIF l_in_adjust_flag = 'N' THEN
4165: l_debug_info := 'Get the functional currency code';
4166: INL_LOGGING_PVT.Log_Statement (
4167: p_module_name => g_pkg_name,
4168: p_procedure_name => l_program_name,
4169: p_debug_info => l_debug_info) ;
4170: SELECT gsb.currency_code
4173: gl_sets_of_books gsb
4174: WHERE gsb.set_of_books_id = ood.set_of_books_id
4175: AND organization_id = l_inv_org_id;
4176: l_debug_info := 'Get Country from Location';
4177: INL_LOGGING_PVT.Log_Statement (
4178: p_module_name => g_module_name,
4179: p_procedure_name => l_program_name,
4180: p_debug_info => l_debug_info) ;
4181: SELECT country
4184: WHERE location_id = l_location_id;
4185: FOR l_ln_group_rec IN c_ln_group
4186: LOOP
4187: l_debug_info := 'Call Validate_LineGroup';
4188: INL_LOGGING_PVT.Log_Statement (
4189: p_module_name => g_module_name,
4190: p_procedure_name => l_program_name,
4191: p_debug_info => l_debug_info) ;
4192: Validate_LineGroup(
4203: p_third_parties_allowed => l_shipt_third_parties_allowed,
4204: x_return_status => l_return_status);
4205: -- /Bug #8271690
4206: l_debug_info := 'Call Validate_ShipLine';
4207: INL_LOGGING_PVT.Log_Statement (
4208: p_module_name => g_module_name,
4209: p_procedure_name => l_program_name,
4210: p_debug_info => l_debug_info) ;
4211: Validate_ShipLine (
4230: END IF;
4231: EXCEPTION
4232: WHEN L_FND_EXC_ERROR THEN
4233: -- Standard Expected Error Logging
4234: INL_LOGGING_PVT.Log_ExpecError (
4235: p_module_name => g_module_name,
4236: p_procedure_name => l_program_name) ;
4237: x_return_status := L_FND_RET_STS_ERROR;
4238: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4236: p_procedure_name => l_program_name) ;
4237: x_return_status := L_FND_RET_STS_ERROR;
4238: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4239: -- Standard Unexpected Error Logging
4240: INL_LOGGING_PVT.Log_UnexpecError (
4241: p_module_name => g_module_name,
4242: p_procedure_name => l_program_name) ;
4243: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4244: WHEN OTHERS THEN
4242: p_procedure_name => l_program_name) ;
4243: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4244: WHEN OTHERS THEN
4245: -- Standard Unexpected Error Logging
4246: INL_LOGGING_PVT.Log_UnexpecError (
4247: p_module_name => g_module_name,
4248: p_procedure_name => l_program_name) ;
4249: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4250: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4281: l_debug_info VARCHAR2 (400) ;
4282: BEGIN
4283: l_trx_date := TO_DATE (x_trx_date, 'YYYY-MM-DD') ;
4284: -- the x_return_status parameter mustn't been reseted
4285: INL_LOGGING_PVT.Log_BeginProc (
4286: p_module_name => g_module_name,
4287: p_procedure_name => l_program_name) ;
4288: -- information about the input parameters
4289: INL_LOGGING_PVT.Log_APICallIn (
4285: INL_LOGGING_PVT.Log_BeginProc (
4286: p_module_name => g_module_name,
4287: p_procedure_name => l_program_name) ;
4288: -- information about the input parameters
4289: INL_LOGGING_PVT.Log_APICallIn (
4290: p_module_name => g_module_name,
4291: p_procedure_name => l_program_name,
4292: p_call_api_name => 'po_dates_s.val_open_period',
4293: p_in_param_name1 => 'x_trx_date',
4310: ELSE
4311: l_boolean_to_char := 'FALSE';
4312: END IF;
4313: -- information about the respose
4314: INL_LOGGING_PVT.Log_APICallIn (
4315: p_module_name => g_module_name,
4316: p_procedure_name => l_program_name,
4317: p_call_api_name => 'po_dates_s.val_open_period',
4318: p_in_param_name1 => 'l_boolean_to_char',
4316: p_procedure_name => l_program_name,
4317: p_call_api_name => 'po_dates_s.val_open_period',
4318: p_in_param_name1 => 'l_boolean_to_char',
4319: p_in_param_value1 => l_boolean_to_char) ;
4320: INL_LOGGING_PVT.Log_EndProc (
4321: p_module_name => g_module_name,
4322: p_procedure_name => l_program_name) ;
4323: RETURN l_boolean_to_char;
4324: EXCEPTION
4323: RETURN l_boolean_to_char;
4324: EXCEPTION
4325: WHEN L_FND_EXC_ERROR THEN
4326: -- Standard Expected Error Logging
4327: INL_LOGGING_PVT.Log_ExpecError (
4328: p_module_name => g_module_name,
4329: p_procedure_name => l_program_name) ;
4330: x_return_status := L_FND_RET_STS_ERROR;
4331: RETURN 'FALSE';
4330: x_return_status := L_FND_RET_STS_ERROR;
4331: RETURN 'FALSE';
4332: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4333: -- Standard Unexpected Error Logging
4334: INL_LOGGING_PVT.Log_UnexpecError (
4335: p_module_name => g_module_name,
4336: p_procedure_name => l_program_name) ;
4337: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4338: RETURN 'FALSE';
4337: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4338: RETURN 'FALSE';
4339: WHEN OTHERS THEN
4340: -- Standard Unexpected Error Logging
4341: INL_LOGGING_PVT.Log_UnexpecError (
4342: p_module_name => g_module_name,
4343: p_procedure_name => l_program_name) ;
4344: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4345: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4386: l_exist_event VARCHAR2 (5) ;
4387: l_exist_status NUMBER := 0;
4388: l_debug_info VARCHAR2 (200);
4389: BEGIN
4390: INL_LOGGING_PVT.Log_BeginProc (
4391: p_module_name => g_module_name,
4392: p_procedure_name => l_api_name) ;
4393: -- Standard Start of API savepoint
4394: SAVEPOINT Validate_Shipment_PVT;
4407: END IF;
4408: -- Initialize API return status to success
4409: x_return_status := L_FND_RET_STS_SUCCESS;
4410: l_debug_info := 'Reset errors in inl_ship_holds table';
4411: INL_LOGGING_PVT.Log_Statement (
4412: p_module_name => g_module_name,
4413: p_procedure_name => l_api_name,
4414: p_debug_info => l_debug_info
4415: ) ;
4426: x_return_status := l_return_status;
4427: RAISE L_FND_EXC_UNEXPECTED_ERROR;
4428: END IF;
4429: l_debug_info := 'Shipment Header validation';
4430: INL_LOGGING_PVT.Log_Statement (
4431: p_module_name => g_pkg_name,
4432: p_procedure_name => l_api_name,
4433: p_debug_info => l_debug_info) ;
4434: Validate_ShipHdr (
4443: x_return_status := l_return_status;
4444: RAISE L_FND_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: l_debug_info := 'fnd_msg_pub.count_msg';
4447: INL_LOGGING_PVT.Log_Variable (
4448: p_module_name => g_module_name,
4449: p_procedure_name => l_api_name,
4450: p_var_name => 'fnd_msg_pub.count_msg',
4451: p_var_value => TO_CHAR (fnd_msg_pub.count_msg)) ;
4455: FROM inl_ship_headers
4456: WHERE ship_header_id = p_ship_header_id;
4457: IF l_ship_status <> 'COMPLETED' THEN
4458: l_debug_info := 'Update INL_SHIP_HEADERS_ALL.ship_status_code to VALIDATED';
4459: INL_LOGGING_PVT.Log_Statement (
4460: p_module_name => g_module_name,
4461: p_procedure_name => l_api_name,
4462: p_debug_info => l_debug_info) ;
4463: UPDATE inl_ship_headers
4467: WHERE ship_header_id = p_ship_header_id;
4468: END IF;
4469: ELSE
4470: l_debug_info := 'Update INL_SHIP_HEADERS_ALL.ship_status_code to ON HOLD';
4471: INL_LOGGING_PVT.Log_Statement (
4472: p_module_name => g_module_name,
4473: p_procedure_name => l_api_name,
4474: p_debug_info => l_debug_info) ;
4475: UPDATE inl_ship_headers
4486: FND_MSG_PUB.Count_And_Get (
4487: p_encoded => L_FND_FALSE,
4488: p_count => x_msg_count,
4489: p_data => x_msg_data) ;
4490: INL_LOGGING_PVT.Log_EndProc (
4491: p_module_name => g_module_name,
4492: p_procedure_name => l_api_name) ;
4493: EXCEPTION
4494: WHEN L_FND_EXC_ERROR THEN
4491: p_module_name => g_module_name,
4492: p_procedure_name => l_api_name) ;
4493: EXCEPTION
4494: WHEN L_FND_EXC_ERROR THEN
4495: INL_LOGGING_PVT.Log_ExpecError (
4496: p_module_name => g_module_name,
4497: p_procedure_name => l_api_name) ;
4498: ROLLBACK TO Validate_Shipment_PVT;
4499: x_return_status := L_FND_RET_STS_ERROR;
4501: p_encoded => L_FND_FALSE,
4502: p_count => x_msg_count,
4503: p_data => x_msg_data) ;
4504: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4505: INL_LOGGING_PVT.Log_UnexpecError (
4506: p_module_name => g_module_name,
4507: p_procedure_name => l_api_name) ;
4508: ROLLBACK TO Validate_Shipment_PVT;
4509: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4511: p_encoded => L_FND_FALSE,
4512: p_count => x_msg_count,
4513: p_data => x_msg_data) ;
4514: WHEN OTHERS THEN
4515: INL_LOGGING_PVT.Log_UnexpecError (
4516: p_module_name => g_module_name,
4517: p_procedure_name => l_api_name) ;
4518: ROLLBACK TO Validate_Shipment_PVT;
4519: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
4551: l_return_status VARCHAR2 (1) ;
4552: l_debug_info VARCHAR2 (200) ;
4553: BEGIN
4554: -- Standard Beginning of Procedure/Function Logging
4555: INL_LOGGING_PVT.Log_BeginProc (
4556: p_module_name => g_module_name,
4557: p_procedure_name => l_program_name) ;
4558: -- Initialize return status to success
4559: x_return_status := L_FND_RET_STS_SUCCESS;
4557: p_procedure_name => l_program_name) ;
4558: -- Initialize return status to success
4559: x_return_status := L_FND_RET_STS_SUCCESS;
4560: l_debug_info := 'Insert in inl_associations.';
4561: INL_LOGGING_PVT.Log_Statement (
4562: p_module_name => g_module_name,
4563: p_procedure_name => l_program_name,
4564: p_debug_info => l_debug_info) ;
4565:
4562: p_module_name => g_module_name,
4563: p_procedure_name => l_program_name,
4564: p_debug_info => l_debug_info) ;
4565:
4566: INL_LOGGING_PVT.Log_Variable (
4567: p_module_name => g_module_name,
4568: p_procedure_name => l_program_name,
4569: p_var_name => 'p_new_line_id',
4570: p_var_value => p_new_line_id) ;
4618: last_update_login = l_fnd_login_id --SCM-051
4619: WHERE association_id = p_Assoc.association_id
4620: ;
4621: END IF;
4622: INL_LOGGING_PVT.Log_Statement (
4623: p_module_name => g_module_name,
4624: p_procedure_name => l_program_name,
4625: p_debug_info => l_debug_info) ;
4626: INL_LOGGING_PVT.Log_Variable (
4622: INL_LOGGING_PVT.Log_Statement (
4623: p_module_name => g_module_name,
4624: p_procedure_name => l_program_name,
4625: p_debug_info => l_debug_info) ;
4626: INL_LOGGING_PVT.Log_Variable (
4627: p_module_name => g_module_name,
4628: p_procedure_name => l_program_name,
4629: p_var_name => 'p_new_line_id',
4630: p_var_value => p_new_line_id) ;
4628: p_procedure_name => l_program_name,
4629: p_var_name => 'p_new_line_id',
4630: p_var_value => p_new_line_id) ;
4631: -- Standard End of Procedure/Function Logging
4632: INL_LOGGING_PVT.Log_EndProc(
4633: p_module_name => g_module_name,
4634: p_procedure_name => l_program_name
4635: );
4636: EXCEPTION
4635: );
4636: EXCEPTION
4637: WHEN L_FND_EXC_ERROR THEN
4638: -- Standard Expected Error Logging
4639: INL_LOGGING_PVT.Log_ExpecError(
4640: p_module_name => g_module_name,
4641: p_procedure_name => l_program_name
4642: );
4643: x_return_status := L_FND_RET_STS_ERROR;
4642: );
4643: x_return_status := L_FND_RET_STS_ERROR;
4644: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4645: -- Standard Unexpected Error Logging
4646: INL_LOGGING_PVT.Log_UnexpecError(
4647: p_module_name => g_module_name,
4648: p_procedure_name => l_program_name
4649: );
4650: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4649: );
4650: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4651: WHEN OTHERS THEN
4652: -- Standard Unexpected Error Logging
4653: INL_LOGGING_PVT.Log_UnexpecError(
4654: p_module_name => g_module_name,
4655: p_procedure_name => l_program_name
4656: );
4657: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
4692: l_tax_line_num NUMBER;
4693: l_adjustment_num NUMBER;
4694: BEGIN
4695: -- Standard Beginning of Procedure/Function Logging
4696: INL_LOGGING_PVT.Log_BeginProc (
4697: p_module_name => g_module_name,
4698: p_procedure_name => l_program_name
4699: );
4700: -- Initialize return status to success
4703: -- Get Max val to tax line num
4704: --
4705: IF p_TxLn_Assoc.tax_line_num IS NULL THEN
4706: l_debug_info := 'Get Max val from tax line num';
4707: INL_LOGGING_PVT.Log_Statement(
4708: p_module_name => g_module_name,
4709: p_procedure_name=> l_program_name,
4710: p_debug_info => l_debug_info
4711: )
4726: ELSE
4727: l_debug_info := 'Set l_adjustment_num to p_TxLn_Assoc.adjustment_num';
4728: l_adjustment_num := p_TxLn_Assoc.adjustment_num;
4729: END IF;
4730: INL_LOGGING_PVT.Log_Statement (
4731: p_module_name => g_module_name,
4732: p_procedure_name => l_program_name,
4733: p_debug_info => l_debug_info) ;
4734: --
4734: --
4735: -- Get inl_tax_lines_s.nextval
4736: --
4737: l_debug_info := 'Get inl_tax_lines_s.nextval';
4738: INL_LOGGING_PVT.Log_Statement (
4739: p_module_name => g_module_name,
4740: p_procedure_name => l_program_name,
4741: p_debug_info => l_debug_info
4742: ) ;
4746: --
4747: -- include Tax Line record
4748: --
4749: l_debug_info := 'Including Tax Line record ';
4750: INL_LOGGING_PVT.Log_Statement (
4751: p_module_name => g_module_name,
4752: p_procedure_name => l_program_name,
4753: p_debug_info => l_debug_info) ;
4754: INSERT
4815: RAISE L_FND_EXC_UNEXPECTED_ERROR;
4816: END IF;
4817: END IF;
4818: -- Standard End of Procedure/Function Logging
4819: INL_LOGGING_PVT.Log_EndProc(
4820: p_module_name => g_module_name,
4821: p_procedure_name => l_program_name
4822: );
4823: EXCEPTION
4822: );
4823: EXCEPTION
4824: WHEN L_FND_EXC_ERROR THEN
4825: -- Standard Expected Error Logging
4826: INL_LOGGING_PVT.Log_ExpecError(
4827: p_module_name => g_module_name,
4828: p_procedure_name => l_program_name
4829: );
4830: x_return_status := L_FND_RET_STS_ERROR;
4829: );
4830: x_return_status := L_FND_RET_STS_ERROR;
4831: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
4832: -- Standard Unexpected Error Logging
4833: INL_LOGGING_PVT.Log_UnexpecError(
4834: p_module_name => g_module_name,
4835: p_procedure_name => l_program_name
4836: );
4837: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4836: );
4837: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
4838: WHEN OTHERS THEN
4839: -- Standard Unexpected Error Logging
4840: INL_LOGGING_PVT.Log_UnexpecError(
4841: p_module_name => g_module_name,
4842: p_procedure_name => l_program_name
4843: );
4844: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
4961: l_TxLn_Assoc inl_TxLn_Assoc_tp;
4962: l_new_tax_line_id NUMBER;
4963: BEGIN
4964: -- Standard Beginning of Procedure/Function Logging
4965: INL_LOGGING_PVT.Log_BeginProc (
4966: p_module_name => g_module_name,
4967: p_procedure_name => l_program_name
4968: );
4969: -- Initialize return status to success
4968: );
4969: -- Initialize return status to success
4970: x_return_status := L_FND_RET_STS_SUCCESS;
4971:
4972: INL_LOGGING_PVT.Log_Variable (
4973: p_module_name => g_module_name,
4974: p_procedure_name => l_program_name,
4975: p_var_name => 'p_prev_adjustment_num',
4976: p_var_value => p_prev_adjustment_num
4975: p_var_name => 'p_prev_adjustment_num',
4976: p_var_value => p_prev_adjustment_num
4977: );
4978:
4979: INL_LOGGING_PVT.Log_Variable (
4980: p_module_name => g_module_name,
4981: p_procedure_name => l_program_name,
4982: p_var_name => 'p_comp_name',
4983: p_var_value => p_comp_name
4981: p_procedure_name => l_program_name,
4982: p_var_name => 'p_comp_name',
4983: p_var_value => p_comp_name
4984: );
4985: INL_LOGGING_PVT.Log_Variable (
4986: p_module_name => g_module_name,
4987: p_procedure_name => l_program_name,
4988: p_var_name => 'p_comp_id',
4989: p_var_value => p_comp_id
4989: p_var_value => p_comp_id
4990: );
4991:
4992: l_debug_info := 'Getting existent estimated TaxLine.';
4993: INL_LOGGING_PVT.Log_Statement (
4994: p_module_name => g_module_name,
4995: p_procedure_name => l_program_name,
4996: p_debug_info => l_debug_info
4997: ) ;
4998: OPEN estimated_TL;
4999: FETCH estimated_TL BULK COLLECT INTO C_est_TL;
5000: CLOSE estimated_TL;
5001: l_debug_info := C_est_TL.LAST||' lines have been retrieved.';
5002: INL_LOGGING_PVT.Log_Statement (
5003: p_module_name => g_module_name,
5004: p_procedure_name => l_program_name,
5005: p_debug_info => l_debug_info
5006: ) ;
5027: l_TxLn_Assoc.currency_conversion_rate := C_est_TL (i) .currency_conversion_rate;
5028: l_TxLn_Assoc.tax_amt_included_flag := C_est_TL (i) .tax_amt_included_flag;
5029: -- Create_TxLines
5030: l_debug_info := 'Estimated Tax line found new with 0.';
5031: INL_LOGGING_PVT.Log_Statement (
5032: p_module_name => g_module_name,
5033: p_procedure_name => l_program_name,
5034: p_debug_info => l_debug_info
5035: ) ;
5047: END IF;
5048: END LOOP;
5049: END IF;
5050: -- Standard End of Procedure/Function Logging
5051: INL_LOGGING_PVT.Log_EndProc (
5052: p_module_name => g_module_name,
5053: p_procedure_name => l_program_name
5054: ) ;
5055: EXCEPTION
5054: ) ;
5055: EXCEPTION
5056: WHEN L_FND_EXC_ERROR THEN
5057: -- Standard Expected Error Logging
5058: INL_LOGGING_PVT.Log_ExpecError (
5059: p_module_name => g_module_name,
5060: p_procedure_name => l_program_name
5061: ) ;
5062: x_return_status := L_FND_RET_STS_ERROR;
5061: ) ;
5062: x_return_status := L_FND_RET_STS_ERROR;
5063: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
5064: -- Standard Unexpected Error Logging
5065: INL_LOGGING_PVT.Log_UnexpecError (
5066: p_module_name => g_module_name,
5067: p_procedure_name => l_program_name
5068: ) ;
5069: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
5068: ) ;
5069: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
5070: WHEN OTHERS THEN
5071: -- Standard Unexpected Error Logging
5072: INL_LOGGING_PVT.Log_UnexpecError (
5073: p_module_name => g_module_name,
5074: p_procedure_name => l_program_name
5075: ) ;
5076: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
5135: l_TxLn_Assoc inl_TxLn_Assoc_tp;
5136: l_new_tax_line_id NUMBER;
5137: BEGIN
5138: -- Standard Beginning of Procedure/Function Logging
5139: INL_LOGGING_PVT.Log_BeginProc (
5140: p_module_name => g_module_name,
5141: p_procedure_name => l_program_name
5142: );
5143: -- Initialize return status to success
5142: );
5143: -- Initialize return status to success
5144: x_return_status := L_FND_RET_STS_SUCCESS;
5145: l_debug_info := 'Getting existent estimated TaxLine.';
5146: INL_LOGGING_PVT.Log_Statement (
5147: p_module_name => g_module_name,
5148: p_procedure_name => l_program_name,
5149: p_debug_info => l_debug_info
5150: ) ;
5151: OPEN original_TL;
5152: FETCH original_TL BULK COLLECT INTO C_ori_TL;
5153: CLOSE original_TL;
5154: l_debug_info := C_ori_TL.LAST||' lines have been retrieved.';
5155: INL_LOGGING_PVT.Log_Statement (
5156: p_module_name => g_module_name,
5157: p_procedure_name => l_program_name,
5158: p_debug_info => l_debug_info
5159: ) ;
5181: l_TxLn_Assoc.currency_conversion_rate := C_ori_TL (i) .currency_conversion_rate;
5182: l_TxLn_Assoc.tax_amt_included_flag := C_ori_TL (i) .tax_amt_included_flag;
5183: -- Create_TxLines
5184: l_debug_info := 'Estimated Tax line found new with 0.';
5185: INL_LOGGING_PVT.Log_Statement (
5186: p_module_name => g_module_name,
5187: p_procedure_name => l_program_name,
5188: p_debug_info => l_debug_info
5189: ) ;
5201: END IF;
5202: END LOOP;
5203: END IF;
5204: -- Standard End of Procedure/Function Logging
5205: INL_LOGGING_PVT.Log_EndProc (
5206: p_module_name => g_module_name,
5207: p_procedure_name => l_program_name
5208: ) ;
5209: EXCEPTION
5208: ) ;
5209: EXCEPTION
5210: WHEN L_FND_EXC_ERROR THEN
5211: -- Standard Expected Error Logging
5212: INL_LOGGING_PVT.Log_ExpecError (
5213: p_module_name => g_module_name,
5214: p_procedure_name => l_program_name
5215: ) ;
5216: x_return_status := L_FND_RET_STS_ERROR;
5215: ) ;
5216: x_return_status := L_FND_RET_STS_ERROR;
5217: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
5218: -- Standard Unexpected Error Logging
5219: INL_LOGGING_PVT.Log_UnexpecError (
5220: p_module_name => g_module_name,
5221: p_procedure_name => l_program_name
5222: ) ;
5223: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
5222: ) ;
5223: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
5224: WHEN OTHERS THEN
5225: -- Standard Unexpected Error Logging
5226: INL_LOGGING_PVT.Log_UnexpecError (
5227: p_module_name => g_module_name,
5228: p_procedure_name => l_program_name
5229: ) ;
5230: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
5393: -- /Bug 11775590
5394:
5395: BEGIN
5396: -- Standard Beginning of Procedure/Function Logging
5397: INL_LOGGING_PVT.Log_BeginProc (
5398: p_module_name => g_module_name,
5399: p_procedure_name => l_api_name
5400: ) ;
5401: -- Standard Start of API savepoint
5416: -- Initialize API return status to success
5417: x_return_status := L_FND_RET_STS_SUCCESS;
5418: -- Getting Matching Data
5419: l_debug_info := 'Getting Matching Data';
5420: INL_LOGGING_PVT.Log_Statement (
5421: p_module_name => g_module_name,
5422: p_procedure_name => l_api_name,
5423: p_debug_info => l_debug_info
5424: ) ;
5502: WHERE mat2.match_id = p_match_id
5503: AND mat2.to_parent_table_name = 'INL_SHIP_LINES'
5504: AND mat2.adj_already_generated_flag = 'N'
5505: ));
5506: INL_LOGGING_PVT.Log_Variable (
5507: p_module_name => g_module_name,
5508: p_procedure_name => l_api_name,
5509: p_var_name => 'l_to_ship_line_id',
5510: p_var_value => l_to_ship_line_id
5511: );
5512:
5513:
5514: l_debug_info := 'Getting Receiving Data';
5515: INL_LOGGING_PVT.Log_Statement (
5516: p_module_name => g_module_name,
5517: p_procedure_name => l_api_name,
5518: p_debug_info => l_debug_info
5519: ) ;
5556: l_rt_transaction_id := l_last_adj_sl(i).transaction_id;
5557: l_rt_uom_code := l_last_adj_sl(i).uom_code;
5558:
5559: l_debug_info := 'Call rcv_invoice_matching_sv';
5560: INL_LOGGING_PVT.Log_Statement (
5561: p_module_name => g_module_name,
5562: p_procedure_name => l_api_name,
5563: p_debug_info => l_debug_info
5564: ) ;
5562: p_procedure_name => l_api_name,
5563: p_debug_info => l_debug_info
5564: ) ;
5565:
5566: INL_LOGGING_PVT.Log_Variable (
5567: p_module_name => g_module_name,
5568: p_procedure_name => l_api_name,
5569: p_var_name => 'l_rt_transaction_id',
5570: p_var_value => l_rt_transaction_id
5594: --- Bug 11775590
5595: --l_net_rcv_txn_qty := l_received_txn_qty + l_corrected_txn_qty - l_rtv_txn_qty;
5596: l_net_rcv_txn_qty := NVL(l_net_rcv_txn_qty,0) + l_received_txn_qty + l_corrected_txn_qty - l_rtv_txn_qty;
5597:
5598: INL_LOGGING_PVT.Log_Variable (
5599: p_module_name => g_module_name,
5600: p_procedure_name => l_api_name,
5601: p_var_name => 'l_received_txn_qty',
5602: p_var_value => l_received_txn_qty
5605: --BUG#8334078
5606: -- 3rd alternative: if net_rcv = 0 get 1st qty and put a mark in the record
5607: IF l_net_rcv_txn_qty = 0 THEN
5608:
5609: INL_LOGGING_PVT.Log_Variable (
5610: p_module_name => g_module_name,
5611: p_procedure_name => l_api_name,
5612: p_var_name => 'l_net_rcv_txn_qty',
5613: p_var_value => l_net_rcv_txn_qty
5623: ;
5624: END IF;
5625: --BUG#8334078
5626:
5627: INL_LOGGING_PVT.Log_Variable (
5628: p_module_name => g_module_name,
5629: p_procedure_name => l_api_name,
5630: p_var_name => 'l_received_txn_qty',
5631: p_var_value => l_received_txn_qty
5629: p_procedure_name => l_api_name,
5630: p_var_name => 'l_received_txn_qty',
5631: p_var_value => l_received_txn_qty
5632: );
5633: INL_LOGGING_PVT.Log_Variable (
5634: p_module_name => g_module_name,
5635: p_procedure_name => l_api_name,
5636: p_var_name => 'l_corrected_txn_qty',
5637: p_var_value => l_corrected_txn_qty
5636: p_var_name => 'l_corrected_txn_qty',
5637: p_var_value => l_corrected_txn_qty
5638: );
5639:
5640: INL_LOGGING_PVT.Log_Variable (
5641: p_module_name => g_module_name,
5642: p_procedure_name => l_api_name,
5643: p_var_name => 'l_rtv_txn_qty',
5644: p_var_value => l_rtv_txn_qty
5643: p_var_name => 'l_rtv_txn_qty',
5644: p_var_value => l_rtv_txn_qty
5645: );
5646:
5647: INL_LOGGING_PVT.Log_Variable (
5648: p_module_name => g_module_name,
5649: p_procedure_name => l_api_name,
5650: p_var_name => 'l_net_rcv_txn_qty',
5651: p_var_value => l_net_rcv_txn_qty
5658: p_from_uom_code => l_rt_uom_code,
5659: p_to_uom_code => l_txn_uom_code
5660: );
5661:
5662: INL_LOGGING_PVT.Log_Variable (
5663: p_module_name => g_module_name,
5664: p_procedure_name => l_api_name,
5665: p_var_name => 'l_net_rcv_txn_qty',
5666: p_var_value => l_net_rcv_txn_qty
5671: -- /Bug 11775590
5672:
5673: -- Bug #7702294
5674:
5675: INL_LOGGING_PVT.Log_Variable (
5676: p_module_name => g_module_name,
5677: p_procedure_name => l_api_name,
5678: p_var_name => 'l_ship_line_curr_code',
5679: p_var_value => l_ship_line_curr_code
5677: p_procedure_name => l_api_name,
5678: p_var_name => 'l_ship_line_curr_code',
5679: p_var_value => l_ship_line_curr_code
5680: );
5681: INL_LOGGING_PVT.Log_Variable (
5682: p_module_name => g_module_name,
5683: p_procedure_name => l_api_name,
5684: p_var_name => 'l_current_curr_code',
5685: p_var_value => l_current_curr_code
5685: p_var_value => l_current_curr_code
5686: );
5687: IF l_ship_line_curr_code <> l_current_curr_code
5688: AND nvl(l_current_curr_conv_type,l_ship_line_curr_conv_type) IS NOT NULL THEN --BUG#8468830
5689: INL_LOGGING_PVT.Log_Variable (
5690: p_module_name => g_module_name,
5691: p_procedure_name => l_api_name,
5692: p_var_name => 'l_current_curr_conv_type',
5693: p_var_value => l_current_curr_conv_type
5712: l_shipl_unit_price := l_ori_unit_price;
5713: END IF;
5714:
5715: l_debug_info := 'l_to_ship_header_id';
5716: INL_LOGGING_PVT.Log_Variable (
5717: p_module_name => g_module_name,
5718: p_procedure_name => l_api_name,
5719: p_var_name => l_debug_info,
5720: p_var_value => l_to_ship_header_id) ;
5718: p_procedure_name => l_api_name,
5719: p_var_name => l_debug_info,
5720: p_var_value => l_to_ship_header_id) ;
5721: l_debug_info := 'l_to_ship_line_id';
5722: INL_LOGGING_PVT.Log_Variable (
5723: p_module_name => g_module_name,
5724: p_procedure_name => l_api_name,
5725: p_var_name => l_debug_info,
5726: p_var_value => l_to_ship_line_id) ;
5724: p_procedure_name => l_api_name,
5725: p_var_name => l_debug_info,
5726: p_var_value => l_to_ship_line_id) ;
5727: l_debug_info := 'l_matched_qty';
5728: INL_LOGGING_PVT.Log_Variable (
5729: p_module_name => g_module_name,
5730: p_procedure_name => l_api_name,
5731: p_var_name => l_debug_info,
5732: p_var_value => l_matched_qty) ;
5730: p_procedure_name => l_api_name,
5731: p_var_name => l_debug_info,
5732: p_var_value => l_matched_qty) ;
5733: l_debug_info := 'l_matched_uom_code';
5734: INL_LOGGING_PVT.Log_Variable (
5735: p_module_name => g_module_name,
5736: p_procedure_name => l_api_name,
5737: p_var_name => l_debug_info,
5738: p_var_value => l_matched_uom_code) ;
5737: p_var_name => l_debug_info,
5738: p_var_value => l_matched_uom_code) ;
5739: -- STEP 2: Get Estimated Shipment Line Data
5740: l_debug_info := 'Get Estimated Shipment Line Data';
5741: INL_LOGGING_PVT.Log_Statement (
5742: p_module_name => g_module_name,
5743: p_procedure_name => l_api_name,
5744: p_debug_info => l_debug_info) ;
5745: l_debug_info := 'l_sl_inv_item_id';
5742: p_module_name => g_module_name,
5743: p_procedure_name => l_api_name,
5744: p_debug_info => l_debug_info) ;
5745: l_debug_info := 'l_sl_inv_item_id';
5746: INL_LOGGING_PVT.Log_Variable (
5747: p_module_name => g_module_name,
5748: p_procedure_name => l_api_name,
5749: p_var_name => l_debug_info,
5750: p_var_value => l_sl_inv_item_id) ;
5748: p_procedure_name => l_api_name,
5749: p_var_name => l_debug_info,
5750: p_var_value => l_sl_inv_item_id) ;
5751: l_debug_info := 'l_net_rcv_txn_qty';
5752: INL_LOGGING_PVT.Log_Variable (
5753: p_module_name => g_module_name,
5754: p_procedure_name => l_api_name,
5755: p_var_name => l_debug_info,
5756: p_var_value => l_net_rcv_txn_qty) ;
5754: p_procedure_name => l_api_name,
5755: p_var_name => l_debug_info,
5756: p_var_value => l_net_rcv_txn_qty) ;
5757: l_debug_info := 'l_shipl_unit_price';
5758: INL_LOGGING_PVT.Log_Variable (
5759: p_module_name => g_module_name,
5760: p_procedure_name => l_api_name,
5761: p_var_name => l_debug_info,
5762: p_var_value => l_shipl_unit_price) ;
5761: p_var_name => l_debug_info,
5762: p_var_value => l_shipl_unit_price) ;
5763: -- STEP 3: Get the Adjustment Number
5764: l_debug_info := 'Get the Adjustment Number';
5765: INL_LOGGING_PVT.Log_Statement (
5766: p_module_name => g_module_name,
5767: p_procedure_name => l_api_name,
5768: p_debug_info => l_debug_info) ;
5769: l_next_adjust_num := p_adjustment_num;
5767: p_procedure_name => l_api_name,
5768: p_debug_info => l_debug_info) ;
5769: l_next_adjust_num := p_adjustment_num;
5770: l_debug_info := 'l_next_adjust_num';
5771: INL_LOGGING_PVT.Log_Variable (
5772: p_module_name => g_module_name,
5773: p_procedure_name => l_api_name,
5774: p_var_name => l_debug_info,
5775: p_var_value => l_next_adjust_num) ;
5777: -- STEP 4: Partial Matching handling
5778: --IF l_matched_qty < l_opl_txn_qty THEN
5779: --Calculate Partial Matching based on previous Adjustments
5780: l_debug_info := 'Calculate Partial Matching based on previous Adjustments';
5781: INL_LOGGING_PVT.Log_Statement (
5782: p_module_name => g_module_name,
5783: p_procedure_name => l_api_name,
5784: p_debug_info => l_debug_info
5785: );
5784: p_debug_info => l_debug_info
5785: );
5786: IF l_replace_estim_qty_flag = 'Y' THEN --Match from RCV
5787: l_debug_info := 'Getting the values from Adj';
5788: INL_LOGGING_PVT.Log_Statement (
5789: p_module_name => g_module_name,
5790: p_procedure_name => l_api_name,
5791: p_debug_info => l_debug_info
5792: );
5803: AND ship_line_group_id = l_ship_line_group_id
5804: AND ship_line_num = l_ship_line_num;
5805: l_final_price := l_matched_amt / l_matched_qty;
5806: l_debug_info := 'Setting the new quantity ';
5807: INL_LOGGING_PVT.Log_Statement (
5808: p_module_name => g_module_name,
5809: p_procedure_name => l_api_name,
5810: p_debug_info => l_debug_info
5811: ) ;
5808: p_module_name => g_module_name,
5809: p_procedure_name => l_api_name,
5810: p_debug_info => l_debug_info
5811: ) ;
5812: INL_LOGGING_PVT.Log_Variable (
5813: p_module_name => g_module_name,
5814: p_procedure_name => l_api_name,
5815: p_var_name => 'l_final_qty',
5816: p_var_value => l_final_qty
5814: p_procedure_name => l_api_name,
5815: p_var_name => 'l_final_qty',
5816: p_var_value => l_final_qty
5817: );
5818: INL_LOGGING_PVT.Log_Variable (
5819: p_module_name => g_module_name,
5820: p_procedure_name => l_api_name,
5821: p_var_name => 'l_primary_qty',
5822: p_var_value => l_primary_qty
5820: p_procedure_name => l_api_name,
5821: p_var_name => 'l_primary_qty',
5822: p_var_value => l_primary_qty
5823: );
5824: INL_LOGGING_PVT.Log_Variable (
5825: p_module_name => g_module_name,
5826: p_procedure_name => l_api_name,
5827: p_var_name => 'l_primary_unit_price',
5828: p_var_value => l_primary_unit_price
5845: l_primary_unit_price := (l_final_qty * l_final_price) / l_primary_qty;
5846: END IF;
5847: ELSE
5848:
5849: INL_LOGGING_PVT.Log_Variable (
5850: p_module_name => g_module_name,
5851: p_procedure_name => l_api_name,
5852: p_var_name => 'l_existing_match_info_flag',
5853: p_var_value => l_existing_match_info_flag
5869:
5870: END LOOP;
5871: -- Add the current transaction values to the calculation
5872: l_debug_info := 'Add the current transaction values to the calculation';
5873: INL_LOGGING_PVT.Log_Statement (
5874: p_module_name => g_module_name,
5875: p_procedure_name => l_api_name,
5876: p_debug_info => l_debug_info
5877: ) ;
5898: --
5899: l_final_qty := l_net_rcv_txn_qty; --BUG#8198265
5900: l_final_price := l_sum_adj_price / l_final_qty; --BUG#8198265
5901:
5902: INL_LOGGING_PVT.Log_Variable (
5903: p_module_name => g_module_name,
5904: p_procedure_name => l_api_name,
5905: p_var_name => 'l_final_qty',
5906: p_var_value => l_final_qty
5905: p_var_name => 'l_final_qty',
5906: p_var_value => l_final_qty
5907: ) ;
5908:
5909: INL_LOGGING_PVT.Log_Variable (
5910: p_module_name => g_module_name,
5911: p_procedure_name => l_api_name,
5912: p_var_name => 'l_final_price',
5913: p_var_value => l_final_price
5928: END IF;
5929: l_primary_unit_price := (l_final_qty * l_final_price) / l_primary_qty;
5930:
5931: l_debug_info := 'Ckecking secondary fields';
5932: INL_LOGGING_PVT.Log_Statement (
5933: p_module_name => g_module_name,
5934: p_procedure_name => l_api_name,
5935: p_debug_info => l_debug_info
5936: ) ;
5946:
5947: l_secondary_unit_price := (l_final_qty * l_final_price) / l_secondary_qty;
5948:
5949: l_debug_info := 'l_secondary_qty';
5950: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
5951: p_procedure_name => l_api_name,
5952: p_var_name => l_debug_info,
5953: p_var_value => l_secondary_qty) ;
5954:
5952: p_var_name => l_debug_info,
5953: p_var_value => l_secondary_qty) ;
5954:
5955: l_debug_info := 'l_secondary_unit_price';
5956: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
5957: p_procedure_name => l_api_name,
5958: p_var_name => l_debug_info,
5959: p_var_value => l_secondary_unit_price) ;
5960:
5961: END IF;
5962: --
5963: -- STEP 5: Copy Shipment Line from Estimated to Actual
5964: l_debug_info := 'Copy Shipment Line from Estimated to Actual';
5965: INL_LOGGING_PVT.Log_Statement (
5966: p_module_name => g_module_name,
5967: p_procedure_name => l_api_name,
5968: p_debug_info => l_debug_info
5969: ) ;
5967: p_procedure_name => l_api_name,
5968: p_debug_info => l_debug_info
5969: ) ;
5970: END IF;
5971: INL_LOGGING_PVT.Log_Variable (
5972: p_module_name => g_module_name,
5973: p_procedure_name => l_api_name,
5974: p_var_name => 'l_final_qty',
5975: p_var_value => l_final_qty
5973: p_procedure_name => l_api_name,
5974: p_var_name => 'l_final_qty',
5975: p_var_value => l_final_qty
5976: );
5977: INL_LOGGING_PVT.Log_Variable (
5978: p_module_name => g_module_name,
5979: p_procedure_name => l_api_name,
5980: p_var_name => 'l_primary_qty',
5981: p_var_value => l_primary_qty
5979: p_procedure_name => l_api_name,
5980: p_var_name => 'l_primary_qty',
5981: p_var_value => l_primary_qty
5982: );
5983: INL_LOGGING_PVT.Log_Variable (
5984: p_module_name => g_module_name,
5985: p_procedure_name => l_api_name,
5986: p_var_name => 'l_primary_unit_price',
5987: p_var_value => l_primary_unit_price
6177: p_count => x_msg_count,
6178: p_data => x_msg_data
6179: ) ;
6180: -- Standard End of Procedure/Function Logging
6181: INL_LOGGING_PVT.Log_EndProc (
6182: p_module_name => g_module_name,
6183: p_procedure_name => l_api_name
6184: ) ;
6185: EXCEPTION
6184: ) ;
6185: EXCEPTION
6186: WHEN L_FND_EXC_ERROR THEN
6187: -- Standard Expected Error Logging
6188: INL_LOGGING_PVT.Log_ExpecError (
6189: p_module_name => g_module_name,
6190: p_procedure_name => l_api_name
6191: ) ;
6192: ROLLBACK TO Adjust_ShipLines_PVT;
6197: p_data => x_msg_data
6198: ) ;
6199: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6200: -- Standard Unexpected Error Logging
6201: INL_LOGGING_PVT.Log_UnexpecError (
6202: p_module_name => g_module_name,
6203: p_procedure_name => l_api_name
6204: ) ;
6205: ROLLBACK TO Adjust_ShipLines_PVT;
6210: p_data => x_msg_data
6211: ) ;
6212: WHEN OTHERS THEN
6213: -- Standard Unexpected Error Logging
6214: INL_LOGGING_PVT.Log_UnexpecError (
6215: p_module_name => g_module_name,
6216: p_procedure_name => l_api_name
6217: ) ;
6218: ROLLBACK TO Adjust_ShipLines_PVT;
6258: l_charge_line_num NUMBER;
6259: l_adjustment_num NUMBER;
6260: BEGIN
6261: -- Standard Beginning of Procedure/Function Logging
6262: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_program_name) ;
6263: -- Initialize return status to success
6264: x_return_status := L_FND_RET_STS_SUCCESS;
6265: --
6266: -- Get Max val to charge line num
6266: -- Get Max val to charge line num
6267: --
6268: IF p_ChLn_Assoc.charge_line_num IS NULL THEN
6269: l_debug_info := 'Get Max val from charge line num';
6270: INL_LOGGING_PVT.Log_Statement (
6271: p_module_name => g_module_name,
6272: p_procedure_name => l_program_name,
6273: p_debug_info => l_debug_info
6274: ) ;
6317: --
6318: -- Get inl_charge_lines_s.nextval
6319: --
6320: l_debug_info := 'Get inl_charge_lines_s.nextval';
6321: INL_LOGGING_PVT.Log_Statement (
6322: p_module_name => g_module_name,
6323: p_procedure_name => l_program_name,
6324: p_debug_info => l_debug_info
6325: ) ;
6328: --
6329: -- include Charge Line record
6330: --
6331: l_debug_info := 'Including Charge Line record ';
6332: INL_LOGGING_PVT.Log_Statement (
6333: p_module_name => g_module_name,
6334: p_procedure_name => l_program_name,
6335: p_debug_info => l_debug_info
6336: ) ;
6436: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6437: END IF;
6438: END IF;
6439: -- Standard End of Procedure/Function Logging
6440: INL_LOGGING_PVT.Log_EndProc(
6441: p_module_name => g_module_name,
6442: p_procedure_name => l_program_name
6443: );
6444: EXCEPTION
6443: );
6444: EXCEPTION
6445: WHEN L_FND_EXC_ERROR THEN
6446: -- Standard Expected Error Logging
6447: INL_LOGGING_PVT.Log_ExpecError(
6448: p_module_name => g_module_name,
6449: p_procedure_name => l_program_name
6450: );
6451: x_return_status := L_FND_RET_STS_ERROR;
6450: );
6451: x_return_status := L_FND_RET_STS_ERROR;
6452: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6453: -- Standard Unexpected Error Logging
6454: INL_LOGGING_PVT.Log_UnexpecError(
6455: p_module_name => g_module_name,
6456: p_procedure_name => l_program_name
6457: );
6458: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6457: );
6458: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6459: WHEN OTHERS THEN
6460: -- Standard Unexpected Error Logging
6461: INL_LOGGING_PVT.Log_UnexpecError(
6462: p_module_name => g_module_name,
6463: p_procedure_name => l_program_name
6464: );
6465: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
6578: l_new_charge_line_id NUMBER;
6579: l_level_charge_is_applied VARCHAR(5):= 'X';
6580: BEGIN
6581: -- Standard Beginning of Procedure/Function Logging
6582: INL_LOGGING_PVT.Log_BeginProc (
6583: p_module_name => g_module_name,
6584: p_procedure_name => l_program_name
6585: );
6586: -- Initialize return status to success
6584: p_procedure_name => l_program_name
6585: );
6586: -- Initialize return status to success
6587: x_return_status := L_FND_RET_STS_SUCCESS;
6588: INL_LOGGING_PVT.Log_Variable (
6589: p_module_name => g_module_name,
6590: p_procedure_name => l_program_name,
6591: p_var_name => p_prev_match_amount_id,
6592: p_var_value => p_prev_match_amount_id
6590: p_procedure_name => l_program_name,
6591: p_var_name => p_prev_match_amount_id,
6592: p_var_value => p_prev_match_amount_id
6593: );
6594: INL_LOGGING_PVT.Log_Variable (
6595: p_module_name => g_module_name,
6596: p_procedure_name => l_program_name,
6597: p_var_name => p_prev_match_id,
6598: p_var_value => p_prev_match_id
6600: OPEN original_CL;
6601: FETCH original_CL BULK COLLECT INTO C_ori_CL;
6602: CLOSE original_CL;
6603: l_debug_info := C_ori_CL.LAST||' lines have been retrieved.';
6604: INL_LOGGING_PVT.Log_Statement (
6605: p_module_name => g_module_name,
6606: p_procedure_name => l_program_name,
6607: p_debug_info => l_debug_info
6608: ) ;
6649: l_ChLn_Assoc.poo_organization_id := C_ori_CL(i).poo_organization_id;
6650: l_ChLn_Assoc.poo_location_id := C_ori_CL(i).poo_location_id;
6651: -- Create_ChLines
6652: l_debug_info := 'Create_ChLines';
6653: INL_LOGGING_PVT.Log_Statement (
6654: p_module_name => g_module_name,
6655: p_procedure_name => l_program_name,
6656: p_debug_info => l_debug_info
6657: ) ;
6668: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6669: END IF;
6670: -- TxLines
6671: l_debug_info := 'Amount = 0 for estimated taxes associated with estimated charge';
6672: INL_LOGGING_PVT.Log_Statement (
6673: p_module_name => g_module_name,
6674: p_procedure_name => l_program_name,
6675: p_debug_info => l_debug_info
6676: ) ;
6691: END IF;
6692: END LOOP;
6693: END IF;
6694: -- Standard End of Procedure/Function Logging
6695: INL_LOGGING_PVT.Log_EndProc (
6696: p_module_name => g_module_name,
6697: p_procedure_name => l_program_name
6698: ) ;
6699: EXCEPTION
6698: ) ;
6699: EXCEPTION
6700: WHEN L_FND_EXC_ERROR THEN
6701: -- Standard Expected Error Logging
6702: INL_LOGGING_PVT.Log_ExpecError (
6703: p_module_name => g_module_name,
6704: p_procedure_name => l_program_name
6705: ) ;
6706: x_return_status := L_FND_RET_STS_ERROR;
6705: ) ;
6706: x_return_status := L_FND_RET_STS_ERROR;
6707: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6708: -- Standard Unexpected Error Logging
6709: INL_LOGGING_PVT.Log_UnexpecError (
6710: p_module_name => g_module_name,
6711: p_procedure_name => l_program_name
6712: ) ;
6713: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6712: ) ;
6713: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6714: WHEN OTHERS THEN
6715: -- Standard Unexpected Error Logging
6716: INL_LOGGING_PVT.Log_UnexpecError (
6717: p_module_name => g_module_name,
6718: p_procedure_name => l_program_name
6719: ) ;
6720: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
6852: l_new_charge_line_id NUMBER;
6853: l_level_charge_is_applied VARCHAR(5):= 'X';
6854: BEGIN
6855: -- Standard Beginning of Procedure/Function Logging
6856: INL_LOGGING_PVT.Log_BeginProc (
6857: p_module_name => g_module_name,
6858: p_procedure_name => l_program_name
6859: );
6860: -- Initialize return status to success
6859: );
6860: -- Initialize return status to success
6861: x_return_status := L_FND_RET_STS_SUCCESS;
6862: l_debug_info := 'Getting the maximum level where this charge_line_type_id is applied.';
6863: INL_LOGGING_PVT.Log_Statement (
6864: p_module_name => g_module_name,
6865: p_procedure_name => l_program_name,
6866: p_debug_info => l_debug_info
6867: ) ;
6865: p_procedure_name => l_program_name,
6866: p_debug_info => l_debug_info
6867: ) ;
6868: l_debug_info := 'p_match_Amount_id';
6869: INL_LOGGING_PVT.Log_Variable (
6870: p_module_name => g_module_name,
6871: p_procedure_name => l_program_name,
6872: p_var_name => l_debug_info,
6873: p_var_value => p_match_Amount_id
6875: OPEN estimated_CL ;
6876: FETCH estimated_CL BULK COLLECT INTO C_est_CL;
6877: CLOSE estimated_CL;
6878: l_debug_info := C_est_CL.LAST||' lines have been retrieved.';
6879: INL_LOGGING_PVT.Log_Statement (
6880: p_module_name => g_module_name,
6881: p_procedure_name => l_program_name,
6882: p_debug_info => l_debug_info
6883: ) ;
6895: l_ChLn_Assoc.tax_already_calculated_flag := 'N';
6896: FOR i IN NVL (C_est_CL.FIRST, 0) ..NVL (C_est_CL.LAST, 0)
6897: LOOP
6898:
6899: INL_LOGGING_PVT.Log_Variable (
6900: p_module_name => g_module_name,
6901: p_procedure_name => l_program_name,
6902: p_var_name => 'C_est_CL ('||i||') .charge_line_id',
6903: p_var_value => C_est_CL (i) .charge_line_id
6931: l_ChLn_Assoc.poo_organization_id := C_est_CL (i) .poo_organization_id;
6932: l_ChLn_Assoc.poo_location_id := C_est_CL (i) .poo_location_id;
6933: -- Create_ChLines
6934: l_debug_info := 'Create_ChLines';
6935: INL_LOGGING_PVT.Log_Statement (
6936: p_module_name => g_module_name,
6937: p_procedure_name => l_program_name,
6938: p_debug_info => l_debug_info
6939: ) ;
6950: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6951: END IF;
6952: -- TxLines
6953: l_debug_info := 'Amount = 0 for estimated taxes associated with estimated charge';
6954: INL_LOGGING_PVT.Log_Statement (
6955: p_module_name => g_module_name,
6956: p_procedure_name => l_program_name,
6957: p_debug_info => l_debug_info
6958: ) ;
6972: END IF;
6973: END LOOP;
6974: END IF;
6975: -- Standard End of Procedure/Function Logging
6976: INL_LOGGING_PVT.Log_EndProc (
6977: p_module_name => g_module_name,
6978: p_procedure_name => l_program_name
6979: ) ;
6980: EXCEPTION
6979: ) ;
6980: EXCEPTION
6981: WHEN L_FND_EXC_ERROR THEN
6982: -- Standard Expected Error Logging
6983: INL_LOGGING_PVT.Log_ExpecError (
6984: p_module_name => g_module_name,
6985: p_procedure_name => l_program_name
6986: ) ;
6987: x_return_status := L_FND_RET_STS_ERROR;
6986: ) ;
6987: x_return_status := L_FND_RET_STS_ERROR;
6988: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
6989: -- Standard Unexpected Error Logging
6990: INL_LOGGING_PVT.Log_UnexpecError (
6991: p_module_name => g_module_name,
6992: p_procedure_name => l_program_name
6993: ) ;
6994: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6993: ) ;
6994: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
6995: WHEN OTHERS THEN
6996: -- Standard Unexpected Error Logging
6997: INL_LOGGING_PVT.Log_UnexpecError (
6998: p_module_name => g_module_name,
6999: p_procedure_name => l_program_name
7000: ) ;
7001: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
7133: l_ELC_ShouldBeCreatedFlag VARCHAR2(1);
7134: l_last_parentChargeLineID NUMBER;
7135: BEGIN
7136: -- Standard Beginning of Procedure/Function Logging
7137: INL_LOGGING_PVT.Log_BeginProc (
7138: p_module_name => g_module_name,
7139: p_procedure_name => l_program_name
7140: );
7141: -- Initialize return status to success
7150: -- - There wasn't any actual value, with the same cost factor, in each point that it is being applyed.
7151:
7152:
7153: l_debug_info := ' Getting charge line information.';
7154: INL_LOGGING_PVT.Log_Statement (
7155: p_module_name => g_module_name,
7156: p_procedure_name => l_program_name,
7157: p_debug_info => l_debug_info
7158: ) ;
7155: p_module_name => g_module_name,
7156: p_procedure_name => l_program_name,
7157: p_debug_info => l_debug_info
7158: ) ;
7159: INL_LOGGING_PVT.Log_Variable (
7160: p_module_name => g_module_name,
7161: p_procedure_name => l_program_name,
7162: p_var_name => 'p_match_id',
7163: p_var_value => p_match_id
7161: p_procedure_name => l_program_name,
7162: p_var_name => 'p_match_id',
7163: p_var_value => p_match_id
7164: ) ;
7165: INL_LOGGING_PVT.Log_Variable (
7166: p_module_name => g_module_name,
7167: p_procedure_name => l_program_name,
7168: p_var_name => 'p_match_Amount_id',
7169: p_var_value => p_match_Amount_id
7229: -- when a invoice with amt = 0 is canceled we are unable to redo the ELC
7230: --Bug#11064618
7231:
7232:
7233: INL_LOGGING_PVT.Log_Variable (
7234: p_module_name => g_module_name,
7235: p_procedure_name => l_program_name,
7236: p_var_name => 'l_created_chLnId',
7237: p_var_value => l_created_chLnId
7236: p_var_name => 'l_created_chLnId',
7237: p_var_value => l_created_chLnId
7238: ) ;
7239:
7240: INL_LOGGING_PVT.Log_Variable (
7241: p_module_name => g_module_name,
7242: p_procedure_name => l_program_name,
7243: p_var_name => 'l_created_chLnAmt',
7244: p_var_value => l_created_chLnAmt
7243: p_var_name => 'l_created_chLnAmt',
7244: p_var_value => l_created_chLnAmt
7245: ) ;
7246:
7247: INL_LOGGING_PVT.Log_Variable (
7248: p_module_name => g_module_name,
7249: p_procedure_name => l_program_name,
7250: p_var_name => 'p_charge_line_type_id',
7251: p_var_value => p_charge_line_type_id
7259: FETCH c_affected_ship BULK COLLECT INTO affected_by_alc_ship_lst;
7260: CLOSE c_affected_ship;
7261:
7262: l_debug_info := 'affected_by_alc: '||affected_by_alc_ship_lst.LAST||' line(s) have been retrieved.';
7263: INL_LOGGING_PVT.Log_Statement (
7264: p_module_name => g_module_name,
7265: p_procedure_name => l_program_name,
7266: p_debug_info => l_debug_info
7267: ) ;
7270: -- Go down in all points where charge line is applied
7271: -- in case of Actuals the point is ever a ship_line
7272: FOR i IN NVL (affected_by_alc_ship_lst.FIRST, 0)..NVL (affected_by_alc_ship_lst.LAST, 0)
7273: LOOP
7274: INL_LOGGING_PVT.Log_Variable (
7275: p_module_name => g_module_name,
7276: p_procedure_name => l_program_name,
7277: p_var_name => 'affected_by_alc_ship_lst('||i||').ship_header_id',
7278: p_var_value => affected_by_alc_ship_lst(i).ship_header_id
7277: p_var_name => 'affected_by_alc_ship_lst('||i||').ship_header_id',
7278: p_var_value => affected_by_alc_ship_lst(i).ship_header_id
7279: ) ;
7280:
7281: INL_LOGGING_PVT.Log_Variable (
7282: p_module_name => g_module_name,
7283: p_procedure_name => l_program_name,
7284: p_var_name => 'affected_by_alc_ship_lst('||i||').to_parent_table_name',
7285: p_var_value => affected_by_alc_ship_lst(i).to_parent_table_name
7284: p_var_name => 'affected_by_alc_ship_lst('||i||').to_parent_table_name',
7285: p_var_value => affected_by_alc_ship_lst(i).to_parent_table_name
7286: ) ;
7287:
7288: INL_LOGGING_PVT.Log_Variable (
7289: p_module_name => g_module_name,
7290: p_procedure_name => l_program_name,
7291: p_var_name => 'affected_by_alc_ship_lst('||i||').to_parent_table_id',
7292: p_var_value => affected_by_alc_ship_lst(i).to_parent_table_id
7297: -- CURRENTLY ALL ASSOCIATIONS OF ACTUALS ARE MADE AT LINE LEVEL
7298: IF affected_by_alc_ship_lst(i).to_parent_table_name <> 'INL_SHIP_LINES' THEN
7299:
7300: l_debug_info := 'Problem in INL SHIPMENT PVT regarding canceled invoice applied at a level different from line';
7301: INL_LOGGING_PVT.Log_Statement (
7302: p_module_name => g_module_name,
7303: p_procedure_name => l_program_name,
7304: p_debug_info => l_debug_info
7305: ) ;
7336: AND a.from_parent_table_id = cl.charge_line_id
7337: ;
7338:
7339: l_debug_info := 'Sum all charge lines that come to this point: '||l_sum_chLnAmt;
7340: INL_LOGGING_PVT.Log_Statement (
7341: p_module_name => g_module_name,
7342: p_procedure_name => l_program_name,
7343: p_debug_info => l_debug_info
7344: ) ;
7349: -- Verify if exist any actual with amount = 0 coming to this point
7350: --Bug#11064618
7351:
7352: l_debug_info := 'Verify if exist any actual with amount = 0 coming to this point ';
7353: INL_LOGGING_PVT.Log_Statement (
7354: p_module_name => g_module_name,
7355: p_procedure_name => l_program_name,
7356: p_debug_info => l_debug_info
7357: ) ;
7389: FETCH c_ELC_CLines BULK COLLECT INTO ELC_CLines_lst;
7390: CLOSE c_ELC_CLines;
7391:
7392: l_debug_info := ELC_CLines_lst.LAST||' line(s) have been retrieved (ELC_CLines_lst).';
7393: INL_LOGGING_PVT.Log_Statement (
7394: p_module_name => g_module_name,
7395: p_procedure_name => l_program_name,
7396: p_debug_info => l_debug_info
7397: ) ;
7401: LOOP
7402:
7403: l_ELC_ShouldBeCreatedFlag := 'Y';
7404:
7405: INL_LOGGING_PVT.Log_Variable (
7406: p_module_name => g_module_name,
7407: p_procedure_name => l_program_name,
7408: p_var_name => 'ELC_CLines_lst('||j||').to_parent_table_name',
7409: p_var_value => ELC_CLines_lst(j).to_parent_table_name
7408: p_var_name => 'ELC_CLines_lst('||j||').to_parent_table_name',
7409: p_var_value => ELC_CLines_lst(j).to_parent_table_name
7410: ) ;
7411:
7412: INL_LOGGING_PVT.Log_Variable (
7413: p_module_name => g_module_name,
7414: p_procedure_name => l_program_name,
7415: p_var_name => 'ELC_CLines_lst('||j||').to_parent_table_id',
7416: p_var_value => ELC_CLines_lst(j).to_parent_table_id
7415: p_var_name => 'ELC_CLines_lst('||j||').to_parent_table_id',
7416: p_var_value => ELC_CLines_lst(j).to_parent_table_id
7417: ) ;
7418:
7419: INL_LOGGING_PVT.Log_Variable (
7420: p_module_name => g_module_name,
7421: p_procedure_name => l_program_name,
7422: p_var_name => 'ELC_CLines_lst('||j||').adjustment_num',
7423: p_var_value => ELC_CLines_lst(j).adjustment_num
7422: p_var_name => 'ELC_CLines_lst('||j||').adjustment_num',
7423: p_var_value => ELC_CLines_lst(j).adjustment_num
7424: ) ;
7425:
7426: INL_LOGGING_PVT.Log_Variable (
7427: p_module_name => g_module_name,
7428: p_procedure_name => l_program_name,
7429: p_var_name => 'ELC_CLines_lst('||j||').charge_line_num',
7430: p_var_value => ELC_CLines_lst(j).charge_line_num
7429: p_var_name => 'ELC_CLines_lst('||j||').charge_line_num',
7430: p_var_value => ELC_CLines_lst(j).charge_line_num
7431: ) ;
7432:
7433: INL_LOGGING_PVT.Log_Variable (
7434: p_module_name => g_module_name,
7435: p_procedure_name => l_program_name,
7436: p_var_name => 'ELC_CLines_lst('||j||').charge_amt',
7437: p_var_value => ELC_CLines_lst(j).charge_amt
7445: FETCH c_affected_ship BULK COLLECT INTO affected_by_elc_lst;
7446: CLOSE c_affected_ship;
7447:
7448: l_debug_info := 'Affected_by_elc '||affected_by_elc_lst.LAST||' line(s) have been retrieved.';
7449: INL_LOGGING_PVT.Log_Statement (
7450: p_module_name => g_module_name,
7451: p_procedure_name => l_program_name,
7452: p_debug_info => l_debug_info
7453: ) ;
7455:
7456: -- Go down in all points where charge line is applied
7457: FOR k IN NVL (affected_by_elc_lst.FIRST, 0)..NVL (affected_by_elc_lst.LAST, 0)
7458: LOOP
7459: INL_LOGGING_PVT.Log_Variable (
7460: p_module_name => g_module_name,
7461: p_procedure_name => l_program_name,
7462: p_var_name => 'affected_by_elc_lst('||k||').ship_header_id',
7463: p_var_value => affected_by_elc_lst(k).ship_header_id
7462: p_var_name => 'affected_by_elc_lst('||k||').ship_header_id',
7463: p_var_value => affected_by_elc_lst(k).ship_header_id
7464: ) ;
7465:
7466: INL_LOGGING_PVT.Log_Variable (
7467: p_module_name => g_module_name,
7468: p_procedure_name => l_program_name,
7469: p_var_name => 'affected_by_elc_lst('||k||').to_parent_table_name',
7470: p_var_value => affected_by_elc_lst(k).to_parent_table_name
7469: p_var_name => 'affected_by_elc_lst('||k||').to_parent_table_name',
7470: p_var_value => affected_by_elc_lst(k).to_parent_table_name
7471: ) ;
7472:
7473: INL_LOGGING_PVT.Log_Variable (
7474: p_module_name => g_module_name,
7475: p_procedure_name => l_program_name,
7476: p_var_name => 'affected_by_elc_lst('||k||').to_parent_table_id',
7477: p_var_value => affected_by_elc_lst(k).to_parent_table_id
7495: ;
7496:
7497: --Bug#11064618
7498: l_debug_info := 'Verify if exist any actual with amount = 0 coming to this HEADER ';
7499: INL_LOGGING_PVT.Log_Statement (
7500: p_module_name => g_module_name,
7501: p_procedure_name => l_program_name,
7502: p_debug_info => l_debug_info
7503: ) ;
7552: ;
7553:
7554: --Bug#11064618
7555: l_debug_info := 'Verify if exist any actual with amount = 0 coming to this GROUP ';
7556: INL_LOGGING_PVT.Log_Statement (
7557: p_module_name => g_module_name,
7558: p_procedure_name => l_program_name,
7559: p_debug_info => l_debug_info
7560: ) ;
7609: AND a.from_parent_table_id = cl.charge_line_id
7610: ;
7611: --Bug#11064618
7612: l_debug_info := 'Verify if exist any actual with amount = 0 coming to this line ';
7613: INL_LOGGING_PVT.Log_Statement (
7614: p_module_name => g_module_name,
7615: p_procedure_name => l_program_name,
7616: p_debug_info => l_debug_info
7617: ) ;
7646: ELSE
7647: -- CURRENTLY ALL ASSOCIATIONS OF ELC ARE MADE AT SHIPMENT, GROUP OR LINE LEVEL
7648:
7649: l_debug_info := 'Problem in INL SHIPMENT PVT regarding canceled invoice: ELC applied at a level different from SHIPMENT, GROUP OR LINE';
7650: INL_LOGGING_PVT.Log_Statement (
7651: p_module_name => g_module_name,
7652: p_procedure_name => l_program_name,
7653: p_debug_info => l_debug_info
7654: ) ;
7654: ) ;
7655: RAISE L_FND_EXC_ERROR;
7656:
7657: END IF;
7658: INL_LOGGING_PVT.Log_Variable (
7659: p_module_name => g_module_name,
7660: p_procedure_name => l_program_name,
7661: p_var_name => 'l_sum_chLnAmt',
7662: p_var_value => l_sum_chLnAmt
7672:
7673: END IF;
7674: IF l_ELC_ShouldBeCreatedFlag = 'Y' THEN
7675: l_debug_info := 'Getting last parent charge line id ***';
7676: INL_LOGGING_PVT.Log_Statement (
7677: p_module_name => g_module_name,
7678: p_procedure_name => l_program_name,
7679: p_debug_info => l_debug_info
7680: ) ;
7677: p_module_name => g_module_name,
7678: p_procedure_name => l_program_name,
7679: p_debug_info => l_debug_info
7680: ) ;
7681: INL_LOGGING_PVT.Log_Variable (
7682: p_module_name => g_module_name,
7683: p_procedure_name => l_program_name,
7684: p_var_name => 'ELC_CLines_lst('||j||').charge_line_id',
7685: p_var_value => ELC_CLines_lst(j).charge_line_id
7697: CONNECT BY PRIOR cl1.charge_line_id = cl1.parent_charge_line_id
7698: ;
7699:
7700: l_debug_info := 'Inserting a new ELC ***';
7701: INL_LOGGING_PVT.Log_Statement (
7702: p_module_name => g_module_name,
7703: p_procedure_name => l_program_name,
7704: p_debug_info => l_debug_info
7705: ) ;
7807: END LOOP;
7808: END IF;
7809: END IF;
7810: -- Standard End of Procedure/Function Logging
7811: INL_LOGGING_PVT.Log_EndProc (
7812: p_module_name => g_module_name,
7813: p_procedure_name => l_program_name
7814: ) ;
7815: EXCEPTION
7814: ) ;
7815: EXCEPTION
7816: WHEN L_FND_EXC_ERROR THEN
7817: -- Standard Expected Error Logging
7818: INL_LOGGING_PVT.Log_ExpecError (
7819: p_module_name => g_module_name,
7820: p_procedure_name => l_program_name
7821: ) ;
7822: x_return_status := L_FND_RET_STS_ERROR;
7821: ) ;
7822: x_return_status := L_FND_RET_STS_ERROR;
7823: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7824: -- Standard Unexpected Error Logging
7825: INL_LOGGING_PVT.Log_UnexpecError (
7826: p_module_name => g_module_name,
7827: p_procedure_name => l_program_name
7828: ) ;
7829: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
7828: ) ;
7829: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
7830: WHEN OTHERS THEN
7831: -- Standard Unexpected Error Logging
7832: INL_LOGGING_PVT.Log_UnexpecError (
7833: p_module_name => g_module_name,
7834: p_procedure_name => l_program_name
7835: ) ;
7836: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
7869: l_return_status VARCHAR2(1);
7870: l_debug_info VARCHAR2(200);
7871: BEGIN
7872: -- Standard Beginning of Procedure/Function Logging
7873: INL_LOGGING_PVT.Log_BeginProc (
7874: p_module_name => g_module_name,
7875: p_procedure_name => l_program_name
7876: );
7877: -- Initialize return status to success
7877: -- Initialize return status to success
7878: x_return_status := L_FND_RET_STS_SUCCESS;
7879:
7880: l_debug_info := 'Calling Zero_EstimChargeLinesPerMatch';
7881: INL_LOGGING_PVT.Log_Statement (
7882: p_module_name => g_module_name,
7883: p_procedure_name => l_program_name,
7884: p_debug_info => l_debug_info
7885: ) ;
7896: RAISE L_FND_EXC_UNEXPECTED_ERROR;
7897: END IF;
7898:
7899: l_debug_info := 'Calling Create_NewEstimChLinesPerMatch';
7900: INL_LOGGING_PVT.Log_Statement (
7901: p_module_name => g_module_name,
7902: p_procedure_name => l_program_name,
7903: p_debug_info => l_debug_info
7904: ) ;
7917: RAISE L_FND_EXC_UNEXPECTED_ERROR;
7918: END IF;
7919:
7920: -- Standard End of Procedure/Function Logging
7921: INL_LOGGING_PVT.Log_EndProc (
7922: p_module_name => g_module_name,
7923: p_procedure_name => l_program_name
7924: ) ;
7925: EXCEPTION
7924: ) ;
7925: EXCEPTION
7926: WHEN L_FND_EXC_ERROR THEN
7927: -- Standard Expected Error Logging
7928: INL_LOGGING_PVT.Log_ExpecError (
7929: p_module_name => g_module_name,
7930: p_procedure_name => l_program_name
7931: ) ;
7932: x_return_status := L_FND_RET_STS_ERROR;
7931: ) ;
7932: x_return_status := L_FND_RET_STS_ERROR;
7933: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
7934: -- Standard Unexpected Error Logging
7935: INL_LOGGING_PVT.Log_UnexpecError (
7936: p_module_name => g_module_name,
7937: p_procedure_name => l_program_name
7938: ) ;
7939: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
7938: ) ;
7939: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
7940: WHEN OTHERS THEN
7941: -- Standard Unexpected Error Logging
7942: INL_LOGGING_PVT.Log_UnexpecError (
7943: p_module_name => g_module_name,
7944: p_procedure_name => l_program_name
7945: ) ;
7946: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
8015: l_garb NUMBER ; --BUG#8468830
8016:
8017: BEGIN
8018: -- Standard Beginning of Procedure/Function Logging
8019: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8020: -- Standard Start of API savepoint
8021: SAVEPOINT Adjust_ChargeLines_PVT;
8022: -- Initialize message list if p_init_msg_list is set to TRUE.
8023: IF FND_API.to_Boolean (p_init_msg_list) THEN
8035: -- Initialize API return status to success
8036: x_return_status := L_FND_RET_STS_SUCCESS;
8037: -- Getting the match information
8038: l_debug_info := 'Getting the match information';
8039: INL_LOGGING_PVT.Log_Statement (
8040: p_module_name => g_module_name,
8041: p_procedure_name => l_api_name,
8042: p_debug_info => l_debug_info
8043: ) ;
8077: FROM inl_corr_matches_v m
8078: WHERE match_id = p_match_id;
8079: -- Getting the Ship information
8080: l_debug_info := 'Getting the ship line information';
8081: INL_LOGGING_PVT.Log_Statement (
8082: p_module_name => g_module_name,
8083: p_procedure_name => l_api_name,
8084: p_debug_info => l_debug_info
8085: ) ;
8087: INTO l_ship_header_id
8088: FROM inl_ship_lines sl
8089: WHERE sl.ship_line_id = l_ship_line_id;
8090:
8091: INL_LOGGING_PVT.Log_Variable (
8092: p_module_name => g_module_name,
8093: p_procedure_name => l_api_name,
8094: p_var_name => 'l_existing_match_info_flag',
8095: p_var_value => l_existing_match_info_flag
8094: p_var_name => 'l_existing_match_info_flag',
8095: p_var_value => l_existing_match_info_flag
8096: ) ;
8097:
8098: INL_LOGGING_PVT.Log_Variable (
8099: p_module_name => g_module_name,
8100: p_procedure_name => l_api_name,
8101: p_var_name => 'l_from_parent_table_name',
8102: p_var_value => l_from_parent_table_name
8101: p_var_name => 'l_from_parent_table_name',
8102: p_var_value => l_from_parent_table_name
8103: ) ;
8104:
8105: INL_LOGGING_PVT.Log_Variable (
8106: p_module_name => g_module_name,
8107: p_procedure_name => l_api_name,
8108: p_var_name => 'l_from_parent_table_id',
8109: p_var_value => l_from_parent_table_id
8108: p_var_name => 'l_from_parent_table_id',
8109: p_var_value => l_from_parent_table_id
8110: ) ;
8111:
8112: INL_LOGGING_PVT.Log_Variable (
8113: p_module_name => g_module_name,
8114: p_procedure_name => l_api_name,
8115: p_var_name => 'l_to_parent_table_name',
8116: p_var_value => l_to_parent_table_name
8115: p_var_name => 'l_to_parent_table_name',
8116: p_var_value => l_to_parent_table_name
8117: ) ;
8118:
8119: INL_LOGGING_PVT.Log_Variable (
8120: p_module_name => g_module_name,
8121: p_procedure_name => l_api_name,
8122: p_var_name => 'l_to_parent_table_id',
8123: p_var_value => l_to_parent_table_id
8127: -- has already been processed
8128: IF (l_existing_match_info_flag = 'Y') THEN
8129: -- Charge line has been processed
8130: l_debug_info := 'Existing match info flag';
8131: INL_LOGGING_PVT.Log_Statement (
8132: p_module_name => g_module_name,
8133: p_procedure_name => l_api_name,
8134: p_debug_info => l_debug_info
8135: ) ;
8167: ELSE
8168: l_ChLn_Assoc.parent_charge_line_id := NULL;
8169: -- Getting the charge line to correction
8170: l_debug_info := 'Getting the charge line to correction';
8171: INL_LOGGING_PVT.Log_Statement (
8172: p_module_name => g_module_name,
8173: p_procedure_name => l_api_name,
8174: p_debug_info => l_debug_info
8175: ) ;
8196: THEN
8197: l_ChLn_Assoc.charge_line_num := l_corr_charge_line_num;
8198: l_ChLn_Assoc.parent_charge_line_id := l_corr_charge_line_id;
8199:
8200: INL_LOGGING_PVT.Log_Variable (
8201: p_module_name => g_module_name,
8202: p_procedure_name => l_api_name,
8203: p_var_name => 'l_corr_charge_line_id',
8204: p_var_value => l_corr_charge_line_id) ;
8207: END IF;
8208: END IF;
8209: -- Handling estimated Charge Line and getting the parent_charge_line_id
8210: l_debug_info := 'Handling estimated Charge Line and getting the parent_charge_line_id';
8211: INL_LOGGING_PVT.Log_Statement (
8212: p_module_name => g_module_name,
8213: p_procedure_name => l_api_name,
8214: p_debug_info => l_debug_info
8215: ) ;
8217: -- 1) Create a new charge line ADJ x with the new actual value with no ADJ 0
8218: -- 2) For the estimated charge line create a new charge line ADJ 1 with amount = 0
8219: -- Getting information for the new charge line
8220: l_debug_info := 'All Matched Amounts :'||l_matched_amt;
8221: INL_LOGGING_PVT.Log_Statement (
8222: p_module_name => g_module_name,
8223: p_procedure_name => l_api_name,
8224: p_debug_info => l_debug_info
8225: ) ;
8280: l_ChLn_Assoc.poo_organization_id := NULL;
8281: l_ChLn_Assoc.poo_location_id := NULL;
8282: -- Create_ChLines
8283: l_debug_info := 'Create_ChLines';
8284: INL_LOGGING_PVT.Log_Statement (
8285: p_module_name => g_module_name,
8286: p_procedure_name => l_api_name,
8287: p_debug_info => l_debug_info
8288: ) ;
8294:
8295: --Bug#12313822
8296:
8297: l_debug_info := 'Getting the allocation basis';
8298: INL_LOGGING_PVT.Log_Statement (
8299: p_module_name => g_module_name,
8300: p_procedure_name => l_api_name,
8301: p_debug_info => l_debug_info
8302: ) ;
8311: inl_allocation_basis_vl abv
8312: WHERE abv.allocation_basis_code = clt.allocation_basis
8313: AND clt.charge_line_type_id = l_ChLn_Assoc.charge_line_type_id;
8314:
8315: INL_LOGGING_PVT.Log_Variable (
8316: p_module_name => g_module_name,
8317: p_procedure_name => l_api_name,
8318: p_var_name => 'l_ChLn_Assoc.inl_Assoc.allocation_basis',
8319: p_var_value => l_ChLn_Assoc.inl_Assoc.allocation_basis
8317: p_procedure_name => l_api_name,
8318: p_var_name => 'l_ChLn_Assoc.inl_Assoc.allocation_basis',
8319: p_var_value => l_ChLn_Assoc.inl_Assoc.allocation_basis
8320: ) ;
8321: INL_LOGGING_PVT.Log_Variable (
8322: p_module_name => g_module_name,
8323: p_procedure_name => l_api_name,
8324: p_var_name => 'l_ChLn_Assoc.inl_Assoc.allocation_uom_code',
8325: p_var_value => l_ChLn_Assoc.inl_Assoc.allocation_uom_code
8357: END IF;
8358: -- Standard call to get message count and if count is 1, get message info.
8359: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8360: -- Standard End of Procedure/Function Logging
8361: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8362: EXCEPTION
8363: WHEN L_FND_EXC_ERROR THEN
8364: -- Standard Expected Error Logging
8365: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8361: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8362: EXCEPTION
8363: WHEN L_FND_EXC_ERROR THEN
8364: -- Standard Expected Error Logging
8365: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8366: ROLLBACK TO Adjust_ChargeLines_PVT;
8367: x_return_status := L_FND_RET_STS_ERROR;
8368: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8369: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8367: x_return_status := L_FND_RET_STS_ERROR;
8368: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8369: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8370: -- Standard Unexpected Error Logging
8371: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8372: ROLLBACK TO Adjust_ChargeLines_PVT;
8373: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8374: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8375: WHEN OTHERS THEN
8373: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8374: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8375: WHEN OTHERS THEN
8376: -- Standard Unexpected Error Logging
8377: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8378: ROLLBACK TO Adjust_ChargeLines_PVT;
8379: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
8380: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8381: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
8463: l_garb NUMBER ; --BUG#8468830
8464: l_prev_match_id NUMBER;
8465: BEGIN
8466: -- Standard Beginning of Procedure/Function Logging
8467: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8468: -- Standard Start of API savepoint
8469: SAVEPOINT Adjust_ChargeLines_PVT;
8470: -- Initialize message list if p_init_msg_list is set to TRUE.
8471: IF FND_API.to_Boolean (p_init_msg_list) THEN
8483: -- Initialize API return status to success
8484: x_return_status := L_FND_RET_STS_SUCCESS;
8485: -- Getting the match information
8486: l_debug_info := 'Getting the match information';
8487: INL_LOGGING_PVT.Log_Statement (
8488: p_module_name => g_module_name,
8489: p_procedure_name => l_api_name,
8490: p_debug_info => l_debug_info
8491: ) ;
8489: p_procedure_name => l_api_name,
8490: p_debug_info => l_debug_info
8491: ) ;
8492:
8493: INL_LOGGING_PVT.Log_Variable (
8494: p_module_name => g_module_name,
8495: p_procedure_name => l_api_name,
8496: p_var_name => 'p_match_amount_id',
8497: p_var_value => p_match_amount_id
8550: AND m.match_id in (select min(match_id) -- BUG#8411594
8551: FROM inl_corr_matches_v m
8552: WHERE m.match_amount_id = p_match_amount_id);
8553:
8554: INL_LOGGING_PVT.Log_Variable (
8555: p_module_name => g_module_name,
8556: p_procedure_name => l_api_name,
8557: p_var_name => 'l_existing_match_info_flag',
8558: p_var_value => l_existing_match_info_flag
8557: p_var_name => 'l_existing_match_info_flag',
8558: p_var_value => l_existing_match_info_flag
8559: ) ;
8560:
8561: INL_LOGGING_PVT.Log_Variable (
8562: p_module_name => g_module_name,
8563: p_procedure_name => l_api_name,
8564: p_var_name => 'l_from_parent_table_name',
8565: p_var_value => l_from_parent_table_name
8564: p_var_name => 'l_from_parent_table_name',
8565: p_var_value => l_from_parent_table_name
8566: ) ;
8567:
8568: INL_LOGGING_PVT.Log_Variable (
8569: p_module_name => g_module_name,
8570: p_procedure_name => l_api_name,
8571: p_var_name => 'l_from_parent_table_id',
8572: p_var_value => l_from_parent_table_id
8571: p_var_name => 'l_from_parent_table_id',
8572: p_var_value => l_from_parent_table_id
8573: ) ;
8574:
8575: INL_LOGGING_PVT.Log_Variable (
8576: p_module_name => g_module_name,
8577: p_procedure_name => l_api_name,
8578: p_var_name => 'l_to_parent_table_name',
8579: p_var_value => l_to_parent_table_name
8578: p_var_name => 'l_to_parent_table_name',
8579: p_var_value => l_to_parent_table_name
8580: ) ;
8581:
8582: INL_LOGGING_PVT.Log_Variable (
8583: p_module_name => g_module_name,
8584: p_procedure_name => l_api_name,
8585: p_var_name => 'l_to_parent_table_id',
8586: p_var_value => l_to_parent_table_id
8606: FROM inl_matches m2
8607: WHERE m2.match_amount_id = p_match_amount_id)
8608: ;
8609:
8610: INL_LOGGING_PVT.Log_Variable (
8611: p_module_name => g_module_name,
8612: p_procedure_name => l_api_name,
8613: p_var_name => 'l_prev_match_amount_id',
8614: p_var_value => l_prev_match_amount_id
8656: );
8657: END IF;
8658: ELSE --BUG#9804065 -- The previous could be a match and not a match amount
8659:
8660: INL_LOGGING_PVT.Log_Statement (
8661: p_module_name => g_module_name,
8662: p_procedure_name => l_api_name,
8663: p_debug_info => 'Get previous match id.'
8664: ) ;
8667: FROM inl_matches m
8668: WHERE m.match_amount_id = p_match_amount_id
8669: AND m.existing_match_info_flag = 'Y';
8670:
8671: INL_LOGGING_PVT.Log_Variable (
8672: p_module_name => g_module_name,
8673: p_procedure_name => l_api_name,
8674: p_var_name => 'l_prev_match_id',
8675: p_var_value => l_prev_match_id
8689: END IF;
8690: END IF;
8691: -- BUG#8411594
8692:
8693: INL_LOGGING_PVT.Log_Variable (
8694: p_module_name => g_module_name,
8695: p_procedure_name => l_api_name,
8696: p_var_name => 'l_count_new_matches',
8697: p_var_value => l_count_new_matches
8699: IF (l_existing_match_info_flag = 'Y')
8700: AND l_count_new_matches = 0 THEN -- BUG#8411594
8701: -- Charge has been already processed
8702: l_debug_info := 'Existing match info flag';
8703: INL_LOGGING_PVT.Log_Statement (
8704: p_module_name => g_module_name,
8705: p_procedure_name => l_api_name,
8706: p_debug_info => l_debug_info
8707: ) ;
8737: ELSE
8738: l_ChLn_Assoc.parent_charge_line_id := NULL;
8739: -- Getting the charge line to correction
8740: l_debug_info := 'Getting the charge line to correction';
8741: INL_LOGGING_PVT.Log_Statement (
8742: p_module_name => g_module_name,
8743: p_procedure_name => l_api_name,
8744: p_debug_info => l_debug_info
8745: ) ;
8770: THEN
8771: l_ChLn_Assoc.charge_line_num := l_corr_charge_line_num;
8772: l_ChLn_Assoc.parent_charge_line_id := l_corr_charge_line_id;
8773:
8774: INL_LOGGING_PVT.Log_Variable (
8775: p_module_name => g_module_name,
8776: p_procedure_name => l_api_name,
8777: p_var_name => 'l_corr_charge_line_id',
8778: p_var_value => l_corr_charge_line_id
8782: END IF;
8783: END IF;
8784: -- Handling estimated Charge Line and getting the parent_charge_line_id
8785: l_debug_info := 'Handling estimated Charge Line and getting the parent_charge_line_id';
8786: INL_LOGGING_PVT.Log_Statement (
8787: p_module_name => g_module_name,
8788: p_procedure_name => l_api_name,
8789: p_debug_info => l_debug_info
8790: ) ;
8792: -- 1) Create a new charge line ADJ x with the new actual value with no ADJ 0
8793: -- 2) For the estimated charge line create a new charge line ADJ 1 with amount = 0
8794: -- Getting information for the new charge line
8795: l_debug_info := 'All Matched Amounts :'||l_matched_amt;
8796: INL_LOGGING_PVT.Log_Statement (
8797: p_module_name => g_module_name,
8798: p_procedure_name => l_api_name,
8799: p_debug_info => l_debug_info
8800: ) ;
8849: l_ChLn_Assoc.poo_organization_id := NULL;
8850: l_ChLn_Assoc.poo_location_id := NULL;
8851: -- Create Charge Line
8852: l_debug_info := 'Create_ChLines from a match_amount_id';
8853: INL_LOGGING_PVT.Log_Statement (
8854: p_module_name => g_module_name,
8855: p_procedure_name => l_api_name,
8856: p_debug_info => l_debug_info
8857: ) ;
8871: IF (l_corr_charge_line_id IS NULL
8872: AND l_ChLn_Assoc.parent_charge_line_id IS NULL) THEN
8873: -- Create_associations for the match amount id
8874: l_debug_info := 'Create association lines to a match_amount_id';
8875: INL_LOGGING_PVT.Log_Statement (
8876: p_module_name => g_module_name,
8877: p_procedure_name => l_api_name,
8878: p_debug_info => l_debug_info
8879: ) ;
8880: OPEN c_matches_cl (p_match_amount_id) ;
8881: FETCH c_matches_cl BULK COLLECT INTO c_matches;
8882: CLOSE c_matches_cl;
8883: l_debug_info := c_matches.LAST||' match lines have been retrieved.';
8884: INL_LOGGING_PVT.Log_Statement (
8885: p_module_name => g_module_name,
8886: p_procedure_name => l_api_name,
8887: p_debug_info => l_debug_info
8888: ) ;
8896: l_AssocLn.to_parent_table_id := c_matches(i).to_parent_table_id;
8897: --Verifying if association already exists
8898: --BUG#8198498
8899: l_debug_info := ' Verifying if association already exists ('||i||'): '||c_matches(i).to_parent_table_name||' - '||c_matches(i).to_parent_table_id;
8900: INL_LOGGING_PVT.Log_Statement (
8901: p_module_name => g_module_name,
8902: p_procedure_name => l_api_name,
8903: p_debug_info => l_debug_info
8904: ) ;
8909: AND from_parent_table_id = l_new_charge_line_id
8910: AND to_parent_table_name = c_matches(i).to_parent_table_name
8911: AND to_parent_table_id = c_matches(i).to_parent_table_id
8912: ;
8913: INL_LOGGING_PVT.Log_Variable (
8914: p_module_name => g_module_name,
8915: p_procedure_name => l_api_name,
8916: p_var_name => 'l_AssocLn.association_id',
8917: p_var_value => l_AssocLn.association_id) ;
8916: p_var_name => 'l_AssocLn.association_id',
8917: p_var_value => l_AssocLn.association_id) ;
8918: -- Create Association Line
8919: l_debug_info := 'Create association line for the charge';
8920: INL_LOGGING_PVT.Log_Statement (
8921: p_module_name => g_module_name,
8922: p_procedure_name => l_api_name,
8923: p_debug_info => l_debug_info
8924: ) ;
8921: p_module_name => g_module_name,
8922: p_procedure_name => l_api_name,
8923: p_debug_info => l_debug_info
8924: ) ;
8925: INL_LOGGING_PVT.Log_Variable (
8926: p_module_name => g_module_name,
8927: p_procedure_name => l_api_name,
8928: p_var_name => 'c_matches('||i||').to_parent_table_id',
8929: p_var_value => c_matches(i).to_parent_table_id) ;
8954: END IF;
8955: -- Standard call to get message count and if count is 1, get message info.
8956: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8957: -- Standard End of Procedure/Function Logging
8958: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8959: EXCEPTION
8960: WHEN L_FND_EXC_ERROR THEN
8961: -- Standard Expected Error Logging
8962: INL_LOGGING_PVT.Log_ExpecError (
8958: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8959: EXCEPTION
8960: WHEN L_FND_EXC_ERROR THEN
8961: -- Standard Expected Error Logging
8962: INL_LOGGING_PVT.Log_ExpecError (
8963: p_module_name => g_module_name,
8964: p_procedure_name => l_api_name) ;
8965: ROLLBACK TO Adjust_ChargeLines_PVT;
8966: x_return_status := L_FND_RET_STS_ERROR;
8968: p_encoded => L_FND_FALSE,
8969: p_count => x_msg_count, p_data => x_msg_data) ;
8970: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
8971: -- Standard Unexpected Error Logging
8972: INL_LOGGING_PVT.Log_UnexpecError (
8973: p_module_name => g_module_name,
8974: p_procedure_name => l_api_name) ;
8975: ROLLBACK TO Adjust_ChargeLines_PVT;
8976: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
8979: p_count => x_msg_count,
8980: p_data => x_msg_data) ;
8981: WHEN OTHERS THEN
8982: -- Standard Unexpected Error Logging
8983: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8984: ROLLBACK TO Adjust_ChargeLines_PVT;
8985: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
8986: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8987: FND_MSG_PUB.Add_Exc_Msg (
9049: l_new_tax_line_id NUMBER;
9050: l_garb NUMBER ; --BUG#8468830
9051: BEGIN
9052: -- Standard Beginning of Procedure/Function Logging
9053: INL_LOGGING_PVT.Log_BeginProc (
9054: p_module_name => g_module_name,
9055: p_procedure_name => l_api_name) ;
9056: -- Standard Start of API savepoint
9057: SAVEPOINT Adjust_TaxLines_PVT;
9071: -- Initialize API return status to success
9072: x_return_status := L_FND_RET_STS_SUCCESS;
9073: -- Getting the match information
9074: l_debug_info := 'Getting the match information';
9075: INL_LOGGING_PVT.Log_Statement (
9076: p_module_name => g_module_name,
9077: p_procedure_name => l_api_name,
9078: p_debug_info => l_debug_info
9079: ) ;
9077: p_procedure_name => l_api_name,
9078: p_debug_info => l_debug_info
9079: ) ;
9080:
9081: INL_LOGGING_PVT.Log_Variable (
9082: p_module_name => g_module_name,
9083: p_procedure_name => l_api_name,
9084: p_var_name => 'p_match_id',
9085: p_var_value => p_match_id
9115: FROM inl_corr_matches_v m
9116: WHERE match_id = p_match_id;
9117: -- Handling estimated tax Line and getting the parent_tax_line_id
9118: l_debug_info := 'Handling estimated tax Line and getting the parent_tax_line_id';
9119: INL_LOGGING_PVT.Log_Statement (
9120: p_module_name => g_module_name,
9121: p_procedure_name => l_api_name,
9122: p_debug_info => l_debug_info
9123: ) ;
9125: -- 1) Create a new tax line ADJ 1 with the new actual value with no ADJ 0
9126: -- 2) For the estimated tax line create a new tax line ADJ 1 with amount = 0
9127: -- Getting information for the new tax line
9128: l_debug_info := 'All Amounts :'||l_matched_amt;
9129: INL_LOGGING_PVT.Log_Statement (
9130: p_module_name => g_module_name,
9131: p_procedure_name => l_api_name,
9132: p_debug_info => l_debug_info
9133: ) ;
9199: l_include_assoc_flag:= 'N';
9200: END IF;
9201: -- Create_TxLines
9202: l_debug_info := 'Create_TxLines';
9203: INL_LOGGING_PVT.Log_Statement (
9204: p_module_name => g_module_name,
9205: p_procedure_name => l_api_name,
9206: p_debug_info => l_debug_info
9207: ) ;
9224: END IF;
9225: -- Standard call to get message count and if count is 1, get message info.
9226: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
9227: -- Standard End of Procedure/Function Logging
9228: INL_LOGGING_PVT.Log_EndProc (
9229: p_module_name => g_module_name,
9230: p_procedure_name => l_api_name) ;
9231: EXCEPTION
9232: WHEN L_FND_EXC_ERROR THEN
9230: p_procedure_name => l_api_name) ;
9231: EXCEPTION
9232: WHEN L_FND_EXC_ERROR THEN
9233: -- Standard Expected Error Logging
9234: INL_LOGGING_PVT.Log_ExpecError (
9235: p_module_name => g_module_name,
9236: p_procedure_name => l_api_name) ;
9237: ROLLBACK TO Adjust_TaxLines_PVT;
9238: x_return_status := L_FND_RET_STS_ERROR;
9240: p_encoded => L_FND_FALSE,
9241: p_count => x_msg_count, p_data => x_msg_data) ;
9242: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9243: -- Standard Unexpected Error Logging
9244: INL_LOGGING_PVT.Log_UnexpecError (
9245: p_module_name => g_module_name,
9246: p_procedure_name => l_api_name) ;
9247: ROLLBACK TO Adjust_TaxLines_PVT;
9248: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9251: p_count => x_msg_count,
9252: p_data => x_msg_data) ;
9253: WHEN OTHERS THEN
9254: -- Standard Unexpected Error Logging
9255: INL_LOGGING_PVT.Log_UnexpecError (
9256: p_module_name => g_module_name,
9257: p_procedure_name => l_api_name) ;
9258: ROLLBACK TO Adjust_TaxLines_PVT;
9259: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
9322: l_count_new_matches NUMBER;
9323: l_garb NUMBER ; --BUG#8468830
9324: BEGIN
9325: -- Standard Beginning of Procedure/Function Logging
9326: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
9327: -- Standard Start of API savepoint
9328: SAVEPOINT Adjust_TaxLines_2_PVT;
9329: -- Initialize message list if p_init_msg_list is set to TRUE.
9330: IF FND_API.to_Boolean (p_init_msg_list) THEN
9337: -- Initialize API return status to success
9338: x_return_status := L_FND_RET_STS_SUCCESS;
9339: -- Getting the matchAmount information
9340: l_debug_info := 'Getting the matchAmount information';
9341: INL_LOGGING_PVT.Log_Statement (
9342: p_module_name => g_module_name,
9343: p_procedure_name => l_api_name,
9344: p_debug_info => l_debug_info
9345: ) ;
9398: AND m.match_id in (select min(match_id) -- BUG#8411594
9399: FROM inl_corr_matches_v m
9400: WHERE m.match_amount_id = p_match_amount_id);
9401:
9402: INL_LOGGING_PVT.Log_Variable (
9403: p_module_name => g_module_name,
9404: p_procedure_name => l_api_name,
9405: p_var_name => 'l_existing_match_info_flag',
9406: p_var_value => l_existing_match_info_flag) ;
9405: p_var_name => 'l_existing_match_info_flag',
9406: p_var_value => l_existing_match_info_flag) ;
9407:
9408:
9409: INL_LOGGING_PVT.Log_Variable (
9410: p_module_name => g_module_name,
9411: p_procedure_name => l_api_name,
9412: p_var_name => 'l_TxLn_Assoc.source_parent_table_name',
9413: p_var_value => l_TxLn_Assoc.source_parent_table_name
9412: p_var_name => 'l_TxLn_Assoc.source_parent_table_name',
9413: p_var_value => l_TxLn_Assoc.source_parent_table_name
9414: ) ;
9415:
9416: INL_LOGGING_PVT.Log_Variable (
9417: p_module_name => g_module_name,
9418: p_procedure_name => l_api_name,
9419: p_var_name => 'l_TxLn_Assoc.source_parent_table_id',
9420: p_var_value => l_TxLn_Assoc.source_parent_table_id
9423: IF (l_existing_match_info_flag = 'Y') THEN
9424:
9425: -- Tax has been already processed
9426: l_debug_info := 'Existing match info flag';
9427: INL_LOGGING_PVT.Log_Statement (
9428: p_module_name => g_module_name,
9429: p_procedure_name => l_api_name,
9430: p_debug_info => l_debug_info
9431: ) ;
9444: FROM inl_matches m2
9445: WHERE m2.match_amount_id = p_match_amount_id)
9446: ;
9447:
9448: INL_LOGGING_PVT.Log_Variable (
9449: p_module_name => g_module_name,
9450: p_procedure_name => l_api_name,
9451: p_var_name => 'l_prev_match_amount_id',
9452: p_var_value => l_prev_match_amount_id
9486: -- c) if exists any new match zeroes the previous charge line
9487: IF l_count_new_matches > 0 THEN
9488:
9489: l_debug_info := 'Calling Zero_TaxLinesPerMatchAmt';
9490: INL_LOGGING_PVT.Log_Statement (
9491: p_module_name => g_module_name,
9492: p_procedure_name => l_api_name,
9493: p_debug_info => l_debug_info
9494: ) ;
9505: END IF;
9506: -- BUG#8411594
9507: END IF;
9508:
9509: INL_LOGGING_PVT.Log_Variable (
9510: p_module_name => g_module_name,
9511: p_procedure_name => l_api_name,
9512: p_var_name => 'l_count_new_matches',
9513: p_var_value => l_count_new_matches
9516: IF (l_existing_match_info_flag = 'Y')
9517: AND l_count_new_matches = 0 THEN -- BUG#8411594
9518: -- Charge has been already processed
9519: l_debug_info := 'Existing match info flag';
9520: INL_LOGGING_PVT.Log_Statement (
9521: p_module_name => g_module_name,
9522: p_procedure_name => l_api_name,
9523: p_debug_info => l_debug_info
9524: ) ;
9542: l_TxLn_Assoc.match_id := NULL;
9543: l_TxLn_Assoc.match_amount_id := p_match_amount_id;
9544: -- Create_TxLines
9545: l_debug_info := 'Create_TxLines';
9546: INL_LOGGING_PVT.Log_Statement (
9547: p_module_name => g_module_name,
9548: p_procedure_name => l_api_name,
9549: p_debug_info => l_debug_info
9550: ) ;
9580: OR l_count_new_matches > 0 -- BUG#8411594
9581: THEN
9582: -- Create_associations for the match amount id
9583: l_debug_info := 'Create association lines to a match_amount_id';
9584: INL_LOGGING_PVT.Log_Statement (
9585: p_module_name => g_module_name,
9586: p_procedure_name => l_api_name,
9587: p_debug_info => l_debug_info
9588: ) ;
9589: OPEN c_matches_tl (p_match_amount_id) ;
9590: FETCH c_matches_tl BULK COLLECT INTO c_matches;
9591: CLOSE c_matches_tl;
9592: l_debug_info := c_matches.LAST||' match lines have been retrieved.';
9593: INL_LOGGING_PVT.Log_Statement (
9594: p_module_name => g_module_name,
9595: p_procedure_name => l_api_name,
9596: p_debug_info => l_debug_info
9597: ) ;
9602: l_TxLn_Assoc.inl_Assoc.to_parent_table_name := c_matches(i).to_parent_table_name;
9603: l_TxLn_Assoc.inl_Assoc.to_parent_table_id := c_matches(i).to_parent_table_id;
9604: -- Create Association Line
9605: l_debug_info := 'Create association line for the charge';
9606: INL_LOGGING_PVT.Log_Statement (
9607: p_module_name => g_module_name,
9608: p_procedure_name => l_api_name,
9609: p_debug_info => l_debug_info
9610: ) ;
9608: p_procedure_name => l_api_name,
9609: p_debug_info => l_debug_info
9610: ) ;
9611: l_debug_info := 'Creating association for Charge Id: '|| c_matches (i) .to_parent_table_id;
9612: INL_LOGGING_PVT.Log_Variable (
9613: p_module_name => g_module_name,
9614: p_procedure_name => l_api_name,
9615: p_var_name => l_debug_info,
9616: p_var_value => c_matches (i) .to_parent_table_id) ;
9633: p_encoded => L_FND_FALSE,
9634: p_count => x_msg_count,
9635: p_data => x_msg_data) ;
9636: -- Standard End of Procedure/Function Logging
9637: INL_LOGGING_PVT.Log_EndProc (
9638: p_module_name => g_module_name,
9639: p_procedure_name => l_api_name) ;
9640: EXCEPTION
9641: WHEN L_FND_EXC_ERROR THEN
9639: p_procedure_name => l_api_name) ;
9640: EXCEPTION
9641: WHEN L_FND_EXC_ERROR THEN
9642: -- Standard Expected Error Logging
9643: INL_LOGGING_PVT.Log_ExpecError (
9644: p_module_name => g_module_name,
9645: p_procedure_name => l_api_name) ;
9646: ROLLBACK TO Adjust_TaxLines_2_PVT;
9647: x_return_status := L_FND_RET_STS_ERROR;
9650: p_count => x_msg_count,
9651: p_data => x_msg_data) ;
9652: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
9653: -- Standard Unexpected Error Logging
9654: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
9655: ROLLBACK TO Adjust_TaxLines_2_PVT;
9656: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
9657: FND_MSG_PUB.Count_And_Get (
9658: p_encoded => L_FND_FALSE,
9659: p_count => x_msg_count,
9660: p_data => x_msg_data) ;
9661: WHEN OTHERS THEN
9662: -- Standard Unexpected Error Logging
9663: INL_LOGGING_PVT.Log_UnexpecError (
9664: p_module_name => g_module_name,
9665: p_procedure_name => l_api_name) ;
9666: ROLLBACK TO Adjust_TaxLines_2_PVT;
9667: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
9805: l_adj_group_date_ant DATE; --OPM Integration
9806: l_adj_group_date DATE; --dependence
9807: BEGIN
9808: -- Standard Beginning of Procedure/Function Logging
9809: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
9810: -- Standard Start of API savepoint
9811: SAVEPOINT Adjust_Lines_PVT;
9812: -- Initialize message list if p_init_msg_list is set to TRUE.
9813: IF FND_API.to_Boolean (p_init_msg_list) THEN
9821: x_return_status := L_FND_RET_STS_SUCCESS;
9822: -- API Body
9823: BEGIN
9824: l_debug_info := 'Create Adjustments for Shipment Lines and Charge Lines';
9825: INL_LOGGING_PVT.Log_Statement (
9826: p_module_name => g_module_name,
9827: p_procedure_name => l_api_name,
9828: p_debug_info => l_debug_info
9829: ) ;
9833: OPEN c_match;
9834: FETCH c_match BULK COLLECT INTO r_match;
9835: CLOSE c_match;
9836: l_debug_info := 'p_ship_header_id';
9837: INL_LOGGING_PVT.Log_Variable (
9838: p_module_name => g_module_name,
9839: p_procedure_name => l_api_name,
9840: p_var_name => l_debug_info,
9841: p_var_value => p_ship_header_id
9840: p_var_name => l_debug_info,
9841: p_var_value => p_ship_header_id
9842: );
9843: l_debug_info := r_match.LAST||' match lines have been retrieved.';
9844: INL_LOGGING_PVT.Log_Statement (
9845: p_module_name => g_module_name,
9846: p_procedure_name => l_api_name,
9847: p_debug_info => l_debug_info
9848: ) ;
9868: AND mFromMA.match_amount_id = ma.match_amount_id
9869: AND NVL (mFromMA.adj_already_generated_flag, 'N') = 'N'
9870: ;
9871: l_debug_info := 'l_match_amt_proc_same_adj_num';
9872: INL_LOGGING_PVT.Log_Variable (
9873: p_module_name => g_module_name,
9874: p_procedure_name => l_api_name,
9875: p_var_name => l_debug_info,
9876: p_var_value => l_match_amt_proc_same_adj_num
9877: );
9878: END IF;
9879:
9880: l_debug_info := 'l_has_match_amt';
9881: INL_LOGGING_PVT.Log_Variable (
9882: p_module_name => g_module_name,
9883: p_procedure_name => l_api_name,
9884: p_var_name => l_debug_info,
9885: p_var_value => l_has_match_amt
9886: );
9887: FOR i IN NVL (r_match.FIRST, 0) ..NVL (r_match.LAST, 0)
9888: LOOP
9889: l_debug_info := ' Begin the loop.';
9890: INL_LOGGING_PVT.Log_Statement (
9891: p_module_name => g_module_name,
9892: p_procedure_name => l_api_name,
9893: p_debug_info => l_debug_info
9894: ) ;
9899: INTO l_adjustment_num
9900: FROM inl_ship_headers
9901: WHERE ship_header_id = p_ship_header_id FOR UPDATE;
9902: l_debug_info := 'l_adjustment_num';
9903: INL_LOGGING_PVT.Log_Variable (
9904: p_module_name => g_module_name,
9905: p_procedure_name => l_api_name,
9906: p_var_name => l_debug_info,
9907: p_var_value => l_adjustment_num
9911: OR l_adj_group_date_ant <> r_match(i).adj_group_date THEN --OPM Integration
9912: l_adj_group_date_ant := r_match(i).adj_group_date;
9913: l_adjustment_num := l_adjustment_num + 1;
9914: l_debug_info := ' New adjustment_num';
9915: INL_LOGGING_PVT.Log_Statement (
9916: p_module_name => g_module_name,
9917: p_procedure_name => l_api_name,
9918: p_debug_info => l_debug_info
9919: ) ;
9917: p_procedure_name => l_api_name,
9918: p_debug_info => l_debug_info
9919: ) ;
9920: l_debug_info := 'l_adjustment_num';
9921: INL_LOGGING_PVT.Log_Variable (
9922: p_module_name => g_module_name,
9923: p_procedure_name => l_api_name,
9924: p_var_name => l_debug_info,
9925: p_var_value => l_adjustment_num
9930: match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id:= p_ship_header_id;
9931: match_ship_header_id_lst(l_match_ship_header_id_ind).adjustment_num:= l_adjustment_num;
9932:
9933: l_debug_info := 'match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id';
9934: INL_LOGGING_PVT.Log_Variable (
9935: p_module_name => g_module_name,
9936: p_procedure_name => l_api_name,
9937: p_var_name => l_debug_info,
9938: p_var_value => match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id
9943: IF NVL(l_adjustment_num,0) = 0 THEN -- no adjustment_num catched yet
9944: l_adj_group_date_ant := r_match(i).adj_group_date; --Bug#9141681
9945: -- 1 Verify the next adjustment num
9946: l_debug_info := ' Getting adjustment_num (match_amounts)';
9947: INL_LOGGING_PVT.Log_Statement (
9948: p_module_name => g_module_name,
9949: p_procedure_name => l_api_name,
9950: p_debug_info => l_debug_info
9951: ) ;
9966: AND m1.match_type_code <> 'CORRECTION')
9967: ;
9968:
9969: l_debug_info := 'l_adjustment_num';
9970: INL_LOGGING_PVT.Log_Variable (
9971: p_module_name => g_module_name,
9972: p_procedure_name => l_api_name,
9973: p_var_name => l_debug_info,
9974: p_var_value => l_adjustment_num
10007: match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id:= C_CUR_HEAD.ship_header_id;
10008: match_ship_header_id_lst(l_match_ship_header_id_ind).adjustment_num:= l_adjustment_num;
10009:
10010: l_debug_info := 'C_CUR_HEAD.ship_header_id';
10011: INL_LOGGING_PVT.Log_Variable (
10012: p_module_name => g_module_name,
10013: p_procedure_name => l_api_name,
10014: p_var_name => l_debug_info,
10015: p_var_value => C_CUR_HEAD.ship_header_id
10019: ELSE -- IF l_match_amt_proc_same_adj_num = 'N' THEN
10020: -- fetch every time, because the group of matches from this match_amount
10021: -- could be different from the previous one
10022: l_debug_info := ' Getting the MAX adjustment_num for this group (match_amounts)';
10023: INL_LOGGING_PVT.Log_Statement (
10024: p_module_name => g_module_name,
10025: p_procedure_name => l_api_name,
10026: p_debug_info => l_debug_info
10027: ) ;
10025: p_procedure_name => l_api_name,
10026: p_debug_info => l_debug_info
10027: ) ;
10028: l_debug_info := 'r_match(i).match_amount_id';
10029: INL_LOGGING_PVT.Log_Variable (
10030: p_module_name => g_module_name,
10031: p_procedure_name => l_api_name,
10032: p_var_name => l_debug_info,
10033: p_var_value => r_match(i).match_amount_id
10042: AND m1.match_amount_id = r_match(i).match_amount_id)
10043: ;
10044:
10045: l_debug_info := 'l_adjustment_num_tmp';
10046: INL_LOGGING_PVT.Log_Variable (
10047: p_module_name => g_module_name,
10048: p_procedure_name => l_api_name,
10049: p_var_name => l_debug_info,
10050: p_var_value => l_adjustment_num_tmp
10075: l_adjustment_num := l_adjustment_num + 1;
10076: END IF;
10077: l_adj_group_date_ant := r_match(i).adj_group_date;
10078: l_debug_info := 'l_adjustment_num';
10079: INL_LOGGING_PVT.Log_Variable (
10080: p_module_name => g_module_name,
10081: p_procedure_name => l_api_name,
10082: p_var_name => l_debug_info,
10083: p_var_value => l_adjustment_num
10082: p_var_name => l_debug_info,
10083: p_var_value => l_adjustment_num
10084: );
10085: l_debug_info := 'l_adj_group_date_ant';
10086: INL_LOGGING_PVT.Log_Variable (
10087: p_module_name => g_module_name,
10088: p_procedure_name => l_api_name,
10089: p_var_name => l_debug_info,
10090: p_var_value => l_adj_group_date_ant
10102: l_match_ship_header_id_ind:=l_match_ship_header_id_ind+1;
10103: match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id:= C_CUR_HEAD.ship_header_id;
10104: match_ship_header_id_lst(l_match_ship_header_id_ind).adjustment_num:= l_adjustment_num;
10105: l_debug_info := 'match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id';
10106: INL_LOGGING_PVT.Log_Variable (
10107: p_module_name => g_module_name,
10108: p_procedure_name => l_api_name,
10109: p_var_name => l_debug_info,
10110: p_var_value => match_ship_header_id_lst(l_match_ship_header_id_ind).ship_header_id
10117: --
10118: --BUG#8198498
10119: --
10120:
10121: INL_LOGGING_PVT.Log_Variable (
10122: p_module_name => g_module_name,
10123: p_procedure_name => l_api_name,
10124: p_var_name => 'r_match('||i||').match_amount_id',
10125: p_var_value => r_match(i).match_amount_id
10124: p_var_name => 'r_match('||i||').match_amount_id',
10125: p_var_value => r_match(i).match_amount_id
10126: );
10127:
10128: INL_LOGGING_PVT.Log_Variable (
10129: p_module_name => g_module_name,
10130: p_procedure_name => l_api_name,
10131: p_var_name => 'r_match('||i||').to_parent_table_id',
10132: p_var_value => TO_CHAR (r_match(i).to_parent_table_id)
10134:
10135: --Bug#14044298 BEG
10136: IF l_func_currency_code IS NULL
10137: THEN
10138: INL_LOGGING_PVT.Log_Variable (
10139: p_module_name => g_module_name,
10140: p_procedure_name => l_api_name,
10141: p_var_name => 'r_match('||i||').organization_id',
10142: p_var_value => r_match(i).organization_id
10148: gl_sets_of_books gsb
10149: WHERE
10150: gsb.set_of_books_id = ood.set_of_books_id
10151: AND ood.organization_id = r_match(i).organization_id;
10152: INL_LOGGING_PVT.Log_Variable (
10153: p_module_name => g_module_name,
10154: p_procedure_name => l_api_name,
10155: p_var_name => 'l_func_currency_code',
10156: p_var_value => l_func_currency_code
10240: WHERE m.match_id = NVL (r_match(i).correction_match_id, r_match(i).match_id)
10241: OR NVL(m.match_amount_id,-1) = NVL(r_match(i).match_amount_id,-2);
10242: END LOOP;
10243: l_debug_info := 'Update Shipment Header Adjustment Number';
10244: INL_LOGGING_PVT.Log_Statement (
10245: p_module_name => g_module_name,
10246: p_procedure_name => l_api_name,
10247: p_debug_info => l_debug_info
10248: ) ;
10255: UPDATE inl_ship_headers
10256: SET adjustment_num = match_ship_header_id_lst(i).adjustment_num
10257: WHERE ship_header_id = match_ship_header_id_lst(i).ship_header_id;
10258:
10259: INL_LOGGING_PVT.Log_Variable (
10260: p_module_name => g_module_name,
10261: p_procedure_name => l_api_name,
10262: p_var_name => 'match_ship_header_id_lst('||i||').adjustment_num',
10263: p_var_value => match_ship_header_id_lst(i).adjustment_num
10262: p_var_name => 'match_ship_header_id_lst('||i||').adjustment_num',
10263: p_var_value => match_ship_header_id_lst(i).adjustment_num
10264: );
10265:
10266: INL_LOGGING_PVT.Log_Variable (
10267: p_module_name => g_module_name,
10268: p_procedure_name => l_api_name,
10269: p_var_name => 'match_ship_header_id_lst('||i||').ship_header_id',
10270: p_var_value => match_ship_header_id_lst(i).ship_header_id
10287: END IF;
10288: -- Standard call to get message count and if count is 1, get message info.
10289: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
10290: -- Standard End of Procedure/Function Logging
10291: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
10292: EXCEPTION
10293: WHEN L_FND_EXC_ERROR THEN
10294: -- Standard Expected Error Logging
10295: INL_LOGGING_PVT.Log_ExpecError (
10291: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
10292: EXCEPTION
10293: WHEN L_FND_EXC_ERROR THEN
10294: -- Standard Expected Error Logging
10295: INL_LOGGING_PVT.Log_ExpecError (
10296: p_module_name => g_module_name,
10297: p_procedure_name => l_api_name) ;
10298: ROLLBACK TO Adjust_Lines_PVT;
10299: x_return_status := L_FND_RET_STS_ERROR;
10302: p_count => x_msg_count,
10303: p_data => x_msg_data) ;
10304: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10305: -- Standard Unexpected Error Logging
10306: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
10307: ROLLBACK TO Adjust_Lines_PVT;
10308: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10309: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
10310: WHEN OTHERS THEN
10308: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10309: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
10310: WHEN OTHERS THEN
10311: -- Standard Unexpected Error Logging
10312: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
10313: ROLLBACK TO Adjust_Lines_PVT;
10314: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
10315: IF FND_MSG_PUB.Check_Msg_Level (
10316: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10361: l_api_name CONSTANT VARCHAR2(30) := 'Get_1aryQty';
10362: l_api_version CONSTANT NUMBER := 1.0;
10363:
10364: BEGIN
10365: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
10366: p_procedure_name => l_api_name);
10367: -- Standard Start of API savepoint
10368: SAVEPOINT Get_1aryQty_PVT;
10369: -- Initialize message list if p_init_msg_list is set to TRUE.
10379: END IF;
10380: -- Initialize return status to SUCCESS
10381: x_return_status:= L_FND_RET_STS_SUCCESS;
10382:
10383: INL_LOGGING_PVT.Log_Variable (
10384: p_module_name => g_module_name,
10385: p_procedure_name => l_api_name,
10386: p_var_name => 'p_inventory_item_id',
10387: p_var_value => p_inventory_item_id) ;
10384: p_module_name => g_module_name,
10385: p_procedure_name => l_api_name,
10386: p_var_name => 'p_inventory_item_id',
10387: p_var_value => p_inventory_item_id) ;
10388: INL_LOGGING_PVT.Log_Variable (
10389: p_module_name => g_module_name,
10390: p_procedure_name => l_api_name,
10391: p_var_name => 'p_organization_id',
10392: p_var_value => p_organization_id) ;
10389: p_module_name => g_module_name,
10390: p_procedure_name => l_api_name,
10391: p_var_name => 'p_organization_id',
10392: p_var_value => p_organization_id) ;
10393: INL_LOGGING_PVT.Log_Variable (
10394: p_module_name => g_module_name,
10395: p_procedure_name => l_api_name,
10396: p_var_name => 'p_uom_code',
10397: p_var_value => p_uom_code) ;
10394: p_module_name => g_module_name,
10395: p_procedure_name => l_api_name,
10396: p_var_name => 'p_uom_code',
10397: p_var_value => p_uom_code) ;
10398: INL_LOGGING_PVT.Log_Variable (
10399: p_module_name => g_module_name,
10400: p_procedure_name => l_api_name,
10401: p_var_name => 'p_qty',
10402: p_var_value => p_qty) ;
10401: p_var_name => 'p_qty',
10402: p_var_value => p_qty) ;
10403:
10404: l_debug_info := 'Get Primary UOM Code from MTL_SYSTEM_ITEMS_VL';
10405: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
10406: p_procedure_name => l_api_name,
10407: p_debug_info => l_debug_info);
10408: SELECT msi.primary_uom_code
10409: INTO x_1ary_uom_code
10410: FROM mtl_system_items_vl msi
10411: WHERE msi.inventory_item_id = p_inventory_item_id
10412: AND msi.organization_id = p_organization_id;
10413:
10414: INL_LOGGING_PVT.Log_Variable (
10415: p_module_name => g_module_name,
10416: p_procedure_name => l_api_name,
10417: p_var_name => 'x_1ary_uom_code',
10418: p_var_value => x_1ary_uom_code) ;
10418: p_var_value => x_1ary_uom_code) ;
10419:
10420: IF x_1ary_uom_code IS NOT NULL THEN
10421: l_debug_info := 'Before executing the Primary UOM convertion';
10422: INL_LOGGING_PVT.Log_Statement (
10423: p_module_name => g_module_name,
10424: p_procedure_name => l_api_name,
10425: p_debug_info => l_debug_info);
10426:
10423: p_module_name => g_module_name,
10424: p_procedure_name => l_api_name,
10425: p_debug_info => l_debug_info);
10426:
10427: INL_LOGGING_PVT.Log_APICallIn (
10428: p_module_name => g_module_name,
10429: p_procedure_name => l_api_name,
10430: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
10431: p_in_param_name1 => 'p_organization_id',
10455: p_qty => p_qty,
10456: p_from_uom_code => p_uom_code,
10457: P_to_uom_code => x_1ary_uom_code);
10458:
10459: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
10460: p_procedure_name => l_api_name,
10461: p_var_name => 'x_1ary_qty',
10462: p_var_value => x_1ary_qty) ;
10463: END IF;
10469: -- Standard call to get message count and if count is 1, get message info.
10470: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
10471: p_count => x_msg_count,
10472: p_data => x_msg_data) ;
10473: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
10474: p_procedure_name => l_api_name) ;
10475: EXCEPTION
10476: WHEN L_FND_EXC_ERROR THEN
10477: INL_LOGGING_PVT.Log_ExpecError (
10473: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
10474: p_procedure_name => l_api_name) ;
10475: EXCEPTION
10476: WHEN L_FND_EXC_ERROR THEN
10477: INL_LOGGING_PVT.Log_ExpecError (
10478: p_module_name => g_module_name,
10479: p_procedure_name => l_api_name) ;
10480: x_return_status := L_FND_RET_STS_ERROR;
10481: ROLLBACK TO Get_1aryQty_PVT;
10479: p_procedure_name => l_api_name) ;
10480: x_return_status := L_FND_RET_STS_ERROR;
10481: ROLLBACK TO Get_1aryQty_PVT;
10482: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10483: INL_LOGGING_PVT.Log_UnexpecError (
10484: p_module_name => g_module_name,
10485: p_procedure_name => l_api_name) ;
10486: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10487: ROLLBACK TO Get_1aryQty_PVT;
10485: p_procedure_name => l_api_name) ;
10486: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10487: ROLLBACK TO Get_1aryQty_PVT;
10488: WHEN OTHERS THEN
10489: INL_LOGGING_PVT.Log_UnexpecError (
10490: p_module_name => g_module_name,
10491: p_procedure_name => l_api_name) ;
10492: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10493: ROLLBACK TO Get_1aryQty_PVT;
10538: l_api_name CONSTANT VARCHAR2(30) := 'Get_2aryQty';
10539: l_api_version CONSTANT NUMBER := 1.0;
10540:
10541: BEGIN
10542: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
10543: p_procedure_name => l_api_name);
10544: -- Standard Start of API savepoint
10545: SAVEPOINT Get_2aryQty_PVT;
10546: -- Initialize message list if p_init_msg_list is set to TRUE.
10556: END IF;
10557: -- Initialize return status to SUCCESS
10558: x_return_status:= L_FND_RET_STS_SUCCESS;
10559:
10560: INL_LOGGING_PVT.Log_Variable (
10561: p_module_name => g_module_name,
10562: p_procedure_name => l_api_name,
10563: p_var_name => 'p_inventory_item_id',
10564: p_var_value => p_inventory_item_id) ;
10561: p_module_name => g_module_name,
10562: p_procedure_name => l_api_name,
10563: p_var_name => 'p_inventory_item_id',
10564: p_var_value => p_inventory_item_id) ;
10565: INL_LOGGING_PVT.Log_Variable (
10566: p_module_name => g_module_name,
10567: p_procedure_name => l_api_name,
10568: p_var_name => 'p_organization_id',
10569: p_var_value => p_organization_id) ;
10566: p_module_name => g_module_name,
10567: p_procedure_name => l_api_name,
10568: p_var_name => 'p_organization_id',
10569: p_var_value => p_organization_id) ;
10570: INL_LOGGING_PVT.Log_Variable (
10571: p_module_name => g_module_name,
10572: p_procedure_name => l_api_name,
10573: p_var_name => 'p_uom_code',
10574: p_var_value => p_uom_code) ;
10571: p_module_name => g_module_name,
10572: p_procedure_name => l_api_name,
10573: p_var_name => 'p_uom_code',
10574: p_var_value => p_uom_code) ;
10575: INL_LOGGING_PVT.Log_Variable (
10576: p_module_name => g_module_name,
10577: p_procedure_name => l_api_name,
10578: p_var_name => 'p_qty',
10579: p_var_value => p_qty) ;
10578: p_var_name => 'p_qty',
10579: p_var_value => p_qty) ;
10580:
10581: l_debug_info := 'Get Secondary UOM Code from MTL_SYSTEM_ITEMS_VL';
10582: INL_LOGGING_PVT.Log_Statement (
10583: p_module_name => g_module_name,
10584: p_procedure_name => l_api_name,
10585: p_debug_info => l_debug_info
10586: ) ;
10590: FROM mtl_system_items_vl msi
10591: WHERE msi.inventory_item_id = p_inventory_item_id
10592: AND msi.organization_id = p_organization_id;
10593:
10594: INL_LOGGING_PVT.Log_Variable (
10595: p_module_name => g_module_name,
10596: p_procedure_name => l_api_name,
10597: p_var_name => 'x_2ary_uom_code',
10598: p_var_value => x_2ary_uom_code) ;
10598: p_var_value => x_2ary_uom_code) ;
10599:
10600: IF x_2ary_uom_code IS NOT NULL THEN
10601: l_debug_info := 'Before executing the Secondary UOM convertion';
10602: INL_LOGGING_PVT.Log_Statement (
10603: p_module_name => g_module_name,
10604: p_procedure_name => l_api_name,
10605: p_debug_info => l_debug_info
10606: ) ;
10603: p_module_name => g_module_name,
10604: p_procedure_name => l_api_name,
10605: p_debug_info => l_debug_info
10606: ) ;
10607: INL_LOGGING_PVT.Log_APICallIn (
10608: p_module_name => g_module_name,
10609: p_procedure_name => l_api_name,
10610: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
10611: p_in_param_name1 => 'p_organization_id',
10634: p_qty => p_qty,
10635: p_from_uom_code => p_uom_code,
10636: P_to_uom_code => x_2ary_uom_code) ;
10637:
10638: INL_LOGGING_PVT.Log_Variable (
10639: p_module_name => g_module_name,
10640: p_procedure_name => l_api_name,
10641: p_var_name => 'x_2ary_qty',
10642: p_var_value => x_2ary_qty) ;
10649: -- Standard call to get message count and if count is 1, get message info.
10650: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
10651: p_count => x_msg_count,
10652: p_data => x_msg_data) ;
10653: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
10654: p_procedure_name => l_api_name) ;
10655: EXCEPTION
10656: WHEN L_FND_EXC_ERROR THEN
10657: INL_LOGGING_PVT.Log_ExpecError (
10653: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
10654: p_procedure_name => l_api_name) ;
10655: EXCEPTION
10656: WHEN L_FND_EXC_ERROR THEN
10657: INL_LOGGING_PVT.Log_ExpecError (
10658: p_module_name => g_module_name,
10659: p_procedure_name => l_api_name) ;
10660: x_return_status := L_FND_RET_STS_ERROR;
10661: ROLLBACK TO Get_2aryQty_PVT;
10659: p_procedure_name => l_api_name) ;
10660: x_return_status := L_FND_RET_STS_ERROR;
10661: ROLLBACK TO Get_2aryQty_PVT;
10662: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10663: INL_LOGGING_PVT.Log_UnexpecError (
10664: p_module_name => g_module_name,
10665: p_procedure_name => l_api_name) ;
10666: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10667: ROLLBACK TO Get_2aryQty_PVT;
10665: p_procedure_name => l_api_name) ;
10666: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10667: ROLLBACK TO Get_2aryQty_PVT;
10668: WHEN OTHERS THEN
10669: INL_LOGGING_PVT.Log_UnexpecError (
10670: p_module_name => g_module_name,
10671: p_procedure_name => l_api_name) ;
10672: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10673: ROLLBACK TO Get_2aryQty_PVT;
10734: l_1ary_qty NUMBER;
10735: l_2ary_uom_code VARCHAR2(3);
10736: l_2ary_qty NUMBER;
10737: BEGIN
10738: INL_LOGGING_PVT.Log_BeginProc (
10739: p_module_name => g_module_name,
10740: p_procedure_name => l_api_name) ;
10741: -- Standard Start of API savepoint
10742: SAVEPOINT Get_1ary2aryQty_PVT;
10758: x_return_status:= L_FND_RET_STS_SUCCESS;
10759:
10760: -- START Bug 13914863
10761: l_debug_info := 'Call to Get_1aryQty API';
10762: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
10763: p_procedure_name => l_api_name,
10764: p_debug_info => l_debug_info);
10765: Get_1aryQty(p_api_version => 1.0,
10766: p_init_msg_list => L_FND_FALSE,
10783:
10784: x_1ary_uom_code := l_1ary_uom_code;
10785: x_1ary_qty := l_1ary_qty;
10786:
10787: INL_LOGGING_PVT.Log_Variable (
10788: p_module_name => g_module_name,
10789: p_procedure_name => l_api_name,
10790: p_var_name => 'x_1ary_uom_code',
10791: p_var_value => x_1ary_uom_code) ;
10788: p_module_name => g_module_name,
10789: p_procedure_name => l_api_name,
10790: p_var_name => 'x_1ary_uom_code',
10791: p_var_value => x_1ary_uom_code) ;
10792: INL_LOGGING_PVT.Log_Variable (
10793: p_module_name => g_module_name,
10794: p_procedure_name => l_api_name,
10795: p_var_name => 'x_1ary_qty',
10796: p_var_value => x_1ary_qty) ;
10795: p_var_name => 'x_1ary_qty',
10796: p_var_value => x_1ary_qty) ;
10797:
10798: l_debug_info := 'Call to Get_2aryQty API';
10799: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
10800: p_procedure_name => l_api_name,
10801: p_debug_info => l_debug_info);
10802:
10803: Get_2aryQty(p_api_version => 1.0,
10821:
10822: x_2ary_uom_code := l_2ary_uom_code;
10823: x_2ary_qty := l_2ary_qty;
10824:
10825: INL_LOGGING_PVT.Log_Variable (
10826: p_module_name => g_module_name,
10827: p_procedure_name => l_api_name,
10828: p_var_name => 'x_2ary_uom_code',
10829: p_var_value => x_2ary_uom_code) ;
10826: p_module_name => g_module_name,
10827: p_procedure_name => l_api_name,
10828: p_var_name => 'x_2ary_uom_code',
10829: p_var_value => x_2ary_uom_code) ;
10830: INL_LOGGING_PVT.Log_Variable (
10831: p_module_name => g_module_name,
10832: p_procedure_name => l_api_name,
10833: p_var_name => 'x_2ary_qty',
10834: p_var_value => x_2ary_qty) ;
10840: -- Initialize return status to SUCCESS
10841: --
10842: x_return_status:= L_FND_RET_STS_SUCCESS;
10843: l_debug_info := 'Getting 1ary and 2ary UOM Code from MTL tables';
10844: INL_LOGGING_PVT.Log_Statement (
10845: p_module_name => g_module_name,
10846: p_procedure_name => l_api_name,
10847: p_debug_info => l_debug_info
10848: ) ;
10853: FROM mtl_system_items_vl msi
10854: WHERE msi.inventory_item_id = p_inventory_item_id
10855: AND msi.organization_id = p_organization_id;
10856: l_debug_info := 'Have gotten from mtl_system_items_vl:';
10857: INL_LOGGING_PVT.Log_Statement (
10858: p_module_name => g_module_name,
10859: p_procedure_name => l_api_name,
10860: p_debug_info => l_debug_info
10861: ) ;
10859: p_procedure_name => l_api_name,
10860: p_debug_info => l_debug_info
10861: ) ;
10862:
10863: INL_LOGGING_PVT.Log_Variable (
10864: p_module_name => g_module_name,
10865: p_procedure_name => l_api_name,
10866: p_var_name => 'x_1ary_uom_code',
10867: p_var_value => x_1ary_uom_code) ;
10865: p_procedure_name => l_api_name,
10866: p_var_name => 'x_1ary_uom_code',
10867: p_var_value => x_1ary_uom_code) ;
10868:
10869: INL_LOGGING_PVT.Log_Variable (
10870: p_module_name => g_module_name,
10871: p_procedure_name => l_api_name,
10872: p_var_name => 'x_2ary_uom_code',
10873: p_var_value => x_2ary_uom_code) ;
10872: p_var_name => 'x_2ary_uom_code',
10873: p_var_value => x_2ary_uom_code) ;
10874: IF x_1ary_uom_code IS NOT NULL THEN
10875: l_debug_info := 'Doing the 1ary UOM convertion';
10876: INL_LOGGING_PVT.Log_Statement (
10877: p_module_name => g_module_name,
10878: p_procedure_name => l_api_name,
10879: p_debug_info => l_debug_info
10880: ) ;
10877: p_module_name => g_module_name,
10878: p_procedure_name => l_api_name,
10879: p_debug_info => l_debug_info
10880: ) ;
10881: INL_LOGGING_PVT.Log_APICallIn (
10882: p_module_name => g_module_name,
10883: p_procedure_name => l_api_name,
10884: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
10885: p_in_param_name1 => 'p_organization_id',
10909: p_from_uom_code => p_uom_code,
10910: P_to_uom_code => x_1ary_uom_code
10911: ) ;
10912: l_debug_info := 'x_1ary_qty';
10913: INL_LOGGING_PVT.Log_Variable (
10914: p_module_name => g_module_name,
10915: p_procedure_name => l_api_name,
10916: p_var_name => 'x_1ary_qty',
10917: p_var_value => x_1ary_qty) ;
10918: END IF;
10919: --==========
10920: IF x_2ary_uom_code IS NOT NULL THEN
10921: l_debug_info := 'Doing the 2ary UOM convertion';
10922: INL_LOGGING_PVT.Log_Statement (
10923: p_module_name => g_module_name,
10924: p_procedure_name => l_api_name,
10925: p_debug_info => l_debug_info
10926: ) ;
10923: p_module_name => g_module_name,
10924: p_procedure_name => l_api_name,
10925: p_debug_info => l_debug_info
10926: ) ;
10927: INL_LOGGING_PVT.Log_APICallIn (
10928: p_module_name => g_module_name,
10929: p_procedure_name => l_api_name,
10930: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
10931: p_in_param_name1 => 'p_organization_id',
10954: p_qty => p_qty,
10955: p_from_uom_code => p_uom_code,
10956: P_to_uom_code => x_2ary_uom_code) ;
10957:
10958: INL_LOGGING_PVT.Log_Variable (
10959: p_module_name => g_module_name,
10960: p_procedure_name => l_api_name,
10961: p_var_name => 'x_2ary_qty',
10962: p_var_value => x_2ary_qty) ;
10971: FND_MSG_PUB.Count_And_Get (
10972: p_encoded => L_FND_FALSE,
10973: p_count => x_msg_count,
10974: p_data => x_msg_data) ;
10975: INL_LOGGING_PVT.Log_EndProc (
10976: p_module_name => g_module_name,
10977: p_procedure_name => l_api_name) ;
10978: EXCEPTION
10979: WHEN L_FND_EXC_ERROR THEN
10976: p_module_name => g_module_name,
10977: p_procedure_name => l_api_name) ;
10978: EXCEPTION
10979: WHEN L_FND_EXC_ERROR THEN
10980: INL_LOGGING_PVT.Log_ExpecError (
10981: p_module_name => g_module_name,
10982: p_procedure_name => l_api_name) ;
10983: x_return_status := L_FND_RET_STS_ERROR;
10984: ROLLBACK TO Get_1ary2aryQty_PVT;
10982: p_procedure_name => l_api_name) ;
10983: x_return_status := L_FND_RET_STS_ERROR;
10984: ROLLBACK TO Get_1ary2aryQty_PVT;
10985: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
10986: INL_LOGGING_PVT.Log_UnexpecError (
10987: p_module_name => g_module_name,
10988: p_procedure_name => l_api_name) ;
10989: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10990: ROLLBACK TO Get_1ary2aryQty_PVT;
10988: p_procedure_name => l_api_name) ;
10989: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10990: ROLLBACK TO Get_1ary2aryQty_PVT;
10991: WHEN OTHERS THEN
10992: INL_LOGGING_PVT.Log_UnexpecError (
10993: p_module_name => g_module_name,
10994: p_procedure_name => l_api_name) ;
10995: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
10996: ROLLBACK TO Get_1ary2aryQty_PVT;
11026: l_tolerable_quantity NUMBER;
11027: l_unit_of_measure VARCHAR2(30);
11028: BEGIN
11029: -- Standard Beginning of Procedure/Function Logging
11030: INL_LOGGING_PVT.Log_BeginProc (
11031: p_module_name => g_module_name,
11032: p_procedure_name => l_program_name) ;
11033: -- Logging variables
11034: INL_LOGGING_PVT.Log_Variable (
11030: INL_LOGGING_PVT.Log_BeginProc (
11031: p_module_name => g_module_name,
11032: p_procedure_name => l_program_name) ;
11033: -- Logging variables
11034: INL_LOGGING_PVT.Log_Variable (
11035: p_module_name => g_module_name,
11036: p_procedure_name => l_program_name,
11037: p_var_name => 'p_ship_line_src_type_code',
11038: p_var_value => p_ship_line_src_type_code
11036: p_procedure_name => l_program_name,
11037: p_var_name => 'p_ship_line_src_type_code',
11038: p_var_value => p_ship_line_src_type_code
11039: ) ;
11040: INL_LOGGING_PVT.Log_Variable (
11041: p_module_name => g_module_name,
11042: p_procedure_name => l_program_name,
11043: p_var_name => 'p_parent_id',
11044: p_var_value => p_parent_id) ;
11042: p_procedure_name => l_program_name,
11043: p_var_name => 'p_parent_id',
11044: p_var_value => p_parent_id) ;
11045: l_debug_info := 'Call INL_SHIPMENT_PVT.Get_AvailableQty';
11046: INL_LOGGING_PVT.Log_Statement (
11047: p_module_name => g_module_name,
11048: p_procedure_name => l_program_name,
11049: p_debug_info => l_debug_info) ;
11050: INL_SHIPMENT_PVT.Get_AvailableQty(
11058: p_unit_of_measure => l_unit_of_measure,
11059: x_return_status => l_return_status,
11060: x_msg_count => l_msg_count,
11061: x_msg_data => l_msg_data);
11062: INL_LOGGING_PVT.Log_Variable (
11063: p_module_name => g_module_name,
11064: p_procedure_name => l_program_name,
11065: p_var_name => 'l_available_qty',
11066: p_var_value => l_available_qty) ;
11063: p_module_name => g_module_name,
11064: p_procedure_name => l_program_name,
11065: p_var_name => 'l_available_qty',
11066: p_var_value => l_available_qty) ;
11067: INL_LOGGING_PVT.Log_Variable (
11068: p_module_name => g_module_name,
11069: p_procedure_name => l_program_name,
11070: p_var_name => 'l_tolerable_quantity',
11071: p_var_value => l_tolerable_quantity) ;
11068: p_module_name => g_module_name,
11069: p_procedure_name => l_program_name,
11070: p_var_name => 'l_tolerable_quantity',
11071: p_var_value => l_tolerable_quantity) ;
11072: INL_LOGGING_PVT.Log_Variable (
11073: p_module_name => g_module_name,
11074: p_procedure_name => l_program_name,
11075: p_var_name => 'l_unit_of_measure',
11076: p_var_value => l_unit_of_measure) ;
11074: p_procedure_name => l_program_name,
11075: p_var_name => 'l_unit_of_measure',
11076: p_var_value => l_unit_of_measure) ;
11077: -- Standard End of Procedure/Function Logging
11078: INL_LOGGING_PVT.Log_EndProc (
11079: p_module_name => g_module_name,
11080: p_procedure_name => l_program_name) ;
11081: RETURN NVL(l_available_qty,0);
11082: END Get_SrcAvailableQty;
11166:
11167: BEGIN
11168:
11169: -- Standard Beginning of Procedure/Function Logging
11170: INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
11171: p_procedure_name => l_program_name) ;
11172: -- Standard Start of API savepoint
11173: SAVEPOINT Adjust_ELCLines_PVT;
11174: -- Initialize message list if p_init_msg_list is set to TRUE.
11184: END IF;
11185: -- Initialize API return status to success
11186: x_return_status := L_FND_RET_STS_SUCCESS;
11187:
11188: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11189: p_procedure_name => l_program_name,
11190: p_var_name => 'p_ship_header_id',
11191: p_var_value => p_ship_header_id);
11192:
11190: p_var_name => 'p_ship_header_id',
11191: p_var_value => p_ship_header_id);
11192:
11193: l_debug_info := 'Get next adjustment number';
11194: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
11195: p_procedure_name => l_program_name,
11196: p_debug_info => l_debug_info);
11197:
11198: SELECT (ABS(adjustment_num) +1) *-1
11199: INTO l_adjustment_num
11200: FROM inl_ship_headers_all sh
11201: WHERE sh.ship_header_id = p_ship_header_id FOR UPDATE NOWAIT;
11202:
11203: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11204: p_procedure_name => l_program_name,
11205: p_var_name => 'l_adjustment_num',
11206: p_var_value => l_adjustment_num);
11207:
11412: AND a.from_parent_table_id = l_elc_adj_chlines(i).charge_line_id
11413: AND a.adjustment_type_flag IS NOT NULL
11414: AND a.ship_header_id = p_ship_header_id;
11415:
11416: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11417: p_procedure_name => l_program_name,
11418: p_var_name => 'l_count_assoc_changed',
11419: p_var_value => l_count_assoc_changed);
11420:
11428: AND (a.adjustment_type_flag IS NULL
11429: OR a.adjustment_type_flag = 'A')
11430: AND a.ship_header_id = p_ship_header_id;
11431:
11432: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11433: p_procedure_name => l_program_name,
11434: p_var_name => 'l_exist_associations',
11435: p_var_value => l_exist_associations);
11436:
11440: INTO l_charge_line_id
11441: FROM DUAL;
11442:
11443: l_debug_info := 'Get next charge line number';
11444: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11445: p_procedure_name => l_program_name,
11446: p_debug_info => l_debug_info);
11447:
11448: SELECT NVL (MAX (cl.charge_line_num), 0) + 1
11453: FROM inl_associations assoc
11454: WHERE assoc.from_parent_table_name = 'INL_CHARGE_LINES'
11455: AND assoc.ship_header_id = p_ship_header_id);
11456:
11457: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11458: p_procedure_name => l_program_name,
11459: p_var_name => 'l_charge_line_num',
11460: p_var_value => l_charge_line_num);
11461:
11459: p_var_name => 'l_charge_line_num',
11460: p_var_value => l_charge_line_num);
11461:
11462: l_debug_info := 'Create new charge line';
11463: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11464: p_procedure_name => l_program_name,
11465: p_debug_info => l_debug_info);
11466:
11467: -- Create new charge line
11563: FROM inl_adj_charge_lines_v cl
11564: WHERE cl.charge_line_id = l_elc_adj_chlines(i).charge_line_id);
11565:
11566: l_debug_info := 'Create associations for charge line ID: ' || l_charge_line_id;
11567: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11568: p_procedure_name => l_program_name,
11569: p_debug_info => l_debug_info);
11570:
11571: -- Create associations according to adjustment_flag
11605: OR a.adjustment_type_flag = 'A'));
11606: END IF; -- END Exist associations
11607:
11608: l_debug_info := 'Create an adjustment with amount 0 for charge line ID: ' || l_elc_adj_chlines(i).charge_line_id;
11609: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11610: p_procedure_name => l_program_name,
11611: p_debug_info => l_debug_info);
11612:
11613: -- Charge_amt = 0 for current charge
11710: FROM inl_adj_charge_lines_v cl
11711: WHERE cl.charge_line_id = l_elc_adj_chlines(i).charge_line_id);
11712: ELSE -- associations were not changed
11713: l_debug_info := 'Associations were not changed. Charge line ID: ' || l_elc_adj_chlines(i).charge_line_id;
11714: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11715: p_procedure_name => l_program_name,
11716: p_debug_info => l_debug_info);
11717:
11718: -- Check if charge was changed
11724: OR c.new_currency_conversion_date IS NOT NULL
11725: OR c.new_currency_conversion_rate IS NOT NULL)
11726: AND charge_line_id = l_elc_adj_chlines(i).charge_line_id;
11727:
11728: INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
11729: p_procedure_name => l_program_name,
11730: p_var_name => 'l_count_charge_changed',
11731: p_var_value => l_count_charge_changed);
11732:
11834: END LOOP;
11835: END IF;
11836:
11837: l_debug_info := 'Set pending_update_flag to N for Shipment';
11838: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11839: p_procedure_name => l_program_name,
11840: p_debug_info => l_debug_info);
11841:
11842: UPDATE inl_ship_headers_all sh
11847: sh.last_updated_by = l_fnd_user_id
11848: WHERE sh.ship_header_id = p_ship_header_id;
11849:
11850: l_debug_info := 'Call INL_INTERFACE_PVT.Reset_MatchInt';
11851: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
11852: p_procedure_name => l_program_name,
11853: p_debug_info => l_debug_info);
11854:
11855: INL_INTERFACE_PVT.Reset_MatchInt(p_ship_header_id => p_ship_header_id,
11871: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
11872: p_count => x_msg_count,
11873: p_data => x_msg_data) ;
11874: -- Standard End of Procedure/Function Logging
11875: INL_LOGGING_PVT.Log_EndProc (
11876: p_module_name => g_module_name,
11877: p_procedure_name => l_program_name);
11878:
11879: EXCEPTION
11882: x_return_status := FND_API.g_ret_sts_error;
11883: FND_MESSAGE.set_name('INL','INL_CANNOT_EXEC_ELC_SUBMIT_LCK');
11884: FND_MSG_PUB.ADD;
11885: -- Standard Expected Error Logging
11886: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
11887: p_procedure_name => l_program_name);
11888: ROLLBACK TO Adjust_ELCLines_PVT;
11889: x_return_status := L_FND_RET_STS_ERROR;
11890: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
11891: p_count => x_msg_count,
11892: p_data => x_msg_data);
11893: WHEN L_FND_EXC_ERROR THEN
11894: -- Standard Expected Error Logging
11895: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
11896: p_procedure_name => l_program_name) ;
11897: ROLLBACK TO Adjust_ELCLines_PVT;
11898: x_return_status := L_FND_RET_STS_ERROR;
11899: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
11900: p_count => x_msg_count,
11901: p_data => x_msg_data) ;
11902: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
11903: -- Standard Unexpected Error Logging
11904: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
11905: p_procedure_name => l_program_name) ;
11906: ROLLBACK TO Adjust_ELCLines_PVT;
11907: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
11908: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
11909: p_count => x_msg_count,
11910: p_data => x_msg_data) ;
11911: WHEN OTHERS THEN
11912: -- Standard Unexpected Error Logging
11913: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
11914: p_procedure_name => l_program_name) ;
11915: ROLLBACK TO Adjust_ELCLines_PVT;
11916: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
11917: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11969: l_ship_num VARCHAR2(25); -- SCM-051
11970: l_rcv_running NUMBER; -- SCM-051
11971: BEGIN
11972: -- Standard Beginning of Procedure/Function Logging
11973: INL_LOGGING_PVT.Log_BeginProc (
11974: p_module_name => g_module_name,
11975: p_procedure_name => l_api_name) ;
11976: -- Standard Start of API savepoint
11977: SAVEPOINT Run_Submit_PVT;
11990: END IF;
11991: -- Initialize API return status to success
11992: x_return_status := L_FND_RET_STS_SUCCESS;
11993:
11994: INL_LOGGING_PVT.Log_Variable (
11995: p_module_name => g_module_name,
11996: p_procedure_name => l_api_name,
11997: p_var_name => 'p_ship_header_id',
11998: p_var_value => p_ship_header_id) ;
11998: p_var_value => p_ship_header_id) ;
11999:
12000: -- Get the Pending Match Flag and Organization Id
12001: l_debug_info := 'Get the Pending Match Flag, Pending Update Flag and Organization Id';
12002: INL_LOGGING_PVT.Log_Statement (
12003: p_module_name => g_module_name,
12004: p_procedure_name => l_api_name,
12005: p_debug_info => l_debug_info
12006: ) ;
12016: l_ship_num
12017: FROM inl_ship_headers
12018: WHERE ship_header_id = p_ship_header_id;
12019:
12020: INL_LOGGING_PVT.Log_Variable (
12021: p_module_name => g_module_name,
12022: p_procedure_name => l_api_name,
12023: p_var_name => 'l_pending_matching_flag',
12024: p_var_value => l_pending_matching_flag) ;
12022: p_procedure_name => l_api_name,
12023: p_var_name => 'l_pending_matching_flag',
12024: p_var_value => l_pending_matching_flag) ;
12025: -- SCM-051
12026: INL_LOGGING_PVT.Log_Variable (
12027: p_module_name => g_module_name,
12028: p_procedure_name => l_api_name,
12029: p_var_name => 'l_pending_update_flag',
12030: p_var_value => l_pending_update_flag) ;
12027: p_module_name => g_module_name,
12028: p_procedure_name => l_api_name,
12029: p_var_name => 'l_pending_update_flag',
12030: p_var_value => l_pending_update_flag) ;
12031: INL_LOGGING_PVT.Log_Variable (
12032: p_module_name => g_module_name,
12033: p_procedure_name => l_api_name,
12034: p_var_name => 'p_caller',
12035: p_var_value => p_caller) ;
12033: p_procedure_name => l_api_name,
12034: p_var_name => 'p_caller',
12035: p_var_value => p_caller) ;
12036: -- /SCM-051
12037: INL_LOGGING_PVT.Log_Variable (
12038: p_module_name => g_module_name,
12039: p_procedure_name => l_api_name,
12040: p_var_name => 'l_organization_id',
12041: p_var_value => l_organization_id) ;
12038: p_module_name => g_module_name,
12039: p_procedure_name => l_api_name,
12040: p_var_name => 'l_organization_id',
12041: p_var_value => l_organization_id) ;
12042: INL_LOGGING_PVT.Log_Variable (
12043: p_module_name => g_module_name,
12044: p_procedure_name => l_api_name,
12045: p_var_name => 'l_rcv_enabled_flag',
12046: p_var_value => l_rcv_enabled_flag) ;
12056: AND rti.processing_status_code = 'RUNNING'
12057: AND rti.lcm_shipment_line_id = sl.ship_line_id
12058: AND sl.ship_header_id = p_ship_header_id;
12059:
12060: INL_LOGGING_PVT.Log_Variable (
12061: p_module_name => g_module_name,
12062: p_procedure_name => l_api_name,
12063: p_var_name => 'l_rcv_running',
12064: p_var_value => l_rcv_running) ;
12082:
12083: -- SCM-051 Shipment with ELC Pending will not be processed
12084: IF NVL(l_pending_update_flag, 'N') = 'Y' AND p_caller = 'C' THEN
12085: l_debug_info := 'Shipment with ELC Pending';
12086: INL_LOGGING_PVT.Log_Statement (
12087: p_module_name => g_module_name,
12088: p_procedure_name=> l_api_name,
12089: p_debug_info => l_debug_info) ;
12090:
12097: -- Run Adjust Lines for Pending Shipments
12098: IF l_pending_matching_flag = 'Y' AND NVL(l_rcv_running,0) = 0 THEN -- SCM-051
12099: /* transfered to INL_INTERFACE_PVT --BUG#8198498
12100: l_debug_info := 'Run INL_SHIPMENT_PVT.Adjust_Lines';
12101: INL_LOGGING_PVT.Log_Statement (
12102: p_module_name => g_module_name,
12103: p_procedure_name => l_api_name,
12104: p_debug_info => l_debug_info
12105: ) ;
12120: END IF;
12121: */
12122: -- Update Pending Matching Flag
12123: l_debug_info := 'Update PendingMatchingFlag';
12124: INL_LOGGING_PVT.Log_Statement (
12125: p_module_name => g_module_name,
12126: p_procedure_name => l_api_name,
12127: p_debug_info => l_debug_info
12128: ) ;
12142: -- Run Generate Taxes Only for NOT Pending Shipments
12143: IF p_task_code >= '30' AND NVL(l_pending_matching_flag, 'N') = 'N' AND
12144: NVL(l_pending_update_flag, 'N') = 'N' THEN -- SCM-051
12145: l_debug_info := 'Run INL_TAX_PVT.Generate_Taxes';
12146: INL_LOGGING_PVT.Log_Statement (
12147: p_module_name => g_module_name,
12148: p_procedure_name => l_api_name,
12149: p_debug_info => l_debug_info
12150: ) ;
12167: -- Run Validation only for NOT Pending Shipments
12168: IF p_task_code >= '40' AND NVL (l_pending_matching_flag, 'N') = 'N' AND
12169: NVL(l_pending_update_flag, 'N') = 'N' THEN -- SCM-051
12170: l_debug_info := 'Run INL_SHIPMENT_PVT.Validate_Shipment';
12171: INL_LOGGING_PVT.Log_Statement (
12172: p_module_name => g_module_name,
12173: p_procedure_name => l_api_name,
12174: p_debug_info => l_debug_info
12175: ) ;
12200: IF p_task_code >= '50' AND NVL (l_msg_count_validate, 0) = 0 AND
12201: NVL(l_rcv_running,0) = 0 THEN
12202: --Bug#10032820
12203: l_debug_info := 'Getting the l_max_allocation_id';
12204: INL_LOGGING_PVT.Log_Statement (
12205: p_module_name => g_module_name,
12206: p_procedure_name => l_api_name,
12207: p_debug_info => l_debug_info
12208: ) ;
12209: SELECT MAX(allocation_id)
12210: INTO l_max_allocation_id
12211: FROM inl_allocations;
12212:
12213: INL_LOGGING_PVT.Log_Variable (
12214: p_module_name => g_module_name,
12215: p_procedure_name => l_api_name,
12216: p_var_name => 'l_max_allocation_id',
12217: p_var_value => l_max_allocation_id);
12218:
12219: --Bug#10032820
12220:
12221: l_debug_info := 'Run INL_LANDEDCOST_PVT.Run_Calculation';
12222: INL_LOGGING_PVT.Log_Statement (
12223: p_module_name => g_module_name,
12224: p_procedure_name => l_api_name,
12225: p_debug_info => l_debug_info) ;
12226:
12245: -- Submit Shipment and call final integrations
12246: IF p_task_code >= '60' AND NVL (l_msg_count_validate, 0) = 0 AND
12247: NVL(l_rcv_running,0) = 0 THEN
12248: l_debug_info := 'Run INL_SHIPMENT_PVT.Complete_Shipment';
12249: INL_LOGGING_PVT.Log_Statement (
12250: p_module_name => g_module_name,
12251: p_procedure_name => l_api_name,
12252: p_debug_info => l_debug_info) ;
12253:
12290: p_count => x_msg_count,
12291: p_data => x_msg_data
12292: ) ;
12293: -- Standard End of Procedure/Function Logging
12294: INL_LOGGING_PVT.Log_EndProc (
12295: p_module_name => g_module_name,
12296: p_procedure_name => l_api_name
12297: ) ;
12298: EXCEPTION
12297: ) ;
12298: EXCEPTION
12299: WHEN L_FND_EXC_ERROR THEN
12300: -- Standard Expected Error Logging
12301: INL_LOGGING_PVT.Log_ExpecError (
12302: p_module_name => g_module_name,
12303: p_procedure_name => l_api_name
12304: ) ;
12305: ROLLBACK TO Run_Submit_PVT;
12310: p_data => x_msg_data
12311: ) ;
12312: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12313: -- Standard Unexpected Error Logging
12314: INL_LOGGING_PVT.Log_UnexpecError (
12315: p_module_name => g_module_name,
12316: p_procedure_name => l_api_name
12317: ) ;
12318: ROLLBACK TO Run_Submit_PVT;
12323: p_data => x_msg_data
12324: ) ;
12325: WHEN OTHERS THEN
12326: -- Standard Unexpected Error Logging
12327: INL_LOGGING_PVT.Log_UnexpecError (
12328: p_module_name => g_module_name,
12329: p_procedure_name => l_api_name
12330: ) ;
12331: ROLLBACK TO Run_Submit_PVT;
12406: errbuf := NULL;
12407: retcode := 0;
12408:
12409: -- Standard Beginning of Procedure/Function Logging
12410: INL_LOGGING_PVT.Log_BeginProc (
12411: p_module_name => g_module_name,
12412: p_procedure_name => l_program_name) ;
12413:
12414: --Bug#10381495
12412: p_procedure_name => l_program_name) ;
12413:
12414: --Bug#10381495
12415: l_current_org_id := NVL(l_previous_org_id,-999);
12416: INL_LOGGING_PVT.Log_Variable(
12417: p_module_name => g_module_name,
12418: p_procedure_name => l_program_name,
12419: p_var_name => 'l_current_org_id',
12420: p_var_value => l_current_org_id
12432: FROM inl_ship_headers_all
12433: WHERE ship_header_id = p_ship_header_id;
12434:
12435: IF (l_org_id <> l_current_org_id) THEN
12436: INL_LOGGING_PVT.Log_Statement(
12437: p_module_name => g_module_name,
12438: p_procedure_name => l_program_name,
12439: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_org_id
12440: );
12439: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_org_id
12440: );
12441: l_current_org_id:=l_org_id;
12442: mo_global.set_policy_context( 'S', l_current_org_id);
12443: INL_LOGGING_PVT.Log_Statement(
12444: p_module_name => g_module_name,
12445: p_procedure_name => l_program_name,
12446: p_debug_info => 'l_current_org_id: '||l_current_org_id
12447: );
12448: END IF;
12449: --Bug#10381495
12450:
12451: l_debug_info := 'Before runnig Submit process for the only Shipment Id: ' || p_ship_header_id;
12452: INL_LOGGING_PVT.Log_Statement (
12453: p_module_name => g_module_name,
12454: p_procedure_name => l_program_name,
12455: p_debug_info => l_debug_info
12456: ) ;
12467: x_msg_data => l_msg_data) ;
12468: l_records_read := 1;
12469: -- If any errors happen change concurrent status. --Bug#10359221
12470: IF l_return_status = L_FND_RET_STS_ERROR OR l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
12471: INL_LOGGING_PVT.Log_Statement (
12472: p_module_name => g_module_name,
12473: p_procedure_name => l_program_name,
12474: p_debug_info => 'Rollback '
12475: ) ;
12476: retcode := 1;
12477: ROLLBACK;
12478: l_records_err := 1;
12479: ELSE
12480: INL_LOGGING_PVT.Log_Statement (
12481: p_module_name => g_module_name,
12482: p_procedure_name => l_program_name,
12483: p_debug_info => 'Commit '
12484: ) ;
12484: ) ;
12485: l_records_processed := 1;
12486: COMMIT;
12487: END IF;
12488: INL_LOGGING_PVT.Log_Statement (
12489: p_module_name => g_module_name,
12490: p_procedure_name => l_program_name,
12491: p_debug_info => 'retcode: '||retcode||' l_records_processed: '||l_records_processed
12492: ) ;
12494: ELSE
12495:
12496: --Bug#10359221
12497: --Opening the cursor of pending shipments
12498: INL_LOGGING_PVT.Log_Statement (
12499: p_module_name => g_module_name,
12500: p_procedure_name => l_program_name,
12501: p_debug_info => 'Opening the cursor of pending shipments'
12502: ) ;
12505: FETCH c_pending_shipments BULK COLLECT INTO l_pending_shipments_lst;
12506: CLOSE c_pending_shipments;
12507: --Bug#10359221
12508: l_debug_info := l_pending_shipments_lst.LAST||' lines have been retrieved.';
12509: INL_LOGGING_PVT.Log_Statement (
12510: p_module_name => g_module_name,
12511: p_procedure_name => l_program_name,
12512: p_debug_info => l_debug_info
12513: ) ;
12515: FOR i IN NVL(l_pending_shipments_lst.FIRST, 0)..NVL(l_pending_shipments_lst.LAST, 0)
12516: LOOP
12517: --Bug#10381495
12518: IF (l_pending_shipments_lst(i).org_id <> l_current_org_id) THEN
12519: INL_LOGGING_PVT.Log_Statement(
12520: p_module_name => g_module_name,
12521: p_procedure_name => l_program_name,
12522: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_pending_shipments_lst(i).org_id
12523: );
12522: p_debug_info => 'Seting a new context from '||l_current_org_id||' to '||l_pending_shipments_lst(i).org_id
12523: );
12524: l_current_org_id:=l_pending_shipments_lst(i).org_id;
12525: mo_global.set_policy_context( 'S', l_current_org_id);
12526: INL_LOGGING_PVT.Log_Statement(
12527: p_module_name => g_module_name,
12528: p_procedure_name => l_program_name,
12529: p_debug_info => 'l_current_org_id: '||l_current_org_id
12530: );
12532: --Bug#10381495
12533: l_records_read := l_records_read + 1;
12534: SAVEPOINT Complete_PendingShipment_int;
12535: l_debug_info := 'Before runnig Submit process for the Shipment Id: ' || l_pending_shipments_lst(i).ship_header_id;
12536: INL_LOGGING_PVT.Log_Statement (
12537: p_module_name => g_module_name,
12538: p_procedure_name => l_program_name,
12539: p_debug_info => l_debug_info
12540: ) ;
12552: -- If any errors happen change concurrent status. --Bug#10359221
12553: IF l_return_status = L_FND_RET_STS_ERROR
12554: OR l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
12555: --Problem with ProcessAction
12556: INL_LOGGING_PVT.Log_Statement (
12557: p_module_name => g_module_name,
12558: p_procedure_name => l_program_name,
12559: p_debug_info => 'Problem with ProcessAction: Rollback'
12560: ) ;
12561:
12562: retcode := 1;
12563: --Bug#10359221
12564: ROLLBACK TO Complete_PendingShipment_int;
12565: INL_LOGGING_PVT.Log_Statement (
12566: p_module_name => g_module_name,
12567: p_procedure_name => l_program_name,
12568: p_debug_info => 'Error found. '
12569: ) ;
12573: l_ac_proc := l_ac_proc + 1;
12574: END IF;
12575: IF l_ac_proc >= l_partial_commit_at THEN
12576: -- Partial commit limit reached
12577: INL_LOGGING_PVT.Log_Statement (
12578: p_module_name => g_module_name,
12579: p_procedure_name => l_program_name,
12580: p_debug_info => 'Partial commit limit reached. '
12581: ) ;
12598: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.get (i, L_FND_FALSE) );
12599: END LOOP;
12600: retcode := 1;
12601: END IF;
12602: INL_LOGGING_PVT.Log_Statement (
12603: p_module_name => g_module_name,
12604: p_procedure_name => l_program_name,
12605: p_debug_info => '< ***** ' || 'Records Read : ' || l_records_read
12606: ) ;
12603: p_module_name => g_module_name,
12604: p_procedure_name => l_program_name,
12605: p_debug_info => '< ***** ' || 'Records Read : ' || l_records_read
12606: ) ;
12607: INL_LOGGING_PVT.Log_Statement (
12608: p_module_name => g_module_name,
12609: p_procedure_name => l_program_name,
12610: p_debug_info => '< ***** ' || 'Records Processed : ' || l_records_processed
12611: ) ;
12608: p_module_name => g_module_name,
12609: p_procedure_name => l_program_name,
12610: p_debug_info => '< ***** ' || 'Records Processed : ' || l_records_processed
12611: ) ;
12612: INL_LOGGING_PVT.Log_Statement (
12613: p_module_name => g_module_name,
12614: p_procedure_name => l_program_name,
12615: p_debug_info => '< ***** ' || 'Records Errored : ' || l_records_err
12616: ) ;
12622: FND_FILE.put_line( FND_FILE.log, '< **************************************>');
12623: --Bug#10359221
12624: --Bug#10381495
12625: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12626: INL_LOGGING_PVT.Log_Statement(
12627: p_module_name => g_module_name,
12628: p_procedure_name => l_program_name,
12629: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
12630: );
12632: END IF;
12633: --Bug#10381495
12634:
12635: -- Standard End of Procedure/Function Logging
12636: INL_LOGGING_PVT.Log_EndProc (
12637: p_module_name => g_module_name,
12638: p_procedure_name => l_program_name) ;
12639: EXCEPTION
12640: WHEN L_FND_EXC_ERROR THEN
12638: p_procedure_name => l_program_name) ;
12639: EXCEPTION
12640: WHEN L_FND_EXC_ERROR THEN
12641: -- Standard Expected Error Logging
12642: INL_LOGGING_PVT.Log_ExpecError (
12643: p_module_name => g_module_name,
12644: p_procedure_name => l_program_name) ;
12645: --Bug#10381495
12646: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12643: p_module_name => g_module_name,
12644: p_procedure_name => l_program_name) ;
12645: --Bug#10381495
12646: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12647: INL_LOGGING_PVT.Log_Statement(
12648: p_module_name => g_module_name,
12649: p_procedure_name => l_program_name,
12650: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
12651: );
12655: retcode := 1;
12656: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
12657: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12658: -- Standard Unexpected Error Logging
12659: INL_LOGGING_PVT.Log_UnexpecError (
12660: p_module_name => g_module_name,
12661: p_procedure_name => l_program_name) ;
12662: --Bug#10381495
12663: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12660: p_module_name => g_module_name,
12661: p_procedure_name => l_program_name) ;
12662: --Bug#10381495
12663: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12664: INL_LOGGING_PVT.Log_Statement(
12665: p_module_name => g_module_name,
12666: p_procedure_name => l_program_name,
12667: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
12668: );
12672: retcode := 2;
12673: errbuf := errbuf ||' G_EXC_UNEXPECTED_ERROR '||SQLERRM;
12674: WHEN OTHERS THEN
12675: -- Standard Unexpected Error Logging
12676: INL_LOGGING_PVT.Log_UnexpecError (
12677: p_module_name => g_module_name,
12678: p_procedure_name => l_program_name) ;
12679: --Bug#10381495
12680: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12677: p_module_name => g_module_name,
12678: p_procedure_name => l_program_name) ;
12679: --Bug#10381495
12680: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
12681: INL_LOGGING_PVT.Log_Statement(
12682: p_module_name => g_module_name,
12683: p_procedure_name => l_program_name,
12684: p_debug_info => 'Restore previous context: from '||l_current_org_id||' to '||l_previous_org_id
12685: );
12708: x_return_status OUT NOCOPY VARCHAR2
12709: ) IS
12710: l_program_name CONSTANT VARCHAR2 (100) := 'Update_PendingMatchingFlag';
12711: BEGIN
12712: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_program_name) ;
12713: -- Initialize API return status to success
12714: x_return_status := L_FND_RET_STS_SUCCESS;
12715: UPDATE inl_ship_headers_all sh --Bug#10381495
12716: SET sH.pending_matching_flag = p_pending_matching_flag ,
12723: sH.program_id = L_FND_CONC_PROGRAM_ID ,
12724: sH.program_update_date = SYSDATE ,
12725: sH.program_application_id = L_FND_PROG_APPL_ID
12726: WHERE sH.ship_header_id = p_ship_header_id;
12727: INL_LOGGING_PVT.Log_EndProc (
12728: p_module_name => g_module_name,
12729: p_procedure_name => l_program_name
12730: ) ;
12731: EXCEPTION
12730: ) ;
12731: EXCEPTION
12732: WHEN L_FND_EXC_ERROR THEN
12733: -- Standard Expected Error Logging
12734: INL_LOGGING_PVT.Log_ExpecError (
12735: p_module_name => g_module_name,
12736: p_procedure_name => l_program_name
12737: ) ;
12738: x_return_status := L_FND_RET_STS_ERROR;
12737: ) ;
12738: x_return_status := L_FND_RET_STS_ERROR;
12739: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12740: -- Standard Unexpected Error Logging
12741: INL_LOGGING_PVT.Log_UnexpecError (
12742: p_module_name => g_module_name,
12743: p_procedure_name => l_program_name
12744: ) ;
12745: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
12744: ) ;
12745: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
12746: WHEN OTHERS THEN
12747: -- Standard Unexpected Error Logging
12748: INL_LOGGING_PVT.Log_UnexpecError (
12749: p_module_name => g_module_name,
12750: p_procedure_name => l_program_name
12751: ) ;
12752: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
12808: AND a.ship_header_id <> p_ship_header_id;
12809: r_affected_ship c_affected_ship%ROWTYPE;
12810: BEGIN
12811: -- Standard Beginning of Procedure/Function Logging
12812: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
12813: -- Standard Start of API savepoint
12814: SAVEPOINT Delete_ChargeAssoc_PVT;
12815: -- Initialize message list if p_init_msg_list is set to TRUE.
12816: IF FND_API.to_Boolean (p_init_msg_list) THEN
12828: LOOP
12829: FETCH c_affected_ship INTO r_affected_ship;
12830: EXIT
12831: WHEN c_affected_ship%NOTFOUND;
12832: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => 'ship_status', p_var_value => r_affected_ship.ship_status) ;
12833: IF (r_affected_ship.ship_status = 'VALIDATED') THEN
12834: Set_ToRevalidate (1.0, L_FND_FALSE, L_FND_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
12835: -- If any errors happen abort the process.
12836: IF l_return_status = L_FND_RET_STS_ERROR THEN
12862: p_encoded => L_FND_FALSE,
12863: p_count => x_msg_count,
12864: p_data => x_msg_data) ;
12865: -- Standard End of Procedure/Function Logging
12866: INL_LOGGING_PVT.Log_EndProc (
12867: p_module_name => g_module_name,
12868: p_procedure_name => l_api_name) ;
12869: EXCEPTION
12870: WHEN L_FND_EXC_ERROR THEN
12868: p_procedure_name => l_api_name) ;
12869: EXCEPTION
12870: WHEN L_FND_EXC_ERROR THEN
12871: -- Standard Expected Error Logging
12872: INL_LOGGING_PVT.Log_ExpecError (
12873: p_module_name => g_module_name,
12874: p_procedure_name => l_api_name) ;
12875: ROLLBACK TO Delete_ChargeAssoc_PVT;
12876: x_return_status := L_FND_RET_STS_ERROR;
12879: p_count => x_msg_count,
12880: p_data => x_msg_data) ;
12881: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
12882: -- Standard Unexpected Error Logging
12883: INL_LOGGING_PVT.Log_UnexpecError (
12884: p_module_name => g_module_name,
12885: p_procedure_name => l_api_name) ;
12886: ROLLBACK TO Delete_ChargeAssoc_PVT;
12887: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
12890: p_count => x_msg_count,
12891: p_data => x_msg_data) ;
12892: WHEN OTHERS THEN
12893: -- Standard Unexpected Error Logging
12894: INL_LOGGING_PVT.Log_UnexpecError (
12895: p_module_name => g_module_name,
12896: p_procedure_name => l_api_name) ;
12897: ROLLBACK TO Delete_ChargeAssoc_PVT;
12898: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
12938:
12939: BEGIN
12940:
12941: -- Standard Beginning of Procedure/Function Logging
12942: INL_LOGGING_PVT.Log_BeginProc (
12943: p_module_name => g_module_name,
12944: p_procedure_name => l_program_name) ;
12945: -- Logging variables
12946: INL_LOGGING_PVT.Log_Variable (
12942: INL_LOGGING_PVT.Log_BeginProc (
12943: p_module_name => g_module_name,
12944: p_procedure_name => l_program_name) ;
12945: -- Logging variables
12946: INL_LOGGING_PVT.Log_Variable (
12947: p_module_name => g_module_name,
12948: p_procedure_name => l_program_name,
12949: p_var_name => 'p_ship_header_id',
12950: p_var_value => p_ship_header_id);
12947: p_module_name => g_module_name,
12948: p_procedure_name => l_program_name,
12949: p_var_name => 'p_ship_header_id',
12950: p_var_value => p_ship_header_id);
12951: INL_LOGGING_PVT.Log_Variable (
12952: p_module_name => g_module_name,
12953: p_procedure_name => l_program_name,
12954: p_var_name => 'p_ship_line_id',
12955: p_var_value => p_ship_line_id) ;
12952: p_module_name => g_module_name,
12953: p_procedure_name => l_program_name,
12954: p_var_name => 'p_ship_line_id',
12955: p_var_value => p_ship_line_id) ;
12956: INL_LOGGING_PVT.Log_Variable (
12957: p_module_name => g_module_name,
12958: p_procedure_name => l_program_name,
12959: p_var_name => 'p_charge_line_type_id',
12960: p_var_value => p_charge_line_type_id) ;
12957: p_module_name => g_module_name,
12958: p_procedure_name => l_program_name,
12959: p_var_name => 'p_charge_line_type_id',
12960: p_var_value => p_charge_line_type_id) ;
12961: INL_LOGGING_PVT.Log_Variable (
12962: p_module_name => g_module_name,
12963: p_procedure_name => l_program_name,
12964: p_var_name => 'p_tax_code',
12965: p_var_value => p_tax_code) ;
12963: p_procedure_name => l_program_name,
12964: p_var_name => 'p_tax_code',
12965: p_var_value => p_tax_code) ;
12966: /* SCM-051
12967: INL_LOGGING_PVT.Log_Variable (
12968: p_module_name => g_module_name,
12969: p_procedure_name => l_program_name,
12970: p_var_name => 'p_functional_curr_code',
12971: p_var_value => p_functional_curr_code) ;
13006: -- Bug 8879575
13007: --Bug#14058596 GROUP BY a.matched_curr_code, a.matched_curr_conversion_rate
13008: ;
13009:
13010: INL_LOGGING_PVT.Log_Variable (
13011: p_module_name => g_module_name,
13012: p_procedure_name => l_program_name,
13013: p_var_name => 'l_nrec_tax_amt',
13014: p_var_value => l_nrec_tax_amt) ;
13013: p_var_name => 'l_nrec_tax_amt',
13014: p_var_value => l_nrec_tax_amt) ;
13015:
13016: -- Standard End of Procedure/Function Logging
13017: INL_LOGGING_PVT.Log_EndProc (
13018: p_module_name => g_module_name,
13019: p_procedure_name => l_program_name) ;
13020: RETURN l_nrec_tax_amt;
13021: EXCEPTION
13020: RETURN l_nrec_tax_amt;
13021: EXCEPTION
13022: WHEN OTHERS THEN
13023: -- Standard Unexpected Error Logging
13024: INL_LOGGING_PVT.Log_UnexpecError (
13025: p_module_name => g_module_name,
13026: p_procedure_name => l_program_name) ;
13027: IF FND_MSG_PUB.Check_Msg_Level (
13028: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
13063:
13064: BEGIN
13065:
13066: -- Standard Beginning of Procedure/Function Logging
13067: INL_LOGGING_PVT.Log_BeginProc (
13068: p_module_name => g_module_name,
13069: p_procedure_name => l_program_name) ;
13070: -- Logging variables
13071: INL_LOGGING_PVT.Log_Variable (
13067: INL_LOGGING_PVT.Log_BeginProc (
13068: p_module_name => g_module_name,
13069: p_procedure_name => l_program_name) ;
13070: -- Logging variables
13071: INL_LOGGING_PVT.Log_Variable (
13072: p_module_name => g_module_name,
13073: p_procedure_name => l_program_name,
13074: p_var_name => 'p_ship_header_id',
13075: p_var_value => p_ship_header_id);
13072: p_module_name => g_module_name,
13073: p_procedure_name => l_program_name,
13074: p_var_name => 'p_ship_header_id',
13075: p_var_value => p_ship_header_id);
13076: INL_LOGGING_PVT.Log_Variable (
13077: p_module_name => g_module_name,
13078: p_procedure_name => l_program_name,
13079: p_var_name => 'p_ship_line_id',
13080: p_var_value => p_ship_line_id) ;
13077: p_module_name => g_module_name,
13078: p_procedure_name => l_program_name,
13079: p_var_name => 'p_ship_line_id',
13080: p_var_value => p_ship_line_id) ;
13081: INL_LOGGING_PVT.Log_Variable (
13082: p_module_name => g_module_name,
13083: p_procedure_name => l_program_name,
13084: p_var_name => 'p_charge_line_type_id',
13085: p_var_value => p_charge_line_type_id) ;
13083: p_procedure_name => l_program_name,
13084: p_var_name => 'p_charge_line_type_id',
13085: p_var_value => p_charge_line_type_id) ;
13086: /* SCM-051
13087: INL_LOGGING_PVT.Log_Variable (
13088: p_module_name => g_module_name,
13089: p_procedure_name => l_program_name,
13090: p_var_name => 'p_functional_curr_code',
13091: p_var_value => p_functional_curr_code) ;
13125: -- GROUP BY a.matched_curr_code, a.matched_curr_conversion_rate SCM-051
13126: ;
13127: --SCM-051
13128:
13129: INL_LOGGING_PVT.Log_Variable ( --Bug#14058596
13130: p_module_name => g_module_name,
13131: p_procedure_name => l_program_name,
13132: p_var_name => 'l_matched_charge_amt',
13133: p_var_value => l_matched_charge_amt) ;
13132: p_var_name => 'l_matched_charge_amt',
13133: p_var_value => l_matched_charge_amt) ;
13134:
13135: -- Standard End of Procedure/Function Logging
13136: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
13137: p_procedure_name => l_program_name) ;
13138: RETURN l_matched_charge_amt;
13139: EXCEPTION
13140: WHEN OTHERS THEN
13138: RETURN l_matched_charge_amt;
13139: EXCEPTION
13140: WHEN OTHERS THEN
13141: -- Standard Unexpected Error Logging
13142: INL_LOGGING_PVT.Log_UnexpecError (
13143: p_module_name => g_module_name,
13144: p_procedure_name => l_program_name) ;
13145: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13146: FND_MSG_PUB.Add_Exc_Msg (
13179:
13180: BEGIN
13181:
13182: -- Standard Beginning of Procedure/Function Logging
13183: INL_LOGGING_PVT.Log_BeginProc (
13184: p_module_name => g_module_name,
13185: p_procedure_name => l_program_name) ;
13186: -- Logging variables
13187: INL_LOGGING_PVT.Log_Variable (
13183: INL_LOGGING_PVT.Log_BeginProc (
13184: p_module_name => g_module_name,
13185: p_procedure_name => l_program_name) ;
13186: -- Logging variables
13187: INL_LOGGING_PVT.Log_Variable (
13188: p_module_name => g_module_name,
13189: p_procedure_name => l_program_name,
13190: p_var_name => 'p_ship_header_id',
13191: p_var_value => p_ship_header_id);
13189: p_procedure_name => l_program_name,
13190: p_var_name => 'p_ship_header_id',
13191: p_var_value => p_ship_header_id);
13192:
13193: INL_LOGGING_PVT.Log_Variable (
13194: p_module_name => g_module_name,
13195: p_procedure_name => l_program_name,
13196: p_var_name => 'p_ship_line_id',
13197: p_var_value => p_ship_line_id) ;
13195: p_procedure_name => l_program_name,
13196: p_var_name => 'p_ship_line_id',
13197: p_var_value => p_ship_line_id) ;
13198: /* SCM-051
13199: INL_LOGGING_PVT.Log_Variable (
13200: p_module_name => g_module_name,
13201: p_procedure_name => l_program_name,
13202: p_var_name => 'p_functional_curr_code',
13203: p_var_value => p_functional_curr_code) ;
13235: AND d.parent_match_id = a.match_id)
13236: --GROUP BY matched_curr_code, a.matched_curr_conversion_rate
13237: ;
13238:
13239: INL_LOGGING_PVT.Log_Variable ( --Bug#14058596
13240: p_module_name => g_module_name,
13241: p_procedure_name => l_program_name,
13242: p_var_name => 'l_matched_item_amt',
13243: p_var_value => l_matched_item_amt) ;
13242: p_var_name => 'l_matched_item_amt',
13243: p_var_value => l_matched_item_amt) ;
13244:
13245: -- Standard End of Procedure/Function Logging
13246: INL_LOGGING_PVT.Log_EndProc (
13247: p_module_name => g_module_name,
13248: p_procedure_name => l_program_name) ;
13249: RETURN l_matched_item_amt;
13250: EXCEPTION
13249: RETURN l_matched_item_amt;
13250: EXCEPTION
13251: WHEN OTHERS THEN
13252: -- Standard Unexpected Error Logging
13253: INL_LOGGING_PVT.Log_UnexpecError (
13254: p_module_name => g_module_name,
13255: p_procedure_name => l_program_name) ;
13256: IF FND_MSG_PUB.Check_Msg_Level (
13257: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
13300:
13301: BEGIN
13302:
13303: -- Standard Beginning of Procedure/Function Logging
13304: INL_LOGGING_PVT.Log_BeginProc (
13305: p_module_name => g_module_name,
13306: p_procedure_name => l_program_name) ;
13307: -- Logging variables
13308: INL_LOGGING_PVT.Log_Variable (
13304: INL_LOGGING_PVT.Log_BeginProc (
13305: p_module_name => g_module_name,
13306: p_procedure_name => l_program_name) ;
13307: -- Logging variables
13308: INL_LOGGING_PVT.Log_Variable (
13309: p_module_name => g_module_name,
13310: p_procedure_name => l_program_name,
13311: p_var_name => 'p_ship_header_id',
13312: p_var_value => p_ship_header_id);
13309: p_module_name => g_module_name,
13310: p_procedure_name => l_program_name,
13311: p_var_name => 'p_ship_header_id',
13312: p_var_value => p_ship_header_id);
13313: INL_LOGGING_PVT.Log_Variable (
13314: p_module_name => g_module_name,
13315: p_procedure_name => l_program_name,
13316: p_var_name => 'p_ship_line_id',
13317: p_var_value => p_ship_line_id) ;
13314: p_module_name => g_module_name,
13315: p_procedure_name => l_program_name,
13316: p_var_name => 'p_ship_line_id',
13317: p_var_value => p_ship_line_id) ;
13318: INL_LOGGING_PVT.Log_Variable (
13319: p_module_name => g_module_name,
13320: p_procedure_name => l_program_name,
13321: p_var_name => 'p_charge_line_type_id',
13322: p_var_value => p_charge_line_type_id) ;
13319: p_module_name => g_module_name,
13320: p_procedure_name => l_program_name,
13321: p_var_name => 'p_charge_line_type_id',
13322: p_var_value => p_charge_line_type_id) ;
13323: INL_LOGGING_PVT.Log_Variable (
13324: p_module_name => g_module_name,
13325: p_procedure_name => l_program_name,
13326: p_var_name => 'p_tax_code',
13327: p_var_value => p_tax_code) ;
13324: p_module_name => g_module_name,
13325: p_procedure_name => l_program_name,
13326: p_var_name => 'p_tax_code',
13327: p_var_value => p_tax_code) ;
13328: INL_LOGGING_PVT.Log_Variable (
13329: p_module_name => g_module_name,
13330: p_procedure_name => l_program_name,
13331: p_var_name => 'p_match_table_name',
13332: p_var_value => p_match_table_name) ;
13329: p_module_name => g_module_name,
13330: p_procedure_name => l_program_name,
13331: p_var_name => 'p_match_table_name',
13332: p_var_value => p_match_table_name) ;
13333: INL_LOGGING_PVT.Log_Variable (
13334: p_module_name => g_module_name,
13335: p_procedure_name => l_program_name,
13336: p_var_name => 'p_summarized_matched_amt',
13337: p_var_value => p_summarized_matched_amt) ;
13353: org_organization_definitions ood
13354: WHERE ish.organization_id = ood.organization_id
13355: AND gsb.set_of_books_id = ood.set_of_books_id
13356: AND ish.ship_header_id = p_ship_header_id;
13357: INL_LOGGING_PVT.Log_Variable (
13358: p_module_name => g_module_name,
13359: p_procedure_name => l_program_name,
13360: p_var_name => 'l_func_currency_code',
13361: p_var_value => l_func_currency_code) ;
13370:
13371: -- In case of summarized match amount,
13372: -- we must add the non recoverable tax
13373: IF(p_summarized_matched_amt = 'Y') THEN
13374: INL_LOGGING_PVT.Log_Variable (
13375: p_module_name => g_module_name,
13376: p_procedure_name => l_program_name,
13377: p_var_name => '1-l_matched_amt',
13378: p_var_value => l_matched_amt) ;
13397: p_tax_code => p_tax_code
13398: -- p_functional_curr_code => l_func_currency_code SCM-051
13399: );
13400: END IF;
13401: INL_LOGGING_PVT.Log_Variable (
13402: p_module_name => g_module_name,
13403: p_procedure_name => l_program_name,
13404: p_var_name => 'l_matched_amt',
13405: p_var_value => l_matched_amt) ;
13404: p_var_name => 'l_matched_amt',
13405: p_var_value => l_matched_amt) ;
13406:
13407: -- Standard End of Procedure/Function Logging
13408: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
13409: p_procedure_name => l_program_name) ;
13410: RETURN l_matched_amt;
13411: EXCEPTION
13412: WHEN OTHERS THEN
13410: RETURN l_matched_amt;
13411: EXCEPTION
13412: WHEN OTHERS THEN
13413: -- Standard Unexpected Error Logging
13414: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
13415: p_procedure_name => l_program_name) ;
13416: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13417: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
13418: p_procedure_name => l_program_name) ;
13450: l_debug_info VARCHAR2(200);
13451:
13452: BEGIN
13453: -- Standard Beginning of Procedure/Function Logging
13454: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
13455: p_procedure_name => l_program_name) ;
13456: -- Logging variables
13457: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
13458: p_procedure_name => l_program_name,
13453: -- Standard Beginning of Procedure/Function Logging
13454: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
13455: p_procedure_name => l_program_name) ;
13456: -- Logging variables
13457: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
13458: p_procedure_name => l_program_name,
13459: p_var_name => 'p_ship_header_id',
13460: p_var_value => p_ship_header_id);
13461:
13490: l_assoc_last_update_date,
13491: l_tax_last_update_date);
13492:
13493: -- Logging variables
13494: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
13495: p_procedure_name => l_program_name,
13496: p_var_name => 'ship_last_update_date',
13497: p_var_value => ship_last_update_date);
13498:
13500:
13501: EXCEPTION
13502: WHEN OTHERS THEN
13503: -- Standard Unexpected Error Logging
13504: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
13505: p_procedure_name => l_program_name) ;
13506: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13507: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
13508: p_procedure_name => l_program_name) ;
13558: l_item VARCHAR2(40); -- Bug #15927464
13559:
13560: BEGIN
13561: -- Standard Beginning of Procedure/Function Logging
13562: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
13563: p_procedure_name => l_api_name);
13564: -- Initialize message list if p_init_msg_list is set to TRUE.
13565: IF FND_API.to_Boolean (p_init_msg_list) THEN
13566: FND_MSG_PUB.initialize;
13595:
13596: -- Bug #15927464
13597: IF p_secondary_uom_code IS NOT NULL AND l_secondary_qty IS NULL THEN
13598: l_debug_info := 'Secondary Qty should not be NULL for item: ' || l_item;
13599: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
13600: p_procedure_name => l_api_name,
13601: p_debug_info => l_debug_info);
13602:
13603: FND_MESSAGE.SET_NAME('INL','INL_ERR_SECONDARY_QTY_NULL');
13620: END IF;
13621:
13622: -- Check if quantities are in deviation
13623: l_debug_info := 'Call INV_CONVERT.within_deviation for validating deviation.';
13624: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
13625: p_procedure_name => l_api_name,
13626: p_debug_info => l_debug_info);
13627: -- Bug 15827165
13628: IF(l_secondary_qty IS NOT NULL AND p_secondary_uom_code IS NOT NULL) THEN
13650: p_encoded => L_FND_FALSE,
13651: p_count => x_msg_count,
13652: p_data => x_msg_data) ;
13653: -- Standard End of Procedure/Function Logging
13654: INL_LOGGING_PVT.Log_EndProc (
13655: p_module_name => g_module_name,
13656: p_procedure_name => l_api_name) ;
13657: EXCEPTION
13658: WHEN L_FND_EXC_ERROR THEN
13656: p_procedure_name => l_api_name) ;
13657: EXCEPTION
13658: WHEN L_FND_EXC_ERROR THEN
13659: -- Standard Expected Error Logging
13660: INL_LOGGING_PVT.Log_ExpecError (
13661: p_module_name => g_module_name,
13662: p_procedure_name => l_api_name) ;
13663: x_return_status := L_FND_RET_STS_ERROR;
13664: FND_MSG_PUB.Count_And_Get (
13666: p_count => x_msg_count,
13667: p_data => x_msg_data) ;
13668: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
13669: -- Standard Unexpected Error Logging
13670: INL_LOGGING_PVT.Log_UnexpecError (
13671: p_module_name => g_module_name,
13672: p_procedure_name => l_api_name) ;
13673: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
13674: FND_MSG_PUB.Count_And_Get (
13676: p_count => x_msg_count,
13677: p_data => x_msg_data) ;
13678: WHEN OTHERS THEN
13679: -- Standard Unexpected Error Logging
13680: INL_LOGGING_PVT.Log_UnexpecError (
13681: p_module_name => g_module_name,
13682: p_procedure_name => l_api_name) ;
13683: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
13684: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13725: l_converted_qty NUMBER;
13726:
13727: BEGIN
13728: -- Standard Beginning of Procedure/Function Logging
13729: INL_LOGGING_PVT.Log_BeginProc (
13730: p_module_name => g_module_name,
13731: p_procedure_name => l_func_name) ;
13732: -- Logging variables
13733: INL_LOGGING_PVT.Log_Variable (
13729: INL_LOGGING_PVT.Log_BeginProc (
13730: p_module_name => g_module_name,
13731: p_procedure_name => l_func_name) ;
13732: -- Logging variables
13733: INL_LOGGING_PVT.Log_Variable (
13734: p_module_name => g_module_name,
13735: p_procedure_name => l_func_name,
13736: p_var_name => 'p_organization_id',
13737: p_var_value => p_organization_id);
13734: p_module_name => g_module_name,
13735: p_procedure_name => l_func_name,
13736: p_var_name => 'p_organization_id',
13737: p_var_value => p_organization_id);
13738: INL_LOGGING_PVT.Log_Variable (
13739: p_module_name => g_module_name,
13740: p_procedure_name => l_func_name,
13741: p_var_name => 'p_inventory_item_id',
13742: p_var_value => p_inventory_item_id) ;
13739: p_module_name => g_module_name,
13740: p_procedure_name => l_func_name,
13741: p_var_name => 'p_inventory_item_id',
13742: p_var_value => p_inventory_item_id) ;
13743: INL_LOGGING_PVT.Log_Variable (
13744: p_module_name => g_module_name,
13745: p_procedure_name => l_func_name,
13746: p_var_name => 'p_calling_field',
13747: p_var_value => p_calling_field) ;
13744: p_module_name => g_module_name,
13745: p_procedure_name => l_func_name,
13746: p_var_name => 'p_calling_field',
13747: p_var_value => p_calling_field) ;
13748: INL_LOGGING_PVT.Log_Variable (
13749: p_module_name => g_module_name,
13750: p_procedure_name => l_func_name,
13751: p_var_name => 'p_txn_qty',
13752: p_var_value => p_txn_qty) ;
13749: p_module_name => g_module_name,
13750: p_procedure_name => l_func_name,
13751: p_var_name => 'p_txn_qty',
13752: p_var_value => p_txn_qty) ;
13753: INL_LOGGING_PVT.Log_Variable (
13754: p_module_name => g_module_name,
13755: p_procedure_name => l_func_name,
13756: p_var_name => 'p_txn_uom_code',
13757: p_var_value => p_txn_uom_code) ;
13754: p_module_name => g_module_name,
13755: p_procedure_name => l_func_name,
13756: p_var_name => 'p_txn_uom_code',
13757: p_var_value => p_txn_uom_code) ;
13758: INL_LOGGING_PVT.Log_Variable (
13759: p_module_name => g_module_name,
13760: p_procedure_name => l_func_name,
13761: p_var_name => 'p_secondary_qty',
13762: p_var_value => p_secondary_qty) ;
13759: p_module_name => g_module_name,
13760: p_procedure_name => l_func_name,
13761: p_var_name => 'p_secondary_qty',
13762: p_var_value => p_secondary_qty) ;
13763: INL_LOGGING_PVT.Log_Variable (
13764: p_module_name => g_module_name,
13765: p_procedure_name => l_func_name,
13766: p_var_name => 'p_secondary_uom_code',
13767: p_var_value => p_secondary_uom_code) ;
13785:
13786: -- Branch depending on calling field. 'T' Transaction Qty, 'S' Secondary Qty.
13787: IF (p_calling_field = 'T') THEN
13788: l_debug_info := 'Call INV_CONVERT.inv_um_convert for deriving Secondary Qty based on Transaction Qty.';
13789: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
13790: p_procedure_name => l_func_name,
13791: p_debug_info => l_debug_info);
13792:
13793: -- In this case we will use Primary Qty data as base to retrieve Secondary Qty
13798: p_txn_qty,
13799: p_txn_uom_code,
13800: p_secondary_uom_code,
13801: NULL, NULL);
13802: INL_LOGGING_PVT.Log_Variable (
13803: p_module_name => g_module_name,
13804: p_procedure_name => l_func_name,
13805: p_var_name => 'l_converted_qty',
13806: p_var_value => l_converted_qty) ;
13810: FND_MSG_PUB.ADD;
13811: END IF;
13812: ELSIF (p_calling_field = 'S') THEN
13813: l_debug_info := 'Call INV_CONVERT.inv_um_convert for deriving Transaction Qty based on Secondary Qty.';
13814: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
13815: p_procedure_name => l_func_name,
13816: p_debug_info => l_debug_info) ;
13817:
13818: -- In this case we will use Secondary Qty data as base to retrieve Transaction Qty
13823: p_secondary_qty,
13824: p_secondary_uom_code,
13825: p_txn_uom_code,
13826: NULL, NULL);
13827: INL_LOGGING_PVT.Log_Variable (
13828: p_module_name => g_module_name,
13829: p_procedure_name => l_func_name,
13830: p_var_name => 'l_converted_qty',
13831: p_var_value => l_converted_qty) ;
13839: RETURN l_converted_qty;
13840: EXCEPTION
13841: WHEN OTHERS THEN
13842: -- Standard Unexpected Error Logging
13843: INL_LOGGING_PVT.Log_UnexpecError (
13844: p_module_name => g_module_name,
13845: p_procedure_name => l_func_name) ;
13846: IF FND_MSG_PUB.Check_Msg_Level (
13847: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
13922: TABLE OF c_delete_cl%ROWTYPE INDEX BY BINARY_INTEGER;
13923: l_delete_cl_lst l_delete_cl_lst_tp;
13924:
13925: BEGIN
13926: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
13927: p_procedure_name => l_program_name) ;
13928:
13929: -- Standard Start of API savepoint
13930: SAVEPOINT Discard_Updates_PVT;
13945: -- Initialize API return status to success
13946: x_return_status := L_FND_RET_STS_SUCCESS;
13947:
13948: l_debug_info := 'Discard Shipment Line changes';
13949: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
13950: p_procedure_name => l_program_name,
13951: p_debug_info => l_debug_info);
13952:
13953: UPDATE inl_ship_lines_all isl
13969:
13970: ;
13971:
13972: l_debug_info := 'Revert Charge Line adjustment values';
13973: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
13974: p_procedure_name => l_program_name,
13975: p_debug_info => l_debug_info);
13976: UPDATE inl_charge_lines icl
13977: SET icl.last_update_login = l_fnd_login_id,
14022: CLOSE c_delete_cl;
14023:
14024: --
14025: l_debug_info := 'Delete new associations ADDED as part of the adjustment';
14026: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
14027: p_procedure_name => l_program_name,
14028: p_debug_info => l_debug_info);
14029:
14030: DELETE FROM inl_associations a
14043: );
14044:
14045: --
14046: l_debug_info := 'Delete new charge lines ADDED as part of the adjustment';
14047: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
14048: p_procedure_name => l_program_name,
14049: p_debug_info => l_debug_info);
14050:
14051: IF NVL (l_delete_cl_lst.LAST, 0) > 0 THEN
14056: END LOOP;
14057: END IF;
14058: --
14059: l_debug_info := 'Revert Association that were flagged to be removed';
14060: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
14061: p_procedure_name => l_program_name,
14062: p_debug_info => l_debug_info);
14063:
14064: UPDATE inl_associations a
14080: CONNECT BY PRIOR cl1.parent_charge_line_id = cl1.charge_line_id
14081: );
14082:
14083: l_debug_info := 'Set to N the ELC flag on Shipment Headers';
14084: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
14085: p_procedure_name => l_program_name,
14086: p_debug_info => l_debug_info);
14087: UPDATE inl_ship_headers_all a
14088: SET a.pending_update_flag = 'N',
14093: AND a.pending_update_flag IS NOT NULL
14094: ;
14095:
14096: l_debug_info := 'Call INL_INTERFACE_PVT.Reset_MatchInt';
14097: INL_LOGGING_PVT.Log_Statement(p_module_name => g_module_name,
14098: p_procedure_name => l_program_name,
14099: p_debug_info => l_debug_info);
14100:
14101: INL_INTERFACE_PVT.Reset_MatchInt(p_ship_header_id => p_ship_header_id,
14119: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE,
14120: p_count => x_msg_count,
14121: p_data => x_msg_data);
14122:
14123: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
14124: p_procedure_name => l_program_name);
14125: EXCEPTION
14126: WHEN L_FND_EXC_ERROR THEN
14127: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
14123: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
14124: p_procedure_name => l_program_name);
14125: EXCEPTION
14126: WHEN L_FND_EXC_ERROR THEN
14127: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
14128: p_procedure_name => l_program_name);
14129: ROLLBACK TO Discard_Updates_PVT;
14130: x_return_status := L_FND_RET_STS_ERROR;
14131: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE,
14131: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE,
14132: p_count => x_msg_count,
14133: p_data => x_msg_data);
14134: WHEN L_FND_EXC_UNEXPECTED_ERROR THEN
14135: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
14136: p_procedure_name => l_program_name);
14137: ROLLBACK TO Discard_Updates_PVT;
14138: x_return_status := L_FND_RET_STS_UNEXP_ERROR;
14139: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE,
14139: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE,
14140: p_count => x_msg_count,
14141: p_data => x_msg_data);
14142: WHEN OTHERS THEN
14143: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
14144: p_procedure_name => l_program_name);
14145: ROLLBACK TO Discard_Updates_PVT;
14146: x_return_status := L_FND_RET_STS_UNEXP_ERROR ;
14147: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN