[Home] [Help]
83: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
84: --
85: IF l_debug_on IS NULL
86: THEN
87: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
88: END IF;
89: --
90: --
91: -- Debug Statements
90: --
91: -- Debug Statements
92: --
93: IF l_debug_on THEN
94: WSH_DEBUG_SV.push(l_module_name);
95: END IF;
96: --
97: SAVEPOINT Reapprove_PO_PVT;
98:
105: -- For action code 'REAPPROVE_PO', both Update_Quantity and Update_Attributes
106: -- are called.
107:
108: IF l_debug_on THEN
109: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Attributes',WSH_DEBUG_SV.C_PROC_LEVEL);
110: END IF;
111:
112: Update_Attributes(
113: p_line_rec => p_line_rec,
120: --
121: -- Debug Statements
122: --
123: IF l_debug_on THEN
124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
125: END IF;
126: --
127: wsh_util_core.api_post_call(
128: p_return_status => l_return_status,
140: -- are called.
141:
142:
143: IF l_debug_on THEN
144: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Quantity',WSH_DEBUG_SV.C_PROC_LEVEL);
145: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT is' ,l_wt_vol_dd_id.COUNT);
146: END IF;
147:
148: Update_quantity(
141:
142:
143: IF l_debug_on THEN
144: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Quantity',WSH_DEBUG_SV.C_PROC_LEVEL);
145: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT is' ,l_wt_vol_dd_id.COUNT);
146: END IF;
147:
148: Update_quantity(
149: p_line_rec => p_line_rec,
152: p_wt_vol_dd_id => l_wt_vol_dd_id,
153: x_return_status => l_return_status);
154:
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT is' ,l_wt_vol_dd_id.COUNT);
157: END IF;
158:
159: --
160: -- Debug Statements
159: --
160: -- Debug Statements
161: --
162: IF l_debug_on THEN
163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
164: END IF;
165: --
166: wsh_util_core.api_post_call(
167: p_return_status => l_return_status,
174: --
175: IF l_dd_id_unassigned.count > 0 then
176: --Call GRP API to unassign the dd from delivery
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
179: END IF;
180:
181: l_action_prms.caller := wsh_util_core.C_IB_PO_PREFIX;
182:
197:
198: END IF;
199:
200: IF l_debug_on THEN
201: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT -3 is' ,l_wt_vol_dd_id.COUNT);
202: END IF;
203: IF l_wt_vol_dd_id.COUNT > 0 THEN
204: -- recalculate the wt/volume and reprice the delviery detail.
205:
203: IF l_wt_vol_dd_id.COUNT > 0 THEN
204: -- recalculate the wt/volume and reprice the delviery detail.
205:
206: IF l_debug_on THEN
207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
208: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT is' ,l_wt_vol_dd_id.COUNT);
209: END IF;
210:
211: WSH_WV_UTILS.Detail_Weight_Volume(
204: -- recalculate the wt/volume and reprice the delviery detail.
205:
206: IF l_debug_on THEN
207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
208: WSH_DEBUG_SV.log(l_module_name,'l_wt_vol_dd_id.COUNT is' ,l_wt_vol_dd_id.COUNT);
209: END IF;
210:
211: WSH_WV_UTILS.Detail_Weight_Volume(
212: p_detail_rows => l_wt_vol_dd_id,
214: p_calc_wv_if_frozen => 'N',
215: x_return_status => l_return_status);
216:
217: IF l_debug_on THEN
218: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
219: END IF;
220: --
221: wsh_util_core.api_post_call(
222: p_return_status => l_return_status,
223: x_num_warnings => l_num_warnings,
224: x_num_errors => l_num_errors);
225:
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
228: END IF;
229:
230: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
231: p_entity_type => 'DELIVERY_DETAIL',
235: --
236: -- Debug Statements
237: --
238: IF l_debug_on THEN
239: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
240: END IF;
241: --
242: wsh_util_core.api_post_call(
243: p_return_status => l_return_status,
253: --
254: -- Debug Statements
255: --
256: IF l_debug_on THEN
257: WSH_DEBUG_SV.pop(l_module_name);
258: END IF;
259: --
260: IF l_num_errors > 0 THEN
261: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
273: --
274: -- Debug Statements
275: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
278: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
279: END IF;
280: --
281: WHEN OTHERS THEN
274: -- Debug Statements
275: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
278: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
279: END IF;
280: --
281: WHEN OTHERS THEN
282: ROLLBACK TO Reapprove_PO_PVT;
286: --
287: -- Debug Statements
288: --
289: IF l_debug_on THEN
290: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
291: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
292: END IF;
293: --
294: END Reapprove_PO;
287: -- Debug Statements
288: --
289: IF l_debug_on THEN
290: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
291: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
292: END IF;
293: --
294: END Reapprove_PO;
295:
370: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
371: --
372: IF l_debug_on IS NULL
373: THEN
374: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
375: END IF;
376: --
377: --
378: -- Debug Statements
377: --
378: -- Debug Statements
379: --
380: IF l_debug_on THEN
381: WSH_DEBUG_SV.push(l_module_name);
382: END IF;
383: --
384: SAVEPOINT Update_Attributes_PVT;
385:
388: IF p_dd_list.delivery_detail_id.count = 0 THEN
389: -- If this routine is being called from the PO Reapproval Case
390: -- the p_dd_list is null.Only p_line_rec will be populated.
391: IF l_debug_on THEN
392: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_dd_attributes',WSH_DEBUG_SV.C_PROC_LEVEL);
393: END IF;
394: --{
395: FOR i in p_line_rec.po_shipment_line_id.FIRST..p_line_rec.po_shipment_line_id.LAST
396: LOOP
407: --
408: -- Debug Statements
409: --
410: IF l_debug_on THEN
411: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
412: END IF;
413: --
414: wsh_util_core.api_post_call(
415: p_return_status => l_return_status,
432: --
433: -- Debug Statements
434: --
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.GET_PO_RCV_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438: --
439: -- Deriving the p_line_rec information.
440: WSH_INBOUND_UTIL_PKG.get_po_rcv_attributes(
446: --
447: -- Debug Statements
448: --
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
451: END IF;
452: --
453: wsh_util_core.api_post_call(
454: p_return_status => l_return_status,
460: --}
461: END IF;
462:
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_dd_attributes',WSH_DEBUG_SV.C_PROC_LEVEL);
465: END IF;
466: -- Once p_line_rec is derived, call update_dd_attributes to update wsh_delivery_details.
467:
468: Update_dd_attributes(
477: --
478: -- Debug Statements
479: --
480: IF l_debug_on THEN
481: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
482: END IF;
483: --
484: wsh_util_core.api_post_call(
485: p_return_status => l_return_status,
493: --
494: -- Debug Statements
495: --
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.pop(l_module_name);
498: END IF;
499: --
500: IF l_num_errors > 0 THEN
501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
513: --
514: -- Debug Statements
515: --
516: IF l_debug_on THEN
517: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
519: END IF;
520: --
521: WHEN OTHERS THEN
514: -- Debug Statements
515: --
516: IF l_debug_on THEN
517: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
519: END IF;
520: --
521: WHEN OTHERS THEN
522: ROLLBACK TO Update_Attributes_PVT;
526: --
527: -- Debug Statements
528: --
529: IF l_debug_on THEN
530: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
532: END IF;
533: --
534: END Update_Attributes;
527: -- Debug Statements
528: --
529: IF l_debug_on THEN
530: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
532: END IF;
533: --
534: END Update_Attributes;
535:
800: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
801: --
802: IF l_debug_on IS NULL
803: THEN
804: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
805: END IF;
806: --
807: --
808: -- Debug Statements
807: --
808: -- Debug Statements
809: --
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.push(l_module_name);
812: --
813: WSH_DEBUG_SV.log(l_module_name,'P_DD_ID',P_DD_ID);
814: WSH_DEBUG_SV.log(l_module_name,'P_LINE_REC_INDEX',P_LINE_REC_INDEX);
815: END IF;
809: --
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.push(l_module_name);
812: --
813: WSH_DEBUG_SV.log(l_module_name,'P_DD_ID',P_DD_ID);
814: WSH_DEBUG_SV.log(l_module_name,'P_LINE_REC_INDEX',P_LINE_REC_INDEX);
815: END IF;
816: --
817: SAVEPOINT Update_dd_Attributes_PVT;
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.push(l_module_name);
812: --
813: WSH_DEBUG_SV.log(l_module_name,'P_DD_ID',P_DD_ID);
814: WSH_DEBUG_SV.log(l_module_name,'P_LINE_REC_INDEX',P_LINE_REC_INDEX);
815: END IF;
816: --
817: SAVEPOINT Update_dd_Attributes_PVT;
818:
830: /*Variable for avoiding unassignment from delivery for shipping control
831: check further down. Will be set to 'Y' when first unassignment happens,
832: and later can be just checked against.*/
833: IF l_debug_on THEN
834: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr wdd id is ',v_dd_attr.delivery_detail_id);
835: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr last_update_date is ',v_dd_attr.last_update_date);
836: END IF;
837:
838:
831: check further down. Will be set to 'Y' when first unassignment happens,
832: and later can be just checked against.*/
833: IF l_debug_on THEN
834: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr wdd id is ',v_dd_attr.delivery_detail_id);
835: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr last_update_date is ',v_dd_attr.last_update_date);
836: END IF;
837:
838:
839: l_del_unassigned := 'N';
860: --{
861: p_dd_id_unassigned(p_dd_id_unassigned.COUNT +1)
862: := v_dd_attr.delivery_detail_id;
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
865: END IF;
866:
867: -- Bug 3395410 : Setting the message that needs to be displayed while logging exception.
868:
881: --
882: -- Debug Statements
883: --
884: IF l_debug_on THEN
885: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
886: END IF;
887: --
888: wsh_util_core.api_post_call(
889: p_return_status => l_return_status,
910: FND_MESSAGE.SET_TOKEN('NEW_VALUE', p_line_rec.ship_to_location_id(p_line_rec_index));
911: l_msg := FND_MESSAGE.GET;
912:
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
915: END IF;
916:
917: Log_Exception(
918: p_entity_id => V_dd_attr.delivery_detail_id,
922: p_message => l_msg,
923: x_return_status => l_return_status);
924:
925: IF l_debug_on THEN
926: WSH_DEBUG_SV.log(l_module_name,'After Log_Exception l_return_status',l_return_status);
927: END IF;
928:
929: wsh_util_core.api_post_call(
930: p_return_status => l_return_status,
946:
947: --Check for Shipping Control - Starts
948:
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.log(l_module_name,'p_line_rec shipping_control is ',p_line_rec.shipping_control(p_line_rec_index));
951: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr shipping_control is ',v_dd_attr.shipping_control);
952: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr routing response id is ',v_dd_attr.routing_response_id);
953: END IF;
954:
947: --Check for Shipping Control - Starts
948:
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.log(l_module_name,'p_line_rec shipping_control is ',p_line_rec.shipping_control(p_line_rec_index));
951: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr shipping_control is ',v_dd_attr.shipping_control);
952: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr routing response id is ',v_dd_attr.routing_response_id);
953: END IF;
954:
955:
948:
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.log(l_module_name,'p_line_rec shipping_control is ',p_line_rec.shipping_control(p_line_rec_index));
951: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr shipping_control is ',v_dd_attr.shipping_control);
952: WSH_DEBUG_SV.log(l_module_name,'v_dd_attr routing response id is ',v_dd_attr.routing_response_id);
953: END IF;
954:
955:
956: IF p_line_rec.shipping_control(p_line_rec_index) IS NOT NULL
979: := v_dd_attr.delivery_detail_id;
980: l_del_unassigned := 'Y';
981:
982: IF l_debug_on THEN
983: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
984: END IF;
985:
986: -- Bug 3395410 : Setting the message that needs to be displayed while logging exception.
987:
999: --
1000: -- Debug Statements
1001: --
1002: IF l_debug_on THEN
1003: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1004: END IF;
1005: --
1006: wsh_util_core.api_post_call(
1007: p_return_status => l_return_status,
1028: last_update_date = v_dd_attr.last_update_date;
1029:
1030: IF SQL%ROWCOUNT <> 1 THEN
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT',SQL%ROWCOUNT);
1033: END IF;
1034: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
1035: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1036: RAISE FND_API.G_EXC_ERROR;
1061: last_update_date = v_dd_attr.last_update_date;
1062:
1063: IF SQL%ROWCOUNT <> 1 THEN
1064: IF l_debug_on THEN
1065: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT',SQL%ROWCOUNT);
1066: END IF;
1067: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
1068: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1069: RAISE FND_API.G_EXC_ERROR;
1093: NVL(p_line_rec.Days_late_receipt_allowed(p_line_rec_index),0));
1094:
1095: --J-IB-ANJ
1096: IF l_debug_on THEN
1097: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1098: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1099: WSH_DEBUG_SV.log(l_module_name,'l_Earliest_delivery_Date',l_Earliest_delivery_Date);
1100: WSH_DEBUG_SV.log(l_module_name,'l_latest_delivery_date',l_latest_delivery_date);
1101: END IF;
1094:
1095: --J-IB-ANJ
1096: IF l_debug_on THEN
1097: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1098: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1099: WSH_DEBUG_SV.log(l_module_name,'l_Earliest_delivery_Date',l_Earliest_delivery_Date);
1100: WSH_DEBUG_SV.log(l_module_name,'l_latest_delivery_date',l_latest_delivery_date);
1101: END IF;
1102: -- J-IB-ANJ
1095: --J-IB-ANJ
1096: IF l_debug_on THEN
1097: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1098: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1099: WSH_DEBUG_SV.log(l_module_name,'l_Earliest_delivery_Date',l_Earliest_delivery_Date);
1100: WSH_DEBUG_SV.log(l_module_name,'l_latest_delivery_date',l_latest_delivery_date);
1101: END IF;
1102: -- J-IB-ANJ
1103:
1096: IF l_debug_on THEN
1097: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1098: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1099: WSH_DEBUG_SV.log(l_module_name,'l_Earliest_delivery_Date',l_Earliest_delivery_Date);
1100: WSH_DEBUG_SV.log(l_module_name,'l_latest_delivery_date',l_latest_delivery_date);
1101: END IF;
1102: -- J-IB-ANJ
1103:
1104: IF v_dd_attr.edd <> l_Earliest_delivery_Date OR
1116: -- or latest delivery date is less that the planned arrival date of the tirp stop then
1117: -- an exception gets logged against the trip stop.
1118: --{
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
1121: END IF;
1122:
1123: -- Bug 3395410 : Setting the message that needs to be displayed while logging exception.
1124:
1137: --
1138: -- Debug Statements
1139: --
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1142: END IF;
1143: --
1144: wsh_util_core.api_post_call(
1145: p_return_status => l_return_status,
1157: -- The delivery id is collected to l_tp_del_id array which will be later used to re-calculate
1158: -- the TP dates.
1159: --{
1160: IF l_debug_on THEN
1161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
1162: END IF;
1163:
1164: -- Bug 3395410 : Setting the message that needs to be displayed while logging exception.
1165:
1178: --
1179: -- Debug Statements
1180: --
1181: IF l_debug_on THEN
1182: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1183: END IF;
1184: --
1185: wsh_util_core.api_post_call(
1186: p_return_status => l_return_status,
1214: FND_MESSAGE.SET_TOKEN('NEW_VALUE', to_char(p_line_rec.request_date(p_line_rec_index)));
1215: l_msg := FND_MESSAGE.GET;
1216:
1217: IF l_debug_on THEN
1218: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
1219: END IF;
1220:
1221: Log_Exception(
1222: p_entity_id => V_dd_attr.delivery_detail_id,
1226: p_message => l_msg,
1227: x_return_status => l_return_status);
1228:
1229: IF l_debug_on THEN
1230: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
1231: END IF;
1232:
1233: wsh_util_core.api_post_call(
1234: p_return_status => l_return_status,
1247: p_message => l_msg,
1248: x_return_status => l_return_status);
1249:
1250: IF l_debug_on THEN
1251: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
1252: END IF;
1253:
1254: wsh_util_core.api_post_call(
1255: p_return_status => l_return_status,
1312: l_del_ldd := (NVL(p_line_rec.schedule_ship_date(p_line_rec_index),p_line_rec.request_date(p_line_rec_index)) +
1313: NVL(p_line_rec.Days_late_receipt_allowed(p_line_rec_index),0));
1314:
1315: IF l_debug_on THEN
1316: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1317: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1318: WSH_DEBUG_SV.log(l_module_name,'l_del_edd',l_del_edd);
1319: WSH_DEBUG_SV.log(l_module_name,'l_del_ldd',l_del_ldd);
1320: END IF;*/
1313: NVL(p_line_rec.Days_late_receipt_allowed(p_line_rec_index),0));
1314:
1315: IF l_debug_on THEN
1316: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1317: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1318: WSH_DEBUG_SV.log(l_module_name,'l_del_edd',l_del_edd);
1319: WSH_DEBUG_SV.log(l_module_name,'l_del_ldd',l_del_ldd);
1320: END IF;*/
1321:
1314:
1315: IF l_debug_on THEN
1316: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1317: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1318: WSH_DEBUG_SV.log(l_module_name,'l_del_edd',l_del_edd);
1319: WSH_DEBUG_SV.log(l_module_name,'l_del_ldd',l_del_ldd);
1320: END IF;*/
1321:
1322: IF ((l_dd_info.inventory_item_id is NULL and p_line_rec.inventory_item_id(p_line_rec_index) is NOT NULL )
1315: IF l_debug_on THEN
1316: WSH_DEBUG_SV.log(l_module_name,'Early Receipt allowed',p_line_rec.Days_early_receipt_allowed(p_line_rec_index));
1317: WSH_DEBUG_SV.log(l_module_name,'Late Receipt Allowed',p_line_rec.Days_late_receipt_allowed(p_line_rec_index));
1318: WSH_DEBUG_SV.log(l_module_name,'l_del_edd',l_del_edd);
1319: WSH_DEBUG_SV.log(l_module_name,'l_del_ldd',l_del_ldd);
1320: END IF;*/
1321:
1322: IF ((l_dd_info.inventory_item_id is NULL and p_line_rec.inventory_item_id(p_line_rec_index) is NOT NULL )
1323: OR (l_dd_info.inventory_item_id <> p_line_rec.inventory_item_id(p_line_rec_index)) ) THEN
1534:
1535: IF l_tp_del_id.COUNT > 0 THEN
1536: -- Call TP API for the list of delivery id's in l_tp_del_id.
1537: IF l_debug_on THEN
1538: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
1539: END IF;
1540:
1541: WSH_TP_RELEASE.calculate_cont_del_tpdates(
1542: p_entity => 'DLVY',
1570:
1571:
1572:
1573: IF l_debug_on THEN
1574: WSH_DEBUG_SV.log(l_module_name,'l_del_fgt_terms_tbl count is ' || l_del_fgt_terms_tbl.COUNT);
1575: END IF;
1576:
1577: IF l_del_fgt_terms_tbl.COUNT > 0 THEN
1578: --update the freight terms of delivery
1576:
1577: IF l_del_fgt_terms_tbl.COUNT > 0 THEN
1578: --update the freight terms of delivery
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS. update_freight_terms',WSH_DEBUG_SV.C_PROC_LEVEL);
1581: END IF;
1582:
1583: FOR i in 1..l_del_fgt_terms_tbl.COUNT LOOP
1584: WSH_NEW_DELIVERY_ACTIONS. update_freight_terms
1598: --}
1599: END IF;
1600: --
1601: IF l_debug_on THEN
1602: WSH_DEBUG_SV.log(l_module_name,'l_shippingControlTurnedOn',l_shippingControlTurnedOn);
1603: END IF;
1604: --
1605: IF l_shippingControlTurnedOn THEN
1606: --{
1607: l_action_prms.caller := 'PO_INTG';
1608: /*
1609: --
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_IB_TXN_MATCH_PKG.handlePriorReceipts',WSH_DEBUG_SV.C_PROC_LEVEL);
1612: END IF;
1613: --
1614: --
1615: WSH_IB_TXN_MATCH_PKG.handlePriorReceipts
1620: );
1621: --
1622: --
1623: IF l_debug_on THEN
1624: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1626: END IF;
1627: --
1628: wsh_util_core.api_post_call
1621: --
1622: --
1623: IF l_debug_on THEN
1624: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1626: END IF;
1627: --
1628: wsh_util_core.api_post_call
1629: (
1639: --
1640: -- Debug Statements
1641: --
1642: IF l_debug_on THEN
1643: WSH_DEBUG_SV.pop(l_module_name);
1644: END IF;
1645: --
1646: IF l_num_errors > 0 THEN
1647: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1660: --
1661: -- Debug Statements
1662: --
1663: IF l_debug_on THEN
1664: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
1666: END IF;
1667: WHEN FND_API.G_EXC_ERROR THEN
1668: ROLLBACK TO Update_dd_Attributes_PVT;
1661: -- Debug Statements
1662: --
1663: IF l_debug_on THEN
1664: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
1666: END IF;
1667: WHEN FND_API.G_EXC_ERROR THEN
1668: ROLLBACK TO Update_dd_Attributes_PVT;
1669: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1672: --
1673: -- Debug Statements
1674: --
1675: IF l_debug_on THEN
1676: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1677: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1678: END IF;
1679: --
1680: WHEN OTHERS THEN
1673: -- Debug Statements
1674: --
1675: IF l_debug_on THEN
1676: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1677: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1678: END IF;
1679: --
1680: WHEN OTHERS THEN
1681: ROLLBACK TO Update_dd_Attributes_PVT;
1685: --
1686: -- Debug Statements
1687: --
1688: IF l_debug_on THEN
1689: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1690: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1691: END IF;
1692: --
1693: END Update_dd_Attributes;
1686: -- Debug Statements
1687: --
1688: IF l_debug_on THEN
1689: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1690: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1691: END IF;
1692: --
1693: END Update_dd_Attributes;
1694:
1998: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1999: --
2000: IF l_debug_on IS NULL
2001: THEN
2002: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2003: END IF;
2004: --
2005: --
2006: -- Debug Statements
2005: --
2006: -- Debug Statements
2007: --
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.push(l_module_name);
2010: END IF;
2011: --
2012: SAVEPOINT Update_Quantity_PVT;
2013:
2060: l_inventory_item_id := NULL;
2061: --
2062:
2063: IF l_debug_on THEN
2064: WSH_DEBUG_SV.log(l_module_name,'i',i);
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2061: --
2062:
2063: IF l_debug_on THEN
2064: WSH_DEBUG_SV.log(l_module_name,'i',i);
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2062:
2063: IF l_debug_on THEN
2064: WSH_DEBUG_SV.log(l_module_name,'i',i);
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2063: IF l_debug_on THEN
2064: WSH_DEBUG_SV.log(l_module_name,'i',i);
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2071: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity_uom2',p_line_rec.ordered_quantity_uom2(i));
2064: WSH_DEBUG_SV.log(l_module_name,'i',i);
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2071: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity_uom2',p_line_rec.ordered_quantity_uom2(i));
2072: END IF;
2065: WSH_DEBUG_SV.log(l_module_name,'header_id',p_line_rec.header_id(i));
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2071: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity_uom2',p_line_rec.ordered_quantity_uom2(i));
2072: END IF;
2073: -- get the source requested quantity for the line location.
2066: WSH_DEBUG_SV.log(l_module_name,'line_id',p_line_rec.line_id(i));
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2071: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity_uom2',p_line_rec.ordered_quantity_uom2(i));
2072: END IF;
2073: -- get the source requested quantity for the line location.
2074:
2067: WSH_DEBUG_SV.log(l_module_name,'po_shipment_line_id',p_line_rec.po_shipment_line_id(i));
2068: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_line_rec.ordered_quantity(i));
2069: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_line_rec.order_quantity_uom(i));
2070: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_line_rec.ordered_quantity2(i));
2071: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity_uom2',p_line_rec.ordered_quantity_uom2(i));
2072: END IF;
2073: -- get the source requested quantity for the line location.
2074:
2075: OPEN c_src_qty(p_line_rec.po_shipment_line_id(i),p_line_rec.header_id(i),
2082: l_ratio := p_line_rec.ordered_quantity2(i)/p_line_rec.ordered_quantity(i); --HACMS
2083: l_ratio_tbl(i) := l_ratio;
2084:
2085: IF l_debug_on THEN
2086: WSH_DEBUG_SV.log(l_module_name,'l_src_qty', l_src_qty);
2087: WSH_DEBUG_SV.log(l_module_name,'l_src_qty2', l_src_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2083: l_ratio_tbl(i) := l_ratio;
2084:
2085: IF l_debug_on THEN
2086: WSH_DEBUG_SV.log(l_module_name,'l_src_qty', l_src_qty);
2087: WSH_DEBUG_SV.log(l_module_name,'l_src_qty2', l_src_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2084:
2085: IF l_debug_on THEN
2086: WSH_DEBUG_SV.log(l_module_name,'l_src_qty', l_src_qty);
2087: WSH_DEBUG_SV.log(l_module_name,'l_src_qty2', l_src_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2086: WSH_DEBUG_SV.log(l_module_name,'l_src_qty', l_src_qty);
2087: WSH_DEBUG_SV.log(l_module_name,'l_src_qty2', l_src_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2093: WSH_DEBUG_SV.log(l_module_name,'l_ratio_tbl(i)',l_ratio_tbl(i));
2094: --HACMS }
2087: WSH_DEBUG_SV.log(l_module_name,'l_src_qty2', l_src_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2093: WSH_DEBUG_SV.log(l_module_name,'l_ratio_tbl(i)',l_ratio_tbl(i));
2094: --HACMS }
2095: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.action_code', p_action_prms.action_code);
2088: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_uom',l_src_qty_uom);
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2093: WSH_DEBUG_SV.log(l_module_name,'l_ratio_tbl(i)',l_ratio_tbl(i));
2094: --HACMS }
2095: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.action_code', p_action_prms.action_code);
2096: END IF;
2089: --HACMS {
2090: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2093: WSH_DEBUG_SV.log(l_module_name,'l_ratio_tbl(i)',l_ratio_tbl(i));
2094: --HACMS }
2095: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.action_code', p_action_prms.action_code);
2096: END IF;
2097:
2091: WSH_DEBUG_SV.log(l_module_name,'l_inventory_item_id',l_inventory_item_id);
2092: WSH_DEBUG_SV.log(l_module_name,'l_ratio',l_ratio);
2093: WSH_DEBUG_SV.log(l_module_name,'l_ratio_tbl(i)',l_ratio_tbl(i));
2094: --HACMS }
2095: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.action_code', p_action_prms.action_code);
2096: END IF;
2097:
2098:
2099: IF l_src_qty IS NOT NULL AND p_action_prms.action_code = 'REAPPROVE_PO'
2099: IF l_src_qty IS NOT NULL AND p_action_prms.action_code = 'REAPPROVE_PO'
2100: THEN
2101: --{
2102: IF l_debug_on THEN
2103: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.ordered_quantity(i)',p_line_rec.ordered_quantity(i));
2104: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.order_quantity_uom(i)',p_line_rec.order_quantity_uom(i));
2105: END IF;
2106: -- Check if ordered_quantity is different from source_requested_quantity or
2107: -- ordered_quantity_uom is different from source_requested_quantity_uom.
2100: THEN
2101: --{
2102: IF l_debug_on THEN
2103: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.ordered_quantity(i)',p_line_rec.ordered_quantity(i));
2104: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.order_quantity_uom(i)',p_line_rec.order_quantity_uom(i));
2105: END IF;
2106: -- Check if ordered_quantity is different from source_requested_quantity or
2107: -- ordered_quantity_uom is different from source_requested_quantity_uom.
2108: IF (p_line_rec.ordered_quantity(i) <> l_src_qty OR
2113: -- call the WSH_INBOUND_UTIL_PKG.convert_quantity API to find the actual qty
2114: -- that needs to be chagned in ordered uom.
2115: -- This is done only if inventory item id is not null.
2116: IF l_debug_on THEN
2117: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.convert_quantity',WSH_DEBUG_SV.C_PROC_LEVEL);
2118: END IF;
2119:
2120: WSH_INBOUND_UTIL_PKG.convert_quantity(
2121: p_inv_item_id => p_line_rec.inventory_item_id(i),
2126: x_conv_qty => l_src_qty_to_change,
2127: x_return_status => l_return_status);
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2131: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_to_change',l_src_qty_to_change);
2132: END IF;
2133:
2134: wsh_util_core.api_post_call(
2127: x_return_status => l_return_status);
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2131: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_to_change',l_src_qty_to_change);
2132: END IF;
2133:
2134: wsh_util_core.api_post_call(
2135: p_return_status => l_return_status,
2138:
2139:
2140: l_qty_to_change_ord_uom := abs(p_line_rec.ordered_quantity(i) - l_src_qty_to_change);
2141: IF l_debug_on THEN
2142: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change_ord_uom',l_qty_to_change_ord_uom);
2143: END IF;
2144: -- Call WSH_INBOUND_UTIL_PKG.convert_quantity to convert the ordered qty to base uom .
2145:
2146: IF l_debug_on THEN
2143: END IF;
2144: -- Call WSH_INBOUND_UTIL_PKG.convert_quantity to convert the ordered qty to base uom .
2145:
2146: IF l_debug_on THEN
2147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.convert_quantity',WSH_DEBUG_SV.C_PROC_LEVEL);
2148: END IF;
2149: WSH_INBOUND_UTIL_PKG.convert_quantity(
2150: p_inv_item_id => p_line_rec.inventory_item_id(i),
2151: p_organization_id => p_line_rec.organization_id(i),
2155: x_conv_qty => l_qty_to_change,
2156: x_return_status => l_return_status);
2157:
2158: IF l_debug_on THEN
2159: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status,l_qty_to_change',l_return_status||','||l_qty_to_change);
2160: END IF;
2161: wsh_util_core.api_post_call(
2162: p_return_status => l_return_status,
2163: x_num_warnings => l_num_warnings,
2174:
2175: ELSE
2176: --One time item i.e if inventory_item_id is null
2177: IF l_debug_on THEN
2178: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.convert_quantity',WSH_DEBUG_SV.C_PROC_LEVEL);
2179: END IF;
2180:
2181: WSH_INBOUND_UTIL_PKG.convert_quantity(
2182: p_inv_item_id => p_line_rec.inventory_item_id(i),
2187: x_conv_qty => l_src_qty_to_change,
2188: x_return_status => l_return_status);
2189:
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2192: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_to_change',l_src_qty_to_change);
2193: END IF;
2194:
2195: wsh_util_core.api_post_call(
2188: x_return_status => l_return_status);
2189:
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2192: WSH_DEBUG_SV.log(l_module_name,'l_src_qty_to_change',l_src_qty_to_change);
2193: END IF;
2194:
2195: wsh_util_core.api_post_call(
2196: p_return_status => l_return_status,
2207: l_case := 'INCREMENT';
2208: END IF;--Finding Case of Increment/Decrement.
2209:
2210: IF l_debug_on THEN
2211: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2212: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty_uom',l_new_req_qty_uom);
2213: END IF;
2214: END IF;
2215: --HACMS }
2208: END IF;--Finding Case of Increment/Decrement.
2209:
2210: IF l_debug_on THEN
2211: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2212: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty_uom',l_new_req_qty_uom);
2213: END IF;
2214: END IF;
2215: --HACMS }
2216:
2235: END IF;
2236: --}
2237:
2238: IF l_debug_on THEN
2239: WSH_DEBUG_SV.log(l_module_name,'l_insert_new_dd', l_insert_new_dd);
2240: WSH_DEBUG_SV.log(l_module_name,'l_case', l_case);
2241: END IF;
2242:
2243: IF l_case = 'DECREMENT' THEN
2236: --}
2237:
2238: IF l_debug_on THEN
2239: WSH_DEBUG_SV.log(l_module_name,'l_insert_new_dd', l_insert_new_dd);
2240: WSH_DEBUG_SV.log(l_module_name,'l_case', l_case);
2241: END IF;
2242:
2243: IF l_case = 'DECREMENT' THEN
2244: --{
2247:
2248: FOR v_lines_without_rr IN c_lines_without_rr(p_line_rec.po_shipment_line_id(i),p_line_rec.header_id(i),p_line_rec.line_id(i))
2249: LOOP
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2252: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.qty', v_lines_without_rr.qty);
2253: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.delivery_detail_id', v_lines_without_rr.delivery_detail_id);
2254: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.last_update_date', v_lines_without_rr.last_update_date);
2255: END IF;
2248: FOR v_lines_without_rr IN c_lines_without_rr(p_line_rec.po_shipment_line_id(i),p_line_rec.header_id(i),p_line_rec.line_id(i))
2249: LOOP
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2252: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.qty', v_lines_without_rr.qty);
2253: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.delivery_detail_id', v_lines_without_rr.delivery_detail_id);
2254: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.last_update_date', v_lines_without_rr.last_update_date);
2255: END IF;
2256:
2249: LOOP
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2252: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.qty', v_lines_without_rr.qty);
2253: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.delivery_detail_id', v_lines_without_rr.delivery_detail_id);
2254: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.last_update_date', v_lines_without_rr.last_update_date);
2255: END IF;
2256:
2257: --HACMS {
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2252: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.qty', v_lines_without_rr.qty);
2253: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.delivery_detail_id', v_lines_without_rr.delivery_detail_id);
2254: WSH_DEBUG_SV.log(l_module_name,' v_lines_without_rr.last_update_date', v_lines_without_rr.last_update_date);
2255: END IF;
2256:
2257: --HACMS {
2258: l_requested_quantity:=v_lines_without_rr.qty;
2271: x_conv_qty => l_requested_quantity,
2272: x_return_status => l_return_status);
2273:
2274: IF l_debug_on THEN
2275: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2276: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity',l_requested_quantity);
2277: END IF;
2278: END IF;
2279: --HACMS }
2272: x_return_status => l_return_status);
2273:
2274: IF l_debug_on THEN
2275: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2276: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity',l_requested_quantity);
2277: END IF;
2278: END IF;
2279: --HACMS }
2280:
2305: l_remaining_qty := temp_qty;
2306: END IF;
2307:
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2310: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2311: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2312: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2313: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2306: END IF;
2307:
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2310: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2311: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2312: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2313: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2314: END IF;
2307:
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2310: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2311: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2312: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2313: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2314: END IF;
2315:
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2310: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2311: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2312: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2313: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2314: END IF;
2315:
2316: --Collecting the list of delviery_detail_ids if the req qty is not
2309: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2310: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2311: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2312: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2313: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2314: END IF;
2315:
2316: --Collecting the list of delviery_detail_ids if the req qty is not
2317: --updated to 0.
2354: last_update_date = v_lines_without_rr.last_update_date;
2355:
2356:
2357: IF l_debug_on THEN
2358: WSH_DEBUG_SV.log(l_module_name,'Line Updated in wsh_delivery_details',sql%rowcount);
2359: END IF;
2360:
2361: IF SQL%ROWCOUNT <> 1 THEN
2362: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
2369: -- Update of wsh_delivery_details where requested_quantity/released_status
2370: -- are changed, call DBI API after the update.
2371: -- This API will also check for DBI Installed or not
2372: IF l_debug_on THEN
2373: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',v_lines_without_rr.delivery_detail_id);
2374: END IF;
2375: l_detail_tab(1) := v_lines_without_rr.delivery_detail_id;
2376: WSH_INTEGRATION.DBI_Update_Detail_Log
2377: (p_delivery_detail_id_tab => l_detail_tab,
2378: p_dml_type => 'UPDATE',
2379: x_return_status => l_dbi_rs);
2380:
2381: IF l_debug_on THEN
2382: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2383: END IF;
2384: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2385: -- just pass this return status to caller API
2386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2396: -- if lines with null routing request is not available, then
2397: -- the qty change is applied to lines with routing request.
2398: --{
2399: IF l_debug_on THEN
2400: WSH_DEBUG_SV.logmsg(l_module_name,'For l_remaining_qty <> 0');
2401: END IF;
2402:
2403: l_qty_to_change := l_remaining_qty;
2404:
2418: l_sf_differs := '1';
2419: END IF;
2420:
2421: IF l_debug_on THEN
2422: WSH_DEBUG_SV.log(l_module_name,'l_sf_differs',l_sf_differs);
2423: END IF;
2424: -- The cursor c_lines_with_rr fetches delivery_details in the order of
2425: -- latest earliest_pickup_date.
2426: FOR v_lines_with_rr IN c_lines_with_rr(p_line_rec.po_shipment_line_id(i),p_line_rec.header_id(i),p_line_rec.line_id(i))
2426: FOR v_lines_with_rr IN c_lines_with_rr(p_line_rec.po_shipment_line_id(i),p_line_rec.header_id(i),p_line_rec.line_id(i))
2427: LOOP--Start loop for processing lines with Routing Request
2428:
2429: IF l_debug_on THEN
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Start loop for processing lines with Routing Request');
2431: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2432: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.qty', v_lines_with_rr.qty);
2433: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.delivery_detail_id', v_lines_with_rr.delivery_detail_id);
2434: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.last_update_date', v_lines_with_rr.last_update_date);
2427: LOOP--Start loop for processing lines with Routing Request
2428:
2429: IF l_debug_on THEN
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Start loop for processing lines with Routing Request');
2431: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2432: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.qty', v_lines_with_rr.qty);
2433: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.delivery_detail_id', v_lines_with_rr.delivery_detail_id);
2434: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.last_update_date', v_lines_with_rr.last_update_date);
2435: END IF;
2428:
2429: IF l_debug_on THEN
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Start loop for processing lines with Routing Request');
2431: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2432: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.qty', v_lines_with_rr.qty);
2433: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.delivery_detail_id', v_lines_with_rr.delivery_detail_id);
2434: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.last_update_date', v_lines_with_rr.last_update_date);
2435: END IF;
2436:
2429: IF l_debug_on THEN
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Start loop for processing lines with Routing Request');
2431: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2432: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.qty', v_lines_with_rr.qty);
2433: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.delivery_detail_id', v_lines_with_rr.delivery_detail_id);
2434: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.last_update_date', v_lines_with_rr.last_update_date);
2435: END IF;
2436:
2437: --HACMS {
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Start loop for processing lines with Routing Request');
2431: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change',l_qty_to_change);
2432: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.qty', v_lines_with_rr.qty);
2433: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.delivery_detail_id', v_lines_with_rr.delivery_detail_id);
2434: WSH_DEBUG_SV.log(l_module_name,' v_lines_with_rr.last_update_date', v_lines_with_rr.last_update_date);
2435: END IF;
2436:
2437: --HACMS {
2438: l_requested_quantity:=v_lines_with_rr.qty;
2451: x_conv_qty => l_requested_quantity,
2452: x_return_status => l_return_status);
2453:
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2456: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity',l_requested_quantity);
2457: END IF;
2458: END IF;
2459: --HACMS }
2452: x_return_status => l_return_status);
2453:
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2456: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity',l_requested_quantity);
2457: END IF;
2458: END IF;
2459: --HACMS }
2460:
2485: l_remaining_qty := temp_qty;
2486: END IF;
2487:
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2486: END IF;
2487:
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2494: WSH_DEBUG_SV.log(l_module_name,'v_lines_with_rr.delivery_detail_id',v_lines_with_rr.delivery_detail_id);
2487:
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2494: WSH_DEBUG_SV.log(l_module_name,'v_lines_with_rr.delivery_detail_id',v_lines_with_rr.delivery_detail_id);
2495: END IF;
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2494: WSH_DEBUG_SV.log(l_module_name,'v_lines_with_rr.delivery_detail_id',v_lines_with_rr.delivery_detail_id);
2495: END IF;
2496:
2489: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2494: WSH_DEBUG_SV.log(l_module_name,'v_lines_with_rr.delivery_detail_id',v_lines_with_rr.delivery_detail_id);
2495: END IF;
2496:
2497: IF l_sf_differs = '1' OR l_released_status = 'D' THEN
2490: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2491: WSH_DEBUG_SV.log(l_module_name,'l_cancelled_qty',l_cancelled_qty);
2492: WSH_DEBUG_SV.log(l_module_name,'l_released_status',l_released_status);
2493: WSH_DEBUG_SV.log(l_module_name,'l_remaining_qty',l_remaining_qty);
2494: WSH_DEBUG_SV.log(l_module_name,'v_lines_with_rr.delivery_detail_id',v_lines_with_rr.delivery_detail_id);
2495: END IF;
2496:
2497: IF l_sf_differs = '1' OR l_released_status = 'D' THEN
2498: --{
2506: -- Reapproval action to unassign the details from the delivery.
2507: p_dd_id_unassigned(p_dd_id_unassigned.COUNT +1):= v_lines_with_rr.delivery_detail_id;
2508:
2509: IF l_debug_on THEN
2510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
2511: END IF;
2512:
2513: -- Bug 3395410 : Setting the message that needs to be displayed while logging exception.
2514:
2526: --
2527: -- Debug Statements
2528: --
2529: IF l_debug_on THEN
2530: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2531: END IF;
2532: --
2533: wsh_util_core.api_post_call(
2534: p_return_status => x_return_status,
2558: FND_MESSAGE.SET_TOKEN('NEW_VALUE', '-1');
2559: l_msg := FND_MESSAGE.GET;
2560:
2561: IF l_debug_on THEN
2562: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
2563: END IF;
2564: -- Anjana : Changed the v_lines_with_rr.ship_to_location_id to v_lines_with_rr.ship_from_location_id
2565: -- in the log_exception.
2566: Log_Exception(
2571: p_message => l_msg,
2572: x_return_status => l_return_status);
2573:
2574: IF l_debug_on THEN
2575: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
2576: END IF;
2577:
2578: wsh_util_core.api_post_call(
2579: p_return_status => x_return_status,
2617: x_conv_qty => l_conv_pick_qty,
2618: x_return_status => l_return_status);
2619:
2620: IF l_debug_on THEN
2621: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2622: WSH_DEBUG_SV.log(l_module_name,'l_conv_pick_qty',l_conv_pick_qty);
2623: END IF;
2624: --
2625: wsh_util_core.api_post_call(
2618: x_return_status => l_return_status);
2619:
2620: IF l_debug_on THEN
2621: WSH_DEBUG_SV.log(l_module_name,'convert_quantity l_return_status',l_return_status);
2622: WSH_DEBUG_SV.log(l_module_name,'l_conv_pick_qty',l_conv_pick_qty);
2623: END IF;
2624: --
2625: wsh_util_core.api_post_call(
2626: p_return_status => x_return_status,
2666: last_update_date = v_lines_with_rr.last_update_date;
2667:
2668: IF SQL%ROWCOUNT <> 1 THEN
2669: IF l_debug_on THEN
2670: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT',SQL%ROWCOUNT);
2671: END IF;
2672: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
2673: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2674: RAISE FND_API.G_EXC_ERROR;
2679: -- Update of wsh_delivery_details where requested_quantity/released_status
2680: -- are changed, call DBI API after the update.
2681: -- This API will also check for DBI Installed or not
2682: IF l_debug_on THEN
2683: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',v_lines_with_rr.delivery_detail_id);
2684: END IF;
2685: l_detail_tab(1) := v_lines_with_rr.delivery_detail_id;
2686: WSH_INTEGRATION.DBI_Update_Detail_Log
2687: (p_delivery_detail_id_tab => l_detail_tab,
2688: p_dml_type => 'UPDATE',
2689: x_return_status => l_dbi_rs);
2690:
2691: IF l_debug_on THEN
2692: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2693: END IF;
2694: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2695: -- just pass this return status to caller API
2696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2709: l_routing_response_send := 'N';
2710: END IF;
2711:
2712: IF l_debug_on THEN
2713: WSH_DEBUG_SV.log(l_module_name,'l_routing_response_send:',l_routing_response_send);
2714: END IF;
2715:
2716: IF ((l_routing_response_send = 'Y')
2717: OR (v_lines_with_rr.planned_flag in ('Y','F'))) THEN
2724: FND_MESSAGE.SET_TOKEN('NEW_VALUE', l_requested_qty);
2725: l_msg := FND_MESSAGE.GET;
2726:
2727: IF l_debug_on THEN
2728: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
2729: END IF;
2730:
2731: IF (l_routing_response_send = 'Y') THEN
2732: -- Routing response is send.
2739: p_message => l_msg,
2740: x_return_status => l_return_status);
2741:
2742: IF l_debug_on THEN
2743: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
2744: END IF;
2745:
2746: wsh_util_core.api_post_call(
2747: p_return_status => x_return_status,
2758: p_message => l_msg,
2759: x_return_status => l_return_status);
2760:
2761: IF l_debug_on THEN
2762: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
2763: END IF;
2764:
2765: wsh_util_core.api_post_call(
2766: p_return_status => x_return_status,
2775: FND_MESSAGE.SET_TOKEN('DELIVERY',v_lines_with_rr.delivery_id);
2776: l_msg := FND_MESSAGE.GET;
2777:
2778: IF l_debug_on THEN
2779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Log_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
2780: END IF;
2781:
2782: Log_Exception(
2783: p_entity_id => v_lines_with_rr.delivery_id,
2787: p_message => l_msg,
2788: x_return_status => l_return_status);
2789:
2790: IF l_debug_on THEN
2791: WSH_DEBUG_SV.log(l_module_name,'Log_Exception l_return_status',l_return_status);
2792: END IF;
2793: wsh_util_core.api_post_call(
2794: p_return_status => x_return_status,
2795: x_num_warnings => l_num_warnings,
2809:
2810:
2811: ELSE--For increment quantity case.
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.log(l_module_name,'For increment quantity case l_qty_to_change',l_qty_to_change);
2814: END IF;
2815: IF l_qty_to_change > 0 THEN
2816:
2817: --{
2821: FETCH c_dd_count_with_null_rr into l_record_with_null_rr;
2822: CLOSE c_dd_count_with_null_rr;
2823:
2824: IF l_debug_on THEN
2825: WSH_DEBUG_SV.log(l_module_name,'l_record_with_null_rr', l_record_with_null_rr);
2826: END IF;
2827:
2828: IF l_record_with_null_rr >= 1 THEN
2829: -- Increase in Qty is applied only to open delivery details with null
2852: x_num_errors => l_num_errors);
2853:
2854:
2855: IF l_debug_on THEN
2856: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
2857: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2858: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2859: WSH_DEBUG_SV.log(l_module_name,'l_last_update_date',l_last_update_date);
2860: END IF;
2853:
2854:
2855: IF l_debug_on THEN
2856: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
2857: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2858: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2859: WSH_DEBUG_SV.log(l_module_name,'l_last_update_date',l_last_update_date);
2860: END IF;
2861:
2854:
2855: IF l_debug_on THEN
2856: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
2857: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2858: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2859: WSH_DEBUG_SV.log(l_module_name,'l_last_update_date',l_last_update_date);
2860: END IF;
2861:
2862: --HACMS {
2855: IF l_debug_on THEN
2856: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
2857: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty',l_requested_qty);
2858: WSH_DEBUG_SV.log(l_module_name,'l_requested_qty2',l_requested_qty2);
2859: WSH_DEBUG_SV.log(l_module_name,'l_last_update_date',l_last_update_date);
2860: END IF;
2861:
2862: --HACMS {
2863: IF (l_inventory_item_id IS NULL and
2876:
2877: l_requested_qty:=l_tmp_requested_quantity;
2878:
2879: IF l_debug_on THEN
2880: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2881: WSH_DEBUG_SV.log(l_module_name,'After conversion l_requested_qty',l_requested_qty);
2882: END IF;
2883: END IF;
2884: --HACMS }
2877: l_requested_qty:=l_tmp_requested_quantity;
2878:
2879: IF l_debug_on THEN
2880: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2881: WSH_DEBUG_SV.log(l_module_name,'After conversion l_requested_qty',l_requested_qty);
2882: END IF;
2883: END IF;
2884: --HACMS }
2885:
2903: last_update_date = l_last_update_date;
2904:
2905: IF SQL%ROWCOUNT <> 1 THEN
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT',SQL%ROWCOUNT);
2908: END IF;
2909: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
2910: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2911: RAISE FND_API.G_EXC_ERROR;
2917: -- Update of wsh_delivery_details where requested_quantity/released_status
2918: -- are changed, call DBI API after the update.
2919: -- This API will also check for DBI Installed or not
2920: IF l_debug_on THEN
2921: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_delivery_detail_id);
2922: END IF;
2923: l_detail_tab(1) := l_delivery_detail_id;
2924: WSH_INTEGRATION.DBI_Update_Detail_Log
2925: (p_delivery_detail_id_tab => l_detail_tab,
2926: p_dml_type => 'UPDATE',
2927: x_return_status => l_dbi_rs);
2928:
2929: IF l_debug_on THEN
2930: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2931: END IF;
2932: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2933: -- just pass this return status to caller API
2934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: p_line_rec.requested_quantity_uom2(i) := p_line_rec.ordered_quantity_uom2(i);
2946: p_line_rec.tracking_number(i) := null; --Bugfix 3711663
2947:
2948: IF l_debug_on THEN
2949: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change', l_qty_to_change);
2950: END IF;
2951:
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit populate_additional_line_info',WSH_DEBUG_SV.C_PROC_LEVEL);
2949: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change', l_qty_to_change);
2950: END IF;
2951:
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit populate_additional_line_info',WSH_DEBUG_SV.C_PROC_LEVEL);
2954: END IF;
2955:
2956: populate_additional_line_info(
2957: p_line_rec => p_line_rec,
2963: --
2964: -- Debug Statements
2965: --
2966: IF l_debug_on THEN
2967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2968: END IF;
2969: --
2970: wsh_util_core.api_post_call(
2971: p_return_status => l_return_status,
2972: x_num_warnings => l_num_warnings,
2973: x_num_errors => l_num_errors);
2974:
2975: IF l_debug_on THEN
2976: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_change', l_qty_to_change);
2977: END IF;
2978:
2979: -- This is very important. We should use a local action prms
2980: -- otherwise it will overwrite the existing value of action in
2985: --
2986: -- Debug Statements
2987: --
2988: IF l_debug_on THEN
2989: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BULK_PROCESS_PVT.BULK_INSERT_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
2990: END IF;
2991: --
2992: WSH_BULK_PROCESS_PVT.bulk_insert_details (
2993: P_line_rec => P_line_rec,
3000: --
3001: -- Debug Statements
3002: --
3003: IF l_debug_on THEN
3004: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3005: END IF;
3006: --
3007: wsh_util_core.api_post_call(
3008: p_return_status => l_return_status,
3036: -- No delivery detail is present for the corresponding po shipment line id.
3037: -- Need to insert a new record for the line location id.
3038:
3039: IF l_debug_on THEN
3040: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.requested_quantity(i)', p_line_rec.requested_quantity(i));
3041: --WSH_DEBUG_SV.log(l_module_name,'p_line_rec.consolidate_quantity(i)', p_line_rec.consolidate_quantity(i));
3042: END IF;
3043: IF p_action_prms.action_code = 'REAPPROVE_PO' THEN
3044: l_caller := 'WSH-PO-INT';
3037: -- Need to insert a new record for the line location id.
3038:
3039: IF l_debug_on THEN
3040: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.requested_quantity(i)', p_line_rec.requested_quantity(i));
3041: --WSH_DEBUG_SV.log(l_module_name,'p_line_rec.consolidate_quantity(i)', p_line_rec.consolidate_quantity(i));
3042: END IF;
3043: IF p_action_prms.action_code = 'REAPPROVE_PO' THEN
3044: l_caller := 'WSH-PO-INT';
3045: END IF;
3044: l_caller := 'WSH-PO-INT';
3045: END IF;
3046:
3047: IF l_debug_on THEN
3048: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit populate_additional_line_info',WSH_DEBUG_SV.C_PROC_LEVEL);
3049: END IF;
3050: -- populate p_additional_line_info_rec by calling populate_additional_line_info() API.
3051: populate_additional_line_info(
3052: p_line_rec => p_line_rec,
3057: --
3058: -- Debug Statements
3059: --
3060: IF l_debug_on THEN
3061: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3062: END IF;
3063: --
3064: wsh_util_core.api_post_call(
3065: p_return_status => l_return_status,
3069: --
3070: -- Debug Statements
3071: --
3072: IF l_debug_on THEN
3073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BULK_PROCESS_PVT.BULK_INSERT_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
3074: END IF;
3075: --
3076: l_action_prms := p_action_prms;
3077: l_action_prms.org_id := p_line_rec.org_id(i);
3076: l_action_prms := p_action_prms;
3077: l_action_prms.org_id := p_line_rec.org_id(i);
3078: --
3079: IF l_debug_on THEN
3080: WSH_DEBUG_SV.log(l_module_name,' l_action_prms.org_id', l_action_prms.org_id);
3081: END IF;
3082: --
3083: -- Call WSH_BULK_PROCESS_PVT.bulk_insert_details() to insert the record into wsh_delivery_details.
3084: WSH_BULK_PROCESS_PVT.bulk_insert_details (
3092: --
3093: -- Debug Statements
3094: --
3095: IF l_debug_on THEN
3096: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3097: END IF;
3098: --
3099: wsh_util_core.api_post_call(
3100: p_return_status => l_return_status,
3120: x_conv_qty => l_qty_to_change,
3121: x_return_status => l_return_status);
3122:
3123: IF l_debug_on THEN
3124: WSH_DEBUG_SV.log(l_module_name,'convert_quantity Req Qty l_return_status,l_qty_to_change',l_return_status||','||l_qty_to_change);
3125: END IF;
3126:
3127: wsh_util_core.api_post_call(
3128: p_return_status => l_return_status,
3140: x_conv_qty => l_pick_qty,
3141: x_return_status => l_return_status);
3142:
3143: IF l_debug_on THEN
3144: WSH_DEBUG_SV.log(l_module_name,'convert_quantity Pick Qty l_return_status',l_return_status);
3145: WSH_DEBUG_SV.log(l_module_name,'l_pick_qty',l_pick_qty);
3146: END IF;
3147: --
3148: wsh_util_core.api_post_call(
3141: x_return_status => l_return_status);
3142:
3143: IF l_debug_on THEN
3144: WSH_DEBUG_SV.log(l_module_name,'convert_quantity Pick Qty l_return_status',l_return_status);
3145: WSH_DEBUG_SV.log(l_module_name,'l_pick_qty',l_pick_qty);
3146: END IF;
3147: --
3148: wsh_util_core.api_post_call(
3149: p_return_status => x_return_status,
3170: last_update_date = v_lines.last_update_date;
3171:
3172: IF SQL%ROWCOUNT <> 1 THEN
3173: IF l_debug_on THEN
3174: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT',SQL%ROWCOUNT);
3175: END IF;
3176: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_CHANGED');
3177: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
3178: RAISE FND_API.G_EXC_ERROR;
3182: -- Update of wsh_delivery_details where requested_quantity/released_status
3183: -- are changed, call DBI API after the update.
3184: -- This API will also check for DBI Installed or not
3185: IF l_debug_on THEN
3186: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',v_lines.delivery_detail_id);
3187: END IF;
3188: l_detail_tab(1) := v_lines.delivery_detail_id;
3189: WSH_INTEGRATION.DBI_Update_Detail_Log
3190: (p_delivery_detail_id_tab => l_detail_tab,
3191: p_dml_type => 'UPDATE',
3192: x_return_status => l_dbi_rs);
3193:
3194: IF l_debug_on THEN
3195: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3196: END IF;
3197: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3198: -- just pass this return status to caller API
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3247: (p_line_rec.source_blanket_reference_id(i) IS NOT NULL AND source_blanket_reference_id = p_line_rec.source_blanket_reference_id(i))) ;
3248:
3249:
3250: IF l_debug_on THEN
3251: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3252: END IF;
3253: --
3254: END IF;
3255:
3257: p_wt_vol_dd_id.delete;
3258: l_ind := l_dd_ids_dd_ids_cache.FIRST;
3259:
3260: IF l_debug_on THEN
3261: WSH_DEBUG_SV.log(l_module_name,'first-l_ind' ,l_ind);
3262: END IF;
3263:
3264: WHILE l_ind IS NOT NULL
3265: LOOP
3265: LOOP
3266: p_wt_vol_dd_id(p_wt_vol_dd_id.COUNT + 1) := l_dd_ids_dd_ids_cache(l_ind).value;
3267: l_ind := l_dd_ids_dd_ids_cache.NEXT(l_ind);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3270: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3271: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3272: END IF;
3273: END LOOP;
3266: p_wt_vol_dd_id(p_wt_vol_dd_id.COUNT + 1) := l_dd_ids_dd_ids_cache(l_ind).value;
3267: l_ind := l_dd_ids_dd_ids_cache.NEXT(l_ind);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3270: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3271: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3272: END IF;
3273: END LOOP;
3274: l_ind := l_dd_ids_dd_ids_ext_cache.FIRST;
3267: l_ind := l_dd_ids_dd_ids_cache.NEXT(l_ind);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3270: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3271: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3272: END IF;
3273: END LOOP;
3274: l_ind := l_dd_ids_dd_ids_ext_cache.FIRST;
3275: IF l_debug_on THEN
3272: END IF;
3273: END LOOP;
3274: l_ind := l_dd_ids_dd_ids_ext_cache.FIRST;
3275: IF l_debug_on THEN
3276: WSH_DEBUG_SV.log(l_module_name,'first-ext-l_ind' ,l_ind);
3277: END IF;
3278: WHILE l_ind IS NOT NULL
3279: LOOP
3280: p_wt_vol_dd_id(p_wt_vol_dd_id.COUNT + 1) := l_dd_ids_dd_ids_ext_cache(l_ind).value;
3279: LOOP
3280: p_wt_vol_dd_id(p_wt_vol_dd_id.COUNT + 1) := l_dd_ids_dd_ids_ext_cache(l_ind).value;
3281: l_ind := l_dd_ids_dd_ids_ext_cache.NEXT(l_ind);
3282: IF l_debug_on THEN
3283: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3284: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3285: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3286: END IF;
3287: END LOOP;
3280: p_wt_vol_dd_id(p_wt_vol_dd_id.COUNT + 1) := l_dd_ids_dd_ids_ext_cache(l_ind).value;
3281: l_ind := l_dd_ids_dd_ids_ext_cache.NEXT(l_ind);
3282: IF l_debug_on THEN
3283: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3284: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3285: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3286: END IF;
3287: END LOOP;
3288:
3281: l_ind := l_dd_ids_dd_ids_ext_cache.NEXT(l_ind);
3282: IF l_debug_on THEN
3283: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id.count' , p_wt_vol_dd_id.count);
3284: WSH_DEBUG_SV.log(l_module_name,' p_wt_vol_dd_id( p_wt_vol_dd_id.count)' ,p_wt_vol_dd_id( p_wt_vol_dd_id.count));
3285: WSH_DEBUG_SV.log(l_module_name,'l_ind' ,l_ind);
3286: END IF;
3287: END LOOP;
3288:
3289:
3290: --
3291: -- Debug Statements
3292: --
3293: IF l_debug_on THEN
3294: WSH_DEBUG_SV.pop(l_module_name);
3295: END IF;
3296: --
3297: IF l_num_errors > 0 THEN
3298: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3311: --
3312: -- Debug Statements
3313: --
3314: IF l_debug_on THEN
3315: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
3317: END IF;
3318: WHEN FND_API.G_EXC_ERROR THEN
3319: ROLLBACK TO Update_quantity_PVT;
3312: -- Debug Statements
3313: --
3314: IF l_debug_on THEN
3315: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
3317: END IF;
3318: WHEN FND_API.G_EXC_ERROR THEN
3319: ROLLBACK TO Update_quantity_PVT;
3320: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3322: --
3323: -- Debug Statements
3324: --
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3328: END IF;
3329: --
3330: -- Added for DBI Project to handle Unexpected error
3323: -- Debug Statements
3324: --
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3328: END IF;
3329: --
3330: -- Added for DBI Project to handle Unexpected error
3331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3332: ROLLBACK TO Update_quantity_PVT;
3333: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3334: --
3335: IF l_debug_on THEN
3336: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3337: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3338: END IF;
3339: --
3340: -- End of Code Added for DBI Project to handle Unexpected error
3333: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3334: --
3335: IF l_debug_on THEN
3336: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3337: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3338: END IF;
3339: --
3340: -- End of Code Added for DBI Project to handle Unexpected error
3341: WHEN OTHERS THEN
3346: --
3347: -- Debug Statements
3348: --
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3351: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3352: END IF;
3353: --
3354: END Update_Quantity;
3347: -- Debug Statements
3348: --
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3351: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3352: END IF;
3353: --
3354: END Update_Quantity;
3355:
3449: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3450: --
3451: IF l_debug_on IS NULL
3452: THEN
3453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3454: END IF;
3455: --
3456: --
3457: -- Debug Statements
3456: --
3457: -- Debug Statements
3458: --
3459: IF l_debug_on THEN
3460: WSH_DEBUG_SV.push(l_module_name);
3461: END IF;
3462: --
3463: SAVEPOINT cancel_close_PO_PVT;
3464: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3464: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3465:
3466: l_index := p_line_rec.line_id.FIRST;
3467: IF l_debug_on THEN
3468: WSH_DEBUG_SV.log(l_module_name,'action code is :',p_action_prms.action_code);
3469: END IF;
3470:
3471:
3472: WHILE l_index IS NOT NULL
3474: --
3475: -- Debug Statements
3476: --
3477: IF l_debug_on THEN
3478: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PO_CMG_PVT.CHECK_PENDING_TXNS',WSH_DEBUG_SV.C_PROC_LEVEL);
3479: END IF;
3480: --
3481:
3482: --Call to check whether the line has any pending transactions
3520: --
3521: -- Debug Statements
3522: --
3523: IF l_debug_on THEN
3524: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
3525: END IF;
3526:
3527: l_action_prms.caller := wsh_util_core.C_IB_PO_PREFIX;
3528:
3585: -- Update of wsh_delivery_details where requested_quantity/released_status
3586: -- are changed, call DBI API after the update.
3587: -- DBI API will check if DBI is installed
3588: IF l_debug_on THEN
3589: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
3590: END IF;
3591: WSH_INTEGRATION.DBI_Update_Detail_Log
3592: (p_delivery_detail_id_tab => l_detail_tab,
3593: p_dml_type => 'UPDATE',
3593: p_dml_type => 'UPDATE',
3594: x_return_status => l_dbi_rs);
3595:
3596: IF l_debug_on THEN
3597: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3598: END IF;
3599: -- Only Handle Unexpected error
3600: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3601: x_return_status := l_dbi_rs;
3600: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3601: x_return_status := l_dbi_rs;
3602: --
3603: IF l_debug_on THEN
3604: WSH_DEBUG_SV.pop(l_module_name);
3605: END IF;
3606: --
3607: RETURN;
3608: END IF;
3613:
3614: -- Debug Statements
3615: --
3616: IF l_debug_on THEN
3617: WSH_DEBUG_SV.pop(l_module_name);
3618: END IF;
3619: --
3620: IF l_num_errors > 0 THEN
3621: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3634: --
3635: -- Debug Statements
3636: --
3637: IF l_debug_on THEN
3638: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3639: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
3640: END IF;
3641: WHEN FND_API.G_EXC_ERROR THEN
3642: ROLLBACK TO cancel_close_PO_PVT;
3635: -- Debug Statements
3636: --
3637: IF l_debug_on THEN
3638: WSH_DEBUG_SV.logmsg(l_module_name,'e_Wdd_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3639: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_Wdd_locked');
3640: END IF;
3641: WHEN FND_API.G_EXC_ERROR THEN
3642: ROLLBACK TO cancel_close_PO_PVT;
3643: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3646: --
3647: -- Debug Statements
3648: --
3649: IF l_debug_on THEN
3650: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3652: END IF;
3653: --
3654: WHEN OTHERS THEN
3647: -- Debug Statements
3648: --
3649: IF l_debug_on THEN
3650: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3652: END IF;
3653: --
3654: WHEN OTHERS THEN
3655: ROLLBACK TO cancel_close_PO_PVT;
3659: --
3660: -- Debug Statements
3661: --
3662: IF l_debug_on THEN
3663: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3665: END IF;
3666: --
3667: END cancel_close_po;
3660: -- Debug Statements
3661: --
3662: IF l_debug_on THEN
3663: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3665: END IF;
3666: --
3667: END cancel_close_po;
3668:
3712: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3713: --
3714: IF l_debug_on IS NULL
3715: THEN
3716: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3717: END IF;
3718: --
3719: --
3720: -- Debug Statements
3719: --
3720: -- Debug Statements
3721: --
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.push(l_module_name);
3724: END IF;
3725: --
3726: SAVEPOINT REOPEN_PO_PVT;
3727:
3748: -- Update of wsh_delivery_details where requested_quantity/released_status
3749: -- are changed, call DBI API after the update.
3750: -- DBI API will check if DBI is installed
3751: IF l_debug_on THEN
3752: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
3753: END IF;
3754: WSH_INTEGRATION.DBI_Update_Detail_Log
3755: (p_delivery_detail_id_tab => l_detail_tab,
3756: p_dml_type => 'UPDATE',
3756: p_dml_type => 'UPDATE',
3757: x_return_status => l_dbi_rs);
3758:
3759: IF l_debug_on THEN
3760: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3761: END IF;
3762: -- Only Handle Unexpected error
3763: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3764: x_return_status := l_dbi_rs;
3764: x_return_status := l_dbi_rs;
3765: --
3766: ROLLBACK TO REOPEN_PO_PVT;
3767: IF l_debug_on THEN
3768: WSH_DEBUG_SV.pop(l_module_name);
3769: END IF;
3770: --
3771: RETURN; -- just pass this return status back to caller API
3772: END IF;
3781: --
3782: -- Debug Statements
3783: --
3784: IF l_debug_on THEN
3785: WSH_DEBUG_SV.pop(l_module_name);
3786: END IF;
3787: --
3788:
3789: EXCEPTION
3795: --
3796: -- Debug Statements
3797: --
3798: IF l_debug_on THEN
3799: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3801: END IF;
3802: --
3803: END Reopen_po;
3796: -- Debug Statements
3797: --
3798: IF l_debug_on THEN
3799: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3801: END IF;
3802: --
3803: END Reopen_po;
3804:
3863: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3864: --
3865: IF l_debug_on IS NULL
3866: THEN
3867: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3868: END IF;
3869: --
3870: --
3871: -- Debug Statements
3870: --
3871: -- Debug Statements
3872: --
3873: IF l_debug_on THEN
3874: WSH_DEBUG_SV.push(l_module_name);
3875: --
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3872: --
3873: IF l_debug_on THEN
3874: WSH_DEBUG_SV.push(l_module_name);
3875: --
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3879: WSH_DEBUG_SV.log(l_module_name,'p_location_id',p_location_id);
3880: WSH_DEBUG_SV.log(l_module_name,'p_message',p_message);
3873: IF l_debug_on THEN
3874: WSH_DEBUG_SV.push(l_module_name);
3875: --
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3879: WSH_DEBUG_SV.log(l_module_name,'p_location_id',p_location_id);
3880: WSH_DEBUG_SV.log(l_module_name,'p_message',p_message);
3881: END IF;
3874: WSH_DEBUG_SV.push(l_module_name);
3875: --
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3879: WSH_DEBUG_SV.log(l_module_name,'p_location_id',p_location_id);
3880: WSH_DEBUG_SV.log(l_module_name,'p_message',p_message);
3881: END IF;
3882: --
3875: --
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3879: WSH_DEBUG_SV.log(l_module_name,'p_location_id',p_location_id);
3880: WSH_DEBUG_SV.log(l_module_name,'p_message',p_message);
3881: END IF;
3882: --
3883: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3876: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3877: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
3878: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
3879: WSH_DEBUG_SV.log(l_module_name,'p_location_id',p_location_id);
3880: WSH_DEBUG_SV.log(l_module_name,'p_message',p_message);
3881: END IF;
3882: --
3883: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3884:
3886: --
3887: -- Debug Statements
3888: --
3889: IF l_debug_on THEN
3890: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXCEPTIONS_GRP.GET_EXCEPTIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
3891: END IF;
3892: --
3893: -- anviswan
3894: -- making use of WSH_EXCEPTIONS_GRP.Get_exceptions() instead of WSH_EXCEPTIONS_PUB.Get_exceptions()
3912: --
3913: -- Debug Statements
3914: --
3915: IF l_debug_on THEN
3916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXCEPTIONS_GRP.GET_EXCEPTIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
3917: END IF;
3918: --
3919: -- anviswan
3920: -- making use of WSH_EXCEPTIONS_GRP.Get_exceptions() instead of WSH_EXCEPTIONS_PUB.Get_exceptions()
3939: FOR i IN 1..l_exceptions_tab.COUNT
3940: LOOP
3941: --HACMS {
3942: IF l_debug_on THEN
3943: WSH_DEBUG_SV.log(l_module_name,'exception_name',l_exceptions_tab(i).exception_name);
3944: WSH_DEBUG_SV.log(l_module_name,'status',l_exceptions_tab(i).status);
3945: END IF;
3946: --HACMS }
3947:
3940: LOOP
3941: --HACMS {
3942: IF l_debug_on THEN
3943: WSH_DEBUG_SV.log(l_module_name,'exception_name',l_exceptions_tab(i).exception_name);
3944: WSH_DEBUG_SV.log(l_module_name,'status',l_exceptions_tab(i).status);
3945: END IF;
3946: --HACMS }
3947:
3948: IF (l_exceptions_tab(i).exception_name = p_exception_name
3954: END IF;
3955:
3956:
3957: IF l_debug_on THEN
3958: WSH_DEBUG_SV.log(l_module_name,'l_exception_exists',l_exception_exists);
3959: END IF;
3960:
3961:
3962: IF (l_exception_exists = 'N') THEN
3974: l_msg := FND_MESSAGE.GET;
3975: END IF;
3976: */
3977: IF l_debug_on THEN
3978: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
3979: END IF;
3980: --
3981: wsh_xc_util.log_exception(
3982: p_api_version => 1.0,
4008: --
4009: -- Debug Statements
4010: --
4011: IF l_debug_on THEN
4012: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
4013: END IF;
4014: --
4015: wsh_xc_util.log_exception(
4016: p_api_version => 1.0,
4055: p_delivery_detail_id => p_entity_id,
4056: p_error_message => l_exception_error_message);
4057:
4058: IF l_debug_on THEN
4059: WSH_DEBUG_SV.log(l_module_name,'wsh_xc_util.log_exception l_return_status',l_return_status);
4060: END IF;
4061: wsh_util_core.api_post_call(
4062: p_return_status => l_return_status,
4063: x_num_warnings => l_num_warnings,
4062: p_return_status => l_return_status,
4063: x_num_warnings => l_num_warnings,
4064: x_num_errors => l_num_errors);
4065: IF l_debug_on THEN
4066: WSH_DEBUG_SV.logmsg(l_module_name,'after wsh_util_core.api_post_call');
4067: END IF;
4068: END IF;
4069: --HACMS }
4070:
4068: END IF;
4069: --HACMS }
4070:
4071: IF l_debug_on THEN
4072: WSH_DEBUG_SV.pop(l_module_name);
4073: END IF;
4074: --
4075: IF l_num_errors > 0 THEN
4076: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4086: --
4087: -- Debug Statements
4088: --
4089: IF l_debug_on THEN
4090: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4092: END IF;
4093: --
4094: WHEN OTHERS THEN
4087: -- Debug Statements
4088: --
4089: IF l_debug_on THEN
4090: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4092: END IF;
4093: --
4094: WHEN OTHERS THEN
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4098: --
4099: -- Debug Statements
4100: --
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4104: END IF;
4105: --
4106: END Log_Exception;
4099: -- Debug Statements
4100: --
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4104: END IF;
4105: --
4106: END Log_Exception;
4107:
4183: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4184: --
4185: IF l_debug_on IS NULL
4186: THEN
4187: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4188: END IF;
4189: --
4190: --
4191: -- Debug Statements
4190: --
4191: -- Debug Statements
4192: --
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: --
4196: WSH_DEBUG_SV.log(l_module_name,'P_HEADER_ID',P_HEADER_ID);
4197: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID',P_LINE_ID);
4198: WSH_DEBUG_SV.log(l_module_name,'P_LINE_LOCATION_ID',P_LINE_LOCATION_ID);
4192: --
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: --
4196: WSH_DEBUG_SV.log(l_module_name,'P_HEADER_ID',P_HEADER_ID);
4197: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID',P_LINE_ID);
4198: WSH_DEBUG_SV.log(l_module_name,'P_LINE_LOCATION_ID',P_LINE_LOCATION_ID);
4199: WSH_DEBUG_SV.log(l_module_name,'P_RELEASE_ID',P_RELEASE_ID);
4200: END IF;
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: --
4196: WSH_DEBUG_SV.log(l_module_name,'P_HEADER_ID',P_HEADER_ID);
4197: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID',P_LINE_ID);
4198: WSH_DEBUG_SV.log(l_module_name,'P_LINE_LOCATION_ID',P_LINE_LOCATION_ID);
4199: WSH_DEBUG_SV.log(l_module_name,'P_RELEASE_ID',P_RELEASE_ID);
4200: END IF;
4201: --
4194: WSH_DEBUG_SV.push(l_module_name);
4195: --
4196: WSH_DEBUG_SV.log(l_module_name,'P_HEADER_ID',P_HEADER_ID);
4197: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID',P_LINE_ID);
4198: WSH_DEBUG_SV.log(l_module_name,'P_LINE_LOCATION_ID',P_LINE_LOCATION_ID);
4199: WSH_DEBUG_SV.log(l_module_name,'P_RELEASE_ID',P_RELEASE_ID);
4200: END IF;
4201: --
4202: OPEN c_pending_txns(p_header_id,p_line_id ,p_line_location_id ,p_release_id);
4195: --
4196: WSH_DEBUG_SV.log(l_module_name,'P_HEADER_ID',P_HEADER_ID);
4197: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID',P_LINE_ID);
4198: WSH_DEBUG_SV.log(l_module_name,'P_LINE_LOCATION_ID',P_LINE_LOCATION_ID);
4199: WSH_DEBUG_SV.log(l_module_name,'P_RELEASE_ID',P_RELEASE_ID);
4200: END IF;
4201: --
4202: OPEN c_pending_txns(p_header_id,p_line_id ,p_line_location_id ,p_release_id);
4203: FETCH c_pending_txns INTO l_pending_txns;
4207: --
4208: -- Debug Statements
4209: --
4210: IF l_debug_on THEN
4211: WSH_DEBUG_SV.pop(l_module_name);
4212: END IF;
4213: --
4214: RETURN 0;--No Pending Transactions.
4215:
4218: --
4219: -- Debug Statements
4220: --
4221: IF l_debug_on THEN
4222: WSH_DEBUG_SV.pop(l_module_name);
4223: END IF;
4224: --
4225: RETURN 1;--Transactions are Pending to be Matched.
4226:
4234: --
4235: -- Debug Statements
4236: --
4237: IF l_debug_on THEN
4238: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4239: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4240: END IF;
4241: --
4242: END check_pending_txns;
4235: -- Debug Statements
4236: --
4237: IF l_debug_on THEN
4238: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4239: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4240: END IF;
4241: --
4242: END check_pending_txns;
4243:
4305: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4306: --
4307: IF l_debug_on IS NULL
4308: THEN
4309: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4310: END IF;
4311: --
4312: --
4313: -- Debug Statements
4312: --
4313: -- Debug Statements
4314: --
4315: IF l_debug_on THEN
4316: WSH_DEBUG_SV.push(l_module_name);
4317: --
4318: WSH_DEBUG_SV.log(l_module_name,'P_INDEX',P_INDEX);
4319: END IF;
4320: --
4314: --
4315: IF l_debug_on THEN
4316: WSH_DEBUG_SV.push(l_module_name);
4317: --
4318: WSH_DEBUG_SV.log(l_module_name,'P_INDEX',P_INDEX);
4319: END IF;
4320: --
4321: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4322:
4323: --
4324: -- Debug Statements
4325: --
4326: IF l_debug_on THEN
4327: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.GET_DFF_DEFAULTS',WSH_DEBUG_SV.C_PROC_LEVEL);
4328: END IF;
4329: --
4330: WSH_FLEXFIELD_UTILS.Get_DFF_Defaults
4331: (p_flexfield_name => 'WSH_DELIVERY_DETAILS',
4338: --
4339: -- Debug Statements
4340: --
4341: IF l_debug_on THEN
4342: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
4343: END IF;
4344: --
4345: Wsh_util_core.api_post_call(
4346: p_return_status => x_return_status,
4407: p_line_rec.shipped_quantity2(p_index) := NULL;
4408: p_line_rec.received_quantity2(p_index) := NULL;
4409:
4410: IF l_debug_on THEN
4411: WSH_DEBUG_SV.log(l_module_name,'p_caller is :',p_caller);
4412: END IF;
4413:
4414: IF nvl(p_caller,'!!!') <> 'WSH-PO-INT' THEN
4415: -- Need to calculate the wt and volume before inserting record into wdd.
4415: -- Need to calculate the wt and volume before inserting record into wdd.
4416: -- This is done only if the call is being made from ASN/Receipt.
4417:
4418: IF l_debug_on THEN
4419: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.Calculate_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
4420: END IF;
4421:
4422: Calculate_Wt_Vol(p_line_rec => p_line_rec,
4423: p_index => l_index,
4423: p_index => l_index,
4424: x_return_status => l_return_status);
4425:
4426: IF l_debug_on THEN
4427: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
4428: END IF;
4429:
4430: wsh_util_core.api_post_call(
4431: p_return_status => l_return_status,
4439: P_line_rec.request_date(p_index) := p_line_rec.schedule_ship_date(p_index);
4440: END IF;*/
4441:
4442: IF l_debug_on THEN
4443: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.WSH_SUPPLIER_PARTY',WSH_DEBUG_SV.C_PROC_LEVEL);
4444: END IF;
4445: l_vendor_party_exists := WSH_SUPPLIER_PARTY.VENDOR_PARTY_EXISTS(
4446: p_vendor_id => p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST),
4447: x_party_id => p_line_rec.vendor_party_id(p_index));
4446: p_vendor_id => p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST),
4447: x_party_id => p_line_rec.vendor_party_id(p_index));
4448:
4449: IF l_debug_on THEN
4450: WSH_DEBUG_SV.logmsg(l_module_name,'After calling VENDOR_PARTY_EXISTS');
4451: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_exists', l_vendor_party_exists);
4452: END IF;
4453:
4454: IF l_vendor_party_exists = 'N' THEN
4447: x_party_id => p_line_rec.vendor_party_id(p_index));
4448:
4449: IF l_debug_on THEN
4450: WSH_DEBUG_SV.logmsg(l_module_name,'After calling VENDOR_PARTY_EXISTS');
4451: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_exists', l_vendor_party_exists);
4452: END IF;
4453:
4454: IF l_vendor_party_exists = 'N' THEN
4455: -- { IB-Phase-2
4454: IF l_vendor_party_exists = 'N' THEN
4455: -- { IB-Phase-2
4456: --If party not exists, throw an error message and return.
4457: IF l_debug_on THEN
4458: WSH_DEBUG_SV.log(l_module_name,'Party does not Exist for the Vendor ');
4459: END IF;
4460: raise fnd_api.g_exc_error;
4461: -- } IB-Phase-2
4462: END IF;
4464: IF p_line_rec.drop_ship_flag(p_index) = 'Y' AND p_line_rec.shipping_method_code(p_index) is NOT NULL THEN
4465: --{
4466: -- Need to derive the carrier,service and mode from the ship method code for drop ship order.
4467: IF l_debug_on THEN
4468: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BULK_PROCESS_PVT.calc_service_mode',WSH_DEBUG_SV.C_PROC_LEVEL);
4469: END IF;
4470: WSH_BULK_PROCESS_PVT.calc_service_mode(
4471: p_line_rec => p_line_rec,
4472: p_cache_tbl => l_cache_tbl,
4487: --
4488: -- Debug Statements
4489: --
4490: IF l_debug_on THEN
4491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ACTIONS_LEVELS.G_VALIDATION_LEVEL_TAB',WSH_DEBUG_SV.C_PROC_LEVEL);
4492: END IF;
4493: --
4494: --IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_PO_DEFAULT_FLEX_LVL ) = 1
4495: --THEN
4551: --
4552: -- Debug Statements
4553: --
4554: IF l_debug_on THEN
4555: WSH_DEBUG_SV.pop(l_module_name);
4556: END IF;
4557: --
4558: IF l_num_errors > 0 THEN
4559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4569: --
4570: -- Debug Statements
4571: --
4572: IF l_debug_on THEN
4573: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4574: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4575: END IF;
4576: --
4577: WHEN OTHERS THEN
4570: -- Debug Statements
4571: --
4572: IF l_debug_on THEN
4573: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4574: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4575: END IF;
4576: --
4577: WHEN OTHERS THEN
4578: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4581: --
4582: -- Debug Statements
4583: --
4584: IF l_debug_on THEN
4585: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4587: END IF;
4588: --
4589: END populate_additional_line_info;
4582: -- Debug Statements
4583: --
4584: IF l_debug_on THEN
4585: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4587: END IF;
4588: --
4589: END populate_additional_line_info;
4590:
4635: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4636: --
4637: IF l_debug_on IS NULL
4638: THEN
4639: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4640: END IF;
4641: --
4642: --
4643: -- Debug Statements
4642: --
4643: -- Debug Statements
4644: --
4645: IF l_debug_on THEN
4646: WSH_DEBUG_SV.push(l_module_name);
4647: END IF;
4648: --
4649:
4650: IF (p_line_rec.inventory_item_id(p_index) is NOT NULL) THEN
4653: IF p_line_rec.weight_uom_code(p_index) IS NULL OR
4654: p_line_rec.volume_uom_code(p_index) IS NULL
4655: THEN --{
4656: IF l_debug_on THEN
4657: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_validate.get_item_info',WSH_DEBUG_SV.C_PROC_LEVEL);
4658: END IF;
4659:
4660: wsh_util_validate.get_item_info(
4661: p_organization_id => p_line_rec.organization_id(p_index),
4677: p_line_rec.volume(p_index) := p_line_rec.mtl_unit_volume(p_index) * p_line_rec.requested_quantity(p_index);
4678: p_line_rec.gross_weight(p_index) := p_line_rec.net_weight(p_index);
4679:
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.log(l_module_name,'p_line_rec wt uom code is :',p_line_rec.weight_uom_code(p_index));
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4678: p_line_rec.gross_weight(p_index) := p_line_rec.net_weight(p_index);
4679:
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.log(l_module_name,'p_line_rec wt uom code is :',p_line_rec.weight_uom_code(p_index));
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4679:
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.log(l_module_name,'p_line_rec wt uom code is :',p_line_rec.weight_uom_code(p_index));
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4687: WSH_DEBUG_SV.log(l_module_name,'p_line_rec gross wt is :',p_line_rec.gross_weight(p_index));
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.log(l_module_name,'p_line_rec wt uom code is :',p_line_rec.weight_uom_code(p_index));
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4687: WSH_DEBUG_SV.log(l_module_name,'p_line_rec gross wt is :',p_line_rec.gross_weight(p_index));
4688: END If;
4681: WSH_DEBUG_SV.log(l_module_name,'p_line_rec wt uom code is :',p_line_rec.weight_uom_code(p_index));
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4687: WSH_DEBUG_SV.log(l_module_name,'p_line_rec gross wt is :',p_line_rec.gross_weight(p_index));
4688: END If;
4689: END IF;--}
4682: WSH_DEBUG_SV.log(l_module_name,'p_line_rec vol uom code is :',p_line_rec.volume_uom_code(p_index));
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4687: WSH_DEBUG_SV.log(l_module_name,'p_line_rec gross wt is :',p_line_rec.gross_weight(p_index));
4688: END If;
4689: END IF;--}
4690: END IF;--}
4683: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit wt is :',p_line_rec.mtl_unit_weight(p_index));
4684: WSH_DEBUG_SV.log(l_module_name,'p_line_rec unit vol is :',p_line_rec.mtl_unit_volume(p_index));
4685: WSH_DEBUG_SV.log(l_module_name,'p_line_rec net wt is : ',p_line_rec.net_weight(p_index));
4686: WSH_DEBUG_SV.log(l_module_name,'p_line_rec volume is :',p_line_rec.volume(p_index));
4687: WSH_DEBUG_SV.log(l_module_name,'p_line_rec gross wt is :',p_line_rec.gross_weight(p_index));
4688: END If;
4689: END IF;--}
4690: END IF;--}
4691:
4697: --
4698: -- Debug Statements
4699: --
4700: IF l_debug_on THEN
4701: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4702: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4703: END IF;
4704: --
4705: WHEN OTHERS THEN
4698: -- Debug Statements
4699: --
4700: IF l_debug_on THEN
4701: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4702: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4703: END IF;
4704: --
4705: WHEN OTHERS THEN
4706: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4709: --
4710: -- Debug Statements
4711: --
4712: IF l_debug_on THEN
4713: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4714: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4715: END IF;
4716: --
4717: END Calculate_Wt_Vol;
4710: -- Debug Statements
4711: --
4712: IF l_debug_on THEN
4713: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4714: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4715: END IF;
4716: --
4717: END Calculate_Wt_Vol;
4718: