[Home] [Help]
44: --
45: PROCEDURE setARMessageUpdateTable(p_tableName IN VARCHAR2)
46: IS
47: BEGIN
48: arp_message.set_name('AR','AR_UPDATING_TABLE');
49: arp_message.set_token('TABLE_NAME', p_tableName, FALSE);
50: EXCEPTION
51: WHEN OTHERS THEN RAISE;
52: END setARMessageUpdateTable;
45: PROCEDURE setARMessageUpdateTable(p_tableName IN VARCHAR2)
46: IS
47: BEGIN
48: arp_message.set_name('AR','AR_UPDATING_TABLE');
49: arp_message.set_token('TABLE_NAME', p_tableName, FALSE);
50: EXCEPTION
51: WHEN OTHERS THEN RAISE;
52: END setARMessageUpdateTable;
53:
55: --
56: PROCEDURE setARMessageLockTable(p_tableName IN VARCHAR2)
57: IS
58: BEGIN
59: arp_message.set_name('AR','AR_LOCKING_TABLE');
60: arp_message.set_token('TABLE_NAME', p_tableName, FALSE);
61: EXCEPTION
62: WHEN OTHERS THEN RAISE;
63: END setARMessageLockTable;
56: PROCEDURE setARMessageLockTable(p_tableName IN VARCHAR2)
57: IS
58: BEGIN
59: arp_message.set_name('AR','AR_LOCKING_TABLE');
60: arp_message.set_token('TABLE_NAME', p_tableName, FALSE);
61: EXCEPTION
62: WHEN OTHERS THEN RAISE;
63: END setARMessageLockTable;
64:
67: --
68: PROCEDURE setARMessageRowCount(p_rowCount IN NUMBER)
69: IS
70: BEGIN
71: arp_message.set_name('AR','AR_ROWS_UPDATED');
72: arp_message.set_token('NUM_ROWS', to_char(p_rowCount));
73: EXCEPTION
74: WHEN OTHERS THEN
75: RAISE;
68: PROCEDURE setARMessageRowCount(p_rowCount IN NUMBER)
69: IS
70: BEGIN
71: arp_message.set_name('AR','AR_ROWS_UPDATED');
72: arp_message.set_token('NUM_ROWS', to_char(p_rowCount));
73: EXCEPTION
74: WHEN OTHERS THEN
75: RAISE;
76: END setARMessageRowCount;
81: -- Added for bug 4759811.
82: PROCEDURE setARMessageRowCount(p_mesgName IN VARCHAR, p_rowCount IN NUMBER)
83: IS
84: BEGIN
85: arp_message.set_name('AR', p_mesgName);
86: arp_message.set_token('NUM_ROWS', to_char(p_rowCount));
87: EXCEPTION
88: WHEN OTHERS THEN
89: RAISE;
82: PROCEDURE setARMessageRowCount(p_mesgName IN VARCHAR, p_rowCount IN NUMBER)
83: IS
84: BEGIN
85: arp_message.set_name('AR', p_mesgName);
86: arp_message.set_token('NUM_ROWS', to_char(p_rowCount));
87: EXCEPTION
88: WHEN OTHERS THEN
89: RAISE;
90: END setARMessageRowCount;
114: END IF;
115: --
116: --
117: IF l_debug_on THEN
118: arp_message.set_line('WSH_CUST_MERGE.Insert_Log_Table()+' || getTimeStamp );
119: END IF;
120: --
121:
122: -- Insert into Hz_Log_Table
170: setARMessageRowCount( 'HZ_CUSTOMER_MERGE_LOG', SQL%ROWCOUNT );
171:
172: --
173: IF l_debug_on THEN
174: arp_message.set_line('WSH_CUST_MERGE.Insert_Log_Table()+' || getTimeStamp );
175: END IF;
176: --
177:
178: EXCEPTION
179: WHEN OTHERS THEN
180: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
181: --
182: IF l_debug_on THEN
183: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Insert_Log_Table()+ Others - ' || getTimeStamp);
184: ARP_MESSAGE.Set_Error('Eror Mesg : ' || sqlerrm );
185: END IF;
186: --
187: END Insert_Log_Table;
180: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
181: --
182: IF l_debug_on THEN
183: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Insert_Log_Table()+ Others - ' || getTimeStamp);
184: ARP_MESSAGE.Set_Error('Eror Mesg : ' || sqlerrm );
185: END IF;
186: --
187: END Insert_Log_Table;
188:
239: END IF;
240:
241: --
242: IF l_debug_on THEN
243: arp_message.set_line('WSH_CUST_MERGE.Adjust_Weight_Volume()+' || getTimeStamp );
244: END IF;
245:
246: --
247: -- Call Mark_Reprice_Reqired, only when Unassigning from delivery
266: IF ( l_return_status NOT IN ( WSH_UTIL_CORE.G_RET_STS_SUCCESS,
267: WSH_UTIL_CORE.G_RET_STS_WARNING) ) THEN
268: --
269: IF ( l_debug_on ) THEN
270: ARP_MESSAGE.Set_Error('API WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required returned error');
271: END IF;
272: --
273: RAISE Weight_Volume_Exp;
274: END IF;
310: WSH_UTIL_CORE.G_RET_STS_WARNING) )
311: THEN
312: --
313: IF ( l_debug_on ) THEN
314: ARP_MESSAGE.Set_Error('API WSH_WV_UTILS.DD_WV_Post_Process returned error');
315: END IF;
316: --
317: RAISE Weight_Volume_Exp;
318: END IF;
341: WSH_UTIL_CORE.G_RET_STS_WARNING) )
342: THEN
343: --
344: IF ( l_debug_on ) THEN
345: ARP_MESSAGE.Set_Error('API WSH_WV_UTILS.Del_WV_Post_Process returned error');
346: END IF;
347: --
348: RAISE Weight_Volume_Exp;
349: END IF;
352: END IF;
353:
354: --
355: IF ( l_debug_on ) THEN
356: arp_message.set_line('WSH_CUST_MERGE.Adjust_Weight_Volume()+' || getTimeStamp );
357: END IF;
358: --
359:
360: EXCEPTION
361: WHEN Weight_Volume_Exp THEN
362: x_return_status := l_return_status;
363: --
364: IF ( l_debug_on ) THEN
365: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Weight_Volume()+ Weight_Volume_Exp - ' || getTimeStamp );
366: END IF;
367: --
368:
369: WHEN OTHERS THEN
369: WHEN OTHERS THEN
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: --
372: IF ( l_debug_on ) THEN
373: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Weight_Volume()+ Others - ' || getTimeStamp);
374: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
375: END IF;
376: --
377: END Adjust_Weight_Volume;
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: --
372: IF ( l_debug_on ) THEN
373: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Weight_Volume()+ Others - ' || getTimeStamp);
374: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
375: END IF;
376: --
377: END Adjust_Weight_Volume;
378: --
429: END IF;
430: --
431: --
432: IF l_debug_on THEN
433: arp_message.set_line('WSH_CUST_MERGE.Adjust_Parent_WV()+' || getTimeStamp );
434: END IF;
435: --
436:
437: -- Weight/Volume adjustments
464:
465: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
466: --
467: IF ( l_debug_on ) THEN
468: ARP_MESSAGE.Set_Error('API WSH_SHIPPING_PARAMS_PVT.Get returned error');
469: END IF;
470: --
471: RAISE Weight_Volume_Exp;
472: END IF;
496: WSH_UTIL_CORE.G_RET_STS_WARNING) )
497: THEN
498: --
499: IF ( l_debug_on ) THEN
500: ARP_MESSAGE.Set_Error('API WSH_WV_UTILS.Adjust_Parent_WV returned error');
501: END IF;
502: --
503: RAISE Weight_Volume_Exp;
504: END IF;
509: END LOOP;
510:
511: --
512: IF ( l_debug_on ) THEN
513: arp_message.set_line('WSH_CUST_MERGE.Adjust_Parent_WV()+' || getTimeStamp );
514: END IF;
515: --
516:
517: EXCEPTION
518: WHEN Weight_Volume_Exp THEN
519: x_return_status := l_return_status;
520: --
521: IF ( l_debug_on ) THEN
522: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Parent_WV()+ Weight_Volume_Exp - ' || getTimeStamp );
523: END IF;
524: --
525:
526: WHEN OTHERS THEN
526: WHEN OTHERS THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: --
529: IF ( l_debug_on ) THEN
530: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Parent_WV()+ Others - ' || getTimeStamp );
531: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
532: END IF;
533: --
534: END Adjust_Parent_WV;
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: --
529: IF ( l_debug_on ) THEN
530: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Adjust_Parent_WV()+ Others - ' || getTimeStamp );
531: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
532: END IF;
533: --
534: END Adjust_Parent_WV;
535:
686: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
687: END IF;
688: --
689: IF l_debug_on THEN
690: arp_message.set_line('WSH_CUST_MERGE.Unassign_Details_From_Delivery()+' || getTimeStamp );
691: END IF;
692: --
693:
694: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
785: WSH_UTIL_CORE.G_RET_STS_WARNING) )
786: THEN
787: --
788: IF ( l_debug_on ) THEN
789: ARP_MESSAGE.Set_Error('Error returned from API Adjust_Weight_Volume');
790: END IF;
791: --
792: RAISE Unassign_Del_Exp;
793: END IF;
828: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_deliveryIdTab(l_index));
829:
830: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
831: IF ( l_debug_on ) THEN
832: ARP_MESSAGE.Set_Error('Error returned from API wsh_new_delivery_actions.is_delivery_empty');
833: END IF;
834: raise FND_API.G_EXC_ERROR;
835: ELSIF (l_is_delivery_empty = 'Y') THEN
836: l_count := l_count + 1;
836: l_count := l_count + 1;
837: l_delivery_id_tab(l_count) := l_deliveryIdTab(l_index);
838: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
839: IF (l_debug_on) THEN
840: arp_message.set_line('l_count-'||l_count||' l_delivery_id_tab-'||l_delivery_id_tab(l_count)||' l_interface_flag_tab-'||l_interface_flag_tab(l_count));
841: END IF;
842: ELSIF (l_is_delivery_empty = 'N') THEN
843: l_count := l_count + 1;
844: l_delivery_id_tab(l_count) := l_deliveryIdTab(l_index);
846: --Bug7608629
847: --removed code which checked for gross weight
848: --now irrespective of gross weight UPDATE_TMS_INTERFACE_FLAG will be called
849: IF (l_debug_on) THEN
850: arp_message.set_line('l_count-'||l_count||' l_delivery_id_tab-'||l_delivery_id_tab(l_count)||' l_interface_flag_tab-'||l_interface_flag_tab(l_count));
851: END IF;
852: END IF;
853:
854: END IF;
863:
864: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
865: --
866: IF l_debug_on THEN
867: ARP_MESSAGE.Set_Error('Error returned from API WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
868: END IF;
869: RAISE Unassign_Del_Exp;
870: END IF;
871: END IF;
898: OPEN Get_Grouping_Id;
899: FETCH Get_Grouping_Id INTO l_carton_grouping_id;
900: IF ( Get_Grouping_Id%NOTFOUND )
901: THEN
902: ARP_MESSAGE.Set_Error('Not able to fetch carton_grouping_id');
903: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
904: CLOSE Get_Grouping_Id;
905: --
906: RAISE Unassign_Del_Exp;
919: WSH_UTIL_CORE.G_RET_STS_WARNING) )
920: THEN
921: --
922: IF ( l_debug_on ) THEN
923: ARP_MESSAGE.Set_Error('Error returned from API INV_MO_Cancel_PVT.Update_Mol_Carton_Group');
924: END IF;
925: --
926: RAISE Unassign_Del_Exp;
927: END IF;
950: WSH_UTIL_CORE.G_RET_STS_WARNING) )
951: THEN
952: --
953: IF ( l_debug_on ) THEN
954: ARP_MESSAGE.Set_Error('Error returned from API Adjust_Parent_WV');
955: END IF;
956: --
957: RAISE Unassign_Del_Exp;
958: END IF;
1030: );
1031:
1032: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
1033: THEN
1034: ARP_MESSAGE.Set_Error('API WSH_XC_UTIL.Log_Exception returned error..');
1035: RAISE Unassign_Del_Exp;
1036: END IF;
1037:
1038: -- }
1046:
1047: CLOSE Get_Wsh_Unassign_Details;
1048: --
1049: IF l_debug_on THEN
1050: arp_message.set_line('WSH_CUST_MERGE.Unassign_Details_From_Delivery()+' || getTimeStamp );
1051: END IF;
1052: --
1053: EXCEPTION
1054: WHEN Unassign_Del_Exp THEN
1054: WHEN Unassign_Del_Exp THEN
1055: x_return_status := l_return_status;
1056: --
1057: IF ( l_debug_on ) THEN
1058: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Unassign_Details_From_Delivery()+ Unassign_Del_Exp - ' || getTimeStamp );
1059: END IF;
1060: --
1061: IF ( Get_Cont_Unassign_Details%ISOPEN ) THEN
1062: CLOSE Get_Cont_Unassign_Details;
1073: WHEN OTHERS THEN
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1075: --
1076: IF ( l_debug_on ) THEN
1077: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Unassign_Details_From_Delivery()+ Others - ' || getTimeStamp );
1078: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
1079: END IF;
1080: --
1081: IF ( Get_Cont_Unassign_Details%ISOPEN ) THEN
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1075: --
1076: IF ( l_debug_on ) THEN
1077: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Unassign_Details_From_Delivery()+ Others - ' || getTimeStamp );
1078: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
1079: END IF;
1080: --
1081: IF ( Get_Cont_Unassign_Details%ISOPEN ) THEN
1082: CLOSE Get_Cont_Unassign_Details;
1138: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1139: END IF;
1140: --
1141: IF l_debug_on THEN
1142: arp_message.set_line('WSH_CUST_MERGE.Get_Delivery_Hash()+' || getTimeStamp );
1143: END IF;
1144: --
1145:
1146: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1165: WSH_UTIL_CORE.G_RET_STS_WARNING) )
1166: THEN
1167: --
1168: IF ( l_debug_on ) THEN
1169: ARP_MESSAGE.Set_Error('Error returned from API Create_Hash');
1170: END IF;
1171: --
1172: RAISE Update_Hash_Exp;
1173: END IF;
1183: END LOOP;
1184:
1185: --
1186: IF l_debug_on THEN
1187: arp_message.set_line('WSH_CUST_MERGE.Get_Delivery_Hash()+' || getTimeStamp );
1188: END IF;
1189: --
1190: EXCEPTION
1191: WHEN Update_Hash_Exp THEN
1191: WHEN Update_Hash_Exp THEN
1192: x_return_status := l_return_status;
1193: --
1194: IF ( l_debug_on ) THEN
1195: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Get_Delivery_Hash()+ Update_Hash_Exp - ' || getTimeStamp );
1196: END IF;
1197: --
1198: WHEN OTHERS THEN
1199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1198: WHEN OTHERS THEN
1199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1200: --
1201: IF ( l_debug_on ) THEN
1202: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Get_Delivery_Hash()+ Others - ' || getTimeStamp );
1203: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
1204: END IF;
1205: --
1206: END Get_Delivery_Hash;
1199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1200: --
1201: IF ( l_debug_on ) THEN
1202: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Get_Delivery_Hash()+ Others - ' || getTimeStamp );
1203: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
1204: END IF;
1205: --
1206: END Get_Delivery_Hash;
1207: --
1364: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1365: END IF;
1366: --
1367: IF l_debug_on THEN
1368: arp_message.set_line('WSH_CUST_MERGE.Process_Deliveries()+' || getTimeStamp );
1369: END IF;
1370: --
1371:
1372: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1570: WSH_DEBUG_SV.log('my_module','l_delivery_id-'||l_delivery_info.delivery_id
1571: ||' l_tms_update-'||l_tms_update(l_index)
1572: ||' l_tms_interface_flag-'||l_tms_interface_flag(l_index)
1573: ||' l_tms_version_number-'||l_tms_version_number(l_index));
1574: arp_message.set_line('l_tms_update-'||l_tms_update(l_index)
1575: ||' l_tms_interface_flag-'||l_tms_interface_flag(l_index)
1576: ||' l_tms_version_number-'||l_tms_version_number(l_index));
1577: END IF;
1578: l_index := l_hash_value_tab.NEXT(l_index);
1692: WSH_UTIL_CORE.G_RET_STS_WARNING) )
1693: THEN
1694: --
1695: IF ( l_debug_on ) THEN
1696: ARP_MESSAGE.Set_Error('Error returned from API Adjust_Weight_Volume');
1697: END IF;
1698: --
1699: RAISE Update_Del_Exp;
1700: END IF;
1860: ||' ignore for planning-'||l_tms_delivery_info_tab(l_index).ignore_for_planning
1861: ||' tms flag-'||l_tms_delivery_info_tab(l_index).tms_interface_flag
1862: ||' delivery status-'||l_tms_delivery_info_tab(l_index).status_code
1863: ||' trip_status-'||l_tms_trip_tab(l_index).status_code);
1864: arp_message.set_line(l_index || 'delivery id-'||l_tms_delivery_info_tab(l_index).delivery_id
1865: ||' ignore for planning-'||l_tms_delivery_info_tab(l_index).ignore_for_planning
1866: ||' tms flag-'||l_tms_delivery_info_tab(l_index).tms_interface_flag
1867: ||' delivery status-'||l_tms_delivery_info_tab(l_index).status_code
1868: ||' trip_status-'||l_tms_trip_tab(l_index).status_code);
1910: END IF;
1911:
1912: IF l_debug_on THEN
1913: WSH_DEBUG_SV.LOG('my module', 'unassign delivery count-'||l_dlvy_id_tab.COUNT||' aw delivery count-'||l_aw_dlvy_tab.COUNT);
1914: arp_message.set_line('unassign delivery count-'||l_dlvy_id_tab.COUNT||' aw delivery count-'||l_aw_dlvy_tab.COUNT);
1915: END IF;
1916:
1917: -- Update the Interface Flag to AW for selected deliveries
1918: -- Log appropriate exceptions(within the API)
1924: p_tms_interface_flag_tab => l_aw_interface_flag_tab,
1925: x_return_status => l_return_status);
1926: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1927: IF l_debug_on THEN
1928: ARP_MESSAGE.Set_Error('Error returned from API WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
1929: END IF;
1930: RAISE Update_Del_Exp;
1931: END IF;
1932: END IF;
2099: END IF;
2100:
2101: --
2102: IF l_debug_on THEN
2103: arp_message.set_line('WSH_CUST_MERGE.Process_Deliveries()+' || getTimeStamp );
2104: END IF;
2105: --
2106: EXCEPTION
2107: WHEN Update_Del_Exp THEN
2107: WHEN Update_Del_Exp THEN
2108: x_return_status := l_return_status;
2109: --
2110: IF ( l_debug_on ) THEN
2111: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Deliveries()+ Update_Del_Exp - ' || getTimeStamp );
2112: END IF;
2113: --
2114: IF ( Get_Del_Unassign_From_Stop%ISOPEN ) THEN
2115: CLOSE Get_Del_Unassign_From_Stop;
2135: WHEN frcost_not_found THEN
2136: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2137: --
2138: IF ( l_debug_on ) THEN
2139: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Deliveries()+ OTM Freight cost type not defined- ' || getTimeStamp );
2140: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2141: END IF;
2142: --
2143: IF ( Get_Del_Unassign_From_Stop%ISOPEN ) THEN
2136: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2137: --
2138: IF ( l_debug_on ) THEN
2139: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Deliveries()+ OTM Freight cost type not defined- ' || getTimeStamp );
2140: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2141: END IF;
2142: --
2143: IF ( Get_Del_Unassign_From_Stop%ISOPEN ) THEN
2144: CLOSE Get_Del_Unassign_From_Stop;
2163: WHEN OTHERS THEN
2164: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2165: --
2166: IF ( l_debug_on ) THEN
2167: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Deliveries()+ Others - ' || getTimeStamp );
2168: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2169: END IF;
2170: --
2171: IF ( Get_Del_Unassign_From_Stop%ISOPEN ) THEN
2164: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2165: --
2166: IF ( l_debug_on ) THEN
2167: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Deliveries()+ Others - ' || getTimeStamp );
2168: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2169: END IF;
2170: --
2171: IF ( Get_Del_Unassign_From_Stop%ISOPEN ) THEN
2172: CLOSE Get_Del_Unassign_From_Stop;
2272: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2273: END IF;
2274: --
2275: IF l_debug_on THEN
2276: arp_message.set_line('WSH_CUST_MERGE.Process_Open_Deliveries()+' || getTimeStamp );
2277: END IF;
2278: --
2279:
2280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2444: CLOSE Get_Empty_Cont_Delivery;
2445:
2446: --
2447: IF l_debug_on THEN
2448: arp_message.set_line('WSH_CUST_MERGE.Process_Open_Deliveries()+' || getTimeStamp );
2449: END IF;
2450: --
2451: EXCEPTION
2452: WHEN Process_Deliveries_Exp THEN
2452: WHEN Process_Deliveries_Exp THEN
2453: x_return_status := l_return_status;
2454: --
2455: IF ( l_debug_on ) THEN
2456: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Deliveries()+ Process_Deliveries_Exp - ' || getTimeStamp );
2457: END IF;
2458: --
2459: IF ( Get_Empty_Deliveries%ISOPEN ) THEN
2460: CLOSE Get_Empty_Deliveries;
2467: WHEN OTHERS THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2469: --
2470: IF ( l_debug_on ) THEN
2471: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Deliveries()+ Others - ' || getTimeStamp );
2472: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2473: END IF;
2474: --
2475: IF ( Get_Empty_Deliveries%ISOPEN ) THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2469: --
2470: IF ( l_debug_on ) THEN
2471: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Deliveries()+ Others - ' || getTimeStamp );
2472: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2473: END IF;
2474: --
2475: IF ( Get_Empty_Deliveries%ISOPEN ) THEN
2476: CLOSE Get_Empty_Deliveries;
2558: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2559: END IF;
2560: --
2561: IF l_debug_on THEN
2562: arp_message.set_line('WSH_CUST_MERGE.Process_Open_Lines()+' || getTimeStamp );
2563: END IF;
2564: --
2565:
2566: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2671: WSH_UTIL_CORE.G_RET_STS_WARNING) )
2672: THEN
2673: --
2674: IF ( l_debug_on ) THEN
2675: ARP_MESSAGE.Set_Error('Error returned from API Adjust_Weight_Volume');
2676: END IF;
2677: --
2678: RAISE Process_Open_Lines_Exp;
2679: END IF;
2714: WSH_UTIL_CORE.G_RET_STS_WARNING) )
2715: THEN
2716: --
2717: IF ( l_debug_on ) THEN
2718: ARP_MESSAGE.Set_Error('Error returned from API Adjust_Parent_WV');
2719: END IF;
2720: --
2721: RAISE Process_Open_Lines_Exp;
2722: END IF;
2770: );
2771:
2772: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
2773: THEN
2774: ARP_MESSAGE.Set_Error('Error returned from API WSH_XC_UTIL.Log_Exception');
2775: RAISE Process_Open_Lines_Exp;
2776: END IF;
2777:
2778: -- }
2851: DELETE FROM Wsh_Tmp;
2852:
2853: --
2854: IF l_debug_on THEN
2855: arp_message.set_line('WSH_CUST_MERGE.Process_Open_Lines()+' || getTimeStamp );
2856: END IF;
2857: --
2858: EXCEPTION
2859: WHEN Process_Open_Lines_Exp THEN
2859: WHEN Process_Open_Lines_Exp THEN
2860: x_return_status := l_return_status;
2861: --
2862: IF l_debug_on THEN
2863: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Lines()+ Process_Open_Lines_Exp - ' || getTimeStamp );
2864: END IF;
2865: --
2866:
2867: -- Close open cursors
2871:
2872: WHEN OTHERS THEN
2873: --
2874: IF l_debug_on THEN
2875: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Lines()+ Others - ' || getTimeStamp );
2876: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2877: END IF;
2878: --
2879: -- Close open cursors
2872: WHEN OTHERS THEN
2873: --
2874: IF l_debug_on THEN
2875: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Process_Open_Lines()+ Others - ' || getTimeStamp );
2876: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
2877: END IF;
2878: --
2879: -- Close open cursors
2880: IF ( Get_Open_Lines%ISOPEN ) THEN
2992: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2993: END IF;
2994: --
2995: IF l_debug_on THEN
2996: arp_message.set_line('WSH_CUST_MERGE.Delivery_Details()+' || getTimeStamp );
2997: END IF;
2998:
2999: IF (process_mode = 'LOCK') THEN
3000: setARMessageLockTable('WSH_DELIVERY_DETAILS');
3027: EXCEPTION
3028: WHEN NO_DATA_FOUND then
3029: raise wsh_cust_site_to_loc_err;
3030: WHEN OTHERS then
3031: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3032: raise;
3033: END;
3034: --
3035: --
3040: EXCEPTION
3041: WHEN NO_DATA_FOUND then
3042: raise wsh_cust_site_to_loc_err;
3043: WHEN OTHERS then
3044: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3045: raise;
3046: END;
3047: --
3048:
3176: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
3177: THEN
3178: --
3179: IF ( l_debug_on ) THEN
3180: ARP_MESSAGE.Set_Error('Error returned from API Insert_Log_Table');
3181: END IF;
3182: --
3183: RAISE Merge_Exp;
3184: END IF;
3203: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
3204: THEN
3205: --
3206: IF ( l_debug_on ) THEN
3207: ARP_MESSAGE.Set_Error('Error returned from API Process_Open_Lines');
3208: END IF;
3209: --
3210: RAISE Merge_Exp;
3211: END IF;
3222: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
3223: THEN
3224: --
3225: IF ( l_debug_on ) THEN
3226: ARP_MESSAGE.Set_Error('Error returned from API Process_Open_Deliveries');
3227: END IF;
3228: --
3229: RAISE Merge_Exp;
3230: END IF;
3238: END IF;
3239:
3240:
3241: IF l_debug_on THEN
3242: arp_message.set_line('WSH_CUST_MERGE.Delivery_Details()-' || getTimeStamp);
3243: END IF;
3244:
3245: EXCEPTION
3246: WHEN wsh_cust_site_to_loc_err THEN
3245: EXCEPTION
3246: WHEN wsh_cust_site_to_loc_err THEN
3247: --
3248: IF ( l_debug_on ) THEN
3249: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Delivery_Details()+ wsh_cust_site_to_loc_err - ' || getTimeStamp );
3250: END IF;
3251: --
3252:
3253: RAISE;
3253: RAISE;
3254: WHEN Merge_Exp THEN
3255: --
3256: IF ( l_debug_on ) THEN
3257: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Delivery_Details - Merge_Exp');
3258: END IF;
3259: --
3260:
3261: -- Close if cursors are open
3271:
3272: WHEN OTHERS THEN
3273: --
3274: IF ( l_debug_on ) THEN
3275: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Delivery_Details()+ Others - ' || getTimeStamp );
3276: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3277: END IF;
3278: --
3279:
3272: WHEN OTHERS THEN
3273: --
3274: IF ( l_debug_on ) THEN
3275: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Delivery_Details()+ Others - ' || getTimeStamp );
3276: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3277: END IF;
3278: --
3279:
3280: -- Close if cursors are open
3345: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3346: END IF;
3347: --
3348: IF l_debug_on THEN
3349: arp_message.set_line('WSH_CUST_MERGE.PICKING_BATCHES()+' || getTimeStamp);
3350: END IF;
3351: IF process_mode='LOCK' THEN
3352: setARMessageLockTable('WSH_PICKING_BATCHES');
3353: NULL;
3351: IF process_mode='LOCK' THEN
3352: setARMessageLockTable('WSH_PICKING_BATCHES');
3353: NULL;
3354: ELSE
3355: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3356: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_PICKING_BATCHES',FALSE);
3357: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3358: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3359:
3352: setARMessageLockTable('WSH_PICKING_BATCHES');
3353: NULL;
3354: ELSE
3355: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3356: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_PICKING_BATCHES',FALSE);
3357: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3358: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3359:
3360: open merged_records;
3421: EXIT;
3422: END IF;
3423: END LOOP;
3424:
3425: arp_message.set_name('AR','AR_ROWS_UPDATED');
3426: arp_message.set_token('NUM_ROWS',to_char(l_count));
3427: END IF;
3428: IF l_debug_on THEN
3429: arp_message.set_line('WSH_CUST_MERGE.PICKING_BATCHES()+' || getTimeStamp);
3422: END IF;
3423: END LOOP;
3424:
3425: arp_message.set_name('AR','AR_ROWS_UPDATED');
3426: arp_message.set_token('NUM_ROWS',to_char(l_count));
3427: END IF;
3428: IF l_debug_on THEN
3429: arp_message.set_line('WSH_CUST_MERGE.PICKING_BATCHES()+' || getTimeStamp);
3430: END IF;
3425: arp_message.set_name('AR','AR_ROWS_UPDATED');
3426: arp_message.set_token('NUM_ROWS',to_char(l_count));
3427: END IF;
3428: IF l_debug_on THEN
3429: arp_message.set_line('WSH_CUST_MERGE.PICKING_BATCHES()+' || getTimeStamp);
3430: END IF;
3431: EXCEPTION
3432: WHEN OTHERS THEN
3433: arp_message.set_line( 'WSH_MERGE_PICKING_BATCHES');
3429: arp_message.set_line('WSH_CUST_MERGE.PICKING_BATCHES()+' || getTimeStamp);
3430: END IF;
3431: EXCEPTION
3432: WHEN OTHERS THEN
3433: arp_message.set_line( 'WSH_MERGE_PICKING_BATCHES');
3434: RAISE;
3435: END Picking_batches;
3436: --
3437: --
3488: l_debug_on BOOLEAN;
3489: --
3490: BEGIN
3491: IF l_debug_on THEN
3492: arp_message.set_line('WSH_CUST_MERGE.CALENDAR_ASSIGNMENTS()+' || getTimeStamp);
3493: END IF;
3494:
3495: IF process_mode='LOCK' THEN
3496: setARMessageLockTable('WSH_CALENDAR_ASSIGNMENTS');
3495: IF process_mode='LOCK' THEN
3496: setARMessageLockTable('WSH_CALENDAR_ASSIGNMENTS');
3497: NULL;
3498: ELSE
3499: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3500: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_CALENDAR_ASSIGNMENTS',FALSE);
3501: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3502: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3503:
3496: setARMessageLockTable('WSH_CALENDAR_ASSIGNMENTS');
3497: NULL;
3498: ELSE
3499: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3500: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_CALENDAR_ASSIGNMENTS',FALSE);
3501: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3502: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3503:
3504: open merged_records;
3572: EXIT;
3573: END IF;
3574: END LOOP;
3575:
3576: arp_message.set_name('AR','AR_ROWS_UPDATED');
3577: arp_message.set_token('NUM_ROWS',to_char(l_count));
3578: END IF;
3579: IF l_debug_on THEN
3580: arp_message.set_line('WSH_CUST_MERGE.CALENDAR_ASSIGNMENTS()+' || getTimeStamp);
3573: END IF;
3574: END LOOP;
3575:
3576: arp_message.set_name('AR','AR_ROWS_UPDATED');
3577: arp_message.set_token('NUM_ROWS',to_char(l_count));
3578: END IF;
3579: IF l_debug_on THEN
3580: arp_message.set_line('WSH_CUST_MERGE.CALENDAR_ASSIGNMENTS()+' || getTimeStamp);
3581: END IF;
3576: arp_message.set_name('AR','AR_ROWS_UPDATED');
3577: arp_message.set_token('NUM_ROWS',to_char(l_count));
3578: END IF;
3579: IF l_debug_on THEN
3580: arp_message.set_line('WSH_CUST_MERGE.CALENDAR_ASSIGNMENTS()+' || getTimeStamp);
3581: END IF;
3582: EXCEPTION
3583: WHEN OTHERS THEN
3584: arp_message.set_line( 'WSH_MERGE_CALENDAR_ASSIGNMENTS');
3580: arp_message.set_line('WSH_CUST_MERGE.CALENDAR_ASSIGNMENTS()+' || getTimeStamp);
3581: END IF;
3582: EXCEPTION
3583: WHEN OTHERS THEN
3584: arp_message.set_line( 'WSH_MERGE_CALENDAR_ASSIGNMENTS');
3585: RAISE;
3586: END Calendar_Assignments;
3587:
3588: -----------------------------------------------------------------------------------------
3637: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3638: END IF;
3639: --
3640: IF l_debug_on THEN
3641: arp_message.set_line('WSH_CUST_MERGE.PICKING_RULES()+' || getTimeStamp);
3642: END IF;
3643:
3644: IF process_mode='LOCK' THEN
3645: setARMessageLockTable('WSH_PICKING_RULES');
3644: IF process_mode='LOCK' THEN
3645: setARMessageLockTable('WSH_PICKING_RULES');
3646: NULL;
3647: ELSE
3648: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3649: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_PICKING_RULES',FALSE);
3650: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3651: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3652:
3645: setARMessageLockTable('WSH_PICKING_RULES');
3646: NULL;
3647: ELSE
3648: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3649: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','WSH_PICKING_RULES',FALSE);
3650: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3651: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3652:
3653: open merged_records;
3715: EXIT;
3716: END IF;
3717: END LOOP;
3718:
3719: arp_message.set_name('AR','AR_ROWS_UPDATED');
3720: arp_message.set_token('NUM_ROWS',to_char(l_count));
3721: END IF;
3722: IF l_debug_on THEN
3723: arp_message.set_line('WSH_CUST_MERGE.PICKING_RULES()-' || getTimeStamp);
3716: END IF;
3717: END LOOP;
3718:
3719: arp_message.set_name('AR','AR_ROWS_UPDATED');
3720: arp_message.set_token('NUM_ROWS',to_char(l_count));
3721: END IF;
3722: IF l_debug_on THEN
3723: arp_message.set_line('WSH_CUST_MERGE.PICKING_RULES()-' || getTimeStamp);
3724: END IF;
3719: arp_message.set_name('AR','AR_ROWS_UPDATED');
3720: arp_message.set_token('NUM_ROWS',to_char(l_count));
3721: END IF;
3722: IF l_debug_on THEN
3723: arp_message.set_line('WSH_CUST_MERGE.PICKING_RULES()-' || getTimeStamp);
3724: END IF;
3725: EXCEPTION
3726: WHEN OTHERS THEN
3727: arp_message.set_line( 'WSH_MERGE_PICKING_RULES');
3723: arp_message.set_line('WSH_CUST_MERGE.PICKING_RULES()-' || getTimeStamp);
3724: END IF;
3725: EXCEPTION
3726: WHEN OTHERS THEN
3727: arp_message.set_line( 'WSH_MERGE_PICKING_RULES');
3728: RAISE;
3729: END Picking_rules;
3730:
3731:
3778: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3779: END IF;
3780: --
3781: IF l_debug_on THEN
3782: arp_message.set_line('WSH_CUST_MERGE.Check_WMS_Details()+' || getTimeStamp );
3783: END IF;
3784: --
3785:
3786: OPEN C1;
3787: FETCH C1 INTO l_count;
3788: IF ( C1%FOUND ) THEN
3789: --
3790: IF ( l_debug_on ) THEN
3791: ARP_MESSAGE.Set_Error('There exists WMS records in shipping which are Staged');
3792: END IF;
3793: --
3794: CLOSE C1;
3795: RAISE WMS_Exception;
3797: CLOSE C1;
3798:
3799: --
3800: IF l_debug_on THEN
3801: arp_message.set_line('WSH_CUST_MERGE.Check_WMS_Details()+' || getTimeStamp );
3802: END IF;
3803: --
3804: EXCEPTION
3805: WHEN WMS_Exception THEN
3804: EXCEPTION
3805: WHEN WMS_Exception THEN
3806: --
3807: IF ( l_debug_on ) THEN
3808: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_WMS_Details - WMS_Exception');
3809: END IF;
3810: --
3811: IF ( C1%ISOPEN ) THEN
3812: CLOSE C1;
3816: --
3817: WHEN OTHERS THEN
3818: --
3819: IF ( l_debug_on ) THEN
3820: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_WMS_Details()+ Others - ' || getTimeStamp );
3821: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3822: END IF;
3823: --
3824: IF ( C1%ISOPEN ) THEN
3817: WHEN OTHERS THEN
3818: --
3819: IF ( l_debug_on ) THEN
3820: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_WMS_Details()+ Others - ' || getTimeStamp );
3821: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3822: END IF;
3823: --
3824: IF ( C1%ISOPEN ) THEN
3825: CLOSE C1;
3868: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3869: END IF;
3870: --
3871: IF l_debug_on THEN
3872: arp_message.set_line('WSH_CUST_MERGE.Check_LSP_Install()+' || getTimeStamp );
3873: END IF;
3874: --
3875: IF WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'L' THEN
3876: IF l_debug_on THEN
3873: END IF;
3874: --
3875: IF WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'L' THEN
3876: IF l_debug_on THEN
3877: arp_message.set_line('WMS Deployment Mode profile is set to LSP');
3878: END IF;
3879: OPEN C1;
3880: FETCH C1 INTO l_count;
3881: IF ( C1%FOUND ) THEN
3880: FETCH C1 INTO l_count;
3881: IF ( C1%FOUND ) THEN
3882: --
3883: IF ( l_debug_on ) THEN
3884: ARP_MESSAGE.Set_Error('Merge is not allowed from LSP client to another LSP client/customer OR from customer to LSP client');
3885: END IF;
3886: --
3887: CLOSE C1;
3888: RAISE LSP_Exception;
3889: END IF;
3890: CLOSE C1;
3891: ELSE
3892: IF l_debug_on THEN
3893: arp_message.set_line('WMS Deployment Mode profile value is not LSP');
3894: END IF;
3895: END IF;
3896: --
3897: IF l_debug_on THEN
3894: END IF;
3895: END IF;
3896: --
3897: IF l_debug_on THEN
3898: arp_message.set_line('WSH_CUST_MERGE.Check_LSP_Install()+' || getTimeStamp );
3899: END IF;
3900: --
3901: EXCEPTION
3902: WHEN LSP_Exception THEN
3901: EXCEPTION
3902: WHEN LSP_Exception THEN
3903: --
3904: IF ( l_debug_on ) THEN
3905: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_LSP_Install - LSP_Exception');
3906: END IF;
3907: --
3908: IF ( C1%ISOPEN ) THEN
3909: CLOSE C1;
3913: --
3914: WHEN OTHERS THEN
3915: --
3916: IF ( l_debug_on ) THEN
3917: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_LSP_Install()+ Others - ' || getTimeStamp );
3918: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3919: END IF;
3920: --
3921: IF ( C1%ISOPEN ) THEN
3914: WHEN OTHERS THEN
3915: --
3916: IF ( l_debug_on ) THEN
3917: ARP_MESSAGE.Set_Error('WSH_CUST_MERGE.Check_LSP_Install()+ Others - ' || getTimeStamp );
3918: ARP_MESSAGE.Set_Error('Error Mesg : ' || sqlerrm );
3919: END IF;
3920: --
3921: IF ( C1%ISOPEN ) THEN
3922: CLOSE C1;
3949: l_customerMergeHeaderIdTab g_number_tbl_type;
3950:
3951: BEGIN
3952: /* Calls to other internal procedures for customer Merge */
3953: arp_message.set_line('WSH_CUST_MERGE.Merge()+' || getTimeStamp);
3954: --
3955: arp_message.set_line('Req_Id,Set_Num,Process_Mode:' || Req_Id||','||Set_Num||','||Process_Mode);
3956:
3957: --
3951: BEGIN
3952: /* Calls to other internal procedures for customer Merge */
3953: arp_message.set_line('WSH_CUST_MERGE.Merge()+' || getTimeStamp);
3954: --
3955: arp_message.set_line('Req_Id,Set_Num,Process_Mode:' || Req_Id||','||Set_Num||','||Process_Mode);
3956:
3957: --
3958: -- For inserting record into HZ Log Table based on profile option value
3959: --
3975: WSH_CUST_MERGE.Picking_Rules( Req_Id, Set_Num, Process_Mode ); -- NOCHANGE
3976: WSH_CUST_MERGE.Picking_Batches( Req_Id, Set_Num, Process_Mode ); -- NOCHANGE
3977: WSH_CUST_MERGE.Calendar_Assignments(Req_Id, Set_Num, Process_Mode ); -- NOCHANGE
3978:
3979: arp_message.set_line('WSH_CUST_MERGE.Merge()-' || getTimeStamp);
3980:
3981: EXCEPTION
3982: WHEN OTHERS THEN
3983: arp_message.set_error('WSH_CUST_MERGE.Merge');
3979: arp_message.set_line('WSH_CUST_MERGE.Merge()-' || getTimeStamp);
3980:
3981: EXCEPTION
3982: WHEN OTHERS THEN
3983: arp_message.set_error('WSH_CUST_MERGE.Merge');
3984: RAISE;
3985:
3986: END Merge;
3987: