78: CLOSE C_Carriers;
79:
80: IF ( l_from_carrier_num > 0 ) THEN
81: x_return_status := FND_API.G_RET_STS_ERROR;
82: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NO_MERGE');
83: FND_MSG_PUB.ADD;
84: RETURN;
85: END IF;
86: END IF;
128: --
129: END IF;
130: --
131: EXCEPTION WHEN OTHERS THEN
132: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
133: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
134: FND_MSG_PUB.ADD;
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136:
129: END IF;
130: --
131: EXCEPTION WHEN OTHERS THEN
132: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
133: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
134: FND_MSG_PUB.ADD;
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136:
137: END merge_carriers;
184: CLOSE C_Carrier_Sites;
185:
186: IF ( l_from_carrier_site_num > 0 ) THEN
187: x_return_status := FND_API.G_RET_STS_ERROR;
188: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_SITE_NO_MERGE');
189: FND_MSG_PUB.ADD;
190: RETURN;
191: END IF;
192:
193: END IF;
194: END IF;
195:
196: EXCEPTION WHEN OTHERS THEN
197: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
198: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
199: FND_MSG_PUB.ADD;
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201:
194: END IF;
195:
196: EXCEPTION WHEN OTHERS THEN
197: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
198: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
199: FND_MSG_PUB.ADD;
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201:
202: END merge_carrier_sites;
345: CLOSE C_Owner_Type;
346:
347: IF (l_owner_type_from=3) THEN
348: x_return_status := FND_API.G_RET_STS_ERROR;
349: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_SITE_NO_MERGE');
350: FND_MSG_PUB.ADD;
351: RETURN;
352: END IF;
353:
371: END IF;
372: CLOSE C_Owner_Type;
373: IF (l_owner_type_to=3) THEN
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_SITE_NO_MERGE');
376: FND_MSG_PUB.ADD;
377: RETURN;
378: END IF;
379:
419: END IF;
420:
421: EXCEPTION
422: WHEN RESOURCE_BUSY THEN
423: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
424: FND_MSG_PUB.ADD;
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
423: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
424: FND_MSG_PUB.ADD;
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
428: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
429: FND_MSG_PUB.ADD;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: WHEN others THEN
424: FND_MSG_PUB.ADD;
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
428: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
429: FND_MSG_PUB.ADD;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: WHEN others THEN
432: IF C_Owner_Type%ISOPEN THEN
437: END IF;
438: IF get_loc_owners_for_update%ISOPEN THEN
439: CLOSE get_loc_owners_for_update;
440: END IF;
441: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
442: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
443: FND_MSG_PUB.ADD;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: END merge_party_locations;
438: IF get_loc_owners_for_update%ISOPEN THEN
439: CLOSE get_loc_owners_for_update;
440: END IF;
441: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
442: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
443: FND_MSG_PUB.ADD;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: END merge_party_locations;
446:
564: --
565: IF l_query_count > 0 THEN
566: --{
567: --Put an error messge on stack
568: fnd_message.set_name ( 'WSH', 'WSH_IB_SP_SHIP_SITE_NO_MERGE' );
569: wsh_util_core.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR, l_Module_name);
570: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
571: --
572: IF l_debug_on THEN
661: END IF;
662: --
663: EXCEPTION
664: WHEN OTHERS THEN
665: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
666: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
667: FND_MSG_PUB.ADD;
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
669: --
662: --
663: EXCEPTION
664: WHEN OTHERS THEN
665: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
666: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
667: FND_MSG_PUB.ADD;
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
669: --
670: IF l_debug_on THEN
836: --
837: END IF;
838: --
839: IF check_calendar_rec.freight_code IS NULL THEN
840: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_CAL_ASGN' );
841: ELSE
842: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_FC_CAL_ASGN' );
843: fnd_message.set_token('FREIGHT_CODE', check_calendar_rec.freight_code);
844: END IF;
838: --
839: IF check_calendar_rec.freight_code IS NULL THEN
840: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_CAL_ASGN' );
841: ELSE
842: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_FC_CAL_ASGN' );
843: fnd_message.set_token('FREIGHT_CODE', check_calendar_rec.freight_code);
844: END IF;
845: --
846: fnd_message.set_token('SUPPLIER_NAME' , p_from_supplier_name );
839: IF check_calendar_rec.freight_code IS NULL THEN
840: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_CAL_ASGN' );
841: ELSE
842: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_FC_CAL_ASGN' );
843: fnd_message.set_token('FREIGHT_CODE', check_calendar_rec.freight_code);
844: END IF;
845: --
846: fnd_message.set_token('SUPPLIER_NAME' , p_from_supplier_name );
847: fnd_message.set_token('CAL_TYPE' , check_calendar_Rec.calendar_type );
842: fnd_message.set_name('WSH', 'WSH_IB_DEL_SP_FC_CAL_ASGN' );
843: fnd_message.set_token('FREIGHT_CODE', check_calendar_rec.freight_code);
844: END IF;
845: --
846: fnd_message.set_token('SUPPLIER_NAME' , p_from_supplier_name );
847: fnd_message.set_token('CAL_TYPE' , check_calendar_Rec.calendar_type );
848: l_msg := FND_MESSAGE.GET;
849: wsh_util_core.printMsg(l_msg);
850: --}
843: fnd_message.set_token('FREIGHT_CODE', check_calendar_rec.freight_code);
844: END IF;
845: --
846: fnd_message.set_token('SUPPLIER_NAME' , p_from_supplier_name );
847: fnd_message.set_token('CAL_TYPE' , check_calendar_Rec.calendar_type );
848: l_msg := FND_MESSAGE.GET;
849: wsh_util_core.printMsg(l_msg);
850: --}
851: END IF;-- IF (check_dup_assignment %NOTFOUND)
844: END IF;
845: --
846: fnd_message.set_token('SUPPLIER_NAME' , p_from_supplier_name );
847: fnd_message.set_token('CAL_TYPE' , check_calendar_Rec.calendar_type );
848: l_msg := FND_MESSAGE.GET;
849: wsh_util_core.printMsg(l_msg);
850: --}
851: END IF;-- IF (check_dup_assignment %NOTFOUND)
852: --
2128: IF ( l_parent_del_detail_id_tab(ExpCnt) IS NOT NULL AND
2129: l_delivery_id_tab(ExpCnt) IS NULL )
2130: THEN -- {
2131: -- Setting the Messages
2132: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2133: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2134: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2135: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2136:
2129: l_delivery_id_tab(ExpCnt) IS NULL )
2130: THEN -- {
2131: -- Setting the Messages
2132: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2133: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2134: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2135: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2136:
2137: l_message_text := FND_MESSAGE.Get;
2130: THEN -- {
2131: -- Setting the Messages
2132: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2133: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2134: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2135: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2136:
2137: l_message_text := FND_MESSAGE.Get;
2138:
2131: -- Setting the Messages
2132: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2133: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2134: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2135: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2136:
2137: l_message_text := FND_MESSAGE.Get;
2138:
2139: --
2133: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2134: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2135: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2136:
2137: l_message_text := FND_MESSAGE.Get;
2138:
2139: --
2140: IF l_debug_on THEN
2141: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_XC_UTIL.Log_Exception', WSH_DEBUG_SV.C_PROC_LEVEL);
2294:
2295: FOR ExpCnt in l_delivery_id_tab.FIRST..l_delivery_id_tab.LAST
2296: LOOP -- { Loop for logging Expceptions
2297: -- Setting the Messages
2298: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2299: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2300: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2301: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2302:
2295: FOR ExpCnt in l_delivery_id_tab.FIRST..l_delivery_id_tab.LAST
2296: LOOP -- { Loop for logging Expceptions
2297: -- Setting the Messages
2298: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2299: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2300: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2301: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2302:
2303: l_message_text := FND_MESSAGE.Get;
2296: LOOP -- { Loop for logging Expceptions
2297: -- Setting the Messages
2298: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2299: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2300: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2301: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2302:
2303: l_message_text := FND_MESSAGE.Get;
2304:
2297: -- Setting the Messages
2298: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2299: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2300: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2301: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2302:
2303: l_message_text := FND_MESSAGE.Get;
2304:
2305: --
2299: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2300: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2301: FND_MESSAGE.Set_Token ('DELIVERY_DETAIL_ID', l_del_detail_id_tab(ExpCnt) );
2302:
2303: l_message_text := FND_MESSAGE.Get;
2304:
2305: --
2306: IF l_debug_on THEN
2307: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_XC_UTIL.Log_Exception', WSH_DEBUG_SV.C_PROC_LEVEL);
2574:
2575: FOR ExpCnt in l_stop_id_tab.FIRST..l_stop_id_tab.LAST
2576: LOOP -- { Loop for logging Expceptions
2577: -- Setting the Messages
2578: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2579: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2580: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2581: FND_MESSAGE.Set_Token ('DELIVERY_ID', l_delivery_id_tab(ExpCnt) );
2582:
2575: FOR ExpCnt in l_stop_id_tab.FIRST..l_stop_id_tab.LAST
2576: LOOP -- { Loop for logging Expceptions
2577: -- Setting the Messages
2578: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2579: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2580: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2581: FND_MESSAGE.Set_Token ('DELIVERY_ID', l_delivery_id_tab(ExpCnt) );
2582:
2583: l_message_text := FND_MESSAGE.Get;
2576: LOOP -- { Loop for logging Expceptions
2577: -- Setting the Messages
2578: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2579: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2580: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2581: FND_MESSAGE.Set_Token ('DELIVERY_ID', l_delivery_id_tab(ExpCnt) );
2582:
2583: l_message_text := FND_MESSAGE.Get;
2584:
2577: -- Setting the Messages
2578: FND_MESSAGE.Set_Name ('WSH', l_message_name );
2579: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2580: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2581: FND_MESSAGE.Set_Token ('DELIVERY_ID', l_delivery_id_tab(ExpCnt) );
2582:
2583: l_message_text := FND_MESSAGE.Get;
2584:
2585: --
2579: FND_MESSAGE.Set_Token ('PS1', p_from_fk_id );
2580: FND_MESSAGE.Set_Token ('PS2', p_to_fk_id );
2581: FND_MESSAGE.Set_Token ('DELIVERY_ID', l_delivery_id_tab(ExpCnt) );
2582:
2583: l_message_text := FND_MESSAGE.Get;
2584:
2585: --
2586: IF l_debug_on THEN
2587: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_XC_UTIL.Log_Exception', WSH_DEBUG_SV.C_PROC_LEVEL);
2822: END IF;
2823: --
2824:
2825: WHEN OTHERS THEN
2826: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
2827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2828: FND_MSG_PUB.ADD;
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2830:
2823: --
2824:
2825: WHEN OTHERS THEN
2826: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
2827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2828: FND_MSG_PUB.ADD;
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2830:
2831: -- Close the Cursors if it is OPEN