[Home] [Help]
53:
54: l_return_status VARCHAR2(30) := NULL;
55: l_delivery_id number := NULL;
56: l_cont_ins_id number := NULL;
57: l_TabOfDelDets WSH_UTIL_CORE.ID_TAB_TYPE;
58: l_msg_summary varchar2(2000) := NULL;
59: l_msg_details varchar2(4000) := NULL;
60:
61: -- Harmonization Project
62: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
63: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
64: l_dummy_qty NUMBER;
65: l_dummy_qty2 NUMBER;
66: l_dummy_ids wsh_util_core.id_tab_type;
67:
68: l_msg_count NUMBER;
69: l_msg_data VARCHAR2(32767);
70: l_number_of_errors NUMBER := 0;
114: IF FND_API.to_boolean(p_init_msg_list) THEN
115: FND_MSG_PUB.initialize;
116: END IF;
117:
118: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
119:
120: if (p_TabOfDelDets.count = 0) then
121: raise WSH_NO_DEL_DET_TBL;
122: end if;
152: p_action_prms => l_action_prms ,
153: x_action_out_rec => l_action_out_rec);
154:
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
157: END IF;
158: --
159: wsh_util_core.api_post_call(
160: p_return_status => l_return_status,
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
157: END IF;
158: --
159: wsh_util_core.api_post_call(
160: p_return_status => l_return_status,
161: x_num_warnings => l_number_of_warnings,
162: x_num_errors => l_number_of_errors,
163: p_msg_data => l_msg_data
163: p_msg_data => l_msg_data
164: );
165:
166: IF l_number_of_warnings > 0 THEN
167: x_return_status := wsh_util_core.g_ret_sts_warning;
168: END IF;
169:
170:
171: IF FND_API.TO_BOOLEAN(p_commit) THEN
187: exception
188: WHEN FND_API.G_EXC_ERROR THEN
189: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
190: x_return_status := FND_API.G_RET_STS_ERROR ;
191: wsh_util_core.add_message(x_return_status);
192: FND_MSG_PUB.Count_And_Get
193: (
194: p_count => x_msg_count,
195: p_data => x_msg_data,
202: END IF;
203: --
204: WHEN WSH_NO_DEL_DET_TBL then
205: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
206: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
207: fnd_message.set_name('WSH', 'WSH_PUB_NO_DEL_DET_TBL');
208: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
209: FND_MSG_PUB.Count_And_Get
210: (
204: WHEN WSH_NO_DEL_DET_TBL then
205: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
206: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
207: fnd_message.set_name('WSH', 'WSH_PUB_NO_DEL_DET_TBL');
208: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
209: FND_MSG_PUB.Count_And_Get
210: (
211: p_count => x_msg_count,
212: p_data => x_msg_data,
220: --
221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: wsh_util_core.add_message(x_return_status, l_module_name);
225: FND_MSG_PUB.Count_And_Get
226: (
227: p_count => x_msg_count,
228: p_data => x_msg_data,
235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
236: END IF;
237: WHEN others then
238: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
239: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PUB.DETAIL_TO_DELIVERY');
240: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
241: FND_MSG_PUB.Count_And_Get
242: (
243: p_count => x_msg_count,
236: END IF;
237: WHEN others then
238: ROLLBACK TO DETAIL_TO_DELIVERY_PUB;
239: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PUB.DETAIL_TO_DELIVERY');
240: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
241: FND_MSG_PUB.Count_And_Get
242: (
243: p_count => x_msg_count,
244: p_data => x_msg_data,
288: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
289: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
290: l_dummy_qty NUMBER;
291: l_dummy_qty2 NUMBER;
292: l_dummy_ids wsh_util_core.id_tab_type;
293: l_detail_ids wsh_util_core.id_tab_type;
294: l_msg_count NUMBER;
295: l_msg_data VARCHAR2(32767);
296: l_number_of_errors NUMBER := 0;
289: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
290: l_dummy_qty NUMBER;
291: l_dummy_qty2 NUMBER;
292: l_dummy_ids wsh_util_core.id_tab_type;
293: l_detail_ids wsh_util_core.id_tab_type;
294: l_msg_count NUMBER;
295: l_msg_data VARCHAR2(32767);
296: l_number_of_errors NUMBER := 0;
297: l_number_of_warnings NUMBER := 0;
362: -- Check p_init_msg_list
363: IF FND_API.to_boolean(p_init_msg_list) THEN
364: FND_MSG_PUB.initialize;
365: END IF;
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
367:
368:
369: l_detail_ids(1) := p_from_detail_id;
370: l_action_prms.caller := 'WSH_PUB';
378: OPEN wdd_details ;
379: FETCH wdd_details INTO l_organization_id,l_inventory_item_id,l_source_line_id,l_lot_number,l_requested_quantity_uom,l_requested_quantity_uom2,l_requested_quantity,l_requested_quantity2,l_released_status;
380: CLOSE wdd_details;
381:
382: l_fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE', l_source_line_id);
383:
384: IF l_fulfillment_base = 'S' AND l_released_status = 'Y' THEN
385: l_return := WSH_WV_UTILS.within_deviation
386: (
427: p_action_prms => l_action_prms ,
428: x_action_out_rec => l_action_out_rec);
429:
430: IF l_debug_on THEN
431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
432: END IF;
433: --
434: wsh_util_core.api_post_call(
435: p_return_status => l_return_status,
430: IF l_debug_on THEN
431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
432: END IF;
433: --
434: wsh_util_core.api_post_call(
435: p_return_status => l_return_status,
436: x_num_warnings => l_number_of_warnings,
437: x_num_errors => l_number_of_errors,
438: p_msg_data => l_msg_data
443: l_index := l_action_out_rec.result_id_tab.first;
444: x_new_detail_id := l_action_out_rec.result_id_tab(l_index);
445:
446: IF l_number_of_warnings > 0 THEN
447: x_return_status := wsh_util_core.g_ret_sts_warning;
448: END IF;
449:
450: IF FND_API.TO_BOOLEAN(p_commit) THEN
451: -- dbms_output.put_line('commit');
466: exception
467: WHEN FND_API.G_EXC_ERROR THEN
468: ROLLBACK TO SPLIT_LINE_PUB;
469: x_return_status := FND_API.G_RET_STS_ERROR ;
470: wsh_util_core.add_message(x_return_status);
471: FND_MSG_PUB.Count_And_Get
472: (
473: p_count => x_msg_count,
474: p_data => x_msg_data,
482: --
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484: ROLLBACK TO SPLIT_LINE_PUB;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: wsh_util_core.add_message(x_return_status, l_module_name);
487: FND_MSG_PUB.Count_And_Get
488: (
489: p_count => x_msg_count,
490: p_data => x_msg_data,
498: END IF;
499: WHEN OTHERS THEN
500: ROLLBACK TO SPLIT_LINE_PUB;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: wsh_util_core.add_message(x_return_status, l_module_name);
503: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Split_Line');
504: FND_MSG_PUB.Count_And_Get
505: (
506: p_count => x_msg_count,
499: WHEN OTHERS THEN
500: ROLLBACK TO SPLIT_LINE_PUB;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: wsh_util_core.add_message(x_return_status, l_module_name);
503: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Split_Line');
504: FND_MSG_PUB.Count_And_Get
505: (
506: p_count => x_msg_count,
507: p_data => x_msg_data,
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.push(l_module_name);
547: END IF;
548: --
549: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
550: p_init_rec.source_header_id := FND_API.G_MISS_NUM;
551: p_init_rec.source_line_id := FND_API.G_MISS_NUM;
552: p_init_rec.sold_to_org_id := FND_API.G_MISS_NUM;
553: p_init_rec.customer_number := FND_API.G_MISS_NUM;
646: END IF;
647: --
648: EXCEPTION
649: WHEN Others THEN
650: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
651: WSH_UTIL_CORE.add_message (x_return_status);
652: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Init_Changed_Attribute_Rec');
653:
654:
647: --
648: EXCEPTION
649: WHEN Others THEN
650: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
651: WSH_UTIL_CORE.add_message (x_return_status);
652: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Init_Changed_Attribute_Rec');
653:
654:
655: --
648: EXCEPTION
649: WHEN Others THEN
650: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
651: WSH_UTIL_CORE.add_message (x_return_status);
652: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Init_Changed_Attribute_Rec');
653:
654:
655: --
656: -- Debug Statements
700: , p_container_flag IN VARCHAR2
701: )
702: IS
703:
704: l_valid_index_tab WSH_UTIL_CORE.Id_Tab_Type;
705: l_valid_ids_tab WSH_UTIL_CORE.Id_Tab_Type;
706: l_msg_summary varchar2(2000) := NULL;
707: l_msg_details varchar2(4000) := NULL;
708: l_return_status VARCHAR2(30);
701: )
702: IS
703:
704: l_valid_index_tab WSH_UTIL_CORE.Id_Tab_Type;
705: l_valid_ids_tab WSH_UTIL_CORE.Id_Tab_Type;
706: l_msg_summary varchar2(2000) := NULL;
707: l_msg_details varchar2(4000) := NULL;
708: l_return_status VARCHAR2(30);
709: l_counter NUMBER;
718:
719: -- Harmonization Project
720: l_detail_info_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
721: l_in_rec WSH_GLBL_VAR_STRCT_GRP.detailInRecType;
722: l_lpn_ids wsh_util_core.id_Tab_type;
723: l_out_Rec WSH_GLBL_VAR_STRCT_GRP.detailOutRecType;
724: l_msg_count NUMBER;
725: l_msg_data VARCHAR2(32767);
726: l_number_of_errors NUMBER := 0;
763: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_FLAG',P_CONTAINER_FLAG);
764: END IF;
765: --
766:
767: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
768:
769: -- Standard call to check for call compatibility
770: IF NOT FND_API.Compatible_API_Call(
771: l_api_version_number,
820: x_valid_ids_tab => l_valid_ids_tab,
821: x_return_status => l_return_status
822: );
823:
824: wsh_util_core.api_post_call(
825: p_return_status => l_return_status,
826: x_num_warnings => l_number_of_warnings,
827: x_num_errors => l_number_of_errors,
828: p_msg_data => l_msg_data,
827: x_num_errors => l_number_of_errors,
828: p_msg_data => l_msg_data,
829: p_raise_error_flag => FALSE
830: );
831: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
832: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
828: p_msg_data => l_msg_data,
829: p_raise_error_flag => FALSE
830: );
831: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
832: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
836: END IF;
873: p_IN_rec => l_in_rec,
874: x_OUT_rec => l_out_rec);
875:
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
878: END IF;
879: --
880: wsh_util_core.api_post_call(
881: p_return_status => l_return_status,
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
878: END IF;
879: --
880: wsh_util_core.api_post_call(
881: p_return_status => l_return_status,
882: x_num_warnings => l_number_of_warnings,
883: x_num_errors => l_number_of_errors,
884: p_msg_data => l_msg_data
885: );
886: --
887:
888: IF l_number_of_warnings > 0 THEN
889: x_return_status := wsh_util_core.g_ret_sts_warning;
890: END IF;
891:
892: -- report success
893: IF FND_API.TO_BOOLEAN(p_commit) THEN
907: EXCEPTION
908: WHEN FND_API.G_EXC_ERROR THEN
909: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
910: x_return_status := FND_API.G_RET_STS_ERROR ;
911: wsh_util_core.add_message(x_return_status);
912: FND_MSG_PUB.Count_And_Get
913: (
914: p_count => x_msg_count,
915: p_data => x_msg_data,
923: --
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
927: wsh_util_core.add_message(x_return_status, l_module_name);
928: FND_MSG_PUB.Count_And_Get
929: (
930: p_count => x_msg_count,
931: p_data => x_msg_data,
942: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_SOURCE_CODE');
945: FND_MESSAGE.SET_TOKEN('SOURCE_CODE',p_source_code );
946: WSH_UTIL_CORE.Add_Message(x_return_status);
947: --RTV changes
948: IF c_valid_source_code%ISOPEN THEN
949: CLOSE c_valid_source_code;
950: END IF;
962: END IF;
963: --
964: WHEN Others THEN
965: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
967: WSH_UTIL_CORE.add_message (x_return_status);
968: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
969: ;
970:
963: --
964: WHEN Others THEN
965: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
967: WSH_UTIL_CORE.add_message (x_return_status);
968: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
969: ;
970:
971: FND_MSG_PUB.Count_And_Get
964: WHEN Others THEN
965: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB;
966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
967: WSH_UTIL_CORE.add_message (x_return_status);
968: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
969: ;
970:
971: FND_MSG_PUB.Count_And_Get
972: (
1020: , p_serial_range_tab IN WSH_GLBL_VAR_STRCT_GRP.ddSerialRangeTabType
1021: )
1022: IS
1023:
1024: l_valid_index_tab WSH_UTIL_CORE.Id_Tab_Type;
1025: l_valid_ids_tab WSH_UTIL_CORE.Id_Tab_Type;
1026: l_msg_summary varchar2(2000) := NULL;
1027: l_msg_details varchar2(4000) := NULL;
1028: l_return_status VARCHAR2(30);
1021: )
1022: IS
1023:
1024: l_valid_index_tab WSH_UTIL_CORE.Id_Tab_Type;
1025: l_valid_ids_tab WSH_UTIL_CORE.Id_Tab_Type;
1026: l_msg_summary varchar2(2000) := NULL;
1027: l_msg_details varchar2(4000) := NULL;
1028: l_return_status VARCHAR2(30);
1029: l_counter NUMBER;
1040:
1041: -- Harmonization Project
1042: l_detail_info_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
1043: l_in_rec WSH_GLBL_VAR_STRCT_GRP.detailInRecType;
1044: l_lpn_ids wsh_util_core.id_Tab_type;
1045: l_out_Rec WSH_GLBL_VAR_STRCT_GRP.detailOutRecType;
1046: l_msg_count NUMBER;
1047: l_msg_data VARCHAR2(32767);
1048: l_number_of_errors NUMBER := 0;
1088:
1089: END IF;
1090: --
1091:
1092: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1093:
1094: -- Standard call to check for call compatibility
1095: IF NOT FND_API.Compatible_API_Call(
1096: l_api_version_number,
1156: x_valid_ids_tab => l_valid_ids_tab,
1157: x_return_status => l_return_status
1158: );
1159:
1160: wsh_util_core.api_post_call(
1161: p_return_status => l_return_status,
1162: x_num_warnings => l_number_of_warnings,
1163: x_num_errors => l_number_of_errors,
1164: p_msg_data => l_msg_data,
1163: x_num_errors => l_number_of_errors,
1164: p_msg_data => l_msg_data,
1165: p_raise_error_flag => FALSE
1166: );
1167: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
1168: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171:
1164: p_msg_data => l_msg_data,
1165: p_raise_error_flag => FALSE
1166: );
1167: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
1168: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171:
1172: END IF;
1212: p_serial_range_tab => l_serial_range_tab
1213: );
1214:
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1217: END IF;
1218: --
1219: wsh_util_core.api_post_call(
1220: p_return_status => l_return_status,
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1217: END IF;
1218: --
1219: wsh_util_core.api_post_call(
1220: p_return_status => l_return_status,
1221: x_num_warnings => l_number_of_warnings,
1222: x_num_errors => l_number_of_errors,
1223: p_msg_data => l_msg_data
1224: );
1225: --
1226:
1227: IF l_number_of_warnings > 0 THEN
1228: x_return_status := wsh_util_core.g_ret_sts_warning;
1229: END IF;
1230: -- report success
1231: IF FND_API.TO_BOOLEAN(p_commit) THEN
1232: COMMIT WORK;
1245: EXCEPTION
1246: WHEN FND_API.G_EXC_ERROR THEN
1247: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1248: x_return_status := FND_API.G_RET_STS_ERROR ;
1249: wsh_util_core.add_message(x_return_status);
1250: FND_MSG_PUB.Count_And_Get
1251: (
1252: p_count => x_msg_count,
1253: p_data => x_msg_data,
1261: --
1262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1263: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1265: wsh_util_core.add_message(x_return_status, l_module_name);
1266: FND_MSG_PUB.Count_And_Get
1267: (
1268: p_count => x_msg_count,
1269: p_data => x_msg_data,
1280: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1281: x_return_status := FND_API.G_RET_STS_ERROR;
1282: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_SOURCE_CODE');
1283: FND_MESSAGE.SET_TOKEN('SOURCE_CODE',p_source_code );
1284: WSH_UTIL_CORE.Add_Message(x_return_status);
1285: --RTV changes
1286: IF c_valid_source_code%ISOPEN THEN
1287: CLOSE c_valid_source_code;
1288: END IF;
1301: END IF;
1302: --
1303: WHEN Others THEN
1304: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1305: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1306: WSH_UTIL_CORE.add_message (x_return_status);
1307: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
1308: ;
1309:
1302: --
1303: WHEN Others THEN
1304: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1305: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1306: WSH_UTIL_CORE.add_message (x_return_status);
1307: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
1308: ;
1309:
1310: FND_MSG_PUB.Count_And_Get
1303: WHEN Others THEN
1304: ROLLBACK TO UPDATE_SHIPPING_ATTR_PUB2;
1305: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1306: WSH_UTIL_CORE.add_message (x_return_status);
1307: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes')
1308: ;
1309:
1310: FND_MSG_PUB.Count_And_Get
1311: (
1363: --
1364: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1365: END IF;
1366: --
1367: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1368:
1369: -- get line status for delivery detail
1370: OPEN del_assign;
1371: FETCH del_assign INTO l_assign_rec;
1388:
1389: /*
1390: EXCEPTION
1391: when others then
1392: wsh_util_core.default_handler('WSH_SHIP_CONFRIM_ACTIONS.SHIP_CONFIRM_A_TRIP_STOP');
1393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1394: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1395: if x_msg_count > 1 then
1396: x_msg_data := l_msg_summary || l_msg_details;
1389: /*
1390: EXCEPTION
1391: when others then
1392: wsh_util_core.default_handler('WSH_SHIP_CONFRIM_ACTIONS.SHIP_CONFIRM_A_TRIP_STOP');
1393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1394: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1395: if x_msg_count > 1 then
1396: x_msg_data := l_msg_summary || l_msg_details;
1397: else
1390: EXCEPTION
1391: when others then
1392: wsh_util_core.default_handler('WSH_SHIP_CONFRIM_ACTIONS.SHIP_CONFIRM_A_TRIP_STOP');
1393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1394: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1395: if x_msg_count > 1 then
1396: x_msg_data := l_msg_summary || l_msg_details;
1397: else
1398: x_msg_data := l_msg_summary;
1414: , p_commit IN VARCHAR2
1415: , x_return_status OUT NOCOPY VARCHAR2
1416: , x_msg_count OUT NOCOPY NUMBER
1417: , x_msg_data OUT NOCOPY VARCHAR2
1418: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1419: , x_del_rows OUT NOCOPY wsh_util_core.id_tab_type
1420: )
1421: IS
1422: l_dummy_rows WSH_UTIL_CORE.id_tab_type;
1415: , x_return_status OUT NOCOPY VARCHAR2
1416: , x_msg_count OUT NOCOPY NUMBER
1417: , x_msg_data OUT NOCOPY VARCHAR2
1418: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1419: , x_del_rows OUT NOCOPY wsh_util_core.id_tab_type
1420: )
1421: IS
1422: l_dummy_rows WSH_UTIL_CORE.id_tab_type;
1423: l_api_version_number NUMBER := 1.0;
1418: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1419: , x_del_rows OUT NOCOPY wsh_util_core.id_tab_type
1420: )
1421: IS
1422: l_dummy_rows WSH_UTIL_CORE.id_tab_type;
1423: l_api_version_number NUMBER := 1.0;
1424: l_api_name CONSTANT VARCHAR2(30):= 'Autocreate_Deliveries';
1425: l_return_status VARCHAR2(30);
1426: autocreate_delivery_failed EXCEPTION;
1431: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
1432: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
1433: l_dummy_qty NUMBER;
1434: l_dummy_qty2 NUMBER;
1435: l_dummy_ids wsh_util_core.id_tab_type;
1436: l_msg_count NUMBER;
1437: l_msg_data VARCHAR2(32767);
1438: l_number_of_errors NUMBER := 0;
1439: l_number_of_warnings NUMBER := 0;
1475: -- Check p_init_msg_list
1476: IF FND_API.to_boolean(p_init_msg_list) THEN
1477: FND_MSG_PUB.initialize;
1478: END IF;
1479: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1480:
1481: l_action_prms.caller := 'WSH_PUB';
1482: l_action_prms.action_code := 'AUTOCREATE-DEL';
1483:
1499: p_action_prms => l_action_prms ,
1500: x_action_out_rec => l_action_out_rec);
1501:
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1504: END IF;
1505: --
1506: wsh_util_core.api_post_call(
1507: p_return_status => l_return_status,
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1504: END IF;
1505: --
1506: wsh_util_core.api_post_call(
1507: p_return_status => l_return_status,
1508: x_num_warnings => l_number_of_warnings,
1509: x_num_errors => l_number_of_errors,
1510: p_msg_data => l_msg_data
1512:
1513: x_del_rows := l_action_out_rec.delivery_id_tab;
1514:
1515: IF l_number_of_warnings > 0 THEN
1516: x_return_status := wsh_util_core.g_ret_sts_warning;
1517: END IF;
1518:
1519:
1520: FND_MSG_PUB.Count_And_Get
1537: EXCEPTION
1538: WHEN FND_API.G_EXC_ERROR THEN
1539: ROLLBACK TO AUTOCREATE_DEL_PUB;
1540: x_return_status := FND_API.G_RET_STS_ERROR ;
1541: wsh_util_core.add_message(x_return_status);
1542: FND_MSG_PUB.Count_And_Get
1543: (
1544: p_count => x_msg_count,
1545: p_data => x_msg_data,
1552: END IF;
1553:
1554: WHEN autocreate_delivery_failed THEN
1555: ROLLBACK TO AUTOCREATE_DEL_PUB;
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1557: FND_MSG_PUB.Count_And_Get
1558: (
1559: p_count => x_msg_count,
1560: p_data => x_msg_data,
1568:
1569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1570: ROLLBACK TO AUTOCREATE_DEL_PUB;
1571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1572: wsh_util_core.add_message(x_return_status, l_module_name);
1573: FND_MSG_PUB.Count_And_Get
1574: (
1575: p_count => x_msg_count,
1576: p_data => x_msg_data,
1584: END IF;
1585: WHEN OTHERS THEN
1586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1587: ROLLBACK TO AUTOCREATE_DEL_PUB;
1588: wsh_util_core.add_message(x_return_status, l_module_name);
1589: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Deliveries');
1590: FND_MSG_PUB.Count_And_Get
1591: (
1592: p_count => x_msg_count,
1585: WHEN OTHERS THEN
1586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1587: ROLLBACK TO AUTOCREATE_DEL_PUB;
1588: wsh_util_core.add_message(x_return_status, l_module_name);
1589: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Deliveries');
1590: FND_MSG_PUB.Count_And_Get
1591: (
1592: p_count => x_msg_count,
1593: p_data => x_msg_data,
1608: , p_commit IN VARCHAR2
1609: , x_return_status OUT NOCOPY VARCHAR2
1610: , x_msg_count OUT NOCOPY NUMBER
1611: , x_msg_data OUT NOCOPY VARCHAR2
1612: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1613: , x_del_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1614: , x_trip_id OUT NOCOPY NUMBER
1615: , x_trip_name OUT NOCOPY VARCHAR2
1616: )
1609: , x_return_status OUT NOCOPY VARCHAR2
1610: , x_msg_count OUT NOCOPY NUMBER
1611: , x_msg_data OUT NOCOPY VARCHAR2
1612: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1613: , x_del_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1614: , x_trip_id OUT NOCOPY NUMBER
1615: , x_trip_name OUT NOCOPY VARCHAR2
1616: )
1617: IS
1615: , x_trip_name OUT NOCOPY VARCHAR2
1616: )
1617: IS
1618:
1619: l_trip_rows WSH_UTIL_CORE.id_tab_type;
1620: l_first NUMBER := 0;
1621: l_debug_on BOOLEAN;
1622: --
1623: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'AUTOCREATE_DEL_TRIP - single trip';
1679: WHEN OTHERS THEN
1680:
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1683: wsh_util_core.add_message(x_return_status, l_module_name);
1684: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Del_Trip');
1685: FND_MSG_PUB.Count_And_Get
1686: (
1687: p_count => x_msg_count,
1680:
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1683: wsh_util_core.add_message(x_return_status, l_module_name);
1684: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Del_Trip');
1685: FND_MSG_PUB.Count_And_Get
1686: (
1687: p_count => x_msg_count,
1688: p_data => x_msg_data,
1704: , p_commit IN VARCHAR2
1705: , x_return_status OUT NOCOPY VARCHAR2
1706: , x_msg_count OUT NOCOPY NUMBER
1707: , x_msg_data OUT NOCOPY VARCHAR2
1708: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1709: , x_del_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1710: , x_trip_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1711: )
1712: IS
1705: , x_return_status OUT NOCOPY VARCHAR2
1706: , x_msg_count OUT NOCOPY NUMBER
1707: , x_msg_data OUT NOCOPY VARCHAR2
1708: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1709: , x_del_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1710: , x_trip_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1711: )
1712: IS
1713: l_api_name CONSTANT VARCHAR2(30):= 'Autocreate_del_trip';
1706: , x_msg_count OUT NOCOPY NUMBER
1707: , x_msg_data OUT NOCOPY VARCHAR2
1708: , p_line_rows IN WSH_UTIL_CORE.id_tab_type
1709: , x_del_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1710: , x_trip_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type
1711: )
1712: IS
1713: l_api_name CONSTANT VARCHAR2(30):= 'Autocreate_del_trip';
1714: l_api_version_number CONSTANT NUMBER := 1.0;
1714: l_api_version_number CONSTANT NUMBER := 1.0;
1715: l_return_status VARCHAR2(30);
1716: l_msg_summary varchar2(2000) := NULL;
1717: l_msg_details varchar2(4000) := NULL;
1718: l_org_rows wsh_util_core.id_tab_type; -- bug 1668578
1719: autocreate_trip_failed EXCEPTION;
1720:
1721: -- Harmonization Project
1722: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
1722: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
1723: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
1724: l_dummy_qty NUMBER;
1725: l_dummy_qty2 NUMBER;
1726: l_del_rows wsh_util_core.id_tab_type;
1727: l_msg_count NUMBER;
1728: l_msg_data VARCHAR2(32767);
1729: l_number_of_errors NUMBER := 0;
1730: l_number_of_warnings NUMBER := 0;
1765: -- Check p_init_msg_list
1766: IF FND_API.to_boolean(p_init_msg_list) THEN
1767: FND_MSG_PUB.initialize;
1768: END IF;
1769: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1770:
1771: l_action_prms.caller := 'WSH_PUB';
1772: l_action_prms.action_code := 'AUTOCREATE-TRIP';
1773:
1789: p_action_prms => l_action_prms ,
1790: x_action_out_rec => l_action_out_rec);
1791:
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1794: END IF;
1795: --
1796: wsh_util_core.api_post_call(
1797: p_return_status => l_return_status,
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1794: END IF;
1795: --
1796: wsh_util_core.api_post_call(
1797: p_return_status => l_return_status,
1798: x_num_warnings => l_number_of_warnings,
1799: x_num_errors => l_number_of_errors,
1800: p_msg_data => l_msg_data
1803: x_del_rows := l_action_out_rec.delivery_id_tab;
1804: x_trip_rows:= l_action_out_rec.result_id_tab;
1805:
1806: IF l_number_of_warnings > 0 THEN
1807: x_return_status := wsh_util_core.g_ret_sts_warning;
1808: END IF;
1809:
1810: IF FND_API.TO_BOOLEAN(p_commit) THEN
1811: COMMIT WORK;
1826: EXCEPTION
1827: WHEN FND_API.G_EXC_ERROR THEN
1828: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1829: x_return_status := FND_API.G_RET_STS_ERROR ;
1830: wsh_util_core.add_message(x_return_status);
1831: FND_MSG_PUB.Count_And_Get
1832: (
1833: p_count => x_msg_count,
1834: p_data => x_msg_data,
1842:
1843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1844: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1846: wsh_util_core.add_message(x_return_status, l_module_name);
1847: FND_MSG_PUB.Count_And_Get
1848: (
1849: p_count => x_msg_count,
1850: p_data => x_msg_data,
1859:
1860:
1861: WHEN autocreate_trip_failed THEN
1862: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1864: FND_MSG_PUB.Count_And_Get
1865: (
1866: p_count => x_msg_count,
1867: p_data => x_msg_data,
1876: WHEN OTHERS THEN
1877:
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1880: wsh_util_core.add_message(x_return_status, l_module_name);
1881: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Del_Trip');
1882: FND_MSG_PUB.Count_And_Get
1883: (
1884: p_count => x_msg_count,
1877:
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: ROLLBACK TO AUTOCREATE_TRIP_PUB;
1880: wsh_util_core.add_message(x_return_status, l_module_name);
1881: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_PUB.Autocreate_Del_Trip');
1882: FND_MSG_PUB.Count_And_Get
1883: (
1884: p_count => x_msg_count,
1885: p_data => x_msg_data,
2123:
2124:
2125: WHEN OTHERS THEN
2126:
2127: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PUB.UPDATE_ATTRIBUTES');
2128: IF l_debug_on THEN
2129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2130: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2131: END IF;