[Home] [Help]
132: l_msg_data VARCHAR2 (2000) ;
133: l_debug_info VARCHAR2 (200) ;
134: BEGIN
135: -- Standard Beginning of Procedure/Function Logging
136: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
137: p_procedure_name => l_proc_name) ;
138: -- Initialize return status to success
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140: l_debug_info := 'Insert error details in inl_ship_holds.';
137: p_procedure_name => l_proc_name) ;
138: -- Initialize return status to success
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140: l_debug_info := 'Insert error details in inl_ship_holds.';
141: INL_LOGGING_PVT.Log_Statement (
142: p_module_name => g_module_name,
143: p_procedure_name => l_proc_name,
144: p_debug_info => l_debug_info
145: ) ;
211: SYSDATE ,
212: fnd_global.conc_request_id
213: ) ;
214: -- Standard End of Procedure/Function Logging
215: INL_LOGGING_PVT.Log_EndProc
216: (
217: p_module_name => g_module_name, p_procedure_name => l_proc_name
218: )
219: ;
219: ;
220: EXCEPTION
221: WHEN FND_API.G_EXC_ERROR THEN
222: -- Standard Expected Error Logging
223: INL_LOGGING_PVT.Log_ExpecError
224: (
225: p_module_name => g_module_name, p_procedure_name => l_proc_name
226: )
227: ;
227: ;
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: -- Standard Unexpected Error Logging
231: INL_LOGGING_PVT.Log_UnexpecError
232: (
233: p_module_name => g_module_name, p_procedure_name => l_proc_name
234: )
235: ;
235: ;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: WHEN OTHERS THEN
238: -- Standard Unexpected Error Logging
239: INL_LOGGING_PVT.Log_UnexpecError
240: (
241: p_module_name => g_module_name, p_procedure_name => l_proc_name
242: )
243: ;
299: )
300: ;
301: BEGIN
302: -- Standard Beginning of Procedure/Function Logging
303: INL_LOGGING_PVT.Log_BeginProc
304: (
305: p_module_name => g_module_name, p_procedure_name => l_proc_name
306: )
307: ;
307: ;
308: -- Initialize return status to success
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310: l_debug_info := 'Delete Errors from previous validation.';
311: INL_LOGGING_PVT.Log_Statement (
312: p_module_name => g_module_name,
313: p_procedure_name => l_proc_name,
314: p_debug_info => l_debug_info
315: ) ;
330: AND ship_line_id = p_charge_line_id;
331: END IF;
332: END IF;
333: -- Standard End of Procedure/Function Logging
334: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
335: p_procedure_name => l_proc_name) ;
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
338: -- Standard Expected Error Logging
335: p_procedure_name => l_proc_name) ;
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
338: -- Standard Expected Error Logging
339: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
340: p_procedure_name => l_proc_name) ;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: -- Standard Unexpected Error Logging
340: p_procedure_name => l_proc_name) ;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: -- Standard Unexpected Error Logging
344: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
345: p_procedure_name => l_proc_name) ;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: WHEN OTHERS THEN
348: -- Standard Unexpected Error Logging
345: p_procedure_name => l_proc_name) ;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: WHEN OTHERS THEN
348: -- Standard Unexpected Error Logging
349: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
350: p_procedure_name => l_proc_name) ;
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
353: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
399: l_retcode NUMBER;
400: l_pre_receive VARCHAR2 (1);
401:
402: BEGIN
403: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
404: p_procedure_name => l_api_name) ;
405: -- Standard Start of API savepoint
406: SAVEPOINT Complete_Shipment_PVT;
407: -- Initialize message list if p_init_msg_list is set to TRUE.
432:
433: -- Pre-Receive scenario
434: IF (NVL (l_pre_receive, 'N') = 'Y') THEN
435: l_debug_info := 'Call INL_INTEGRATION_GRP.Export_toRCV';
436: INL_LOGGING_PVT.Log_Statement (
437: p_module_name => g_module_name,
438: p_procedure_name => l_api_name,
439: p_debug_info => l_debug_info
440: ) ;
458: -- Blackbox scenario
459: ELSIF (NVL (l_pre_receive, 'N') = 'N') THEN
460:
461: l_debug_info := 'Call INL_INTEGRATION_GRP.Call_StampLC';
462: INL_LOGGING_PVT.Log_Statement (
463: p_module_name => g_module_name,
464: p_procedure_name => l_api_name,
465: p_debug_info => l_debug_info
466: ) ;
486: ----------------------------------------------
487: ELSIF NVL (p_pending_matching_flag, 'N') = 'Y' THEN
488: -- Run Create Costing Interfaces
489: l_debug_info := 'Run INL_INTEGRATION_GRP.Export_ToCST';
490: INL_LOGGING_PVT.Log_Statement (
491: p_module_name => g_module_name,
492: p_procedure_name => l_api_name,
493: p_debug_info => l_debug_info
494: ) ;
509: END IF;
510: END IF;
511:
512: l_debug_info := 'Update the current INL_SHIP_HEADERS_ALL.ship_status_code to COMPLETED';
513: INL_LOGGING_PVT.Log_Statement (
514: p_module_name => g_module_name,
515: p_procedure_name => l_api_name,
516: p_debug_info => l_debug_info
517: ) ;
529: -- Standard call to get message count and if count is 1, get message info.
530: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
531: p_count => x_msg_count,
532: p_data => x_msg_data) ;
533: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
534: p_procedure_name => l_api_name) ;
535: EXCEPTION
536: WHEN FND_API.G_EXC_ERROR THEN
537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
533: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
534: p_procedure_name => l_api_name) ;
535: EXCEPTION
536: WHEN FND_API.G_EXC_ERROR THEN
537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
538: p_procedure_name => l_api_name) ;
539: ROLLBACK TO Complete_Shipment_PVT;
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
542: p_count => x_msg_count,
543: p_data => x_msg_data) ;
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
546: p_procedure_name => l_api_name) ;
547: ROLLBACK TO Complete_Shipment_PVT;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
549: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
550: p_count => x_msg_count,
551: p_data => x_msg_data) ;
552: WHEN OTHERS THEN
553: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
554: p_procedure_name => l_api_name) ;
555: ROLLBACK TO Complete_Shipment_PVT;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
595: AND ROWNUM < 2
596: ) ;
597:
598: l_debug_info := 'deleted '||sql%ROWCOUNT||' allocations rows ';
599: INL_LOGGING_PVT.Log_Statement (
600: p_module_name => g_module_name,
601: p_procedure_name => l_proc_name,
602: p_debug_info => l_debug_info
603: ) ;
650: l_exist_status NUMBER := 0;
651: l_exist_calc NUMBER := 0;
652: l_debug_info VARCHAR2 (200) ;
653: BEGIN
654: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
655: p_procedure_name => l_api_name) ;
656: -- Standard Start of API savepoint
657: SAVEPOINT Set_ToRevalidate_PVT;
658: -- Initialize message list if p_init_msg_list is set to TRUE.
673: INTO l_ship_status
674: FROM inl_ship_headers sh
675: WHERE sh.ship_header_id = p_ship_header_id;
676:
677: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
678: p_procedure_name => l_api_name,
679: p_var_name => 'current Shipment status',
680: p_var_value => l_ship_status) ;
681: IF (l_ship_status = 'VALIDATED' OR l_ship_status = 'ON HOLD') THEN
698: -- Standard call to get message count and if count is 1, get message info.
699: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
700: p_count => x_msg_count,
701: p_data => x_msg_data) ;
702: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
703: p_procedure_name => l_api_name) ;
704: EXCEPTION
705: WHEN FND_API.G_EXC_ERROR THEN
706: l_debug_info := 'MSG: '||SQLERRM;
703: p_procedure_name => l_api_name) ;
704: EXCEPTION
705: WHEN FND_API.G_EXC_ERROR THEN
706: l_debug_info := 'MSG: '||SQLERRM;
707: INL_LOGGING_PVT.Log_Statement (
708: p_module_name => g_module_name,
709: p_procedure_name => l_api_name,
710: p_debug_info => l_debug_info
711: ) ;
709: p_procedure_name => l_api_name,
710: p_debug_info => l_debug_info
711: ) ;
712:
713: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
714: p_procedure_name => l_api_name) ;
715: ROLLBACK TO Set_ToRevalidate_PVT;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
719: p_data => x_msg_data) ;
720: WHEN FND_API.G_EXC_UNEXPECTED_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: ) ;
724: p_procedure_name => l_api_name,
725: p_debug_info => l_debug_info
726: ) ;
727:
728: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
729: p_procedure_name => l_api_name) ;
730: ROLLBACK TO Set_ToRevalidate_PVT;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
733: p_count => x_msg_count,
734: p_data => x_msg_data) ;
735: WHEN OTHERS THEN
736: l_debug_info := 'MSG: '||SQLERRM;
737: INL_LOGGING_PVT.Log_Statement (
738: p_module_name => g_module_name,
739: p_procedure_name => l_api_name,
740: p_debug_info => l_debug_info
741: ) ;
739: p_procedure_name => l_api_name,
740: p_debug_info => l_debug_info
741: ) ;
742:
743: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
744: p_procedure_name => l_api_name) ;
745: ROLLBACK TO Set_ToRevalidate_PVT;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
770: l_proc_name CONSTANT VARCHAR2 (30) := 'Has_ShipLine';
771: ac_lin NUMBER;
772: l_debug_info VARCHAR2 (200) ;
773: BEGIN
774: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
775: p_procedure_name => l_proc_name) ;
776: SELECT COUNT ( *)
777: INTO ac_lin
778: FROM inl_adj_ship_lines_v ol
778: FROM inl_adj_ship_lines_v ol
779: WHERE ol.ship_header_id = p_ship_header_id
780: AND ROWNUM < 2;
781:
782: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
783: p_procedure_name => l_proc_name) ;
784: IF NVL (ac_lin, 0) > 0 THEN
785: RETURN TRUE;
786: ELSE
806: l_proc_name CONSTANT VARCHAR2 (30) := 'Get_ShipHeadNum';
807: l_ship_header_num VARCHAR2 (25) ;
808: l_debug_info VARCHAR2 (200) ;
809: BEGIN
810: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
811: p_procedure_name => l_proc_name) ;
812: BEGIN
813: SELECT ship_num
814: INTO l_ship_header_num
817: EXCEPTION
818: WHEN NO_DATA_FOUND THEN
819: RETURN '';
820: END;
821: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
822: p_procedure_name => l_proc_name) ;
823: RETURN l_ship_header_num;
824: END Get_ShipHeadNum;
825:
841: l_proc_name CONSTANT VARCHAR2 (30) := 'Get_ShipLineNum';
842: l_ship_line_num VARCHAR2 (25) ;
843: l_debug_info VARCHAR2 (200) ;
844: BEGIN
845: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
846: p_procedure_name => l_proc_name) ;
847: BEGIN
848: SELECT ship_line_num
849: INTO l_ship_line_num
852: EXCEPTION
853: WHEN NO_DATA_FOUND THEN
854: RETURN '';
855: END;
856: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
857: p_procedure_name => l_proc_name) ;
858: RETURN TO_CHAR (l_ship_line_num) ;
859: END Get_ShipLineNum;
860:
922: l_total_quantity_rsl NUMBER := 0;
923:
924: BEGIN
925: -- Standard Beginning of Procedure/Function Logging
926: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
927: p_procedure_name => l_api_name) ;
928: -- Initialize message list if p_init_msg_list is set to TRUE.
929: IF FND_API.to_Boolean (p_init_msg_list) THEN
930: FND_MSG_PUB.initialize;
952: l_receipt_source_code := 'CUSTOMER';
953: END IF;
954:
955: -- Logging variables
956: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
957: p_procedure_name => l_api_name,
958: p_var_name => 'l_transaction_type',
959: p_var_value => l_transaction_type) ;
960: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
956: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
957: p_procedure_name => l_api_name,
958: p_var_name => 'l_transaction_type',
959: p_var_value => l_transaction_type) ;
960: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
961: p_procedure_name => l_api_name,
962: p_var_name => 'l_receipt_source_code',
963: p_var_value => l_receipt_source_code) ;
964:
962: p_var_name => 'l_receipt_source_code',
963: p_var_value => l_receipt_source_code) ;
964:
965: l_debug_info := 'Call RCV_QUANTITIES_S.get_available_quantity - PLL';
966: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
967: p_procedure_name => l_api_name,
968: p_debug_info => l_debug_info);
969:
970: -- This call will return the available qty not considering qty on RSL.
978: p_tolerable_quantity => p_tolerable_quantity,
979: p_unit_of_measure => p_unit_of_measure);
980:
981: -- Logging variables
982: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
983: p_procedure_name => l_api_name,
984: p_var_name => 'p_available_quantity',
985: p_var_value => p_available_quantity);
986: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
982: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
983: p_procedure_name => l_api_name,
984: p_var_name => 'p_available_quantity',
985: p_var_value => p_available_quantity);
986: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
987: p_procedure_name => l_api_name,
988: p_var_name => 'p_tolerable_quantity',
989: p_var_value => p_tolerable_quantity);
990:
991: -- Iterate through all RCV Shipment Lines based on a given PLL.
992: FOR l_rcv_shipmt_lines IN c_rcv_shipmt_lines
993: LOOP
994: l_debug_info := 'Call RCV_QUANTITIES_S.get_available_quantity - RSL';
995: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
996: p_procedure_name => l_api_name,
997: p_debug_info => l_debug_info);
998:
999: -- This call will return the quantity on RSL that should be deducted from the available quantity.
1033: IF p_tolerable_quantity < 0 THEN
1034: p_tolerable_quantity := 0;
1035: END IF;
1036:
1037: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1038: p_procedure_name => l_api_name,
1039: p_var_name => 'p_available_quantity',
1040: p_var_value => p_available_quantity);
1041: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1037: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1038: p_procedure_name => l_api_name,
1039: p_var_name => 'p_available_quantity',
1040: p_var_value => p_available_quantity);
1041: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1042: p_procedure_name => l_api_name,
1043: p_var_name => 'p_tolerable_quantity',
1044: p_var_value => p_tolerable_quantity);
1045: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1041: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1042: p_procedure_name => l_api_name,
1043: p_var_name => 'p_tolerable_quantity',
1044: p_var_value => p_tolerable_quantity);
1045: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1046: p_procedure_name => l_api_name,
1047: p_var_name => 'p_unit_of_measure',
1048: p_var_value => p_unit_of_measure) ;
1049:
1057: p_count => x_msg_count,
1058: p_data => x_msg_data) ;
1059:
1060: -- Standard End of Procedure/Function Logging
1061: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1062: p_procedure_name => l_api_name) ;
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: -- Standard Expected Error Logging
1062: p_procedure_name => l_api_name) ;
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: -- Standard Expected Error Logging
1066: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1067: p_procedure_name => l_api_name) ;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1070: p_count => x_msg_count,
1070: p_count => x_msg_count,
1071: p_data => x_msg_data) ;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- Standard Unexpected Error Logging
1074: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1075: p_procedure_name => l_api_name) ;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1078: p_count => x_msg_count,
1078: p_count => x_msg_count,
1079: p_data => x_msg_data) ;
1080: WHEN OTHERS THEN
1081: -- Standard Unexpected Error Logging
1082: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1083: p_procedure_name => l_api_name) ;
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1086: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1142: l_primary_uom_tl VARCHAR2(30);
1143:
1144: BEGIN
1145: -- Standard Beginning of Procedure/Function Logging
1146: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1147: p_procedure_name => l_proc_name) ;
1148: -- Initialize API return status to success
1149: x_return_status := FND_API.G_RET_STS_SUCCESS;
1150: -- Check if primary qty is ZERO
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: ELSE
1183: l_debug_info := 'INL_SHIPMENT_PVT.Get_AvailableQty';
1184: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
1185: p_procedure_name => l_proc_name,
1186: p_debug_info => l_debug_info ) ;
1187:
1188: -- Get the PO Avaliable and Tolerable Quantities
1197: x_return_status => l_return_status,
1198: x_msg_count => l_msg_count,
1199: x_msg_data => l_msg_data);
1200:
1201: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1202: p_procedure_name => l_proc_name,
1203: p_var_name => 'x_available_quantity',
1204: p_var_value => x_available_quantity);
1205: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1201: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1202: p_procedure_name => l_proc_name,
1203: p_var_name => 'x_available_quantity',
1204: p_var_value => x_available_quantity);
1205: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1206: p_procedure_name => l_proc_name,
1207: p_var_name => l_debug_info,
1208: p_var_value => 'x_tolerable_quantity');
1209: INL_LOGGING_PVT.Log_Variable ( p_module_name => x_tolerable_quantity,
1205: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1206: p_procedure_name => l_proc_name,
1207: p_var_name => l_debug_info,
1208: p_var_value => 'x_tolerable_quantity');
1209: INL_LOGGING_PVT.Log_Variable ( p_module_name => x_tolerable_quantity,
1210: p_procedure_name => l_proc_name,
1211: p_var_name => 'x_unit_of_measure',
1212: p_var_value => x_unit_of_measure);
1213: -- Get the UOM Code
1215: INTO x_uom_code
1216: FROM mtl_units_of_measure
1217: WHERE unit_of_measure = x_unit_of_measure;
1218:
1219: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1220: p_procedure_name => l_proc_name,
1221: p_var_name => 'x_uom_code',
1222: p_var_value => x_uom_code) ;
1223: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1219: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1220: p_procedure_name => l_proc_name,
1221: p_var_name => 'x_uom_code',
1222: p_var_value => x_uom_code) ;
1223: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1224: p_procedure_name => l_proc_name,
1225: p_var_name => 'p_primary_uom_code',
1226: p_var_value => p_primary_uom_code) ;
1227:
1225: p_var_name => 'p_primary_uom_code',
1226: p_var_value => p_primary_uom_code) ;
1227:
1228: l_debug_info := 'If necessary, it converts the qty (INL_landedcost_pvt.Converted_Qty).';
1229: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
1230: p_procedure_name => l_proc_name,
1231: p_debug_info => l_debug_info ) ;
1232:
1233: -- Convert to Primary Qty when Unit of Measure is different
1256: END IF;
1257: -- In Receiving (RCV_QUANTITIES_S) the rcv_exception_code is checked FOR POs only.
1258: IF p_ship_line_src_type_code = 'PO' THEN
1259: l_debug_info := 'Verify in po_line_locations_all the Over-Receipt Quantity Control Action';
1260: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1261: p_procedure_name => l_proc_name,
1262: p_debug_info => l_debug_info) ;
1263: SELECT DECODE (pll.qty_rcv_exception_code, 'NONE', 'Y', 'N')
1264: INTO l_acpt_qty
1327: )
1328: AND sl.ship_line_src_type_code = p_ship_line_src_type_code
1329: AND sl.ship_line_source_id = p_ship_line_src_id;
1330:
1331: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
1332: p_procedure_name => l_proc_name,
1333: p_var_name => 'x_qty_in_others_ops',
1334: p_var_value => x_qty_in_others_ops) ;
1335: IF x_qty_in_others_ops + p_primary_qty > x_tolerable_quantity THEN
1333: p_var_name => 'x_qty_in_others_ops',
1334: p_var_value => x_qty_in_others_ops) ;
1335: IF x_qty_in_others_ops + p_primary_qty > x_tolerable_quantity THEN
1336: l_debug_info := 'x_qty_in_others_ops + p_primary_qty > x_tolerable_quantity';
1337: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
1338: p_procedure_name => l_proc_name,
1339: p_debug_info => l_debug_info) ;
1340: FOR c_ship_num IN
1341: (
1387: x_return_status => l_return_status) ;
1388: END IF;
1389: END IF;
1390: END IF;
1391: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1392: p_procedure_name => l_proc_name) ;
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1459: l_p_converted_PUP NUMBER;
1460: l_po_UOM_code VARCHAR2(30);
1461: BEGIN
1462: -- Standard Beginning of Procedure/Function Logging
1463: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
1464: p_procedure_name => l_proc_name) ;
1465: -- Initialize API return status to success
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1467: -- Get the Price Tolerance from INL Setup Options
1469: INTO l_po_price_toler_perc
1470: FROM inl_parameters
1471: WHERE organization_id = p_organization_id;
1472:
1473: INL_LOGGING_PVT.Log_Variable (
1474: p_module_name => g_module_name,
1475: p_procedure_name => l_proc_name,
1476: p_var_name => 'l_po_price_toler_perc',
1477: p_var_value => l_po_price_toler_perc
1500:
1501:
1502:
1503: l_debug_info := 'Verifying if currecncy conversion is required. PO: '||l_po_currency_code ||'Shipment: '||p_currency_code;
1504: INL_LOGGING_PVT.Log_Statement (
1505: p_module_name => g_module_name,
1506: p_procedure_name => l_proc_name,
1507: p_debug_info => l_debug_info
1508: );
1523: END IF;
1524: END IF;
1525:
1526: l_debug_info := 'Verifying if UOM conversion is required. PO: '||l_po_UOM_code ||' Shipment: '||p_primary_uom_code;
1527: INL_LOGGING_PVT.Log_Statement (
1528: p_module_name => g_module_name,
1529: p_procedure_name => l_proc_name,
1530: p_debug_info => l_debug_info
1531: );
1615: END IF;
1616: END IF;
1617: END IF;
1618: -- Standard End of Procedure/Function Logging
1619: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1688: l_debug_info VARCHAR2 (200);
1689:
1690: BEGIN
1691: -- Standard Beginning of Procedure/Function Logging
1692: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
1693: p_procedure_name => l_api_name) ;
1694: -- Standard Start of API savepoint
1695: SAVEPOINT Check_PoTolerances_PVT;
1696:
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712:
1713: -- Validate PO Quantity Available
1714: l_debug_info := 'Call Check_AvailableQty';
1715: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1716: p_procedure_name => l_api_name,
1717: p_debug_info => l_debug_info) ;
1718:
1719: Check_AvailableQty(p_primary_qty => p_primary_qty,
1743:
1744: IF x_msg_count = 0 THEN
1745: -- Validate PO Price Tolerance
1746: l_debug_info := 'Call Check_PoPriceTolerance';
1747: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1748: p_procedure_name => l_api_name,
1749: p_debug_info => l_debug_info) ;
1750:
1751: Check_PoPriceTolerance(
1781: p_count => x_msg_count,
1782: p_data => x_msg_data) ;
1783:
1784: -- Standard End of Procedure/Function Logging
1785: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1786: p_procedure_name => l_api_name) ;
1787: EXCEPTION
1788: WHEN FND_API.G_EXC_ERROR THEN
1789: -- Standard Expected Error Logging
1786: p_procedure_name => l_api_name) ;
1787: EXCEPTION
1788: WHEN FND_API.G_EXC_ERROR THEN
1789: -- Standard Expected Error Logging
1790: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1791: p_procedure_name => l_api_name) ;
1792: ROLLBACK TO Check_PoTolerances_PVT;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1795: p_count => x_msg_count,
1796: p_data => x_msg_data) ;
1797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1798: -- Standard Unexpected Error Logging
1799: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1800: p_procedure_name => l_api_name) ;
1801: ROLLBACK TO Check_PoTolerances_PVT;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1804: p_count => x_msg_count,
1805: p_data => x_msg_data) ;
1806: WHEN OTHERS THEN
1807: -- Standard Unexpected Error Logging
1808: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1809: p_procedure_name => l_api_name) ;
1810: ROLLBACK TO Check_PoTolerances_PVT;
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1871:
1872: l_ch_lines_rec c_ch_lines%ROWTYPE;
1873:
1874: BEGIN
1875: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
1876: p_procedure_name => l_proc_name) ;
1877:
1878: x_return_status := FND_API.G_RET_STS_SUCCESS;
1879:
1881: FOR l_ch_lines_rec IN c_ch_lines
1882: LOOP
1883:
1884: l_debug_info := 'Check Foreign Currency for Charge Line';
1885: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
1886: p_procedure_name => l_proc_name,
1887: p_debug_info => l_debug_info) ;
1888: IF l_ch_lines_rec.currency_code <> p_functional_currency_code AND p_foreign_currency_flag = 'N' THEN
1889: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_FRGN_CUR') ;
1920: -- the flag l_ch_lines_rec.dflt_charge_amt_flag has been removed from table, and the original pkg
1921: -- fas been changed without the if clause, this is a temporarily wrk proc that will replace the actual
1922: 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) ;
1923: END LOOP;
1924: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1925: p_procedure_name => l_proc_name) ;
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: -- Standard Expected Error Logging
1925: p_procedure_name => l_proc_name) ;
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: -- Standard Expected Error Logging
1929: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1930: p_procedure_name => l_proc_name) ;
1931: x_return_status := FND_API.G_RET_STS_ERROR;
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: -- Standard Unexpected Error Logging
1930: p_procedure_name => l_proc_name) ;
1931: x_return_status := FND_API.G_RET_STS_ERROR;
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: -- Standard Unexpected Error Logging
1934: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1935: p_procedure_name => l_proc_name) ;
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1937: WHEN OTHERS THEN
1938: -- Standard Unexpected Error Logging
1935: p_procedure_name => l_proc_name) ;
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1937: WHEN OTHERS THEN
1938: -- Standard Unexpected Error Logging
1939: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1940: p_procedure_name => l_proc_name) ;
1941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1943: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2006:
2007: l_ship_lines_rec c_ship_lines%ROWTYPE;
2008:
2009: BEGIN
2010: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2011: p_procedure_name => l_proc_name) ;
2012:
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
2014:
2014:
2015: FOR l_ship_lines_rec IN c_ship_lines
2016: LOOP
2017: l_debug_info := 'Validate Charge Line. Call Validate_ChargeLine';
2018: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2019: p_procedure_name => l_proc_name,
2020: p_debug_info => l_debug_info) ;
2021:
2022: Validate_ChargeLine (p_ship_header_id => p_ship_header_id,
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2039:
2040: l_debug_info := 'Getting which scenartio is setup in RCV Parameters. Pre_Receive or BlackBox';
2041: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2042: p_procedure_name => l_proc_name,
2043: p_debug_info => l_debug_info) ;
2044: SELECT pre_receive
2045: INTO l_pre_receive
2049: -- Just validate PO Available Qty for Pre-Receive scenario
2050: -- In Blackbox, RCV handles this validation
2051: IF (NVL (l_pre_receive, 'N') = 'Y') THEN
2052: l_debug_info := 'Call to Check_AvailableQty';
2053: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2054: p_procedure_name => l_proc_name,
2055: p_debug_info => l_debug_info) ;
2056: Check_AvailableQty ( l_ship_lines_rec.primary_qty,
2057: l_ship_lines_rec.sum_primary_qty,
2077:
2078: -- Required validation only for Source Type Code = PO
2079: IF l_ship_lines_rec.ship_line_src_type_code = 'PO' THEN
2080: l_debug_info := 'Call Check_PoPriceTolerance';
2081: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2082: p_procedure_name => l_proc_name,
2083: p_debug_info => l_debug_info) ;
2084:
2085: Check_PoPriceTolerance (
2107: END IF;
2108: END IF;
2109: END LOOP;
2110:
2111: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2112: p_procedure_name => l_proc_name) ;
2113: EXCEPTION
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: -- Standard Expected Error Logging
2112: p_procedure_name => l_proc_name) ;
2113: EXCEPTION
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: -- Standard Expected Error Logging
2116: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2117: p_procedure_name => l_proc_name) ;
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: -- Standard Unexpected Error Logging
2117: p_procedure_name => l_proc_name) ;
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: -- Standard Unexpected Error Logging
2121: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2122: p_procedure_name => l_proc_name) ;
2123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2124: WHEN OTHERS THEN
2125: -- Standard Unexpected Error Logging
2122: p_procedure_name => l_proc_name) ;
2123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2124: WHEN OTHERS THEN
2125: -- Standard Unexpected Error Logging
2126: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2127: p_procedure_name => l_proc_name) ;
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2130: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2174: WHERE ship_header_id = p_ship_header_id
2175: ORDER BY ship_line_group_num;
2176:
2177: BEGIN
2178: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2179: p_procedure_name => l_proc_name) ;
2180:
2181: x_return_status := FND_API.G_RET_STS_SUCCESS;
2182:
2180:
2181: x_return_status := FND_API.G_RET_STS_SUCCESS;
2182:
2183: l_debug_info := 'Get Shipment Header and Shipment Type information';
2184: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2185: p_procedure_name => l_proc_name,
2186: p_debug_info => l_debug_info) ;
2187: SELECT shipt.ship_type_id,
2188: shipt.ship_type_code,
2211: l_in_adjust_flag := 'N';
2212: END IF;
2213:
2214: l_debug_info := 'Get Set of Books by a given Inventory Organization';
2215: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2216: p_procedure_name => l_proc_name,
2217: p_debug_info => l_debug_info) ;
2218: SELECT set_of_books_id
2219: INTO l_sob_id
2220: FROM org_organization_definitions ood
2221: WHERE organization_id = l_inv_org_id;
2222:
2223: l_debug_info := 'Check Shipment Date against the Inventory Open Period';
2224: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2225: p_procedure_name => l_proc_name,
2226: p_debug_info => l_debug_info) ;
2227:
2228: IF Validate_InvOpenPeriod ( x_trx_date => TO_CHAR (l_ship_date, 'YYYY-MM-DD'),
2233: FND_MESSAGE.SET_TOKEN ('SHIP_DATE', TO_CHAR (l_ship_date)) ;
2234: FND_MSG_PUB.ADD;
2235:
2236: l_debug_info := 'Transaction period is not open in Inventory.';
2237: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2238: p_procedure_name => l_proc_name,
2239: p_debug_info => l_debug_info) ;
2240: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2241: p_procedure_name => l_proc_name,
2236: l_debug_info := 'Transaction period is not open in Inventory.';
2237: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2238: p_procedure_name => l_proc_name,
2239: p_debug_info => l_debug_info) ;
2240: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2241: p_procedure_name => l_proc_name,
2242: p_var_name => 'l_ship_date',
2243: p_var_value => TO_CHAR (l_ship_date)) ;
2244:
2271: END IF;
2272: END IF;
2273:
2274: l_debug_info := 'Check if the current Shipment has Shipment Lines';
2275: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2276: p_procedure_name => l_proc_name,
2277: p_debug_info => l_debug_info) ;
2278:
2279: IF (NOT Has_ShipLine (p_ship_header_id)) THEN
2307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2308: END IF;
2309: ELSIF l_in_adjust_flag = 'N' THEN
2310: l_debug_info := 'Get the functional currency code';
2311: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2312: p_procedure_name => l_proc_name,
2313: p_debug_info => l_debug_info) ;
2314: SELECT gsb.currency_code
2315: INTO l_func_curr_code
2318: WHERE gsb.set_of_books_id = ood.set_of_books_id
2319: AND organization_id = l_inv_org_id;
2320:
2321: l_debug_info := 'Get Country from Location';
2322: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2323: p_procedure_name => l_proc_name,
2324: p_debug_info => l_debug_info) ;
2325: SELECT country
2326: INTO l_country_code_location
2330: FOR l_ln_group_rec IN c_ln_group
2331: LOOP
2332:
2333: l_debug_info := 'Call Validate_ShipLine';
2334: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2335: p_procedure_name => l_proc_name,
2336: p_debug_info => l_debug_info) ;
2337:
2338: Validate_ShipLine ( p_ship_header_id => p_ship_header_id,
2356: END IF;
2357: EXCEPTION
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: -- Standard Expected Error Logging
2360: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2361: p_procedure_name => l_proc_name) ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: -- Standard Unexpected Error Logging
2361: p_procedure_name => l_proc_name) ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: -- Standard Unexpected Error Logging
2365: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2366: p_procedure_name => l_proc_name) ;
2367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368: WHEN OTHERS THEN
2369: -- Standard Unexpected Error Logging
2366: p_procedure_name => l_proc_name) ;
2367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368: WHEN OTHERS THEN
2369: -- Standard Unexpected Error Logging
2370: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2371: p_procedure_name => l_proc_name) ;
2372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2373: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2374: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
2403: l_debug_info VARCHAR2 (400) ;
2404: BEGIN
2405: l_trx_date := TO_DATE (x_trx_date, 'YYYY-MM-DD') ;
2406: -- the x_return_status parameter mustn't been reseted
2407: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2408: p_procedure_name => l_proc_name) ;
2409: -- information about the input parameters
2410: INL_LOGGING_PVT.Log_APICallIn ( p_module_name => g_module_name,
2411: p_procedure_name => l_proc_name,
2406: -- the x_return_status parameter mustn't been reseted
2407: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2408: p_procedure_name => l_proc_name) ;
2409: -- information about the input parameters
2410: INL_LOGGING_PVT.Log_APICallIn ( p_module_name => g_module_name,
2411: p_procedure_name => l_proc_name,
2412: p_call_api_name => 'po_dates_s.val_open_period',
2413: p_in_param_name1 => 'x_trx_date',
2414: p_in_param_value1 => x_trx_date,
2429: ELSE
2430: l_boolean_to_char := 'FALSE';
2431: END IF;
2432: -- information about the respose
2433: INL_LOGGING_PVT.Log_APICallIn ( p_module_name => g_module_name,
2434: p_procedure_name => l_proc_name,
2435: p_call_api_name => 'po_dates_s.val_open_period',
2436: p_in_param_name1 => 'l_boolean_to_char',
2437: p_in_param_value1 => l_boolean_to_char) ;
2434: p_procedure_name => l_proc_name,
2435: p_call_api_name => 'po_dates_s.val_open_period',
2436: p_in_param_name1 => 'l_boolean_to_char',
2437: p_in_param_value1 => l_boolean_to_char) ;
2438: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2439: p_procedure_name => l_proc_name) ;
2440: RETURN l_boolean_to_char;
2441: EXCEPTION
2442: WHEN FND_API.G_EXC_ERROR THEN
2440: RETURN l_boolean_to_char;
2441: EXCEPTION
2442: WHEN FND_API.G_EXC_ERROR THEN
2443: -- Standard Expected Error Logging
2444: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2445: p_procedure_name => l_proc_name) ;
2446: x_return_status := FND_API.G_RET_STS_ERROR;
2447: RETURN 'FALSE';
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2446: x_return_status := FND_API.G_RET_STS_ERROR;
2447: RETURN 'FALSE';
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2449: -- Standard Unexpected Error Logging
2450: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2451: p_procedure_name => l_proc_name) ;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: RETURN 'FALSE';
2454: WHEN OTHERS THEN
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: RETURN 'FALSE';
2454: WHEN OTHERS THEN
2455: -- Standard Unexpected Error Logging
2456: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2457: p_procedure_name => l_proc_name) ;
2458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2459: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2460: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
2499: l_exist_status NUMBER := 0;
2500: l_debug_info VARCHAR2 (200);
2501:
2502: BEGIN
2503: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2504: p_procedure_name => l_api_name) ;
2505:
2506: -- Standard Start of API savepoint
2507: SAVEPOINT Validate_Shipment_PVT;
2522: -- Initialize API return status to success
2523: x_return_status := FND_API.G_RET_STS_SUCCESS;
2524:
2525: l_debug_info := 'Reset errors in inl_ship_holds table';
2526: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2527: p_procedure_name => l_api_name,
2528: p_debug_info => l_debug_info) ;
2529: Reset_ShipError ( p_ship_header_id => p_ship_header_id,
2530: p_ship_line_id => NULL,
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2541: END IF;
2542:
2543: l_debug_info := 'Shipment Header validation';
2544: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2545: p_procedure_name => l_api_name,
2546: p_debug_info => l_debug_info) ;
2547:
2548: Validate_ShipHdr ( p_ship_header_id => p_ship_header_id,
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2558: END IF;
2559:
2560: l_debug_info := 'fnd_msg_pub.count_msg';
2561: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2562: p_procedure_name => l_api_name,
2563: p_var_name => l_debug_info,
2564: p_var_value => TO_CHAR (fnd_msg_pub.count_msg)) ;
2565:
2569: FROM inl_ship_headers
2570: WHERE ship_header_id = p_ship_header_id;
2571: IF l_ship_status <> 'COMPLETED' THEN
2572: l_debug_info := 'Update INL_SHIP_HEADERS_ALL.ship_status_code to VALIDATED';
2573: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2574: p_procedure_name => l_api_name,
2575: p_debug_info => l_debug_info) ;
2576: UPDATE inl_ship_headers
2577: SET ship_status_code = 'VALIDATED',
2580: WHERE ship_header_id = p_ship_header_id;
2581: END IF;
2582: ELSE
2583: l_debug_info := 'Update INL_SHIP_HEADERS_ALL.ship_status_code to ON HOLD';
2584: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2585: p_procedure_name => l_api_name,
2586: p_debug_info => l_debug_info) ;
2587: UPDATE inl_ship_headers
2588: SET ship_status_code = 'ON HOLD',
2600: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2601: p_count => x_msg_count,
2602: p_data => x_msg_data) ;
2603:
2604: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2605: p_procedure_name => l_api_name) ;
2606: EXCEPTION
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2604: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2605: p_procedure_name => l_api_name) ;
2606: EXCEPTION
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2609: p_procedure_name => l_api_name) ;
2610: ROLLBACK TO Validate_Shipment_PVT;
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2612: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data) ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2617: p_procedure_name => l_api_name) ;
2618: ROLLBACK TO Validate_Shipment_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2620: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2621: p_count => x_msg_count,
2622: p_data => x_msg_data) ;
2623: WHEN OTHERS THEN
2624: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2625: p_procedure_name => l_api_name) ;
2626: ROLLBACK TO Validate_Shipment_PVT;
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2628: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2659: l_return_status VARCHAR2 (1) ;
2660: l_debug_info VARCHAR2 (200) ;
2661: BEGIN
2662: -- Standard Beginning of Procedure/Function Logging
2663: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2664: p_procedure_name => l_proc_name) ;
2665: -- Initialize return status to success
2666: x_return_status := FND_API.G_RET_STS_SUCCESS;
2667: l_debug_info := 'Insert in inl_associations.';
2664: p_procedure_name => l_proc_name) ;
2665: -- Initialize return status to success
2666: x_return_status := FND_API.G_RET_STS_SUCCESS;
2667: l_debug_info := 'Insert in inl_associations.';
2668: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2669: p_procedure_name => l_proc_name,
2670: p_debug_info => l_debug_info) ;
2671: l_debug_info := 'p_new_line_id';
2672: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2668: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2669: p_procedure_name => l_proc_name,
2670: p_debug_info => l_debug_info) ;
2671: l_debug_info := 'p_new_line_id';
2672: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2673: p_procedure_name => l_proc_name,
2674: p_var_name => l_debug_info,
2675: p_var_value => TO_CHAR (p_new_line_id)) ;
2676:
2705: sysdate, /* 12 */
2706: fnd_global.user_id /* 13 */
2707: );
2708: -- Standard End of Procedure/Function Logging
2709: INL_LOGGING_PVT.Log_EndProc
2710: (
2711: p_module_name => g_module_name,
2712: p_procedure_name => l_proc_name
2713: )
2714: ;
2715: EXCEPTION
2716: WHEN FND_API.G_EXC_ERROR THEN
2717: -- Standard Expected Error Logging
2718: INL_LOGGING_PVT.Log_ExpecError
2719: (
2720: p_module_name => g_module_name,
2721: p_procedure_name => l_proc_name
2722: )
2723: ;
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2726: -- Standard Unexpected Error Logging
2727: INL_LOGGING_PVT.Log_UnexpecError
2728: (
2729: p_module_name => g_module_name,
2730: p_procedure_name => l_proc_name
2731: )
2732: ;
2733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2734: WHEN OTHERS THEN
2735: -- Standard Unexpected Error Logging
2736: INL_LOGGING_PVT.Log_UnexpecError
2737: (
2738: p_module_name => g_module_name,
2739: p_procedure_name => l_proc_name
2740: )
2784: l_tax_line_num NUMBER;
2785: l_adjustment_num NUMBER;
2786: BEGIN
2787: -- Standard Beginning of Procedure/Function Logging
2788: INL_LOGGING_PVT.Log_BeginProc (
2789: p_module_name => g_module_name,
2790: p_procedure_name => l_proc_name
2791: );
2792: -- Initialize return status to success
2795: -- Get Max val to tax line num
2796: --
2797: IF p_TxLn_Assoc.tax_line_num IS NULL THEN
2798: l_debug_info := 'Get Max val from tax line num';
2799: INL_LOGGING_PVT.Log_Statement(
2800: p_module_name => g_module_name,
2801: p_procedure_name=> l_proc_name,
2802: p_debug_info => l_debug_info
2803: )
2818: ELSE
2819: l_debug_info := 'Set l_adjustment_num to p_TxLn_Assoc.adjustment_num';
2820: l_adjustment_num := p_TxLn_Assoc.adjustment_num;
2821: END IF;
2822: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2823: p_procedure_name => l_proc_name,
2824: p_debug_info => l_debug_info) ;
2825: --
2826: -- Get inl_tax_lines_s.nextval
2825: --
2826: -- Get inl_tax_lines_s.nextval
2827: --
2828: l_debug_info := 'Get inl_tax_lines_s.nextval';
2829: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2830: p_procedure_name => l_proc_name,
2831: p_debug_info => l_debug_info) ;
2832: SELECT inl_tax_lines_s.nextval
2833: INTO x_new_tax_line_id
2835: --
2836: -- include Tax Line record
2837: --
2838: l_debug_info := 'Including Tax Line record ';
2839: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2840: p_procedure_name => l_proc_name,
2841: p_debug_info => l_debug_info) ;
2842: INSERT
2843: INTO inl_tax_lines (
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906: END IF;
2907: -- Standard End of Procedure/Function Logging
2908: INL_LOGGING_PVT.Log_EndProc(
2909: p_module_name => g_module_name,
2910: p_procedure_name => l_proc_name
2911: );
2912: EXCEPTION
2911: );
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_ERROR THEN
2914: -- Standard Expected Error Logging
2915: INL_LOGGING_PVT.Log_ExpecError(
2916: p_module_name => g_module_name,
2917: p_procedure_name => l_proc_name
2918: );
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2918: );
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2921: -- Standard Unexpected Error Logging
2922: INL_LOGGING_PVT.Log_UnexpecError(
2923: p_module_name => g_module_name,
2924: p_procedure_name => l_proc_name
2925: );
2926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2925: );
2926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2927: WHEN OTHERS THEN
2928: -- Standard Unexpected Error Logging
2929: INL_LOGGING_PVT.Log_UnexpecError(
2930: p_module_name => g_module_name,
2931: p_procedure_name => l_proc_name
2932: );
2933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3040: l_new_tax_line_id NUMBER;
3041: BEGIN
3042:
3043: -- Standard Beginning of Procedure/Function Logging
3044: INL_LOGGING_PVT.Log_BeginProc (
3045: p_module_name => g_module_name,
3046: p_procedure_name => l_proc_name
3047: );
3048: -- Initialize return status to success
3047: );
3048: -- Initialize return status to success
3049: x_return_status := FND_API.G_RET_STS_SUCCESS;
3050: l_debug_info := 'Getting existent estimated TaxLine.';
3051: INL_LOGGING_PVT.Log_Statement (
3052: p_module_name => g_module_name,
3053: p_procedure_name => l_proc_name,
3054: p_debug_info => l_debug_info
3055: ) ;
3058: FETCH estimated_TL BULK COLLECT INTO C_est_TL;
3059:
3060: CLOSE estimated_TL;
3061: l_debug_info := C_est_TL.LAST||' lines have been retrieved.';
3062: INL_LOGGING_PVT.Log_Statement (
3063: p_module_name => g_module_name,
3064: p_procedure_name => l_proc_name,
3065: p_debug_info => l_debug_info
3066: ) ;
3087: l_TxLn_Assoc.currency_conversion_rate := C_est_TL (i) .currency_conversion_rate;
3088: l_TxLn_Assoc.tax_amt_included_flag := C_est_TL (i) .tax_amt_included_flag;
3089: -- Create_TxLines
3090: l_debug_info := 'Estimated Tax line found new with 0.';
3091: INL_LOGGING_PVT.Log_Statement (
3092: p_module_name => g_module_name,
3093: p_procedure_name => l_proc_name,
3094: p_debug_info => l_debug_info
3095: ) ;
3107: END IF;
3108: END LOOP;
3109: END IF;
3110: -- Standard End of Procedure/Function Logging
3111: INL_LOGGING_PVT.Log_EndProc (
3112: p_module_name => g_module_name,
3113: p_procedure_name => l_proc_name
3114: ) ;
3115: EXCEPTION
3114: ) ;
3115: EXCEPTION
3116: WHEN FND_API.G_EXC_ERROR THEN
3117: -- Standard Expected Error Logging
3118: INL_LOGGING_PVT.Log_ExpecError (
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_proc_name
3121: ) ;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3121: ) ;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: -- Standard Unexpected Error Logging
3125: INL_LOGGING_PVT.Log_UnexpecError (
3126: p_module_name => g_module_name,
3127: p_procedure_name => l_proc_name
3128: ) ;
3129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ) ;
3129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: WHEN OTHERS THEN
3131: -- Standard Unexpected Error Logging
3132: INL_LOGGING_PVT.Log_UnexpecError (
3133: p_module_name => g_module_name,
3134: p_procedure_name => l_proc_name
3135: ) ;
3136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3265: -- Bug #7702294
3266:
3267: BEGIN
3268: -- Standard Beginning of Procedure/Function Logging
3269: INL_LOGGING_PVT.Log_BeginProc (
3270: p_module_name => g_module_name,
3271: p_procedure_name => l_api_name
3272: ) ;
3273: -- Standard Start of API savepoint
3288: -- Initialize API return status to success
3289: x_return_status := FND_API.G_RET_STS_SUCCESS;
3290: -- Getting Matching Data
3291: l_debug_info := 'Getting Matching Data';
3292: INL_LOGGING_PVT.Log_Statement (
3293: p_module_name => g_module_name,
3294: p_procedure_name => l_api_name,
3295: p_debug_info => l_debug_info
3296: ) ;
3401:
3402: l_net_rcv_txn_qty := l_received_txn_qty + l_corrected_txn_qty - l_rtv_txn_qty;
3403:
3404: l_debug_info := 'l_received_txn_qty';
3405: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3406: p_procedure_name => l_api_name,
3407: p_var_name => l_debug_info,
3408: p_var_value => l_received_txn_qty);
3409:
3407: p_var_name => l_debug_info,
3408: p_var_value => l_received_txn_qty);
3409:
3410: l_debug_info := 'l_corrected_txn_qty';
3411: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3412: p_procedure_name => l_api_name,
3413: p_var_name => l_debug_info,
3414: p_var_value => l_corrected_txn_qty);
3415:
3413: p_var_name => l_debug_info,
3414: p_var_value => l_corrected_txn_qty);
3415:
3416: l_debug_info := 'l_rtv_txn_qty';
3417: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3418: p_procedure_name => l_api_name,
3419: p_var_name => l_debug_info,
3420: p_var_value => l_rtv_txn_qty);
3421:
3419: p_var_name => l_debug_info,
3420: p_var_value => l_rtv_txn_qty);
3421:
3422: l_debug_info := 'l_net_rcv_txn_qty';
3423: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3424: p_procedure_name => l_api_name,
3425: p_var_name => l_debug_info,
3426: p_var_value => l_net_rcv_txn_qty);
3427:
3432: p_from_uom_code => l_rt_uom_code,
3433: p_to_uom_code => l_txn_uom_code);
3434:
3435: l_debug_info := 'l_net_rcv_txn_qty after UOM conversion';
3436: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3437: p_procedure_name => l_api_name,
3438: p_var_name => l_debug_info,
3439: p_var_value => l_net_rcv_txn_qty);
3440:
3452: l_current_curr_conv_rate := NULL;
3453: END IF;
3454:
3455: l_debug_info := 'l_to_ship_header_id';
3456: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3457: p_procedure_name => l_api_name,
3458: p_var_name => l_debug_info,
3459: p_var_value => l_to_ship_header_id) ;
3460: l_debug_info := 'l_to_ship_line_id';
3457: p_procedure_name => l_api_name,
3458: p_var_name => l_debug_info,
3459: p_var_value => l_to_ship_header_id) ;
3460: l_debug_info := 'l_to_ship_line_id';
3461: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3462: p_procedure_name => l_api_name,
3463: p_var_name => l_debug_info,
3464: p_var_value => l_to_ship_line_id) ;
3465: l_debug_info := 'l_matched_qty';
3462: p_procedure_name => l_api_name,
3463: p_var_name => l_debug_info,
3464: p_var_value => l_to_ship_line_id) ;
3465: l_debug_info := 'l_matched_qty';
3466: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3467: p_procedure_name => l_api_name,
3468: p_var_name => l_debug_info,
3469: p_var_value => l_matched_qty) ;
3470: l_debug_info := 'l_matched_uom_code';
3467: p_procedure_name => l_api_name,
3468: p_var_name => l_debug_info,
3469: p_var_value => l_matched_qty) ;
3470: l_debug_info := 'l_matched_uom_code';
3471: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3472: p_procedure_name => l_api_name,
3473: p_var_name => l_debug_info,
3474: p_var_value => l_matched_uom_code) ;
3475: -- STEP 2: Get Estimated Shipment Line Data
3473: p_var_name => l_debug_info,
3474: p_var_value => l_matched_uom_code) ;
3475: -- STEP 2: Get Estimated Shipment Line Data
3476: l_debug_info := 'Get Estimated Shipment Line Data';
3477: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
3478: p_procedure_name => l_api_name,
3479: p_debug_info => l_debug_info) ;
3480: l_debug_info := 'l_sl_inv_item_id';
3481: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3477: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
3478: p_procedure_name => l_api_name,
3479: p_debug_info => l_debug_info) ;
3480: l_debug_info := 'l_sl_inv_item_id';
3481: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3482: p_procedure_name => l_api_name,
3483: p_var_name => l_debug_info,
3484: p_var_value => l_sl_inv_item_id) ;
3485: l_debug_info := 'l_net_rcv_txn_qty';
3482: p_procedure_name => l_api_name,
3483: p_var_name => l_debug_info,
3484: p_var_value => l_sl_inv_item_id) ;
3485: l_debug_info := 'l_net_rcv_txn_qty';
3486: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3487: p_procedure_name => l_api_name,
3488: p_var_name => l_debug_info,
3489: p_var_value => l_net_rcv_txn_qty) ;
3490: l_debug_info := 'l_shipl_unit_price';
3487: p_procedure_name => l_api_name,
3488: p_var_name => l_debug_info,
3489: p_var_value => l_net_rcv_txn_qty) ;
3490: l_debug_info := 'l_shipl_unit_price';
3491: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3492: p_procedure_name => l_api_name,
3493: p_var_name => l_debug_info,
3494: p_var_value => l_shipl_unit_price) ;
3495: -- STEP 3: Get the Adjustment Number
3493: p_var_name => l_debug_info,
3494: p_var_value => l_shipl_unit_price) ;
3495: -- STEP 3: Get the Adjustment Number
3496: l_debug_info := 'Get the Adjustment Number';
3497: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
3498: p_procedure_name => l_api_name,
3499: p_debug_info => l_debug_info) ;
3500: l_next_adjust_num := p_adjustment_num;
3501: l_debug_info := 'l_next_adjust_num';
3498: p_procedure_name => l_api_name,
3499: p_debug_info => l_debug_info) ;
3500: l_next_adjust_num := p_adjustment_num;
3501: l_debug_info := 'l_next_adjust_num';
3502: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
3503: p_procedure_name => l_api_name,
3504: p_var_name => l_debug_info,
3505: p_var_value => l_next_adjust_num) ;
3506: -- STEP 4: Partial Matching handling
3506: -- STEP 4: Partial Matching handling
3507: --IF l_matched_qty < l_opl_txn_qty THEN
3508: --Calculate Partial Matching based on previous Adjustments
3509: l_debug_info := 'Calculate Partial Matching based on previous Adjustments';
3510: INL_LOGGING_PVT.Log_Statement (
3511: p_module_name => g_module_name,
3512: p_procedure_name => l_api_name,
3513: p_debug_info => l_debug_info
3514: );
3513: p_debug_info => l_debug_info
3514: );
3515: IF l_replace_estim_qty_flag = 'Y' THEN --Match from RCV
3516: l_debug_info := 'Getting the values from Adj';
3517: INL_LOGGING_PVT.Log_Statement (
3518: p_module_name => g_module_name,
3519: p_procedure_name => l_api_name,
3520: p_debug_info => l_debug_info
3521: );
3533: AND ship_line_num = l_ship_line_num;
3534:
3535: l_final_price := l_matched_amt / l_matched_qty;
3536: l_debug_info := 'Setting the new quantity ';
3537: INL_LOGGING_PVT.Log_Statement (
3538: p_module_name => g_module_name,
3539: p_procedure_name => l_api_name,
3540: p_debug_info => l_debug_info
3541: ) ;
3556: l_primary_unit_price := (l_final_qty * l_final_price) / l_primary_qty;
3557: END IF;
3558: ELSE
3559: l_debug_info := 'l_existing_match_info_flag';
3560: INL_LOGGING_PVT.Log_Variable (
3561: p_module_name => g_module_name,
3562: p_procedure_name => l_api_name,
3563: p_var_name => l_debug_info,
3564: p_var_value => l_existing_match_info_flag
3581: END LOOP;
3582: -- Add the current transaction values to the calculation
3583: l_debug_info := 'Add the current transaction values to the calculation';
3584:
3585: INL_LOGGING_PVT.Log_Statement (
3586: p_module_name => g_module_name,
3587: p_procedure_name => l_api_name,
3588: p_debug_info => l_debug_info
3589: ) ;
3609: l_final_price := l_sum_adj_price / l_final_qty; --BUG#8198265
3610:
3611:
3612: l_debug_info := 'l_final_qty';
3613: INL_LOGGING_PVT.Log_Variable (
3614: p_module_name => g_module_name,
3615: p_procedure_name => l_api_name,
3616: p_var_name => l_debug_info,
3617: p_var_value => l_final_qty
3616: p_var_name => l_debug_info,
3617: p_var_value => l_final_qty
3618: ) ;
3619: l_debug_info := 'l_final_price';
3620: INL_LOGGING_PVT.Log_Variable (
3621: p_module_name => g_module_name,
3622: p_procedure_name => l_api_name,
3623: p_var_name => l_debug_info,
3624: p_var_value => l_final_price
3639: END IF;
3640: l_primary_unit_price := (l_final_qty * l_final_price) / l_primary_qty;
3641: -- STEP 5: Copy Shipment Line from Estimated to Actual
3642: l_debug_info := 'Copy Shipment Line from Estimated to Actual';
3643: INL_LOGGING_PVT.Log_Statement (
3644: p_module_name => g_module_name,
3645: p_procedure_name => l_api_name,
3646: p_debug_info => l_debug_info
3647: ) ;
3826: p_count => x_msg_count,
3827: p_data => x_msg_data
3828: ) ;
3829: -- Standard End of Procedure/Function Logging
3830: INL_LOGGING_PVT.Log_EndProc (
3831: p_module_name => g_module_name,
3832: p_procedure_name => l_api_name
3833: ) ;
3834: EXCEPTION
3833: ) ;
3834: EXCEPTION
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: -- Standard Expected Error Logging
3837: INL_LOGGING_PVT.Log_ExpecError (
3838: p_module_name => g_module_name,
3839: p_procedure_name => l_api_name
3840: ) ;
3841: ROLLBACK TO Adjust_ShipLines_PVT;
3846: p_data => x_msg_data
3847: ) ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: -- Standard Unexpected Error Logging
3850: INL_LOGGING_PVT.Log_UnexpecError (
3851: p_module_name => g_module_name,
3852: p_procedure_name => l_api_name
3853: ) ;
3854: ROLLBACK TO Adjust_ShipLines_PVT;
3859: p_data => x_msg_data
3860: ) ;
3861: WHEN OTHERS THEN
3862: -- Standard Unexpected Error Logging
3863: INL_LOGGING_PVT.Log_UnexpecError (
3864: p_module_name => g_module_name,
3865: p_procedure_name => l_api_name
3866: ) ;
3867: ROLLBACK TO Adjust_ShipLines_PVT;
3907: l_charge_line_num NUMBER;
3908: l_adjustment_num NUMBER;
3909: BEGIN
3910: -- Standard Beginning of Procedure/Function Logging
3911: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
3912: -- Initialize return status to success
3913: x_return_status := FND_API.G_RET_STS_SUCCESS;
3914: --
3915: -- Get Max val to charge line num
3915: -- Get Max val to charge line num
3916: --
3917: IF p_ChLn_Assoc.charge_line_num IS NULL THEN
3918: l_debug_info := 'Get Max val from charge line num';
3919: INL_LOGGING_PVT.Log_Statement (
3920: p_module_name => g_module_name,
3921: p_procedure_name => l_proc_name,
3922: p_debug_info => l_debug_info
3923: ) ;
3945: --
3946: -- Get inl_charge_lines_s.nextval
3947: --
3948: l_debug_info := 'Get inl_charge_lines_s.nextval';
3949: INL_LOGGING_PVT.Log_Statement (
3950: p_module_name => g_module_name,
3951: p_procedure_name => l_proc_name,
3952: p_debug_info => l_debug_info
3953: ) ;
3956: --
3957: -- include Charge Line record
3958: --
3959: l_debug_info := 'Including Charge Line record ';
3960: INL_LOGGING_PVT.Log_Statement (
3961: p_module_name => g_module_name,
3962: p_procedure_name => l_proc_name,
3963: p_debug_info => l_debug_info
3964: ) ;
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067: END IF;
4068: -- Standard End of Procedure/Function Logging
4069: INL_LOGGING_PVT.Log_EndProc(
4070: p_module_name => g_module_name,
4071: p_procedure_name => l_proc_name
4072: );
4073: EXCEPTION
4072: );
4073: EXCEPTION
4074: WHEN FND_API.G_EXC_ERROR THEN
4075: -- Standard Expected Error Logging
4076: INL_LOGGING_PVT.Log_ExpecError(
4077: p_module_name => g_module_name,
4078: p_procedure_name => l_proc_name
4079: );
4080: x_return_status := FND_API.G_RET_STS_ERROR;
4079: );
4080: x_return_status := FND_API.G_RET_STS_ERROR;
4081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4082: -- Standard Unexpected Error Logging
4083: INL_LOGGING_PVT.Log_UnexpecError(
4084: p_module_name => g_module_name,
4085: p_procedure_name => l_proc_name
4086: );
4087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4086: );
4087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4088: WHEN OTHERS THEN
4089: -- Standard Unexpected Error Logging
4090: INL_LOGGING_PVT.Log_UnexpecError(
4091: p_module_name => g_module_name,
4092: p_procedure_name => l_proc_name
4093: );
4094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4315: l_level_charge_is_applied VARCHAR(5):= 'X';
4316: BEGIN
4317:
4318: -- Standard Beginning of Procedure/Function Logging
4319: INL_LOGGING_PVT.Log_BeginProc (
4320: p_module_name => g_module_name,
4321: p_procedure_name => l_proc_name
4322: );
4323: -- Initialize return status to success
4323: -- Initialize return status to success
4324: x_return_status := FND_API.G_RET_STS_SUCCESS;
4325:
4326: l_debug_info := 'Getting the maximum level where this charge_line_type_id is applied.';
4327: INL_LOGGING_PVT.Log_Statement (
4328: p_module_name => g_module_name,
4329: p_procedure_name => l_proc_name,
4330: p_debug_info => l_debug_info
4331: ) ;
4334: FETCH get_level BULK COLLECT INTO C_get_level;
4335:
4336: CLOSE get_level;
4337: l_debug_info := C_get_level.LAST||' lines have been retrieved.';
4338: INL_LOGGING_PVT.Log_Statement (
4339: p_module_name => g_module_name,
4340: p_procedure_name => l_proc_name,
4341: p_debug_info => l_debug_info
4342: ) ;
4363: END IF;
4364:
4365: l_debug_info :=
4366: 'Created Charge Line with 0 for the existent estimated charge lines applied at level : '||l_level_charge_is_applied;
4367: INL_LOGGING_PVT.Log_Statement (
4368: p_module_name => g_module_name,
4369: p_procedure_name => l_proc_name,
4370: p_debug_info => l_debug_info
4371: ) ;
4374: FETCH estimated_CL BULK COLLECT INTO C_est_CL;
4375:
4376: CLOSE estimated_CL;
4377: l_debug_info := C_est_CL.LAST||' lines have been retrieved.';
4378: INL_LOGGING_PVT.Log_Statement (
4379: p_module_name => g_module_name,
4380: p_procedure_name => l_proc_name,
4381: p_debug_info => l_debug_info
4382: ) ;
4424: l_ChLn_Assoc.poo_organization_id := C_est_CL (i) .poo_organization_id;
4425: l_ChLn_Assoc.poo_location_id := C_est_CL (i) .poo_location_id;
4426: -- Create_ChLines
4427: l_debug_info := 'Create_ChLines';
4428: INL_LOGGING_PVT.Log_Statement (
4429: p_module_name => g_module_name,
4430: p_procedure_name => l_proc_name,
4431: p_debug_info => l_debug_info
4432: ) ;
4444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: -- TxLines
4447: l_debug_info := 'Amount = 0 for estimated taxes associated with estimated charge';
4448: INL_LOGGING_PVT.Log_Statement (
4449: p_module_name => g_module_name,
4450: p_procedure_name => l_proc_name,
4451: p_debug_info => l_debug_info
4452: ) ;
4468: END LOOP;
4469: END IF;
4470:
4471: -- Standard End of Procedure/Function Logging
4472: INL_LOGGING_PVT.Log_EndProc (
4473: p_module_name => g_module_name,
4474: p_procedure_name => l_proc_name
4475: ) ;
4476: EXCEPTION
4475: ) ;
4476: EXCEPTION
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: -- Standard Expected Error Logging
4479: INL_LOGGING_PVT.Log_ExpecError (
4480: p_module_name => g_module_name,
4481: p_procedure_name => l_proc_name
4482: ) ;
4483: x_return_status := FND_API.G_RET_STS_ERROR;
4482: ) ;
4483: x_return_status := FND_API.G_RET_STS_ERROR;
4484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4485: -- Standard Unexpected Error Logging
4486: INL_LOGGING_PVT.Log_UnexpecError (
4487: p_module_name => g_module_name,
4488: p_procedure_name => l_proc_name
4489: ) ;
4490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4489: ) ;
4490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4491: WHEN OTHERS THEN
4492: -- Standard Unexpected Error Logging
4493: INL_LOGGING_PVT.Log_UnexpecError (
4494: p_module_name => g_module_name,
4495: p_procedure_name => l_proc_name
4496: ) ;
4497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4562: l_prev_adjustment_num NUMBER := NULL;
4563: l_ChLn_Assoc inl_ChLn_Assoc_tp;
4564: BEGIN
4565: -- Standard Beginning of Procedure/Function Logging
4566: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4567: -- Standard Start of API savepoint
4568: SAVEPOINT Adjust_ChargeLines_PVT;
4569: -- Initialize message list if p_init_msg_list is set to TRUE.
4570: IF FND_API.to_Boolean (p_init_msg_list) THEN
4580: -- Initialize API return status to success
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582: -- Getting the match information
4583: l_debug_info := 'Getting the match information';
4584: INL_LOGGING_PVT.Log_Statement (
4585: p_module_name => g_module_name,
4586: p_procedure_name => l_api_name,
4587: p_debug_info => l_debug_info
4588: ) ;
4621: FROM inl_corr_matches_v m
4622: WHERE match_id = p_match_id;
4623: -- Getting the Ship information
4624: l_debug_info := 'Getting the ship line information';
4625: INL_LOGGING_PVT.Log_Statement (
4626: p_module_name => g_module_name,
4627: p_procedure_name => l_api_name,
4628: p_debug_info => l_debug_info
4629: ) ;
4633: FROM inl_ship_lines sl
4634: WHERE sl.ship_line_id = l_ship_line_id;
4635:
4636: l_debug_info := 'l_existing_match_info_flag';
4637: INL_LOGGING_PVT.Log_Variable (
4638: p_module_name => g_module_name,
4639: p_procedure_name => l_api_name,
4640: p_var_name => l_debug_info,
4641: p_var_value => l_existing_match_info_flag
4642: ) ;
4643: IF (l_existing_match_info_flag = 'Y') THEN
4644: -- Charge line has been processed
4645: l_debug_info := 'Existing match info flag';
4646: INL_LOGGING_PVT.Log_Statement (
4647: p_module_name => g_module_name,
4648: p_procedure_name => l_api_name,
4649: p_debug_info => l_debug_info
4650: ) ;
4683: ELSE
4684: l_ChLn_Assoc.parent_charge_line_id := NULL;
4685: -- Getting the charge line to correction
4686: l_debug_info := 'Getting the charge line to correction';
4687: INL_LOGGING_PVT.Log_Statement (
4688: p_module_name => g_module_name,
4689: p_procedure_name => l_api_name,
4690: p_debug_info => l_debug_info
4691: ) ;
4712: IF (l_corr_charge_line_id IS NOT NULL AND l_corr_charge_line_num IS NOT NULL) THEN
4713: l_ChLn_Assoc.charge_line_num := l_corr_charge_line_num;
4714: l_ChLn_Assoc.parent_charge_line_id := l_corr_charge_line_id;
4715: l_debug_info := 'l_corr_charge_line_id';
4716: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => l_corr_charge_line_id) ;
4717: ELSE
4718: l_ChLn_Assoc.charge_line_num := NULL;
4719: END IF;
4720: END IF;
4719: END IF;
4720: END IF;
4721: -- Handling estimated Charge Line and getting the parent_charge_line_id
4722: l_debug_info := 'Handling estimated Charge Line and getting the parent_charge_line_id';
4723: INL_LOGGING_PVT.Log_Statement (
4724: p_module_name => g_module_name,
4725: p_procedure_name => l_api_name,
4726: p_debug_info => l_debug_info
4727: ) ;
4730: -- 1) Create a new charge line ADJ 1 with the new actual value with no ADJ 0
4731: -- 2) For the estimated charge line create a new charge line ADJ 1 with amount = 0
4732: -- Getting information for the new charge line
4733: l_debug_info := 'All Matched Amounts :'||l_matched_amt;
4734: INL_LOGGING_PVT.Log_Statement (
4735: p_module_name => g_module_name,
4736: p_procedure_name => l_api_name,
4737: p_debug_info => l_debug_info
4738: ) ;
4775: l_ChLn_Assoc.poo_organization_id := NULL;
4776: l_ChLn_Assoc.poo_location_id := NULL;
4777: -- Create_ChLines
4778: l_debug_info := 'Create_ChLines';
4779: INL_LOGGING_PVT.Log_Statement (
4780: p_module_name => g_module_name,
4781: p_procedure_name => l_api_name,
4782: p_debug_info => l_debug_info
4783: ) ;
4821: END IF;
4822: -- Standard call to get message count and if count is 1, get message info.
4823: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4824: -- Standard End of Procedure/Function Logging
4825: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4826: EXCEPTION
4827: WHEN FND_API.G_EXC_ERROR THEN
4828: -- Standard Expected Error Logging
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4825: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4826: EXCEPTION
4827: WHEN FND_API.G_EXC_ERROR THEN
4828: -- Standard Expected Error Logging
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4830: ROLLBACK TO Adjust_ChargeLines_PVT;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4836: ROLLBACK TO Adjust_ChargeLines_PVT;
4837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4838: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4839: WHEN OTHERS THEN
4837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4838: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4839: WHEN OTHERS THEN
4840: -- Standard Unexpected Error Logging
4841: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4842: ROLLBACK TO Adjust_ChargeLines_PVT;
4843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4844: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4845: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
4924: l_ChLn_Assoc inl_ChLn_Assoc_tp;
4925: l_AssocLn inl_Assoc_tp;
4926: BEGIN
4927: -- Standard Beginning of Procedure/Function Logging
4928: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4929: -- Standard Start of API savepoint
4930:
4931: SAVEPOINT Adjust_ChargeLines_PVT;
4932: -- Initialize message list if p_init_msg_list is set to TRUE.
4943: -- Initialize API return status to success
4944: x_return_status := FND_API.G_RET_STS_SUCCESS;
4945: -- Getting the match information
4946: l_debug_info := 'Getting the match information';
4947: INL_LOGGING_PVT.Log_Statement (
4948: p_module_name => g_module_name,
4949: p_procedure_name => l_api_name,
4950: p_debug_info => l_debug_info
4951: ) ;
4992: AND ma.match_amount_id = p_match_amount_id
4993: AND ROWNUM = 1;
4994:
4995: l_debug_info := 'l_existing_match_info_flag';
4996: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4997: p_procedure_name => l_api_name,
4998: p_var_name => l_debug_info,
4999: p_var_value => l_existing_match_info_flag) ;
5000:
5000:
5001: IF (l_existing_match_info_flag = 'Y') THEN
5002: -- Charge has been already processed
5003: l_debug_info := 'Existing match info flag';
5004: INL_LOGGING_PVT.Log_Statement (
5005: p_module_name => g_module_name,
5006: p_procedure_name => l_api_name,
5007: p_debug_info => l_debug_info
5008: ) ;
5041: ELSE
5042: l_ChLn_Assoc.parent_charge_line_id := NULL;
5043: -- Getting the charge line to correction
5044: l_debug_info := 'Getting the charge line to correction';
5045: INL_LOGGING_PVT.Log_Statement (
5046: p_module_name => g_module_name,
5047: p_procedure_name => l_api_name,
5048: p_debug_info => l_debug_info
5049: ) ;
5072: l_ChLn_Assoc.charge_line_num := l_corr_charge_line_num;
5073: l_ChLn_Assoc.parent_charge_line_id := l_corr_charge_line_id;
5074: l_ChLn_Assoc.adjustment_num := p_adjustment_num;
5075: l_debug_info := 'l_corr_charge_line_id';
5076: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
5077: p_procedure_name => l_api_name,
5078: p_var_name => l_debug_info,
5079: p_var_value => l_corr_charge_line_id) ;
5080: ELSE
5082: END IF;
5083: END IF;
5084: -- Handling estimated Charge Line and getting the parent_charge_line_id
5085: l_debug_info := 'Handling estimated Charge Line and getting the parent_charge_line_id';
5086: INL_LOGGING_PVT.Log_Statement (
5087: p_module_name => g_module_name,
5088: p_procedure_name => l_api_name,
5089: p_debug_info => l_debug_info
5090: ) ;
5093: -- 1) Create a new charge line ADJ 1 with the new actual value with no ADJ 0
5094: -- 2) For the estimated charge line create a new charge line ADJ 1 with amount = 0
5095: -- Getting information for the new charge line
5096: l_debug_info := 'All Matched Amounts :'||l_matched_amt;
5097: INL_LOGGING_PVT.Log_Statement (
5098: p_module_name => g_module_name,
5099: p_procedure_name => l_api_name,
5100: p_debug_info => l_debug_info
5101: ) ;
5134: l_ChLn_Assoc.poo_organization_id := NULL;
5135: l_ChLn_Assoc.poo_location_id := NULL;
5136: -- Create Charge Line
5137: l_debug_info := 'Create_ChLines from a match_amount_id';
5138: INL_LOGGING_PVT.Log_Statement (
5139: p_module_name => g_module_name,
5140: p_procedure_name => l_api_name,
5141: p_debug_info => l_debug_info
5142: ) ;
5154: -- It does not create associations for corrections neither to updates
5155: IF (l_corr_charge_line_id IS NULL AND l_ChLn_Assoc.parent_charge_line_id IS NULL) THEN
5156: -- Create_associations for the match amount id
5157: l_debug_info := 'Create association lines to a match_amount_id';
5158: INL_LOGGING_PVT.Log_Statement (
5159: p_module_name => g_module_name,
5160: p_procedure_name => l_api_name,
5161: p_debug_info => l_debug_info
5162: ) ;
5165: FETCH c_matches_cl BULK COLLECT INTO c_matches;
5166:
5167: CLOSE c_matches_cl;
5168: l_debug_info := c_matches.LAST||' match lines have been retrieved.';
5169: INL_LOGGING_PVT.Log_Statement (
5170: p_module_name => g_module_name,
5171: p_procedure_name => l_api_name,
5172: p_debug_info => l_debug_info
5173: ) ;
5181: l_AssocLn.to_parent_table_name := c_matches (i) .to_parent_table_name;
5182: l_AssocLn.to_parent_table_id := c_matches (i) .to_parent_table_id;
5183: -- Create Association Line
5184: l_debug_info := 'Create association line for the charge';
5185: INL_LOGGING_PVT.Log_Statement (
5186: p_module_name => g_module_name,
5187: p_procedure_name => l_api_name,
5188: p_debug_info => l_debug_info
5189: ) ;
5188: p_debug_info => l_debug_info
5189: ) ;
5190:
5191: l_debug_info := 'Creating association for Charge Id: '|| c_matches (i) .to_parent_table_id;
5192: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
5193: p_procedure_name => l_api_name,
5194: p_var_name => l_debug_info,
5195: p_var_value => c_matches (i) .to_parent_table_id) ;
5196: Create_Assoc (p_Assoc => l_AssocLn,
5222: END IF;
5223: -- Standard call to get message count and if count is 1, get message info.
5224: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5225: -- Standard End of Procedure/Function Logging
5226: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5227: EXCEPTION
5228: WHEN FND_API.G_EXC_ERROR THEN
5229: -- Standard Expected Error Logging
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5226: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5227: EXCEPTION
5228: WHEN FND_API.G_EXC_ERROR THEN
5229: -- Standard Expected Error Logging
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5231: ROLLBACK TO Adjust_ChargeLines_PVT;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5237: ROLLBACK TO Adjust_ChargeLines_PVT;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5240: WHEN OTHERS THEN
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5240: WHEN OTHERS THEN
5241: -- Standard Unexpected Error Logging
5242: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5243: ROLLBACK TO Adjust_ChargeLines_PVT;
5244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5245: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5246: FND_MSG_PUB.Add_Exc_Msg (p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5301: l_ship_line_id NUMBER;
5302: l_new_tax_line_id NUMBER;
5303: BEGIN
5304: -- Standard Beginning of Procedure/Function Logging
5305: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5306: -- Standard Start of API savepoint
5307: SAVEPOINT Adjust_TaxLines_PVT;
5308: -- Initialize message list if p_init_msg_list is set to TRUE.
5309: IF FND_API.to_Boolean (p_init_msg_list) THEN
5316: -- Initialize API return status to success
5317: x_return_status := FND_API.G_RET_STS_SUCCESS;
5318: -- Getting the match information
5319: l_debug_info := 'Getting the match information';
5320: INL_LOGGING_PVT.Log_Statement (
5321: p_module_name => g_module_name,
5322: p_procedure_name => l_api_name,
5323: p_debug_info => l_debug_info
5324: ) ;
5354: FROM inl_corr_matches_v m
5355: WHERE match_id = p_match_id;
5356: -- Handling estimated tax Line and getting the parent_tax_line_id
5357: l_debug_info := 'Handling estimated tax Line and getting the parent_tax_line_id';
5358: INL_LOGGING_PVT.Log_Statement (
5359: p_module_name => g_module_name,
5360: p_procedure_name => l_api_name,
5361: p_debug_info => l_debug_info
5362: ) ;
5364: -- 1) Create a new tax line ADJ 1 with the new actual value with no ADJ 0
5365: -- 2) For the estimated tax line create a new tax line ADJ 1 with amount = 0
5366: -- Getting information for the new tax line
5367: l_debug_info := 'All Amounts :'||l_matched_amt;
5368: INL_LOGGING_PVT.Log_Statement (
5369: p_module_name => g_module_name,
5370: p_procedure_name => l_api_name,
5371: p_debug_info => l_debug_info
5372: ) ;
5424: END IF;
5425:
5426: -- Create_TxLines
5427: l_debug_info := 'Create_TxLines';
5428: INL_LOGGING_PVT.Log_Statement (
5429: p_module_name => g_module_name,
5430: p_procedure_name => l_api_name,
5431: p_debug_info => l_debug_info
5432: ) ;
5450: END IF;
5451: -- Standard call to get message count and if count is 1, get message info.
5452: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5453: -- Standard End of Procedure/Function Logging
5454: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5455: EXCEPTION
5456: WHEN FND_API.G_EXC_ERROR THEN
5457: -- Standard Expected Error Logging
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5454: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5455: EXCEPTION
5456: WHEN FND_API.G_EXC_ERROR THEN
5457: -- Standard Expected Error Logging
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5459: ROLLBACK TO Adjust_TaxLines_PVT;
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5461: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5461: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5465: ROLLBACK TO Adjust_TaxLines_PVT;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5468: WHEN OTHERS THEN
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5468: WHEN OTHERS THEN
5469: -- Standard Unexpected Error Logging
5470: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5471: ROLLBACK TO Adjust_TaxLines_PVT;
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5473: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5474: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5526: l_charge_line_type_id NUMBER;
5527: l_new_tax_line_id NUMBER;
5528: BEGIN
5529: -- Standard Beginning of Procedure/Function Logging
5530: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5531: -- Standard Start of API savepoint
5532:
5533: SAVEPOINT Adjust_TaxLines_2_PVT;
5534: -- Initialize message list if p_init_msg_list is set to TRUE.
5543: x_return_status := FND_API.G_RET_STS_SUCCESS;
5544:
5545: -- Getting the matchAmount information
5546: l_debug_info := 'Getting the matchAmount information';
5547: INL_LOGGING_PVT.Log_Statement (
5548: p_module_name => g_module_name,
5549: p_procedure_name => l_api_name,
5550: p_debug_info => l_debug_info
5551: ) ;
5610: abv.base_uom_code
5611: ;
5612:
5613: l_debug_info := 'Verify Existing match info flag';
5614: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
5615: p_procedure_name => l_api_name,
5616: p_var_name => l_debug_info,
5617: p_var_value => l_existing_match_info_flag) ;
5618: IF (l_existing_match_info_flag = 'Y') THEN
5617: p_var_value => l_existing_match_info_flag) ;
5618: IF (l_existing_match_info_flag = 'Y') THEN
5619: -- Tax has been already processed
5620: l_debug_info := 'Existing match info flag';
5621: INL_LOGGING_PVT.Log_Statement (
5622: p_module_name => g_module_name,
5623: p_procedure_name => l_api_name,
5624: p_debug_info => l_debug_info
5625: ) ;
5643: l_TxLn_Assoc.match_amount_id := p_match_amount_id;
5644:
5645: -- Create_TxLines
5646: l_debug_info := 'Create_TxLines';
5647: INL_LOGGING_PVT.Log_Statement (
5648: p_module_name => g_module_name,
5649: p_procedure_name => l_api_name,
5650: p_debug_info => l_debug_info
5651: ) ;
5665: -- It does not create associations for corrections neither to updates
5666: IF (l_existing_match_info_flag = 'N') THEN
5667: -- Create_associations for the match amount id
5668: l_debug_info := 'Create association lines to a match_amount_id';
5669: INL_LOGGING_PVT.Log_Statement (
5670: p_module_name => g_module_name,
5671: p_procedure_name => l_api_name,
5672: p_debug_info => l_debug_info
5673: ) ;
5674: OPEN c_matches_tl (p_match_amount_id) ;
5675: FETCH c_matches_tl BULK COLLECT INTO c_matches;
5676: CLOSE c_matches_tl;
5677: l_debug_info := c_matches.LAST||' match lines have been retrieved.';
5678: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name, p_procedure_name => l_api_name, p_debug_info => l_debug_info) ;
5679: IF NVL (c_matches.LAST, 0) > 0 THEN
5680: FOR i IN NVL (c_matches.FIRST, 0) ..NVL (c_matches.LAST, 0)
5681: LOOP
5682: l_TxLn_Assoc.inl_Assoc.to_parent_table_name := c_matches(i).to_parent_table_name;
5682: l_TxLn_Assoc.inl_Assoc.to_parent_table_name := c_matches(i).to_parent_table_name;
5683: l_TxLn_Assoc.inl_Assoc.to_parent_table_id := c_matches(i).to_parent_table_id;
5684: -- Create Association Line
5685: l_debug_info := 'Create association line for the charge';
5686: INL_LOGGING_PVT.Log_Statement (
5687: p_module_name => g_module_name,
5688: p_procedure_name => l_api_name,
5689: p_debug_info => l_debug_info
5690: ) ;
5689: p_debug_info => l_debug_info
5690: ) ;
5691:
5692: l_debug_info := 'Creating association for Charge Id: '|| c_matches (i) .to_parent_table_id;
5693: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
5694: p_procedure_name => l_api_name,
5695: p_var_name => l_debug_info,
5696: p_var_value => c_matches (i) .to_parent_table_id) ;
5697: Create_Assoc (p_Assoc => l_TxLn_Assoc.inl_Assoc,
5710: END IF;
5711: -- Standard call to get message count and if count is 1, get message info.
5712: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5713: -- Standard End of Procedure/Function Logging
5714: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: -- Standard Expected Error Logging
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5714: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: -- Standard Expected Error Logging
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5719: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5725: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5728: WHEN OTHERS THEN
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5728: WHEN OTHERS THEN
5729: -- Standard Unexpected Error Logging
5730: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5731: ROLLBACK TO Adjust_TaxLines_2_PVT;
5732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5733: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5734: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5822: -- Create Adjustments for Shipment Lines and Charge Lines
5823: --
5824: BEGIN
5825: -- Standard Beginning of Procedure/Function Logging
5826: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5827: -- Standard Start of API savepoint
5828: SAVEPOINT Adjust_Lines_PVT;
5829: -- Initialize message list if p_init_msg_list is set to TRUE.
5830: IF FND_API.to_Boolean (p_init_msg_list) THEN
5838: x_return_status := FND_API.G_RET_STS_SUCCESS;
5839: -- API Body
5840: BEGIN
5841: l_debug_info := 'Create Adjustments for Shipment Lines and Charge Lines';
5842: INL_LOGGING_PVT.Log_Statement (
5843: p_module_name => g_module_name,
5844: p_procedure_name => l_api_name,
5845: p_debug_info => l_debug_info
5846: ) ;
5850: FROM inl_ship_headers
5851: WHERE ship_header_id = p_ship_header_id FOR UPDATE;
5852:
5853: l_debug_info := 'l_adjustment_num';
5854: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => TO_CHAR (l_adjustment_num)) ;
5855: OPEN MATCH;
5856: LOOP
5857: FETCH MATCH INTO rec_match;
5858: EXIT WHEN match%NOTFOUND;
5857: FETCH MATCH INTO rec_match;
5858: EXIT WHEN match%NOTFOUND;
5859:
5860: l_debug_info := 'rec_match.match_id';
5861: INL_LOGGING_PVT.Log_Variable (
5862: p_module_name => g_module_name,
5863: p_procedure_name => l_api_name,
5864: p_var_name => l_debug_info,
5865: p_var_value => rec_match.match_id
5864: p_var_name => l_debug_info,
5865: p_var_value => rec_match.match_id
5866: ) ;
5867: l_debug_info := 'rec_match.match_id';
5868: INL_LOGGING_PVT.Log_Variable (
5869: p_module_name => g_module_name,
5870: p_procedure_name => l_api_name,
5871: p_var_name => l_debug_info,
5872: p_var_value => rec_match.match_id
5871: p_var_name => l_debug_info,
5872: p_var_value => rec_match.match_id
5873: ) ;
5874: l_debug_info := '(INL_SHIP_LINES) rec_match.to_parent_table_id';
5875: INL_LOGGING_PVT.Log_Variable (
5876: p_module_name => g_module_name,
5877: p_procedure_name => l_api_name,
5878: p_var_name => l_debug_info,
5879: p_var_value => TO_CHAR (rec_match.to_parent_table_id)
5954: OR m.match_amount_id = rec_match.match_amount_id;
5955: END LOOP;
5956: CLOSE MATCH;
5957: l_debug_info := 'Update Shipment Header Adjustment Number';
5958: INL_LOGGING_PVT.Log_Statement (
5959: p_module_name => g_module_name,
5960: p_procedure_name => l_api_name,
5961: p_debug_info => l_debug_info
5962: ) ;
5975: END IF;
5976: -- Standard call to get message count and if count is 1, get message info.
5977: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5978: -- Standard End of Procedure/Function Logging
5979: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5980: EXCEPTION
5981: WHEN FND_API.G_EXC_ERROR THEN
5982: -- Standard Expected Error Logging
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5979: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5980: EXCEPTION
5981: WHEN FND_API.G_EXC_ERROR THEN
5982: -- Standard Expected Error Logging
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5984: ROLLBACK TO Adjust_Lines_PVT;
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5986: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5986: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5990: ROLLBACK TO Adjust_Lines_PVT;
5991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5993: WHEN OTHERS THEN
5991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5993: WHEN OTHERS THEN
5994: -- Standard Unexpected Error Logging
5995: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5996: ROLLBACK TO Adjust_Lines_PVT;
5997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5998: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5999: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6047: l_debug_info VARCHAR2 (240) ;
6048: l_api_name CONSTANT VARCHAR2 (30) := 'Get_1ary2aryQty';
6049: l_api_version CONSTANT NUMBER := 1.0;
6050: BEGIN
6051: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6052: -- Standard Start of API savepoint
6053: SAVEPOINT Get_1ary2aryQty_PVT;
6054: -- Initialize message list if p_init_msg_list is set to TRUE.
6055: IF FND_API.to_Boolean (p_init_msg_list) THEN
6063: -- Initialize return status to SUCCESS
6064: --
6065: x_return_status := FND_API.G_RET_STS_SUCCESS;
6066: l_debug_info := 'Getting 1ary and 2ary UOM Code from MTL tables';
6067: INL_LOGGING_PVT.Log_Statement (
6068: p_module_name => g_module_name,
6069: p_procedure_name => l_api_name,
6070: p_debug_info => l_debug_info
6071: ) ;
6078: WHERE msi.inventory_item_id = p_inventory_item_id
6079: AND msi.organization_id = p_organization_id;
6080:
6081: l_debug_info := 'Have gotten from mtl_system_items_vl:';
6082: INL_LOGGING_PVT.Log_Statement (
6083: p_module_name => g_module_name,
6084: p_procedure_name => l_api_name,
6085: p_debug_info => l_debug_info
6086: ) ;
6085: p_debug_info => l_debug_info
6086: ) ;
6087:
6088: l_debug_info := 'x_1ary_uom_code';
6089: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => x_1ary_uom_code) ;
6090: l_debug_info := 'x_2ary_uom_code';
6091: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => x_2ary_uom_code) ;
6092: IF x_1ary_uom_code IS NOT NULL THEN
6093: l_debug_info := 'Doing the 1ary UOM convertion';
6087:
6088: l_debug_info := 'x_1ary_uom_code';
6089: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => x_1ary_uom_code) ;
6090: l_debug_info := 'x_2ary_uom_code';
6091: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => x_2ary_uom_code) ;
6092: IF x_1ary_uom_code IS NOT NULL THEN
6093: l_debug_info := 'Doing the 1ary UOM convertion';
6094: INL_LOGGING_PVT.Log_Statement (
6095: p_module_name => g_module_name,
6090: l_debug_info := 'x_2ary_uom_code';
6091: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => l_debug_info, p_var_value => x_2ary_uom_code) ;
6092: IF x_1ary_uom_code IS NOT NULL THEN
6093: l_debug_info := 'Doing the 1ary UOM convertion';
6094: INL_LOGGING_PVT.Log_Statement (
6095: p_module_name => g_module_name,
6096: p_procedure_name => l_api_name,
6097: p_debug_info => l_debug_info
6098: ) ;
6096: p_procedure_name => l_api_name,
6097: p_debug_info => l_debug_info
6098: ) ;
6099:
6100: inl_logging_pvt.Log_APICallIn (p_module_name => g_module_name,
6101: p_procedure_name => l_api_name,
6102: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
6103: p_in_param_name1 => 'p_organization_id',
6104: p_in_param_value1 => p_organization_id,
6125: p_qty => p_qty,
6126: p_from_uom_code => p_uom_code,
6127: P_to_uom_code => x_1ary_uom_code) ;
6128: l_debug_info := 'x_1ary_qty';
6129: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6130: p_procedure_name => l_api_name,
6131: p_var_name => l_debug_info,
6132: p_var_value => TO_CHAR (x_1ary_qty)) ;
6133: END IF;
6133: END IF;
6134: --==========
6135: IF x_2ary_uom_code IS NOT NULL THEN
6136: l_debug_info := 'Doing the 2ary UOM convertion';
6137: INL_LOGGING_PVT.Log_Statement (
6138: p_module_name => g_module_name,
6139: p_procedure_name => l_api_name,
6140: p_debug_info => l_debug_info
6141: ) ;
6139: p_procedure_name => l_api_name,
6140: p_debug_info => l_debug_info
6141: ) ;
6142:
6143: inl_logging_pvt.Log_APICallIn (p_module_name => g_module_name,
6144: p_procedure_name => l_api_name,
6145: p_call_api_name => 'INL_LANDEDCOST_PVT.Converted_Qty',
6146: p_in_param_name1 => 'p_organization_id',
6147: p_in_param_value1 => p_organization_id,
6168: p_qty => p_qty,
6169: p_from_uom_code => p_uom_code,
6170: P_to_uom_code => x_2ary_uom_code) ;
6171: l_debug_info := 'x_2ary_qty';
6172: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6173: p_procedure_name => l_api_name,
6174: p_var_name => l_debug_info,
6175: p_var_value => TO_CHAR (x_2ary_qty)) ;
6176: END IF;
6180: COMMIT WORK;
6181: END IF;
6182: -- Standard call to get message count and if count is 1, get message info.
6183: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6184: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6185: EXCEPTION
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6183: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6184: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6185: EXCEPTION
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: ROLLBACK TO Get_1ary2aryQty_PVT;
6194: WHEN OTHERS THEN
6195: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: ROLLBACK TO Get_1ary2aryQty_PVT;
6194: WHEN OTHERS THEN
6195: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6197: ROLLBACK TO Get_1ary2aryQty_PVT;
6198: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6199: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6225: l_unit_of_measure VARCHAR2(30);
6226:
6227: BEGIN
6228: -- Standard Beginning of Procedure/Function Logging
6229: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
6230: p_procedure_name => l_func_name) ;
6231:
6232: -- Logging variables
6233: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6229: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
6230: p_procedure_name => l_func_name) ;
6231:
6232: -- Logging variables
6233: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6234: p_procedure_name => l_func_name,
6235: p_var_name => 'p_ship_line_src_type_code',
6236: p_var_value => p_ship_line_src_type_code) ;
6237: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6233: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6234: p_procedure_name => l_func_name,
6235: p_var_name => 'p_ship_line_src_type_code',
6236: p_var_value => p_ship_line_src_type_code) ;
6237: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6238: p_procedure_name => l_func_name,
6239: p_var_name => 'p_parent_id',
6240: p_var_value => p_parent_id) ;
6241:
6239: p_var_name => 'p_parent_id',
6240: p_var_value => p_parent_id) ;
6241:
6242: l_debug_info := 'Call INL_SHIPMENT_PVT.Get_AvailableQty';
6243: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
6244: p_procedure_name => l_func_name,
6245: p_debug_info => l_debug_info) ;
6246:
6247: INL_SHIPMENT_PVT.Get_AvailableQty(p_api_version => 1.0,
6255: x_return_status => l_return_status,
6256: x_msg_count => l_msg_count,
6257: x_msg_data => l_msg_data);
6258:
6259: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6260: p_procedure_name => l_func_name,
6261: p_var_name => 'l_available_qty',
6262: p_var_value => l_available_qty) ;
6263: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6259: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6260: p_procedure_name => l_func_name,
6261: p_var_name => 'l_available_qty',
6262: p_var_value => l_available_qty) ;
6263: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6264: p_procedure_name => l_func_name,
6265: p_var_name => 'l_tolerable_quantity',
6266: p_var_value => l_tolerable_quantity) ;
6267: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6263: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6264: p_procedure_name => l_func_name,
6265: p_var_name => 'l_tolerable_quantity',
6266: p_var_value => l_tolerable_quantity) ;
6267: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
6268: p_procedure_name => l_func_name,
6269: p_var_name => 'l_unit_of_measure',
6270: p_var_value => l_unit_of_measure) ;
6271:
6269: p_var_name => 'l_unit_of_measure',
6270: p_var_value => l_unit_of_measure) ;
6271:
6272: -- Standard End of Procedure/Function Logging
6273: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
6274: p_procedure_name => l_func_name) ;
6275: RETURN NVL(l_available_qty,0);
6276: END Get_SrcAvailableQty;
6277:
6314: l_organization_id NUMBER;
6315:
6316: BEGIN
6317: -- Standard Beginning of Procedure/Function Logging
6318: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
6319: p_procedure_name => l_api_name) ;
6320: -- Standard Start of API savepoint
6321: SAVEPOINT Run_Submit_PVT;
6322: -- Initialize message list if p_init_msg_list is set to TRUE.
6333: -- Initialize API return status to success
6334: x_return_status := FND_API.G_RET_STS_SUCCESS;
6335: -- Get the Pending Match Flag and Organization Id
6336: l_debug_info := 'Get the Pending Match Flag and Organization Id';
6337: INL_LOGGING_PVT.Log_Statement (
6338: p_module_name => g_module_name,
6339: p_procedure_name => l_api_name,
6340: p_debug_info => l_debug_info
6341: ) ;
6346: l_organization_id
6347: FROM inl_ship_headers
6348: WHERE ship_header_id = p_ship_header_id;
6349:
6350: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6351: p_procedure_name => l_api_name,
6352: p_var_name => 'l_pending_matching_flag',
6353: p_var_value => l_pending_matching_flag) ;
6354: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6350: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6351: p_procedure_name => l_api_name,
6352: p_var_name => 'l_pending_matching_flag',
6353: p_var_value => l_pending_matching_flag) ;
6354: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
6355: p_procedure_name => l_api_name,
6356: p_var_name => 'l_organization_id',
6357: p_var_value => l_organization_id) ;
6358:
6358:
6359: -- Run Adjust Lines for Pending Shipments
6360: IF l_pending_matching_flag = 'Y' THEN
6361: l_debug_info := 'Run INL_SHIPMENT_PVT_AC2.Adjust_Lines';
6362: INL_LOGGING_PVT.Log_Statement (
6363: p_module_name => g_module_name,
6364: p_procedure_name => l_api_name,
6365: p_debug_info => l_debug_info
6366: ) ;
6381: END IF;
6382:
6383: -- Update Pending Matching Flag if needed
6384: l_debug_info := 'Update PendingMatchingFlag';
6385: INL_LOGGING_PVT.Log_Statement (
6386: p_module_name => g_module_name,
6387: p_procedure_name => l_api_name,
6388: p_debug_info => l_debug_info
6389: ) ;
6400:
6401:
6402: IF p_task_code >= '30' AND NVL(l_pending_matching_flag, 'N') = 'N' THEN
6403: l_debug_info := 'Run INL_TAX_PVT.Generate_Taxes';
6404: INL_LOGGING_PVT.Log_Statement (
6405: p_module_name => g_module_name,
6406: p_procedure_name => l_api_name,
6407: p_debug_info => l_debug_info
6408: ) ;
6425:
6426: -- Run Validation only for NOT Pending Shipments
6427: IF p_task_code >= '40' AND NVL (l_pending_matching_flag, 'N') = 'N' THEN
6428: l_debug_info := 'Run INL_SHIPMENT_PVT_AC2.Validate_Shipment';
6429: INL_LOGGING_PVT.Log_Statement (
6430: p_module_name => g_module_name,
6431: p_procedure_name => l_api_name,
6432: p_debug_info => l_debug_info
6433: ) ;
6458:
6459: -- Run Landed Cost Calculation
6460: IF p_task_code >= '50' AND NVL (l_msg_count_validate, 0) = 0 THEN
6461: l_debug_info := 'Run INL_LANDEDCOST_PVT.Run_Calculation';
6462: INL_LOGGING_PVT.Log_Statement (
6463: p_module_name => g_module_name,
6464: p_procedure_name => l_api_name,
6465: p_debug_info => l_debug_info
6466: ) ;
6486:
6487: -- Submit Shipment and call final integrations
6488: IF p_task_code >= '60' AND NVL (l_msg_count_validate, 0) = 0 THEN
6489: l_debug_info := 'Run INL_SHIPMENT_PVT_AC2.Complete_Shipment';
6490: INL_LOGGING_PVT.Log_Statement (
6491: p_module_name => g_module_name,
6492: p_procedure_name => l_api_name,
6493: p_debug_info => l_debug_info
6494: ) ;
6528: p_count => x_msg_count,
6529: p_data => x_msg_data) ;
6530:
6531: -- Standard End of Procedure/Function Logging
6532: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
6533: p_procedure_name => l_api_name) ;
6534: EXCEPTION
6535: WHEN FND_API.G_EXC_ERROR THEN
6536: -- Standard Expected Error Logging
6533: p_procedure_name => l_api_name) ;
6534: EXCEPTION
6535: WHEN FND_API.G_EXC_ERROR THEN
6536: -- Standard Expected Error Logging
6537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
6538: p_procedure_name => l_api_name) ;
6539: ROLLBACK TO Run_Submit_PVT;
6540: x_return_status := FND_API.G_RET_STS_ERROR;
6541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6542: p_count => x_msg_count,
6543: p_data => x_msg_data) ;
6544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6545: -- Standard Unexpected Error Logging
6546: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6547: p_procedure_name => l_api_name) ;
6548: ROLLBACK TO Run_Submit_PVT;
6549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6550: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6551: p_count => x_msg_count,
6552: p_data => x_msg_data) ;
6553: WHEN OTHERS THEN
6554: -- Standard Unexpected Error Logging
6555: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6556: p_procedure_name => l_api_name) ;
6557: ROLLBACK TO Run_Submit_PVT;
6558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6610: errbuf := NULL;
6611: retcode := 0;
6612:
6613: -- Standard Beginning of Procedure/Function Logging
6614: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
6615: p_procedure_name => l_proc_name) ;
6616:
6617: -- Submit only the given Shipment
6618: IF p_ship_header_id IS NOT NULL THEN
6616:
6617: -- Submit only the given Shipment
6618: IF p_ship_header_id IS NOT NULL THEN
6619: l_debug_info := 'Before runnig Submit process for the only Shipment Id: ' || p_ship_header_id;
6620: INL_LOGGING_PVT.Log_Statement (
6621: p_module_name => g_module_name,
6622: p_procedure_name => l_proc_name,
6623: p_debug_info => l_debug_info
6624: ) ;
6659: FETCH c_pending_shipments INTO l_pending_shipments_rec;
6660: EXIT
6661: WHEN c_pending_shipments%NOTFOUND;
6662: l_debug_info := 'Before runnig Submit process for the Shipment Id: ' || l_pending_shipments_rec.ship_header_id;
6663: INL_LOGGING_PVT.Log_Statement (
6664: p_module_name => g_module_name,
6665: p_procedure_name => l_proc_name,
6666: p_debug_info => l_debug_info
6667: ) ;
6698: CLOSE c_pending_shipments;
6699: END IF;
6700:
6701: -- Standard End of Procedure/Function Logging
6702: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
6703: p_procedure_name => l_proc_name) ;
6704: EXCEPTION
6705: WHEN FND_API.G_EXC_ERROR THEN
6706: -- Standard Expected Error Logging
6703: p_procedure_name => l_proc_name) ;
6704: EXCEPTION
6705: WHEN FND_API.G_EXC_ERROR THEN
6706: -- Standard Expected Error Logging
6707: INL_logging_pvt.Log_ExpecError ( p_module_name => g_module_name,
6708: p_procedure_name => l_proc_name) ;
6709: retcode := 1;
6710: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
6711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6709: retcode := 1;
6710: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
6711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6712: -- Standard Unexpected Error Logging
6713: INL_logging_pvt.Log_UnexpecError ( p_module_name => g_module_name,
6714: p_procedure_name => l_proc_name) ;
6715: retcode := 2;
6716: errbuf := errbuf ||' G_EXC_UNEXPECTED_ERROR '||SQLERRM;
6717: WHEN OTHERS THEN
6715: retcode := 2;
6716: errbuf := errbuf ||' G_EXC_UNEXPECTED_ERROR '||SQLERRM;
6717: WHEN OTHERS THEN
6718: -- Standard Unexpected Error Logging
6719: INL_logging_pvt.Log_UnexpecError ( p_module_name => g_module_name,
6720: p_procedure_name => l_proc_name) ;
6721: retcode := 2;
6722: errbuf := errbuf ||' OTHERS '||SQLERRM;
6723: END Complete_PendingShipment;
6742: x_return_status OUT NOCOPY VARCHAR2)
6743: IS
6744: l_proc_name CONSTANT VARCHAR2 (100) := 'Update_PendingMatchingFlag';
6745: BEGIN
6746: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6747: -- Initialize API return status to success
6748: x_return_status := FND_API.G_RET_STS_SUCCESS;
6749: UPDATE inl_ship_headers
6750: SET pending_matching_flag = p_pending_matching_flag,
6754: last_update_date = SYSDATE ,
6755: last_update_login = fnd_global.login_id
6756: WHERE ship_header_id = p_ship_header_id;
6757:
6758: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6759: EXCEPTION
6760: WHEN FND_API.G_EXC_ERROR THEN
6761: -- Standard Expected Error Logging
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6758: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6759: EXCEPTION
6760: WHEN FND_API.G_EXC_ERROR THEN
6761: -- Standard Expected Error Logging
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6765: -- Standard Unexpected Error Logging
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6765: -- Standard Unexpected Error Logging
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6768: WHEN OTHERS THEN
6769: -- Standard Unexpected Error Logging
6770: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6768: WHEN OTHERS THEN
6769: -- Standard Unexpected Error Logging
6770: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6773: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
6774: END IF;
6826:
6827: r_affected_ship c_affected_ship%ROWTYPE;
6828: BEGIN
6829: -- Standard Beginning of Procedure/Function Logging
6830: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6831: -- Standard Start of API savepoint
6832: SAVEPOINT Delete_ChargeAssoc_PVT;
6833: -- Initialize message list if p_init_msg_list is set to TRUE.
6834: IF FND_API.to_Boolean (p_init_msg_list) THEN
6846: LOOP
6847: FETCH c_affected_ship INTO r_affected_ship;
6848: EXIT
6849: WHEN c_affected_ship%NOTFOUND;
6850: 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) ;
6851: IF (r_affected_ship.ship_status = 'VALIDATED') THEN
6852: Set_ToRevalidate (1.0, FND_API.G_FALSE, FND_API.G_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6877: END IF;
6878: -- Standard call to get message count and if count is 1, get message info.
6879: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6880: -- Standard End of Procedure/Function Logging
6881: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6882: EXCEPTION
6883: WHEN FND_API.G_EXC_ERROR THEN
6884: -- Standard Expected Error Logging
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6881: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6882: EXCEPTION
6883: WHEN FND_API.G_EXC_ERROR THEN
6884: -- Standard Expected Error Logging
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6886: ROLLBACK TO Delete_ChargeAssoc_PVT;
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6888: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6888: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6892: ROLLBACK TO Delete_ChargeAssoc_PVT;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6895: WHEN OTHERS THEN
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6895: WHEN OTHERS THEN
6896: -- Standard Unexpected Error Logging
6897: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6898: ROLLBACK TO Delete_ChargeAssoc_PVT;
6899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6900: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6901: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;